例子在下面:
*define
rmenu "保存",save,"读取",load,"自动",automode,"隐藏文字框",windowerase,"结束",end
windoweffect 10,600
automode
windowchip 11;保存
windowchip 12;读取
windowchip 13;自动
windowchip 14;结束
textgosub *textwindow
game
*textwindow
lsp 11,":s/20,20,0;#FFFFFF#000000保存",0,459
lsp 12,":s/20,20,0;#FFFFFF#000000读取",50,459
lsp 13,":s/20,20,0;#FFFFFF#000000自动",100,459
lsp 14,":s/20,20,0;#FFFFFF#000000结束",150,459
print 1
btndef "";清除按钮定义
spbtn 11,11
spbtn 12,12
spbtn 13,13
spbtn 14,14
btnwait %0
if %0=0 texec:return
if %0=-1 systemcall windowerase
if %0=11 systemcall save
if %0=12 systemcall load
if %0=13 systemcall automode
if %0=14 end
return
*start
setwindow 30,320,22,4,26,26,0,2,20,1,1,#00BB00,20,310,619,450;绿色对话框
bg white,10,600
你好!\
今天天气真好。\
是吧?\
哈哈哈。\
bg black,10,600
end
;PS:没测试过,有问题跟我说。