
to ks  ;主程序 
draw
pu
loadpic
make daxiao 100
revar
rebut
fs xy -200 -150
end
to tian
make button 10
tian1
end

to tian1
wait 1
rt 10
if button=1 or button=3 then tian0  
if button=4 then play s3 make button 10 toplevel
tian
end
to tian0
setxy mousex mousey fill make button 10 play s2 pu
end


to rebut   ;新建按钮
setbut pc0,0,-187,-57,58,45.9,0x3300,0xffffcc,14 setpc,0,play,s0,tian, 
setbut pc1,1,-427,54,58,45.9,0x7f,0xffffcc,14 setpc,1,play,s0,tian, 
setbut pc2,2,-366,53,58,45.9,0x7f00,0xffffcc,14 setpc,2,play,s0,tian, 
setbut pc3,3,-306,52,58,45.9,0x7f7f,0xffffcc,14 setpc,3,play,s0,tian, 
setbut pc4,4,-249,50,58,45.9,0x7f0000,0xffffcc,14 setpc,4,play,s0,tian, 
setbut pc5,5,-191,50,58,45.9,0x7f007f,0xffffcc,14 setpc,5,play,s0,tian, 
setbut pc6,6,-429,-3,58,45.9,0x7f7f00,0x0,14 setpc,6,play,s0,tian, 
setbut pc7,7,-367,-1,58,45.9,0x7f7f7f,0x0,14 setpc,7,play,s0,tian, 
setbut pc8,8,-307,-2,58,45.9,0x3f3f3f,0xffffcc,14 setpc,8,play,s0,tian, 
setbut pc9,9,-248,-3,58,45.9,0xff,0xffffcc,14 setpc,9,play,s0,tian, 
setbut pc10,10,-189,-3,58,45.9,0xff00,0x0,14 setpc,10,play,s0,tian, 
setbut pc11,11,-425,-56,58,45.9,0xffff,0xffffcc,14 setpc,11,play,s0,tian, 
setbut pc12,12,-367,-56,58,45.9,0xff0000,0xffffcc,14 setpc,12,play,s0,tian, 
setbut pc13,13,-307,-56,58,45.9,0xff00ff,0x0,14 setpc,13,play,s0,tian, 
setbut pc14,14,-245,-57,58,45.9,0xffff99,0x0,14 setpc,14,play,s0,tian, 
setbut tianc,开始填充,-215,102,85,41.95,0xffff99,0x0,14 tian,play,s3, 
setbut tianc_1,结束填充,-312,102,84.9,41,0xffff,0x0,14 play,s3,make,button,10,toplevel, 
end

to revar   ;新建变量框
setvar daxiao 缩放,-430,91,300,0,1,0xffffee,0x0,0x0
setvar daxiao com [pscale 2 daxiao/100 daxiao/100]
end
