Let's begin with the following program (OSU\003
Animated_Sprite.kpl):
// Author: Wayne Heym
// Date: September 18, 2006
Program Animated_Sprite
Method Main()
Define Xpos As Decimal = 100
Define Ypos As Decimal = 200
Define UFO As Sprite
Define waiting_time As Integer = 15
Define UFO_X_Speed As Decimal = 2
Define UFO_animation_timeline As Integer [] = { 100, 100, 100, 100, 100, 100 }
UFO.Load( "UFO.gif" )
UFO.AnimationTimeline = UFO_animation_timeline
UFO.MoveTo( Xpos, Ypos )
UFO.Show()
While Not Keyboard.IsKeyDown( Keys.Escape )
RefreshScreen()
DoEvents()
Xpos = Xpos + UFO_X_Speed
Delay( waiting_time )
UFO.MoveTo( Xpos, Ypos )
End While
End Method
End Program