- 注册时间
- 2008-11-21
- 最后登录
- 2009-1-4
②入门
- 积分
- 53
|
额~~~~~我又跑来麻烦各位啦~~~~~~~囧~~~~~~~~~
那个养成系统咯~~~
如果我显示的数字用LSP来显示,它所在的位置对了,但是他数值就一直是固定的,不会动~
如果说写成“文科成绩是$1\”一定要点击鼠标才会往下跳,但是却不是我想要的位置,是在对话框中显示你现在的成绩是多少
我想问一下大人,哪里不对~
*define
rmenu "存储",save,"读取",load
defsub yangcheng
defsub wenke
defsub like
defsub yundong
defsub yishu
defsub dagong
defsub xiuxi
defsub weekend
game
*yangcheng
rnd %1,9
if %1>=3 mov %2,1
if %1<3 mov %2,0
if %2=1 rnd2 %3,3,5
if %2=0 rnd2 %4,0,2
return
*wenke
for %100=1 to 5
yangcheng
if %2=1 add %102,%3
if %2=0 sub %102,%4
itoa $1,%102
lsp 11,":s/25,25,0,#ffffff$1",300,30
next
return
*like
for %100=1 to 5
yangcheng
if %2=1 add %101,%3
if %2=0 sub %101,%4
itoa $2,%101
lsp 12,":s/25,25,0,#ffffff$2",300,60
next
return
*yundong
for %100=1 to 5
yangcheng
if %2=1 add %107,%3
if %2=0 sub %107,%4
itoa $3,%107
lsp 13,":s/25,25,0,#ffffff$3",300,90
next
return
*yishu
for %100=1 to 5
yangcheng
if %2=1 add %108,%3
if %2=0 sub %108,%4
itoa $4,%108
lsp 14,":s/25,25,0,#ffffff$4",300,30
next
return
*start
mov %101,50
mov %102,50
mov %107,50
mov %108,50
mov %103,50
mov %100,1
*newweek
lsp 11,":s/25,25,0;#ffffff#ffff00文科",30,30
lsp 12,":s/25,25,0;#ffffff#ffff00理科",30,60
lsp 13,":s/25,25,0;#ffffff#ffff00运动",30,90
lsp 14,":s/25,25,0;#ffffff#ffff00艺术",30,120
print 1
btndef ""
spbtn 11,1
spbtn 12,2
spbtn 13,3
spbtn 14,4
btnwait %0
if %0==1 btndef clear:csp -1:goto *wen
if %0==2 btndef clear:csp -1:goto *li
if %0==3 btndef clear:csp -1:goto *yun
if %0==4 btndef clear:csp -1:goto *yi
*wen
gosub *wenke
goto *weekend
*li
gosub *like
goto *weekend
*yun
gosub *yundong
goto *weekend
*yi
gosub *yishu
goto *weekend
 |
|