Sorry your browser is not supported!

    for bullets = 1 to currbullet
        if image exist(bullet) then paste image bullet, (bullets * 15)+50, 190
    next bullets

for m = 1 to currbullet step 6
   for n = 1 to 6
     thisbullet = ((m-1) * 6) + n
      if thisBullet <= currBullet
         row = (m / 6) + 1
         col = n
         doStuff()
      else
         exit
      endif
   next n
next m

ink rgb(0,200,0),0
box 0,0,20,20
ink rgb(255,0,0),0
box 4,4,16,16
for i= 1 to 16
get image i,0,0,20,20,1
next i

currbullet=16
for bullets = 1 to currbullet
    inc im
    if im>6 then im=1:imy=imy+25
        if image exist(bullets) then paste image bullets, (im * 22)+50, 190+imy

next bullets
do

sync
loop

rem Init
disable escapekey
#constant false 0
#constant true 1
global BulletD : BulletD = timer() + BulletDelay
global scrhgt : scrhgt = screen height()
global scrwid : scrwid = screen width()
global paused = false
global BulletDelay = 200
global ReloadDelay = 2000
global ReloadD
sync on : sync rate 100
backdrop off
color backdrop rgb(0,0,0)
set window title "Still Dying - Zeta"
randomize timer()

rem Types
type entity
    x, y, id, hitsReq, hits, lives, amount, delay, health, state, reloading as integer
endtype

type shot
    x, y, id, state, amount as integer
endtype


rem Globals

player as entity
player.id = 1
    
dim enemy(5) as entity
for b = 1 to 5
    enemy(b).amount = 5
next b


dim bullets(6) as shot
for b = 1 to 6
    for y = 17 to 23
        bullets(b).state = false
        bullets(b).id = y
    next y
next b

global gamestate = 0
global enemydelay = 5000
global Htmr
global desttime
global currbullet = 12
global currenemy = 1

global char=1
global bullet=2
global GameOver=3
global enemyimg=11
global healthbackground=12
global healthbar=13
global healthbarS=24
global avbl=0
global roundDelay=60000
global roundTimer=0
global maxbullet=12
global day=0

global debug = false

dim MM(4)

for mm = 1 to 4
    MM(mm) = mm + 5
next mm

dim MMS(4)

for n = 1 to 4
    MMS(n) = n + 8
next n

gosub LoadImages


game:
gosub SetupPlayer
gosub SetupEnemies
mainloop:
rem Main loop
do
    select gamestate
        case 0
            gosub mainmenu
        endcase
        case 1
        rem Init area
            if player.state = false
                fadeIn(player.id, 500, 0, 0)
                roundTimer=timer()+roundDelay
                player.state = true
            else
                playerinput()
                if enemymovedelay => 10
                    MoveEnemies()
                    enemymovedelay = 0
                else
                    inc enemymovedelay
                endif
                if timer() > roundTimer
                     gamestate = 3
                     for b = 1 to 5
                        DisableBullet(b)
                     next b
                     inc day
                     center text scrwid/2, scrhgt/2, "DAY "+str$(day)+" OVER!"
                     hide all sprites
                     sync
                     wait 5000
                     cls
                     gosub mainloop
                endif
                TrackStats()
                movebullet()
                enemytimer()
                check()
                for b = 1 to 5
                if sprite collision(enemy(b).id, player.id) = true
                    if enemy(b).delay < timer()
                        dec player.health, 1
                        enemy(b).delay = timer() + 200
                    else
                        inc enemy(b).delay
                    endif
                endif
                next b
            endif
            ink rgb(255,255,255)
            sync
         endcase
         case 2
             `open to read 1, "save.dat"
             rem loading stuff goes here.
         endcase
         case 3 `Round Over, save and get upgrades.
             rem Save.
             cls
             center text scrwid/2, scrhgt/2, "This is the upgrade menu. Expect more."
             `if file exist("save.dat") = true then delete file "save.dat"
             `make file "save.dat"
             `open to write 1, "save.dat"
             `write long 1, player
             sync
             wait 3000
             done = true
             if done = true
                 for b = 1 to 5
                 dec enemydelay, 500
                 inc roundDelay, 10000
                 inc enemy(b).hitsReq
                 gamestate = 1
                 done = false
                 roundTimer = timer() + roundDelay
                 show all sprites
                 next b
                 gosub mainloop
             endif
         endcase
    endselect
loop
end

rem Main Menu

mainmenu:
alpha2 = 255 : alpha3 = 255 : alpha4 = 255
sprite MMS(1), 0, 0, MM(1)
set sprite priority MMS(1), 0
sprite MMS(2), 284, 320, MM(2): // exit
set sprite priority MMS(2), 1
sprite MMS(3), 266, 221, MM(3): // load
set sprite priority MMS(3), 1
sprite MMS(4), 283, 138, MM(4): // new
set sprite priority MMS(4), 1
ink rgb(255,255,0),0
do
    mx = mousex() : my = mousey() : mc = mouseclick()
    if mx => 276 and mx =< 353 and my => 314 and my =< 353
        if mc = 1
            for mmss = 1 to 4
                delete sprite MMS(mmss)
            next mmss
            end : // exit
        else
            dec alpha2,5 
            if alpha2 < 0 then alpha2 = 255
            set sprite alpha MMS(2), alpha2
        endif
    else
        alpha2 = 255
        set sprite alpha MMS(2), alpha2
    endif
    
    if mx => 264 and mx =< 362 and my => 219 and my =< 282
        if mc = 1
            for mmss = 1 to 4
                delete sprite MMS(mmss)
            next mmss
            gamestate = 2
            gosub mainloop
        else
            dec alpha3,5
            if alpha3 < 0 then alpha3 = 255
            set sprite alpha MMS(3), alpha3
        endif
    else
        alpha3 = 255
        set sprite alpha MMS(3), alpha3
    endif
    
    if mx => 271 and mx =< 381 and my => 134 and my =< 191
        if mc = 1
            gamestate = 1
            for mmss = 1 to 4
                delete sprite MMS(mmss)
            next mmss
            gosub mainloop
        else
            dec alpha4, 5
            if alpha4 < 0 then alpha4 = 255
            set sprite alpha MMS(4), alpha4
        endif
    else
        alpha4 = 255
        set sprite alpha MMS(4), alpha4
    endif
    sync
loop
return


LoadImages:
rem Make images/Load images
circle 10,10,10
get image char, 0, 0, 22, 22
cls
ink rgb(25,250,10)
circle 10,10,10
get image enemyimg, 0, 0, 22, 22
ink rgb(255,255,255)
cls

box 0,0,112,30
ink rgb(10,10,10),0
box 1,1,111,29
get image healthbackground,0,0,112,30,1
cls

ink rgb(255,0,0),0
box 0,0,110,28
get image healthbar,0,0,110,28,1
cls

set text font "Impact"
set text size 50
ink rgb(255,255,255)
center text screen width()/2, screen height()/2, "Game Over!"
center text screen width()/2, screen height()/3, "Press 'escape' to exit!"
get image GameOver,0,0,640,480
cls
set text font "Ariel"
set text size 15

load bitmap "media\Main_Menu.png", 1 `Main Menu
get image MM(2), 284, 354, 348, 383 `Exit Button
get image MM(3), 266, 274, 356, 333 `Load Game Button
get image MM(4), 283, 208, 380, 258 `New Game Button
delete bitmap 1
load image "media\Main_Menu_Blank.png", MM(1)
load image "media\Bullet.png", bullet
for b = 1 to 6
    bullets(b).id = 16 + b
next b
return

SetupPlayer:
sprite player.id, screen width()/2, 400, char
player.health = 100
player.lives = 3
player.x = sprite x(player.id)
player.y = sprite y(player.id)
player.state = false
return

SetupEnemies:
px = player.x : py = player.y
for b = 1 to 5
   enemy(b).id = b + 3
   okay = false
    repeat
        x = rnd(scrwid - 10) : y = rnd(scrhgt - 500)
        if abs(px - x) > 30 and abs(py - y) > 30 then okay = true : // be sure it is a ways away from player
    until okay = true
    enemy(b).x = x-10 : enemy(b).y = y-25
    enemy(b).state = true : // active
    enemy(b).hits = 0 : enemy(b).hitsReq = 1
    sprite enemy(b).id, enemy(b).x, enemy(b).y, enemyimg
next b

return


rem Functions
function playerinput()
        
    if player.reloading = false
    ` Check for right arrow
    if rightkey() = 1
        player.x = sprite x(player.id)
        if player.x => 617
            player.x = sprite x(player.id)
            else
            player.x = player.x + 2
        endif
    endif
    
    ` Check for left arrow
    if leftkey() = 1
        player.x = sprite x(player.id)
        if player.x =< 3
            player.x = sprite x(player.id)
            else
            player.x = player.x - 2
        endif
    endif
    
if timer() > bulletD
       if spacekey() = 1 and currbullet > 0
            avbl = 0
            for b = 1 to 6
                if bullets(b).state = false and avbl = 0 then avbl = b 
            next b
            if avbl > 0
                bullets(avbl).state = true
                bullets(avbl).x = sprite x(player.id)+7
                bullets(avbl).y = sprite y(player.id)-10
                sprite bullets(avbl).id, bullets(avbl).x, bullets(avbl).y, bullet
                show sprite bullets(avbl).id
                dec currbullet
            endif
       endif
       bulletD = timer() + BulletDelay
    endif
    
    if keystate(19) = 1 `The R button
        ReloadD = timer() + ReloadDelay
        player.reloading = true
        if timer() > ReloadD then currbullet = maxbullet : player.reloading = false
    endif
    endif

    ` Show the player (after the x and y may have changed)
    sprite player.id, player.x, player.y, char

endfunction

function check() `Checks a whole load of things.

    if player.health =< 0
        fadeOut(player.id, 500, 255)
        cls : sync
        hide all sprites
        delete image healthbackground
        delete image bullet
        sprite GameOver, 0, 0, GameOver
        fadeIn(GameOver, 500, 0, 0)
        do
            cls
            sprite GameOver, 0, 0, GameOver
            if escapekey() = 1 then end
            sync
        loop
        fadeOut(player.id, 0, 255)
        fadeIn(player.id, 500, 0, 1)
    endif
    
    if escapekey() = 1
        wait 0150
        if paused = false
            paused = true
            repeat
                cls
                center text screen width()/2, screen height()/2, "Paused!"
                TrackStats()
                sync
                if escapekey() = 1
                    paused = false
                    TrackStats()
                    wait 0150
                endif
             until paused = false
        endif
    endif
    
    set text size 5
    if currbullet = 0 then center text scrwid/2, scrhgt/2, "PRESS R TO RELOAD!"
    set text size 20
        
endfunction

rem Decides when an enemy should enter play
function enemytimer()
    if timer() > desttime
        for b = 1 to 5
        if enemy(b).state = false
            currenemy = b
            enemy(currenemy).x = rnd(600)+20
            enemy(currenemy).y = 0 - 16
            enemy(currenemy).state = 1
            sprite enemy(currenemy).id, enemy(currenemy).x, 0 - 16, char
            show sprite enemy(currenemy).id
            desttime = timer() + enemydelay
        endif
        next b
    endif
endfunction


rem Handles bullets.

function movebullet()
    for b = 1 to 5
        if bullets(b).state = true
            x = sprite x(bullets(b).id)
            y = sprite y(bullets(b).id)
            if x < 0 or x > ScrWid then DisableBullet(b)
            if y < 0 or y > ScrHgt then DisableBullet(b)
            dec bullets(b).y, 8
            sprite bullets(b).id, bullets(b).x, bullets(b).y, bullet
            for a = 1 to 5
                if sprite collision(bullets(b).id, enemy(a).id) = true and enemy(a).state = true
                    ` Increase the number of hits here.
                    ` Checking later would let the enemy survive two hits and die on the third.
                    inc enemy(a).hits
                    if enemy(a).hits => enemy(a).hitsReq
                        hide sprite enemy(a).id : enemy(a).state = false : dec enemy(a).amount
                        enemy(a).hits = 0
                    endif
                    ` Disable the bullet if it hit an enemy, not if it killed it.
                    DisableBullet(b)
                endif
            next a
        endif
    next b
endfunction

function DisableBullet(c)
    hide sprite bullets(c).id
    bullets(c).state = false
endfunction

function MoveEnemies()
    for b = 1 to 5
    for a = 1 to 5
    if enemy(b).state = true and a <> b
    if ( abs(enemy(a).y - enemy(b).y) < sprite height(enemy(b).id)+5 ) and ( abs(enemy(a).x - enemy(b).x) < sprite width(enemy(b).id)+5 )
        if enemy(a).y > enemy(b).y - 5
            dec enemy(b).y, 1
        else
            inc enemy(b).y, 1
        endif
        if enemy(a).x > enemy(b).x - 5
            dec enemy(b).x, 1
        else
            inc enemy(b).x, 1
        endif
    else
        if abs(enemy(b).y - player.y) > 4 and enemy(b).state = true
            if enemy(b).y => player.y
                dec enemy(b).y, 1
            else
                inc enemy(b).y, 1
            endif
        endif
        if abs(enemy(b).x - player.x) > 4 and enemy(b).state = true
            if enemy(b).x => player.x
                dec enemy(b).x, 1
            else
                inc enemy(b).x, 1
            endif
        endif
    endif
    endif
    sprite enemy(b).id, enemy(b).x, enemy(b).y, enemyimg
    next a
    next b
endfunction

function TrackStats()
    ink rgb(255,255,255)
    if image exist(healthbackground) then paste image healthbackground, 50, 20
    
    for bullets = 1 to currbullet
    inc im
    if im > 6 then im = 1 : inc imy, 25
        if image exist(bullet) then paste image bullet, (15 * im)+48, 190+imy
    next bullets
    
    set text font "courier"
    set text size 25
    center text 105, 0, "Health"
    center text 105, 160, "Bullets"
    sprite healthbarS, 51, 21, healthbar
    if player.health < 0 then player.health = 0
    stretch sprite healthbarS, player.health, 100
endfunction

function fadeIn(spr, tmp, alpha_value, death) `Sprite number, offset, and starting alpha value.
    set sprite alpha spr, alpha_value
    offset = tmp / 255
    tmr = timer() + offset
    repeat
        if timer() > tmr then inc alpha_value : tmr = timer() + offset : set sprite alpha spr, alpha_value
        if death = 1
            if timer() > Htmr
                inc player.health, 1
                Htmr = timer() + 15
                if player.health > 100 then player.health = 100
            endif
        endif
        TrackStats()
        sync
    until alpha_value = 255
endfunction

function fadeOut(spr, tmp, alpha_value)
    set sprite alpha spr, 255
    offset = tmp / 255
    tmr = timer() + offset
    repeat
        if timer() > tmr then dec alpha_value : tmr = timer() + offset : set sprite alpha spr, alpha_value
        TrackStats()
        sync
    until alpha_value = 0
endfunction

IF nobullets = 1: ReloadTimer = TIMER(): ENDIF
IF KEYSTATE(reload) = 1
      IF TIMER() - ReloadTimer >= ReloadDelay(CurWeapon)
            `do your reload code
      ENDIF
ENDIF

IF answer$ = "no"
      PRINT "Baka!"
ENDIF

function MoveEnemies()
    for b = 1 to 5
    for a = 1 to 5
    if enemy(b).state = true and a <> b
    if ( abs(enemy(a).y - enemy(b).y) < sprite height(enemy(b).id)+5 ) and ( abs(enemy(a).x - enemy(b).x) < sprite width(enemy(b).id)+5 )
        if enemy(a).y > enemy(b).y - 5
            dec enemy(b).y, 1
        else
            inc enemy(b).y, 1
        endif
        if enemy(a).x > enemy(b).x - 5
            dec enemy(b).x, 1
        else
            inc enemy(b).x, 1
        endif
    else
        if abs(enemy(b).y - player.y) > 4 and enemy(b).state = true
            if enemy(b).y => player.y
                dec enemy(b).y, 1
            else
                inc enemy(b).y, 1
            endif
        endif
        if abs(enemy(b).x - player.x) > 4 and enemy(b).state = true
            if enemy(b).x => player.x
                dec enemy(b).x, 1
            else
                inc enemy(b).x, 1
            endif
        endif
    endif
    endif
    sprite enemy(b).id, enemy(b).x, enemy(b).y, enemyimg
    next a
    next b
endfunction

function playerinput()
        
    if player.reloading = false
    ` Check for right arrow
    if rightkey() = 1
        player.x = sprite x(player.id)
        if player.x => 617
            player.x = sprite x(player.id)
            else
            player.x = player.x + 2
        endif
    endif
    
    ` Check for left arrow
    if leftkey() = 1
        player.x = sprite x(player.id)
        if player.x =< 3
            player.x = sprite x(player.id)
            else
            player.x = player.x - 2
        endif
    endif
    
if timer() > bulletD
       if spacekey() = 1 and currbullet > 0
            avbl = 0
            for b = 1 to 6
                if bullets(b).state = false and avbl = 0 then avbl = b 
            next b
            if avbl > 0
                bullets(avbl).state = true
                bullets(avbl).x = sprite x(player.id)+7
                bullets(avbl).y = sprite y(player.id)-10
                sprite bullets(avbl).id, bullets(avbl).x, bullets(avbl).y, bullet
                show sprite bullets(avbl).id
                dec currbullet
            endif
       endif
       bulletD = timer() + BulletDelay
    endif
    
    if keystate(19) = 1 `The R button
        ReloadD = timer() + ReloadDelay
        player.reloading = true
        if timer() > ReloadD then currbullet = maxbullet : player.reloading = false
    endif
    endif

    ` Show the player (after the x and y may have changed)
    sprite player.id, player.x, player.y, char

endfunction

   if keystate(19) = 1 `The R button
        ReloadD = timer() + ReloadDelay
        player.reloading = true
        if timer() > ReloadD then currbullet = maxbullet : player.reloading = false
    endif

   if keystate(19) = 1 `The R button
         IF player.reloading = true
               IF TIMER() > ReloadD
                     currbullet = maxbullet
                     player.reloading = false
               ENDIF
         ELSE
               ReloadD = TIMER() + ReloadDelay
               player.reloading = true
         ENDIF
    endif

`
`                                         BASIC simplified enemy AI
`                              Will move left or right if collision detected.
`               decides on direction based on the centre column of the enemy it collides with.
`                             You can modify it to move up or down too.
`
`Note: Indent both FOR-loops.
FOR i = i TO EnemyTotal
      FOR j = 1 TO EnemyTotal
            IF i <> j
                  IF SPRITE COLLISION(Enemy(i).img, Enemy(j).img) = 1
                        enemycenter = enemy(j).x + SPRITE WIDTH(enemy(j).img) / 2
                        IF enemy(i).x < enemycenter
                              SPRITE enemy(i).img, SPRITE X(enemy(i).img) - speed, SPRITE Y(enemy(i).img), enemy(i).img
                        ELSE
                              SPRITE enemy(i).img, SPRITE X(enemy(i).img) + speed, SPRITE Y(enemy(i).img), enemy(i).img
                        ENDIF
                  ENDIF
            ENDIF
      NEXT j
NEXT i

remstart
         REFERENCES:
            EnemyTotal = Number of enemies on screen
            enemycenter = the center point of the enemy
            enemy(n).img = the image you use fore the enemy
            speed = enemy movement speed

         Dunno what variable you using for those things, hopefully your structure will allow something like this.
         I haven't have my second cup of coffee yet so I take no responsibility if there are glitches in my code.
remend

IF player.reloading = 0      `(FALSE)
      IF KEYSTATE(fire) = 1
            `etc...etc
      ENDIF
      `etc...etc
ENDIF

remstart
         Run from t3h zombies!
         Use the arrow keys to run. If you get closeyou die because I used DBPro's SPRITE COLLISION for the player.
         This ain't coded perfect because I just boiled it up, but it's something to go on. Hopefully it'll help you
         My previous system of using directions in the UDT is still preferable because you can make AI movement patterns.
         Anyhow, this works. Not perfectly, but for its purpose it'll do. I'm sure you'll be able to pick out anything
         bad or unwanted.
remend




   GLOBAL player: player = 666
   GLOBAL zombietimer
   GLOBAL playertimer

`Make zombies
   DIM zombie(5): FOR i = 1 TO 5: zombie(i) = 200 + i: NEXT i

`Setup Display
   SET WINDOW ON
   SET WINDOW LAYOUT 0,0,0
   SET DISPLAY MODE 800, 600, 32

`Draw GFX
   INK RGB(250,0,0), RGB(0,0,0)
   ELLIPSE 10, 10, 8, 8
   DOT 7, 8
   DOT 12, 8
   FOR i = 1 TO 5: GET IMAGE zombie(i), 0, 0, 20, 20, 1: NEXT i
   CLS
   INK RGB(200,200,200), RGB(0,0,0)
   ELLIPSE 10, 10, 8, 8
   DOT 7, 8
   DOT 12, 8
   GET IMAGE player, 0, 0, 20, 20, 1



`Initial Setup
   FOR i = 1 TO 5
         x = (RND(20) + 5) * i
         y = 25 * i
         SPRITE zombie(i), x, y, zombie(i)
   NEXT i
   SPRITE player, 750, 550, player

`Main Loop
   zombietimer = TIMER()
   playertimer = zombietimer
   DO
      IF TIMER() - playertimer > 10
            IF UPKEY() = 1: SPRITE player, SPRITE X(player), SPRITE Y(player) - 2, player: ENDIF
            IF DOWNKEY() = 1: SPRITE player, SPRITE X(player), SPRITE Y(player) + 2, player: ENDIF
            IF LEFTKEY() = 1: SPRITE player, SPRITE X(player) - 2, SPRITE Y(player), player: ENDIF
            IF RIGHTKEY() = 1: SPRITE player, SPRITE X(player) + 2, SPRITE Y(player), player: ENDIF
            playertimer = TIMER()
      ENDIF
      IF TIMER() - zombietimer > 100
            MoveEnemies()
            zombietimer = TIMER()
      ENDIF
   LOOP


Function MoveEnemies()
`Note the immediate updates
   FOR a = 1 TO 5
         FOR b = 1 TO 5
               `Check where the player is and follow him
               IF SPRITE X(player) > SPRITE X(zombie(a)): SPRITE zombie(a), SPRITE X(zombie(a)) + 1, SPRITE Y(zombie(a)), zombie(a): ENDIF
               IF SPRITE X(player) < SPRITE X(zombie(a)): SPRITE zombie(a), SPRITE X(zombie(a)) - 1, SPRITE Y(zombie(a)), zombie(a): ENDIF
               IF SPRITE Y(player) > SPRITE Y(zombie(a)): SPRITE zombie(a), SPRITE X(zombie(a)), SPRITE Y(zombie(a)) + 1, zombie(a): ENDIF
               IF SPRITE Y(player) < SPRITE Y(zombie(a)): SPRITE zombie(a), SPRITE X(zombie(a)), SPRITE Y(zombie(a)) - 1, zombie(a): ENDIF
               `If player and zombie collide, you die. Built-in collision is not good for THIS as it'll detect evenif you get close to zombies
               IF SPRITE COLLISION(player, zombie(a)): YouDied(): ENDIF

               `This is assuming no offset. If you've offset your sprites, do not add 1/2 the width or height as the offset's done this already
               distX = (  SPRITE X(zombie(a)) + (SPRITE WIDTH(zombie(a)) / 2)  ) - (  SPRITE X(zombie(b)) + (SPRITE WIDTH(zombie(b)) / 2)  )
               distY = (  SPRITE Y(zombie(a)) + (SPRITE HEIGHT(zombie(a)) / 2)  ) - (  SPRITE Y(zombie(b)) + (SPRITE HEIGHT(zombie(b)) / 2)  )

               `Compare distance. By allowing them to be +/- it willindicate what sidethey're on.
               IF distX <= SPRITE WIDTH(zombie(1))
                     `If the distance is less than zero, zombie(a) is to the left of zombie(b)
                     IF distX < 0
                           SPRITE zombie(a), SPRITE X(zombie(a)) - 1, SPRITE Y(zombie(a)), zombie(a)
                     ELSE
                     `If the distX is not less than zero, it MUST be more than.
                           SPRITE zombie(a), SPRITE X(zombie(a)) + 1, SPRITE Y(zombie(a)), zombie(a)
                     ENDIF
               ENDIF
               IF distY <= SPRITE HEIGHT(zombie(1))
                     `A negative number indicates zombie(a) above zombie(b)
                     IF distY < 0
                           SPRITE zombie(a), SPRITE X(zombie(a)), SPRITE Y(zombie(a)) - 1, zombie(a)
                     ELSE
                           SPRITE zombie(a), SPRITE X(zombie(a)), SPRITE Y(zombie(a)) + 1, zombie(a)
                     ENDIF
               ENDIF

               `Keep zombies on playing field
               IF SPRITE X(zombie(a)) < 0: SPRITE zombie(a), SPRITE X(zombie(a)) + 2, SPRITE Y(zombie(a)), zombie(a) :ENDIF
               IF SPRITE X(zombie(a)) > SCREEN WIDTH() - SPRITE WIDTH(zombie(1)): SPRITE zombie(a), SPRITE X(zombie(a)) - 2, SPRITE Y(zombie(a)), zombie(a) :ENDIF
               IF SPRITE Y(zombie(a)) < 0: SPRITE zombie(a), SPRITE X(zombie(a)), SPRITE Y(zombie(a)) + 2, zombie(a) :ENDIF
               IF SPRITE Y(zombie(a)) > SCREEN HEIGHT() - SPRITE HEIGHT(zombie(1)): SPRITE zombie(a), SPRITE X(zombie(a)) + 2, SPRITE Y(zombie(a)) - 1, zombie(a) :ENDIF
         NEXT b
   NEXT a
EndFunction


Function YouDied()
`You died
      HIDE ALL SPRITES
      COLOR BACKDROP RGB(150,0,0)
      DO
            INK RGB(RND(250), RND(250), RND(250)), RGB(0,0,0)
            SET CURSOR 0, 0
            PRINT " "
            PRINT "     THE ZOMBIES ATE YOUR BRAINZ!!!"
            PRINT "        PRESS ESC TO EXIT"
      LOOP
EndFunction

1. Zombie moves out of other zombies' way
2. Zombie chases player (regardless of whether he gets back in other zombies' way) because of the order of events.
3. Cycle repeats. Zombie may crash sideways into other zombies because they're "pulling" towards a central point so you may never see the y-conflict

function MoveEnemies()
    for b = 1 to 5
    for a = 1 to 5
    if enemy(b).state = true and a <> b
        if abs(enemy(b).y - player.y) > 4 and enemy(b).state = true
            if enemy(b).y => player.y
                dec enemy(b).y, 1
            else
                inc enemy(b).y, 1
            endif
        endif
        if abs(enemy(b).x - player.x) > 4 and enemy(b).state = true
            if enemy(b).x => player.x
                dec enemy(b).x, 1
            else
                inc enemy(b).x, 1
            endif
        endif
    else
       if ( abs(enemy(a).y - enemy(b).y) < sprite height(enemy(b).id)+5 ) and ( abs(enemy(a).x - enemy(b).x) < sprite width(enemy(b).id)+5 )
           if enemy(a).y > enemy(b).y - 5
               dec enemy(b).y, 1
           else
               inc enemy(b).y, 1
           endif
           if enemy(a).x > enemy(b).x - 5
               dec enemy(b).x, 1
           else
               inc enemy(b).x, 1
           endif
       endif
    endif
    sprite enemy(b).id, enemy(b).x, enemy(b).y, enemyimg
    next a
    next b
endfunction

     if abs(enemy(b).y - player.y) > 4 and enemy(b).state = true
            if enemy(b).y => player.y
                dec enemy(b).y, 1
            else
                inc enemy(b).y, 1
            endif
        endif
        if abs(enemy(b).x - player.x) > 4 and enemy(b).state = true
            if enemy(b).x => player.x
                dec enemy(b).x, 1
            else
                inc enemy(b).x, 1
            endif
        endif

if enemy(a).x > enemy(b).x - 7

if enemy(a).x > enemy(b).x

IF reloading = 0  `FALSE if you'd prefer
   `Insert your player input code (IF KEYSTATE(blah))
ENDIF

function playerinput()
        
    if player.reloading = false
    ` Check for right arrow
    if rightkey() = 1
        player.x = sprite x(player.id)
        if player.x => 617
            player.x = sprite x(player.id)
            else
            player.x = player.x + 2
        endif
    endif
    
    ` Check for left arrow
    if leftkey() = 1
        player.x = sprite x(player.id)
        if player.x =< 3
            player.x = sprite x(player.id)
            else
            player.x = player.x - 2
        endif
    endif
    
    if timer() > bulletD
       if spacekey() = 1 and currbullet > 0
            avbl = 0
            for b = 1 to 6
                if bullets(b).state = false and avbl = 0 then avbl = b
            next b
            if avbl > 0
                bullets(avbl).state = true
                bullets(avbl).x = sprite x(player.id)+7
                bullets(avbl).y = sprite y(player.id)-10
                sprite bullets(avbl).id, bullets(avbl).x, bullets(avbl).y, bullet
                show sprite bullets(avbl).id
                dec currbullet
            endif
       endif
       bulletD = timer() + BulletDelay
    endif
    
    if keystate(19) = 1 `The R button
        ReloadD = timer() + ReloadDelay
        player.reloading = true
        if timer() > ReloadD then currbullet = maxbullet : player.reloading = false
    endif
    endif

    ` Show the player (after the x and y may have changed)
    sprite player.id, player.x, player.y, char

endfunction

   if keystate(19) = 1 `The R button
        ReloadD = timer() + ReloadDelay
        player.reloading = true
        if timer() > ReloadD then currbullet = maxbullet : player.reloading = false
    endif

IF player.reloading = true
      IF TIMER() > reloadD
            currbullet = maxbullet
            player.reloading = false
      ENDIF
ENDIF

variable = TIMER()

IF TIMER() - variable > 3000
      'Make me an English breakfast
      variable = TIMER() `Optionally, you may need to reset the timer
ENDIF

function playerinput()
        
    if player.reloading = false
    ` Check for right arrow
    if rightkey() = 1 or keystate(32) = 1
        player.x = sprite x(player.id)
        if player.x => 617
            player.x = sprite x(player.id)
            else
            player.x = player.x + 2
        endif
    endif
    
    ` Check for left arrow
    if leftkey() = 1 or keystate(30) = 1
        player.x = sprite x(player.id)
        if player.x =< 3
            player.x = sprite x(player.id)
            else
            player.x = player.x - 2
        endif
    endif
    
    if timer() > bulletD
       if spacekey() = 1 and currbullet > 0
            avbl = 0
            for b = 1 to 6
                if bullets(b).state = false and avbl = 0 then avbl = b
            next b
            if avbl > 0
                bullets(avbl).state = true
                bullets(avbl).x = sprite x(player.id)+7
                bullets(avbl).y = sprite y(player.id)-10
                sprite bullets(avbl).id, bullets(avbl).x, bullets(avbl).y, bullet
                show sprite bullets(avbl).id
                dec currbullet
            endif
       endif
       bulletD = timer() + BulletDelay
    endif
    
    if keystate(19) = 1 `The R button
        player.reloading = true
    endif
    else
      if timer() > reloadD
            player.reloading = false
            currbullet = maxbullet
            reloadD = timer() + ReloadDelay
      endif
    endif

    ` Show the player (after the x and y may have changed)
    sprite player.id, player.x, player.y, char

endfunction

Sync On: Sync Rate 60 : Backdrop On
Global PlayerReloading as boolean ` is reload in progress?
Global PlayerReloadTimer as integer ` time when reload was triggered
Global PlayerBullets as integer ` number of bullets
PlayerBullets=12 ` lets set starting bullets to 12

rem This is the main loop
do
 center text screen width()/2,screen height()-80,"Bullets:"+str$(PlayerBullets)
 Controls()
 PlayerBulletsRemaining = reload(0) `has this line got you thinking? :)
 sync
loop

function Controls()
 if inkey$()="1" then PlayerBullets=1 ` just to test bullet count
 if inkey$()="2" then PlayerBullets=2 ` just to test bullet count
 if inkey$()="0" then PlayerBullets=0 ` just to test bullet count
 if keystate(19) then Reload(timer())
endfunction

function Reload(triggertime)
 TimeToReload=1500 ` how long it takes to reload in ms
 if triggertime<>0 and PlayerReloading=0
  PlayerReloadTimer=triggertime : PlayerReloading=1 : PlayerBullets=0
 endif
 if PlayerReloading
  if timer()-PlayerReloadTimer=>TimeToReload
   PlayerBullets=12 : PlayerReloading=0
  else
   Center Text Screen Width()/2,Screen Height()-50,"Reloading..."
  endif
 endif
endfunction bullets

Function MovementVelocity(unit,axis$)
	x#=(Marine(unit).Speed/1000.0)*(hitimer(1000)-GameTimer(0))
	y#=(Marine(unit).Speed/1000.0)*(hitimer(1000)-GameTimer(0))
	xcount#=0.0
	ycount#=0.0
	count#=1.0
	result#=0.0
	Inc xcount#,keystate(32)
	Dec xcount#,keystate(30)
	Inc ycount#,keystate(17)
	Dec ycount#,keystate(31)
	If xcount#<>0 And ycount#<>0 Then count#=(abs(xcount#)+abs(ycount#))*0.7
	If axis$="x" Then result#=(x#*xcount#)/count#
	If axis$="y" Then result#=(y#*ycount#)/count#
	If Xb360 Controller Connected(0) And result#=0.0
		ix#=xb360 thumb right x(0)
		iy#=xb360 thumb right y(0)
		Xb360 Poll 0
		Inc xcount#,xb360 thumb left x(0)/32767.0
		inc ycount#,xb360 thumb left y(0)/32767.0
		If axis$="x" Then result#=(x#*xcount#)
		If axis$="y" Then result#=(y#*ycount#)
		If ix#<>0 And Xb360 Thumb Right X(0)=0 or iy#<>0 And Xb360 Thumb Right y(0)=0 then position mouse screen width()/2,screen height()/2
		If Xb360 Thumb Right X(0)<>0 Or Xb360 Thumb Right Y(0)<>0
			Position Mouse screen width()/2+((xb360 thumb right x(0)/(32767.0/(screen width()/2.5)))),screen height()/2-((xb360 thumb right y(0)/(32767.0/(screen height()/2.5))))
		Endif
	Endif
Endfunction result#

Inc Marine(0).X,MovementVelocity(0,"x")
Inc Marine(0).Y,MovementVelocity(0,"y")

Do
 if MenuSelection(0)="ingame" then MarineControls()
 Menu(MenuSelection(0))
 GameTimer(0)=hitimer(1000)
 sync
Loop

#CONSTANT reload        19
#CONSTANT char          1

GLOBAL maxbullets:      maxbullets = 100
GLOBAL reloadspeed:     reloadspeed = 1000
GLOBAL reloadtimer:     reloadtimer = 0            `That was just neatness, lol

TYPE entity
   x
   y
   bullets
   reloading
   id
ENDTYPE

player AS entity

player.x = SCREEN WIDTH() / 2
player.y = SCREEN HEIGHT() / 2
player.bullets = maxbullets
player.id = char

SET WINDOW ON
SET DISPLAY MODE 800, 600, 32
DrawStuff()
BACKDROP ON
COLOR BACKDROP RGB(0,0,0)

DO
      PlayerInput()
      PrintSpecs()
LOOP



Function PlayerInput()
`Substitute my variables with your own
      IF player.reloading = 0
            IF UPKEY() = 1 THEN INC player.y, -1
            IF DOWNKEY() = 1 THEN INC player.y, 1
            IF LEFTKEY() = 1 THEN INC player.x, -1
            IF RIGHTKEY() = 1 THEN INC player.x, 1
            IF SPACEKEY() = 1 THEN INC player.bullets, -1    `You'll want to condition this part and place your shooting bit/function here.
            IF player.bullets < 1 THEN player.bullets = 0
            IF KEYSTATE(reload) = 1
                  player.reloading = 1
                  reloadtimer = TIMER()
            ENDIF
       ELSE
            IF TIMER() - reloadtimer > reloadspeed
                  player.reloading = 0
                  player.bullets = maxbullets
            ELSE
                  PRINT "Aaaaah!Reloading!"
            ENDIF
      ENDIF
      `The next bit could be placed outside this function but for familiarity ( = 1 TO 100: NEXT familiarity ) we'll keep it here
      SPRITE player.id, player.x, player.y, char
EndFunction


Function DrawStuff()
`Draw player
      BOX 0, 0, 50, 50
      GET IMAGE char, 0, 0, 50, 50, 1
EndFunction

Function PrintSpecs()
      TEXT 1,  20, "Bullets Remaining: " + STR$(player.bullets)
      TEXT 1,  60, "Press arrows to move box."
      TEXT 1,  80, "Press spacebar to fire invisible ammo."
      TEXT 1, 100, "Press r to reload."
      IF player.reloading = 1
            TEXT 1, 120, "Reload wait remaining: " + STR$(reloadspeed - (TIMER() - reloadtimer))
      ENDIF
EndFunction