Computer Science Canada :: View topic - a start to a some kind of pacman

%chris beauvais

setscreen ("graphics:600;480")
setscreen ("nocursour;noecho")
var arrow : string (1)
var column, row : int
column := 300
row := 240
drawfilloval (column, row, 20, 20, 14)
drawfilloval (column - 10, row + 10, 3, 3, 7)
drawfilloval (column + 10, row + 10, 3, 3, 7)
drawfilloval (column, row - 10, 9, 6, 12)
loop
getch (arrow)
if ord (arrow) = 205 then
drawfilloval (column, row, 20, 20, 0)
column := column + 10
elsif ord (arrow) = 203 then
drawfilloval (column, row, 20, 20, 0)
column := column - 10
elsif ord (arrow) = 200 then
drawfilloval (column, row, 20, 20, 0)
row := row + 10
elsif ord (arrow) = 208 then
drawfilloval (column, row, 20, 20, 0)
row := row - 10

end if
drawfilloval (column, row, 20, 20, 14)
drawfilloval (column - 10, row + 10, 3, 3, 7)
drawfilloval (column + 10, row + 10, 3, 3, 7)
drawfilloval (column, row - 10, 9, 6, 12)

end loop

Author:	the_short1 [ Thu May 06, 2004 7:49 pm ]
Post subject:
interesting.. ... one thing to note.... a multi level pacman is hard.. for mine it took 3000 lines of code (only one level)... not to discourage u... but just a warning... pacman aint ez... -PacMasta

Author:	kit-kat-kid [ Fri May 07, 2004 12:10 pm ]
Post subject:
i know pacman aint easy but right now its a start

Author:	the_short1 [ Fri May 07, 2004 11:15 pm ]
Post subject:
as long as u know taht... its good... and if u need help... im always a PM away... **just dont go nuts and expect me to fork over MY code so... dont be afraid to ask.,.

Author:	kit-kat-kid [ Sun May 09, 2004 5:43 pm ]
Post subject:
dont worry i wont