globals
    unit array udg_unit
    integer countpls=0
    real DefaultRate=5.00
    real MaxRate=20.00
    boolean array KeyUp
    boolean array KeyDown
    boolean array KeyLeft
    boolean array KeyRight
    hashtable hash=InitHashtable()
endglobals

real GetTerrainZ(location loc){
    return GetLocationZ(loc)-256 // вычитаю cliff level 2
}

function Speed2Px takes integer speed returns real
    return SquareRoot(speed)/4
endfunction

function PartOfPercent takes real percent, real number returns real
    return (percent/100)*number
endfunction

function setCamera takes unit u returns nothing
    local player pl=GetOwningPlayer(u)
    local integer ind=GetConvertedPlayerId(pl)-1
    local real uface=GetUnitFacing(u)
    local location uloc=GetUnitLoc(u)
    local real x=GetLocationX(uloc)
    local real y=GetLocationY(uloc)
    local real z=GetTerrainZ(uloc)
    local real b=40
    local real z2
    local real c
    local real aoa
    local real randroll
    call PanCameraToTimedLocForPlayer(pl,uloc,0)
    call SetCameraQuickPositionLocForPlayer(pl,uloc)
    call MoveLocation(uloc,x+b*CosBJ(uface),y+b*SinBJ(uface))
    set z2=GetTerrainZ(uloc)
    set c=RAbsBJ(z2-z)
    set aoa=Atan(c/b)*bj_RADTODEG
    if (z2<z) then
        set aoa=360-aoa
    endif
    call SetCameraFieldForPlayer(pl,CAMERA_FIELD_ZOFFSET,120.00+z,0)
    call SetCameraFieldForPlayer(pl,CAMERA_FIELD_ANGLE_OF_ATTACK,aoa,0.25)
    call SetCameraFieldForPlayer(pl,CAMERA_FIELD_ROTATION,uface,0)
    call SetCameraFieldForPlayer(pl,CAMERA_FIELD_TARGET_DISTANCE,100,0)
    call SetCameraFieldForPlayer(pl,CAMERA_FIELD_FARZ,10000,0)
    call SetCameraFieldForPlayer(pl,CAMERA_FIELD_FIELD_OF_VIEW,120,0)
    if (KeyUp[ind]) then
        set randroll=GetRandomReal(-1,1)
        call SetCameraFieldForPlayer(pl,CAMERA_FIELD_ROLL,randroll,0.25)
    else
        call SetCameraFieldForPlayer(pl,CAMERA_FIELD_ROLL,0,0.25)
    endif
    call RemoveLocation(uloc)
    set pl=null
    set uloc=null
    set u=null
    set aoa=0
    set ind=0
    set randroll=0
    set c=0
    set z2=0
    set b=0
    set z=0
    set y=0
    set x=0
    set uface=0
endfunction

function GetTerrainZ takes location loc returns real
    return GetLocationZ(loc)-256 // вычитаю cliff level 2
endfunction