Ufo Shaking

[peter]

Hello,

Another joke.


Uses "ui"
#INCLUDE "abc.inc"

OpenWindow 320,240
SetHandleDC hdc,hwnd
SetFont 14,14,0,""
Single vz
Long fz, ufo

ufo=LoadBmp "bmp/new_ufo.bmp",16

while iswindow(hwnd) and Key(27)=0
Canvas_Clear 0
DrawBmp ufo,80,40,164,105,fz
DrawString 30,220,"Drunken Ufo Navigator", %abc_bbred

vz +=.5
If vz >=2.2 Then
vz =0
fz +=1
If fz=16 Then
fz=0
End If
End If

Canvas_Redraw
SetFps (60)
Wend

FreeGraphic
Canvas_Window End