What dot colour question, or problem more like

[Poutine King]

I am making a game similar to Pacman, I used whatdotcolor for the walls in the game. I tried first all red and made the controls assign a variable to determine which direction the character came to repulse him in the other direction. Then I saw that my character was passing through the corn of the walls. So I figured that it was because it all depended on the variable that was assigned by the keys. So I made sides to each wall in order to repulse my character yet I can still pass through the corners. I need help.

Heres the program (NOTE: the circle is actually a bitmap image, but so you can run it I made it a circle)



% Muncher Game

%First page
drawfillbox (0, 0, maxx, maxy, black)

var font1, font2, font3 : int
font1 := Font.New ("binerd:60:bold")
font2 := Font.New (":15:bold")
font3 := Font.New ("timesnewroman:10:bold")

Font.Draw ("Munching", 150, 340, font1, blue)

Font.Draw ("Controls", 280, 300, font2, white)
Font.Draw ("Arrows", 298, 285, font3, white)

Font.Draw ("Rules", 290, 250, font2, white)
Font.Draw ("Avoid the monsters and munch on as much as you can.", 180, 238, font3, white)


Font.Draw ("Start Munching", 250, 100, font2, 12)
Font.Draw ("Quit Game", 265, 50, font2, 12)

delay (2000)

%Main Game starts
var chars : array char of boolean %variable for controls
%variables

var points : int %score of you the player
var mx, my : int %muncher's positions
var xb, yb : int %boundry variables
var mdirectionx, mdirectiony := 0 %variable of the direction which muncher hits a boundry
var mx2, my2 := 0 %munchers position when he hits a wall

mx := 0
my := 0
xb := 0
yb := 0

loop
%backround
drawfillbox (0, 0, maxx, maxy, black)


%controls for muncher
Input.KeyDown (chars)
drawfilloval (mx, my, 8, 8, green)
locate (1, 1)
if chars (KEY_UP_ARROW) then
my := my + 5
mdirectiony := 1
end if
if chars (KEY_RIGHT_ARROW) then
mx := mx + 5
mdirectionx := 1
end if
if chars (KEY_LEFT_ARROW) then
mx := mx - 5
mdirectionx := 2
end if
if chars (KEY_DOWN_ARROW) then
my := my - 5
mdirectiony := 2
end if

%boundry
drawbox (xb - 10, yb - 10, xb + 635, yb + 395, red)

%boundries stop muncher
if my = 380 then
my := 375
end if
if my = -10 then
my := -5
end if

if mx = 630 then
mx := 625
end if

if mx = -10 then
mx := -5
end if


% walls of maze (blue = top, red = bottom, yellow = left, purple = right)
%red walls
drawfillbox (xb + 40, yb + 40, xb + 300, yb + 60, 12) %bottom left wall corner along x
drawfillbox (xb + 30, yb + 40, xb + 50, yb + 180, 12) % bottom left wall corner along y
drawfillbox (xb + 30, yb + 230, xb + 50, yb + 360, 12) % top left wall corner along y
drawfillbox (xb + 30, yb + 350, xb + 300, yb + 370, 12) % top left wall corner along x
drawfillbox (xb + 340, yb + 350, xb + 600, yb + 370, 12) % top right wall corner along x
drawfillbox (xb + 590, yb + 370, xb + 610, yb + 230, 12) % top right wall corner along y
drawfillbox (xb + 590, yb + 190, xb + 610, yb + 40, 12) % bottom right wall corner along y
drawfillbox (xb + 350, yb + 40, xb + 600, yb + 60, 12) % bottom right wall corner along x
drawfillbox (xb + 300, yb + 180, xb + 310, yb + 200, 12) % inner monster spawn bottom left corner along the y
drawfillbox (xb + 280, yb + 200, xb + 310, yb + 210, 12) % inner monster spawn bottom left corner along the x
drawfillbox (xb + 300, yb + 230, xb + 310, yb + 260, 12) % inner monster spawn top left corner along the y
drawfillbox (xb + 280, yb + 230, xb + 310, yb + 240, 12) % inner monster spawn top left corner along the x
drawfillbox (xb + 330, yb + 230, xb + 340, yb + 260, 12) % inner monster spawn top right corner along the y
drawfillbox (xb + 330, yb + 230, xb + 360, yb + 240, 12) % inner monster spawn top right corner along the x
drawfillbox (xb + 330, yb + 180, xb + 340, yb + 210, 12) % inner monster spawn bottom right corner along the y
drawfillbox (xb + 330, yb + 200, xb + 360, yb + 210, 12) % inner monster spawn bottom right corner along the x
drawfillbox (xb + 330, yb + 230, xb + 340, yb + 260, 12) % inner monster spawn top right corner along the y
drawfillbox (xb + 90, yb + 150, xb + 100, yb + 250, 12) % inner left entrance
drawfillbox (xb + 550, yb + 150, xb + 560, yb + 250, 12) % inner right entrance
drawfillbox (xb + 280, yb + 90, xb + 380, yb + 100, 12) % inner bottom entrance
drawfillbox (xb + 270, yb + 300, xb + 380, yb + 310, 12) % inner top entrance
drawfillbox (xb + 80, yb + 100, xb + 150, yb + 110, 12) % inner left small wall along x
drawfillbox (xb + 80, yb + 50, xb + 90, yb + 100, 12) % inner left bottom wall along y
drawfillbox (xb + 50, yb + 300, xb + 150, yb + 310, 12) % inner top far left corner along the x
drawfillbox (xb + 180, yb + 300, xb + 240, yb + 310, 12) % inner top left corner along x
drawfillbox (xb + 210, yb + 100, xb + 220, yb + 360, 12) % inner left side along y very long line
drawfillbox (xb + 400, yb + 220, xb + 550, yb + 230, 12) % inner right side middle along x
drawfillbox (xb + 400, yb + 220, xb + 410, yb + 150, 12) % inner rgit middle side along y
drawfillbox (xb + 100, yb + 200, xb + 180, yb + 210, 12) % inner top bottom left middle along x
drawfillbox (xb + 500, yb + 360, xb + 510, yb + 280, 12) % inner top roght corner along y
drawfillbox (xb + 450, yb + 320, xb + 460, yb + 230, 12) % inner top right corner along y

%blue walls
drawfillbox (xb + 40, yb + 40, xb + 300, yb + 41, blue) %bottom left wall corner along x
drawfillbox (xb + 30, yb + 40, xb + 50, yb + 41, blue) % bottom left wall corner along y
drawfillbox (xb + 30, yb + 230, xb + 50, yb + 231, blue) % top left wall corner along y
drawfillbox (xb + 30, yb + 350, xb + 300, yb + 355, blue) % top left wall corner along x
drawfillbox (xb + 30, yb + 369, xb + 300, yb + 370, blue) % top top left wall corner along x
drawfillbox (xb + 340, yb + 350, xb + 600, yb + 351, blue) % top right wall corner along x
drawfillbox (xb + 590, yb + 370, xb + 610, yb + 369, blue) % top right wall corner along y
drawfillbox (xb + 590, yb + 190, xb + 610, yb + 189, blue) % bottom right wall corner along y
drawfillbox (xb + 350, yb + 40, xb + 600, yb + 41, blue) % bottom right wall corner along x
drawfillbox (xb + 300, yb + 180, xb + 310, yb + 181, blue) % inner monster spawn bottom left corner along the y
drawfillbox (xb + 280, yb + 200, xb + 310, yb + 201, blue) % inner monster spawn bottom left corner along the x
drawfillbox (xb + 300, yb + 230, xb + 310, yb + 231, blue) % inner monster spawn top left corner along the y
drawfillbox (xb + 280, yb + 230, xb + 310, yb + 231, blue) % inner monster spawn top left corner along the x
drawfillbox (xb + 330, yb + 230, xb + 340, yb + 231, blue) % inner monster spawn top right corner along the y
drawfillbox (xb + 330, yb + 230, xb + 360, yb + 231, blue) % inner monster spawn top right corner along the x
drawfillbox (xb + 330, yb + 180, xb + 340, yb + 181, blue) % inner monster spawn bottom right corner along the y
drawfillbox (xb + 330, yb + 200, xb + 360, yb + 201, blue) % inner monster spawn bottom right corner along the x
drawfillbox (xb + 330, yb + 230, xb + 340, yb + 231, blue) % inner monster spawn top right corner along the y
drawfillbox (xb + 90, yb + 150, xb + 100, yb + 151, blue) % inner left entrance
drawfillbox (xb + 550, yb + 150, xb + 560, yb + 151, blue) % inner right entrance
drawfillbox (xb + 280, yb + 90, xb + 380, yb + 91, blue) % inner bottom entrance
drawfillbox (xb + 270, yb + 300, xb + 380, yb + 301, blue) % inner top entrance
drawfillbox (xb + 80, yb + 100, xb + 150, yb + 101, blue) % inner left small wall along x
drawfillbox (xb + 80, yb + 50, xb + 90, yb + 51, blue) % inner left bottom wall along y
drawfillbox (xb + 50, yb + 300, xb + 150, yb + 301, blue) % inner top far left corner along the x
drawfillbox (xb + 180, yb + 300, xb + 240, yb + 301, blue) % inner top left corner along x
drawfillbox (xb + 210, yb + 100, xb + 220, yb + 101, blue) % inner left side along y very long line
drawfillbox (xb + 400, yb + 220, xb + 550, yb + 221, blue) % inner right side middle along x
drawfillbox (xb + 400, yb + 220, xb + 410, yb + 219, blue) % inner rgit middle side along y
drawfillbox (xb + 100, yb + 200, xb + 180, yb + 201, blue) % inner top bottom left middle along x
drawfillbox (xb + 500, yb + 360, xb + 510, yb + 359, blue) % inner top roght corner along y
drawfillbox (xb + 450, yb + 320, xb + 460, yb + 221, blue) % inner top right corner along y

%purple walls
drawfillbox (xb + 30, yb + 40, xb + 31, yb + 180, purple) % bottom left wall corner along y
drawfillbox (xb + 30, yb + 230, xb + 31, yb + 360, purple) % top left wall corner along y
drawfillbox (xb + 30, yb + 350, xb + 31, yb + 370, purple) % top left wall corner along x
drawfillbox (xb + 340, yb + 350, xb + 341, yb + 370, purple) % top right wall corner along x
drawfillbox (xb + 590, yb + 370, xb + 591, yb + 230, purple) % top right wall corner along y
drawfillbox (xb + 590, yb + 190, xb + 591, yb + 40, purple) % bottom right wall corner along y
drawfillbox (xb + 350, yb + 40, xb + 351, yb + 60, purple) % bottom right wall corner along x
drawfillbox (xb + 300, yb + 180, xb + 301, yb + 200, purple) % inner monster spawn bottom left corner along the y
drawfillbox (xb + 280, yb + 200, xb + 281, yb + 210, purple) % inner monster spawn bottom left corner along the x
drawfillbox (xb + 300, yb + 230, xb + 301, yb + 260, purple) % inner monster spawn top left corner along the y
drawfillbox (xb + 280, yb + 230, xb + 281, yb + 240, purple) % inner monster spawn top left corner along the x
drawfillbox (xb + 330, yb + 230, xb + 331, yb + 260, purple) % inner monster spawn top right corner along the y
drawfillbox (xb + 330, yb + 230, xb + 331, yb + 240, purple) % inner monster spawn top right corner along the x
drawfillbox (xb + 330, yb + 180, xb + 331, yb + 210, purple) % inner monster spawn bottom right corner along the y
drawfillbox (xb + 330, yb + 200, xb + 331, yb + 210, purple) % inner monster spawn bottom right corner along the x
drawfillbox (xb + 330, yb + 230, xb + 331, yb + 260, purple) % inner monster spawn top right corner along the y
drawfillbox (xb + 90, yb + 150, xb + 91, yb + 250, purple) % inner left entrance
drawfillbox (xb + 550, yb + 150, xb + 551, yb + 250, purple) % inner right entrance
drawfillbox (xb + 280, yb + 90, xb + 281, yb + 100, purple) % inner bottom entrance
drawfillbox (xb + 270, yb + 300, xb + 271, yb + 310, purple) % inner top entrance
drawfillbox (xb + 80, yb + 100, xb + 81, yb + 110, purple) % inner left small wall along x
drawfillbox (xb + 80, yb + 50, xb + 81, yb + 100, purple) % inner left bottom wall along y
drawfillbox (xb + 50, yb + 300, xb + 51, yb + 310, purple) % inner top far left corner along the x
drawfillbox (xb + 180, yb + 300, xb + 181, yb + 310, purple) % inner top left corner along x
drawfillbox (xb + 210, yb + 100, xb + 211, yb + 360, purple) % inner left side along y very long line
drawfillbox (xb + 400, yb + 220, xb + 401, yb + 230, purple) % inner right side middle along x
drawfillbox (xb + 400, yb + 220, xb + 401, yb + 150, purple) % inner rgit middle side along y
drawfillbox (xb + 100, yb + 200, xb + 101, yb + 210, purple) % inner top bottom left middle along x
drawfillbox (xb + 500, yb + 360, xb + 501, yb + 280, purple) % inner top roght corner along y
drawfillbox (xb + 450, yb + 320, xb + 451, yb + 230, purple) % inner top right corner along y

%yellow walls
drawfillbox (xb + 299, yb + 40, xb + 300, yb + 60, yellow) %bottom left wall corner along x
drawfillbox (xb + 49, yb + 40, xb + 50, yb + 180, yellow) % bottom left wall corner along y
drawfillbox (xb + 49, yb + 230, xb + 50, yb + 360, yellow) % top left wall corner along y
drawfillbox (xb + 299, yb + 350, xb + 300, yb + 370, yellow) % top left wall corner along x
drawfillbox (xb + 609, yb + 370, xb + 610, yb + 230, yellow) % top right wall corner along y
drawfillbox (xb + 609, yb + 190, xb + 610, yb + 40, yellow) % bottom right wall corner along y
drawfillbox (xb + 599, yb + 40, xb + 600, yb + 60, yellow) % bottom right wall corner along x
drawfillbox (xb + 309, yb + 180, xb + 310, yb + 200, yellow) % inner monster spawn bottom left corner along the y
drawfillbox (xb + 309, yb + 200, xb + 310, yb + 210, yellow) % inner monster spawn bottom left corner along the x
drawfillbox (xb + 309, yb + 230, xb + 310, yb + 260, yellow) % inner monster spawn top left corner along the y
drawfillbox (xb + 309, yb + 230, xb + 310, yb + 240, yellow) % inner monster spawn top left corner along the x
drawfillbox (xb + 339, yb + 230, xb + 340, yb + 260, yellow) % inner monster spawn top right corner along the y
drawfillbox (xb + 359, yb + 230, xb + 360, yb + 240, yellow) % inner monster spawn top right corner along the x
drawfillbox (xb + 339, yb + 180, xb + 340, yb + 210, yellow) % inner monster spawn bottom right corner along the y
drawfillbox (xb + 359, yb + 200, xb + 360, yb + 210, yellow) % inner monster spawn bottom right corner along the x
drawfillbox (xb + 339, yb + 230, xb + 340, yb + 260, yellow) % inner monster spawn top right corner along the y
drawfillbox (xb + 99, yb + 150, xb + 100, yb + 250, yellow) % inner left entrance
drawfillbox (xb + 559, yb + 150, xb + 560, yb + 250, yellow) % inner right entrance
drawfillbox (xb + 379, yb + 90, xb + 380, yb + 100, yellow) % inner bottom entrance
drawfillbox (xb + 379, yb + 300, xb + 380, yb + 310, yellow) % inner top entrance
drawfillbox (xb + 149, yb + 100, xb + 150, yb + 110, yellow) % inner left small wall along x
drawfillbox (xb + 89, yb + 50, xb + 90, yb + 100, yellow) % inner left bottom wall along y
drawfillbox (xb + 149, yb + 300, xb + 150, yb + 310, yellow) % inner top far left corner along the x
drawfillbox (xb + 239, yb + 300, xb + 240, yb + 310, yellow) % inner top left corner along x
drawfillbox (xb + 219, yb + 100, xb + 220, yb + 360, yellow) % inner left side along y very long line
drawfillbox (xb + 549, yb + 220, xb + 550, yb + 230, yellow) % inner right side middle along x
drawfillbox (xb + 409, yb + 220, xb + 410, yb + 150, yellow) % inner rgit middle side along y
drawfillbox (xb + 179, yb + 200, xb + 180, yb + 210, yellow) % inner top bottom left middle along x
drawfillbox (xb + 509, yb + 360, xb + 510, yb + 280, yellow) % inner top roght corner along y
drawfillbox (xb + 459, yb + 320, xb + 460, yb + 230, yellow) % inner top right corner along y


%walls stop muncher

if whatdotcolour (mx, my) = 12 or whatdotcolour (mx, my) = 12 then
my2 := my + 5
my := my2
end if
if whatdotcolour (mx, my) = blue or whatdotcolour (mx, my) = blue then
my2 := my - 5
my := my2
end if
if whatdotcolour (mx, my) = yellow or whatdotcolour (mx, my) = yellow then
mx2 := mx + 5
mx := mx2
end if
if whatdotcolour (mx, my) = purple or whatdotcolour (mx, my) = purple then
mx2 := mx - 5
mx := mx2
end if


%outputs points
Font.Draw ("Score: ", 280, 385, font3, white)



setscreen ("offscreenonly")
delay (10)
View.Update
cls

end loop

[Delos]

Dude...

1) If you are going to put THAT much code in your post, at least use the [code] tags!

2) If you are going to put THAT much code in your post, consider attatching a file instead.

3) Whatdotcolour collision detection? No!! Don't! It's...bad, and inefficient...instead use a Math.Distance collision detection, will make your life so much easier. Really, it will.

4) PM the_short1 for advice concerning anything Pacman.

[MyPistolsIn3D]

Try this: I hope its what you wanted.

code:

%walls stop muncher if whatdotcolour (mx, my+5) = 12 or whatdotcolour (mx, my+5) = 12 then my2 := my + 5 my := my2 end if if whatdotcolour (mx, my+5) = blue or whatdotcolour (mx, my+5) = blue then my2 := my - 5 my := my2 end if if whatdotcolour (mx+5, my) = yellow or whatdotcolour (mx+5, my) = yellow then mx2 := mx + 5 mx := mx2 end if if whatdotcolour (mx+5, my) = purple or whatdotcolour (mx+5, my) = purple then mx2 := mx - 5 mx := mx2 end if

[MyPistolsIn3D]

The way you had it before, it stopped when the middle of the oval hit the wall, now i added 5 to it, it stops when it hits the outer edge of the oval(radius of 5).