trying to make a maze

[samthebest_2003]

hi i am a noob at programming but i gotta make this for my final program of the course
but i don't know how to make the ball go back to the start when the ball hits a wall or something
my program so far looks like this:


setscreen ('offscreenonly')
var key:array char of boolean

var x:int:=80
var y:int:=360

drawfillbox (0,maxx,65,0,black)
drawfillbox (100,maxx,300,30,black)
drawfillbox (335,350,380,0,black)
drawfillbox (410,maxx,maxx,30,black)

var font2 := Font.New ("Ariel:9:")

drawfilloval(x,y,10,10,10)

delay(10)
loop
cls
Input.KeyDown(key)
if key (KEY_UP_ARROW) then
y:=y+1
end if
if key (KEY_RIGHT_ARROW)then
x:=x+1
end if
if key (KEY_DOWN_ARROW) then
y:=y-1
end if
if key (KEY_LEFT_ARROW)then
x:=x-1
end if

if key (KEY_DOWN_ARROW)and y=0 then
y:=y+360
end if
if key (KEY_UP_ARROW)and y=390 then
y:=y-1
end if


drawfillbox (0,maxx,65,0,black)
drawfillbox (100,maxx,300,30,black)
drawfillbox (335,350,380,0,black)
drawfillbox (410,maxx,maxx,30,black)
Font.Draw ("End", 615,12,font2,23)

drawfilloval(x,y,10,10,10)
delay (10)
View.Update

end loop



-------------------------------------------------------------------------------------------------------------------------
after this i dont know how to make the ball go back to the start after hitting the left wall
if key (KEY_LEFT_ARROW) and x=75 then
???????? ( wat do i put?) ????????
end if

[Hariss]

ok, i changed some things for you. Firstly your left wall and right wall problem does not exist, because i changed what happens. When the ball touches the wall, it resets in its starting position(just to make it tricky) For the bottom and top, just draw black squares, at the the white spaces and that problem will be taken care of. I also changed your input keydown stuff into hasch and getch, because it is better for the situation you are in, what happens when you reach the end that is completely up to you. Your game is good, try making more levels and increasing the circle's movement speed. You should do well.

[MihaiG]

I optimized your maze game by using "Input.KeyDown" instead of using getchar

Quote:

var key : array char of boolean
var alive : boolean := true
var horizontal : int := 80
var vertical : int := 360
put "Press any key to play"
put "Do not touch the walls, or you will restart at the beginning!"
Input.Pause
var chars : array char of boolean
setscreen ('offscreenonly')
drawfillbox (0, maxx, 65, 0, black)
drawfillbox (100, maxx, 300, 30, black)
drawfillbox (335, 350, 380, 0, black)
drawfillbox (410, maxx, maxx, 30, black)
loop
cls
drawfilloval (horizontal, vertical, 10, 10, 10)
drawbox (0, 0, maxx, maxy, 7)
drawfillbox (0, maxx, 65, 0, black)
drawfillbox (100, maxx, 300, 30, black)
drawfillbox (335, 350, 380, 0, black)
drawfillbox (410, maxx, maxx, 30, black)
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then %up arrow
if whatdotcolour (horizontal, vertical + 12) not= black then
vertical += 1
elsif whatdotcolour (horizontal, vertical + 12) = black then
alive := false
end if
elsif chars (KEY_RIGHT_ARROW) then %right arrow
if whatdotcolour (horizontal + 12, vertical) not= black then
horizontal += 1
elsif whatdotcolour (horizontal + 12, vertical) = black then
alive := false
end if

elsif chars (KEY_LEFT_ARROW) then %left arrow
if whatdotcolour (horizontal - 12, vertical) not= black then
horizontal -= 1
elsif whatdotcolour (horizontal - 12, vertical) = black then
alive := false
end if

elsif chars (KEY_DOWN_ARROW) then %down arrow
if whatdotcolour (horizontal, vertical - 12) not= black then
vertical -= 1
elsif whatdotcolour (horizontal, vertical - 12) = black then
alive := false
end if
end if
if alive = false then
horizontal := 80
vertical := 360
alive := true
end if
View.Update
end loop

goes much faster, you can add a delay right before the end loop if if the game runs to fast



Regards,



Mihai