'TAnimation Module.. by Johannes Wolf

Type TAnimation

   Field name:String
   Field id:Int
   
   Field timer:TTimer
   Field last:Int

   Field image:TImage
   Field length:Int
   
   Field cFrame:Int
   Field sFrame:Int
   Field eFrame:Int
   
   Function Create:TAnimation(_name:String,_id:Int,hertz:Int,_image:TImage,_sFrame:Int,_eFrame:Int)
   
      Local n:TAnimation = New TAnimation
      
         n.name    = _name
         n.id    = _id
         n.timer    = CreateTimer(hertz)
         n.image    = _image
         n.length = _image.frames.length
         n.cFrame = _sFrame
         n.sFrame = _sFrame
         n.eFrame = _eFrame
         
      Return n
      
   EndFunction
   
   Method play(x:Int,y:Int,rp:Int = 0)
   
      If cFrame < eFrame Then
      
         If TimerTicks(timer:TTimer) Mod 2 <> last Then
            cFrame:+1
            If cFrame = eframe Then cFrame = sFrame
      
         EndIf
            
            last = TimerTicks(timer:TTimer) Mod 2
            DrawImage image,x,y,cFrame
      EndIf
      
   EndMethod
   
   Method SetFrame(frame:Int)
   
      cFrame = frame
   
   EndMethod
   
EndType

Include "TAnimation.bmx"

Global image:TImage = LoadAnimImage("anim.png",64,128,0,8)

Global ani:TAnimation = TAnimation.Create("test",0,4,image,1,3)

Graphics 800,600

Repeat
Cls

   ani.play(100,100)

Flip
Until AppTerminate()