- 注册时间
- 2004-12-21
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2004-12-24 18:22:00
|
显示全部楼层
不知道成不成功,如果还没有的话麻烦教我怎么上传,谢谢.先把原代码公布一下,如果上传不成功,大家用BAS转换器转化一下
:
3 GRAPHRINT "请选择您要修改的存档","1.存档一 2.存档二3.存档三 4.存档四5.存档五";
4 U$=INKEY$
5 IF U$="b" THEN I=1:GOTO 15
6 IF U$="n" THEN I=2:GOTO 15
7 IF U$="m" THEN I=3:GOTO 15
8 IF U$="g" THEN I=4:GOTO 15
9 IF U$="h" THEN I=5 :GOTO 15
10 IF U$="q" THEN END ELSE GOTO 4
15 OPEN "DJFMJsave"+STR$(I)FOR INPUT AS#1
20 INPUT#1,A,B,X,Y,MO,DJ,HP,HPP,MP,MPP,JY,JYZ,GGL,Q,R,M(1),N(1),QT,W,V
22 FOR I=2 TO 6:INPUT#1,KP(I),KPP(I):NEXT
23 FOR I=1 TO 6:INPUT#1,YPS(I):NEXT
24 FOR I=1 TO 5:INPUT#1,X(I),Y(I),WZ(X(I),Y(I)):NEXT
30 CLOSE#1
40 PRINT "请选择你要修改的数据①攻击力②HP现值③HP上限④MP现值⑤MP上限⑥人民币⑦经验值⑧等级";
45 PRINT "⑨保存修改";
50 U$=INKEY$:GOTO 110
60 OPEN "DJFMJsave5" FOR OUTPUT AS#1
70 WRITE#1,A,B,X,Y,MO,DJ,HP,HPP,MP,MPP,JY,JYZ,GGL,Q,R,M(1),N(1),QT,W,V
80 FOR I=2 TO 6:WRITE#1,KP(I),KPP(I):NEXT
85 FOR I=1 TO 6:WRITE#1,YPS(I):NEXT
90 FOR I=1 TO 5:WRITE#1,X(I),Y(I),WZ(X(I),Y(I)):NEXT
100 CLOSE#1:GOTO 999
110 IF U$="b" THEN GOTO 200
120 IF U$="n" THEN GOTO 300
130 IF U$="m" THEN GOTO 400
140 IF U$="g" THEN GOTO 500
150 IF U$="h" THEN GOTO 600
160 IF U$="j" THEN GOTO 700
170 IF U$="t" THEN GOTO 800
180 IF U$="y" THEN GOTO 900
190 IF U$="u" THEN GOTO 60 ELSE GOTO 40
200 CLS:INPUT "你要多少就多少,输吧 |
|