Maze Help with case construct

[14melody]

I need help making a maze using arrow keys, boarder restrictions and case construct.
I'm really confused and don't get case construct.
can someone give me an example for the coding for the left arrow?

[14melody]

okay, so I figured how to move my object around the maze. How do I restrict the user within the boarder now?


case ord (nextCh) of
label right:
x := x + 10

label left:
x := x - 10

label down:
y := y - 10

label up :
y := y + 10

end case

[Tony]

You check if there's a wall in between "x" and "x + 10". The data-structure choice for how you want to represent walls is up to you.

[tyuo9980]

you can use collision detection, and theres a couple of ways to do it. but for this case i would use whatdotcolour

[darkage43]

whatdotcolour is probably easy to to do since your maze would be a single colour

[14melody]

so i did this:


loop
colour := View.WhatDotColour (x - 15, y + 15)
colour2 := View.WhatDotColour (x + 15, y - 15)

if colour = 0 and colour2 = 0 then

getch (nextCh)

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

case ord (nextCh) of

label right :
x := x + 10

label left:
x := x - 10

label down:
y := y - 10

label up:
y := y + 10
end case

end if




how would I move the circle again once it detected the wall?

[goroyoshi]

thats not what they had in mind,
also use syntax tags
[ syntax="turing"]
[ /syntax]
no spaces
this is an example of using a circle with this

Turing:

if whatdotcolour (x+ radius of circle + 1, y) = color of maze then     x -= 1 end if