%Remake of the escape game found at (among others) http://uk.download.yahoo.com/ne/fu/dodge.html
%By Chris Brown
View.Set ("graphics:450;450;offscreenonly;nobuttonbar")
const FRAMERATE : int := 2
const SPEEDCHANGE : int := 10
const font : int := Font.New("arial:12:bold")
%Mouse vars
var mx, my, mb : int
var DelayTime : int := 25
var timeElapsed : int := 0
var bestTime : int := 0
type playerType :
record
X : int
Y : int
Size : int
end record
var player : playerType
player.Size := 40
type enemyType :
record
X : int
Y : int
XSize : int
YSize : int
currentXDir : int
currentYDir : int
minAllowedDist : int
end record
var enemies : array 1 .. 4 of enemyType
procedure assignValues
player.X := -player.Size
player.Y := -player.Size
for i : 1 .. 4
enemies (i).XSize := 4 * (Rand.Int (8, 20))
enemies (i).YSize := 4 * (Rand.Int (8, 20))
enemies (i).X := Rand.Int (enemies (i).YSize div 2 + 5, maxx - enemies (i).XSize div 2 - 5)
enemies (i).Y := Rand.Int (enemies (i).YSize div 2 + 5, maxy - enemies (i).YSize div 2 - 5)
enemies (i).currentXDir := Rand.Int (-5, 5)
enemies (i).currentYDir := Rand.Int (-5, 5)
enemies (i).minAllowedDist := round (sqrt (((enemies (i).XSize div 2 + player.Size div 2) ** 2) + ((enemies (i).YSize div 2 + player.Size div 2) ** 2)))
end for
end assignValues
procedure draw
cls
%Draw the background
Draw.FillBox (0, 0, maxx, maxy, black)
Draw.FillBox (50, 50, maxx - 50, maxy - 50, white)
%Draw player box
Draw.FillBox (player.X - player.Size div 2, player.Y - player.Size div 2, player.X + player.Size div 2, player.Y + player.Size div 2, red)
%Draw the enemies
for i : 1 .. 4
Draw.FillBox (enemies (i).X - enemies (i).XSize div 2, enemies (i).Y - enemies (i).YSize div 2, enemies (i).X + enemies (i).XSize div 2, enemies (i).Y + enemies (i).YSize div 2, blue)
end for
Font.Draw("Best Time: ", 0, 0, font, white)
Font.Draw(realstr(bestTime/1000, 2), 90, 0, font, white)
Font.Draw(realstr(timeElapsed /1000, 2), maxx - 50, 0, font, white)
View.Update
end draw
procedure mouse
mousewhere (mx, my, mb)
end mouse
procedure getPlayerLoc
if mb = 1 then
%Center the box at mouse point
player.X := mx
player.Y := my
end if
end getPlayerLoc
procedure moveEnemies
for i : 1 .. 4
%Enemy location changes in FRAMERATE increment
enemies (i).X += enemies (i).currentXDir * FRAMERATE
enemies (i).Y += enemies (i).currentYDir * FRAMERATE
if enemies (i).X - enemies(i).XSize div 2 < 0 or enemies (i).X+ enemies(i).YSize div 2> maxx then
%If enemy hits side of screen
enemies (i).currentXDir := -1 * enemies (i).currentXDir
%Then enemy's direction changes as it should
end if
if enemies (i).Y - enemies(i).YSize div 2 < 0 or enemies (i).Y + enemies(i).YSize div 2 > maxy then
%If enemy hits top or bottom of screen
enemies (i).currentYDir := -1 * enemies (i).currentYDir
%Then enemy's direction changes as it should
end if
end for
end moveEnemies
function checkHit : boolean
if whatdotcolor (player.X + player.Size div 2, player.Y + player.Size div 2) = blue or whatdotcolor (player.X - player.Size div 2, player.Y + player.Size div 2) = blue or whatdotcolor (player.X + player.Size div 2, player.Y - player.Size div 2) = blue or whatdotcolor (player.X - player.Size div 2, player.Y - player.Size div 2) = blue then
result true
elsif player.X - player.Size div 2 < 50 or player.X + player.Size div 2> maxx - 50 or player.Y - player.Size div 2< 50 or player.Y + player.Size div 2 > maxy - 50 then
result true
else
result false
end if
end checkHit
assignValues
loop
Font.Draw ("You lasted: ", 0, maxy - 14, font, white)
Font.Draw (realstr(timeElapsed / 1000, 2), 100, maxy - 14, font, white)
View.Update
delay(1000)
DelayTime := 30
timeElapsed := 0
assignValues
loop
mouse
getPlayerLoc
draw
if mb = 1 then
exit
end if
end loop
loop
mouse
getPlayerLoc
moveEnemies
draw
if checkHit then
exit
end if
delay (DelayTime)
timeElapsed += DelayTime
if timeElapsed mod 5000 = 0 then
DelayTime -= SPEEDCHANGE
end if
end loop
if timeElapsed > bestTime then
bestTime := timeElapsed
end if
end loop
|
