0 :
20 GRAPH
30 LOCATE 2,4:PRINT "Ѫ V2.0":LOCATE 3,9:PRINT "Now":LOCATE 4,6:PRINT "Loading..."
40 BOX 23,15,130,31,1,3
50 BOX 23,31,130,63,0,1
60 DIM ZBZL1$(51):DIM ZBZL2%(51,13):DIM MAP$(50,25):DIM PZB%(8):DIM PBB%(30)
70 P=1:DIM PJN%(2,4):OPEN "Mir_ZB1" FOR INPUT AS #1
80 IF EOF(1) THEN 110
90 INPUT #1,ZBZL1$(P):P=P+1
100 GOTO 80
110 CLOSE #1
120 OPEN "Mir_ZB2" FOR INPUT AS #1
130 IF EOF(1) THEN 
140 FOR P=1 TO 51
150 FOR O=1 TO 13
160 INPUT #1,ZBZL2%(P,O)
170 NEXT :NEXT :CLOSE #1
180 OPEN "Mir_MAP" FOR INPUT AS #1
190 FOR A=1 TO 25
200 INPUT #1,Q$
210 FOR B=1 TO 50
220 IF MID$(Q$,B,1)="T" THEN MAP$(B,A)="": GOTO 270
230 IF MID$(Q$,B,1)="W" THEN MAP$(B,A)="": GOTO 270
240 IF MID$(Q$,B,1)="S" THEN MAP$(B,A)="": GOTO 270
250 IF MID$(Q$,B,1)="C" THEN MAP$(B,A)="": GOTO 270
260 IF MID$(Q$,B,1)="K" THEN MAP$(B,A)=""
270 NEXT 
280 NEXT :CLOSE #1
500 REM ʼ˵
510 CLS
1050 REM Ϸ¼
1060 CLS:TEXT 
1070 PRINT "    û¼"
1080 INPUT "û:";ZH$ 
1085 IF LEN(ZH$)=0 THEN CLS:GRAPH: GOTO 500
1090 INPUT ":";C$ 
1100 CLS:PRINT "Loading..."
1101 OPEN "Mir_"+ZH$ FOR RANDOM AS #1
1102 IF LOF(1)=0 THEN CLS:PRINT "ID!":W$=INKEY$:CLOSE #1: GOTO 1050
1103 CLOSE #1
1123 OPEN "Mir_"+ZH$ FOR INPUT AS #1
1125 INPUT #1,CODE$
1130 CLOSE #1
1140 IF C$<>CODE$ THEN CLS:PRINT "":W$=INKEY$:CLS:GRAPH: GOTO 500
1168 CLS:GRAPH
1169 LOCATE 2,1:PRINT "                "
1170 LOCATE 4,1:PRINT "Ѫ                "
1180 BOX 1,0,15,80,1,2:BOX 145,0,160,80,1,2:BOX 17,0,143,80,1
1190 FOR A=80 TO 50 STEP -1
1200 LINE A,0,A,80,0:LINE 160-A,0,160-A,80,0
1210 LINE 17,0,80,80-A,0:LINE 17,80,80,A,0
1220 LINE 143,0,80,80-A,0:LINE 143,80,80,A,0
1230 NEXT 
1240 OPEN "Mir_"+ZH$ FOR INPUT AS #1
1250 INPUT #1,CODE$,PNAME$,PTIME%,PJOB%,PSEX%
1260 INPUT #1,PLEV%,PEXP%,PNEXP%,PAC1%,PAC2%,PMAC1%,PMAC2%,PDC1%,PDC2%,PMC1%,PMC2%,PSC1%,PSC2%
1270 INPUT #1,PHP%,PFHP%,PMP%,PFMP%,PSPEED%,PEXACT%,PWRIST%,PFWRIST%,PHEAVY%,PFHEAVY%,PMONEY
1290 FOR A=1 TO 8
1300 INPUT #1,PZB%(A)
1310 NEXT 
1320 FOR B=1 TO 30
1330 INPUT #1,PBB%(B)
1340 NEXT 
1341 FOR A=1 TO 4: FOR B=1 TO 2
1342 INPUT #1,PJN%(B,A):NEXT :NEXT 
1350 CLOSE #1
1360 CLS:IF PSEX%=0 THEN PLOGO$="" ELSE PLOGO$=""
1370 PRINT "˺ų";PTIME%;"","",":";PNAME$,"ȼ:";PLEV%,"ְҵ:";
1375 IF PSEX%=0 THEN PRINT ""; ELSE PRINT "Ů";
1376 IF PJOB%=0 THEN PRINT "ʿ"; ELSE IF PJOB%=1 THEN PRINT "ħʦ"; ELSE PRINT "ʿ";
1380 BOX 1,0,160,80:BOX 1,1,159,15,1,2:W$=INKEY$
1390 REM ʼϷ
1400 CLS:PMX%=21:PMY%=21:PX%=5:PY%=3:PNX%=PX%:PNY%=PY%
1410 FOR A=PMY% TO PMY%+4 
1420 FOR B=PMX% TO PMX%+9
1430 IF B=PMX%+9 AND A=PMY%+4 THEN 1460 ELSE PRINT MAP$(B,A);
1440 NEXT :NEXT 
1450 LOCATE 5,18:PRINT MAP$(PMX%+9,PMY%+4);
1460 LOCATE PY%,2*PX%-1:PRINT PLOGO$;
1470 M$=INKEY$
1480 IF M$="w" THEN PNY%=PNY%-1
1490 IF M$="s" THEN PNY%=PNY%+1
1500 IF M$="a" THEN PNX%=PNX%-1
1509 IF M$="z" THEN 5700
1510 IF M$="d" THEN PNX%=PNX%+1
1511 IF ASC(M$)=27 THEN END
1512 IF ASC(M$)=28 THEN 1800
1513 IF ASC(M$)=29 THEN 2800
1514 IF ASC(M$)=30 THEN 3500
1515 IF ASC(M$)=31 THEN GOSUB 5500
1520 IF MAP$(PMX%+PNX%-1,PMY%+PNY%-1)<>"" THEN PNX%=PX%:PNY%=PY%: GOTO 1470
1530 IF PNX%=11 THEN PNX%=1:PX%=1:PMX%=PMX%+10:CLS: GOTO 1410
1540 IF PNX%=0 THEN PNX%=10:PX%=10:PMX%=PMX%-10:CLS: GOTO 1410
1550 IF PNY%=6 THEN PNY%=1:PY%=1:PMY%=PMY%+5:CLS: GOTO 1410
1560 IF PNY%=0 THEN PNY%=5:PY%=5:PMY%=PMY%-5:CLS: GOTO 1410
1570 LOCATE PY%,2*PX%-1:PRINT "";:PX%=PNX%:PY%=PNY%
1580 LOCATE PY%,2*PX%-1:PRINT PLOGO$;
1590 YW=INT(RND(1)*100)
1600 IF YW<90 THEN 1470
1610 IF YW<98 THEN 3500 ELSE 1620
1620 CLS:JDX%=INT(RND(1)*46)
1625 IF JDX%=20 THEN 1620
1630 PRINT "˹ʺ"," ";ZBZL1$(JDX%)
1640 FOR A=1 TO 30 
1650 IF PBB%(A)=0 THEN PBB%(A)=JDX%: GOTO 1670
1660 NEXT 
1670 W$=INKEY$:CLS: GOTO 1410
1800 REM 鿴
1810 CLS
1820 PRINT "      **鿴**      ","1.״̬","2.װ","3.Ʒ","4.";
1830 BOX 1,0,160,80:BOX 1,1,159,15,1,2:W$=INKEY$
1840 IF W$="b" THEN 1890
1850 IF W$="n" THEN 2020
1860 IF W$="m" THEN 2080
1870 IF W$="g" THEN 2600
1875 IF ASC(W$)=113 THEN CLS: GOTO 1410
1880 GOTO 1810
1890 CLS:PRINT "˺ʣ";PTIME%;""
1891 PRINT ":";PNAME$
1892 PRINT "ȼ:";PLEV%
1893 PRINT "ְҵ:";:IF PSEX%=0 THEN PRINT ""; ELSE PRINT "Ů";
1895 IF PJOB%=0 THEN PRINT "ʿ" ELSE IF PJOB%=1 THEN PRINT "ħʦ" ELSE PRINT "ʿ"
1898 PRINT ":";PEXP%;"/";PNEXP%;
1899 W$=INKEY$:CLS
1900 PRINT " ";PAC1%;"-";PAC2%
1910 PRINT "ħ ";PMAC1%;"-";PMAC2%
1920 PRINT " ";PDC1%;"-";PDC2%
1930 PRINT "ħ ";PMC1%;"-";PMC2%
1940 PRINT " ";PSC1%;"-";PSC2%;
1950 W$=INKEY$:CLS
1960 PRINT "ֵ ";PHP%;"/";PFHP%
1970 PRINT "ħֵ ";PMP%;"/";PFMP%
1980 PRINT ":";PSPEED%;"  ׼ȷ:";;PEXACT%
1990 PRINT ":";PFWRIST%;"  Ǯ:";PMONEY
2000 PRINT ":";PHEAVY%;"/";PFHEAVY%;
2010 W$=INKEY$: GOTO 1800
2020 CLS
2030 PRINT "    **װ**","װ:"
2040 FOR A=1 TO 8
2050 IF PZB%(A)<>0 THEN PRINT ZBZL1$(PZB%(A));"  ";
2060 NEXT 
2065 BOX 1,0,160,80:BOX 1,1,159,15,1,2
2070 W$=INKEY$:CLS: GOTO 1800
2080 REM 
2090 CLS
2100 PRINT "    **鿴**"
2120 FOR A=1 TO 30
2130 IF PBB%(A)>=1 AND PBB%(A)<=20 THEN PRINT "";
2140 IF PBB%(A)>=21 AND PBB%(A)<=35 THEN PRINT "";
2150 IF PBB%(A)>=36 AND PBB%(A)<=51 THEN PRINT "";
2160 IF PBB%(A)=0 THEN PRINT "";
2170 NEXT 
2180 CHX=1:CHY=1
2190 LOCATE 5,1:PRINT ZBZL1$(PBB%((CHY-1)*10+CHX));"         ";
2200 BOX (CHX-1)*16,CHY*16,CHX*16-1,CHY*16+15,1,2
2201 W$=INKEY$
2205 BOX (CHX-1)*16,CHY*16,CHX*16-1,CHY*16+15,1,2
2206 IF ASC(W$)=13 THEN 2300
2210 IF ASC(W$)=20 THEN CHY=CHY-1
2220 IF ASC(W$)=21 THEN CHY=CHY+1
2230 IF ASC(W$)=23 THEN CHX=CHX-1
2235 IF ASC(W$)=113 THEN CLS:1800
2236 IF ASC(W$)=29 THEN 2680
2240 IF ASC(W$)=22 THEN CHX=CHX+1
2250 IF CHX=11 THEN CHX=1
2260 IF CHX=0 THEN CHX=10
2270 IF CHY=4 THEN CHY=1
2280 IF CHY=0 THEN CHY=3
2285 LOCATE 5,1:PRINT ZBZL1$(PBB%((CHY-1)*10+CHX));"          ";
2290 GOTO 2200
2300 CLS
2310 PRINT "     **װ** ";:WP%=PBB%((CHY-1)*10+CHX):LX%=0:JJ%=PHEAVY%:YY%=PFHEAVY%:
2320 WPP%=0: FOR A=1 TO 8
2330 IF A/2=INT(A/2) THEN LOCATE A/2+1,11 ELSE LOCATE (A+1)/2+1,1
2340 PRINT A;".";ZBZL1$(PZB%(A));
2350 NEXT 
2355 BOX 1,0,160,80:BOX 1,1,159,15,1,2
2360 W$=INKEY$
2361 IF ASC(W$)=113 THEN 2080 
2370 IF W$="b" AND WP%<=20 AND PFWRIST%>=ZBZL2%(WP%,13) THEN WPP%=1:LX%=1:2420
2380 IF W$="n" AND WP%>20 AND WP%<=35 AND JJ%+ZBZL2%(WP%,13)<=YY% THEN WPP%=2 :2420
2390 IF W$="m" AND WP%>35 AND PHEAVY%+ZBZL2%(WP%,13)<=PFHEAVY% THEN WPP%=3:2420
2391 IF W$="g" AND WP%>35 AND PHEAVY%+ZBZL2%(WP%,13)<=PFHEAVY% THEN WPP%=4:2420
2392 IF W$="h" AND WP%>35 AND PHEAVY%+ZBZL2%(WP%,13)<=PFHEAVY% THEN WPP%=5:2420
2393 IF W$="j" AND WP%>35 AND PHEAVY%+ZBZL2%(WP%,13)<=PFHEAVY% THEN WPP%=6:2420
2394 IF W$="t" AND WP%>35 AND PHEAVY%+ZBZL2%(WP%,13)<=PFHEAVY% THEN WPP%=7:2420
2395 IF W$="y" AND WP%>35 AND PHEAVY%+ZBZL2%(WP%,13)<=PFHEAVY% THEN WPP%=8:2420
2404 IF WP%=0 THEN 2420
2405 GOTO 2360
2420 CLS:PRINT "Ե..."
2421 IF W$="b" THEN WPP%=1
2422 IF W$="n" THEN WPP%=2
2423 IF W$="m" THEN WPP%=3
2424 IF W$="g" THEN WPP%=4
2425 IF W$="h" THEN WPP%=5
2426 IF W$="j" THEN WPP%=6
2427 IF W$="t" THEN WPP%=7
2428 IF W$="y" THEN WPP%=8
2430 PAC1%=PAC1%-ZBZL2%(PZB%(WPP%),1)
2431 PAC2%=PAC2%-ZBZL2%(PZB%(WPP%),2)
2432 PMAC1%=PMAC1%-ZBZL2%(PZB%(WPP%),3)
2433 PMAC2%=PMAC2%-ZBZL2%(PZB%(WPP%),4)
2434 PDC1%=PDC1%-ZBZL2%(PZB%(WPP%),5)
2435 PDC2%=PDC2%-ZBZL2%(PZB%(WPP%),6)
2436 PMC1%=PMC1%-ZBZL2%(PZB%(WPP%),7)
2437 PMC2%=PMC2%-ZBZL2%(PZB%(WPP%),8)
2438 PSC1%=PSC1%-ZBZL2%(PZB%(WPP%),9)
2439 PSC2%=PSC2%-ZBZL2%(PZB%(WPP%),10)
2440 PSPEED%=PSPEED%-ZBZL2%(PZB%(WPP%),11)
2450 PEXACT%=PEXACT%-ZBZL2%(PZB%(WPP%),12):IF LX%=1 THEN 2460
2451 PHEAVY%=PHEAVY%-ZBZL2%(PZB%(WPP%),13)
2460 PAC1%=PAC1%+ZBZL2%(WP%,1)
2470 PAC2%=PAC2%+ZBZL2%(WP%,2)
2480 PMAC1%=PMAC1%+ZBZL2%(WP%,3)
2490 PMAC2%=PMAC2%+ZBZL2%(WP%,4)
2500 PDC1%=PDC1%+ZBZL2%(WP%,5)
2510 PDC2%=PDC2%+ZBZL2%(WP%,6)
2520 PMC1%=PMC1%+ZBZL2%(WP%,7)
2530 PMC2%=PMC2%+ZBZL2%(WP%,8)
2540 PSC1%=PSC1%+ZBZL2%(WP%,9)
2550 PSC2%=PSC2%+ZBZL2%(WP%,10)
2560 PSPEED%=PSPEED%+ZBZL2%(WP%,11)
2570 PEXACT%=PEXACT%+ZBZL2%(WP%,12):IF LX%=1 THEN 2585
2580 PHEAVY%=PHEAVY%+ZBZL2%(WP%,13)
2585 SWAP PBB%((CHY-1)*10+CHX),PZB%(WPP%)
2590 CLS: GOTO 2080
2600 REM 
2610 CLS
2620 PRINT "      ****"
2630 FOR A=1 TO 3
2640 PRINT A;". ";PJN%(1,A);"/";PJN%(2,A);""
2650 NEXT 
2655 PRINT "4. ";PJN%(1,4);"/";PJN%(2,4);"";
2660 BOX 1,0,160,80:BOX 1,1,159,15,1,2
2670 W$=INKEY$:CLS: GOTO 1800
2680 REM Ӷ
2690 LOCATE 5,1:PRINT "ȷ϶?(Y/N)N";
2700 W$=INKEY$
2710 IF W$="y" THEN PBB%((CHY-1)*10+CHX)=0
2720 CLS: GOTO 2080
2800 REM ̵
2810 CLS
2820 PRINT "      **̵**","","1.ҩ","2.ѧϰ","3.";
2830 BOX 1,0,160,80:BOX 1,1,159,15,1,2
2840 W$=INKEY$
2850 IF W$="b" THEN 2880
2860 IF W$="n" THEN 2980
2861 IF W$="m" THEN 3200
2865 IF ASC(W$)=113 THEN CLS:1410
2870 GOTO 2840
2880 CLS
2890 PRINT "      **ҩ**","1.Ѫ","2.ħ"
2895 BOX 1,0,160,80:BOX 1,1,159,15,1,2
2900 W$=INKEY$
2910 IF W$="b" THEN BLOOD%=PFHP%-PHP%:2940
2920 IF W$="n" THEN BLOOD%=PFMP%-PMP%:2940
2925 IF ASC(W$)=113 THEN CLS:2800
2930 GOTO 2900
2940 IF PMONEY<BLOOD*5 THEN CLS:PRINT "ûǮ,!":W$=INKEY$: GOTO 2800
2950 IF W$="b" THEN PMONEY=PMONEY-BLOOD%*5:PHP%=PFHP%:2970
2960 PMONEY=PMONEY-BLOOD%*5:PMP%=PFMP%
2970 CLS:PRINT "ok!":W$=INKEY$: GOTO 2800
2980 REM 
2990 CLS:PRINT "      ****"
3000 IF PJOB%=0 THEN PRINT "1.ɱ","2.ɱ","3.䵶","4.һ𽣷";
3010 IF PJOB%=1 THEN PRINT "1.׵","2.׹","3.ʥ","4.Х";
3020 IF PJOB%=2 THEN PRINT "1.","2.ٻ","3.ħ","4.ٻ";
3030 BOX 1,0,160,80:BOX 1,1,159,15,1,2
3040 W$=INKEY$
3050 IF W$="b" THEN BOOK%=1 :NEED%=10:3080
3055 IF W$="n" THEN BOOK%=2 :NEED%=15:3080
3060 IF W$="m" THEN BOOK%=3 :NEED%=20:3080
3065 IF W$="g" THEN BOOK%=4 :NEED%=25:3080
3066 IF ASC(W$)=113 THEN CLS:2800
3075 GOTO 3040
3080 IF PLEV%<NEED% THEN CLS:PRINT "ĵȼ,ļ!":W$=INKEY$:2980 
3090 IF PJN%(2,BOOK%)<>0 THEN CLS:PRINT "Ѿѧ!":W$=IKEY$:2980
3100 IF PMONEY<BOOK%*NEED%*NEED%*10 THEN CLS:PRINT "Ǯ!":W$=INKEY$:2980
3110 CLS
3120 PMONEY=PMONEY-BOOK%*NEED%*NEED%*10:PJN%(1,BOOK%)=0:PJN%(2,BOOK%)=1
3130 PRINT "ѧϰɹ!"
3140 W$=INKEY$:CLS: GOTO 2980
3200 REM 
3210 CLS
3220 PRINT "      ****"
3230 FOR A=1 TO 3
3240 PRINT A;". ";PJN%(1,A);"/";PJN%(2,A);""
3250 NEXT 
3260 PRINT "4. ";PJN%(1,4);"/";PJN%(2,4);"";
3270 BOX 1,0,160,80:BOX 1,1,159,15,1,2
3280 W$=INKEY$
3290 IF ASC(W$)=113 THEN 2800
3300 IF W$="b" THEN LG%=1:3330
3305 IF W$="n" THEN LG%=2:3330
3310 IF W$="m" THEN LG%=3:3330
3315 IF W$="g" THEN LG%=4:3330
3320 GOTO 3280
3330 IF PJN%(2,LG%)=0 THEN 3280
3335 IF PJN%(2,LG%)>=3 THEN CLS:PRINT "߾ˣ";:W$=INKEY$: GOTO 3200
3340 CLS:PRINT "      ****"," ","   ";PJN%(2,LG%)+1;""
3350 BOX 1,0,160,80:BOX 1,1,159,15,1,2
3370 BOX 20,50,140,55
3380 PJN%(1,LG%)=PJN%(1,LG%)+1
3400 IF PMONEY-PJN%(2,LG%)*10<0 THEN CLS:PRINT "     ûǮ!":W$=INKEY$:3200
3405 PMONEY=PMONEY-PJN%(2,LG%)*10
3410 IF PJN%(1,LG%)>=PJN%(2,LG%)*10 THEN PJN%(2,LG%)=PJN%(2,LG%)+1:PJN%(1,LG%)=0:CLS:3440
3420 BOX 20,50,20+(PJN%(1,LG%)/PJN%(2,LG%)/10)*120,55,1,1
3430 GOTO 3370
3440 CLS:PRINT "  (Y/N)Y":W$=INKEY$:IF W$="n" THEN CLS:3200 
3450 GOTO 3335
3500 REM ս
3510 E%=INT(RND(1)*PLEV%)*4
3520 IF E%<6 THEN 3530 ELSE 3540
3530 ENAME$="":ELOGO$="":EHP%=25:EA%=10:ED%=2:ES%=3:EE%=3:EALX=0: GOTO 3750
3540 IF E%<10 THEN 3550 ELSE 3560
3550 ENAME$="֩":ELOGO$="":EHP%=40:EA%=13:ED%=2:ES%=7:EE%=9:EALX=1: GOTO 3750
3560 IF E%<50 THEN 3570 ELSE 3580
3570 ENAME$="ʬ":ELOGO$="":EHP%=180:EA%=20:ED%=7:ES%=3:EE%=13:EALX=0: GOTO 3750
3580 IF E%<55 THEN 3590 ELSE 3600
3590 ENAME$="ʬ":ELOGO$="":EHP%=800:EA%=30:ED%=15:ES%=5:EE%=15:EALX=0: GOTO 3750
3600 IF E%<65 THEN 3610 ELSE 3620
3610 ENAME$="":ELOGO$="":EHP%=380:EA%=28:ED%=10:ES%=7:EE%=15:EALX=1: GOTO 3750
3620 IF E%<75 THEN 3630 ELSE 3640
3630 ENAME$="ʿ":ELOGO$="":EHP%=1000:EA%=34:ED%=2:ES%=10:EE%=17:EALX=0: GOTO 3750
3640 IF E%<80 THEN 3650 ELSE 3660
3650 ENAME$="":ELOGO$="":EHP%=2500:EA%=50:ED%=28:ES%=20:EE%=15:EALX=0: GOTO 3750
3660 IF E%<85 THEN 3670 ELSE 3680
3670 ENAME$="":ELOGO$="":EHP%=3000:EA%=58:ED%=30:ES%=24:EE%=15:EALX=1: GOTO 3750
3680 IF E%<95 THEN 3690 ELSE 3700
3690 ENAME$="":ELOGO$="":EHP%=1000:EA%=29:ED%=18:ES%=8:EE%=12:EALX=0: GOTO 3750
3700 IF E%<110 THEN 3710 ELSE 3720
3710 ENAME$="깭":ELOGO$="":EHP%=500:EA%=20:ED%=15:ES%=4:EE%=20:EALX=0: GOTO 3750
3720 IF E%<120 THEN 3730 ELSE 3740
3730 ENAME$="ħ":ELOGO$="":EHP%=5000:EA%=100:ED%=50:ES%=20:EE%=20:EALX=1: GOTO 3750
3740 CLS:PRINT "";E%;"":PMONEY=PMONEY+E%:W$=INKEY$:CLS: GOTO 1410
3750 REM ʼս
3755 EFHP%=EHP%:PMOVE%=0:EMOVE%=0:PMOVEP%=0:EMOVEP%=0:STOP%=0
3760 CLS
3770 PRINT "";ENAME$,ENAME$;":С,!":W$=INKEY$:CLS
3780 PRINT "HP:";PHP%;:LOCATE 1,11:PRINT "HP:";EHP%
3800 PRINT "Move":LOCATE 2,11:PRINT "Move"
3810 PRINT PLOGO$:LOCATE 3,19:PRINT ELOGO$
3820 BOX 34,20,78,27
3830 BOX 114,20,158,27
3840 PMOVE%=PMOVE%+PSPEED%/2
3850 EMOVE%=EMOVE%+ES%/2
3860 BOX 35,21,77,26,1,0
3870 BOX 115,21,157,26,1,0
3875 IF PMOVE%>=44 THEN PMOVE%=44
3876 IF EMOVE%>=44 THEN EMOVE%=44
3880 BOX 34,20,34+PMOVE%,27,1,1
3890 BOX 114,20,114+EMOVE%,27,1,1
3900 IF PMOVE%=44 THEN PMOVE%=0 :3930
3910 IF EMOVE%=44 THEN EMOVE%=0:4680
3920 GOTO 3820
3930 REM ҹ
3935 LOCATE 5,7:PRINT "ͨ";:CH%=1
3940 FOR A=1 TO 4
3950 BOX 41+(A*14),53,48+(A*14),60
3960 NEXT 
3970 BOX 41+(1*14),53,48+(1*14),60,1,1
3980 W$=INKEY$
3985 BOX 42+(CH%*14),54,47+(CH%*14),59,1,0
3990 IF W$="o" THEN CH%=CH%-1
4000 IF W$="p" THEN CH%=CH%+1
4005 IF ASC(W$)=13 THEN 4050
4010 IF CH%=5 THEN CH%=1
4020 IF CH%=0 THEN CH%=4
4030 BOX 41+(CH%*14),53,48+(CH%*14),60,1,1
4031 IF CH%=1 THEN LOCATE 5,7:PRINT "ͨ";
4032 IF CH%=2 THEN LOCATE 5,7:PRINT "й";
4033 IF CH%=3 THEN LOCATE 5,7:PRINT "Ԯ";
4034 IF CH%=4 THEN LOCATE 5,7:PRINT "    ";
4035 FOR A=1 TO 4
4036 BOX 41+(A*14),53,48+(A*14),60:NEXT 
4039 BOX 41+(CH%*14),53,48+(CH%*14),60,1,1
4040 GOTO 3980 
4050 IF CH%=1 THEN 4060 ELSE 4090
4060 BEAT%=INT(RND(1)*(PDC2%-PDC1%))+PDC1%-ED%
4070 IF BEAT%<=0 THEN BEAT%=0
4080 GOTO 4300
4090 IF CH%=2 THEN 4100
4095 IF CH%=3 THEN 4430
4096 IF CH%=4 THEN 4520
4100 LOCATE 5,1
4110 FOR A=1 TO 3
4120 PRINT PJN%(2,A);" ";
4130 NEXT :PRINT PJN%(2,4);"";
4140 W$=INKEY$
4150 IF ASC(W$)=113 THEN LOCATE 5,1:PRINT "                   ";:3930
4160 IF W$="b" AND PJN%(2,1)<>0 THEN 4170 ELSE 4200
4170 IF PJOB%=0 THEN BEAT%=INT(RND(1)*(PDC2%-PDC1%))+PDC1%*PJN%(2,1):4300
4180 IF PJOB%=1 THEN BEAT%=INT(RND(1)*(PMC2%-PMC1%))+PMC1%*4*PJN%(2,1):4300
4190 IF PJOB%=2 THEN BEAT%=INT(RND(1)*(PSC2%-PSC1%))+PSC1%*3*PJN%(2,1):4300
4200 IF W$="n" AND PJN%(2,2) THEN 4210 ELSE 4240
4210 IF PJOB%=0 THEN BEAT%=INT((PDC2%+PDC1%)/2)+PDC2%*2*PJN%(2,2):4300
4220 IF PJOB%=1 THEN BEAT%=INT((PMC2%+PMC1%)/2)+PMC2%*4*PJN%(2,2):4300
4230 IF PJOB%=2 THEN BEAT%=INT((PSC2%+PSC1%)/2)+PSC2%*3*PJN%(2,2):4300
4240 IF W$="m" AND PJN%(2,3)<>0 AND PMP%>=100 THEN 4250 ELSE 4260
4250 GOTO 4570
4260 IF W$="g" AND PJN%(2,4)<>0 THEN 4270 ELSE 4295
4270 IF PJOB%=0 THEN BEAT%=PDC2%*4*PJN%(2,4):4300
4280 IF PJOB%=1 THEN BEAT%=PMC2%*8*PJN%(2,4):4300
4290 IF PJOB%=2 THEN BEAT%=PSC2%*6*PJN%(2,4):4300
4295 GOTO 4140
4300 REM 
4304 BOX 1,49,160,80,1,0
4305 LOCATE 4,1:PRINT "";ZBZL1$(PZB%(1));"þȫ";ENAME$;"ȥ";
4310 ZQ%=INT(RND(1)*25)
4315 FOR A=1 TO 2000:NEXT 
4320 IF ZQ%>PEXACT% THEN 4325 ELSE 4360
4325 BOX 1,49,160,80,1,0
4330 LOCATE 4,1:PRINT "ϧƫ˼                  ";
4350 FOR A=1 TO 2000:NEXT :LOCATE 4,1:PRINT "              ";: GOTO 3820
4360 BOX 1,49,160,80,1,0
4370 LOCATE 4,1:PRINT "                      ";
4380 EHP%=EHP%-BEAT%
4390 LOCATE 3,19:PRINT "";
4400 FOR A=1 TO 2000:NEXT 
4405 LOCATE 1,11:PRINT "      ";
4410 LOCATE 1,11:PRINT "HP:";EHP%;" ";:LOCATE 3,19:PRINT ELOGO$;
4420 LOCATE 4,1:PRINT "               ";:IF EHP%<=0 THEN 5000 ELSE 3820
4430 REM 
4440 LOCATE 5,1:PRINT "   1.Ѫ  2.ħ";
4450 W$=INKEY$
4460 IF ASC(W$)=113 THEN LOCATE 5,1:PRINT "                   ";:3930
4470 IF W$="b" AND PMONEY>=(PFHP%-PHP%)*5 THEN 4480 ELSE 4490
4480 PMONEY=PMONEY-(PFHP%-PHP%)*5:PHP%=PFHP%
4490 IF W$="n" AND PMONEY>=(PFMP%-PMP%)*5 THEN 4500 ELSE 4510
4500 PMONEY=PMONEY-(PFMP%-PMP%)*5:PMP%=PFMP%
4510 LOCATE 1,1:PRINT "HP:";PHP%;:LOCATE 5,1:PRINT "                 ";: GOTO 3820
4520 REM 
4530 TP%=RND(1)*120:IF TP%>RND(1)*E% THEN 1400
4540 LOCATE 4,1:PRINT "ת,";ENAME$;"һץ˻";
4550 FOR A=1 TO 2000:NEXT :LOCATE 4,1:PRINT "                                      ";
4560 GOTO 3820
4570 REM ⼼
4580 LOCATE 4,1:PRINT "д,֪˵ʲô...  ";
4590 FOR A=1 TO 2000:NEXT 
4595 LOCATE 4,1:PRINT "                                       ";
4600 ZQ%=INT(RND(1)*25)
4610 IF ZQ%<=PEXACT% THEN 4620 ELSE 4640 
4620 LOCATE 4,1:PRINT ",ķ";ENAME$;"ס  ";:STOP%=PJN%(2,3)
4630 FOR A=1 TO 2000:NEXT : GOTO 4660
4640 LOCATE 4,1:PRINT "гһ⻷,";ENAME$;" ";
4650 FOR A=1 TO 2000:NEXT 
4660 LOCATE 4,1:PRINT "                                       ";
4670 GOTO 3820
4680 REM ﹥
4685 IF STOP%>0 THEN 4830
4690 LOCATE 4,1:PRINT ENAME$;",      ";
4700 FOR A=1 TO 2000:NEXT 
4710 IF RND(1)*25<=EE% THEN 4720 ELSE 4810
4720 LOCATE 4,1:PRINT "                          ";
4730 LOCATE 3,1:PRINT "";
4740 IF EALX=0 THEN BEAT%=EA%-(RND(1)*(PAC2%-PAC1%)+PAC1%)
4750 IF EALX=1 THEN BEAT%=EA%-(RND(1)*(PMAC2%-PMAC1%)+PMAC1%)
4760 IF BEAT%<=0 THEN BEAT%=0
4770 PHP%=PHP%-BEAT%
4775 FOR A=1 TO 2000:NEXT :LOCATE 3,1:PRINT PLOGO$:LOCATE 1,1:PRINT "        ";
4777 LOCATE 1,1:PRINT "HP:";PHP%;
4780 IF PHP%<=0 THEN  GOTO 4785 ELSE 4660
4785 FOR A=1 TO 2000:NEXT : GOTO 4860
4790 FOR A=1 TO 2000:NEXT 
4800 LOCATE 3,1:PRINT PLOGO$;: GOTO 4660
4810 LOCATE 4,1:PRINT "һ                  ";
4820 FOR A=1 TO 2000:NEXT : GOTO 4660
4830 STOP%=STOP%-1
4840 LOCATE 4,1:PRINT ENAME$;"ڴľ!                 ";
4850 FOR A=1 TO 2000:NEXT : GOTO 4660
4860 REM 
4870 CLS
4880 LOCATE 2,1:PRINT "ǰһ,ʲô֪";
4890 FOR A=1 TO 40
4900 BOX 1,A,160,A,1,2
4910 BOX 1,81-A,160,81-A,1,2
4920 FOR B=1 TO 200:NEXT :NEXT 
4930 FOR A=1 TO 30
4940 IF RND(1)*100<10 THEN PBB%(A)=0
4950 NEXT 
4960 PHP%=1
4970 FOR A=1 TO 1970:NEXT :CLS: GOTO 1410
5000 REM 
5010 CLS:PRINT "ȫʤ","þ";EFHP%;"":W$=INKEY$:CLS:PRINT "ﱬ:"
5015 PRINT EFHP%;" ":PMONEY=PMONEY+EFHP%
5020 FOR A=1 TO E%/12
5030 IF RND(1)*100<10 THEN 5035 ELSE 5070
5035 PRINT ZBZL1$(INT(RND(1)*E%/2.4)+1);" ":B=1
5055 IF B=31 THEN 5070
5056 IF PBB%(B)=0 THEN PBB%(B)=INT(RND(0)*E%/2.4+1):5070
5060 B=B+1: GOTO 5055
5070 NEXT A
5075 FOR A=1 TO 2000:NEXT 
5080 PEXP%=PEXP%+EFHP%
5090 IF PEXP%>=PNEXP% THEN 5100 ELSE W$=INKEY$:CLS:1410
5100 CLS:PRINT "!";
5105 PEXP%=PEXP%-PNEXP%:PNEXP%=INT(PNEXP%*1.2):PLEV%=PLEV%+1
5110 PFWRIST%=INT(PFWRIST%*1.1)
5120 PFHEAVY%=INT(PFHEAVY%*1.1)
5130 IF PJOB%=0 THEN PDC1%=PDC1%+1:PDC2%=PDC2%+2:PAC1%=PAC1%+1:PAC2%=PAC2%+1:5200
5140 IF PJOB%=2 THEN PMC1%=PMC1%+2:PMC2%=PMC2%+3:PMAC1%=PMAC1%+1:PMAC2%=PMAC2%+1:5200
5150 IF PJOB%=2 THEN PSC1%=PSC1%+1:PSC2%=PSC2%+2:PMAC1%=PMAC1%+1:PMAC2%=PMAC2%+1:5200
5200 PFHP%=INT(PFHP%*1.2):PFMP%=INT(PFMP%*1.2)
5210 PHP%=PFHP%:PMP%=PFMP%:W$=INKEY$:CLS: GOTO 1410
5500 REM SAVE 
5510 CLS
5520 PRINT "Saving..."
5530 OPEN "Mir_"+ZH$ FOR OUTPUT AS #1
5540 WRITE #1,CODE$,PNAME$,PTIME%,PJOB%,PSEX%
5550 WRITE #1,PLEV%,PEXP%,PNEXP%,PAC1%,PAC2%,PMAC1%,PMAC2%,PDC1%,PDC2%,PMC1%,PMC2%,PSC1%,PSC2%
5560 WRITE #1,PHP%,PFHP%,PMP%,PFMP%,PSPEED%,PEXACT%,PWRIST%,PFWRIST%,PHEAVY%,PFHEAVY%,PMONEY
5570 FOR A=1 TO 8
5580 WRITE #1,PZB%(A)
5590 NEXT 
5600 FOR A=1 TO 30
5610 WRITE #1,PBB%(A)
5620 NEXT 
5630 FOR A=1 TO 4
5640 FOR B=1 TO 2
5650 WRITE #1,PJN%(B,A)
5660 NEXT :NEXT 
5670 CLOSE #1:PRINT "OK!"
5680 W$=INKEY$:CLS: GOTO 1410
5700 REM ܼ
5710 W$=INKEY$
5720 IF W$<>"g" THEN 1470
5730 W$=INKEY$:IF W$<>"r" THEN 1470
5740 CLS
5750 INPUT ":";BH%
5760 IF BH%=0 THEN PMONEY=PMONEY+9999:CLS:1470
5770 FOR A=1 TO 30
5780 IF PBB%(A)=0 THEN PBB%(A)=BH%:CLS:1470
5790 NEXT 
5800 CLS: GOTO 1470
