Collisions : - (

Hi guys, i wondering if anyone could help me with this problem i have. I can't seem to get a collision happening here can anyone please have a look at my code and help me out.


Thanks guys for any help

BLUE

Heres the code:

Graphics3D 1024,768
SetBuffer BackBuffer()


;WireFrame True
cam=CreateCamera()
light=CreateLight()



scene=LoadAnimMesh("test.3ds")


ScaleEntity scene,.1,.1,.1
PositionEntity scene,0,-20,200
ScaleEntity man,.1,.1,.1
PositionEntity man,0,-20,200


man=LoadMesh("man.3ds")
Global lift=FindChild(scene,"lift")














;variables

;collision
user=1
wall=2


;player
player_resetx#=EntityX(man) ;save players start position
player_resety#=EntityY(man) ;for resetting player

player_x#=EntityX(man)
player_y#=EntityY(man)


player_grip#=200 ;players gripping strength
state=1 ;not dead yet :-)



;lift
Global lift_resety#=EntityY(lift) ;save lift start position
Global lift_y#=EntityY(lift) ;for resetting lift
Global lift_direction=1 ;head downwards
Global lift_speed#=2 ;self explanatory ;-)









;collision
EntityType man,user
EntityRadius man,3000
EntityType lift,wall






Collisions user,wall,2,2


While Not KeyDown(1)
PointEntity cam,lift

player_grip=player_grip-.5


;player control
If KeyHit(200)
player_grip=player_grip+.3
EndIf

If player_grip<0 Then player_y=player_y-.6

PositionEntity man,EntityX(man),player_y,EntityZ(man)
PositionEntity lift,EntityX(lift),lift_y,EntityZ(lift)

movelift



UpdateWorld
RenderWorld

Rect 0,600,player_grip,10
Text 0,580,"GRIP METER"
Text 0,100,(EntityCollided(man,wall))
Text 0,0,EntityY(lift)+" "+player_y
Flip



Wend
End







Function movelift()

If lift_direction=1 And lift_y>(lift_resety-800) Then lift_y=lift_y-lift_speed
If lift_direction=1 And lift_y=<(lift_resety-800) Then lift_direction=0

If lift_direction=0 And lift_y<lift_resety Then lift_y=lift_y+lift_speed
If lift_direction=0 And lift_y=>lift_resety Then lift_direction=1

End Function