пользуйся:
; AnimateMD2 Example
; ------------------
Graphics3D 640,480
SetBuffer BackBuffer()
Const up_key=17
Const dn_key=32
camera=CreateCamera()
light=CreateLight()
RotateEntity light,90,0,0
; Load md2
gargoyle=LoadMD2( "media/gargoyle/gargoyle.md2" )
; Load md2 texture
garg_tex=LoadTexture( "media/gargoyle/gargoyle.bmp" )
; Apply md2 texture to md2
EntityTexture gargoyle,garg_tex
;ExtractAnimSeq( gargoyle,32,46,1 )
;AnimateMD2 gargoyle, 2,0.1,32,46
PositionEntity gargoyle,0,-45,100
RotateEntity gargoyle,0,180,0
; Animate md2
AnimateMD2 gargoyle,1,0.1,32,46;=ani;False
While Not KeyDown( 1 )
moved = False
shot = False
forward = True
;Walk
If KeyDown(up_key) And shot = False
;MoveEntity character_pivot,0,0,0.02
moved = True
forward = True
End If
If KeyDown(dn_key) And shot = False
;MoveEntity character_pivot,0,0,0.-0.02
moved = True
forward = False
End If
If moved = True And shot = False
If forward = True
If MD2AnimTime(gargoyle) < 32 Or MD2AnimTime(gargoyle) > 46 Then
AnimateMD2 gargoyle,1,0.1,32,46
End If
End If
If forward = False And shot= False
If MD2AnimTime(gargoyle) < 32 Or MD2AnimTime(gargoyle) > 46 Then
AnimateMD2 gargoyle,1,0.1,32,46
End If
End If
End If
If moved = False
If MD2AnimTime(gargoyle) < 0 Or MD2AnimTime(gargoyle) > 30 Then
AnimateMD2 gargoyle,1,0.1,0,30
End If
End If
UpdateWorld
RenderWorld
Flip
Wend
End