столкновения

[DmDef]

Наверно тема не 1 уже поднималась ,но всеже помогите разобраться с колизией.

Задал константы... присвоил тип..., а колизия работать не хочет.
Мб че не там написал? Сам уже 2 день воткнуть не могу что не так

вот код:

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

Const SHOOT=1
Const PLANEc=2
Const PLAYERc=3
Const G#=1

Global player=CreateSphere()
Global camera=CreateCamera(player)
Global pm=LoadMesh("PM.b3d",camera)
Global plane=CreatePlane()
Global pricel=LoadImage("pricel.png")
Global jump_speed
EntityType player,PLAYERc
EntityType plane,PLANEc

Global shoot_sprite=LoadSprite("texture/FPS-Shot.png")
ScaleSprite shoot_sprite,0.2,0.2
PositionEntity shoot_sprite,6.4,0,0
EntityType shoot_sprite,SHOOT
HideEntity shoot_sprite

Type Shoot
Field entity
Field time_out
End Type

Type Jump
Field yJump
Field speedJump
End Type

CreatePlayer
CreateWorld

Collisions PLAYERc,PLANEc,2,3

While Not KeyHit(1)





MouseControl()

V#=0.2

If KeyDown(30) MoveEntity player,-V#,0,0
If KeyDown(32) MoveEntity player,V#,0,0
If KeyDown(17) MoveEntity player,0,0,V#
If KeyDown(31) MoveEntity player,0,0,-V#

If MouseHit(1)
CreateShoot(pm)
EndIf

If MouseDown(2)
createshoot(pm)
EndIf

For s.shoot=Each shoot
UpdateShoot( s )
Next

;------JUMP--------
gravity#=0.01
jumpvel#=0.2

If jumping=0
If KeyHit(57) Then yvel#=jumpvel# jumping=1
TranslateEntity player,0,-G#,0
EndIf
If jumping=1
yvel#=yvel#-gravity#
by#=by#+yvel#
EndIf

If by#<1 Then by#=1 yvel#=0 jumping=0
MoveEntity player,0,yvel#,0
;-------END JUMP-------




RenderWorld

DrawImage pricel,MouseX(),MouseY()
Flip
Wend

End

;---------------------------

Function CreateWorld()

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



texplane=LoadTexture("texture/ground.jpg")
EntityTexture plane,texplane
EntityType plane,PLANEc

End Function

;---------------------------

Function CreatePlayer()

MidHandle pricel
MaskImage pricel,0,0,0

ScaleEntity player,0.3,0.3,0.3

PositionEntity player,0,50,0
EntityType player,PLAYERc

PositionEntity camera,0,0,0
CameraRange camera,0.1,10000


ScaleEntity pm,0.009,0.009,0.009
PositionEntity pm,0.5,-0.2,1
RotateEntity pm,0,90,0


End Function

;----------------------------

Function CreateShoot.shoot(pm)
s.shoot=New shoot
s\time_out=150
s\entity=CopyEntity(shoot_sprite,pm)
EntityParent s\entity,0
Return s
End Function

;----------------------------

Function UpdateShoot(s.shoot)
s\time_out=s\time_out-1
If (s\time_out=0)
FreeEntity s\entity
Delete s
Return
EndIf
MoveEntity s\entity,0.2,0,0
End Function

;----------------------------

Function MouseControl()

u#=70

TurnEntity camera,MouseYSpeed(),0,0
TurnEntity player,0,-MouseXSpeed(),0
MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
If Abs(EntityPitch#(camera))>u# RotateEntity camera,u#*Sgn(EntityPitch#(camera)),0,0



End Function

;---------------------------

Function Jump()

gravity#=.01
jumpvel#=.3

If jumping=0
If KeyHit(57) Then yvel#=jumpvel# jumping=1
EndIf
If jumping=1
yvel#=yvel#-gravity#
by#=by#+yvel#
EndIf

If by#<1 Then by#=1 yvel#=0 jumping=0
MoveEntity player,0,yvel#,0


End Function

;---------------------------

[SBJoker]

UpdateWorld перед RenderWorld критически необходим для коллизий!

[DmDef]

ах тыж блин спс огр

[Reks888]

спс огр

огр это огромное или это обращение