RANDOMIZE TIMER GAMEPAD 1 REM WAS8BIT PLAYERNOBALL=1 PLAYERWIBALL=2 BALLINAIR=6 COMPUTERNOBALL=4 COMPUTERWIBALL=5 PLAYERRUNNING=3 COMPUTERRUNNING=5 PLAYERNOBALL2=17 PLAYERWIBALL2=18 BALLINAIR2=22 COMPUTERNOBALL2=20 COMPUTERWIBALL2=21 PLAYERRUNNING2=19 EDGESTOP=32 EDGEGO=33 YRETURN=15 SCORE=0 DOWNS=0 RESET: CLS BG 1 BG FILL 0,0 TO 31,31 CHAR EDGESTOP BG FILL 0,0 TO 19,15 CHAR 0 BG FILL 0,31 TO 19,31 CHAR EDGEGO CELL 10,8,1 FOR I=1 TO 11 CELL RND(17)+1,RND(7)+7,1 NEXT I CELL 10,9,2 CELL 10,7,4 FOR I=1 TO 11 CELL RND(17)+1,6-RND(5),4 NEXT I GOSUB STATS WAIT 1 WHILE NOT BUTTON(0,0) WEND PLAY 0,30,5 TX=32 TY=38 IMODE=0 IRUN=0 REM 0=QUARTERBACK TO THROW BALL REM 1=BALL IN AIR, RECEIVERS MOVABLE REM 2=CAUGHT, RUNNER RUNS WITH BALL IWAIT=0 DO GOSUB STATS IF IWAIT=0 THEN FOR Y=0 TO 63 FOR X=0 TO 63 C=CELL.C(X,Y) IF C>0 THEN IF C=PLAYERWIBALL THEN IF Y<9 THEN IMODE=2 CELL X,Y,3 ELSE IF UP(0) THEN DY=Y-1 ELSE IF DOWN(0) THEN DY=Y+1 ELSE DY=Y IF LEFT(0) THEN DX=X-1 ELSE IF RIGHT(0) THEN DX=X+1 ELSE DX=X IF BUTTON(0,1) THEN IF CELL.C(DX,DY-1)=0 THEN CELL X,Y,PLAYERNOBALL2 CELL X,Y-1,BALLINAIR2 IMODE=1 END IF ELSE CC=CELL.C(DX,DY) IF CC=0 THEN CELL X,Y,0 CELL DX,DY,PLAYERWIBALL2 TX=DX TY=DY END IF END IF END IF ELSE IF C=BALLINAIR THEN CC=CELL.C(X,Y-1) IF CC=0 THEN CELL X,Y,0 CELL X,Y-1,BALLINAIR2 ELSE IF (CC=PLAYERNOBALL OR CC=PLAYERNOBALL2) THEN REM PLAYER CAUGHT BALL CELL X,Y,0 IMODE=2 CELL X,Y-1,PLAYERRUNNING2 PLAY 0,90,1 ELSE IF CC=EDGEGO THEN REM MISSED BALL PLAY 0,20,5 WAIT 1 GOTO RESET ELSE IF CC=COMPUTERNOBALL THEN REM GAME OVER PLAY 0,90,1 CELL X,Y,0 CELL X,Y-1,COMPUTERRUNNING WAIT 0.01 END END IF ELSE IF C=COMPUTERNOBALL THEN IF RND(20)>2 THEN DX=X+RND(2)-1 DY=Y+RND(2)-1 ELSE IF X4 THEN PLAY 0,30,60 END END IF GOSUB STATS PLAY 0,70,5 WAIT 90 GOTO RESET END ELSE IF CC=PLAYERRUNNING THEN REM TACKLED CELL X,Y,0 CELL DX,DY,8 IF IRUN=0 THEN INC DOWNS IF DOWNS>4 THEN PLAY 0,30,60 END END IF ELSE DOWNS=0 IRUN=0 END IF GOSUB STATS PLAY 0,70,5 WAIT 90 GOTO RESET END IF ELSE IF C=PLAYERRUNNING THEN IF UP(0) THEN DY=Y-1 ELSE IF DOWN(0) THEN DY=Y+1 ELSE DY=Y IF LEFT(0) THEN DX=X-1 ELSE IF RIGHT(0) THEN DX=X+1 ELSE DX=X CC=CELL.C(DX,DY) IF CC=0 THEN CELL X,Y,0 CELL DX,DY,PLAYERRUNNING2 TX=DX TY=DY ELSE IF CC=EDGEGO THEN CELL X,Y,0 CELL DX,YRETURN,PLAYERRUNNING2 TX=DX TY=YRETURN INC SCORE GOSUB STATS IRUN=1 PLAY 0,90,1 END IF ELSE IF C=PLAYERNOBALL THEN IF IMODE=1 THEN IF UP(0) THEN DY=Y-1 ELSE IF DOWN(0) THEN DY=Y+1 ELSE DY=Y IF LEFT(0) THEN DX=X-1 ELSE IF RIGHT(0) THEN DX=X+1 ELSE DX=X ELSE IF IMODE=2 THEN DX=X+RND(2)-1 DY=Y-RND(1) ELSE IF RND(5)>2 THEN DX=X+RND(2)-1 DY=Y+RND(2)-1 ELSE DX=X DY=Y-1 END IF CC=CELL.C(DX,DY) IF CC=0 THEN CELL X,Y,0 CELL DX,DY,PLAYERNOBALL2 ELSE IF CC=EDGEGO THEN CELL X,Y,0 CELL DX,YRETURN,PLAYERNOBALL2 END IF END IF END IF NEXT X NEXT Y FOR Y=0 TO 63 FOR X=0 TO 63 C=CELL.C(X,Y) IF C=COMPUTERNOBALL2 THEN CELL X,Y,COMPUTERNOBALL ELSE IF C=PLAYERNOBALL2 THEN CELL X,Y,PLAYERNOBALL ELSE IF C=PLAYERWIBALL2 THEN CELL X,Y,PLAYERWIBALL ELSE IF C=PLAYERRUNNING2 THEN CELL X,Y,PLAYERRUNNING ELSE IF C=BALLINAIR2 THEN CELL X,Y,BALLINAIR END IF NEXT X NEXT Y PLAY 0,20,1 END IF ADD IWAIT,1,0 TO 15 IF IWAIT=0 THEN WAIT VBL WAIT VBL LOOP STATS: BG 0 PAL 1 TEXT 0,0,"SCORE DOWN" NUMBER 6,0,SCORE,2 NUMBER 15,0,DOWNS,1 TEXT 0,8,"--------------------" BG 1 PAL 0 RETURN #1:MAIN PALETTES 0020083F003F3F00003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0018183C5A1824240000000000000000 001B1B3C581824240003030000000000 0018183C3C1824240000001818000000 00000000000000000018183C5A182424 00000018180000000018183C3C182424 00000018181800000000001818180000 001B0B0400102400000337381C2A0904 001818140C1804000000647838020900 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0018183C5A1824000000000000000000 001B1B3C581824000003030000000000 0018183C3C1824000000001818000000 00000000000000000018183C5A182400 00000018180000000018183C3C182400 00000018180000000000001818000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 81422418182442810000000000000000 10385492101010100000000000000000