Global curplayer = CreatePlayer("player.3ds",0,0,0,0,0,0)

Type Tcar
Field speed#
Field mesh%,player%,index%
End Type

Type Tplayer
Field mesh%,car%,index%
End Type

...

Function CreateCar(mesh$,x#,y#,z#,pitch#,yaw#,roll#)
car.Tcar = New Tcar
car\mesh = loadmesh(mesh)
PositionEntity car\mesh,x,y,z
RotateEntity car\mesh,pitch,yaw,roll
Return car\index = Handle(car)
End Function

Function CreatePlayer(mesh$,x#,y#,z#,pitch#,yaw#,roll#)
player.Tplayer = New Tplayer
player\mesh = loadmesh(mesh)
PositionEntity player\mesh,x,y,z
RotateEntity player\mesh,pitch,yaw,roll
Return player\index = Handle(player)
End Function

Function Update()

For player.Tplayer = Each Tplayer

If curplayer = player\index And KeyDown(33) And player\car=0 Then
For car.Tcar = Each Tcar
If EntityDistance(player\mesh,car\mesh) < MeshWidth(player\mesh)*2 Then
car\player = player\index : player\car = car\index
HideEntity player\mesh
End If
Next
ElseIf curplayer = player\index And KeyDown(33) And player\car<>0 Then
For car.Tcar = Each Tcar
If player\car = car\index Then
tmp_enter_bone = FindChild(car,"enter")
PositionEntity player\mesh,EntityX(tmp_enter_bone),EntityY(tmp_enter_bone),EntityZ(tmp_enter_bone)
ShowEntity player\mesh
car\player = 0
player\car = 0
End If
Next
End If
Next

...

End Function