[原创]自制的EXPLORE的修改器

jianggong

没什么技术含量,各位高手见谅,不要骂我

jianggong

应该可以修改全部存档内容,附原代码

---

0 GRAPH
1 DATA 草药,树果,灵花,血瓶,烈炎花,血罐,风魔石,血百合,空之翼,幻之羽
10 CLS : PRINT "读哪个档？","⒈Ａ⒉Ｂ⒊Ｃ":K$ =INKEY$: IF ASC(K$) =27  THEN 20  ELSE 30
20 CLS : LOCATE 3,7: PRINT "谢谢使用": END
30 IF K$ ="b" THEN I$ ="A" ELSE IF K$ ="n" THEN I$ ="B" ELSE IF K$ ="m" THEN I$ ="C" ELSE 10
40 OPEN "SAVE-" +I$  FOR INPUT AS #1: CLS : LOCATE 3,6 : PRINT "读档中…"
50 INPUT #1,NA$,ZHSN$,ZHS,ZHSL
60 FOR I =1  TO 10: INPUT #1,Y(I): NEXT I: FOR I =1  TO 4: INPUT #1,NL(I): NEXT I
70 INPUT #1,WQN$,WQG,WQM,MON,ZY,LV,JY,NEX,YFN$,YFF,YFM,VZS,ZBA: CLOSE #1
80 CLS
90 PRINT "要改什么？","1.名称2.道具3.能力值","留空可不改 S保存","5*10^10可写为5E+10"
100 K$ =INKEY$: IF K$ ="b" THEN 110  ELSE IF K$ ="n" THEN 160  ELSE IF K$ ="m" THEN 200
101 IF K$ ="s" THEN 500  ELSE IF ASC(K$) =27  THEN 102  ELSE 10
102 CLS : LOCATE 3,2: PRINT "真要不保存退出吗？": LOCATE 4,8: PRINT "Y OR N"
103 K$ =INKEY$: IF K$ ="y" THEN 20  ELSE IF K$ ="n" THEN 80  ELSE 103
110 INPUT "主角名字：";NAA$: IF NAA$ <>"" THEN NA$ =NAA$
120 INPUT "召唤兽名字：";ZHSNA$: IF ZHSNA$ <>"" THEN ZHSN$ =ZHSNA$
130 INPUT "武器名字：";WQNA$: IF WQNA$ <>"" THEN WQN$ =WQNA$
140 INPUT "衣服名字：";YFNA$: IF YFNA$ <>"" THEN YFN$ =YFNA$
150 GOTO 80
160 CLS : PRINT "留空. ";: FOR I =1  TO 10: READ N$(I): NEXT I
161 FOR I =1  TO 9: PRINT N$(I);I ;" ";: NEXT I: PRINT N$(10);"0",
162 FOR I =1  TO 10:K$ =INKEY$: IF K$ ="b" THEN Y(I) =1  ELSE IF K$ ="n" THEN Y(I) =2
163 IF K$ ="m" THEN Y(I) =3  ELSE IF K$ ="g" THEN Y(I) =4  ELSE IF K$ ="h" THEN Y(I) =5
164 IF K$ ="j" THEN Y(I) =6  ELSE IF K$ ="t" THEN Y(I) =7  ELSE IF K$ ="y" THEN Y(I) =8
165 IF K$ ="u" THEN Y(I) =9  ELSE IF ASC(K$) =48  THEN Y(I) =10  ELSE IF ASC(K$) =46  THEN Y(I) =0
166 IF Y(I) =10  THEN PRINT "0"; ELSE IF Y(I) =0  THEN PRINT "."; ELSE PRINT Y(I);
167 NEXT I : RESTORE
170 INPUT "炸药：";ZYA : IF ZYA  <>0  THEN ZY  =ZYA
180 GOTO 80
190 INPUT "HP：";NLA(1): IF NLA(1) <>0  THEN NL(1) =NLA(1)
200 INPUT "攻击：";NLA(2): IF NLA(2) <>0  THEN NL(2) =NLA(2)
210 INPUT "防御：";NLA(3): IF NLA(3) <>0  THEN NL(3) =NLA(3)
220 INPUT "敏捷：";NLA(4): IF NLA(4) <>0  THEN NL(4) =NLA(4)
230 INPUT "等级：";LVA : IF LVA  <>0  THEN LV  =LVA
240 INPUT "经验：";JYA : IF JYA  <>0  THEN JY  =JYA
241 INPUT "下级需：";NEXA: IF NEXA  <>0  THEN NEX  =NEXA
250 INPUT "钱：";MONA : IF MONA  <>0  THEN MON =MONA
260 INPUT "武器加攻：";WQGA : IF WQGA  <>0  THEN WQG =WQGA
270 INPUT "武器加敏：";WQMA : IF WQMA  <>0  THEN WQM =WQMA
280 INPUT "衣服加防：";YFFA : IF YFFA  <>0  THEN YFF =YFFA
290 INPUT "衣服加敏：";YFMA : IF YFMA  <>0  THEN YFM =YFMA
300 INPUT "召唤兽能力：";ZHSA : IF ZHSA  <>0  THEN ZHS =ZHSA
310 INPUT "召唤兽等级：";ZHSLA : IF ZHSLA  <>0  THEN ZHSL =ZHSLA
320 INPUT "转生：";VZSA : IF VZSA  <>0  THEN VZS  =VZSA
330 INPUT "秘藉使用：";ZBAA : IF ZBAA  <>0  THEN ZBA  =ZBAA
340 GOTO 80
500 OPEN "SAVE-" +I$  FOR OUTPUT AS #1: CLS : LOCATE 3,6 : PRINT "存档中…"
510 WRITE #1,NA$,ZHSN$,ZHS,ZHSL
520 FOR I =1  TO 10: WRITE #1,Y(I): NEXT I: FOR I =1  TO 4: WRITE #1,NL(I): NEXT I
530 WRITE #1,WQN$,WQG,WQM,MON,ZY,LV,JY,NEX,YFN$,YFF,YFM,VZS,ZBA: CLOSE #1
540 CLS : LOCATE 3,6 : PRINT "存档完毕":K$ =INKEY$
550 GOTO 10


---