Sorry your browser is not supported!

type entity
    x, y, id, shots, lives, amount, delay, health, state as integer
endtype

player as entity

             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

function movebullet()
    for b = 1 to 5
       if bullets(b).state = true
            chnc = rnd(3)+2
            x = sprite x(bullets(b).id) : y = sprite y(bullets(b).id)
            if x < 0 or x > ScrWid then hide sprite bullets(b).id : bullets(b).state = false `: avbl = 0
            if y < 0 or y > ScrHgt then hide sprite bullets(b).id : bullets(b).state = false `: avbl = 0
            dec bullets(b).y, chnc
            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
                if enemy(a).hits => enemy(a).hitsReq
                  hide sprite enemy(a).id : enemy(a).state = false : dec enemy(a).amount
                  hide sprite bullets(b).id : bullets(b).state = false : enemy(a).hits = 0
                else
                  inc enemy(a).hits
                endif
               endif
            next a
        endif
    next b
endfunction

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
sync on : sync rate 100
backdrop off
color backdrop rgb(0,0,0)
set window title "Zombie Game"
randomize timer()

rem Types
type entity
    x, y, id, hitsReq, hits, lives, amount, delay, health, state 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(5) as shot
for b = 1 to 5
    for y = 17 to 23
        bullets(b).state = false
        bullets(b).id = y
        bullets(1).amount = 1
    next y
next b

global gamestate = 0
global enemydelay = 5000
global Htmr
global desttime
global currbullet = 6
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 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)
                player.state = true
            else
                playerinput()
                if enemymovedelay => 10
                    MoveEnemies()
                    enemymovedelay = 0
                else
                    inc enemymovedelay, 1
                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 Increase all variables for a harder next round.
             if RoundOver = true
             for b = 1 to 5
               dec enemydelay, 500
               inc enemy(b).hitsReq, 1
               RoundOver = false
             next b
             endif               
             rem Save.
             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
         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
                hide 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
                hide 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
                hide 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 5
    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 = 2
    sprite enemy(b).id, enemy(b).x, enemy(b).y, enemyimg
next b

return


rem Functions
function playerinput()
        
    ` 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 5
                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
        currbullet = 6
    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
        dec player.lives
        if player.lives <= 0
            fadeOut(player.id, 500, 255)
            hide all sprites
            sprite GameOver, 0, 0, GameOver
            fadeIn(GameOver, 500, 0, 0)
            do
                cls
                sprite GameOver, 0, 0, GameOver
                if escapekey() = 1 then end
                sync
            loop
        endif
        fadeOut(player.id, 0, 255)
        sprite player.id, screen width()/2, 400, char
        player.x = screen width()/2
        player.y = 400
        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
            chnc = rnd(3)+2
            x = sprite x(bullets(b).id) : y = sprite y(bullets(b).id)
            if x < 0 or x > ScrWid then hide sprite bullets(b).id : bullets(b).state = false `: avbl = 0
            if y < 0 or y > ScrHgt then hide sprite bullets(b).id : bullets(b).state = false `: avbl = 0
            dec bullets(b).y, chnc
            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
                if enemy(a).hits => enemy(a).hitsReq
                  hide sprite enemy(a).id : enemy(a).state = false : dec enemy(a).amount
                  hide sprite bullets(b).id : bullets(b).state = false : enemy(a).hits = 0
                else
                  inc enemy(a).hits
                endif
               endif
            next a
        endif
    next b
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)
    paste image healthbackground, 50, 20
    for life = 1 to player.lives
        paste image char, (life * 30)+35, 120
    next life
    for bullets = 1 to currbullet
        paste image bullet, (bullets * 15)+50, 190
    next bullets
    
    if debug = true
        for i = 1 to 5
            text 200,i * 20,"bullets(" + str$(i) + ").state = " + str$(bullets(i).state)
            text 200,(i * 20)+120,"bullets(" + str$(i) + ").id = " + str$(bullets(i).id)
            text 550, 50, "FPS: "+str$(screen fps())
        next i
    endif
    
    set text font "courier"
    set text size 25
    center text 105, 80, "LIVES"
    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

type entity
   x as integer
   y as integer
   id as integer
   shots as integer
   lives as integer
   amount as integer
   delay as integer
   health as integer
   state as integer
endtype

` change cnt and note the file size
cnt = 1
` dim player() as entity - Uninitialized
dim player(cnt) as entity
for i = 0 to cnt
   player(i).x = 168
next i
saveArray()

print "Press any key."
wait key

empty array player()

cnt = loadArray()
for i = 0 to cnt
   print player(i).x
next i

print "Press any key"
wait key
end

function freeMemblock()

   repeat
      inc ID
   until memblock exist(ID) = 0

endfunction ID

function freeFile()

   repeat
      inc ID
   until file open(ID) = 0

endfunction ID

function saveArray()

   cnt as word
   filenum = freeFile()
   memnum = freeMemblock()

   if file exist("save.dat")
      delete file "save.dat"
   endif

   open to write filenum, "save.dat"
   cnt = array count(player())
   write word filenum, cnt
   make memblock from array memnum, player()
   write memblock filenum, memnum
   delete memblock memnum
   close file filenum

endfunction

function loadArray()

   cnt as word
   filenum = freeFile()
   memnum = freeMemblock()

   open to read filenum, "save.dat"
   read word filenum, cnt
   dim player(cnt)
   read memblock filenum, memnum
   close file filenum
   make array from memblock player(), memnum
   delete memblock memnum

endfunction cnt

for i = 1 to 5
open file to write 1, "save.dat"
write long, player(i).health

type MyArrayType_t
   a as integer
   b as dword
   c as float
   d as string
   e as double integer
endtype

dim MyArray() as MyArrayType_t
dim MySimpleArray() as integer
dim MyStringArray() as string

local DataCount as integer

data 4
data 1, 0xffffffff, 123.456, "Hello", 2123412342134
data 2, 0x01010101, 456.123, "Goodbye", 123498123
data 3, 0x8f8f8f8f, 987.654, "Seeyah", 999999
data 4, 0xaaaaaaaa, 654.987, "Aloha", 9876543210

read DataCount
for i = 1 to DataCount
   array insert at bottom MyArray()
   read MyArray().a
   read MyArray().b
   read MyArray().c
   read MyArray().d
   read MyArray().e
   array insert at bottom MyStringArray()
   MyStringArray() = MyArray().d
next

data 6
data 123123, 456, 465456, 567567, 123456, 987654

read DataCount
for i = 1 to DataCount
   array insert at bottom MySimpleArray()
   read MySimpleArray()
next

print "Array content at start"
print "MyArray()"
for i = 0 to array count( MyArray() )
   print "  "; MyArray(i).a; " - "; hex$(MyArray(i).b); " - "; MyArray(i).c; " - "; MyArray(i).d; " - "; MyArray(i).e
next
print "MySimpleArray()"
for i = 0 to array count( MySimpleArray() )
   print "  "; MySimpleArray(i)
next
print "MyStringArray()"
for i = 0 to array count( MyStringArray() )
   print "  "; MyStringArray(i)
next
print

print "Save"
open datafile to write 1, "MyArray.dat"
save array to datafile MyArray(), 1
close datafile 1

open datafile to write 1, "MySimpleArray.dat"
save array to datafile MySimpleArray(), 1
close datafile 1

open datafile to write 1, "MyStringArray.dat"
save arrayptr to datafile get arrayptr( MyStringArray() ), 1
close datafile 1

print

empty array MyArray()
empty array MySimpleArray()
empty array MyStringArray()

print "Load"
open datafile to read 1, "MyArray.dat"
load array from datafile MyArray(), 1
close datafile 1

open datafile to read 1, "MySimpleArray.dat"
load array from datafile MySimpleArray(), 1
close datafile 1

open datafile to read 1, "MyStringArray.dat"
a = get arrayptr( MyStringArray() )
unlink array MyStringArray()
a = load arrayptr from datafile(a, 1)
link array MyStringArray(), a
close datafile 1

print "MyArray()"
for i = 0 to array count( MyArray() )
   print "  "; MyArray(i).a; " - "; hex$(MyArray(i).b); " - "; MyArray(i).c; " - "; MyArray(i).d; " - "; MyArray(i).e
next
print "MySimpleArray()"
for i = 0 to array count( MySimpleArray() )
   print "  "; MySimpleArray(i)
next
print "MyStringArray()"
for i = 0 to array count( MyStringArray() )
   print "  "; MyStringArray(i)
next

wait key
end

function movebullet()
    for b = 1 to 5
        if bullets(b).state = true
            chnc = rnd(3)+2
            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, chnc
            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(b)
    hide sprite bullets(b).id
    bullets(b).state = false
endfunction

type entity
   phrase1 as string
   x as integer
   y as integer
   id as integer
   shots as integer
   lives as integer
   amount as integer
   delay as integer
   health as integer
   state as integer
   phrase2 as string
endtype

` change cnt and note the file size
cnt = 2
` dim player() as entity - Uninitialized
dim player(cnt) as entity
for i = 0 to cnt
   player(i).x = 168
next i
player(0).phrase1 = "Dark Basic"
player(1).phrase1 = "is"
player(2).phrase1 = "cool!"
player(0).phrase2 = "Strings seem"
player(1).phrase2 = "to work"
player(2).phrase2 = "just fine."
saveArray()

print "Press any key."
wait key

empty array player()

cnt = loadArray()
for i = 0 to cnt
   print player(i).x
next i
print player(0).phrase1
print player(1).phrase1
print player(2).phrase1
print player(0).phrase2
print player(1).phrase2
print player(2).phrase2

print "Press any key"
wait key
end

function saveArray()

   cnt as word
   filenum = find free file()
   memnum = find free memblock()

   if file exist("save.dat")
      delete file "save.dat"
   endif

   open to write filenum, "save.dat"
   cnt = array count(player())
   write word filenum, cnt
   make memblock from array memnum, player()
   write memblock filenum, memnum
   delete memblock memnum
   close file filenum

endfunction

function loadArray()

   cnt as word
   filenum = find free file()
   memnum = find free memblock()

   open to read filenum, "save.dat"
   read word filenum, cnt
   dim player(cnt)
   read memblock filenum, memnum
   close file filenum
   make array from memblock player(), memnum
   delete memblock memnum

endfunction cnt

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
sync on : sync rate 100
backdrop off
color backdrop rgb(0,0,0)
set window title "Zombie Game"
randomize timer()

rem Types
type entity
    x, y, id, hitsReq, hits, lives, amount, delay, health, state 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 = 6
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=20000
global roundTimer=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
                for b = 1 to 5
                if timer() > roundTimer
                        dec enemydelay, 500
                        inc roundDelay, 5000
                        inc enemy(b).hitsReq, 1
                     gamestate = 3
                     center text scrwid/2, scrhgt/2, "ROUND OVER!"
                     hide all sprites
                     sync
                     wait 10000
                     cls
                     roundTimer = timer() + roundDelay
                     gosub mainloop
                else
                    `inc roundTimer
                endif
                next b
                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.
             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
         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
                hide 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
                hide 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
                hide 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()
        
    ` 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
        currbullet = 6
    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
        dec player.lives
        if player.lives <= 0
            fadeOut(player.id, 500, 255)
            hide all sprites
            sprite GameOver, 0, 0, GameOver
            fadeIn(GameOver, 500, 0, 0)
            do
                cls
                sprite GameOver, 0, 0, GameOver
                if escapekey() = 1 then end
                sync
            loop
        endif
        fadeOut(player.id, 0, 255)
        sprite player.id, screen width()/2, 400, char
        player.x = screen width()/2
        player.y = 400
        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)
    paste image healthbackground, 50, 20
    for life = 1 to player.lives
        paste image char, (life * 30)+35, 120
    next life
    for bullets = 1 to currbullet
        paste image bullet, (bullets * 15)+50, 190
    next bullets
    
    if debug = true
        for i = 1 to 5
            text 200,i * 20,"bullets(" + str$(i) + ").state = " + str$(bullets(i).state)
            text 200,(i * 20)+120,"bullets(" + str$(i) + ").id = " + str$(bullets(i).id)
            text 550, 50, "FPS: "+str$(screen fps())
        next i
    endif
    
    set text font "courier"
    set text size 25
    center text 105, 80, "LIVES"
    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

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