Sorry your browser is not supported!

Rem Project: Space Invaders
Rem Created: 29/02/2004 13:05:51

Rem ***** Main Source File *****

set display mode 640,480,32
sync on
Sync rate 0
hide mouse

playery=420
playerx=320
bulletx=playerx+20
bullety=421
shot=0

Load image "Space Invadersshipsship1.png",4
Load image "Space Invadersbulletsbulletp.png",5
Load image "Space InvadersShieldsbottomleft+right.png",6

Sprite 31,playerx,playery,4
Sprite 32,bulletx,bullety,5
hide sprite 32

dim ginv(10)
dim pinv(10)
dim binv(10)
g_aliney=10
p_alieny=30
b_alieny=60
x=1

load Image "Space Invadersenemysgrnenemy.png",1
for g=1 to 10
sprite g,g*50,g_alieny,1
ginv(g)=g*50
next g
sync

load image "Space Invadersenemyspurpenemy.png",2
for p=1 to 10
sprite p,p*50,p_alieny,2
pinv(p)=p*50
next p
sync

load image "Space Invadersenemysbluenemy.png",3
for b=1 to 10
sprite b,b*50,b_alieny,3
binv(b)=b*50
next b
sync

do
   `Enigine
   `move left
   If keystate(203)=1 and playerx>0
      playerx=playerx-5
      bulletx=bulletx-5
      Sprite 31,playerx,playery,4
   Endif
   `move right
   If keystate(205)=1 and playerx<591
      playerx=playerx+5
      bulletx=bulletx+5
      Sprite 31,playerx,playery,4
   Endif
   If keystate(57)=1 and shot=0
      show sprite 32
      shot=1
   Endif
   If shot=1
      bulletx=playerx+20
      bullety=bullety-15
      Sprite 32,sprite x(32),bullety,5
   Endif
   If bullety<4
      hide sprite 32
      bullety=421
      bulletx=playerx+20
      shot=0
   Endif
   If shot=0
      bulletx=playerx+20
      sprite 32,bulletx,bullety,5
   Endif

   `Shields
   `Shield1 (left)
   Sprite 33,105,350,6

   `Shield2 (middle)
   Sprite 37,305,350,6

   `Shield3 (right)
   Sprite 41,505,350,6

   `aliens
   for g=1 to 10
   if ginv(g)>=600 then ginv(g)=600
   if ginv(g)=600
   x=x*-1
   g_alieny=g_alieny+15
   endif

   if ginv(g)<=10 then ginv(g)=10
   if ginv(g)=10
   x=x*-1
   g_alieny=g_alieny+15
   endif

   ginv(g)=ginv(g)+x
   sprite g,ginv(g),g_alieny,1
   next g
   sync

   for p=1 to 10
   if pinv(p)>=600 then pinv(p)=600
   if pinv(p)=600
   x=x*-1
   p_alieny=p_alieny+15
   endif

   if pinv(p)<=10 then pinv(p)=10
   if pinv(p)=10
   x=x*-1
   p_alieny=p_alieny+15
   endif

   pinv(p)=pinv(p)+x
   sprite p,pinv(p),p_alieny,2
   next p
   sync

   for b=1 to 10
   if binv(b)>=600 then binv(b)=600
   if binv(b)=600
   x=x*-1
   b_alieny=b_alieny+15
   endif

   if binv(b)<=10 then binv(b)=10
   if binv(b)=10
   x=x*-1
   b_alieny=b_alieny+15
   endif

   binv(b)=binv(b)+x
   sprite b,binv(b),b_alieny,3
   next b
   sync

   for alien_hit = 1 to 30
   alien_hit = Sprite Collision(32,0)
   if alien_hit > 0 then delete sprite alien_hit
   next alien_hit

sync
loop

1:
enemynum=12
sprite 20,enemyx,enemyy,11
sprite 21,enemyx-35,enemyy,11
sprite 22,enemyx-70,enemyy,11
sprite 23,enemyx-105,enemyy,11
sprite 24,enemyx,enemyy+35,11
sprite 25,enemyx-35,enemyy+35,11
sprite 26,enemyx-70,enemyy+35,11
sprite 27,enemyx-105,enemyy+35,11
sprite 28,enemyx,enemyy+70,11
sprite 29,enemyx-35,enemyy+70,11
sprite 30,enemyx-70,enemyy+70,11
sprite 31,enemyx-105,enemyy+70,11
if start1=0 then goto start1over
dim th(9999)
for i=1 to 9999
   th(i)=0
next i
start1=0
start1over:
if th(1)=1 and th(2)=1 and th(3)=1 and th(4)=1 and th(5)=1 and th(6)=1 and th(7)=1 and th(8)=1 and th(9)=1 and th(10)=1 and th(11)=1 and th(12)=1 then allenemiesdead=1
enemy_life=5
farthest_left=enemyx-105
if allenemiesdead=1
   ink rgb(255,0,0),0
   set text size 40
   center text 320,210,"WAVE 2 START"
   wait 2000
   ink rgb(0,0,0),0
   text 225+text width("WAVE:"),451,str$(wave)
   center text 320,210,"WAVE 2 START"
   ink rgb(0,255,0),0
   set text size 12
   for i=20 to 31
      offset sprite i,0,0
      show sprite i
      enemyx=594
      enemyy=18
   next i
   for i=1 to 9999
      th(i)=0
   next i
   allenemiesdead=0
   wave=2
endif
if timer=0 and enemyx>135 and direction=1
   enemyx=enemyx-30
   timer=60-enemyspeed
   goto hop1
endif
if timer=0 and farthest_left<=25 and direction=1
   enemyy=enemyy+30
   enemyspeed=enemyspeed+5
   timer=60-enemyspeed
   direction=2
   goto hop1
endif
if timer=0 and enemyx<585 and direction=2
   enemyx=enemyx+30
   timer=60-enemyspeed
   goto hop1
endif
if timer=0 and enemyx>585 and direction=2
   enemyy=enemyy+30
   enemyspeed=enemyspeed+5
   timer=60-enemyspeed
   direction=1
   goto hop1
endif
hop1:
return

 
if Sprite Collision(32,0)=1
   delete sprite Sprite Collision(32,0)
endif

If Object collision(1,0)>0
delete object Object collision(1,0):rem  : play sound 1
endif