Hey, fellow programmers, I have a small problem with my code. I can make my character move one direction, but then when i press another key to make it go the other way it doesn't work. In other words: which direction i pick from the start i can not change unless i quit turing and launch it again.
So I was wondering if any of you could suggest something about the lay out of my code, or tell me if anything i wrote is wrong.
TURING CODE:
[color=#00ff11][color=#00ff11][color=#00ff11]var pics : array 1 .. 10 of int
var sprite : int
var move_key : array char of boolean
var chars : array char of boolean
var x, y : int := 100
proc up % not needed
end up
proc down % not needed
end down
proc left
loop
for i : 1 .. 10
pics (i) := Pic.FileNew ("pic" + intstr (i) + "_l.bmp")
sprite := Sprite.New (pics (i))
Sprite.SetPosition (sprite, x, y, true)
Sprite.Show (sprite)
loop
Input.KeyDown (chars)
if chars (KEY_LEFT_ARROW) then
x -= 10
exit
end if
end loop
for k : 8 .. maxx by 100
Sprite.ChangePic (sprite, pics (i))
delay (11)
end for
Sprite.Free (sprite)
end for
end loop
end left
proc right
loop
for i : 1 .. 10
pics (i) := Pic.FileNew ("pic" + intstr (i) + "_r.bmp")
sprite := Sprite.New (pics (i))
Sprite.SetPosition (sprite, x, y, true)
Sprite.Show (sprite)
loop
Input.KeyDown (chars)
if chars (KEY_RIGHT_ARROW) then
x += 10
exit
end if
end loop
for k : 8 .. maxx by 100
Sprite.ChangePic (sprite, pics (i))
delay (11)
end for
Sprite.Free (sprite)
end for
end loop
end right
loop
colorback (7)
Input.KeyDown (move_key)
if move_key (KEY_UP_ARROW) then % not needed
up
elsif move_key (KEY_DOWN_ARROW) then % not needed
down
elsif move_key (KEY_LEFT_ARROW) then
left
elsif move_key (KEY_RIGHT_ARROW) then
right
end if
end loop |
