- 注册时间
- 2006-4-9
- 最后登录
- 2009-12-18
⑥精研
- 积分
- 1065

|

楼主 |
发表于 2006-5-13 18:51:30
|
显示全部楼层
[s:8] 新问题~~~
怎么存档存到是和否上去了。。。
;value1000
*define
caption "AIR"
deletemenu
savenumber 17
effect 2,10,2000
effect 3,10,500
globalon
textgosub *youjian
game
*start
;标题
*kaishi
csp -1
if %1000=1 goto *biaoti0
mp3loop "bgm\\kaishi.mp3"
bg "bgd\\biaoti.bmp",2
csp -1
btndef ""
lsp 10,":c/2,0,3;Icon\\NEW GAME.bmp",258,282
spbtn 10,15
lsp 11,":c/2,0,3;icon\\LOAD GAME.bmp",254,310
spbtn 11,16
lsp 12,":c/2,0,3;icon\\APPENDIX.bmp",265,340
lsp 13,":c/2,0,3;icon\\EXIT.bmp",289,367
spbtn 13,18
bg "bgd\\biaoticg.bmp",1
*biaoti1
btnwait2 %0
if%0<=0 goto*biaoti1
if%0==15 goto*newgame
if%0==16 goto*load
if%0==18 goto*jieshu
*biaoti0
mp3loop "bgm\\kaishi.mp3"
bg "bgd\\biaoti.bmp",2
csp -1
btndef ""
lsp 10,":c/2,0,3;icon\\NEW GAME.bmp",258,282
spbtn 10,15
lsp 11,":c/2,0,3;icon\\LOAD GAME.bmp",254,310
spbtn 11,16
lsp 12,":c/2,0,3;icon\\APPENDIX.bmp",265,340
spbtn 12,17
lsp 13,":c/2,0,3;icon\\EXIT.bmp",289,367
spbtn 13,18
bg "bgd\\biaoticg.bmp",1
*biaoti
btnwait2 %0
if%0<=0 goto*biaoti
if%0==15 goto*newgame
if%0==16 goto*load
if%0==17 goto*cg
if%0==18 goto*jieshu
*load
stop
mp3loop "bgm\\save load.mp3"
gosub *load0
*load1
btnwait2 %0
if %0<0 goto*kaishi
if %0=0 goto*load1
if %0>=1 loadgame %0
*save
stop
mp3loop "bgm\\save load.mp3"
gosub *save0
*save1
btnwait2 %0
if %0<0 goto*kaishi
if %0=0 goto*save1
if %0>=1 savegame %0
*youjian
btndef clear
*youjian0
textbtnwait %0
if %0=0 goto *jixu
if %0=-1 gosub *youbiaoti
goto *youjian0
*youload
stop
mp3loop "bgm\\save load.mp3"
gosub *load0
*load2
btnwait2 %0
if %0<0 goto*youbiaoti
if %0=0 goto*load2
if %0>=1 loadgame %0:gosub *saveyesno
*yousave
stop
mp3loop "bgm\\save load.mp3"
gosub *save0
*save2
btnwait2 %0
if %0<0 goto*youbiaoti
if %0=0 goto*save2
if %0>=1 savegame %0:gosub *saveyesno
*youfanhuei
stop
csp -1
repaint
texton
return
*jieshu
end
*newgame
csp -1
stop
bg #ffffff,10,1000
wait 5000
erasetextwindow 0
setwindow 40,352,28,4,20,20,0,2,20,1,1,":a;frame\\0001.bmp",25,340
;序章
bg "bgd\\00002.bmp",3
郁闷@
还是郁闷@
mov %1000,1
textoff
csp -1
goto *biaoti0
*load0
csp -1
lsp 82,":c/1,0,3;bgd\\load.bmp",0,0
btndef ""
lsp 20,":a/2,0,3;icon\\loadlsp1.bmp",53,37
lsp 21,":a/2,0,3;icon\\loadlsp2.bmp",53,98
lsp 22,":a/2,0,3;icon\\loadlsp3.bmp",53,162
lsp 23,":a/2,0,3;icon\\loadlsp4.bmp",53,223
lsp 24,":a/2,0,3;icon\\loadlsp5.bmp",53,287
lsp 25,":a/2,0,3;icon\\loadlsp6.bmp",53,349
lsp 26,":a/2,0,3;icon\\loadlsp7.bmp",53,410
lsp 27,":a/2,0,3;icon\\loadlsp8.bmp",350,37
lsp 28,":a/2,0,3;icon\\loadlsp9.bmp",350,98
lsp 29,":a/2,0,3;icon\\loadlsp10.bmp",350,162
lsp 30,":a/2,0,3;icon\\loadlsp11.bmp",350,223
lsp 31,":a/2,0,3;icon\\loadlsp12.bmp",350,287
lsp 32,":a/2,0,3;icon\\loadlsp13.bmp",350,349
lsp 33,":a/2,0,3;icon\\loadlsp14.bmp",350,410
savefileexist %1,1:if %1=1 spbtn 20,1
savefileexist %1,2:if %1=1 spbtn 21,2
savefileexist %1,3:if %1=1 spbtn 22,3
savefileexist %1,4:if %1=1 spbtn 23,4
savefileexist %1,5:if %1=1 spbtn 24,5
savefileexist %1,6:if %1=1 spbtn 25,6
savefileexist %1,7:if %1=1 spbtn 26,7
savefileexist %1,8:if %1=1 spbtn 27,8
savefileexist %1,9:if %1=1 spbtn 28,9
savefileexist %1,10:if %1=1 spbtn 29,10
savefileexist %1,11:if %1=1 spbtn 30,11
savefileexist %1,12:if %1=1 spbtn 31,12
savefileexist %1,13:if %1=1 spbtn 32,13
savefileexist %1,14:if %1=1 spbtn 33,14
return
*save0
csp -1
lsp 83,":c/1,0,3;bgd\\save.bmp",0,0
btndef ""
lsp 30,":a/2,0,3;icon\\savelsp1.bmp",52,37
lsp 31,":a/2,0,3;icon\\savelsp2.bmp",52,98
lsp 32,":a/2,0,3;icon\\savelsp3.bmp",52,162
lsp 33,":a/2,0,3;icon\\savelsp4.bmp",52,223
lsp 34,":a/2,0,3;icon\\savelsp5.bmp",52,287
lsp 35,":a/2,0,3;icon\\savelsp6.bmp",52,349
lsp 36,":a/2,0,3;icon\\savelsp7.bmp",52,410
lsp 37,":a/2,0,3;icon\\savelsp8.bmp",348,37
lsp 38,":a/2,0,3;icon\\savelsp9.bmp",348,98
lsp 39,":a/2,0,3;icon\\savelsp10.bmp",348,162
lsp 40,":a/2,0,3;icon\\savelsp11.bmp",348,223
lsp 41,":a/2,0,3;icon\\savelsp12.bmp",348,287
lsp 42,":a/2,0,3;icon\\savelsp13.bmp",348,349
lsp 43,":a/2,0,3;icon\\savelsp14.bmp",348,410
spbtn 30,1
spbtn 31,2
spbtn 32,3
spbtn 33,4
spbtn 34,5
spbtn 35,6
spbtn 36,7
spbtn 37,8
spbtn 38,9
spbtn 39,10
spbtn 40,11
spbtn 41,12
spbtn 42,13
spbtn 43,14
return
*jixu
texec
return
*youbiaoti
textoff
stop
csp -1
mp3loop "bgm\\youbiaoti.mp3"
print 3
lsp 59,":c/1,0,3;bgd\\youbiaoti.bmp",0,0
btndef ""
lsp 50,":c/2,0,3;icon\\youlsp1.bmp",31,22
lsp 51,":c/2,0,3;icon\\youlsp2.bmp",31,50
lsp 52,":c/2,0,3;icon\\youlsp3.bmp",31,78
lsp 53,":c/2,0,3;icon\\youlsp4.bmp",31,106
spbtn 50,55
spbtn 51,56
spbtn 52,57
spbtn 53,58
*youbiaoti0
btnwait2 %0
if %0==-1 goto *youfanhuei
if %0==0 goto *youbiaoti0
if %0==55 goto *kaishi
if %0==56 goto *yousave
if %0==57 goto *youload
if %0==58 goto *jieshu
return
*saveyesno
lsp 70,":c;icon\\saveyesno.bmp",241,203,100
lsp 71,":s/16,16,1;#FFFFFF#FF0000确定存档?",270,215
lsp 72,":s/16,16,1;#FFFFFF#FF0000是",290,245
lsp 73,":s/16,16,1;#FFFFFF#FF0000否",320,245
spbtn 72,74
spbtn 73,75
goto *save2
return
*loadyesno
lsp 76,":c;icon\\saveyesno.bmp",241,203,100
lsp 77,":s/16,16,1;#FFFFFF#FF0000确定读档?",270,215
lsp 78,":s/16,16,1;#FFFFFF#FF0000是",290,245
lsp 79,":s/16,16,1;#FFFFFF#FF0000否",320,245
spbtn 78,80
spbtn 79,81
goto *load2
return |
|