setscreen ( "graphics:1000;700,offscreenonly")
var x,y : int
var sky : int
var ship : int
var backgroundPictureWidth, backgroundPictureHeight : int
var backgroundPictureX, backgroundPictureY : int
ship := Pic.FileNew ("c5.bmp") <--
sky := Pic.FileNew ("sky.jpg") <--
backgroundPictureWidth := Pic.Width (sky)
backgroundPictureHeight := Pic.Height (sky)
backgroundPictureX := (backgroundPictureWidth - (maxx + 1)) div 2
backgroundPictureY := (backgroundPictureHeight - (maxy + 1)) div 2
x:=100
y:=100
var chars : array char of boolean
loop
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
y:=y+15
end if
if chars (KEY_RIGHT_ARROW) then
x:=x+15
end if
if chars (KEY_LEFT_ARROW) then
x:=x-15
end if
if chars (KEY_DOWN_ARROW) then
y:=y-15
end if
View.Update
delay(10)
cls
Pic.Draw (sky, -backgroundPictureX, -backgroundPictureY, picCopy)
Pic.Draw(ship,x,y,picMerge)
View.Update
end loop |