GAMEPAD 1 X=0 Y=0 BX=0 BY=0 PX=10 PY=7 BLX=-3 BLY=0 B1X=-1 B1Y=16 SPEED=1 GRAVITY=1 AIRTIME=0 LOADING=1 SPAWN=1 GEA=1 TIMES=0 DIGTIMES=0 BG 1 BG COPY 0,0,32,32 TO BX,BY DO BG 0 IF TIMES>9 THEN TIMES=0 ELSE ADD TIMES,1 END IF IF X>20 THEN BG 1 BG COPY 0,0,32,32 TO BX,BY BG 0 ADD GEA,1 RANDOMIZE GEA LOADING=1 SPAWN=1 BLX=-3 BLY=0 B1X=-1 B1Y=16 END IF IF X<0 THEN BG 1 BG COPY 0,0,32,32 TO BX,BY BG 0 ADD GEA,-1 RANDOMIZE GEA LOADING=1 SPAWN=18 BLX=-3 BLY=0 B1X=-1 B1Y=16 END IF IF AIRTIME>0 THEN ADD AIRTIME,-0.5 IF B1X>19 THEN LOADING=0 BG FILL 0,0 TO 20,16 CHAR 0 CELL X,Y,2 END IF BG 1 IF B1Y>0 THEN ADD B1Y,-1 ELSE B1Y=16 IF B1X<19 THEN ADD B1X,1 ELSE B1X=25 END IF END IF PAL 2 IF CELL.C(B1X,B1Y)=0 AND CELL.C(B1X-1,B1Y-1)=30 THEN CELL B1X,B1Y,30 END IF IF CELL.C(B1X-1,B1Y+1)=30 AND CELL.C(B1X,B1Y)=0 AND CELL.C(B1X,B1Y+1)=30 THEN PAL 2 IF RND(10)