var zelda_right, zelda_up, zelda_down, zelda_left : int
zelda_right := Pic.New (50, 50, 150, 150)
zelda_right := Pic.FileNew ("link movement right.bmp")
zelda_up := Pic.New (50, 50, 150, 150)
zelda_up := Pic.FileNew ("link movement up.bmp")
zelda_down := Pic.New (50, 50, 150, 150)
zelda_down := Pic.FileNew ("link movement down.bmp")
zelda_left := Pic.New (50, 50, 150, 150)
zelda_left := Pic.FileNew ("link movement left.bmp")
var x, y : int
x := 100
y := 100
var chars : array char of boolean
loop
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
y := y + 5
Pic.Draw (zelda_up, x, y, picCopy)
end if
if chars (KEY_RIGHT_ARROW) then
x := x + 5
Pic.Draw (zelda_right, x, y, picCopy)
end if
if chars (KEY_LEFT_ARROW) then
x := x - 5
Pic.Draw (zelda_left, x, y, picCopy)
end if
if chars (KEY_DOWN_ARROW) then
y := y - 5
Pic.Draw (zelda_down, x, y, picCopy)
end if
cls
delay (10)
end loop
|