Камера от 3 лица.

local TypeUnit = FourCC("dgui")
local GL4Cam = Location(0,0)
local AtUnit = null
local DeltaZ = 0

local  WidthScreen = 0.544
local  HeightScreen = 0.302
local AspectRatio = WidthScreen/HeightScreen

CAMERA = {}
function CAMERA:New()
    local obj = {}
    self.__index = self
    local OBB = setmetatable(obj, self)
    obj.CostumValue = 0
    obj.change = true
    obj.Eye = VECTOR3:New_1(0.0,-922.668,DeltaZ+1367.912)
    obj.At = VECTOR3:New_1(0, 0, DeltaZ)
    obj.Distance = 0
    obj.Yaw = 0
    obj.Pitch = 0
    obj.Roll = 0
    obj.AxisX = VECTOR3:new()
    obj.AxisY = VECTOR3:new()
    obj.AxisZ = VECTOR3:new()
    obj.View  = MATRIX4:new()
    obj.Projection = Matrix4Perspective2(MATRIX4:new(), 0.5, 10000, -WidthScreen/2, WidthScreen/2, -HeightScreen/2, HeightScreen/2)
    OBB:UpdateDistanceYawPitch()
    OBB:UpdateAxisMatrix()

    return setmetatable(obj, self)
end
function CAMERA:Win2World(X,Y,Range)
    local VECTOR3 Output = VECTOR3:new()
    Output.x = self.Eye.x+self.AxisZ.x*Range+X*self.AxisX.x*WidthScreen*Range+Y*self.AxisY.x*HeightScreen*Range
    Output.y = self.Eye.y+self.AxisZ.y*Range+X*self.AxisX.y*WidthScreen*Range+Y*self.AxisY.y*HeightScreen*Range
    Output.z = self.Eye.z+self.AxisZ.z*Range+X*self.AxisX.z*WidthScreen*Range+Y*self.AxisY.z*HeightScreen*Range
    return Output
end
function CAMERA:Win2World (X,Y,Range)
    local VECTOR3 Output = VECTOR3:new()
    Output.x = self.Eye.x+self.AxisZ.x*Range+X*self.AxisX.x*WidthScreen*Range+Y*self.AxisY.x*HeightScreen*Range
     Output.y =self.Eye.y+self.AxisZ.y*Range+X*self.AxisX.y*WidthScreen*Range+Y*self.AxisY.y*HeightScreen*Range
    Output.z = self.Eye.z+self.AxisZ.z*Range+X*self.AxisX.z*WidthScreen*Range+Y*self.AxisY.z*HeightScreen*Range
    return Output
end
function CAMERA:World2Win (X,Y,Z)
    local Pos = VECTOR3:New_1(X, Y, Z)
    local b
    Vec3Transform_2(Pos, Pos, self.View)
    b = Pos.z < 0
    Vec3Transform_2(Pos, Pos, self.Projection)
    if b then
     Pos.z = -Pos.z
    end
    return Pos
end
function CAMERA:UpdateDistanceYawPitch ()
    local  dx = self.At.x-self.Eye.x
    local  dy = self.At.y-self.Eye.y
    local  dz = self.At.z-self.Eye.z
    local  len2d
    self.Distance = SquareRoot(dx*dx+dy*dy+dz*dz)
    self.Yaw = Atan2(dy, dx)
    len2d = SquareRoot(dx*dx+dy*dy)
    self.Pitch = Atan2(dz, len2d)
end
function CAMERA:UpdateAxisMatrix ()
    local  mat

    Vec3Normalize(self.AxisZ, Vec3Subtract(self.AxisZ, self.At, self.Eye))
    mat = Matrix3RotationAxis(MATRIX3:new(), self.AxisZ, -self.Roll)

    Vec3Normalize(self.AxisX, Vec3Cross(self.AxisX, self.AxisZ, VECTOR3.oneZ))

    Vec3Transform_1(self.AxisY, Vec3Cross(self.AxisY, self.AxisX, self.AxisZ), mat)

    Vec3Transform_1(self.AxisX, self.AxisX, mat)

    Matrix4Look(self.View, self.Eye, self.AxisX, self.AxisY, self.AxisZ)

    mat = nil
end
function CAMERA:ApplyCameraForPlayer (p,IgnorChange)
    if GetLocalPlayer() == p then
        SetCameraField(CAMERA_FIELD_ROTATION, self.Yaw*bj_RADTODEG, 0)
        SetCameraField(CAMERA_FIELD_ANGLE_OF_ATTACK, self.Pitch*bj_RADTODEG, 0)
        SetCameraField(CAMERA_FIELD_ROLL, self.Roll*bj_RADTODEG, 0)
        SetCameraField(CAMERA_FIELD_TARGET_DISTANCE, self.Distance, 0)
        SetCameraTargetController(AtUnit, self.At.x, self.At.y, false)
        SetCameraField(CAMERA_FIELD_ZOFFSET, self.At.z-DeltaZ, 0)
    end
    if self.change or IgnorChange then
        self.change = false
         return true
    end
    return false
end
function CAMERA:SetPosition (x,y,z)
    local  dx = x-self.At.x
    local  dy = y-self.At.y
    local  dz = z-self.At.z
    self.Eye.x = self.Eye.x+dx
    self.Eye.y = self.Eye.y+dy
    self.Eye.z = self.Eye.z+dz
    self.At.x = x
    self.At.y = y
    self.At.z = z
    self.change = true
end
function CAMERA:SetEyeAndAt (ex,ey,ez,tx,ty,tz)
    self.Eye.x = ex
    self.Eye.y = ey
    self.Eye.z = ez
    self.At.x = tx
    self.At.y = ty
    self.At.z = tz
    self:UpdateDistanceYawPitch()
    self:UpdateAxisMatrix()
    self.change = true
end
function CAMERA:SetYawPitchRoll (yaw,pitch,roll,EyeLock)
    local  Z = self.Distance*Sin(pitch)
    local  XY =self.Distance*Cos(pitch)
    local  X = XY*Cos(yaw)
    local  Y = XY*Sin(yaw)
    self.Yaw = yaw
    self.Pitch = pitch
    self.Roll = roll
    if EyeLock then
        self.At.x = self.Eye.x+X
        self.At.y = self.Eye.y+Y
        self.At.z = self.Eye.z+Z
    else
        self.Eye.x = self.At.x-X
        self.Eye.y = self.At.y-Y
        self.Eye.z = self.At.z-Z
    end
    self:UpdateAxisMatrix()
    self.change = true

end

local TempX = 0
local TempY = 0
function InitDeltaZ_Timer()
    DeltaZ = GetCameraTargetPositionZ()
    SetCameraPosition(TempX, TempY)
    DestroyTimer(GetExpiredTimer())
end
function InitDeltaZ()
    TempX = GetCameraTargetPositionX()
    TempY = GetCameraTargetPositionY()
    SetCameraPosition(0, 0)
    TimerStart(CreateTimer(), 0.01, false, function()
        DeltaZ = GetCameraTargetPositionZ()
        SetCameraPosition(TempX, TempY)
        DestroyTimer(GetExpiredTimer())
    end)

end
function InitCameraL()
     AtUnit = CreateUnit(Player(15), TypeUnit, 0, 0, 0)
     ShowUnit(AtUnit, false)
     InitDeltaZ()

end

EVENT_PLAYER_MOUSE_MOVE