[Colossus]

впринципе я уже допер) все было просто как бананова кожура)))

Graphics3D 800,600,32,1
AmbientLight 195,140,50
SetBuffer BackBuffer()

CamPivot=CreatePivot()

camera=CreateCamera(CamPivot)
               PositionEntity camera,0,6,-10
               RotateEntity camera,0,180,0
               PointEntity camera,CamPivot

light=CreateLight(2)
           PositionEntity light,0,100,0

urban=LoadAnimMesh("Urban.b3d")
             ScaleEntity urban,0.1,0.1,0.1
             RotateEntity urban,0,180,0
             PositionEntity urban,0,0,10

rhand=FindChild(urban,"ValveBiped.Bip01_R_Hand")

Global idle=LoadAnimSeq(urban,"Idle.b3d")
Global runf=LoadAnimSeq(urban,"RunF.b3d")
Global runb=LoadAnimSeq(urban,"RunB.b3d")
Global runr=LoadAnimSeq(urban,"RunR.b3d")
Global runl=LoadAnimSeq(urban,"RunL.b3d")
Global runfr=LoadAnimSeq(urban,"RunFR.b3d")
Global runfl=LoadAnimSeq(urban,"RunFL.b3d")
Global runbr=LoadAnimSeq(urban,"RunBR.b3d")
Global runbl=LoadAnimSeq(urban,"RunBL.b3d")


While Not KeyHit(1)

PositionEntity CamPivot,EntityX(urban),EntityY(urban)+2,EntityZ(urban)
RotateEntity CamPivot,EntityPitch(CamPivot)+MouseYSpeed()*.09,EntityYaw(CamPivot)-MouseXSpeed()*.09,0
MoveMouse 400,300

If Not Animating(urban) Animate urban,1,1,idle

If KeyDown(17)  If AnimSeq (urban)<>runf Animate urban,3,0.5,runf
If KeyDown(31)  If AnimSeq (urban)<>runb Animate urban,3,0.5,runb
If KeyDown(30)  If AnimSeq (urban)<>runl Animate urban,3,0.5,runl
If KeyDown(32)  If AnimSeq (urban)<>runr Animate urban,3,0.5,runr



UpdateWorld
RenderWorld
Flip
Wend
End

но почему то не работаю анимки впередвбок и назадвбок)