- 注册时间
- 2006-9-15
- 最后登录
- 2008-8-24
②入门
- 积分
- 62
|
求教下大人，为啥偶这段自制右键存档的代码，在游戏中按右键无法弹出右键菜单？？只有到了游戏末尾的时候按右键才能弹出来。
拜托了，偶做这个存档几乎要崩溃了……
*define
savedir "save"
windowback
;deletemenu
savenumber 14
effect 2,10,2000
effect 3,10,500
globalon
labellog
textgosub *youjian
defsub save ;存储系统sub
defsub load ;读取系统sub
;---------------------
;变量使用
;%0储存
;%1读取
;%999？？
;%998？？
;
;---------------------
game
;-------------------------------------------------
;对话系统
*youjian
erasetextwindow 0
btndef ""
*tbloop
textbtnwait %0
repaint
if %0=-1 goto *youmenu ;右键系统
if %0=0 goto *text_end ;继续前进
goto *tbloop
;-------------------------------------------------
;继续前进
*text_end
texec
saveon
return
;-------------------------------------------------
;右键菜单
*youmenu
mov %999,2 ;不知道做啥用的..保留
mov %998,4
csp -1
lsp 238,":c;yjlsp\1.jpg",0,0 ;右键菜单背景
btndef ""
lsp 234,":c/2,0,3;yjlsp\yjbt1.jpg",31,22 ;右键按钮
lsp 235,":c/2,0,3;yjlsp\yjbt2.jpg",31,50
lsp 236,":c/2,0,3;yjlsp\yjbt3.jpg",31,78
lsp 237,":c/2,0,3;yjlsp\yjbt4.jpg",31,106
print 3
*youbiaoti1
spbtn 234,234
spbtn 235,235
spbtn 236,236
spbtn 237,237
*youbiaoti0
btnwait2 %0
if %0==-1 csp -1:goto *tbloop ;消除图片,返回对话系统
if %0==0 goto *youbiaoti0 ;等待
if %0==234 reset ;返回标题画面
if %0==235 save ;存储
if %0==236 load ;读取
if %0==237 end ;结束游戏
goto *youmenu
;-------------------------------------------------
;存储系统
*save
csp -1
lsp 233,":c;yjlsp\2.jpg",0,0 ;存储画面背景
lsp 1,":c/2,0,3;yjlsp\savelsp.jpg",52,37 ;存储按钮
lsp 2,":c/2,0,3;yjlsp\savelsp.jpg",52,98
lsp 3,":c/2,0,3;yjlsp\savelsp.jpg",52,159
lsp 4,":c/2,0,3;yjlsp\savelsp.jpg",52,220
lsp 5,":c/2,0,3;yjlsp\savelsp.jpg",52,281
lsp 6,":c/2,0,3;yjlsp\savelsp.jpg",52,342
lsp 7,":c/2,0,3;yjlsp\savelsp.jpg",52,403
lsp 8,":c/2,0,3;yjlsp\savelsp.jpg",348,37
lsp 9,":c/2,0,3;yjlsp\savelsp.jpg",348,98
lsp 10,":c/2,0,3;yjlsp\savelsp.jpg",348,159
lsp 11,":c/2,0,3;yjlsp\savelsp.jpg",348,220
lsp 12,":c/2,0,3;yjlsp\savelsp.jpg",348,281
lsp 13,":c/2,0,3;yjlsp\savelsp.jpg",348,342
lsp 14,":c/2,0,3;yjlsp\savelsp.jpg",348,403
print 3
btndef ""
spbtn 1,1
spbtn 2,2
spbtn 3,3
spbtn 4,4
spbtn 5,5
spbtn 6,6
spbtn 7,7
spbtn 8,8
spbtn 9,9
spbtn 10,10
spbtn 11,11
spbtn 12,12
spbtn 13,13
spbtn 14,14
*savewait
btnwait2 %0
if %0<0 csp -1:return ;右键,消除图片,返回右键菜单
if %0=0 goto *savewait ;等待
if %0>=1 savegame %0:goto *save ;存储完毕,返回等待
;-----------------------------
;读取系统
*load
csp -1
lsp 219,":c;yjlsp\3.jpg",0,0 ;读取画面背景
lsp 1,":c/2,0,3;yjlsp\loadlsp.jpg",53,37 ;读取按钮
lsp 2,":c/2,0,3;yjlsp\loadlsp.jpg",53,98
lsp 3,":c/2,0,3;yjlsp\loadlsp.jpg",53,159
lsp 4,":c/2,0,3;yjlsp\loadlsp.jpg",53,220
lsp 5,":c/2,0,3;yjlsp\loadlsp.jpg",53,281
lsp 6,":c/2,0,3;yjlsp\loadlsp.jpg",53,342
lsp 7,":c/2,0,3;yjlsp\loadlsp.jpg",53,403
lsp 8,":c/2,0,3;yjlsp\loadlsp.jpg",350,37
lsp 9,":c/2,0,3;yjlsp\loadlsp.jpg",350,98
lsp 10,":c/2,0,3;yjlsp\loadlsp.jpg",350,159
lsp 11,":c/2,0,3;yjlsp\loadlsp.jpg",350,220
lsp 12,":c/2,0,3;yjlsp\loadlsp.jpg",350,281
lsp 13,":c/2,0,3;yjlsp\loadlsp.jpg",350,342
lsp 14,":c/2,0,3;yjlsp\loadlsp.jpg",350,403
print 3
btndef ""
savefileexist %1,1:if %1=1 spbtn 1,1
savefileexist %1,2:if %1=1 spbtn 2,2
savefileexist %1,3:if %1=1 spbtn 3,3
savefileexist %1,4:if %1=1 spbtn 4,4
savefileexist %1,5:if %1=1 spbtn 5,5
savefileexist %1,6:if %1=1 spbtn 6,6
savefileexist %1,7:if %1=1 spbtn 7,7
savefileexist %1,8:if %1=1 spbtn 8,8
savefileexist %1,9:if %1=1 spbtn 9,9
savefileexist %1,10:if %1=1 spbtn 10,10
savefileexist %1,11:if %1=1 spbtn 11,11
savefileexist %1,12:if %1=1 spbtn 12,12
savefileexist %1,13:if %1=1 spbtn 13,13
savefileexist %1,14:if %1=1 spbtn 14,14
*loadwait
btnwait2 %0
if %0<0 csp -1:return ;返回右键菜单
if %0=0 goto *loadwait
if %0>=1 loadgame %0 ;读取游戏
goto *load
;-------------------------------------------------
*start
bg "e.jpg",10,500
lsp 0,":s#ffffff#ffff00开始测试",270,280
lsp 1,":s#ffffff#ffff00读取存档",270,320
lsp 2,":s#ffffff#ffff00退出游戏",270,360
lsp 3,":s#ffffff#ffff00ＣＧ图片",270,400
print 1
spbtn 0,1
spbtn 1,2
spbtn 2,3
spbtn 3,4
*else
btnwait %0
if %0=0 goto *else
if %0=-1 goto *else
if %0=1 csp -1:goto *hajime
if %0=2 csp -1:goto *tuduki
if %0=3 csp -1:print 2:end
if %0=4 csp -1:goto *cg
*hajime;游戏开始
bg black,2
bg "8.jpg",10,500
mov %10,0
以本身体重与吃下的食物重量的比例而言，世界上最能吃的生物是什么？
select "Ａ，毛毛虫", *event1,"Ｂ，蝙蝠", *event2,"Ｃ，鲸鱼" ,*event3,"Ｄ，人类婴儿" ,*event4
*event1 ;事件1
;你选择了Ａ。
add %10,5
goto *game2
*event2 ;事件2
;你选择了Ｂ。
goto *game2
*event3 ;事件3
;你选择了Ｃ。
goto *game2
*event4 ;事件4
;你选择了Ｄ。
goto *game2
*game2
以下几个谁被称为侦探小说的开山鼻祖？
select "Ａ，柯南·道尔", *event5,"Ｂ，爱伦·坡", *event6,"Ｃ，阿加莎·克里斯蒂" ,*event7,"Ｄ，丹·布朗" ,*event8
*event5
goto *goodending
*event6
add %10,5
goto *goodending
*event7
goto *goodending
*event8
goto *goodending
;开始计算成绩
*goodending
if %10=10 goto *goodending1
if %10<10 && %10>=5 goto *goodending2
if %10<5 goto *goodending3
*goodending1
bg "24.jpg",2
做完了，总分１０分，你的成绩是%10分。
厉害啊！全对！！\
end
*goodending2
bg "24.jpg",2
做完了，总分１０分，你的成绩是%10分。
不错不错！！\
end
*goodending3
bg "26.jpg",2
做完了，总分１０分，你的成绩是%10分。
好烂说……一半都没答对啊！！\
end
*tuduki;读取
bg "b.jpg",2
systemcall load
goto *start;按右键返回标题
end |
|
发表于 2006-10-4 16:31:13
发表于 2006-10-4 17:22:42
楼主