Игростроение - Создание игр

Const TypePlayer=1, TypeTerrain=2, TypeBuilding=3, TypeCorpus=4

Global player
Global krechet
Global speed1#=0
Global speed3#=0
Global camera
Global model_krechet = CreateSphere()
ScaleEntity model_krechet,10,10,50
HideEntity model_krechet
Global CURSOR_MARK=CreateCube()
ScaleEntity CURSOR_MARK,10,10,10
MoveMouse 512,384
Global light=CreateLight()
TurnEntity light ,90,0,0

create_player()
h_model()

pln=CreatePlane()
tex=LoadTexture("tex_01.jpg")
ScaleTexture tex,200,200
EntityTexture pln,tex
EntityPickMode(pln,2)
EntityType pln,2
build=CreateCube()
ScaleEntity build,100,300,200
PositionEntity build ,400,0,400
EntityPickMode(build,2)
EntityType build,3
build1=CreateCube()
ScaleEntity build1,100,100,200
PositionEntity build1 ,-200,0,-200
EntityPickMode(build1,2)
EntityType build,3

Collisions TypePlayer,TypeTerrain,2,3
Collisions TypeCorpus,TypeBuilding,2,1

While Not KeyHit(1)
x=MouseX()
y=MouseY()
pick=CameraPick(camera,x,y)
PositionEntity CURSOR_MARK,PickedX(),PickedY(),PickedZ()
h_controll()
UpdateWorld
RenderWorld
Flip
Wend
End

Function create_player()
player=CreatePivot()
PositionEntity player,0,10,0
EntityType player,1

camera=CreateCamera()
PositionEntity camera ,0,1500,-1400
TurnEntity camera ,45,0,0
CameraZoom camera ,2
CameraRange camera ,1,5000
End Function

Function h_model()
krechet = CopyEntity (model_krechet,player)
TurnEntity krechet ,180,0,0
PositionEntity krechet ,0,200,-15
EntityType krechet ,4
End Function

Function h_controll()

MoveEntity player,speed1#,0,speed3#
TranslateEntity player,0,-1,0

If speed3>0 Then speed3=speed3-.25
If speed3<0 Then speed3=speed3+.25
If speed3>2 Then speed3=2
If speed3<-1 Then speed3=-1
If KeyDown(17) Then speed3=speed3+.5
If KeyDown(31) Then speed3=speed3-.5

xt#=EntityX#(CURSOR_MARK)
zt#=EntityZ#(CURSOR_MARK)
xl#=EntityX#(player)
zl#=EntityZ#(player)
cx#=xt-xl
cz#=zt-zl

AlignToVector player,cx,0,cz,0,.05
End Function
============================================
Кстати:
AlignToVector player,cx,0,cz,0,.02
Последний параметр это скорость поворота (лично у меня)

2. камера привязано к игроку и если игрок поворачивается то и камера тоже, как сделать так чтоб камера не поворачивалась, но была привязана к игроку(точнее говоря всегда следовала за игроком).

3. К "player" я сделал коллизию(для взаимодействия с местностью), модель игрока " model " привязана к "player" и у нее тоже есть коллизия (для взаимодействия с объектами), управлять нужно "player"ом. Если " model " коллизится с объектами то она смещается с своих координат(а она всегда должна находится в координатах "player"), что не приемлемо. Как реализовать так чтоб "player" тоже зависел от " model ".

2. Мне нужно сделать чтобы камера вила себя как в alien shooter-игрок свободно перемещается а камера двигается за ним но не поворачивалась если поворачивается игрок. Короче конкретно: есть объект А, и объект Б. Объект А должен всегда находится в координатах объекта Б. Как это реализовать?
3. Игрок будет управлять воздушным объектом (к примеру вертолетом):
пивот имеет гравитацию и скользит по земле (так же на нем закреплено управление) и он колизится с землей, сама модель вертолета находится намного выше него: то есть вертолет держит всегда одну высоту над неровностями (если гора то он поднимается и т.д.). «это я реализовал» см. пример.
А проблема заключается в том что нужно сделать столкновение со зданиями:
Пивот не имеет коллизии со зданиями для того чтоб если здание низкое то вертолет спокойно пролетал над ним. Однако если здание высокое то нужно сделать столкновение с объектом: чтоб вертолет стукнулся и остановился. Вот для этого я и вертолету сделал коллизию, но проблема в том что пивот не привязан к вертолету в результате чего когда вертолет останавливается перед зданием пивот идет дальше.

Может поможет.

Создай дополнительный обьект и пропиши ему
Positionentity object,entityX#(Player),entityY#(Player),entityZ#(Player)
Rotateentity object,entityPitch(Player),entityYaw(Player),entityRoll(Player)
moveentity object,0,0,4 ; Выдвигает его вперед на окружность поворота
pointentity object,CURSOR_MARK
moveentity object,0,0,1 ; двигает его в зависимости от скорости поворота=1
pointentity Player,object

Rotateentity player,0,entityYaw(player),entityRoll(player)

Это о чем?

P.S.Да задал вопросик.
Прости те за наглость.

Но при повороте камеры на 30 градусов она возвращается в положение y=0, но мне этого не надо, как исправить??

Global rotation1#=0

RotateEntity player,rotation1#,0,0

If rotation1>30 Then rotation1=30
If KeyDown(30) Then rotation1=rotation1+1
If rotation1<-30 Then rotation1=-30
If KeyDown(32) Then rotation1=rotation1-1

огромное тебе СПАСИБО