RANDOMIZE TIMER GAMEPAD 1 REM WASHAW GAMES REM SPACESHIP BY EMERALD DERP LEADER BG 1 FOR IY=0 TO 31 FOR IX=0 TO 31 ATTR(INT(RND*3),INT(RND*2),INT(RND*2),0,0) CELL IX,IY,INT(RND*12)+1 NEXT IX NEXT IY BG 0 DIM GLOBAL XSTAR(30) DIM GLOBAL YSTAR(30) DIM GLOBAL CSTAR(30) FOR I=1 TO 30 XSTAR(I)=RND*160 YSTAR(I)=(RND*130)-8 CSTAR(I)=INT(RND*3)+13 NEXT I SX=60 SY=50 SPRITE 0,SX,SY,64 SPRITE.A 0,(3,,,,3) GLOBAL IANI GLOBAL WANI IANI=0 WANI=0 SPRITE 4,SX,SY,68 SPRITE.A 4,(4,,,,3) SPRITE 1,200,200,72 SPRITE 2,200,200,72 SPRITE.A 1,(1,,,,) SPRITE.A 2,(1,,,,) GLOBAL WFIRE WFIRE=0 GLOBAL IFIRE IFIRE=0 GLOBAL YFIRE GLOBAL XFIRE YFIRE=-20 XFIRE=-20 SPRITE 3,200,200,128 SPRITE.A 3,(0,,,,3) GLOBAL WSHIELD WSHIELD=0 GLOBAL ISHIELD ISHIELD=0 GLOBAL YSHIELD GLOBAL XSHIELD YSHIELD=-30 ISCROLL=0 DO IWAIT=(IWAIT+1) MOD 3 IF IWAIT=0 THEN ISCROLL=(ISCROLL +1 ) MOD (32*8) SCROLL 1,0,-ISCROLL END IF FOR I=1 TO 30 CALL SCROLLSTAR(YSTAR(I)) SPRITE I+30,XSTAR(I),YSTAR(I),CSTAR(I) NEXT I IF RIGHT(0) THEN CALL MOVESHIP(SX,SY,1,0) IF LEFT(0) THEN CALL MOVESHIP(SX,SY,-1,0) IF UP(0) THEN CALL MOVESHIP(SX,SY,0,-1) IF DOWN(0) THEN CALL MOVESHIP(SX,SY,0,1) IF NOT DOWN(0) AND NOT UP(0) AND NOT LEFT(0) AND NOT RIGHT(0) THEN CALL POWERDOWN IF BUTTON(0,0) AND YFIRE<0 THEN YFIRE=SY XFIRE=SX PLAY 0,60,20 SOUND 0 END IF IF BUTTON(0,1) THEN XSHIELD=SX YSHIELD=SY-8 CALL ANISHIELD ELSE IF YSHIELD>0 THEN YSHIELD=-20 CALL ANISHIELD END IF END IF IF YFIRE>-20 THEN CALL ANIFIRE WAIT VBL LOOP SUB ANISHIELD WSHIELD=(WSHIELD+1) MOD 8 IF WSHIELD=0 THEN ISHIELD=(ISHIELD+1) MOD 3 PLAY 1,50,3 SOUND 1 END IF SPRITE 3,XSHIELD,YSHIELD,128+(4*ISHIELD) END SUB SUB ANIFIRE WFIRE=(WFIRE+1) MOD 3 IF WFIRE=0 THEN IFIRE=(IFIRE+1) MOD 4 SPRITE 1,XFIRE+1,YFIRE+5,72+IFIRE SPRITE 2,XFIRE+22,YFIRE+5,72+IFIRE YFIRE=YFIRE-2 END SUB SUB MOVESHIP(X,Y,DX,DY) CALL POWERUP MX=X+DX MY=Y+DY IF DX>0 AND MX<=160-32 THEN X=MX IF DX<0 AND MX>=0 THEN X=MX IF DY>0 AND MY<=120-24 THEN Y=MY IF DY<0 AND MY>=0 THEN Y=MY SPRITE 0,X,Y, SPRITE 4,X,Y, END SUB SUB POWERUP PLAY 3,10,10 SOUND 2 WANI=WANI+1 IF WANI>100 THEN WANI=100 RED=WANI\25 IF RED<0 THEN RED=0 IF RED>3 THEN RED=3 ATTR(7,0,0,0,0) PALETTE 4,,,,16*RED END SUB SUB POWERDOWN WANI=WANI-1 IF WANI<0 THEN WANI=0 RED=WANI\25 IF RED<0 THEN RED=0 IF RED>3 THEN RED=3 ATTR(7,0,0,0,0) PALETTE 4,,,,16*RED END SUB SUB SCROLLSTAR(Y) Y=Y+0.5 IF Y>128 THEN Y=-8 END SUB #1:MAIN PALETTES 003F2A15002A0630001500000005162B 00051600003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 40000000000000000000000000000000 00400000000000000000000000000000 00004000000000000000000000000000 00000040000000000000000000000000 20000000000000000000000000000000 00200000000000000000000000000000 00002000000000000000000000000000 00000020000000000000000000000000 10000000000000000000000000000000 00100000000000000000000000000000 00001000000000000000000000000000 00000010000000000000000000000000 00420018180042000042240000244200 0018245A5A24180000183C66663C1800 00100054001000000010106C10100000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03070707000707070001020007000000 C0E0E0E000E0E0E000804000E0000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00002410082400000000241008240000 00000820041000000000082004100000 00002408102400000000240810240000 00001004200800000000100420080000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 070F1F3F7F7F7FFF0000000000010180 E0F0F8FCFEFEFEFF0000000000808001 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFF7F7F7F7FF0E08080000000000F1F FFFFFEFEFEFE0F07010100000000F0F8 00000000000000000000000000000000 3C7E7E7E7E7E7F7F0000000000001010 00000000000000000000000000000000 00000000000000000000000000000000 3C7E7E7E7E7EFEFE0000000000000808 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C70F1F3F1F1F0F063870200003040000 E3F0F8FCF8F8F0601C0E0400C0200000 00000000000000000000000000000000 7F7E00007E7E7EFF10007E7E00003CFF 00000000000000000000000000000000 00000000000000000000000000000000 FE7E00007E7E7EFF08007E7E00003CFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000077880010000000007788001 00001FE0000007F800001FE0000007F8 0000F8070000FC030000F8070000FC03 00000000F00C03C000000000F00C03C0 0000000000000000000000077880010E 0000000000000000001FE0000007FC00 000000000000000000F8070000FC0300 0000000000000000000000F00C03C030 0000077880010E700000000000000000 1FE0000007F800000000000000000000 F8070000FC0300000000000000000000 0000F00C03C0300C0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0E30C000000000000E30C00000000000 00000000000000000000000000000000 00000000000000000000000000000000 300C030000000000300C030000000000 00000000000000007080000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000C03000000000000 80000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03000000000000000000000000000000 #15:MAIN SOUND 2C00303A14E65000080084AA05FB0000 380067BB060000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000