private function Camera_Actions takes nothing returns nothing
        local integer i = 0
        local real Z1
        local real Z2
        local real Angle1
        local real offset
        local real Angle2
        loop
            exitwhen i >=  COUNT_OF_PLAYERS
            if (Units[i] != null) and (ApplyCam[i]) then
                call MoveLocation(l,GetUnitX(Units[i]),GetUnitY(Units[i]))
                set Z1 = GetLocationZ(l)                                
                call MoveLocation(l,GetUnitX(Units[i])-400*Cos(GetUnitFacing(Units[i])*bj_DEGTORAD),GetUnitY(Units[i])-40​0*Sin(GetUnitFacing(Units[i])*bj_DEGTORAD))
                set Z2 = GetLocationZ(l)
                if(Z1+100>=Z2)then
                    set offset=GetCameraField(CAMERA_FIELD_ZOFFSET)+GetUnitFlyHeight(Units[i])+300+Z1-GetCameraEyePositionZ(​)
                    set Angle1 = -15
                else
                    set offset=R2I(GetCameraField(CAMERA_FIELD_ZOFFSET))+300+GetUnitFlyHeight(Units[i])+Z2-R2I(GetCameraEyeP​ositionZ())
                    set Angle1 = -50
                endif
                set Angle2 = GetUnitFacing(Units[i])
                if (Down[i])and(not Up[i])and(Arround[i])then
                    set Angle2 = Angle2 + 180
                endif
                if(GetLocalPlayer()==Player(i))then
                    call SetCameraField(CAMERA_FIELD_ZOFFSET,offset,0.25) 
                    call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,500,0.25)
                    call SetCameraField(CAMERA_FIELD_ANGLE_OF_ATTACK,Angle1,0.25)
                    call SetCameraField(CAMERA_FIELD_FIELD_OF_VIEW,100,0.1)
                    call SetCameraField(CAMERA_FIELD_FARZ,10000.00,0.25)                    
                    call SetCameraField(CAMERA_FIELD_ROTATION,Angle2,0.25)
                endif                
             endif
          set i = i + 1
        endloop
    endfunction