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