[Colossus]

Graphics3D 800,600,32,1
SetBuffer BackBuffer()
HidePointer

Const T_PLAYER=1
Const T_THING=2
Const T_WORLD=3

pivot=CreatePivot(cam)

cam=CreateCamera(pivot)
PositionEntity cam,0,3,-10
RotateEntity cam,0,0,0
CameraRange cam,0.1,10000

john=LoadAnimMesh("..\Shooter\John.b3d")
PositionEntity john,0,1,0
ScaleEntity john,0.1,0.1,0.1
RotateEntity john,0,180,0
EntityType (john,T_PLAYER)

nebo=LoadMesh("..\Shooter\Sky.b3d")
PositionEntity nebo,0,0,0
ScaleEntity nebo,10,10,10
EntityType (nebo,T_WORLD)

zavod=LoadMesh("..\Shooter\Zavod.b3d")
PositionEntity zavod,0,0,0
EntityType (zavod,T_WORLD)

rifle=LoadAnimMesh("..\Shooter\Vintores.b3d")
PositionEntity rifle,0,1,20
ScaleEntity rifle,6,6,6
EntityType (rifle,T_THING)

barel=LoadMesh("..\Shooter\Barel.b3d")
PositionEntity barel,20,0,-40
EntityType (barel,T_THING)

luck=LoadMesh("..\Shooter\Luck.b3d")
PositionEntity luck,14.4,0.2,-17.9
ScaleEntity luck,6,6,6
EntityType (luck,T_THING)

energo=LoadMesh("..\Shooter\Emergensy.b3d")
PositionEntity energo,15,0,65
ScaleEntity energo,0.5,0.5,0.5
EntityType (energo,T_THING)

light=CreateLight(barel)
PositionEntity light,0,0,0

light2=CreateLight(zavod)
PositionEntity light2,0,0,0

Run=LoadAnimSeq(john,"..\Shooter\John_Run.b3d")
Picup_w=LoadAnimSeq(john,"..\Shooter\John_Pickup_Rifle.b3d")
IDLE=LoadAnimSeq(john,"..\Shooter\John_IDLE.b3d")

gun=FindChild(john,"GUN01")
EntityParent rifle,gun
PositionEntity gun,0,0,0


Collisions (T_THING,T_WORLD,2,3)
Collisions (T_WORLD,T_THING,2,3)
Collisions (T_PLAYER,T_THING,2,3)
Collisions (T_PLAYER,T_WORLD,2,3)
Collisions (T_THINH,T_PLAYER,2,3)
Collisions (T_WORLD,T_PLAYER,2,3)

Global speed#=0,jumping=False

While Not KeyDown(1)

If KeyDown(17) And (AnimSeq(john)<>jump Or (Not Animating(john))) Then 
 If AnimSeq(john)<>Run Or (Not Animating(john)) Animate john,3,0.1,Run
 Speed=Speed+.006
 If Speed>.06 Then Speed=.06
EndIf
MoveEntity john,0,0,-Speed
If KeyDown(31) And (AnimSeq(john)<>jump Or (Not Animating(john))) Then ;??????????
 If AnimSeq(john)<>Run Or (Not Animating(john)) Animate john,3,.1,Run
 Speed=Speed-.002
 If Speed<-.02 Then Speed=-.02
EndIf
Speed=Speed*.95
RotateEntity pivot,EntityPitch(pivot)+MouseYSpeed()*.3,EntityYaw(pivot)-MouseXSpeed()*.3,0 

If EntityPitch(pivot)>60 RotateEntity pivot,60,EntityYaw(pivot),0
If EntityPitch(pivot)<-60 RotateEntity pivot,-60,EntityYaw(pivot),0
PositionEntity pivot,EntityX(john),EntityY(john)+4,EntityZ(john)
RotateEntity john,EntityPitch(john),EntityYaw(pivot)+180,0
MoveMouse 400,300
MoveEntity john,0,-.05,0
UpdateWorld
RenderWorld
Text 400,300,".",True,True
Flip 0
Wend
End

блин парни помогите что за хня?! привязываю винтовку к руке а она не привязывается.. ну привязывается но не до конца.. у мя чел бежит а винтовка как бы рядом летит((( а над чтобы она за рукой повторяла движение