110 HGR : HCOLOR= 4: HPLOT 0,0: CALL 62454: ROT= 0: SCALE= 1: HCOLOR= 5: FOR Y = 1 TO 267 STEP 14: HPLOT Y,0 TO Y,144: NEXT Y: FOR Y = 0 TO 144 STEP 16: HPLOT 0,Y TO 266,Y: NEXT
120 Z% = 3072: HCOLOR= 7
130 FOR Y = 8 TO 136 STEP 16: FOR X = 8 TO 260 STEP 14: DRAW PEEK(Z%) +1 AT X,Y:Z% = Z% +1
140 NEXT : NEXT : RETURN
150 FOR Y = 3072 TO 3342: POKE Y +2054,0: IF PEEK(Y) = 1 THEN POKE Y +2054,1
160 NEXT Y: IF PEEK(104) < >64 THEN TEXT : HOME : VTAB 12: PRINT TAB( 5);"YOU MUST RUN WARRIORS.2000": END
170 IF PEEK(2051) < >234 THEN TEXT : HOME : VTAB 12: PRINT "YOU MUST RUN WARRIORS.2000": END
180 POKE 2051,20
190 DIM CH%(7),A%(7): NORMAL : TEXT : HOME :STR = -16384:WT = 128:CL = -16368:MS = 5086:ME = MS +1:MU = ME +2
200 A$ = "13E1:AD DE 13 8D E0 13 AE E0 13 E8 CA CA D0 FB AD 30 C0 EE E0 13 AD E0 13 CD DF 13 D0 EA 60 I F328G"
210 FOR Y = 1 TO LEN(A$): POKE 511 +Y, ASC( MID$ (A$,Y,1)) +128: NEXT : POKE 72,0: POKE 223, PEEK(248): CALL -144
560 INPUT "WHICH WOULD YOU LIKE:";A$:A = INT( VAL(A$)): IF A = 4 THEN INPUT "DO YOU WISH TO SURRENDER(Y/N):";A$: IF LEFT$(A$,1) < >"Y" AND A$ < >"y" THEN 540
570 ON A GOTO 580,990,2770,1330,1340: HOME : GOTO 540
580 HOME
590 VTAB 21: PRINT "OPTIONS FOR WHICH PLAYER:";: GET A$: PRINT A$:A = ASC(A$) -65 -32 *( ASC(A$) >96):PL = A: IF A <0 OR A >3 GOTO 590
600 IF PEEK((TE *4 +A) *25 +3325) < >2 THEN GOTO 580
620 INPUT "WHICH WOULD YOU LIKE:";A$:A = VAL(A$): IF A$ = "" THEN GOTO 540
630 IF A <1 OR A >5 THEN GOTO 610
640 BX(PL +TE *4) = 0
650 ON A GOTO 660,770,930,970,980: GOTO 610
660 HOME : VTAB 21: PRINT "TYPES OF ATTACK:"
670 PRINT "1) NORMAL WEAPON": VTAB 22: HTAB 20: PRINT "2) GRENADE": PRINT "3) CHROMAGRENADE": INPUT "WHICH WOULD YOU LIKE:";A$:A = VAL(A$): IF A <1 OR A >3 GOTO 660
680 HOME : VTAB 21
690 IF A = 1 THEN GOTO 710
700 IF PEEK(PL *25 +TE *100 +3342 +A) = 0 THEN PRINT "NONE LEFT": PRINT "PRESS RETURN TO CONTINUE": WAIT STR,WT: POKE CL,0: GOTO 660
710 CH%(PL +TE *4) = A
720 HOME : VTAB 21: PRINT "ATTACK WHICH PLAYER (A-D):";: GET A$: PRINT A$:A = ASC(A$) -65 -32 *( ASC(A$) >96): PRINT : IF A <0 OR A >3 THEN GOTO 720
730 IF PEEK(A *25 +(1 -TE) *100 +3325) <2 THEN VTAB 22: PRINT "PLAYER IS NOT ON BATTLEFIELD": VTAB 23: PRINT "PRESS RETURN TO CONTINUE": GOSUB 3040: GOTO 720
740 A%(PL +TE *4) = A +4 -TE *4
750 PRINT "PRESS RETURN TO CONTINUE": GOSUB 3040: IF RET = 15 THEN RET = 0: GOTO 950
760 GOTO 540
770 P1 = 1: HOME :Y = TE *4 +PL:A = PEEK(Y *25 +3346) *2: VTAB 21: PRINT "TOTAL NUMBER OF MOVES:";A
780 GOSUB 1370
790 XDRAW 19 AT Z% *14 +8,X *16 +8
800 VTAB 23: PRINT "MOVEMENT KEYS: I J K M <ESC>": GET A$: XDRAW 19 AT Z% *14 +8,X *16 +8: IF A$ = "I" OR A$ = "i" THEN X = X -(X >0)
810 IF A$ = "M" OR A$ = "m" THEN X = X +(X <8)
820 IF A$ = "J" OR A$ = "j" THEN Z% = Z% -(Z% >0)
830 IF A$ = "K" OR A$ = "k" THEN Z% = Z% +(Z% <18)
840 IF A$ = CHR$(27) THEN A = 0: GOTO 860
850 POKE Y *10 +6000 +P1,X *19 +Z%:A = A -1:P1 = P1 +1
860 IF A = 0 THEN CH%(Y) = 4: GOTO 880
870 GOTO 790
880 XDRAW 19 AT Z% *14 +8,X *16 +8
890 POKE Y *10 +6000 +P1,255: IF RET = 15 THEN 940
900 PRINT "PRESS RETURN TO CONTINUE": GOSUB 3040
910 XDRAW 19 AT Z% *14 +8,X *16 +8
920 GOTO 540
930 P1 = 1: HOME :Y = TE *4 +PL:A = PEEK(Y *25 +3346): VTAB 21: PRINT "TOTAL NUMBER OF MOVES:";A:RET = 15: GOTO 780
940 GOTO 660
950 BX(TE *4 +PL) = 2
960 XDRAW 19 AT Z% *14 +8,X *16 +8: GOTO 540
970 HOME : VTAB 21: PRINT PL$;" WILL REST":CH%(PL +TE *4) = 5: VTAB 23: PRINT "PRESS RETURN TO CONTINUE": GOSUB 3040: GOTO 540
980 HOME : VTAB 21: PRINT PL$;" WILL CHANGE WEAPONS":CH%(PL +TE *4) = 6: VTAB 23: PRINT "PRESS RETURN TO CONTINUE": GOSUB 3040: GOTO 540
990 HOME : VTAB 21: PRINT "VIEW WHICH PLAYER:";: GET A$:A = ASC(A$) -65: IF A <0 OR A >3 GOTO 990
1000 PL = A +TE *4:PL = PL *25 +3325
1010 IF PEEK(PL) < >2 THEN GOTO 990
1020 TEXT
1030 HOME : PRINT "PLAYER:"; CHR$(65 +A)
1040 PRINT : PRINT "NAME:"
1050 PRINT "RACE:"
1060 PRINT "EXPERIENCE:"
1070 PRINT "HEALTH:"
1080 PRINT "DEXTERITY:"
1090 PRINT "WEAPON SKILL:"
1100 PRINT "WEAPON CAPABILITY:"
1110 PRINT "WEAPON #1:"
1120 PRINT "WEAPON #2:"
1130 PRINT "GRENADES:"
1140 PRINT "CHROMAGRENADES:"
1150 PRINT "ARMOR TYPE:"
1160 VTAB 3: HTAB 7: FOR Y = PL +1 TO PL +10: PRINT CHR$( PEEK(Y));: NEXT : PRINT
1390 HOME : VTAB 21: PRINT "BOTH TEAMS ENTER ROOM": VTAB 23: PRINT "PRESS RETURN TO BEGIN BATTLE": GOSUB 3040
1400 POKE MS,0: POKE ME,128: FOR Y = 1 TO 4: CALL MU: FOR X = 1 TO 30: NEXT : NEXT
1410 Z% = 3072: HCOLOR= 4: HPLOT 0,0: CALL 62454: HCOLOR= 7: FOR Y = 8 TO 136 STEP 16: FOR X = 8 TO 260 STEP 14: DRAW PEEK(Z%) +1 AT X,Y:Z% = Z% +1: NEXT : NEXT
1420 FOR Y = 0 TO 7: IF PEEK(Y *25 +3325) < >2 THEN 1440
2370 HOME : VTAB 21: PRINT "TEAM #";TE +1;" LOSES": INVERSE : VTAB 22: PRINT "PLEASE WAIT": NORMAL
2380 TE = 1 -TE
2390 FOR Y = 0 +TE *4 TO 3 +TE *4: IF PEEK(Y *25 +3325) = 0 THEN 2450
2400 X = PEEK(Y *25 +3337) *100 + PEEK(Y *25 +3338):X = X +3: IF PEEK(Y *25 +3325) = 2 THEN X = X +2
2410 IF X >9999 THEN X = 9999
2420 POKE Y *25 +3337, INT(X/100): POKE Y *25 +3338,X - INT(X/100) *100
2430 FOR E1 = 1 TO 10: IF X > = E1 *10 AND PEEK(Y *25 +3347) <E1 THEN POKE Y *25 +3347,E1: POKE Y *25 +3340, PEEK(Y *25 +3340) +1: POKE Y *25 +3349, PEEK(Y *25 +3349) +3
2440 NEXT
2450 NEXT
2460 FOR Y = 0 TO 7: IF PEEK(Y *25 +3325) = 1 THEN POKE Y *25 +3325,2
2470 IF PEEK(Y *25 +3325) THEN POKE Y *25 +3339,100
2480 NEXT
2490 FOR Y = 0 TO 7:X = PEEK(Y *25 +3341): FOR Z = 0 TO 24: POKE Z +X *25 +3585, PEEK(Y *25 +3325 +Z): NEXT : NEXT
2500 CLEAR
2510 GOTO 320
2520 HOME : INVERSE : PRINT SPC( 13);"WARRIORS 2000"; SPC( 13): PRINT SPC( 12);"GAME PARAMETERS"; SPC( 12): NORMAL
2530 VTAB 8: PRINT "MESSAGE DISPLAY TIME (1-9999)"