-----------------------------------

samthebest_2003

Mon Jan 22, 2007 7:49 pm


trying to make a maze

-----------------------------------

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

Tue Jan 23, 2007 12:15 pm


Re: trying to make a maze

-----------------------------------

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

Tue Jan 23, 2007 12:44 pm


Re: trying to make a maze

-----------------------------------

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


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