box() --创建box
--创建一个50*50的box阵列
for a in 0 to 50 do    (                for i in 0 to 50 do copy $Box001 pos:[25*a,i*25,0]                 )    
--给box的wirecolor设置随机颜色for i in selection do(    rNumber=random 0 255    i.wirecolor=(color rNumber rNumber rNumber)--(random black white)--color (random 1 255) (random 1 255) (random 1 255)        )        --设置box的高度为10-50的随机数    for i in selection do     (                i.height=random 10 50                )