import GUI in "%oot/lib/GUI"
var x : array 1 .. 4 of int := init (155, 165, 160, 160)
var y : array 1 .. 4 of int := init (0, 0, 0, 5)
var chars : array char of boolean
var line :int
setscreen ("graphics:320;320")
loop
Input.KeyDown (chars)
line := GUI.CreateLine (x(1), y(1), x(2), y(2), 0)
line := GUI.CreateLine (x(3), y(3), x(4), y(4), 0)
if chars (KEY_RIGHT_ARROW) then
for i : 1..4
x(i) := x(i) + 1
delay(3)
cls
drawline (x(1), y(1), x(2), y(2), 1)
drawline (x(3), y(3), x(4), y(4), 1)
end for
end if
if chars (KEY_LEFT_ARROW) then
for i : 1..4
x(i) := x(i) - 1
delay(3)
cls
drawline (x(1), y(1), x(2), y(2), 1)
drawline (x(3), y(3), x(4), y(4), 1)
end for
end if
end loop
|