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