a start to a some kind of pacman

[kit-kat-kid]

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

[the_short1]

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

[kit-kat-kid]

i know pacman aint easy but right now its a start

[the_short1]

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.,.

[kit-kat-kid]

dont worry i wont