Pac Man

WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
global maxghost , level , WinX , WinY
level = -1
maxghost = 7
WinX = WindowWidth
WinY = WindowHeight
nomainwin
''maze consts & vars
global empty , wall , pil , super , totpil
global maxx , maxy , joystickJN$ , lastkey$
''ghost consts & vars
global hunt , flee , caught , warning , qtel
''player vars
global px , py , pdx , pdy , punten
dim sx( maxghost ) , sy( maxghost )
dim sdx( maxghost ) , sdy( maxghost ) , st( maxghost )
readjoystick 1
if Joy1x <> 0 and Joy1y <> 0 then
confirm "Use joystick ?" ; joystickJN$
end if
loadbmp "empty" , DefaultDir$ + "\BMP\empty.bmp"
loadbmp "wall" , DefaultDir$ + "\BMP\wall.bmp"
loadbmp "pil" , DefaultDir$ + "\BMP\pil.bmp"
loadbmp "super" , DefaultDir$ + "\BMP\super.bmp"
loadbmp "warning" , DefaultDir$ + "\BMP\warning.bmp"
loadbmp "hunt" , DefaultDir$ + "\BMP\hunt.bmp"
loadbmp "caught" , DefaultDir$ + "\BMP\caught.bmp"
loadbmp "flee" , DefaultDir$ + "\BMP\flee.bmp"
loadbmp "human" , DefaultDir$ + "\BMP\human.bmp"
hunt = 0 : flee = 1 : caught = 2 : warning = 3
empty = 0 : wall = 1 : pil = 2 : super = 3
dim maze( 20 , 20 )
open "PacMan" for graphics as #m '
#m "trapclose [quit]"
#m "when characterInput [key]"
for x = 0 to 19
for y = 0 to 19
#m "addsprite maze" + nr$( x ) + nr$( y ) + " empty wall pil super"
next y
next x
for i = 0 to maxghost
#m "addsprite ghost" + nr$( i ) + " warning hunt caught flee"
next i
#m "addsprite player human"
call nextlevel
call drawmaze
'' timer 250 , [tmr]
wait
[tmr]
call updatemaze
call drawmaze
wait
[key]
lastkey$ = Inkey$
wait
function sign( x )
if x < 0 then sign = -1
if x > 0 then sign = 1
sign = 0
end function
function nr$( no )
nr$ = right$( "00" + str$( no ) , 2 )
end function
sub updatemaze
for i = 0 to level
''for all ghosts
select case st( i )
''look at state of ghost
case hunt
if rnd( 0 ) < 0.7 then
dx = sign( px - sx( i ) )
dy = sign( py - sy( i ) )
if maze( sx( i ) + dx , sy( i ) ) = wall then
dx = 0
end if
if maze( sx( i ) , sy( i ) + dy ) = wall then
dy = 0
end if
if dx = 0 and dy = 0 then
call moveghost i , dx , dy
end if
else
call moveghost i , dx , dy
end if
case flee
if rnd( 0 ) < 0.7 then
dx = -sign( px - sx( i ) )
dy = -sign( py - sy( i ) )
if maze( sx( i ) + dx , sy( i ) ) = wall then
dx = 0
end if
if maze( sx( i ) , sy( i ) + dy ) = wall then
dy = 0
end if
if dx = 0 and dy = 0 then
call moveghost i , dx , dy
end if
else
call moveghost i , dx , dy
end if
case else
''case caught & warning
dx = 0
dy = 0
end select
if px = sx( i ) and py = sy( i ) then
''if player spot = ghost spot
if st( i ) = hunt then
notice chr$( 13 ) + "Your Dead !!" _
+ chr$( 13 ) + "Points : " + str$( punten )
close #m
end
end if
if st( i ) = flee then
punten = punten + 20
end if
end if
''update ghost spot
sx( i ) = sx( i ) + dx
sy( i ) = sy( i ) + dy
''this i wil expain in a future version
sdx( i ) = dx
sdy( i ) = dy
''move ghost into maze if its out of it
if sx( i ) < 2 then sx( i ) = maxx - 1
if sx( i ) > maxx - 1 then sx( i ) = 2
if sy( i ) < 2 then sy( i ) = maxy - 1
if sy( i ) > maxy - 1 then sy( i ) = 2
next i
if joystickJN$ = "yes" then
readjoystick 1
dx = 0
if Joy1x > 256 * 256 * 2 / 3 then
dx = 1
end if
if Joy1x < 256 * 256 / 3 then
dx = -1
end if
dy = 0
if Joy1y > 256 * 256 * 2 / 3 then
dy = 1
end if
if Joy1y < 256 * 256 / 3 then
dy = -1
end if
else
dx = 0
if lastkey$ = "6" then
dx = 1
end if
if lastkey$ = "4" then
dx = -1
end if
dy = 0
if lastkey$ = "2" then
dy = 1
end if
if lastkey$ = "8" then
dy = -1
end if
lastkey$ = ""
end if
if maze( px + dx , py + dy ) = wall then
dx = 0
dy = 0
end if
if maze( px , py ) = pil then
punten = punten + 1
totpil = totpil - 1
maze( px , py ) = empty
end if
if maze( px , py ) = super then
qtel = 400
totpil = totpil - 1
maze( px , py ) = empty
end if
''update player spot
px = px + dx
py = py + dy
''this i wil explain in future vesions
pdx = dx
pdy = dy
''move player into maze if he is out of it
if px < 2 then px = maxx - 1
if px > maxx - 1 then px = 2
if py < 2 then py = maxy - 1
if py > maxy - 1 then py = 2
''update flee time
if qtel > 0 then
qtel = qtel - 1
if qtel < 100 then
for i = 0 to level
st( i ) = warning
next i
end if
end if
if totpil <= 0 then
call nextlevel
end if
end sub
sub moveghost i , byref dx , byref dy
while maze( sx( i ) + dx , sy( i ) + dy ) = wall _
or ( dx = 0 and dy = 0 ) _
or ( dx <> 0 and dy <> 0 )
dx = int( rnd( 0 ) * 3 - 1 )
dy = int( rnd( 0 ) * 3 - 1 )
wend
end sub
sub nextlevel
totpil = 0
if level < maxghost then level = level + 1
restore [dat]
m$ = ""
maxy = 0
while m$ <>"="
read m$
maxy = maxy + 1
if len( m$ ) > maxx then
maxx = len( m$ )
end if
for x = 1 to len( m$ )
mi$ = mid$( m$ , x , 1 )
select case mi$
case "m"
maze( x , maxy ) = wall
case "."
maze( x , maxy ) = pil
totpil = totpil + 1
case "@"
maze( x , maxy ) = super
totpil = totpil + 1
case else
maze( x , maxy ) = empty
end select
'' print maze( x , y )
'Checks the maze() array is filling correctly. It is, now, with 0,1,2 or 3 in all locs.
next x
print
wend
for i =0 to level
sx( i ) = 9
sy( i ) = 7
st( i ) = hunt
next i
px = 9
py = 11
[dat]
'' 12345678901234567
data " m m "
data " mmmmmmm mmmmmmm "
data " [[mailto:m@....m|m@....m]] [[mailto:m....@m|m....@m]] "
data " m.mmm.m m.mmm.m "
data " m.m.........m.m "
data " m.m.mmm.mmm.m.m "
data " m...m.....m...m "
data "mmmm.m.mmm.m.mmmm"
data " ......... "
data "mmmm.m.mmm.m.mmmm"
data " m...m.....m...m "
data " m.m.mmm.mmm.m.m "
data " m.m.........m.m "
data " m.mmm.m m.mmm.m "
data " [[mailto:m@....m|m@....m]] [[mailto:m....@m|m....@m]] "
data " mmmmmmm mmmmmmm "
data " m m "
data "="
end sub
sub drawmaze
for x = 1 to 17 ' NB there are only 17x17!!! See the mainwin printout..
for y = 1 to 17
whatismaze = maze( x , y )
'Shows maze() containing all '0' except for two '1' - which is WRONG! Why???
select case whatismaze
case wall
#m "spriteimage maze" + nr$( x ) + nr$( y ) + " wall"
case pil
#m "spriteimage maze" + nr$( x ) + nr$( y ) + " pil"
case super
#m "spriteimage maze" + nr$( x ) + nr$( y ) + " super"
case else
#m "spriteimage maze" + nr$( x ) + nr$( y ) + " empty"
'For testing only- it shows array not being read or filled correctly.
'' #m "backcolor red"
'' #m "place "; x *tx; " "; y *ty
'' #m "ellipsefilled 10 6"
end select
#m "spritexy maze" + nr$( x ) + nr$( y ) ; " " _
; ( x - px ) * 64 + WinX / 2 - 64 ; " " _
; ( y - py ) * 64 + WinY / 2 - 64
next y
print
next x
for i = 0 to level
whatisghost = st( i )
select case whatisghost
case hunt
#m "spriteimage ghost" + nr$( i ) + " hunt"
case flee
#m "spriteimage ghost" + nr$( i ) + " flee"
case caught
#m "spriteimage ghost" + nr$( i ) + " caught"
case else ''warning
#m "spriteimage ghost" + nr$( i ) + " warning"
end select
#m "spritexy ghost" + nr$( i ) ; " " _
; ( sx( i ) - px ) * 64 + WinX / 2 - 64; " " _
; ( sy( i ) - py ) * 64 + WinY / 2 - 64
next i
#m "spritexy player " ; WinX / 2 - 64; " " ; WinY / 2 - 64
#m "drawsprites"
end sub

[quit]
close #m
end