Sorry your browser is not supported!

maze(roomnumber-6+6).

rem Project Name: DNG - Berzerk!
rem Project Manager: LBFN
rem Began: 23/8/2011

rem **DECLARE GLOBS/CONSTS**
#constant false 0
#constant true 1
global ScrWid, ScrHgt, GameState, GameOver, score, CurrSprite, CurrImage, StartX, StartY
global MoveToggle

rem **INIT GLOBS**
GameState = false : GameOver = false : score = false : CurrSprite = 99 : CurrImage = 99
MoveToggle = false : ScrWid = 1024 : ScrHgt = 768

rem **DEFINE TYPES**
type RoomData
    visited as boolean
    x,y, cell, door
endtype
dim maze(36) as RoomData
// setup player TYPE variable
type PlayerData
    lives, image, EnterX, EnterY, XSpeed, YSpeed, AnimDelay
    LowImage, HighImage
endtype
player as PlayerData
// setup robot TYPE variable.  We don't know how many robots we will need
// so we set it up with zero and add to it at SetupRobots()
type RobotData
    status, image, XSpeed, YSpeed, AnimDelay, LowImage, HighImage
endtype
dim robot(0) as RobotData

rem **SET SCREEN RESOLUTION**
sync on : sync rate 60
RezOkay = CheckRez(ScrWid,ScrHgt,32)
if RezOkay = false
    a$ = "Sorry, screen resolution for this game not available."
    b$ = "Press any key to exit."
	x = ScrWid / 2
	ay = ScrHgt / 2
	by = ay + 40
    repeat
        center text x, ay, a$
        center text x, by, b$
        sync
    until scancode() > false
    end
endif

rem **INIT WINDOW**
set window on
set window title "                              Dark Noob Games - BerZerk!"
dw = desktop width() : dh = desktop height()
set window position (dw - ScrWid) / 2, (dh - ScrHgt) / 2

rem **INIT GAME**
randomize timer()
Init()
LoadImages()
SetupMaze()
SetupPlayer()
SetupRobots()
MoveDelay = timer()

rem === MAIN GAME LOOP ===
repeat
    GameState = MainMenu()
    select GameState
        case 1
            // play game
            DisplayMap(StartX, StartY)
            MovePlayer()
            MoveRobots()
            MoveEvilOtto()
            MoveShots()
            Debug()
            sync
        endcase
        case 2
            // device input
        
        endcase
        case 3
            //difficulty
        endcase
        case 4
            // sound FX options
            
        endcase
        case 5
            // high scores
            
        endcase
        case 6
            // quit
            GameOver = true
        endcase
     endselect
     if mouseclick() > false then GameOver = true : // temporary to allow use to exit
until GameOver = true
DeleteAll()
end


rem === FUNCTIONS ===
function BurnRoom(CurrRoom,x,y)
    // this function will store the data for a particular room in the map array
    StartX = (x - 1) * 24 : StartY = (y - 1) * 24 
    SetOuterWalls(StartX,StartY,1)
    select CurrRoom
        case 1
            // make some inner walls
            for x = 12 to 18
                map(StartX + x,StartY + 12) = blue(1)
            next x
            for y = 6 to 12
                map(StartX + 8,StartY + y) = blue(0)
            next y
            for x = 6 to 10
                map(StartX + x,StartY + 6) = blue(1)
            next x
            for y = 13 to 19
                map(StartX + 18,StartY + y) = blue(0)
            next y
        
        endcase
        case 2
        // make some inner walls
            for x = 5 to 12
                map(StartX + x,StartY + 5) = blue(1)
            next x
            for y = 11 to 17
                map(StartX + 18,StartY + y) = blue(0)
            next y
            for x = 6 to 10
                map(StartX + x,StartY + 16) = blue(1)
            next x
            for y = 13 to 19
                map(StartX + 8,StartY + y) = blue(0)
            next y
        endcase
    endselect
endfunction
//

rem OBese87{Edited to accept parameters.}
function CheckRez(w,h,bd)
    rezok = check display mode(w,h,bd)
endfunction rezok
//

function Debug()
    // shows info needed during development
    text 10,10,"FPS: " + str$(screen fps() )
    text ScrWid - 100,100,"Room"
    text ScrWid - 100,120,"x: " + str$(StartX)
    text ScrWid - 100,140,"y: " + str$(StartY)
    text ScrWid - 200,200,"Press arrow keys to move"
endfunction
//

function DeleteAll()
    // deletes all images and sprites prior to exiting the game
endfunction
//

function DisplayMap(StartX,StartY)
      cls
      for y = 1 to 24
           for x = 1 to 24
                 if map(StartX + x,StartY + y) > 0 then paste image map(StartX + x,StartY + y),(x - 1)* 32, (y - 1) * 32
           next x
      next y
endfunction
//

function GetFreeImage()
    repeat
        inc CurrImage
    until image exist(CurrImage) = false
endfunction CurrImage
//

function GetFreeSprite()
    repeat
        inc CurrSprite
    until sprite exist(CurrSprite) = false
endfunction CurrSprite
//

function Init()
endfunction
//

function LoadImages()
	load bitmap "media\blue.bmp",1
	dim blue(11)
	for img = 0 to 5
	    blue(img) = GetFreeImage()
	    get image blue(img),img * 32,0, (img * 32) + 32,32
	next img
	delete bitmap 1
endfunction
//

function LoadRoom()
endfunction
//

function MainMenu()
    // paste the graphic up
    GameState = 1 : // play game - allows the game code to run
    //show mouse
endfunction GameState
//

function MoveEvilOtto()
endfunction
//

function MovePlayer()
    // this is temp stuff so we can see the maze

	rem OBese87{
	rem Since we are doing a few things with inputs, it's a good idea to store them
	rem	just incase they change. We can also give them shorter names which is nice.
	u = upkey() : d = downkey() : l = leftkey() : r = rightkey()
	rem }OBese87

	if MoveToggle = true
		rem OBese87{
		rem Original:		if u = false and d = false and l = false and r = false
		rem Simplified:		if u+d+l+r = false
		rem This isn't just shorter, we've condensed four comparisons into one!
		rem We can simplify even further because MoveToggle is only false when
		rem all inputs are false. Therefore:-
		MoveToggle = (u+d+l+r)>0
		rem If MoveToggle is boolean I don't think the ">0" comparison is required.
		rem The assignment is essentially an OR test, so you could write it without
		rem the ">0":	MoveToggle = u*d*l*r	but multiplication is slow.
		rem Do we even need the parent condition here any more?
		rem }OBese87
    endif
    if MoveToggle = true then exitfunction

    if r = true and StartX < 120
        inc StartX, 24 : MoveToggle = true
        DisplayMap(StartX,StartY)
    endif
    if l = true and StartX > 0
        dec StartX, 24 : MoveToggle = true
        DisplayMap(StartX,StartY)
    endif
    if u = true and StartY > 0
        dec StartY,24 : MoveToggle = true
        DisplayMap(StartX,StartY)
    endif
    if d = true and StartY < 120
        inc StartY,24 : MoveToggle = true
        DisplayMap(StartX,StartY)
    endif
    MoveDelay = timer() + 1000 : // wait 1 second before the user can move again
endfunction
//

function MoveRobots()
endfunction
//

function MoveShots()
endfunction
//

function SetOuterWalls(StartX,StartY, colr)
    if colr = 1
        img0 = blue(0) : img1 = blue(1) : img2 = blue(2) : img3 = blue(3)
        img4 = blue(4) : img5 = blue(5)
    endif
    // ditto for other colors    
    for a = 1 to 24
       for b = 1 to 24
            if a = 1 or a = 24 then map(StartX + a,StartY + b) = img0
            if b = 1 or b = 24 then map(StartX + a,StartY + b) = img1
	   next b
    next a
    // fix the corners
    map(StartX + 1,StartY + 1) = img2 : map(StartX + 24,StartY) = img3
    map(StartX + 1,StartY + 24) = img5 : map(StartX + 24,StartY + 24) = img4
    // make door at top
    x = rnd(12) + 4
    for door = x to x + 4
        map(StartX + door,StartY + 1) = 0
    next door
    // make door for the right
    y = rnd(12) + 4
    for door = y to y + 4
        map(StartX + 24,StartY + door) = 0
    next door
    // make door for the left
    y = rnd(12) + 4
    for door = y to y + 4
        map(StartX + 1,StartY + door) = 0
    next door
    // make door for the bottom
    x = rnd(12) + 4
    for door = x to x + 4
        map(StartX + door,StartY + 24) = 0
    next door
endfunction
//

function SetupMaze()
    dim map(144,144)
    CurrRoom = 1
    for y = 1 to 6
        for x = 1 to 6
            // pick random room
            maze(CurrRoom).cell = rnd(2) : // 0 - 2 for right now, but eventually rnd(17) + 1
            BurnRoom(maze(CurrRoom).cell,x,y)
            // store x and y coords
            maze(CurrRoom).x = x : maze(CurrRoom).y = y
            // show that the room has not been visited yet
            maze(CurrRoom).visited = false
            inc CurrRoom
        next x
    next y
    StartX = 24 : StartY = 24
    DisplayMap(StartX, StartY)        
endfunction
//

function SetupPlayer()
endfunction
//

function SetupRobots()
endfunction
//

The game map will consist of 36 rooms, which are set in a 6 X 6 array (we can make it bigger if we want). The walls and doors to the rooms will be setup randomly, with 2 - 4 doors in each room. 

Just to be clear, the rooms would need to be created with tile numbers, not just the images themselves.

We need to create an array for the total map. The total map array is comprised of 24 X 24 for each room, with 36 rooms total. So, we need an array of 144 X 144. 
Earlier, in a response to Daygamer, I posted a DisplayMap() function in a snippet. You should incorporate this in the code and actually display the rooms and use the arrow keys to scroll through them.
I ran your code and it draws a very nice room. However, it draws lines, and we need tiles to be drawn. We need to assign image values to a map array and then use a function to display those images. If you need assistance revising it or have questions, please let me know.

function SetOuterWalls(StartX,StartY, colr, x, y)
    if colr = 1
        img0 = blue(0) : img1 = blue(1) : img2 = blue(2) : img3 = blue(3)
        img4 = blue(4) : img5 = blue(5)
    endif
    // ditto for other colors    
    for a = 1 to 24
       for b = 1 to 24
            if a = 1 or a = 24 then map(StartX + a,StartY + b) = img0
            if b = 1 or b = 24 then map(StartX + a,StartY + b) = img1
	   next b
    next a
    // fix the corners
    map(StartX + 1,StartY + 1) = img2 : map(StartX + 24,StartY) = img3
    map(StartX + 1,StartY + 24) = img5 : map(StartX + 24,StartY + 24) = img4
    dx = rnd(12) + 4
    if y > 1 
        if maze(CurrRoom -6).DoorS > 0 : // is there a door on the south end of the room above?
            maze(CurrRoom).DoorN = maze(CurrRoom - 6).DoorS : // set the x on this door the same 
            // as the x of the south door in the room above
            for door = maze(CurrRoom).DoorN to maze(CurrRoom).DoorN + 4 : // place a door on the north side
                map(StartX + door,StartY + 1) = 0
            next door
        endif
    endif
    // make door for the right
    dy = rnd(12) + 4
    for door = dy to dy + 4
        map(StartX + 24,StartY + door) = 0
    next door
     maze(CurrRoom).DoorE = dy
    // make door for the left
    dy = rnd(12) + 4
    for door = dy to dy + 4
        map(StartX + 1,StartY + door) = 0
    next door
     maze(CurrRoom).DoorW = dy
    // make door for the bottom
    dx = rnd(12) + 4
    for door = dx to dx + 4
        map(StartX + door,StartY + 24) = 0
    next door
     maze(CurrRoom).DoorS = dx
endfunction

SetOuterWalls(StartX,StartY,1,x,y)

rem Project Name: DNG - Berzerk!
rem Project Manager: LBFN
rem Began: 23/8/2011


rem ENSURE THAT THE GAME PLAYS IN A RANDOM FASHION
randomize timer() 
rem **DECLARE CONSTANTS - THESE WILL ALWAYS HOLD THE SAME VALUE**
#constant false 0
#constant true 1
rem **INIT GLOBAL VARIABLES - EVEN IN A FUNCTION, THESE WILL MAINTAIN THEIR VALUE**
global ScrWid, ScrHgt, GameState, GameOver, score, StartX, StartY
global MoveToggle, CurrRoom
rem INITIAL VALUES OF SOME VARIABLES
ScrWid = screen width() : ScrHgt = screen height()
GameState = false : GameOver = false : score = false : CurrSprite = 99 : CurrImage = 99
MoveToggle = false
rem CHECK THE SCREEN RESOLUTION TO MAKE SURE THE DETINATION COMPUTER CAN RUN IT
RezOkay = CheckRez()
if RezOkay = false
    a$ = "Sorry, screen resolution for this game not available."
    b$ = "Press any key to exit."
    repeat
        center text ScrWid / 2,ScrHgt / 2, a$
        center text ScrWid / 2, ScrHgt - 100,b$
        sync
    until scancode() > false
    end
endif
rem **INIT WINDOW**
set window on
set window title "                              Dark Noob Games - BerZerk!"
dw = desktop width() : dh = desktop height()
set window position (dw - ScrWid) / 2, (dh - ScrHgt) / 2
rem SETUP User Defined Type (UDT) variable for the maze data
type RoomData
    visited as boolean
    x,y, cell, doorN, doorE, doorS, doorW
endtype
dim maze(36) as RoomData
// setup player TYPE variable
type PlayerData
    lives, image, EnterX, EnterY, XSpeed, YSpeed, AnimDelay, SprNum
    LowImage, HighImage
endtype
player as PlayerData
// setup robot TYPE variable.  We don't know how many robots we will need
// so we set it up with zero and add to it at SetupRobots()
type RobotData
    status, image, XSpeed, YSpeed, AnimDelay, LowImage, HighImage, SprNum
endtype
dim robot(0) as RobotData

Init() : // initialize game data
LoadImages() : // loads all of the images needed for the game
SetupMaze() : // sets up the entire maze
SetupPlayer() : // initializes the player info
SetupRobots() : // initializes the info for the robots
rem SETUP MANUAL SYNCING - WE REDRAW THE SCREEN WHEN WE ARE READY
sync on : sync rate 60
MoveDelay = timer() : // temporary delay for moving between screens
// Main Game loop 
repeat
    GameState = MainMenu() : // this goes to the MainMenu function and returns the current game state
                             // it currently is setup to simply play the game as the MainMenu function 
                             // has not yet been installed
    select GameState : // this selects the value of the variable GameState, and branches based upon that
        case 1
            // play game
            DisplayMap(StartX, StartY) : // display the 24 X 24 map array
            MovePlayer() : // get input from the player to move the character around
            MoveRobots() : // move the robots around
            MoveEvilOtto() : // check to see if it is time for Evil Otto to come out and 
                             // if so, it moves him and will check for collision with the 
                             // player and with the robots
            MoveShots() : // moves all shots, whether player or robot and checks for collision
            Debug() : // useful tool to display text on the screen - used to determine frame rate, 
                      // values of variables that we want to see, etc.
            sync : // manually sync the screen
        endcase
        case 2
            // device input
        
        endcase
        case 3
            //difficulty
        endcase
        case 4
            // sound FX options
            
        endcase
        case 5
            // high scores
            
        endcase
        case 6
            // quit
            GameOver = true
        endcase
     endselect
     if mouseclick() > false then GameOver = true : // mouseclick() is temporary to allow user to exit
until GameOver = true
DeleteAll()
end


function MovePlayer()
    // this is temp stuff so we can see the maze
    // get arraw okey input from the user
 	u = upkey() : d = downkey() : l = leftkey() : r = rightkey()
    if MoveToggle >= true : // this checks to see if the user has let go of the arrow keys
                            // otherwise, it would simply move to the other side of the maze too quickly
        MoveToggle = (u+d+l+r) : // if any of the arrow keys are pressed it considers it as a keypress
    endif
    if MoveToggle >= true then exitfunction : // wait until the user lets go of an arrow key before 
                                              // accepting new input
    if r = true and StartX < 120 : // check if the user can go right
        inc StartX, 24 : MoveToggle = true : inc CurrRoom : // yes, move to the next screen right
        DisplayMap(StartX,StartY)
        if maze(CurrRoom).doorN > 0
            sprite player.SprNum,(maze(CurrRoom).doorN * 32) + 40,40,player.image
        endif
    endif
    if l = true and StartX > 0 : // check to see if the user can go left
        dec StartX, 24 : MoveToggle = true : dec CurrRoom : // yes, move to the next screen left
        DisplayMap(StartX,StartY)
        if maze(CurrRoom).doorN > 0
            sprite player.SprNum,(maze(CurrRoom).doorN * 32) + 40,40,player.image
        endif
    endif
    if u = true and StartY > 0 : // check to see if the user can go up
        dec StartY,24 : MoveToggle = true : dec CurrRoom,6 : // yes, move up one screen
        DisplayMap(StartX,StartY)
        if maze(CurrRoom).doorN > 0
            sprite player.SprNum,(maze(CurrRoom).doorN * 32) + 40,40,player.image
        endif
    endif
    if d = true and StartY < 120 : // check to see if the user can go down
        inc StartY,24 : MoveToggle = true : inc CurrRoom,6 : // yes, move down one screen
        DisplayMap(StartX,StartY)
        if maze(CurrRoom).doorN > 0
            sprite player.SprNum,(maze(CurrRoom).doorN * 32) + 40,40,player.image
        endif
    endif
    MoveDelay = timer() + 1000 : // wait 1 second before the user can move again
endfunction


function MoveRobots()



endfunction


function MoveEvilOtto()



endfunction


function MoveShots()


endfunction

function CheckRez() : // check tp see if the user's machione can display a 1024 X 768 X 32 screen
    rezOkay = check display mode(1024,768,32)
endfunction rezOkay


function Init()



endfunction


function LoadImages()
// load in all of the images we need for the game
load bitmap "media\blue.bmp",1 : // blue tiles
dim blue(11)
for img = 0 to 5
    blue(img) = GetFreeImage()
    get image blue(img),img * 32,0, (img * 32) + 32,32
next img
delete bitmap 1
dim WalkRight(7)
load bitmap "media\Man.jpg",1 : // man images - walking right
for k = 1 to 7
    WalkRight(k) = GetFreeImage()
    get image WalkRight(k),(k - 1) * 36,0,k * 36,48
next k
delete bitmap 1


endfunction

function SetupMaze() : // do the initial setup of the entire maze
    dim map(144,144)
    CurrRoom = 1
    for y = 1 to 6 : // we want a 6 X 6 grid of rooms for 36 total
        for x = 1 to 6
            // pick random interior walls for the room
            maze(CurrRoom).cell = rnd(2) : // 0 - 2 for right now, but eventually rnd(17) + 1
            BurnRoom(maze(CurrRoom).cell,x,y)
            // store x and y coords
            maze(CurrRoom).x = x : maze(CurrRoom).y = y
            // show that the room has not been visited yet
            maze(CurrRoom).visited = false
            inc CurrRoom
        next x
    next y
    StartX = 24 : StartY = 24 : CurrRoom = 8 : // we'll start at room 8 for now
    DisplayMap(StartX, StartY)        
     
endfunction


function BurnRoom(CurrRoom,x,y)
    // this function will store the data for a particular room in the map array
    StartX = (x - 1) * 24 : StartY = (y - 1) * 24 
    SetOuterWalls(StartX,StartY,1,x,y)
    select CurrRoom
        case 1
            // make some inner walls
            for x = 12 to 18
                map(StartX + x,StartY + 12) = blue(1)
            next x
            for y = 6 to 12
                map(StartX + 8,StartY + y) = blue(0)
            next y
            for x = 6 to 10
                map(StartX + x,StartY + 6) = blue(1)
            next x
            for y = 13 to 19
                map(StartX + 18,StartY + y) = blue(0)
            next y
        
        endcase
        case 2
        // make some inner walls
            for x = 5 to 12
                map(StartX + x,StartY + 5) = blue(1)
            next x
            for y = 11 to 17
                map(StartX + 18,StartY + y) = blue(0)
            next y
            for x = 6 to 10
                map(StartX + x,StartY + 16) = blue(1)
            next x
            for y = 13 to 19
                map(StartX + 8,StartY + y) = blue(0)
            next y
        endcase
    endselect
endfunction


function SetupPlayer() : // setup the necessary info for the player
    player.SprNum = GetFreeSprite()
    player.image = WalkRight(3) : // initial image of player
    sprite player.SprNum,-100,-100,player.image
    if maze(CurrRoom).doorN > 0 : // check to see if there is a door on the north and put the player by it
        sprite player.SprNum,(maze(CurrRoom).doorN * 32) + 40,40,player.image
    endif
endfunction


function SetupRobots()

endfunction

function MainMenu()
    // paste the graphic up
    GameState = 1 : // play game - allows the game code to run
    //show mouse
    



endfunction GameState


function DeleteAll()
    // deletes all images and sprites prior to exiting the game

endfunction

function GetFreeSprite() : // this creates sprite #'s in chronological order
    repeat
        inc CurrSprite
    until sprite exist(CurrSprite) = false
endfunction CurrSprite

function GetFreeImage() : // this creates image #'s in chronological order
    repeat
        inc CurrImage
    until image exist(CurrImage) = false
endfunction CurrImage

function Debug()
    // shows info needed during development
    text 10,10,"FPS: " + str$(screen fps() )
    text ScrWid - 100,100,"Room"
    text ScrWid - 100,120,"x: " + str$(StartX)
    text ScrWid - 100,140,"y: " + str$(StartY)
    text ScrWid - 200,200,"Press arrow keys to move"
 `   text 10,100,"maze(CurrRoom).doorN = " + str$(maze(CurrRoom).doorN)
    text 10,120,"CurrRoom = " + str$(CurrRoom)
endfunction

function LoadRoom()
    
endfunction


function SetOuterWalls(StartX,StartY, colr, x, y)
    // this function will store the outer wall images in the map array
    // and will setup doors on the walls
    if colr = 1
        img0 = blue(0) : img1 = blue(1) : img2 = blue(2) : img3 = blue(3)
        img4 = blue(4) : img5 = blue(5)
    endif
    // using color 1 (blue tiles) for now - ditto for other colors    
    for a = 1 to 24
       for b = 1 to 24
            if a = 1 or a = 24 then map(StartX + a,StartY + b) = img0
            if b = 1 or b = 24 then map(StartX + a,StartY + b) = img1
	   next b
    next a
    // fix the corners
    map(StartX + 1,StartY + 1) = img2 : map(StartX + 24,StartY) = img3
    map(StartX + 1,StartY + 24) = img5 : map(StartX + 24,StartY + 24) = img4
    // make door at top
    dx = rnd(12) + 4
    if y > 1 
        if maze(CurrRoom -6).DoorS > 0 : // is there a door on the south end of the room above?
            maze(CurrRoom).DoorN = maze(CurrRoom - 6).DoorS : // set the x on this door the same 
            // as the x of the south door in the room above
            for door = maze(CurrRoom).DoorN to maze(CurrRoom).DoorN + 4 : // place a door on the north side
                map(StartX + door,StartY + 1) = 0
            next door
        endif
    endif
    // make door for the right
    dy = rnd(12) + 4
    for door = dy to dy + 4
        map(StartX + 24,StartY + door) = 0
    next door
     maze(CurrRoom).DoorE = dy
    // make door for the left
    dy = rnd(12) + 4
    for door = dy to dy + 4
        map(StartX + 1,StartY + door) = 0
    next door
     maze(CurrRoom).DoorW = dy
    // make door for the bottom
    dx = rnd(12) + 4
    for door = dx to dx + 4
        map(StartX + door,StartY + 24) = 0
    next door
     maze(CurrRoom).DoorS = dx
endfunction

function DisplayMap(StartX,StartY)
      cls : // clears the screen
      for y = 1 to 24
           for x = 1 to 24 : // if the map array holds a value greater than 0, the value it holds is
                             // an image and it is pasted on the screen
                 if map(StartX + x,StartY + y) > 0 then paste image map(StartX + x,StartY + y),(x - 1)* 32, (y - 1) * 32
           next x
      next y
endfunction

for 1 to 4
   load music a
next a

` DNG - Berzerk!  Began 23/8/2011
sync on : sync rate 60
randomize timer() 
#constant false 0
#constant true 1
global ScrWid, ScrHgt, GameState, GameOver, score, CurrSprite, CurrImage, StackNum, RoomNumber, NumberVisited, Roomchange, walltile, walkcycle, exited

GameState = false : GameOver = false : score = false : CurrSprite = 99 : CurrImage = 99
RezOkay = CheckRez()
if RezOkay = false
    a$ = "Sorry, screen resolution for this game not available."
    b$ = "Press any key to exit."
    repeat
        center text ScrWid / 2,ScrHgt / 2, a$
        center text ScrWid / 2, ScrHgt - 100,b$
        sync
    until scancode() > false
    end
endif
set display mode 1024,768,32
ScrWid = screen width() : ScrHgt = screen height()
set window on
set window title "                              DNG - BerZerk!"
dw = desktop width() : dh = desktop height()
set window position (dw - ScrWid) / 2, (dh - ScrHgt) / 2
//setup room TYPE variable
type direction
    n as integer
    s as integer
    e as integer
    w as integer
endtype
type RoomData
    door as direction
    exitflag as boolean
    visited as boolean
    design as integer
    corner as direction
endtype
dim done(36) as integer
dim coord(36,24,24) as integer
// setup player TYPE variable
type PlayerData
    lives, image, EnterX, EnterY, XSpeed, YSpeed, AnimDelay
    LowImage, HighImage, Room, X, Y, aim, orient
endtype
player as PlayerData
// setup robot TYPE variable.  We don't know how many robots we will need
// so we set it up with zero and add to it at SetupRobots()
type RobotData
    status, image, XSpeed, YSpeed, AnimDelay, LowImage, HighImage
endtype
dim robot(0) as RobotData

Init()
LoadImages()
repeat
    for room= 1 to 36
    for x = 1 to 24
        coord(room,x,1)=blue(0)
        coord(room,x,24)=blue(0)
    next x
    for y = 1 to 24
        coord(room,1,y)=blue(1)
        coord(room,24,y)=blue(1)
    next y
    next room
    empty array maze()
    dim maze(36) as RoomData
    MazeSuccessful=SetupMaze()
until mazesuccessful=1
for i=1 to 36
    BurnRoom(i)
next i
SetupPlayer()
SetupRobots()
roomchange=1
player.room=rnd(35)+1

// Main Game loop 
repeat
    GameState = MainMenu()
    select GameState
        case 1
            cls
            // play game
            LoadRoom()
            if roomchange=1
                Setplayer()
            endif
            MovePlayer()
            MoveRobots()
            MoveEvilOtto()
            MoveShots()
            Debug()
            sync
        endcase
        case 2
            // device input
        
        endcase
        case 3
            //difficulty
        endcase
        case 4
            // sound FX options
            
        endcase
        case 5
            // high scores
            
        endcase
        case 6
            // quit
            GameOver = true
        endcase
     endselect
     if mouseclick() > false then GameOver = true
until GameOver = true
DeleteAll()
end

function MovePlayer()
    if upkey()+downkey()+leftkey()+rightkey()
        play sprite 1,1,5,100
    else
        play sprite 1,1,1,1
    endif
    paste sprite 1,player.x-18,player.y-24
    if upkey()
        dec player.y,3
        player.aim=1
        if (coord(player.room,int((player.x-16)/32)+1,int((player.y-24)/32)+1) + coord(player.room,int((player.x+16)/32)+1,int((player.y-24)/32)+1))>0
            inc player.y,3
        endif
    endif
    if leftkey()
        dec player.x,3
        player.aim=4
        if player.orient=0 then mirror sprite 1
        player.orient=1
        if (coord(player.room,int((player.x-16)/32)+1,int((player.y-24)/32)+1) + coord(player.room,int((player.x-16)/32)+1,int(player.y/32)+1) + coord(player.room,int((player.x-16)/32)+1,int((player.y+24)/32)+1))>0
            inc player.x,3
        endif
    endif
    if downkey()
        inc player.y,3
        player.aim=3
        if (coord(player.room,int((player.x-16)/32)+1,int((player.y+24)/32)+1) + coord(player.room,int((player.x+16)/32)+1,int((player.y+24)/32)+1))>0
            dec player.y,3
        endif
    endif
    if rightkey()
        inc player.x,3
        player.aim=2
        if player.orient=1 then mirror sprite 1
        player.orient=0
        if (coord(player.room,int((player.x+16)/32)+1,int((player.y-24)/32)+1) + coord(player.room,int((player.x+16)/32)+1,int(player.y/32)+1) + coord(player.room,int((player.x+16)/32)+1,int((player.y+24)/32)+1))>0
            dec player.x,3
        endif
    endif
    if player.x>750 then roomchange=1: inc player.room : exited =2
    if player.x<16 then roomchange=1: dec player.room : exited =4
    if player.y>740 then roomchange=1: player.room=player.room+6 : exited =3
    if player.y<24 then roomchange=1: player.room=player.room-6 : exited =1
endfunction

function MoveRobots()
endfunction

function MoveEvilOtto()
endfunction

function MoveShots()
endfunction

function CheckRez()
    if check display mode(1024,768,32) = false then exitfunction 0
endfunction 1

function Init()
endfunction

function LoadImages()
    ink rgb(0,0,255),0
    box 0,0,32,32
    walltile=getfreeimage()
    get image walltile,0,0,32,32
    cls
    load bitmap "media\blue.bmp",1 : // blue tiles
    dim blue(11)
    for img = 0 to 5
    blue(img) = GetFreeImage()
    get image blue(img),img * 32,0, (img * 32) + 32,32
    next img
    delete bitmap 1
    dim WalkRight(7)
    load bitmap "media\Man.jpg",1 : // man images - walking right
    for k = 1 to 5
    WalkRight(k) = GetFreeImage()
    get image WalkRight(k),(k - 1) * 36,0,k * 36,48
    next k
    delete bitmap 1
    create animated sprite 1,"media\Man.jpg",5,1,getfreeimage()
    hide sprite 1
endfunction

function SetupMaze()
//this function sets up the doors between cells so that you have a maze
    //provide corner information before starting
    for i=1 to 6
        maze(i).corner.n=1
    next i
    for i= 1 to 31 step 6
        maze(i).corner.w=1
    next i
    for i = 6 to 36 step 6
        maze(i).corner.e=1
    next i
    for i=31 to 36
        maze(i ).corner.s=1
    next i
    //choose random cell
    stacknum=1
    roomnumber=1+rnd(35)
    numbervisited=1
    maze(roomnumber).visited=1
    done(stacknum)=roomnumber
    //generate maze
    while numbervisited<36
        moved=0 `variable to establish whether the generator has moved to another cell in this cycle
        badbearing=0 `variable to establish what directions the generator should not move in
        bearing=rnd(4) `randomize initial direction
        repeat
            if bearing=1 and roomnumber>6
                if maze(roomnumber-6).visited=0
                    maze(roomnumber-6).door.s=4+rnd(16)
                    maze(roomnumber).door.n=maze(roomnumber-6).door.s
                    for i = -1 to 1
                        coord(roomnumber,maze(roomnumber).door.n+i,1)=0
                        coord(roomnumber-6,maze(roomnumber).door.n+i,24)=0
                    next i
                    roomnumber=roomnumber-6
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
            endif
            if bearing=2 and maze(roomnumber).corner.e=0                          `as an example, if the direction determined is east, it checks if the room is on the eastern wall...
                if roomnumber<36
                if maze(roomnumber+1).visited=0                                   `then checks if it hasn't already visited and adjusted that cell...
                    maze(roomnumber+1).door.w=4+rnd(16)                           `then makes a door in that cell pointing where you came from...
                    maze(roomnumber).door.e=maze(roomnumber+1).door.w             `and a door in the cell you came from pointing to where you've come...
                    for i = -1 to 1
                        coord(roomnumber,24,maze(roomnumber).door.e+i)=0
                        coord(roomnumber+1,1,maze(roomnumber).door.e+i)=0
                    next i
                    roomnumber=roomnumber+1                                       `then updates what room number you're in...
                    done(stacknum)=roomnumber                                     `and stores it in a stack.
                    stacknum=stacknum+1                                           `increment stack index
                    maze(roomnumber).visited=1                                    `set the visited flag to one for the room you're in
                    moved=1                                                       `tell the loop you've moved to an adjacent room.
                    inc numbervisited                                             `increment the number of cells that have already been adjusted
                endif
                endif
            endif
            if bearing=3 and roomnumber<31
                if maze(roomnumber+6).visited=0
                    maze(roomnumber+6).door.n=4+rnd(16)
                    maze(roomnumber).door.s=maze(roomnumber+6).door.n
                    for i = -1 to 1
                        coord(roomnumber,maze(roomnumber).door.s+i,24)=0
                        coord(roomnumber+6,maze(roomnumber).door.s+i,1)=0
                    next i
                    roomnumber=roomnumber+6
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
            endif
            if (bearing=4 and maze(roomnumber).corner.w=0)
                if roomnumber>0
                if maze(roomnumber-1).visited=0
                    maze(roomnumber-1).door.e=4+rnd(16)
                    maze(roomnumber).door.w=maze(roomnumber-1).door.e
                    for i = -1 to 1
                        coord(roomnumber,1,maze(roomnumber).door.w+i)=0
                        coord(roomnumber-1,24,maze(roomnumber).door.w+i)=0
                    next i
                    roomnumber=roomnumber-1
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
                endif
            endif
            if moved=0                                    `if you haven't moved,
                inc bearing                               `it could be because the direction was blocked, check another
                if bearing=5 then bearing=1               `bearing should be modulo4
                inc badbearing                            `tells the loop how many directions you've tried
            endif
        until moved=1 or badbearing=3                     `the generator has either moved or
        if moved = 0                                      `it didnt move and it has walked into a dead end
                done(stacknum)=0                          `it goes back till it finds a room with available neighbors
                dec stacknum
                if stacknum = 0 then exitfunction 0
                roomnumber=done(stacknum)
        endif
    endwhile                                              `do it again till all rooms have been visited
    maze(36).door.e=4+rnd(16)
    for i= -1 to 1
        coord(36,24,maze(36).door.e+i)=0
    next i
    maze(36).exitflag=1
endfunction 1

function SetupPlayer()

endfunction

function SetupRobots()

endfunction

function MainMenu()
    // paste the graphic up
    GameState = 1 : // play game - allows the game code to run
    //show mouse
endfunction GameState

function DeleteAll()
    // deletes all images and sprites prior to exiting the game

endfunction

function GetFreeSprite()
    repeat
        inc CurrSprite
    until sprite exist(CurrSprite) = false
endfunction CurrSprite

function GetFreeImage()
    repeat
        inc CurrImage
    until image exist(CurrImage) = false
endfunction CurrImage

function Debug()
    // shows info needed during development
    text 800,250,"FPS: " + str$(screen fps())
    text 800,0,"You are in Room "+STR$(player.room)
    text 800,50,"Co-ordinates"+STR$(player.x)+","+STR$(player.y)
    xoffset = player.room-(6*int(player.room/6))-1
    if xoffset=-1 then xoffset=5
    text 800,100,"Room X offset: " + str$(xoffset*24)
    text 800,150,"Room Y offset: " + str$(int((player.room-1)/6)*24)
    text 800,200,"Press arrow keys to move"
 `   text 10,100,"maze(CurrRoom).doorN = " + str$(maze(CurrRoom).doorN)
endfunction

function LoadRoom()
    for x = 1 to 24
        for y= 1 to 24
            if coord(player.room,x,y)>0
            paste image coord(player.room,x,y),(x-1)*32,(y-1)*32
            endif
        next y
    next x
endfunction

//temporary function
function DrawMaze()
    ink rgb(255,0,0),0
    for i=1 to 6
        if maze(i).door.s=0 then line ((i-1)*128), 128, i*128, 128
        if maze(i).door.e=0 then line i*128,0,i*128,128
    next i
    for i=1 to 6
        if maze(i+6).door.s=0 then line ((i-1)*128), 256, i*128, 256
        if maze(i+6).door.e=0 then line i*128,128,i*128,256
    next i
    for i=1 to 6
        if maze(i+12).door.s=0 then line ((i-1)*128), 384, i*128, 384
        if maze(i+12).door.e=0 then line i*128,256,i*128,384
    next i
    for i=1 to 6
        if maze(i+18).door.s=0 then line ((i-1)*128), 512, i*128, 512
        if maze(i+18).door.e=0 then line i*128,384,i*128,512
    next i
    for i=1 to 6
        if maze(i+24).door.s=0 then line ((i-1)*128), 640, i*128, 640
        if maze(i+24).door.e=0 then line i*128,512,i*128,640
    next i
    for i=1 to 6
        if maze(i+30).door.s=0 then line ((i-1)*128), 768, i*128, 768
        if maze(i+30).door.e=0 then line i*128,640,i*128,768
    next i
    line 0,0,0,768
    line 0,0,768,0
    for y = 1 to 6
        for x= 1 to 6
        center text 64+((x-1)*128),64+((y-1)*128),STR$(((y-1)*6)+x)
        next x 
    next y
endfunction

function BurnRoom(room)
    maze(room).design= rnd(3)
    select maze(room).design
        case 1
            // make some inner walls
            for x = 12 to 18
                coord(room,x,12) = blue(1)
            next x
            for y = 6 to 12
                coord(room,8,y) = blue(0)
            next y
            for x = 6 to 10
                coord(room,x,6) = blue(1)
            next x
            for y = 13 to 19
                coord(room,18,y) = blue(0)
            next y
        endcase
        case 2
            // make some inner walls
            for x = 5 to 12
                coord(room,x,5) = blue(1)
            next x
            for y = 11 to 17
                coord(room,18,y) = blue(0)
            next y
            for x = 6 to 10
                coord(room,x,16) = blue(1)
            next x
            for y = 13 to 19
                coord(room,8,y) = blue(0)
            next y
        endcase
        case 3
            for x = 2 to 8
                coord(room,x,8) = blue(1)
            next x
            for y = 17 to 23
                coord(room,8,y) = blue(0)
            next y
            for x = 17 to 23
                coord(room,x,17) = blue(1)
            next x
            for y = 2 to 8
                coord(room,17,y) = blue(0)
            next y
        endcase
    endselect
endfunction

function SetPlayer()
    if exited = 0 then player.x = 68+rnd(632) : player.y = 68+rnd(632)
    if exited = 1
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,i,24)=0 then player.x=(i*32)-16 : player.y= 700 : flag=1
            endif
        next i
    endif
    if exited = 3
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,i,1)=0 then player.x=(i*32)-16 : player.y= 68 : flag=1
            endif
        next i
    endif
    if exited = 2
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,1,i)=0 then player.x=68 : player.y=(i*32)-16 : flag=1
            endif
        next i
    endif
    if exited = 4
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,24,i)=0 then player.x=700 : player.y=(i*32)-16 : flag=1
            endif
        next i
    endif
    roomchange=0
endfunction

rem Project Name: DNG - Berzerk!
rem Began: 23/8/2011

rem ENSURE THAT THE GAME PLAYS IN A RANDOM FASHION
randomize timer() 
rem **DECLARE CONSTANTS - THESE WILL ALWAYS HOLD THE SAME VALUE**
#constant false 0
#constant true 1
rem **INIT GLOBAL VARIABLES - EVEN IN A FUNCTION, THESE WILL MAINTAIN THEIR VALUE**
global ScrWid, ScrHgt, GameState, GameOver, score, StartX, StartY
global StackNum, RoomNumber, NumberVisited, Roomchange, walltile, walkcycle, exited
global MoveToggle, CurrRoom
rem INITIAL VALUES OF SOME VARIABLES
ScrWid = screen width() : ScrHgt = screen height() 
GameState = false : GameOver = false : score = false : CurrSprite = 99 : CurrImage = 99
MoveToggle = false
rem CHECK THE SCREEN RESOLUTION TO MAKE SURE THE DETINATION COMPUTER CAN RUN IT
RezOkay = CheckRez()
if RezOkay = false
    a$ = "Sorry, screen resolution for this game not available."
    b$ = "Press any key to exit."
    repeat
        center text ScrWid / 2,ScrHgt / 2, a$
        center text ScrWid / 2, ScrHgt - 100,b$
        sync
    until scancode() > false
    end
endif
set display mode 1024,768,32
rem **INIT WINDOW**
set window on
set window title "                              Dark Noob Games - BerZerk!"
dw = desktop width() : dh = desktop height()
set window position (dw - ScrWid) / 2, (dh - ScrHgt) / 2
rem SETUP User Defined Type (UDT) variable for the maze data

type direction
    n as integer
    s as integer
    e as integer
    w as integer
endtype
type RoomData
    door as direction
    exitflag as boolean
    visited as boolean
    design as integer
    corner as direction
endtype
dim done(36) as integer
dim coord(36,24,24) as integer
// setup player TYPE variable
type PlayerData
    lives, image, EnterX, EnterY, XSpeed, YSpeed, AnimDelay, SprNum
    LowImage, HighImage, Room, X, Y, aim, orient
endtype
player as PlayerData
// setup robot TYPE variable.  We don't know how many robots we will need
// so we set it up with zero and add to it at SetupRobots()
type RobotData
    status, image, XSpeed, YSpeed, AnimDelay, LowImage, HighImage, SprNum
endtype
dim robot(0) as RobotData




`type RoomData
`    visited as boolean
`    x,y, cell, doorN, doorE, doorS, doorW
`endtype
`dim maze(36) as RoomData
// setup player TYPE variable

// setup robot TYPE variable.  We don't know how many robots we will need
// so we set it up with zero and add to it at SetupRobots()


Init() : // initialize game data
LoadImages() : // loads all of the images needed for the game
repeat
    for room = 1 to 36
        for x = 1 to 24
            coord(room,x,1) = blue(0)
            coord(room,x,24) = blue(0)
        next x
        for y = 1 to 24
            coord(room,1,y) = blue(1)
            coord(room,24,y) = blue(1)
        next y
    next room
    empty array maze()
    dim maze(36) as RoomData
    MazeSuccessful = SetupMaze()
until MazeSuccessful = true
for i = 1 to 36
    BurnRoom(i)
next i
SetupPlayer() : // initializes the player info
SetupRobots() : // initializes the info for the robots
roomchange = 1
player.room = rnd(35) + 1
rem SETUP MANUAL SYNCING - WE REDRAW THE SCREEN WHEN WE ARE READY
sync on : sync rate 60
// Main Game loop 
repeat
    GameState = MainMenu() : // this goes to the MainMenu function and returns the current game state
                             // it currently is setup to simply play the game as the MainMenu function 
                             // has not yet been installed
    select GameState : // this selects the value of the variable GameState, and branches based upon that
        case 1
            // play game
            LoadRoom()
            if roomchange = true
                Setplayer()
            endif
            MovePlayer() : // get input from the player to move the character around
            MoveRobots() : // move the robots around
            MoveEvilOtto() : // check to see if it is time for Evil Otto to come out and 
                             // if so, it moves him and will check for collision with the 
                             // player and with the robots
            MoveShots() : // moves all shots, whether player or robot and checks for collision
            Debug() : // useful tool to display text on the screen - used to determine frame rate, 
                      // values of variables that we want to see, etc.
            sync : // manually sync the screen
        endcase
        case 2
            // device input
        
        endcase
        case 3
            //difficulty
        endcase
        case 4
            // sound FX options
            
        endcase
        case 5
            // high scores
            
        endcase
        case 6
            // quit
            GameOver = true
        endcase
     endselect
     if mouseclick() > false then GameOver = true : // mouseclick() is temporary to allow user to exit
until GameOver = true
DeleteAll()
end


function MovePlayer()
    
    u = upkey() : r = rightkey() : d = downkey() : l = leftkey()
    if u
        player.aim=1
        bx = int((player.x + 16) / 32)   : by = int((player.y + 16) / 32)
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx + 1,by)
       ` ink rgb(255,0,255),0
        `box (bx - 1) * 32,by * 32,(bx * 32),(by + 1) * 32 
       `` ink rgb(0,255,0),0
        `box bx * 32, by * 32, (bx + 1) * 32, (by + 1) * 32  
        if coo = 0 and coo2 = 0 
            dec player.y,3 
            play sprite player.SprNum,1,14,100
        else
            text 200,200,"Player just fried!" : sync : wait 750
        endif
    endif
    if l
        player.aim=4
        if player.orient=0 then mirror sprite player.SprNum
        player.orient=1
        bx = int((player.x + 20) / 32)   : by = int((player.y + 16) / 32)
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx,by + 1)
       ` ink rgb(255,0,255),0
       ` box (bx - 1) * 32,((by - 1) * 32),(bx * 32),(by * 32) 
        `ink rgb(0,255,0),0
        `box (bx - 1) * 32, by * 32, bx * 32, (by + 1) * 32  
        if coo = 0 and coo2 = 0 
            dec player.x,3
            play sprite player.SprNum,1,14,100
        else
            text 200,200,"Player just fried!" : sync : wait 750
        endif
    endif
    if d
        player.aim=3
        bx = int((player.x + 16) / 32)   : by = int((player.y + 56) / 32)
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx + 1,by)
      `  ink rgb(255,0,255),0
       ` box (bx - 1) * 32,by * 32,(bx * 32),(by + 1) * 32 
       ` ink rgb(0,255,0),0
       ` box bx * 32, by * 32, (bx + 1) * 32, (by + 1) * 32  
        if coo = 0 and coo2 = 0 
            inc player.y,3
            play sprite player.SprNum,1,14,100
        else
            text 200,200,"Player just fried!" : sync : wait 750
        endif
    endif
    if r
        player.aim=2
        if player.orient=1 then mirror sprite player.SprNum
        player.orient=0
        bx = int((player.x + 40) / 32)   : by = int((player.y + 16) / 32) 
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx,by + 1)
        `ink rgb(255,0,255),0
        `box (bx - 1) * 32,((by - 1) * 32),(bx * 32),(by * 32) 
        `ink rgb(0,255,0),0
        `box (bx - 1) * 32, by * 32, bx * 32, (by + 1) * 32
        if coo = 0 and coo2 = 0
            inc player.x,3
            play sprite player.SprNum,1,14,100
        else
            text 200,200,"Player just fried!" : sync : wait 750
        endif
    endif
    paste sprite player.SprNum,player.x,player.y
    if player.x > 750 then roomchange = true : inc player.room : exited = 2
    if player.x < 16 then roomchange = true : dec player.room : exited = 4
    if player.y > 740 then roomchange = true : inc player.room,6 : exited = 3
    if player.y < 24 then roomchange = true : dec player.room, 6 : exited = 1
    

endfunction


function MoveRobots()



endfunction


function MoveEvilOtto()



endfunction


function MoveShots()


endfunction

function CheckRez() : // check tp see if the user's machione can display a 1024 X 768 X 32 screen
    rezOkay = check display mode(1024,768,32)
endfunction rezOkay


function Init()



endfunction


function LoadImages()
// load in all of the images we need for the game
load bitmap "media\blue.bmp",1 : // blue tiles
dim blue(11)
for img = 0 to 5
    blue(img) = GetFreeImage()
    get image blue(img),img * 32,0, (img * 32) + 32,32
next img
delete bitmap 1
dim WalkRight(7)
`load bitmap "media\Man.bmp",1 : // man images - walking right
`for k = 1 to 7
`    WalkRight(k) = GetFreeImage()
`    get image WalkRight(k),(k - 1) * 36,0,k * 36,48
`next k
`delete bitmap 1



endfunction

remstart
`function SetupMaze() : // do the initial setup of the entire maze
    dim map(144,144)
    CurrRoom = 1
    for y = 1 to 6 : // we want a 6 X 6 grid of rooms for 36 total
        for x = 1 to 6
            // pick random interior walls for the room
            maze(CurrRoom).cell = rnd(2) : // 0 - 2 for right now, but eventually rnd(17) + 1
            BurnRoom(maze(CurrRoom).cell,x,y)
            // store x and y coords
            maze(CurrRoom).x = x : maze(CurrRoom).y = y
            // show that the room has not been visited yet
            maze(CurrRoom).visited = false
            inc CurrRoom
        next x
    next y
    StartX = 24 : StartY = 24 : CurrRoom = 8 : // we'll start at room 8 for now
    DisplayMap(StartX, StartY)    
 remend
     
function SetupMaze()
//this function sets up the doors between cells so that you have a maze
    //provide corner information before starting
    for i=1 to 6
        maze(i).corner.n=1
    next i
    for i= 1 to 31 step 6
        maze(i).corner.w=1
    next i
    for i = 6 to 36 step 6
        maze(i).corner.e=1
    next i
    for i=31 to 36
        maze(i ).corner.s=1
    next i
    //choose random cell
    stacknum=1
    roomnumber=1+rnd(35)
    numbervisited=1
    maze(roomnumber).visited=1
    done(stacknum)=roomnumber
    //generate maze
    while numbervisited<36
        moved=0 `variable to establish whether the generator has moved to another cell in this cycle
        badbearing=0 `variable to establish what directions the generator should not move in
        bearing=rnd(4) `randomize initial direction
        repeat
            if bearing=1 and roomnumber>6
                if maze(roomnumber-6).visited=0
                    maze(roomnumber-6).door.s=4+rnd(16)
                    maze(roomnumber).door.n=maze(roomnumber-6).door.s
                    for i = -1 to 1
                        coord(roomnumber,maze(roomnumber).door.n+i,1)=0
                        coord(roomnumber-6,maze(roomnumber).door.n+i,24)=0
                    next i
                    roomnumber=roomnumber-6
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
            endif
            if bearing=2 and maze(roomnumber).corner.e=0                          `as an example, if the direction determined is east, it checks if the room is on the eastern wall...
                if roomnumber<36
                if maze(roomnumber+1).visited=0                                   `then checks if it hasn't already visited and adjusted that cell...
                    maze(roomnumber+1).door.w=4+rnd(16)                           `then makes a door in that cell pointing where you came from...
                    maze(roomnumber).door.e=maze(roomnumber+1).door.w             `and a door in the cell you came from pointing to where you've come...
                    for i = -1 to 1
                        coord(roomnumber,24,maze(roomnumber).door.e+i)=0
                        coord(roomnumber+1,1,maze(roomnumber).door.e+i)=0
                    next i
                    roomnumber=roomnumber+1                                       `then updates what room number you're in...
                    done(stacknum)=roomnumber                                     `and stores it in a stack.
                    stacknum=stacknum+1                                           `increment stack index
                    maze(roomnumber).visited=1                                    `set the visited flag to one for the room you're in
                    moved=1                                                       `tell the loop you've moved to an adjacent room.
                    inc numbervisited                                             `increment the number of cells that have already been adjusted
                endif
                endif
            endif
            if bearing=3 and roomnumber<31
                if maze(roomnumber+6).visited=0
                    maze(roomnumber+6).door.n=4+rnd(16)
                    maze(roomnumber).door.s=maze(roomnumber+6).door.n
                    for i = -1 to 1
                        coord(roomnumber,maze(roomnumber).door.s+i,24)=0
                        coord(roomnumber+6,maze(roomnumber).door.s+i,1)=0
                    next i
                    roomnumber=roomnumber+6
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
            endif
            if (bearing=4 and maze(roomnumber).corner.w=0)
                if roomnumber>0
                if maze(roomnumber-1).visited=0
                    maze(roomnumber-1).door.e=4+rnd(16)
                    maze(roomnumber).door.w=maze(roomnumber-1).door.e
                    for i = -1 to 1
                        coord(roomnumber,1,maze(roomnumber).door.w+i)=0
                        coord(roomnumber-1,24,maze(roomnumber).door.w+i)=0
                    next i
                    roomnumber=roomnumber-1
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
                endif
            endif
            if moved=0                                    `if you haven't moved,
                inc bearing                               `it could be because the direction was blocked, check another
                if bearing=5 then bearing=1               `bearing should be modulo4
                inc badbearing                            `tells the loop how many directions you've tried
            endif
        until moved=1 or badbearing=3                     `the generator has either moved or
        if moved = 0                                      `it didnt move and it has walked into a dead end
                done(stacknum)=0                          `it goes back till it finds a room with available neighbors
                dec stacknum
                if stacknum = 0 then exitfunction 0
                roomnumber=done(stacknum)
        endif
    endwhile                                              `do it again till all rooms have been visited
    maze(36).door.e=4+rnd(16)
    for i= -1 to 1
        coord(36,24,maze(36).door.e+i)=0
    next i
    maze(36).exitflag=1
endfunction 1     



function BurnRoom(room)
    maze(room).design = rnd(3)
    select maze(room).design
        case 1
            // make some inner walls
            for x = 12 to 18
                coord(room,x,12) = blue(1)
            next x
            for y = 6 to 12
                coord(room,8,y) = blue(0)
            next y
            for x = 6 to 10
                coord(room,x,6) = blue(1)
            next x
            for y = 13 to 19
                coord(room,18,y) = blue(0)
            next y
        endcase
        case 2
            // make some inner walls
            for x = 5 to 12
                coord(room,x,5) = blue(1)
            next x
            for y = 11 to 17
                coord(room,18,y) = blue(0)
            next y
            for x = 6 to 10
                coord(room,x,16) = blue(1)
            next x
            for y = 13 to 19
                coord(room,8,y) = blue(0)
            next y
        endcase
        case 3
            for x = 2 to 8
                coord(room,x,8) = blue(1)
            next x
            for y = 17 to 23
                coord(room,8,y) = blue(0)
            next y
            for x = 17 to 23
                coord(room,x,17) = blue(1)
            next x
            for y = 2 to 8
                coord(room,17,y) = blue(0)
            next y
        endcase
    endselect
endfunction


function SetupPlayer() : // setup the necessary info for the player
    player.image = GetFreeImage()
    player.SprNum = GetFreeSprite()
    create animated sprite player.SprNum,"media\Man.bmp",7,14,player.image
    sprite player.SprNum,-100,-100,player.image
    offset sprite player.SprNum,18,24
endfunction

function SetPlayer()

    if exited = 0 then player.x = 68+rnd(632) : player.y = 68+rnd(632)
    if exited = 1
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,i,24)=0 then player.x=(i*32)-16 : player.y= 700 : flag=1
            endif
        next i
    endif
    if exited = 3
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,i,1)=0 then player.x=(i*32)-16 : player.y= 68 : flag=1
            endif
        next i
    endif
    if exited = 2
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,1,i)=0 then player.x=68 : player.y=(i*32)-16 : flag=1
            endif
        next i
    endif
    if exited = 4
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,24,i)=0 then player.x=700 : player.y=(i*32)-16 : flag=1
            endif
        next i
    endif
    roomchange=0
endfunction


function SetupRobots()

endfunction

function MainMenu()
    // paste the graphic up
    GameState = 1 : // play game - allows the game code to run
    //show mouse
    



endfunction GameState


function DeleteAll()
    // deletes all images and sprites prior to exiting the game

endfunction

function GetFreeSprite() : // this creates sprite #'s in chronological order
    repeat
        inc CurrSprite
    until sprite exist(CurrSprite) = false
endfunction CurrSprite

function GetFreeImage() : // this creates image #'s in chronological order
    repeat
        inc CurrImage
    until image exist(CurrImage) = false
endfunction CurrImage

function Debug()
     // shows info needed during development
    text 800,250,"FPS: " + str$(screen fps())
    text 800,0,"You are in Room "+STR$(player.room)
    text 800,50,"Co-ordinates"+STR$(player.x)+","+STR$(player.y)
    xoffset = player.room-(6*int(player.room/6))-1
    if xoffset=-1 then xoffset=5
    text 800,100,"Room X offset: " + str$(xoffset*24)
    text 800,150,"Room Y offset: " + str$(int((player.room-1)/6)*24)
    text 800,200,"Press arrow keys to move"
`    text 10,100,"coo = " + str$(coo)
`    text 10,120,"coo2 = " + str$(coo2)
`    text 100,140,"frame: " + str$(sprite frame(player.SprNum))
endfunction

function LoadRoom()
    for x = 1 to 24
        for y= 1 to 24
            if coord(player.room,x,y)>0
                paste image coord(player.room,x,y),(x-1)*32,(y-1)*32
            endif
        next y
    next x
endfunction


//temporary function
function DrawMaze()
    ink rgb(255,0,0),0
    for i=1 to 6
        if maze(i).door.s=0 then line ((i-1)*128), 128, i*128, 128
        if maze(i).door.e=0 then line i*128,0,i*128,128
    next i
    for i=1 to 6
        if maze(i+6).door.s=0 then line ((i-1)*128), 256, i*128, 256
        if maze(i+6).door.e=0 then line i*128,128,i*128,256
    next i
    for i=1 to 6
        if maze(i+12).door.s=0 then line ((i-1)*128), 384, i*128, 384
        if maze(i+12).door.e=0 then line i*128,256,i*128,384
    next i
    for i=1 to 6
        if maze(i+18).door.s=0 then line ((i-1)*128), 512, i*128, 512
        if maze(i+18).door.e=0 then line i*128,384,i*128,512
    next i
    for i=1 to 6
        if maze(i+24).door.s=0 then line ((i-1)*128), 640, i*128, 640
        if maze(i+24).door.e=0 then line i*128,512,i*128,640
    next i
    for i=1 to 6
        if maze(i+30).door.s=0 then line ((i-1)*128), 768, i*128, 768
        if maze(i+30).door.e=0 then line i*128,640,i*128,768
    next i
    line 0,0,0,768
    line 0,0,768,0
    for y = 1 to 6
        for x= 1 to 6
        center text 64+((x-1)*128),64+((y-1)*128),STR$(((y-1)*6)+x)
        next x 
    next y
endfunction

remstart
function SetOuterWalls(StartX,StartY, colr, x, y)
    // this function will store the outer wall images in the map array
    // and will setup doors on the walls
    if colr = 1
        img0 = blue(0) : img1 = blue(1) : img2 = blue(2) : img3 = blue(3)
        img4 = blue(4) : img5 = blue(5)
    endif
    // using color 1 (blue tiles) for now - ditto for other colors    
    for a = 1 to 24
       for b = 1 to 24
            if a = 1 or a = 24 then map(StartX + a,StartY + b) = img0
            if b = 1 or b = 24 then map(StartX + a,StartY + b) = img1
	   next b
    next a
    // fix the corners
    map(StartX + 1,StartY + 1) = img2 : map(StartX + 24,StartY) = img3
    map(StartX + 1,StartY + 24) = img5 : map(StartX + 24,StartY + 24) = img4
    // make door at top
    dx = rnd(12) + 4
    if y > 1 
        if maze(CurrRoom -6).DoorS > 0 : // is there a door on the south end of the room above?
            maze(CurrRoom).DoorN = maze(CurrRoom - 6).DoorS : // set the x on this door the same 
            // as the x of the south door in the room above
            for door = maze(CurrRoom).DoorN to maze(CurrRoom).DoorN + 4 : // place a door on the north side
                map(StartX + door,StartY + 1) = 0
            next door
        endif
    endif
    // make door for the right
    dy = rnd(12) + 4
    for door = dy to dy + 4
        map(StartX + 24,StartY + door) = 0
    next door
     maze(CurrRoom).DoorE = dy
    // make door for the left
    dy = rnd(12) + 4
    for door = dy to dy + 4
        map(StartX + 1,StartY + door) = 0
    next door
     maze(CurrRoom).DoorW = dy
    // make door for the bottom
    dx = rnd(12) + 4
    for door = dx to dx + 4
        map(StartX + door,StartY + 24) = 0
    next door
     maze(CurrRoom).DoorS = dx
endfunction

function DisplayMap(StartX,StartY)
      cls : // clears the screen
      for y = 1 to 24
           for x = 1 to 24 : // if the map array holds a value greater than 0, the value it holds is
                             // an image and it is pasted on the screen
                 if map(StartX + x,StartY + y) > 0 then paste image map(StartX + x,StartY + y),(x - 1)* 32, (y - 1) * 32
           next x
      next y
endfunction
remend

function LoadMusic()

// create variable to store sound name
dim global sound$(7)
sound$(1) = ChickenFightlikearobotV1
sound$(2) = GameoverrobotswinV1
sound$(3) = GetthehumanoidV1
sound$(4) = GotthehumanoidV1
sound$(5) = HaHaHaHumanoiddestroyedV1
sound$(6) = IntruderAlertIntruderAlertV1
sound$(7) = ThehumanoidmustnotescapeV1

// load in all of the Music (sounds) we need for the game
load music "media\ChickenFightlikearobotV1.mp3",sound$(1) : // robot voice
load music "media\GameoverrobotswinV1",sound$(2) : // robot voice
load music "media\GetthehumanoidV1.mp3",sound$(3) : // robot voice
load music "media\GotthehumanoidV1.mp3",sound$(4) : // robot voice
load music "media\HaHaHaHumanoiddestroyedV1.mp3",sound$(5) : // robot voice
load music "media\IntruderAlertIntruderAlertV1.mp3",sound$(6) : // robot voice
load music "media\ThehumanoidmustnotescapeV1.mp3",sound$(7) : // robot voice

endfunction

global Chicken, RobotsWin, GetHuman, GotHuman, HaHaHa, Intruder, NotEscape, CurrMusic

function LoadMusic()

    Chicken = GetFreeMusic()
    load music "media\ChickenFightlikearobotV1.mp3",Chicken
    // same for RobotsWin, GetHuman, etc.


endfunction

function GetFreeMusic()
    repeat
        inc CurrMusic
    until music exist(CurrMusic) = false
endfunction CurrMusic

function SetupPlayer() : // setup the necessary info for the player
    player.image = GetFreeImage()
    player.SprNum = GetFreeSprite()
    create animated sprite player.SprNum,"media\Man.bmp",7,14,player.image
    sprite player.SprNum,-100,-100,player.image
    offset sprite player.SprNum,18,24
endfunction

 bx = int((player.x + 16) / 32)   : by = int((player.y + 16) / 32)
 coo = coord(player.room,bx ,by )
 coo2 = coord(player.room,bx + 1,by)
 if coo = 0 and coo2 = 0 
     dec player.y,3 
     frame = sprite frame(player.SprNum)
     if frame < 29 or frame > 42
         set sprite frame player.SprNum,29
     endif
     play sprite player.SprNum,29,42,100
 else
     text 200,200,"Player just fried!" : sync : wait 750
 endif

Rem Project: Hunter
Rem Created: Sunday, August 28, 2011

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

Rem =============
Rem = MAIN LOOP =
Rem =============

do
State = 6
If State = 0 then gosub Menu       `Menu
If State = 1 then gosub Game       `The game
If State = 2 then gosub Difficulty `For new games.
If State = 3 then gosub Pause      `InGame pause menu.
If State = 4 then gosub Save       `Saving, dur.
If State = 5 then gosub Load       `Loading.
If State = 6 then gosub Init       `Probally should have done this first...
If State = 7 then gosub Options    `Menu
  loop

Rem =============
Rem = Variables =
Rem =============

Init:
Rem If you're wondering, playerY and playerX is in the game loop, not main loop.

Global Monster01X = 0
Global Monster01Y = 0

Global Monster02X = 0
Global Monster02Y = 0

Global Monster03X = 0
Global Monster03Y = 0

Global Monster04X = 0
Global Monster04Y = 0

Global Monster05X = 0
Global Monster05Y = 0

Rem Difficulty, tracked by variables. 0 = Off, 1 = On

Global Easy = 0
Global Normal = 0
Global Hard = 0

State = 0
  Return

Rem So obviously 5 is the limit at the moment. Easy too add more, but 5 is good for now.

Rem ===============
Rem = Subroutines =
Rem ===============
 
Menu:
wait key
`Menu Goes Here
  Return

Options:
`Options Go Here
  Return

Rem |===========- SubMenus -============|
Game:

Gosub Vars

For i = 1 to 3
   Load image "Media\Terrain\Grass.png", platformID(i) `Terrain, for collision.
next i
   
Load image "Media\Mobs\HunterStatic.png", 1 `Mobs and animations go here.

Rem =============
Rem = Game Loop =
Rem =============

Gosub Vars

Do
Anim = 0
paste image BG, 0, 0 `We don't have one yet, but background is loaded here.

For i = 1 to 3
   Sprite platformID(i), platform1_X(i), platform1_Y(i), platformID(i)
 next i
 
  If jumping = 0
     old_Y = playerY
  endif
  
  Sprite playerID, playerX, playerY, imgnum
  
  jumpmax = old_Y - 150
  
  Gosub PlayerInput
  Gosub PlayerAnim
  Gosub Title
  Gosub Gravity
  Gosub Collision
  
    Sync
  Loop
  
  Vars:
  playerID = 1
  BG = 100
  gravity# = 3
  jumping = 0
  jumpspeed = 2
  playerX = 25
  playerY = 0
  falling = 0
  
  Rem Animation
  anim = 0
  fright = 1
  frame = 0
  imgnum = 1
  
  dim platformID(3)
  dim platform1_X(3)
  dim platform1_Y(3)
  
  for i = 1 to 3
     platformID(i) = 100 + i
   next i
   
  platform1_X(1) = 20
  platform1_Y(1) = 50
  
  platform1_X(2) = 50
  platform1_Y(2) = 150
  
  platform1_X(3) = 100
  platform1_Y(3) = 250
  
  ink rgb(255, 0, 0), 1
  title$ = Hunter
  tx = Screen Width()
  ty = 0
  
  return
  
Title:
     text tx, ty, title$
     tx = tx - 1
     
     if tx+text width(title$) < 0
        tx = screen width()
     endif
     
     if jumping = 0 and falling = 0
        text 100, 500, "On Ground" `Temporary.
     endif
     
     if jumping = 1
        text 100, 500, "Jumping" `Temporary.
     endif
     
     if jumping = 3
        text 100, 500, "Falling" `Temporary.
     endif
     
     if falling = 1
        text 200, 500, "Falling" `Temporary.
     endif
     
Gravity:
       
       if falling = 1
          playerY = playerY + gravity#
          imgnum = 6
       endif
       
       if jumping = 1
          imgnum = 5
          playerY = playerY - (jumpspeed*3)
       endif
       
       if playerY <= jumpmax
          falling = 1
          jumping = 3
       endif
       
    Return
    
PlayerAnim:
    if anim = 1
       imgnum = 2 + (frame/2)
       frame = frame + 1
       of frame >= 4 then frame = 0
    else
       imgnum = 1
    endif
  return
  
Collision:

   if sprite collision (playerID, platformID(1)) = 1
      falling = 0
      jumping = 0
      playerY = playerY
   endif
   
   if sprite collision (playerID, platformID(3)) = 1
      falling = 0
      jumping = 0
      playerY = playerY
   endif
   
   if falling = 0 and sprite collision (playerID, 0) = 0
      falling = 1
   endif
   
return

PlayerInput:   `If you think we need to change the controls, go ahead. Just tell me.

Rem === Walk Right ===
    if rightkey() = 1
       if controlkey() = 1
       Rem === Run Right ===
          playerX = playerX + 3
       endif
       playerX = playerX + 2
       if fright = 0
          mirror sprite 1
          fright = 0
       endif
       anim = 1
    endif
    
Rem === Walk Left ===
   if leftkey() = 1
      if controlkey() = 1
         playerX = playerX - 2
      endif
      playerX = playerX - 3
      if fright = 1
         mirror sprite 1
         fright = 0
      endif
      anim = 1
   endif
   
   if spacekey() and jumping = 0 and falling = 0
      jumping = 1
   endif
   
   Rem Player Reset
   if inkey$() = "r" 
      playerX = 25
      playerY = 0
   endif
   
return
       
   
   
   
       

Difficulty:

Pause:

Save:
	If file exist ("Data\Save01.dat") = 1 then delete file "Data\Save01.dat"
	open to write 1, "Data\Save01.dat"
	
	  write long 1, playerX
	  write long 1, playerY
	  
	  write long 1, Monster01X
	  write long 1, Monster01Y
	  
	  write long 1, Monster02X
	  write long 1, Monster02Y
	  
	  write long 1, Monster03X
	  write long 1, Monster03Y
	  
	  write long 1, Monster04X
	  write long 1, Monster04Y
	  
	  write long 1, Monster05X
	  write long 1, Monster05Y `You get the idea.
	  
	  write long 1, Easy
	  write long 1, Normal
	  write long 1, Hard
	  
	    write long 1, State `Don't know if I have to save this... but better safe then sorry.
	    close file 1
	    wait 1000
	    
	    If file exist("Data\Save01.dat") = 1
	       Set text font "Courier"
	       Center text 320, 160, "Saved! Press ANY Key To Continue."
	       sync
	       wait key
	    Else `Corrupted file check. (Or crash, both I guess.)
	       Center text 320, 160, "Save Failed. Corrupt file. Press ANY key to continue."
	       sync
	       wait key
	    endif

Load:
    `Loading goes here, I will do it later.
Rem |===========- SubMenus -============|

Rem =============
Rem = Functions =
Rem =============

function LoadMusic()
    // Storing the directory means we only have to write it once.
    mydir$ = "media"

    // Globals must be in same order as file names.
    data "chicken.mp3", "robot.mp3", "human1.mp3", "human2.mp3"
    global snd_chicken=1, snd_robot=2, snd_playerwin=3, snd_playerdie=4

    // Make array.
    max_sfx = 4
    dim global sfx(max_sfx)

    // Store next available sound number in sfx array, then load next sound with the same number.
    // invariant: we've loaded i-1 sounds so far.
    for i = 1 to max_sfx
      sfx(i) = GetFreeSound()
      read file$
      load sound mydir$+file$, sfx(i)
    next i
endfunction

rem Project Name: DNG - Berzerk!
rem Project Manager: LBFN
rem Began: 23/8/2011

rem **DECLARE CONSTANTS - THESE WILL ALWAYS HOLD THE SAME VALUE**
#constant false 0
#constant true 1

rem **INIT GLOBAL VARIABLES - EVEN IN A FUNCTION, THESE WILL MAINTAIN THEIR VALUE**
global ScrWid, ScrHgt, GameState, GameOver, score, StartX, StartY
global StackNum, RoomNumber, NumberVisited, Roomchange, walltile, walkcycle, exited
global MoveToggle, CurrRoom, CurrImage, CurrSprite, CurrMusic

rem INITIAL VALUES OF SOME VARIABLES
CurrImage = 99 : CurrMusic = 0 : CurrSprite = 99
GameState = false : GameOver = false : MoveToggle = false : score = false
ScrWid = 1024 : ScrHgt = 768

rem CHECK SCREEN RESOLUTION IS AVAILABLE
rem OBese87{We need to activate manual syncing here.}
sync on : sync rate 60
if CheckRez(ScrWid,ScrHgt,32) = false
    a$ = "Sorry, screen resolution not available."
    b$ = "Press any key to exit."
    // OBese87{No sense repeating the same calculations,
    //         so we place them before the loop and store the results.}
    ax = ScrWid / 2 : ay = ScrHgt / 2
    bx = ax : by = ay + 40
    repeat
        center text ax, ay, a$
        center text bx, by,b$
        sync
    until scancode() > false
    end
else
	// OBese87{I moved this line to here because stricly it is the ELSE statement,
	//		   but it worked fine as an independent line because in this case
	//		   the entire program beyond this point could be considered the ELSE statement,
	//		   since a true result from the IF condition would end the program.}
    set display mode ScrWid,ScrHgt,32
endif

rem **INIT WINDOW**
set window on
set window title "                              Dark Noob Games - BerZerk!"
dw = desktop width() : dh = desktop height()
set window position (dw - ScrWid) / 2, (dh - ScrHgt) / 2



rem ** SETUP User Defined Type (UDT) variable for the maze data **
type direction
    n as integer
    s as integer
    e as integer
    w as integer
endtype

type RoomData
    door as direction
    exitflag as boolean
    visited as boolean
    design as integer
    corner as direction
endtype
dim done(36) as integer
dim coord(36,24,24) as integer
// Obese{Is this redundant code now?}
`type RoomData
`    visited as boolean
`    x,y, cell, doorN, doorE, doorS, doorW
`endtype
`dim maze(36) as RoomData

// setup player TYPE variable
type PlayerData
    lives, image, EnterX, EnterY, XSpeed, YSpeed, AnimDelay, SprNum
    LowImage, HighImage, Room, X, Y, aim
endtype
player as PlayerData

// setup robot TYPE variable.
    status, image, XSpeed, YSpeed, AnimDelay, LowImage, HighImage, SprNum
endtype
// We don't know how many robots we will need so we set it up with zero and add to it at SetupRobots()
type RobotData
dim robot(0) as RobotData
// *** /UDTs ***

rem Obese{Seed the random number generator with timer() so it's unpredictable.}
randomize timer() 
Init() : // initialize game data
LoadImages() : // loads all of the images needed for the game
repeat
    for room = 1 to 36
        for x = 1 to 24
            coord(room,x,1) = blue(0)
            coord(room,x,24) = blue(0)
        next x
        for y = 1 to 24
            coord(room,1,y) = blue(1)
            coord(room,24,y) = blue(1)
        next y
    next room
    empty array maze()
    dim maze(36) as RoomData
    MazeSuccessful = SetupMaze()
until MazeSuccessful = true

for i = 1 to 36
    BurnRoom(i)
next i

SetupPlayer() : // initializes the player info
SetupRobots() : // initializes the info for the robots
roomchange = 1
player.room = rnd(35) + 1
rem SETUP MANUAL SYNCING - WE REDRAW THE SCREEN WHEN WE ARE READY
rem OBese87{I can't remember if we need this again after setting display mode. I'll just leave it here!}
sync on : sync rate 60

// *** Main Game loop ***
repeat
    GameState = MainMenu() : // this goes to the MainMenu function and returns the current game state
                             // it currently is setup to simply play the game as the MainMenu function 
                             // has not yet been installed
    select GameState : // this selects the value of the variable GameState, and branches based upon that
        case 1
            // play game
            LoadRoom()
            if roomchange = true
                Setplayer()
            endif
            MovePlayer() : // get input from the player to move the character around
            MoveRobots() : // move the robots around
            MoveEvilOtto() : // check to see if it is time for Evil Otto to come out and 
                             // if so, it moves him and will check for collision with the 
                             // player and with the robots
            MoveShots() : // moves all shots, whether player or robot and checks for collision
            Debug() : // useful tool to display text on the screen - used to determine frame rate, 
                      // values of variables that we want to see, etc.
            sync : // manually sync the screen
        endcase
        case 2
            // device input
        
        endcase
        case 3
            //difficulty
        endcase
        case 4
            // sound FX options
            
        endcase
        case 5
            // high scores
            
        endcase
        case 6
            // quit
            GameOver = true
        endcase
     endselect
     if mouseclick() > false then GameOver = true : // mouseclick() is temporary to allow user to exit
until GameOver = true
DeleteAll()
end

// === FUNCTIONS ===
// OBese87{Sorting functions alphabetically makes them much easier to find.}

function BurnRoom(room)
    maze(room).design = rnd(3)
    select maze(room).design
        case 1
            // make some inner walls
            for x = 12 to 18
                coord(room,x,12) = blue(1)
            next x
            for y = 6 to 12
                coord(room,8,y) = blue(0)
            next y
            for x = 6 to 10
                coord(room,x,6) = blue(1)
            next x
            for y = 13 to 19
                coord(room,18,y) = blue(0)
            next y
        endcase
        case 2
            // make some inner walls
            for x = 5 to 12
                coord(room,x,5) = blue(1)
            next x
            for y = 11 to 17
                coord(room,18,y) = blue(0)
            next y
            for x = 6 to 10
                coord(room,x,16) = blue(1)
            next x
            for y = 13 to 19
                coord(room,8,y) = blue(0)
            next y
        endcase
        case 3
            for x = 2 to 8
                coord(room,x,8) = blue(1)
            next x
            for y = 17 to 23
                coord(room,8,y) = blue(0)
            next y
            for x = 17 to 23
                coord(room,x,17) = blue(1)
            next x
            for y = 2 to 8
                coord(room,17,y) = blue(0)
            next y
        endcase
    endselect
endfunction
//

rem OBese87{Using parameters makes CheckRez so much more powerful.
rem 		Now it can test any resolution, not just one!}
function CheckRez(w,h,d)
    rezOkay = check display mode(w,h,d)
endfunction rezOkay
//

function DeleteAll()
    // deletes all images and sprites prior to exiting the game
endfunction
//

function Debug()
     // shows info needed during development
    text 800,250,"FPS: " + str$(screen fps())
    text 800,0,"You are in Room "+STR$(player.room)
    text 800,50,"Co-ordinates"+STR$(player.x)+","+STR$(player.y)
    xoffset = player.room-(6*int(player.room/6))-1
    if xoffset=-1 then xoffset=5
    text 800,100,"Room X offset: " + str$(xoffset*24)
    text 800,150,"Room Y offset: " + str$(int((player.room-1)/6)*24)
    text 800,200,"Press arrow keys to move"
`    text 10,100,"coo = " + str$(coo)
`    text 10,120,"coo2 = " + str$(coo2)
`    text 100,140,"frame: " + str$(sprite frame(player.SprNum))
endfunction
//

//temporary function
function DrawMaze()
    ink rgb(255,0,0),0
    for i=1 to 6
        if maze(i).door.s=0 then line ((i-1)*128), 128, i*128, 128
        if maze(i).door.e=0 then line i*128,0,i*128,128
    next i
    for i=1 to 6
        if maze(i+6).door.s=0 then line ((i-1)*128), 256, i*128, 256
        if maze(i+6).door.e=0 then line i*128,128,i*128,256
    next i
    for i=1 to 6
        if maze(i+12).door.s=0 then line ((i-1)*128), 384, i*128, 384
        if maze(i+12).door.e=0 then line i*128,256,i*128,384
    next i
    for i=1 to 6
        if maze(i+18).door.s=0 then line ((i-1)*128), 512, i*128, 512
        if maze(i+18).door.e=0 then line i*128,384,i*128,512
    next i
    for i=1 to 6
        if maze(i+24).door.s=0 then line ((i-1)*128), 640, i*128, 640
        if maze(i+24).door.e=0 then line i*128,512,i*128,640
    next i
    for i=1 to 6
        if maze(i+30).door.s=0 then line ((i-1)*128), 768, i*128, 768
        if maze(i+30).door.e=0 then line i*128,640,i*128,768
    next i
    line 0,0,0,768
    line 0,0,768,0
    for y = 1 to 6
        for x= 1 to 6
        center text 64+((x-1)*128),64+((y-1)*128),STR$(((y-1)*6)+x)
        next x 
    next y
endfunction
//

function GetFreeImage() : // this creates image #'s in chronological order
    repeat
        inc CurrImage
    until image exist(CurrImage) = false
endfunction CurrImage
//

function GetFreeSprite() : // this creates sprite #'s in chronological order
    repeat
        inc CurrSprite
    until sprite exist(CurrSprite) = false
endfunction CurrSprite
//

function Init()
endfunction
//

function LoadImages()
  // load in all of the images we need for the game
  load bitmap "media\blue.bmp",1 : // blue tiles
  dim blue(11)
  for img = 0 to 5
    blue(img) = GetFreeImage()
    get image blue(img),img * 32,0, (img * 32) + 32,32
  next img
  delete bitmap 1
  dim WalkRight(7)
  `load bitmap "media\Man.bmp",1 : // man images - walking right
  `for k = 1 to 7
  `    WalkRight(k) = GetFreeImage()
  `    get image WalkRight(k),(k - 1) * 36,0,k * 36,48
  `next k
  `delete bitmap 1
endfunction
//

function LoadRoom()
    for x = 1 to 24
        for y= 1 to 24
            if coord(player.room,x,y)>0
                paste image coord(player.room,x,y),(x-1)*32,(y-1)*32
            endif
        next y
    next x
endfunction
//

function MainMenu()
    // paste the graphic up
    GameState = 1 : // play game - allows the game code to run
    //show mouse
endfunction GameState
//

function MoveEvilOtto()
endfunction
//

function MovePlayer()
    u = upkey() : r = rightkey() : d = downkey() : l = leftkey()
    if u 
        player.aim = 1
        bx = int((player.x + 16) / 32)   : by = int((player.y + 16) / 32)
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx + 1,by)
        if coo = 0 and coo2 = 0 
            dec player.y,3 
            frame = sprite frame(player.SprNum)
            lftc = 29 : uftc = 42 : // frames to check to see if the user has changed directions
            if r then lftc = 57 : uftc = 70 : // while the animation is playing
            if l then lftc = 71 : uftc = 84
            if frame < lftc or frame > uftc
                set sprite frame player.SprNum,lftc : // user changed directions - set it to the start frame
            endif
            play sprite player.SprNum,lftc,uftc,50
        else
            text 200,200,"Player just fried!" : sync : wait 750
        endif
    endif
    if l 
        player.aim = 4
        bx = int((player.x + 20) / 32)   : by = int((player.y + 16) / 32)
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx,by + 1)
        if coo = 0 and coo2 = 0 
            dec player.x,3
            frame = sprite frame(player.SprNum)
            lftc = 15 : uftc = 28 : // frames to check to see if the user has changed directions
            if u then lftc = 71 : uftc = 84 : // while the animation is playing
            if d then lftc = 85 : uftc = 98
            if frame < lftc or frame > uftc
                set sprite frame player.SprNum,lftc : // user changed directions - set it to the start frame
            endif
            play sprite player.SprNum,lftc,uftc,50
        else
            text 200,200,"You are toast!" : sync : wait 750
        endif
    endif
    if d 
        player.aim = 3
        bx = int((player.x + 16) / 32)   : by = int((player.y + 56) / 32)
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx + 1,by)
        if coo = 0 and coo2 = 0 
            inc player.y,3
            frame = sprite frame(player.SprNum)
            lftc = 43 : uftc = 56 : // frames to check to see if the user has changed directions
            if r then lftc = 99 : uftc = 112 : // while the animation is playing
            if l then lftc = 85 : uftc = 98
            if frame < lftc or frame > uftc
                set sprite frame player.SprNum,lftc : // user changed directions - set it to the start frame
            endif
            play sprite player.SprNum,lftc,uftc,50
        else
            text 200,200,"Smokin!" : sync : wait 750
        endif
    endif
    if r 
        player.aim = 2
        bx = int((player.x + 40) / 32)   : by = int((player.y + 16) / 32) 
        coo = coord(player.room,bx ,by )
        coo2 = coord(player.room,bx,by + 1)
        if coo = 0 and coo2 = 0
            inc player.x,3
            frame = sprite frame(player.SprNum)
            lftc = 1 : uftc = 14 : // frames to check to see if the user has changed directions
            if u then lftc = 57 : uftc = 70 : // while the animation is playing
            if d then lftc = 99 : uftc = 112
            if frame < lftc or frame > uftc
                set sprite frame player.SprNum,lftc : // user changed directions - set it to the start frame
            endif
            play sprite player.SprNum,lftc,uftc,50
        else
            text 200,200,"That's going to leave a mark!" : sync : wait 750
        endif
    endif
    paste sprite player.SprNum,player.x,player.y
    if player.x > 750 then roomchange = true : inc player.room : exited = 2
    if player.x < 16 then roomchange = true : dec player.room : exited = 4
    if player.y > 740 then roomchange = true : inc player.room,6 : exited = 3
    if player.y < 24 then roomchange = true : dec player.room, 6 : exited = 1
endfunction
//

function MoveRobots()
endfunction
//

function MoveShots()
endfunction
//

function SetupMaze()
	//this function sets up the doors between cells so that you have a maze
    //provide corner information before starting
    for i=1 to 6
        maze(i).corner.n=1
    next i
    for i= 1 to 31 step 6
        maze(i).corner.w=1
    next i
    for i = 6 to 36 step 6
        maze(i).corner.e=1
    next i
    for i=31 to 36
        maze(i ).corner.s=1
    next i
    //choose random cell
    stacknum=1
    roomnumber=1+rnd(35)
    numbervisited=1
    maze(roomnumber).visited=1
    done(stacknum)=roomnumber
    //generate maze
    while numbervisited<36
        moved=0 `variable to establish whether the generator has moved to another cell in this cycle
        badbearing=0 `variable to establish what directions the generator should not move in
        bearing=rnd(4) `randomize initial direction
        repeat
            if bearing=1 and roomnumber>6
                if maze(roomnumber-6).visited=0
                    maze(roomnumber-6).door.s=4+rnd(16)
                    maze(roomnumber).door.n=maze(roomnumber-6).door.s
                    for i = -1 to 1
                        coord(roomnumber,maze(roomnumber).door.n+i,1)=0
                        coord(roomnumber-6,maze(roomnumber).door.n+i,24)=0
                    next i
                    roomnumber=roomnumber-6
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
            endif
            if bearing=2 and maze(roomnumber).corner.e=0                          `as an example, if the direction determined is east, it checks if the room is on the eastern wall...
                if roomnumber<36
                if maze(roomnumber+1).visited=0                                   `then checks if it hasn't already visited and adjusted that cell...
                    maze(roomnumber+1).door.w=4+rnd(16)                           `then makes a door in that cell pointing where you came from...
                    maze(roomnumber).door.e=maze(roomnumber+1).door.w             `and a door in the cell you came from pointing to where you've come...
                    for i = -1 to 1
                        coord(roomnumber,24,maze(roomnumber).door.e+i)=0
                        coord(roomnumber+1,1,maze(roomnumber).door.e+i)=0
                    next i
                    roomnumber=roomnumber+1                                       `then updates what room number you're in...
                    done(stacknum)=roomnumber                                     `and stores it in a stack.
                    stacknum=stacknum+1                                           `increment stack index
                    maze(roomnumber).visited=1                                    `set the visited flag to one for the room you're in
                    moved=1                                                       `tell the loop you've moved to an adjacent room.
                    inc numbervisited                                             `increment the number of cells that have already been adjusted
                endif
                endif
            endif
            if bearing=3 and roomnumber<31
                if maze(roomnumber+6).visited=0
                    maze(roomnumber+6).door.n=4+rnd(16)
                    maze(roomnumber).door.s=maze(roomnumber+6).door.n
                    for i = -1 to 1
                        coord(roomnumber,maze(roomnumber).door.s+i,24)=0
                        coord(roomnumber+6,maze(roomnumber).door.s+i,1)=0
                    next i
                    roomnumber=roomnumber+6
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
            endif
            if (bearing=4 and maze(roomnumber).corner.w=0)
                if roomnumber>0
                if maze(roomnumber-1).visited=0
                    maze(roomnumber-1).door.e=4+rnd(16)
                    maze(roomnumber).door.w=maze(roomnumber-1).door.e
                    for i = -1 to 1
                        coord(roomnumber,1,maze(roomnumber).door.w+i)=0
                        coord(roomnumber-1,24,maze(roomnumber).door.w+i)=0
                    next i
                    roomnumber=roomnumber-1
                    done(stacknum)=roomnumber
                    stacknum=stacknum+1
                    maze(roomnumber).visited=1
                    moved=1
                    inc numbervisited
                endif
                endif
            endif
            if moved=0                                    `if you haven't moved,
                inc bearing                               `it could be because the direction was blocked, check another
                if bearing=5 then bearing=1               `bearing should be modulo4
                inc badbearing                            `tells the loop how many directions you've tried
            endif
        until moved=1 or badbearing=3                     `the generator has either moved or
        if moved = 0                                      `it didnt move and it has walked into a dead end
                done(stacknum)=0                          `it goes back till it finds a room with available neighbors
                dec stacknum
                if stacknum = 0 then exitfunction 0
                roomnumber=done(stacknum)
        endif
    endwhile                                              `do it again till all rooms have been visited
    maze(36).door.e=4+rnd(16)
    for i= -1 to 1
        coord(36,24,maze(36).door.e+i)=0
    next i
    maze(36).exitflag=1
endfunction 1     
//

function SetPlayer()
    if exited = 0 then player.x = 68+rnd(632) : player.y = 68+rnd(632)
    if exited = 1
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,i,24)=0 then player.x=(i*32)-16 : player.y= 700 : flag=1
            endif
        next i
    endif
    if exited = 3
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,i,1)=0 then player.x=(i*32)-16 : player.y= 68 : flag=1
            endif
        next i
    endif
    if exited = 2
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,1,i)=0 then player.x=68 : player.y=(i*32)-16 : flag=1
            endif
        next i
    endif
    if exited = 4
        flag = 0
        for i=1 to 24
            if flag=0
            if coord(player.room,24,i)=0 then player.x=700 : player.y=(i*32)-16 : flag=1
            endif
        next i
    endif
    roomchange=0
endfunction
//

function SetupPlayer() : // setup the necessary info for the player
    player.image = GetFreeImage()
    player.SprNum = GetFreeSprite()
    create animated sprite player.SprNum,"media\Man.bmp",7,16,player.image
    sprite player.SprNum,-100,-100,player.image
    offset sprite player.SprNum,18,24
    hide sprite player.SprNum
endfunction
//

function SetupRobots()
endfunction
//

rem OBese87{
rem Do a thing
print "Hello World!"
rem Do another thing
if this = lame then end
rem }OBese87