Reversing Animation

Blitz3D Forums/Blitz3D Programming/Reversing Animation

I must be doing the code all wrong then... =P

Graphics3D 640,480,16,2
SetBuffer BackBuffer()

AntiAlias enable

;----------
;load objects

camera=CreateCamera()
RotateEntity camera,45,0,0

light=CreateLight()
RotateEntity light,90,0,0

bob=LoadMD2( "bob.md2" )
RotateEntity bob,0,90,0
PositionEntity bob,0,-100,150

While Not KeyDown( 1 ) 

;----------
;movement

      If KeyDown(200) Then
          MoveEntity bob,1,0,0 
      EndIf

      If KeyDown(208) Then
          MoveEntity bob,-1,0,0
      EndIf

      If KeyDown(203) Then
          TurnEntity bob,0,1.0,0
      EndIf

      If KeyDown(205) Then
          TurnEntity bob,0,-1.0,0
      EndIf

;----------
;animation (!!!!!!!!!!)

If Not KeyDown(200) Then
	AnimateMD2 bob,1,0.1,9,1
EndIf

If Not KeyDown(208) Then
	AnimateMD2 bob,1,-0.1,9,1
EndIf 

;----------
;End Code

If bob=0 Then 
RuntimeError "Failed to load bob!"
EndIf 

UpdateWorld
RenderWorld
Flip
 
Wend

End