With millisecs()
AnimSpeedCnt = Millisecs() Select Anim Case 0 ; Idle MinFrame = 0 MaxFrame = 4 AnimSpeed = 1000 ; Animation speed end select EntityTexture Ent,Tex,CurrFrame,0 ; Drawimage image,x,y,CurrFrame If AnimSpeedCnt > Time + AnimSpeed Time = Millisecs() If CurrFrame >= MaxFrame CurrFrame = MinFrame Else CurrFrame = CurrFrame + 1 EndIf EndIf