Defining and managing sprite animations?

Const ANIM_PLAYING = 1, ANIM_STOPPED = 2
Const ANIM_MAXFRAMES = 100

Type Anim
    Field state
    Field doesLoop
    Field frame[ANIM_MAXFRAMES], frameCount
    Field currentFrame
End Type

Function UpdateAnimations()
    Local a.Anim
    For a = Each Anim
        UpdateAnim a
    Next
End Function

Function UpdateAnim(a.Anim)
    If a\state = ANIM_PLAYING
        a\currentFrame = a\currentFrame + 1
        If a\currentFrame = a\frameCount
            a\currentFrame = 0
            If a\doesLoop  = False Then StopAnim a
        EndIf
    EndIf
End Function

Function PlayAnim(a.Anim)
    a\state = ANIM_PLAYING
End Function

Function StopAnim(a.Anim)
    a\state = ANIM_STOPPED
End Function

Function DrawAnim(a.Anim, x, y)
    MyMagicalSpriteLibraryDrawingFunction a\frame[a\currentFrame], x, y
End Function

Type TCharacter ;Generic character Type for every character in your game, ranging from the player to enemies and other NPCs.
	Field class% ;(1) Player; (2) Enemy; (3) Neutral NPC.
	Field subClass% ;Further differentiate characters of the same class (say, different types of enemies; they 
	;are all enemies (class 2) but are still different among each other).

	Field anim.TAnimation ;Instance of a TAnimation type to handle animation states and updating.
	
	[...]
End Type

Function UpdateCharacters()
	For c.TCharacter = Each TCharacter
		;Select the appropriate behavior based on the 'class' of each character:
		Select c\class
			Case 1
				UpdatePlayer(c) ;Updates player input and states.
			Case 2
				UpdateEnemy(c) ;UpdateEnemy will read the 'subclass' field and update states, steering, targets, goals etc. (generic AI).
			Case 3
				UpdateNPC(c) ;Updates states.
		End Select
		
		UpdateAnimation(c\anim) ;The TAnimation type is very generic and doesn't need to know the 
		;class or subclass of any character. It simply updates frames based on a speed and switches 
		;between 'sequences' or 'animImages'.
	Next
End Function