'Class module
Sub Class_Globals
Private FRAME_COLS As Int = 6
Private FRAME_ROWS As Int = 1
Dim PlaneAnimation As lgAnimation
Dim PlaneRegion As lgTextureRegion
Dim spriteBatch As lgSpriteBatch
Dim currentFrame As lgTextureRegion
Dim stateTime As Float = 0
Dim X_pos As Int = 50
Dim Y_pos As Int = 50
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
spriteBatch.Initialize
Dim PlaneSheet As lgTexture
PlaneSheet.Initialize("actors/plane.png")
PlaneRegion.InitializeWithTexture(PlaneSheet)
Dim tmpWalkFrames(,) As lgTextureRegion = PlaneRegion.Split(PlaneRegion.Regionwidth/FRAME_COLS, PlaneRegion.RegionHeight/FRAME_ROWS)
Dim WalkFrames() As lgTextureRegion = GetRegionArray(tmpWalkFrames,0)
PlaneAnimation.Initialize(0.1, WalkFrames)
End Sub
Sub GetRegionArray(MultiDimArray As Object, Index As Int) As lgTextureRegion()
Dim r As Reflector
r.Target = MultiDimArray
Return r.GetArray(Array As Int(Index))
End Sub
Sub plane_draw(DeltaTime As Float)
stateTime = stateTime+DeltaTime
currentFrame = PlaneAnimation.GetKeyFrame2(stateTime, True)
spriteBatch.Begin
spriteBatch.DrawRegion(currentFrame, X_pos,Y_pos)
spriteBatch.End
End Sub