Посмотри этот код, я комментарии везде поставил, должно быть всё понятно. Новые места отмечены ;============
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
Global player
Const typeplayer=1
Const typescene=2
Const typecamera=3
;=========================================================================
;тип, содержащий инфу о следящей камере
;entity - объект, за которым надо следить
;camera - сама камера
;target - пивот, место которого стремится занять камера
;если entity (наш игрок) стоит на месте, то камера тут будет
;heading - пивот, на который "смотрит" камера
;Z# - смещение по оси Z относительно entity (нашего игрока)
;Y# - смещение по оси Y
Type ChaseCam
Field entity,camera,target,heading
Field Z#
Field Y#
End Type
;=========================================================================
scene=CreateCube()
wall1=CreateCube()
wall2=CreateCube()
wall3=CreateCube()
wall4=CreateCube()
camera=CreateCamera()
player=CreateCube()
;=========================================================================
;создаём объект cam как экземпляр типа ChaseCam
;т.к. в параметре функции указали player, то камера
;будет следить за игроком
Global cam.ChaseCam = CreateChaseCam.ChaseCam(player)
;=========================================================================
;------------------------------------------------;
PositionEntity player,25,5,20
TurnEntity camera,30,0,0
FitMesh scene,0,0,0,50,2,50
FitMesh wall1,0,2,0,2,2,50
FitMesh wall2,48,2,0,2,2,50
FitMesh wall3,0,2,0,50,2,2
FitMesh wall4,0,2,48,50,2,2
EntityColor scene ,0,255,0
EntityColor wall1,200,100,100
EntityColor wall2,200,100,100
EntityColor wall3,200,100,100
EntityColor wall4,200,100,100
EntityType scene,typescene
EntityType wall1,typescene
EntityType wall2,typescene
EntityType wall3,typescene
EntityType wall4,typescene
EntityType camera,typecamera
EntityType player,typeplayer
EntityRadius scene,.5
EntityColor player,255,0,0
Collisions typeplayer,typescene,2,3
;=========================================================================
;устанавливаем колизию камеры со сценой
Collisions typecamera,typescene,2,3
;=========================================================================
Repeat
;=========================================================================
;обновляем состояние камеры
UpdateChaseCam(cam)
;=========================================================================
TranslateEntity player,0,-1,0
spd#=0.5
;If KeyDown(75) TurnEntity camera,0,1,0
;If KeyDown(77) TurnEntity camera,0,-1,0
;If KeyDown(72) TurnEntity camera,1,0,0
;If KeyDown(80) TurnEntity camera,-1,0,0
;If KeyDown(71) MoveEntity camera,0,0,1
;If KeyDown(73) MoveEntity camera,0,0,-1
If KeyDown(200) MoveEntity player,0,0,spd#
If KeyDown(208) MoveEntity player,0,0,-spd#
If KeyDown(203) TurnEntity player,0,3,0
If KeyDown(205) TurnEntity player,0,-3,0
UpdateWorld
RenderWorld
Flip
Until KeyHit(1)
End
;=========================================================================
;эта функция создаёт и возвращает объект типа ChaseCam
Function CreateChaseCam.ChaseCam( entity )
;создаём объект
Local C.ChaseCam=New ChaseCam
C\entity=entity
;создаём камеру
c\camera=CreateCamera()
;устанавливаем начальное смещение
C\Z#=-10
C\Y#=5
;создаём цель, к этой точке будет стремиться камера
C\target=CreatePivot( entity )
;ставим цель на нужное место
PositionEntity C\target,0,C\Y#,C\Z#
;тип для колизии
EntityType C\target,typecamera
;точка, в которую камера будет смотреть
;т.к. не меняем её позицию, то
;смотреть будем на entity (игрока)
C\heading=CreatePivot( entity )
Return C
End Function
;функция обновления состояния камеры
Function UpdateChaseCam( C.ChaseCam )
;1 - сделать вид от 1го лица
If KeyHit(2) Then
C\Z#=-0.1 C\Y#=0
EntityAlpha player,0
End If
;2 - сделать вид от 3го лица, ближе
If KeyHit(3) Then
C\Z#=-5 C\Y#=2
EntityAlpha player,1
End If
;3 - сделать вид от 3го лица, дальше
If KeyHit(4) Then
C\Z#=-10 C\Y#=5
EntityAlpha player,1
End If
;получаем расстояние по трём осям между
;пивотом-целью и текущим положением камеры
dx#=EntityX(C\target,True)-EntityX(C\camera,True)
dy#=EntityY(c\target,True)-EntityY(c\camera,True)
dz#=EntityZ(C\target,True)-EntityZ(C\camera,True)
;двигаем камеру в сторону цели со скоростью
;в 1/10 расстояния мужду ними
TranslateEntity C\camera,dx*.05,dy*.05,dz*.05
;ограничение по оси Y точки, в которую
;смотрит камера (щас не используется,
;т.к. позицию heading нигде не меняем)
If EntityY#(C\heading)>40 Then PositionEntity(C\heading,EntityX#(C\heading),40,EntityZ#(C\heading))
If EntityY#(C\heading)<-50 Then PositionEntity(C\heading,EntityX#(C\heading),-50,EntityZ#(C\heading))
;заставляем камеру пялиться в нужную точку
PointEntity C\camera,C\heading
;здесь мы двигаем цель вплотную к объекту (игроку)
PositionEntity C\target,0,0,0
;теперь сбрасываем колизию для цели,
;чтобы камера не проходила сквозь стены
ResetEntity C\target
;и ставим её в фиксированное положение,
;которое определяется смещением по осям Y и Z
PositionEntity C\target,0,C\Y#,C\Z#
End Function
;=========================================================================