[求助]关于储存的郁闷问题~~~

zero龙

大家帮忙看看，就是读取的时候不是从储存的地方开始，不管在那里存都是从文章开头开始的，在代码里加了注解，希望大家能帮忙，我自己看了几天也找不出原因~~急~~~~

;value1000
*define
savedir "save\"
deletemenu
savenumber 17
effect 2,10,2000
effect 3,10,500
globalon
labellog
textgosub *youjian

game
*start

;标题
*kaishi;标题画面
csp -1
bg "bgd\biaoti.jpg",2
*kaishi0
erasetextwindow 0
setwindow 40,352,28,4,20,20,0,2,20,1,1,":a;frame\0001.jpg",25,340
textoff
csp -1
btndef ""
lsp 200,":c/2,0,3;Icon\new game.jpg",258,282
lsp 201,":c/2,0,3;icon\load game.jpg",254,310
lsp 202,":c/2,0,3;icon\appendix.jpg",265,340
lsp 203,":c/2,0,3;icon\exit.jpg",289,367
spbtn 200,200
spbtn 201,201
spbtn 203,203
if %1000=1 spbtn 202,202
lsp 239,":c;bgd\biaoticg.jpg",0,0
*biaoti
btnwait2 %0
if%0<=0   goto *biaoti
if%0==200 goto *newgame
if%0==201 goto *load
if%0==202 goto *cg
if%0==203 goto *jieshu

*load  ;标题读取
gosub *load0
*load1
btnwait2 %0
if %0<0 goto*kaishi
if %0=0 goto*load1
if %0>=1 loadgame %0

*youjian ;对话等待时。。
btndef ""
*youjian0
textbtnwait %0
if %0=0 goto *jixu ；左键继续文章
if %0=-1 gosub *youbiaoti ;右键系统
goto *youjian0

*youload ;对话时的读取
gosub *load0
*load2
btnwait2 %0
if %0<0 goto*youbiaoti
if %0=0 goto*load2
if %0>=1 loadgame %0

*yousave ;对话时的存档
gosub *save0
*save2
btnwait2 %0
if %0<0 goto*youbiaoti
if %0=0 goto*save2
if %0>=1 savegame %0:goto *save2

*youfanhuei;右键系统时在点右键返回文章
csp -1
saveon
repaint
texton
return

*jieshu
end

*newgame;新开始游戏
csp -1
stop
bg #ffffff,10,1000
wait 5000
;序章

bg "bgd\00002.jpg",3
texton
郁闷\       ;取档的时候却是从这句开始~

还是郁闷@
bg "bgd\biaoticg.jpg",3
郁闷郁闷\      ;比如我在这里存档..

更是郁闷@;


mov %1000,1
textoff
csp -1
goto *kaishi

*load0;读取公共事件
csp -1
lsp 219,":c;bgd\load.jpg",0,0
btndef ""
lsp 1,":a/2,0,3;icon\loadlsp1.jpg",53,37
lsp 2,":a/2,0,3;icon\loadlsp2.jpg",53,98
lsp 3,":a/2,0,3;icon\loadlsp3.jpg",53,162
lsp 4,":a/2,0,3;icon\loadlsp4.jpg",53,223
lsp 5,":a/2,0,3;icon\loadlsp5.jpg",53,287
lsp 6,":a/2,0,3;icon\loadlsp6.jpg",53,349
lsp 7,":a/2,0,3;icon\loadlsp7.jpg",53,410
lsp 8,":a/2,0,3;icon\loadlsp8.jpg",350,37
lsp 9,":a/2,0,3;icon\loadlsp9.jpg",350,98
lsp 10,":a/2,0,3;icon\loadlsp10.jpg",350,162
lsp 11,":a/2,0,3;icon\loadlsp11.jpg",350,223
lsp 12,":a/2,0,3;icon\loadlsp12.jpg",350,287
lsp 13,":a/2,0,3;icon\loadlsp13.jpg",350,349
lsp 14,":a/2,0,3;icon\loadlsp14.jpg",350,410
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
return

*save0;存档公共事件
csp -1
lsp 233,":c;bgd\save.jpg",0,0
btndef ""
lsp 1,":a/2,0,3;icon\savelsp1.jpg",52,37
lsp 2,":a/2,0,3;icon\savelsp2.jpg",52,98
lsp 3,":a/2,0,3;icon\savelsp3.jpg",52,162
lsp 4,":a/2,0,3;icon\savelsp4.jpg",52,223
lsp 5,":a/2,0,3;icon\savelsp5.jpg",52,287
lsp 6,":a/2,0,3;icon\savelsp6.jpg",52,349
lsp 7,":a/2,0,3;icon\savelsp7.jpg",52,410
lsp 8,":a/2,0,3;icon\savelsp8.jpg",348,37
lsp 9,":a/2,0,3;icon\savelsp9.jpg",348,98
lsp 10,":a/2,0,3;icon\savelsp10.jpg",348,162
lsp 11,":a/2,0,3;icon\savelsp11.jpg",348,223
lsp 12,":a/2,0,3;icon\savelsp12.jpg",348,287
lsp 13,":a/2,0,3;icon\savelsp13.jpg",348,349
lsp 14,":a/2,0,3;icon\savelsp14.jpg",348,410
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
return

*youbiaoti;右键系统
mov %999,2
mov %998,4
textoff
csp -1
lsp 238,":c;bgd\youbiaoti.jpg",0,0
btndef ""
lsp 234,":c/2,0,3;icon\youlsp1.jpg",31,22
lsp 235,":c/2,0,3;icon\youlsp2.jpg",31,50
lsp 236,":c/2,0,3;icon\youlsp3.jpg",31,78
lsp 237,":c/2,0,3;icon\youlsp4.jpg",31,106
print 3
*youbiaoti1
spbtn 234,234
spbtn 235,235
spbtn 236,236
spbtn 237,237
*youbiaoti0
btnwait2 %0
if %0==-1 goto *youfanhuei
if %0==0  goto *youbiaoti
if %0==234 goto *kaishi
if %0==235 goto *yousave
if %0==236 goto *youload
if %0==237 gosub *jieshu
return

*jixu
texec
return

zero龙

[s:8]
怎么没人帮忙

CountD

*youload ;对话时的读取
gosub *load0
*load2
btnwait2 %0
if %0<0 goto*youbiaoti
if %0=0 goto*load2
if %0>=1 loadgame %0
goto *load2 ;添加

*yousave ;对话时的存档
gosub *save0
*save2
btnwait2 %0
if %0<0 goto*youbiaoti
if %0=0 goto*save2
if %0>=1 savegame %0:goto *save2

goto *save2 ;添加

*youfanhuei;右键系统时在点右键返回文章
csp -1
goto *youjian ;修改

if %0=-1 goto *youbiaoti ;右键系统<-这边的话改用goto,然后删除右键系统里最后一行的return命令.

PS:没有图片没法运行,只能根据我看着觉得奇怪和不保险的地方做下修改.

zero龙

试了。还是一样。而且时好时坏的。exe应该没什么问题，测试的时候我是把伪圣书的exe拖过来运行的。有的时候正常的话但存档又不能覆盖了。。反正都是随即的。~~汗~ [s:8]
我把文件上传上来。你在帮我看看

BMP太大了。没办法上传。所以改成了JPG的。代码也修改了

CountD

[s:5] 有空给你重写一段算了...DEBUG的话太麻烦了...
到周末提醒我一声...<=最近忙到死啊...

zero龙

[s:6]
太感谢了~~

zero龙

提醒下某D~~周末了~  [s:1]

CountD

1发现你所有的GOTO和标签之间都没有空格... [s:5]
2savedir命令的用法错了.不要加那个斜杠,并且需要在文件夹下新建一个SAVE文件夹.

CountD

;value1000
;-------------------------------------------------
;定义区
*define
savedir "save"
deletemenu
savenumber 17
effect 2,10,2000
effect 3,10,500
globalon
labellog
textgosub *youjian
defsub save ;存储系统sub
defsub load ;读取系统sub
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;bgd\\youbiaoti.jpg",0,0

btndef ""

lsp 234,":c/2,0,3;icon\\youlsp1.jpg",31,22
lsp 235,":c/2,0,3;icon\\youlsp2.jpg",31,50
lsp 236,":c/2,0,3;icon\\youlsp3.jpg",31,78
lsp 237,":c/2,0,3;icon\\youlsp4.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;bgd\\save.jpg",0,0

lsp 1,":a/2,0,3;icon\\savelsp1.jpg",52,37
lsp 2,":a/2,0,3;icon\\savelsp2.jpg",52,98
lsp 3,":a/2,0,3;icon\\savelsp3.jpg",52,162
lsp 4,":a/2,0,3;icon\\savelsp4.jpg",52,223
lsp 5,":a/2,0,3;icon\\savelsp5.jpg",52,287
lsp 6,":a/2,0,3;icon\\savelsp6.jpg",52,349
lsp 7,":a/2,0,3;icon\\savelsp7.jpg",52,410
lsp 8,":a/2,0,3;icon\\savelsp8.jpg",348,37
lsp 9,":a/2,0,3;icon\\savelsp9.jpg",348,98
lsp 10,":a/2,0,3;icon\\savelsp10.jpg",348,162
lsp 11,":a/2,0,3;icon\\savelsp11.jpg",348,223
lsp 12,":a/2,0,3;icon\\savelsp12.jpg",348,287
lsp 13,":a/2,0,3;icon\\savelsp13.jpg",348,349
lsp 14,":a/2,0,3;icon\\savelsp14.jpg",348,410

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;bgd\\load.jpg",0,0

lsp 1,":a/2,0,3;icon\\loadlsp1.jpg",53,37
lsp 2,":a/2,0,3;icon\\loadlsp2.jpg",53,98
lsp 3,":a/2,0,3;icon\\loadlsp3.jpg",53,162
lsp 4,":a/2,0,3;icon\\loadlsp4.jpg",53,223
lsp 5,":a/2,0,3;icon\\loadlsp5.jpg",53,287
lsp 6,":a/2,0,3;icon\\loadlsp6.jpg",53,349
lsp 7,":a/2,0,3;icon\\loadlsp7.jpg",53,410
lsp 8,":a/2,0,3;icon\\loadlsp8.jpg",350,37
lsp 9,":a/2,0,3;icon\\loadlsp9.jpg",350,98
lsp 10,":a/2,0,3;icon\\loadlsp10.jpg",350,162
lsp 11,":a/2,0,3;icon\\loadlsp11.jpg",350,223
lsp 12,":a/2,0,3;icon\\loadlsp12.jpg",350,287
lsp 13,":a/2,0,3;icon\\loadlsp13.jpg",350,349
lsp 14,":a/2,0,3;icon\\loadlsp14.jpg",350,410

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
;-------------------------------------
;标题
*title
csp -1
bg "bgd\\biaoticg.jpg",0 ;载入背景,但不显示

*kaishi0

lsp 200,":c/2,0,3;Icon\\new game.jpg",258,282
lsp 201,":c/2,0,3;icon\\load game.jpg",254,310
lsp 203,":c/2,0,3;icon\\exit.jpg",289,367

if %1000=1 lsp 202,":c/2,0,3;icon\\appendix.jpg",265,340

print 3 ;显示背景及按钮

btndef ""

spbtn 200,200
spbtn 201,201
spbtn 203,203

if %1000=1 spbtn 202,202

*biaoti
btnwait2 %0
if%0<=0   goto *biaoti
if%0==200 goto *newgame ;开始新游戏
if%0==201 load ;读取
if%0==202 goto *cg ;CG
if%0==203 end ;结束游戏

goto *title
;-------------------------------------
;新游戏
*newgame
csp -1
bg #ffffff,10,1000
wait 500
;序章

bg "bgd\\00002.jpg",3

setwindow 40,352,28,4,20,20,0,2,20,1,1,":a;frame\\0001.jpg",25,340 ;setwindow在显示对话前使用就好
郁闷\\     
还是郁闷@
bg "bgd\\biaoticg.jpg",3
郁闷郁闷\\

更是郁闷\\

;对话结束,重启
mov %1000,1
reset
;-------------------------------------
;CG画面[空]
*cg



goto *title
;-------------------------------------

zero龙

[s:5]
那个。。对话时按右键进入右键菜单之后~对话框还在~我加了textoff和texton如下
但~~进入右键菜单对话框是没了。可返回的时候它不出来了~还要点下左键才出来
;右键菜单
*youmenu
mov %999,2 ;不知道做啥用的..保留
mov %998,4
textoff   ;进入右键菜单的时候关闭对话框
csp -1
lsp 238,":c;bgd\\youbiaoti.jpg",0,0

btndef ""

lsp 234,":c/2,0,3;icon\\youlsp1.jpg",31,22
lsp 235,":c/2,0,3;icon\\youlsp2.jpg",31,50
lsp 236,":c/2,0,3;icon\\youlsp3.jpg",31,78
lsp 237,":c/2,0,3;icon\\youlsp4.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:texton ;消除图片,返回对话系统  
if %0==0 goto *youbiaoti0 ;等待
if %0==234 reset ;返回标题画面
if %0==235 save ;存储
if %0==236 load ;读取
if %0==237 end ;结束游戏

goto *youmenu