%kyle's ufo thing
var x,y : int
x:=100
y:=100
var chars : array char of boolean
var ufo :int
%draws the ufo
drawfillbox(15,15,50,20,red)
drawfillbox(20,20,45,15,9)
drawfillbox(20,20,45,25,8)
drawline(15,5,23,15,7)
drawline(23,15,43,15,7)
drawline(43,15,50,5,7)
drawline(50,5,15,5,7)
drawfill(35,10,yellow,7)
drawbox(15,15,50,20,7)
drawbox(20,15,45,20,7)
drawbox(20,20,45,25,7)
%takes the picture of the ufo
ufo := Pic.New (15,5,50,25)
loop
Input.KeyDown (chars)
Pic.Draw (ufo, x, y, picCopy)
if chars (KEY_UP_ARROW) then
y:=y+5
end if
if chars (KEY_RIGHT_ARROW) then
x:=x+5
end if
if chars (KEY_LEFT_ARROW) then
x:=x-5
end if
if chars (KEY_DOWN_ARROW) then
y:=y-5
end if
drawbox(x,y,x,y,red)
delay(50)
cls
end loop
|