i need help making a joystick program but i do not know how to incorporate it into my maze game here is the code for the game:
procedure Maze
drawfillbox (100, 35, 120, 160, black)
drawfillbox (50, 35, 100, 52, black)
drawfillbox (110, 35, 192, 52, black)
drawfillbox (0, 110, 35, 129, black)
drawfillbox (0, 0, 25, 52, black)
drawfillbox (200, 13, 180, 140, black)
drawfillbox (0, 0, 120, 19, black)
drawfillbox (55, 120, 80, 140, black)
drawfillbox (0, 593, 190, 285, black)
drawfillbox (81, 137, 179, 121, black)
% Middle
drawfillbox (250, 150, 230, 282, black)
drawfillbox (145, 180, 200, 162, black)
drawfillbox (140, 95, 180, 110, black)
drawfillbox (350, 100, 220, 120, black)
drawfillbox (0, 200, 65, 180, black)
drawfillbox (525, 35, 310, 51, black)
drawfillbox (340, 78, 69, 62, black)
drawfillbox (350,168,328,121,black)
%Top Right Corner of maze
drawfillbox (593, 190, 234, 212, black)
drawfillbox (245, 239, 103, 223, black)
drawfillbox (619,297,638,300,black)
% Top left corner of maze
drawfillbox (385, 250, 0, 269, black)
drawfillbox (594,300,618,153,black)
drawfillbox (618,152,413,128,black)
%Bottom Right Corner of maze
drawfillbox (524,51,548,0,black)
drawfillbox (508,127,493,73,black)
drawfillbox (463,48,448,108,black)
drawfillbox (428,128,413,62,black)
drawfillbox (413,113,368,101,black)
drawfillbox (596,127,578,18,black)
drawfillbox (548,50,533,108,black)
%Colored boxes/Traps these are good and bad
drawfillbox (230, 150, 201, 121, green)
drawfillbox (80, 20, 101, 35, blue)
%Winning Area
drawfillbox (0, 249, 65, 200, 14)
end Maze
Maze
%Moving Dot/Preventing dot from going through walls prevent outside clipping region
var x, y : int
var move : string (1)
var answer : string
x := 630
y := 290
loop
drawfilloval (x, y, 2, 2, 4)
getch (move)
if move = chr (200) and y < 298 then
drawfilloval (x, y, 2, 2, 0)
y := y + 5
if whatdotcolor (x, y) = (black) then
y := y - 5
end if
elsif move = chr (203) and x > 2 then
drawfilloval (x, y, 2, 2, 0)
x := x - 5
if whatdotcolor (x, y) = (black) then
x := x + 5
end if
elsif move = chr (205) and x < 638 then
drawfilloval (x, y, 2, 2, 0)
x := x + 5
if whatdotcolor (x, y) = (black) then
x := x - 5
end if
elsif move = chr (208) and y > 3 then
drawfilloval (x, y, 2, 2, 0)
y := y - 5
if whatdotcolor (x, y) = (black) then
y := y + 5
end if
end if
%Color Trap # 1
if whatdotcolor (x, y) = (green) then
y := 293
x := 630
end if
%Color Trap # 2
if whatdotcolor (x, y) = (blue) then
y := 140
x := 155
end if
%Invisible Trap asks a skill testing question for the player to win
if x >= 68 and x <= 230 and y >= 190 and y <= 220 then
cls
put "What is the biggest star in the world ?"
get answer
if answer = "Antares" then
x := 28
y := 235
cls
Maze
colour(10)
colourback(255)
cls
loop
delay(1000)
put"YOU WIN!"
end loop
else
y := 100
x := 130
cls
Maze
colour(10)
colourback(255)
cls
loop
delay(10)
put"YOU LOSE!"
end loop
end if
end if
end loop
i need the joystick to move up,down,left, right
