Computer Science Canada

a start to a some kind of pacman

Author:  kit-kat-kid [ Wed May 05, 2004 2:01 pm ]
Post subject:  a start to a some kind of pacman

code:
%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 Razz Wink

so... dont be afraid to ask.,.

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

dont worry i wont


: