%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

setscreen("offscreenonly")