Graphics3D 800,600,32,2
SetBuffer BackBuffer()

Global plySpeed=1

;ENTITYS
Global player  = LoadAnimMesh("b3d/dwarf1.b3d")
Global cam     = CreateCamera(player)

ExtractAnimSeq player,2,14
ExtractAnimSeq player,292,325

While Not KeyHit(1)
   move()

   RenderWorld()
   UpdateWorld()
   Flip
Wend
End

Function move()
   If KeyDown(17) Then
      MoveEntity player,0,0,plySpeed
      If Not Animating(player) Then
         Animate player,1,.2,1,1
      EndIf
   EndIf
   
   If KeyDown(31) Then
      MoveEntity player,0,0,-plySpeed
      If Not Animating(player) Then
         Animate player,1,-0.2,1,1
      EndIf
   EndIf
   
   If Not Animating(player)
      Animate player,1,.2,2,1
   EndIf
   
   ;If Not (KeyDown(17) Or KeyDown(31)) Then
   ;   If Not Animating(player)
   ;      Animate player,1,.2,2,1
   ;   EndIf
   ;EndIf
End Function