Pac-Man

[w00t]

Yes, If you do remember I have asked this question before, but i need some assistance with whatdotcolor in pacman. I know of Math.Distance and all but my teacher doesn't want us to use that yet. Does it make sense? No, but It's how im being marked. The kicker is that i have to learn whatdotcolor again and I forget it. For now pac-man is just a yellow circle that moves up down left right and the level is all drawn out in paint to save lines. When i use whatdotcoluor i check 1 px outside of pac-man for red or color 4 and he stops somewhat but then he moves to the side and i can't get my head around why it isn't working.

code:

setscreen ("graphics:500;500") setscreen ("nocursour;noecho") var background : int := Pic.FileNew ("C:/Documents and Settings/Thom/Programs/pacman.bmp") Pic.Draw (background, 0, 0, picMerge) var key : string (1) var x, y : int x := 250 y := 200 drawfilloval (x, y, 7, 7, 14) loop     if whatdotcolour (x, y + 8) = 4 then         y := y - 8     elsif whatdotcolour (x, y - 8) = 4 then         y := y + 8     elsif whatdotcolour (x + 8, y) = 4 then         x := x - 8     elsif whatdotcolour (x - 8, y) = 4 then         x := x + 8     end if     getch (key)     if ord (key) = 205 then         drawfilloval (x, y, 7, 7, 7)         x := x + 7     elsif ord (key) = 203 then         drawfilloval (x, y, 7, 7, 7)         x := x - 7     elsif ord (key) = 200 then         drawfilloval (x, y, 7, 7, 7)         y := y + 7     elsif ord (key) = 208 then         drawfilloval (x, y, 7, 7, 7)         y := y - 7     end if     drawfilloval (x, y, 7, 7, 14) end loop

AS you can see it's pretty simple and short which i like but the whatdotcolor seems to be logical but im obviously missing something, maybe it's because im tired and im lacking red bull but any help would be nice. Pac man just hits the wall and stops but then goes right thru


- W00t

http://i7.photobucket.com/albums/y266/murdoc8888888/pacman.jpg


here is the level pic, sorry forgot to uplaod

[beard0]

Without your bmp, we can't test....

[jamonathin]

First of all, all i see is a white screen with a yellow pacman with a trail of black turd droppings. Im guessing the image is the map. There are several things that can be fixed with your coding, but we can worry about that later. What it seems that your program does is check if the player is in red, then if he his, move his ass back. Well why did he get there in the first place, why not check before we allow him to move there?


So what you can do is: (using moving right)

You have::

code:

if ord (key) = 205 then         drawfilloval (x, y, 7, 7, 7)         x := x + 7

Well first of all we only need one 'drawfilloval (x, y, 7, 7, 7)' and that can go before the whole if statement. Secondly you can just do something like this.

code:

if ord (key)=205 and whatdotcolor(x+7,y) not=4 then x+=7 %same as x:=x+7 end if

try that out

[Mr. T]

I'd suggest making pacman's movements correspond to a grid.

[w00t]

You have::

code:

if ord (key) = 205 then         drawfilloval (x, y, 7, 7, 7)         x := x + 7 Well first of all we only need one 'drawfilloval (x, y, 7, 7, 7)' and that can go before the whole if statement.  Secondly you can just do something like this.

if i dont have it a yellow dot just appears behind pac man

[jamonathin]

This is what i ment by that

code:

drawfilloval (x, y, 7, 7, 7)     if ord (key) = 205 then         x := x + 7     elsif ord (key) = 203 then         x := x - 7     elsif ord (key) = 200 then         y := y + 7     elsif ord (key) = 208 then         y := y - 7     end if     drawfilloval (x, y, 7, 7, 14)

And here's one main reason as to why pacman doesn't stop a t a wall and he bounces from side to side. HE'S BIGGER THAN THE WALL!!!11 lol. You needa bigger map man. Or you can every sit 6 inches away from the screen and you can shrink pacman to fit the map. Work on what i said earlier, and map pacman able to fit into the map

[w00t]

lol. i just saw that, it isn't that small, pac man does fit it's just my is smaller on photobucket

he does fit though,