'set the squares of the maze at the player location to be empty so that it will always draw the first time through
ClearAroundPlayer()
'move when the player releases the key so that they have to press it once for each movement
GraphicsWindow.KeyUp = MoveKeyboard
GraphicsWindow.MouseUp = MoveMouse
For i = 1 to Array.GetItemCount( imageName )
If ( i < levelTilesStartIndex ) Then
loadImageName = imageName[ i ]
LoadImage()
Else
For l = 1 To maxLevel
loadImageName = imageName[ i ] + l
LoadImage()
EndFor
EndIf
indexFromName[ imageName[ i ] ] = i
EndFor
Sub MoveKeyboard
direction = GraphicsWindow.LastKey
Move()
EndSub
Sub MoveMouse
upAmount = center - GraphicsWindow.MouseY
downAmount = GraphicsWindow.MouseY - center
leftAmount = center - GraphicsWindow.MouseX
rightAmount = GraphicsWindow.MouseX - center
If( upAmount > downAmount And upAmount > leftAmount And upAmount > rightAmount ) Then
direction = "Up"
ElseIf( downAmount > leftAmount And downAmount > rightAmount ) Then
direction = "Down"
ElseIf( leftAmount > rightAmount ) Then
direction = "Left"
Else
direction = "Right"
EndIf
Move()
EndSub
Sub Move
'make a copy of the player's current location
newX = playerX
newY = playerY
'check if the player is moving and if so change the copy of the location accordingly
If ( direction = "Up" ) Then
newY = newY - 1
ElseIf ( direction = "Down" ) Then
newY = newY + 1
ElseIf ( direction = "Left" ) Then
newX = newX - 1
ElseIf ( direction = "Right" ) Then
newX = newX + 1
EndIf
'set location to the new position
location = newX + ":" + newY
'the square of maze at this location might not have been created yet
CheckMazeAtLocation()
'only update position and draw if they're not trying to move into a wall
If ( Array.ContainsValue( blockings, maze[ location ] ) = "False" ) Then
'if the player walked onto a star...
If( maze[ location ] = "PowerUp" ) Then
'give them a point
score = score + 1
'remove the star and place an empty floor here instead
maze[ location ] = "Floor"
EndIf
'update the player location
playerX = newX
playerY = newY
Draw()
'draw the score in the title bar
GraphicsWindow.Title = "Score: " + score
Else
If ( maze[ location ] = "Breakable" ) Then
maze[ location ] = "Broken"
Draw()
ElseIf ( maze[ location ] = "Stairs" ) Then
NewLevel()
Draw()
EndIf
EndIf
EndSub
Sub Draw
'draw a section of the maze that is 18 x 18 tiles in size
For y = 0 To viewportSize
For x = 0 to viewportSize
'turn x and y into a location relative to the player
location = ( x - playerSightRadius + playerX ) + ":" + ( y - playerSightRadius + playerY )
'the part of the maze at this location might not have been created yet
CheckMazeAtLocation()
'draw a floor first
GraphicsWindow.DrawImage( tiles[ "Floor" + level ], x * tileSize, y * tileSize )
'if the current tile IS a floor then no point in drawing it again
If ( maze[ location ] <> "Floor" ) Then
tile = maze[ location ]
tileIndex = indexFromName[ tile ]
If ( tileIndex >= levelTilesStartIndex ) Then
tile = tile + level
EndIf
GraphicsWindow.DrawImage( tiles[ tile ], x * tileSize, y * tileSize )
EndIf
'now overlay the player sprite if the current location is the player's location
If ( x = playerSightRadius And y = playerSightRadius ) Then
GraphicsWindow.DrawImage( tiles[ "Player" ], x * tileSize, y * tileSize )
EndIf
EndFor
EndFor
EndSub
Sub NewLevel
If ( level < maxLevel ) Then
mazeIndices = Array.GetAllIndices( maze )
steps = Array.GetItemCount( mazeIndices )
StartProgress()
level = level + 1
For i = 1 to steps
maze[ mazeIndices[ i ] ] = "Empty"
Progress()
EndFor
playerX = 0
playerY = 0
ClearAroundPlayer()
EndIf
EndSub
'check if the maze is empty at this location and if it is then randomly pick a tile to place here
Sub CheckMazeAtLocation
If ( Array.ContainsIndex( maze, location ) = "False" Or maze[ location ] = "Empty" ) Then
If ( Math.GetRandomNumber( 1000 ) = 1 ) Then
'Stairs - next level
maze[ location ] = "Stairs"
ElseIf ( Math.GetRandomNumber( 100 ) = 1 ) Then
'PowerUp - increases your score
maze[ location ] = "PowerUp"
ElseIf ( Math.GetRandomNumber( 4 ) = 1 ) Then
'Wall - a square you can't move through
maze[ location ] = "Wall"
ElseIf ( Math.GetRandomNumber( 3 ) = 1 ) Then
'Breakable - a wall you can break down
maze[ location ] = "Breakable"
Else
'Floor - a square you can move over
maze[ location ] = "Floor"
EndIf
EndIf
EndSub
Program Listing: GTP647