游戏名称：MOTADP游戏总大小：31815主程序大小：11917数据库大小：731目前还没能全部抄到电脑上，只能把开头发上来。

哇……发不上来，总被提示有不正当内容。

700 CLS710 PRINT "A:去 B:点数 C:保存","D:交换 E:用 F:信息","G:废除"720 GOSUB 44730 IF CC$="a" THEN 1600733 IF CC$="b" THEN 1000734 IF CC$="g" THEN 3500736 IF CC$="c" THEN 400738 IF CC$="d" THEN 1200740 IF CC$="e" THEN 1300750 IF CC$="f" THEN 1500760 GOTO 720

800 FOR I=1 TO 4805 B=ATT(A,I,4):C=ATT(A,I,5):D=ATT(A,I,1)810 PRINT I;T$(D);" ";TP$(ATT(A,I,6));INT((ATT(a,I,2))^.5);" ";ATT(A,I,3);" ";C;"/";B820 NEXT I830 CC$=INKEY$840 IF CC$="q" THEN M=1: GOTO 890850 IF CC$="a" THEN M=2: GOTO 890860 IF CC$="z" THEN M=3: GOTO 890870 IF CC$="w" THEN M=4: GOTO 890875 IF CC$="c" THEN M=0: GOTO 890885 GOTO 830890 RETURN

900 CLS905 FOR I=PLA TO PLA+2910 PRINT I;T$(PAC(I,1));" ";TP$(PAC(I,5));" ";PAC(I,2);" ";PAC(I,3);PAC(I,4)920 NEXT I930 CC$=INKEY$940 IF CC$="q" THEN W=PLA:GOTO 990945 IF CC$="a" THEN W=PLA+1:GOTO 990948 IF CC$="z" THEN W=PLA+2:GOTO 990950 IF CC$="c" THEN W=0:GOTO 990955 IF CC$="w" THEN PLA=PLA-3958 IF CC$="x" THEN PLA=PLA+3960 IF PLA=25 THEN PLA=1965 IF PLA=-2 THEN PLA=22975 GOTO 900990 RETURN

100 OPEN "MOTADPS" FOR INPUT AS
#1 110 INPUT #
1,PTS115 IF PTS=0 THEN CLOSE #1:GOTO 300120 FOR I=1 TO 15125 INPUT #1,NA$(I)130 FOR Z=1 TO 8133 INPUT #1,ATR(I,Z)140 NEXT Z150 FOR Z=1 TO 6155 INPUT #1,BAS(I,Z)160 NEXT Z170 FOR Z=1 TO 4180 FOR K=1 TO 6185 INPUT #1,ATT(I,Z,K)190 NEXT K200 NEXT Z210 NEXT I220 FOR I=1 TO 24222 FOR Z=1 TO 5224 INPUT #1,PAC(I,Z)226 NEXT Z230 NEXT I235 CLOSE #1240 PRINT "Q:Lv";ATR(1,2);" ";NA$(1);" ";PTS,"A:新游戏","C:退出"250 GOSUB 44260 IF CC$="q" THEN 4800270 IF CC$="a" THEN 300280 IF CC$="c" THEN END290 GOTO 250

1000 GOSUB 6001010 IF S=0 THEN 7001015 IF ATR(S,1)=0 THEN 10001030 PRINT ATR(S,7)1040 PRINT "命:";BAS(S,1);" 攻:";BAS(S,2)1043 PRINT "防:";BAS(S,3);" 灵:";BAS(S,4)1046 PRINT "德:";BAS(S,5);" 速:";BAS(S,6)1056 INPUT A,B1066 IF A*B=0 THEN 10001076 IF B>ATR(S,7) THEN 10301078 IF B<0 THEN 10301080 ATR(S,7)=ATR(S,7)-B:BAS(S,A)=BAS(S,A)+B1090 GOTO 10101200 GOSUB 6001210 IF S=0 THEN 7001220 A=S1225 GOSUB 6001230 IF S=0 THEN 12001236 IF A=S THEN 12251240 FOR I=1 TO 81250 SWAP ATR(A,I),ATR(S,I)1255 NEXT I1260 FOR I=1 TO 61265 SWAP BAS(A,I),BAS(S,I)1270 NEXT I1275 FOR I=1 TO 41280 FOR K=1 TO 61285 SWAP ATT(A,I,K),ATT(S,I,K)1287 NEXT K1290 NEXT I1291 SWAP NA$(A),NA$(S)1295 GOTO 1200……

大家能看出来，我是PM发烧友，Exbo.pm = Exbo "Serious" Cooope

对了，忘把LOG发上来了……最初版本：MOTAPM v1.00版本更新：！新增组件：MOTADZ v1.00！设置Boss层！经验值修改！增加了随机数打破！增加的Boss层！新增组件：MOTABOX v1.00！新增组件：MOTAENE v1.00！文件压缩！引入即时存档！组件：MOTADZ引入即时存档！修正了重新游戏造成的BUG！增加的可携带精灵数量与道具数量！修正了由于GOSUB语句导致的FOR循环不正常运行问题（子程序中使用了与主程序相同对象的FOR循环）！完成了汉化（一开始是用纯英文写的）！引入死亡模式！引入努力值！引入点数复活！修补了即时存档和删除即时存档失败BUG（记忆体溢出但仍执行程序导致WRITE语句假执行？）！引入了单系双攻体系（DP），MOTAPM升级为MOTADP v2.00（累死我了！升级程序，升级存档，数据扩充，参数调整）！MOTADZ 升级到 v2.00！MOTAENE 升级到 v2.00！引入了KO经验增加！显示等级封顶！删除了注解！修正了属性相克表的一个错误（原先那个不知道那里抄来的……）