Sorry your browser is not supported!

REM #include magicload so we can use the magicloader to load our world
#include magicload1-1.dba

sync rate 0

REM MagicLoad our world
MagicLoad("worldtry_06.mwdb",1,1,1)
shift matrix down 1

REM load in out AK-47
load object "ak47/H-AK47-static.X",2

REM load our little friend
load object "Alien Hivebrain/H-Alien Hivebrain-attack1.x",3

REM get the AK47 to the right position for our game
Yrotate object 2,340
position object 2,1.5,-0.6,1.9

scale object 2,450.2,450.2,450.2
lock object on 2

Xrotate camera 0.0


REM make bullets to be fired
make object sphere 4,0.1 

hide object 4

position object 4,1.5,-0.6,2.1

lock object on 4

do
REM start player movement NOW

if upkey()=1 then move camera 2.0
if upkey()=1 then Z# = Z# + 2.0

if downkey()=1 then move camera -2.0
if downkey()=1 then Z# = Z# - 2.0


if rightkey()=1 then Yrotate camera 30.2
if leftkey()=1 then Yrotate camera 344.2

if spacekey()=1 then show object 4
if spacekey()=1 then move object 4,12.0
if spacekey()=1 then hide object 4
if spacekey()=1 then position object 4,1.5,-0.6,1.9
hide object 4

loop

sync on
do
REM start player movement NOW

if upkey()=1 then move camera 2.0
if upkey()=1 then Z# = Z# + 2.0

if downkey()=1 then move camera -2.0
if downkey()=1 then Z# = Z# - 2.0


if rightkey()=1 then Yrotate camera 30.2
if leftkey()=1 then Yrotate camera 344.2

if spacekey()=1 and object visible(4)=0
   show object 4
endif
if object visible(4)=1 then move object 4,12.0

rem Reloading
`put conditions here, like if the bullet is out of range
if (conditions are true)=1 then hide object 4 : position object 4,1.5,-0.6,1.9


sync
loop

`with the loading
`load bullets
for i = 1 to 100
   create bullet 50 + i
next i
dim bulletLife(100)
ammo = 100

`in the game loop
if spacekey() = 1 and delay = 0 and ammo > 0
   position bullet 50 + ammo
   rotate bullet as camera 50 + ammo
   set bullets life bulletLife(ammo) to 150(not necessary 150)
   reset delay to 50(not necessary 50)
endif

for b = 1 to 50
   if bulletLife(b) > 0
      decrease bulletLife(b)
      move bullet 50 + b
      if it hits something, hide/explode and decrease enemy's life when hit. Don't forget to reset the bullets life to 0.
   endif
next b

`delay
if delay > 0 then decrease delay