Triggers

//TESH.scrollpos=74
//TESH.alwaysfold=0
function RemoveNotPlaying takes nothing returns nothing
    if GetOwningPlayer(GetEnumUnit()) == RemoveOwn then
        call RemoveUnit(GetEnumUnit())
    endif
endfunction

function Trig_IniTest_Actions takes nothing returns nothing
globals
    Car ct = 0
    player RemoveOwn 
endglobals 
local group gr 
local location l


//call CreateCar(gg_unit_h000_0056)
//set ct = CreateCar(gg_unit_h000_0056)
//if GetPlayerSlotState(GetOwningPlayer(gg_unit_h000_0056)) == PLAYER_SLOT_STATE_PLAYING then
//    call CreateCar(gg_unit_h000_0056)
//else
//    set l = GetUnitLoc(gg_unit_h000_0056) 
//    set gr = GetUnitsInRangeOfLocAll(1000,l)
//    set RemoveOwn = GetOwningPlayer(gg_unit_h000_0056)
//    call ForGroup( gr , function RemoveNotPlaying)
//    call DestroyGroup(gr)
//    call RemoveLocation(l)
//    set gr = null
//    set l = null
//endif
//if GetPlayerSlotState(GetOwningPlayer(gg_unit_h00S_0057)) == PLAYER_SLOT_STATE_PLAYING then
//    call CreateCar(gg_unit_h00S_0057)
//else
//    set l = GetUnitLoc(gg_unit_h00S_0057)
//    set gr = GetUnitsInRangeOfLocAll(1000,l)
//    set RemoveOwn = GetOwningPlayer(gg_unit_h00S_0057)
//    call ForGroup( gr , function RemoveNotPlaying)
//    call DestroyGroup(gr)
//    call RemoveLocation(l)
//    set gr = null
//    set l = null
//endif
//if GetPlayerSlotState(GetOwningPlayer(gg_unit_h000_0093)) == PLAYER_SLOT_STATE_PLAYING then
//    call CreateCar(gg_unit_h000_0093)
//else
//    set l = GetUnitLoc(gg_unit_h000_0093)
//    set gr = GetUnitsInRangeOfLocAll(1000,l)
//    set RemoveOwn = GetOwningPlayer(gg_unit_h000_0093)
//    call ForGroup( gr , function RemoveNotPlaying)
//    call DestroyGroup(gr)
//    call RemoveLocation(l)
//    set gr = null
//    set l = null
//endif
//if GetPlayerSlotState(GetOwningPlayer(gg_unit_h000_0094)) == PLAYER_SLOT_STATE_PLAYING then
//    call CreateCar(gg_unit_h000_0094)
//else
//    set l = GetUnitLoc(gg_unit_h000_0094)
//    set gr = GetUnitsInRangeOfLocAll(1000,l)
//    set RemoveOwn = GetOwningPlayer(gg_unit_h000_0094)
//    call ForGroup( gr , function RemoveNotPlaying)
//    call DestroyGroup(gr)
//    call RemoveLocation(l)
//    set gr = null
//    set l = null
//endif
//if GetPlayerSlotState(GetOwningPlayer(gg_unit_h000_0095)) == PLAYER_SLOT_STATE_PLAYING then
//    call CreateCar(gg_unit_h000_0095)
//else
//    set l = GetUnitLoc(gg_unit_h000_0095)
//    set gr = GetUnitsInRangeOfLocAll(1000,l)
//    set RemoveOwn = GetOwningPlayer(gg_unit_h000_0095)
//    call ForGroup( gr , function RemoveNotPlaying)
//    call DestroyGroup(gr)
//    call RemoveLocation(l)
//    set gr = null
//    set l = null
//endif
//if GetPlayerSlotState(GetOwningPlayer(gg_unit_h000_0096)) == PLAYER_SLOT_STATE_PLAYING then
//    call CreateCar(gg_unit_h000_0096)
//else
//    set l = GetUnitLoc(gg_unit_h000_0096)
//    set gr = GetUnitsInRangeOfLocAll(1000,l)
//    set RemoveOwn = GetOwningPlayer(gg_unit_h000_0096)
//    call ForGroup( gr , function RemoveNotPlaying)
//    call DestroyGroup(gr)
//    call RemoveLocation(l)
//    set gr = null
//    set l = null
//endif
//if GetPlayerSlotState(GetOwningPlayer(gg_unit_h000_0097)) == PLAYER_SLOT_STATE_PLAYING then
//    call CreateCar(gg_unit_h000_0097)
//else
//    set l = GetUnitLoc(gg_unit_h000_0097)
//    set gr = GetUnitsInRangeOfLocAll(1000,l)
//    set RemoveOwn = GetOwningPlayer(gg_unit_h000_0097)
//    call ForGroup( gr , function RemoveNotPlaying)
//    call DestroyGroup(gr)
//    call RemoveLocation(l)
//    set gr = null
//    set l = null
//endif
endfunction

//===========================================================================
function InitTrig_IniTest takes nothing returns nothing
    set gg_trg_IniTest = CreateTrigger(  )
    call TriggerAddAction( gg_trg_IniTest, function Trig_IniTest_Actions )
endfunction

//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Move_Func002A takes nothing returns nothing
    if  GetOwningPlayer(GetEnumUnit()) == GetTriggerPlayer()  then
        call SetUnitPositionLoc( GetEnumUnit(), GetRandomLocInRect(gg_rct_StartingZone1) )
    endif
endfunction

function Trig_Move_Actions takes nothing returns nothing
local integer i = 0
local location l 
    set bj_wantDestroyGroup = true
    call ForGroupBJ( GetUnitsInRectAll(GetPlayableMapRect()), function Trig_Move_Func002A )
    loop
        if GetOwningPlayer(Stek.S[i].u) == GetTriggerPlayer() then
          set l = GetRandomLocInRect(gg_rct_StartingZone1)
          set Stek.S[i].x = GetLocationX(l)
          set Stek.S[i].y = GetLocationY(l)
          call RemoveLocation(l)
        endif
    exitwhen i >= Stek.i
    set i = i + 1
    endloop
endfunction

//===========================================================================
function InitTrig_Move takes nothing returns nothing
    set gg_trg_Move = CreateTrigger(  )
    call TriggerRegisterPlayerChatEvent( gg_trg_Move, Player(0), "-move3", true )
    call TriggerRegisterPlayerChatEvent( gg_trg_Move, Player(1), "-move3", true )
    call TriggerRegisterPlayerChatEvent( gg_trg_Move, Player(2), "-move3", true )
    call TriggerRegisterPlayerChatEvent( gg_trg_Move, Player(3), "-move3", true )
    call TriggerAddAction( gg_trg_Move, function Trig_Move_Actions )
endfunction

//TESH.scrollpos=0
//TESH.alwaysfold=0

//TESH.scrollpos=72
//TESH.alwaysfold=0
library FDLCLCarBase initializer InitCarBase
// Vehicle type database for FDL CarLib v2.0 and below. Please do not be afraid of arrays, cumbersome, but fast and reliable
globals
    private constant integer Max =100
    integer array FDLCL_UID [Max]
    real array FDLCL_MV [Max]
    real array FDLCL_BMV [Max]
    real array FDLCL_TV [Max]
    real array FDLCL_AC [Max]
    real array FDLCL_CM [Max]
    real array FDLCL_Smu [Max]
    real array FDLCL_Anim [Max]
    real array FDLCL_AnimW [Max]
    integer FDLCL_CI = 1
endglobals

// Vehicle type registration, takes unit type, max. speed, max. reverse speed, turn rate, acceleration, mass, coefficient of friction, duration of walk and stand animations
function RegisterCar takes integer UnitID, real Speed, real BackSpeed, real TurnSpeed, real Accelerate, real mass, real Smu, real AnimW, real AnimS returns boolean
    if FDLCL_CI > 100 then 
        return false
    else
        set FDLCL_UID[FDLCL_CI] = UnitID
        set FDLCL_MV[FDLCL_CI] = Speed
        set FDLCL_BMV[FDLCL_CI] = BackSpeed
        set FDLCL_TV[FDLCL_CI] = TurnSpeed
        set FDLCL_AC[FDLCL_CI] = Accelerate
        set FDLCL_CM[FDLCL_CI] = mass
        set FDLCL_Smu[FDLCL_CI] = Smu
        set FDLCL_AnimW[FDLCL_CI] = AnimW
        set FDLCL_Anim[FDLCL_CI] = AnimS
        set FDLCL_CI = FDLCL_CI + 1
        return true
    endif
endfunction

function DeleteCarType takes integer i returns boolean
    if FDLCL_UID[i] == 0 then
        return false
    else
        set FDLCL_CI = FDLCL_CI - 1
        set FDLCL_UID[i] = FDLCL_UID[FDLCL_CI]
        set FDLCL_MV[i] = FDLCL_MV[FDLCL_CI]
        set FDLCL_BMV[i] = FDLCL_BMV[FDLCL_CI]
        set FDLCL_TV[i] = FDLCL_TV[FDLCL_CI]
        set FDLCL_AC[i] = FDLCL_AC[FDLCL_CI]
        set FDLCL_CM[i] = FDLCL_CM[FDLCL_CI]
        set FDLCL_Smu[i] = FDLCL_Smu[FDLCL_CI]
        set FDLCL_AnimW[i] = FDLCL_AnimW[FDLCL_CI]
        set FDLCL_Anim[i] = FDLCL_Anim[FDLCL_CI]
        set FDLCL_UID[FDLCL_CI] = 0
        set FDLCL_MV[FDLCL_CI] = 0
        set FDLCL_BMV[FDLCL_CI] = 0
        set FDLCL_TV[FDLCL_CI] = 0
        set FDLCL_AC[FDLCL_CI] = 0
        set FDLCL_CM[FDLCL_CI] = 0
        set FDLCL_Smu[FDLCL_CI] = 0
        set FDLCL_AnimW[FDLCL_CI] = 0
        set FDLCL_Anim[FDLCL_CI] = 0
        return true
    endif
endfunction

// Returns the database array index for the given machine type
function GetCarType takes integer CarId returns integer
local integer i = 0
    loop
        if FDLCL_UID[i] == CarId then
            return i
        endif
    exitwhen i >= FDLCL_CI - 1
    set i = i + 1
    endloop
    return 0
endfunction

// In order not to have many types of vehicles for the same type of unit, use this function
function IsInCarBase takes integer CarId returns boolean
local integer i = 0
    loop
        if FDLCL_UID[i] == CarId then
            return true
        endif
    exitwhen i >= FDLCL_CI - 1
    set i = i + 1
    endloop
    return false
endfunction
//===========================================================================
// Registration of basic types of machines
function InitCarBase takes nothing returns nothing
    call RegisterCar('h000',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00T',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00S',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00U',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00X',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h010',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00Z',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00Y',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00V',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h00W',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h011',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h012',360,160,5,30,1000,0.4,2.325,2.333)
    call RegisterCar('h013',390,160,5,35,2000,0.4,2.325,2.333)
    call RegisterCar('h014',390,200,7,45,2000,0.4,2.325,4.333)
    call RegisterCar('h015',390,200,7,45,2000,0.4,2.325,4.333)
//Normal original = call RegisterCar('h012',320,170,5,25,1000,0.4,2.325,2.333)
endfunction

endlibrary

function InitTrig_FDLCL_CarBase takes nothing returns nothing
endfunction

//TESH.scrollpos=0
//TESH.alwaysfold=0
library FDLCLDestBase initializer InitDestBase
//  Database of destructible objects (height, radius, mass) for FDL CarLib v2.0 and below, use special for decoration. blocker
globals
    // Specialist. blocker, registration of its type goes below
    integer FDLCL_BlokiratorId = 'YTpc'
    private real BlokiratorH = 200 // his high
    private real BlokiratorR = 130 // and radius
    
    // I advise you not to touch
    private constant integer Max = 100
    integer array FDLCL_DID [Max]
    real array FDLCL_DH [Max]
    real array FDLCL_DR [Max]
    integer FDLCL_DI = 1
    real FDLCL_MaxDestrRadius = BlokiratorR
endglobals

// Registering the type of decoration takes the type of destra, its height, radius
function RegisterDest takes integer DestID, real height, real radius returns boolean
    if FDLCL_DI > 100 then 
        return false
    else
        set FDLCL_DID[FDLCL_DI] = DestID
        set FDLCL_DH[FDLCL_DI] = height
        set FDLCL_DR[FDLCL_DI] = radius
        set FDLCL_DI = FDLCL_DI + 1
        if radius > FDLCL_MaxDestrRadius then
            set FDLCL_MaxDestrRadius = radius
        endif
        return true
    endif
endfunction

function DeleteDestType takes integer i returns boolean
    if FDLCL_DID[i] == 0 then
        return false
    else
        set FDLCL_DI = FDLCL_DI - 1
        set FDLCL_DID[i] = FDLCL_DID[FDLCL_DI]
        set FDLCL_DH[i] = FDLCL_DH[FDLCL_DI]
        set FDLCL_DR[i] = FDLCL_DR[FDLCL_DI]
        set FDLCL_DID[FDLCL_DI] = 0
        set FDLCL_DH[FDLCL_DI] = 0
        set FDLCL_DR[FDLCL_DI] = 0
        
        set i = 1
        loop
            if FDLCL_DR[i] > FDLCL_MaxDestrRadius then
                set FDLCL_MaxDestrRadius = FDLCL_DR[i]
            endif
        exitwhen i >= FDLCL_DI - 1
        set i = i + 1
        endloop
        
        return true
    endif
endfunction

//Returns the index of the destra type in the database
function GetDestType takes integer DestId returns integer
local integer i = 0
    loop
        if FDLCL_DID[i] == DestId then
            return i
        endif
    exitwhen i >= FDLCL_DI - 1
    set i = i + 1
    endloop
    return 0
endfunction

// In order to not have more than one assigned to 1 kind of destr in the database, use this function
function IsInDestBase takes integer DestId returns boolean
local integer i = 0
    loop
        if FDLCL_DID[i] == DestId then
            return true
        endif
    exitwhen i >= FDLCL_DI - 1
    set i = i + 1
    endloop
    return false
endfunction
//===========================================================================
// Registration of basic types of destructible objects
function InitDestBase takes nothing returns nothing
    call RegisterDest('LTlt',350,50)
    
    // Registration of a universal blocker
    call RegisterDest(FDLCL_BlokiratorId,BlokiratorH,BlokiratorR)
endfunction

endlibrary

function InitTrig_FDLCL_DestBase takes nothing returns nothing
endfunction

//TESH.scrollpos=8
//TESH.alwaysfold=0
library FDLCarLib initializer InitCarLib uses FDL,FDLCLCarBase,FDLCLDestBase
// Vehicle movement system library, Fisics Dynamil Library, databases of vehicles, destructible objects are required
//=========================================================================================
//=
//=                                System Settings  
//=
//=========================================================================================
globals  
    // System Settings
    private real CustomCarG = 20.5 // Acceleration due to gravity, differs from that in FDL in that it does not apply to friction ORI=14.5
    private real UnitFriction = 0.9 // Downed Unit Friction ORI=0.6
    private real UnitElastic = 0.3 // Elasticity of a knocked down body (at 1 it jumps like a ball)ORI=0.9
    private real VerticalHitUnitSpeed = 100 // Additional impulse up for the downed unitORI=100
    private real DeafultUnitMass = 200 // Unit weight by defaultORI=100
    private real DeafultUnitHeight = 60 // The height of the unit to be crushed (usually rabbits, etc. neutrals) ORI=30
    private real HitUnitCanRunSpeed = 24 // The speed at which a downed unit can move itselfORI=24
    private real HitEffectSpeed = 400 // The speed at which the impact effect appears (normal projection to the impact plane is taken) ORI=400
    private real CarNotReadySmu = 0.3 // Friction of a parked car ORI=0.3
    private real LeaveUnitCanRunS = 1 // The speed at which a passenger who has bounced out of the car can run again ORI=1
    private real FindUnitRadius = 100 // Collision Search Radius ORI=100
    private real HitDestrDamageK = 0.050 // Destram Damage Reduction Factor on Hit ORI=0.025
    private real UnitHitDamageK = 0.030 // The coefficient of damage to the downed unit ORI=0.019
    private real DestrHitResistK = 0.8 // Impact velocity reflection attenuation factor ORI=0.8
    private real DestrHitMinSpeedAnim = 60  // The minimum speed at which the tree plays the animation stand hit ORI=60
    private real MaxAddSmu = 1 //The maximum additional coefficient of friction when moving across the course of the machine ORI=1
    // Camera settings
    private real CAMERA_H = 120 //ORI=120
    private real Distanse = 760 //ORI=1100
//120
//450
//30
    private real AngleMaxH = 11
    private real CamAngle = -20
    
    // Further touching is not recommended.
    private real MainTimerV = 0.025 
    Car array Cars [12]
    Car array AllCars [500]
    integer AllCarsI = 1
  
    Body array PassBodyDestr [100]
    integer PassBodyDestrI = 0 
    
    private Body CarHit 
    Body array CS_Victims [100]
    integer CS_Vi = 0
    
    Body DestHitB
    
    timer Car_move_timer = CreateTimer()
    timer Destroy_UnitHit_timer =CreateTimer()

endglobals

//=========================================================================================
//=
//=                                 Object "car"
//=
//=========================================================================================
struct Car 
    boolean camera // does the car camera work
    boolean IsReady = false  //machine in working order
    boolean up = false // Keys
    boolean down = false
    boolean left = false
    boolean right = false
    Body b // Physical body, FDL library
    unit u2 = null // Passenger
    real MaxV // Max speed
    real BackV // Maximum reverse speed
    real a // Acceleration
    real TurnV // turning speed
    real Smu // Friction
    real AnimW = 1. // Tween Duration
    real Anim = 1. // Rest Animation Duration
    trigger enter = CreateTrigger() // Entry/exit triggers
    trigger leave = CreateTrigger()
    // Destroys the machine, takes a bool - whether to delete the physical body (the unit itself is not deleted)
    method Destroy takes boolean DestrBody returns nothing
    local integer i = 1
        call TriggerClearActions(this.enter)
        call TriggerClearActions(this.leave)
        call DestroyTrigger(this.enter)
        call DestroyTrigger(this.leave)
        set Cars[GetPlayerId(GetOwningPlayer(this.b.u))] = 0
        if DestrBody then
            call this.b.Remove(false)
        endif
        
        loop
            if AllCars[i].b.u == this.b.u then
                set AllCars[i] = AllCars[AllCarsI]
                set AllCars[AllCarsI] = 0
                set AllCarsI = AllCarsI - 1 
            endif
        exitwhen i >= 500
        set i = i + 1
        endloop
        
        call this.destroy()
    endmethod
endstruct

// For machine creation function, see "Utilities" section

//=========================================================================================
//=
//=                                 Utility functions
//=
//=========================================================================================
function CheckplayP1 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(0)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP2 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(1)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP3 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(2)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP4 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(3)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP5 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(4)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP6 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(5)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP7 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(6)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP8 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(7)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP9 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(8)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP10 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(9)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP11 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(10)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP12 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(11)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP13 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(12)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP14 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(13)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP15 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(14)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP16 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(15)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP17 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(16)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP18 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(17)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP19 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(18)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckplayP20 takes nothing returns boolean
    if ( not ( GetPlayerSlotState(Player(19)) == PLAYER_SLOT_STATE_PLAYING ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP1 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(0)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP2 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(1)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP3 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(2)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP4 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(3)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP5 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(4)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP6 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(5)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP7 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(6)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP8 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(7)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP9 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(8)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP10 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(9)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP11 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(10)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP12 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(11)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP13 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(12)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP14 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(13)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP15 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(14)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP16 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(15)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP17 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(16)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP18 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(17)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP19 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(18)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CheckCumP20 takes nothing returns boolean
    if ( not ( GetPlayerController(Player(19)) != MAP_CONTROL_COMPUTER ) ) then
        return false
    endif
    return true
endfunction

function CAMERA_ACTIVATE takes integer i returns boolean
    if ( not ( udg_CAMERA_ACTIVATED[i] == true ) ) then
        return false
    endif
    return true
endfunction


// Finds a machine by unit, finds any created machines, whether their bodies are running or stopped
function FindCar takes unit u returns Car
local integer i = 1
    loop
        if AllCars[i].b.u == u then
            return AllCars[i]
        endif
    exitwhen i >= 500
    set i = i + 1
    endloop
return 0
endfunction


// Camera function
private function Camera takes Body b, boolean camera, integer i returns nothing
    local location loc
    local real HeroZ
    local unit v = b.u
    local real s


//PLAYERXXXXXXXXXXXXX
if ( CheckplayP1() ) then
if ( CheckCumP1() ) then
  if ( CAMERA_ACTIVATE(0)) then 
if i == 0 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
//                call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
//                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckplayP2() ) then
if ( CheckCumP2() ) then
  if ( CAMERA_ACTIVATE(1)) then 
if i == 1 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
//                call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
//                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif

if ( CheckCumP3() ) then
if ( CheckplayP3() ) then
  if ( CAMERA_ACTIVATE(2)) then 
if i == 2 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
//                call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
//                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP4() ) then
if ( CheckplayP4() ) then
  if ( CAMERA_ACTIVATE(3)) then 
if i == 3 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
//                call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
//                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP5() ) then
if ( CheckplayP5() ) then
  if ( CAMERA_ACTIVATE(4)) then 
if i == 4 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
 //               call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
 //               call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP6() ) then
if ( CheckplayP6() ) then
  if ( CAMERA_ACTIVATE(5)) then 
if i == 5 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
 //               call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
  //              call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP7() ) then
if ( CheckplayP7() ) then
  if ( CAMERA_ACTIVATE(6)) then 
if i == 6 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
   //             call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
   //             call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP8() ) then
if ( CheckplayP8() ) then
  if ( CAMERA_ACTIVATE(7)) then 
if i == 7 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
  //              call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
  //              call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP9() ) then
if ( CheckplayP9() ) then
  if ( CAMERA_ACTIVATE(8)) then 
if i == 8 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
   //             call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
   //             call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif

if ( CheckCumP10() ) then
if ( CheckplayP10() ) then
  if ( CAMERA_ACTIVATE(9)) then 
if i == 9 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
   //             call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
   //             call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP11() ) then
if ( CheckplayP11() ) then
  if ( CAMERA_ACTIVATE(10)) then 
if i == 10 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
   //             call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
   //             call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif

if ( CheckCumP12() ) then
if ( CheckplayP12() ) then
  if ( CAMERA_ACTIVATE(11)) then 
if i == 11 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
   //             call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
   //             call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP13() ) then
if ( CheckplayP13() ) then
  if ( CAMERA_ACTIVATE(12)) then 
if i == 12 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
    //            call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
  //              call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP14() ) then
if ( CheckplayP14() ) then
  if ( CAMERA_ACTIVATE(13)) then 
if i == 13 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
   //             call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
    //            call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP15() ) then
if ( CheckplayP15() ) then
  if ( CAMERA_ACTIVATE(14)) then 
if i == 14 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
   //             call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
    //            call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP16() ) then
if ( CheckplayP16() ) then
  if ( CAMERA_ACTIVATE(15)) then 
if i == 15 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
     //           call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
     //           call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP17() ) then
if ( CheckplayP17() ) then
  if ( CAMERA_ACTIVATE(16)) then 
if i == 16 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
     //           call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
     //           call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP18() ) then
if ( CheckplayP18() ) then
  if ( CAMERA_ACTIVATE(17)) then 
if i == 17 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
    //            call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
     //           call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP19() ) then
if ( CheckplayP19() ) then
  if ( CAMERA_ACTIVATE(18)) then 
if i == 18 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
    //            call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
     //           call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
if ( CheckCumP20() ) then
if ( CheckplayP20() ) then
  if ( CAMERA_ACTIVATE(19)) then 
if i == 19 then       
        if ( v != null and camera) then

                set loc =  GetUnitLoc(v)
                set HeroZ = GetZ(GetLocationX(loc),GetLocationY(loc)) + GetUnitFlyHeight(v)
    //            call MoveLocation(loc,PolarX(GetUnitX(v),-400, GetUnitFacing(v)),PolarY(GetUnitY(v),-400, GetUnitFacing(v)))
 
        call SetCameraTargetControllerNoZForPlayer( Player(i), v, 0.00, 0.00, false )
        
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_TARGET_DISTANCE, Distanse, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ZOFFSET, CAMERA_H + b.z, 0.25 )
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ROTATION, GetUnitFacing(v), 0.25 )
            if -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH < -CamAngle then
                call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -25 + GetUnitFlyHeight(v)/AngleMaxH + (HeroZ-GetZ(GetCameraEyePositionX(),GetCameraEyePositionY()))/AngleMaxH, 0.25 )

            else
    //            call SetCameraFieldForPlayer( Player(i), CAMERA_FIELD_ANGLE_OF_ATTACK, -CamAngle , 0.25 ) 
          
            endif

            call RemoveLocation(loc)
            set loc = null
        endif
endif
endif
endif
endif
endfunction

// Landing Trigger Actions
private function Enter_A takes nothing returns nothing
local Car C
if IsInCarBase(GetUnitTypeId(GetTransportUnit())) then
    set C = FindCar(GetTransportUnit())
    call C.b.AddFriction(C.Smu)
    set Cars[GetPlayerId(GetOwningPlayer(GetTransportUnit()))] = C
    set C.IsReady = true
    set C.camera = true
    set C.u2 = GetLoadedUnit()
//call DisplayTextToForce( GetPlayersAll(), "JE LOAD UN CAR NOW1" )
endif
endfunction

// Removing the physical body of a disembarking passenger
private function DestroyBodyT_A takes nothing returns nothing
local integer i = 1
loop
    if PassBodyDestr[i]!= 0 and (SquareRoot((PassBodyDestr[i].x -PassBodyDestr[i].kx)*(PassBodyDestr[i].x -PassBodyDestr[i].kx) + (PassBodyDestr[i].y -PassBodyDestr[i].ky)*(PassBodyDestr[i].y -PassBodyDestr[i].ky) + (PassBodyDestr[i].z -PassBodyDestr[i].kz)*(PassBodyDestr[i].z -PassBodyDestr[i].kz) ) < LeaveUnitCanRunS or GetUnitState(PassBodyDestr[i].u,UNIT_STATE_LIFE) <= 0) then
        call PassBodyDestr[i].Remove(false)
        if not IsTerrainPathable(PassBodyDestr[i].x,PassBodyDestr[i].y,PATHING_TYPE_FLOATABILITY) then
            call KillUnit(PassBodyDestr[i].u)
        endif
        set PassBodyDestr[i] = PassBodyDestr[PassBodyDestrI]
        set PassBodyDestr[PassBodyDestrI] = 0
        set PassBodyDestrI = PassBodyDestrI - 1
        call DestroyTimer(GetExpiredTimer())
    endif
exitwhen i >= PassBodyDestrI
set i = i + 1
endloop
endfunction

// Deploy trigger actions
private function Leave_A takes nothing returns nothing
local Body b
local unit u
local timer DestroyBodyT
if (GetIssuedOrderId() == String2OrderIdBJ("unloadall") or GetIssuedOrderId() == String2OrderIdBJ("unload")) and GetOrderedUnit() == Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.u then
    //call DisplayTextToForce( GetPlayersAll(), "JE UNNNNNNNNNNLOAD UN CAR NOW" )
    call DisableTrigger(GetTriggeringTrigger())
    call Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.AddFriction(CarNotReadySmu)
    set Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].IsReady = false
    set Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].camera = false
    call Camera(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b,false,GetPlayerId(GetOwningPlayer(GetOrderedUnit())))
    call ResetToGameCameraForPlayer(GetOwningPlayer(GetOrderedUnit()), 0)
    call SetUnitAnimation(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.u,"stand")
    call SetUnitTimeScale(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.u,1)
    set u = Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].u2
    if not IsBodyExt(u) then
//call DisplayTextToForce( GetPlayersAll(), "BODY EXIST?????" )
        set b = CreateBody(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.x - 300*CosBJ(GetUnitFacing(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.u)) ,Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.y - 300*SinBJ(GetUnitFacing(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.u)),Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.z, u, 100)
        call b.SetUpr(40)
        call b.AddFriction(0.9)
        call b.AddG()
        call b.Start()
        call b.SetSpeed(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.v.vx,Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.v.vy,Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.v.vz)
        set DestroyBodyT = CreateTimer()
        set PassBodyDestrI = PassBodyDestrI + 1
        set PassBodyDestr[PassBodyDestrI] = b
        call TimerStart(DestroyBodyT,1,true, function DestroyBodyT_A)
    else
//call DisplayTextToForce( GetPlayersAll(), "BODY DOESNT EXIST!" )
        call b.SetSpeed(Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.v.vx,Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.v.vy,Cars[GetPlayerId(GetOwningPlayer(GetOrderedUnit()))].b.v.vz)
    endif
    
    call EnableTrigger(GetTriggeringTrigger())
endif
endfunction

// Function to create a car, but first you need to register the type of car
function CreateCar takes unit car returns Car
    local Car C = Car.create()
    local integer i = GetCarType(GetUnitTypeId(car))
    set C.b = CreateBody(GetUnitX(car),GetUnitY(car),0,car,FDLCL_CM[i])
    call C.b.SetUpr(70)
    call C.b.AddCustomG(CustomCarG)
    set C.MaxV = FDLCL_MV[i]
    set C.BackV = FDLCL_BMV[i]
    set C.TurnV = FDLCL_TV[i]
    set C.a = FDLCL_AC[i]
    set C.Smu = FDLCL_Smu[i]
    set C.b.elastic = 1
    call C.b.AddFriction(C.Smu)
    call TriggerAddAction(C.enter,function Enter_A)
    call TriggerAddAction(C.leave,function Leave_A)
    call TriggerRegisterPlayerUnitEvent( C.enter, GetOwningPlayer(car), EVENT_PLAYER_UNIT_LOADED, null )
    call TriggerRegisterPlayerUnitEvent( C.leave, GetOwningPlayer(car), EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER, null)
    call TriggerRegisterPlayerUnitEvent( C.leave, GetOwningPlayer(car), EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER, null)
    set AllCars[AllCarsI] = C
    set AllCarsI = AllCarsI + 1 
    if not Cars[GetPlayerId(GetOwningPlayer(car))].IsReady then
        set Cars[GetPlayerId(GetOwningPlayer(car))] = C
    endif
    call AddUnitAnimationProperties( car, "walk", true )
    call C.b.Start()
    call EnableTrigger(C.b.OrderDropTr)
    return C
endfunction

// Removing the physical body of a downed unit
private function DestroyBodyHit_A takes nothing returns nothing
local integer i = 1
loop
    if (CS_Victims[i]!= 0) and (Module(CS_Victims[i].v) < HitUnitCanRunSpeed or  (GetUnitState(CS_Victims[i].u,UNIT_STATE_LIFE) <= 0)  or (CS_Victims[i].u == null))  then
        call CS_Victims[i].Remove(false)
        if IsTerrainPathable(CS_Victims[i].x,CS_Victims[i].y,PATHING_TYPE_WALKABILITY) then
            call KillUnit(CS_Victims[i].u)
        endif
        set CS_Victims[i] = CS_Victims[CS_Vi]
        set CS_Victims[CS_Vi] = 0
        set CS_Vi = CS_Vi - 1
        return
    endif
exitwhen i >= CS_Vi
set i = i + 1
endloop
endfunction

// Shooting down a unit
private function HitUnit_CS takes nothing returns nothing
local Body b
local real cos
 if CarHit.u != GetEnumUnit() then
  if IsUnitType(GetEnumUnit(), UNIT_TYPE_STRUCTURE) == false then
    //JE DOIS METTRE TOUS LES OBJET INTERATIF EN STRUCTURE POUR EVITER UNE COLLISION
    if GetUnitState( GetEnumUnit(), UNIT_STATE_LIFE) -  Module(CarHit.v)*UnitHitDamageK > -4 then
        if not IsBodyExt(GetEnumUnit()) then
            //call UnitDamageTarget( CarHit.u, GetEnumUnit(), Module(CarHit.v)*UnitHitDamageK, true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS )
            if IsUnitType(GetEnumUnit(), UNIT_TYPE_STRUCTURE) == false then
                set b = CreateBody(GetUnitX(GetEnumUnit()),GetUnitY(GetEnumUnit()),GetUnitFlyHeight(GetEnumUnit()), GetEnumUnit(), DeafultUnitMass)
                set CS_Vi = CS_Vi + 1
                set CS_Victims[CS_Vi] = b
                call b.SetUpr(20)
                call b.AddFriction(UnitFriction)
                call b.SetElastic(UnitElastic)
                call b.AddG()
                call b.Start()
                if CarHit.z <= b.z then
                    set b.v.vz = VerticalHitUnitSpeed
                endif
            else
                set cos = AngleBLoc(CarHit.x + CarHit.v.vx, CarHit.y + CarHit.v.vy, CarHit.x, CarHit.y)
                call ParamColl(CarHit, CarHit.x+CarHit.v.vx + CosBJ(cos + 10),CarHit.y+CarHit.v.vy + SinBJ(cos + 10),0,CarHit.x+CarHit.v.vx + CosBJ(cos - 10),CarHit.y+CarHit.v.vy + SinBJ(cos - 10),0,CarHit.x+CarHit.v.vx + CosBJ(cos),CarHit.y+CarHit.v.vy + SinBJ(cos),1,0.8)
                //call UnitDamageTarget( CarHit.u, GetEnumUnit(), 2*Module(CarHit.v)*UnitHitDamageK, true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS )           
            endif
        else
            call UnitDamageTarget( CarHit.u, GetEnumUnit(), Module(CarHit.v)*UnitHitDamageK, true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS )
  endif
 endif
    // Unit squashed into mush
    elseif CarHit.z < DeafultUnitHeight then
        //call SetUnitExploded(GetEnumUnit(), true)
        //call KillUnit(GetEnumUnit())
    endif
 endif
endfunction

// Blow on decor
private function DestrHit takes nothing returns nothing               
local integer j
local destructable d = GetEnumDestructable()
local real ang = AngleBLoc(DestHitB.x, DestHitB.y, GetDestructableX(d), GetDestructableY(d))
local real r = DistanceBLocs(DestHitB.x, DestHitB.y, GetDestructableX(d), GetDestructableY(d))
    set j = GetDestType(GetDestructableTypeId(d))
    if GetDestructableLife(d) > 0 and DestHitB.z <= FDLCL_DH[j] then
        if Module(DestHitB.v) >= DestrHitMinSpeedAnim then
            call SetDestructableAnimation(d,"stand hit")
        endif
        if GetDestructableTypeId(d) != FDLCL_BlokiratorId then
            call SetDestructableLife(d,GetDestructableLife(d) - Module(DestHitB.v)*HitDestrDamageK)
        endif
        if GetDestructableLife(d) > 0 then
            call ParamColl(DestHitB, GetDestructableX(d) + Cos(ang/57.2948 + 0.17)*FDLCL_DR[j],GetDestructableY(d) + Sin(ang/57.2948 + 0.17)*FDLCL_DR[j],0,GetDestructableX(d) + Cos(ang/57.2948 - 0.17)*FDLCL_DR[j],GetDestructableY(d) + Sin(ang/57.2948 - 0.17)*FDLCL_DR[j],0,GetDestructableX(d) + Cos(ang*57.2948)*FDLCL_DR[j],GetDestructableY(d) + Sin(ang*57.2948)*FDLCL_DR[j],FDLCL_DH[j],DestrHitResistK)
       else
            call DestHitB.v.Multiply(DestHitB.elastic)
        endif
        if r <= FDLCL_DR[j] then
            set DestHitB.x = GetDestructableX(d) - Cos(ang/57.2948)*(FDLCL_DR[j]+1)
            set DestHitB.y = GetDestructableY(d) - Sin(ang/57.2948)*(FDLCL_DR[j]+1)
        endif
    endif

endfunction

//=========================================================================================
//=
//=                                   Engine
//=
//=========================================================================================

function BoostCheckNumber takes integer i returns boolean
    if ( not ( udg_BoostActivateNumber[i] == 0 ) ) then
        return false
    endif
    return true
endfunction

function BoostCheckNumber1 takes integer i returns boolean
    if ( not ( udg_BoostActivateNumber[i] == 1 ) ) then
        return false
    endif
    return true
endfunction

function BoostCheckNumber2 takes integer i returns boolean
    if ( not ( udg_BoostActivateNumber[i] == 2 ) ) then
        return false
    endif
    return true
endfunction

function BoostCheckNumber3 takes integer i returns boolean
    if ( not ( udg_BoostActivateNumber[i] == 3 ) ) then
        return false
    endif
    return true
endfunction

function BoostCheckNumber4 takes integer i returns boolean
    if ( not ( udg_BoostActivateNumber[i] == 4 ) ) then
        return false
    endif
    return true
endfunction

function SPEED_LIMIT takes integer i returns boolean
    if ( not ( udg_ImOnTheRoad[i] == true ) ) then
        return false
    endif
    return true
endfunction

function ImFrozen takes integer i returns boolean
    if ( not ( udg_ImFROZENv2[i] == true ) ) then
        return false
    endif
    return true
endfunction

function ImTraped takes integer i returns boolean
    if ( not ( udg_ImTraped[i] == true ) ) then
        return false
    endif
    return true
endfunction

function ImSpining takes integer i returns boolean
    if ( not ( udg_ImSpining[i] == true ) ) then
        return false
    endif
    return true
endfunction

function Car_move_func takes nothing returns nothing
local integer i = 0
local integer j = 0
local Car C = 0
local real ang 
local real spd
local real v
local real x
local real y
local Body db
local rect r
local group gr
local real smuV


loop
    set C = Cars[i]
    if C == 0 then
        return
    endif
    // car died
    if GetUnitState(C.b.u,UNIT_STATE_LIFE) <= 0 then
        call C.b.AddFriction(0.5)
        set C.IsReady = false
        set C.camera = false
        call Camera(C.b,false,i)
        call ResetToGameCameraForPlayer(GetOwningPlayer(C.b.u), 0)
        call SetUnitAnimation(C.b.u,"stand")
        call SetUnitTimeScale(C.b.u,1)
        call C.Destroy(false)
        set Cars[i] = 0
        return
    endif
    // main part
    if Cars[i].IsReady then
        set C = Cars[i]
        set ang = GetUnitFacing(C.b.u)
        call Camera(C.b,C.camera,i)
        set v  = Module(C.b.v)
        set smuV = (C.b.mu*(C.b.m*Gravitational_acceleration - C.b.F.vz))/C.b.m
        set spd = C.b.v.vx*Cos(ang/57.2958) + C.b.v.vy*Sin(ang/57.2958)

if ( SPEED_LIMIT(i)) then
//call DisplayTextToForce( GetPlayersAll(), "IM IN WATER?????" )
        if C.up and v < 5*C.MaxV*0.65 and C.b.z <= 1 then
            if C.b.Motionless then 
                call SetMotionless(C.b,false)
            endif


   if ( UnitHasBuffBJ(udg_Carts[i], 'Bspe' ) ) then   //Speed Bonus
    else
    set udg_BoostActivateNumber[i] = 0
   endif

   if ( BoostCheckNumber1(i)) then
   call C.b.AddSpeed((C.a+ smuV * 35)*Cos(ang/57.2958),(C.a+smuV* 35)*Sin(ang/57.2958),0)
    else
    if ( BoostCheckNumber2(i)) then
    call C.b.AddSpeed((C.a+ smuV * 60)*Cos(ang/57.2958),(C.a+smuV* 60)*Sin(ang/57.2958),0)
     else
     if ( BoostCheckNumber3(i)) then
     call C.b.AddSpeed((C.a+ smuV * 88)*Cos(ang/57.2958),(C.a+smuV* 88)*Sin(ang/57.2958),0)
      else
      if ( BoostCheckNumber4(i)) then
      call C.b.AddSpeed((C.a+ smuV * 115)*Cos(ang/57.2958),(C.a+smuV* 115)*Sin(ang/57.2958),0)
       else
       call C.b.AddSpeed((C.a+ smuV)*Cos(ang/57.2958),(C.a+smuV)*Sin(ang/57.2958),0)
       endif
     endif
    endif
   endif

            set C.b.NonStop = true
        endif
  else
  if ( ImFrozen(i)) then
//  call DisplayTextToForce( GetPlayersAll(), "FROZEN?????" )
        if C.up and v < 5*C.MaxV*0.45 and C.b.z <= 1 then
            if C.b.Motionless then 
                call SetMotionless(C.b,false)
            endif


   if ( UnitHasBuffBJ(udg_Carts[i], 'Bspe' ) ) then   //Speed Bonus
    else
    set udg_BoostActivateNumber[i] = 0
   endif

   if ( BoostCheckNumber1(i)) then
   call C.b.AddSpeed((C.a+ smuV * 35)*Cos(ang/57.2958),(C.a+smuV* 35)*Sin(ang/57.2958),0)
    else
    if ( BoostCheckNumber2(i)) then
    call C.b.AddSpeed((C.a+ smuV * 60)*Cos(ang/57.2958),(C.a+smuV* 60)*Sin(ang/57.2958),0)
     else
     if ( BoostCheckNumber3(i)) then
     call C.b.AddSpeed((C.a+ smuV * 88)*Cos(ang/57.2958),(C.a+smuV* 88)*Sin(ang/57.2958),0)
      else
      if ( BoostCheckNumber4(i)) then
      call C.b.AddSpeed((C.a+ smuV * 115)*Cos(ang/57.2958),(C.a+smuV* 115)*Sin(ang/57.2958),0)
       else
       call C.b.AddSpeed((C.a+ smuV)*Cos(ang/57.2958),(C.a+smuV)*Sin(ang/57.2958),0)
       endif
     endif
    endif
   endif

            set C.b.NonStop = true
        endif
        else
        if ( ImTraped(i)) then
//        call DisplayTextToForce( GetPlayersAll(), "IM TRAPPED?????" )
        if C.up and v < 5*C.MaxV*0.10 and C.b.z <= 1 then
            if C.b.Motionless then 
                call SetMotionless(C.b,false)
            endif


        if ( UnitHasBuffBJ(udg_Carts[i], 'Bspe' ) ) then   //Speed Bonus
    	else
    	set udg_BoostActivateNumber[i] = 0
   	endif

   	if ( BoostCheckNumber1(i)) then
   	call C.b.AddSpeed((C.a+ smuV * 35)*Cos(ang/57.2958),(C.a+smuV* 35)*Sin(ang/57.2958),0)
    	else
   	 if ( BoostCheckNumber2(i)) then
    	call C.b.AddSpeed((C.a+ smuV * 60)*Cos(ang/57.2958),(C.a+smuV* 60)*Sin(ang/57.2958),0)
     	else
     	if ( BoostCheckNumber3(i)) then
     	call C.b.AddSpeed((C.a+ smuV * 88)*Cos(ang/57.2958),(C.a+smuV* 88)*Sin(ang/57.2958),0)
      	else
      	if ( BoostCheckNumber4(i)) then
      	call C.b.AddSpeed((C.a+ smuV * 115)*Cos(ang/57.2958),(C.a+smuV* 115)*Sin(ang/57.2958),0)
       	else
       	call C.b.AddSpeed((C.a+ smuV)*Cos(ang/57.2958),(C.a+smuV)*Sin(ang/57.2958),0)
       	endif
     	endif
    	endif
   	endif

            set C.b.NonStop = true
        endif
          	else
        if ( ImSpining(i)) then
//        call DisplayTextToForce( GetPlayersAll(), "IM Spining?????" )
        if C.up and v < 5*C.MaxV*0.10 and C.b.z <= 1 then
            if C.b.Motionless then 
                call SetMotionless(C.b,false)
            endif


        if ( UnitHasBuffBJ(udg_Carts[i], 'Bspe' ) ) then   //Speed Bonus
    	else
    	set udg_BoostActivateNumber[i] = 0
   	endif

   	if ( BoostCheckNumber1(i)) then
   	call C.b.AddSpeed((C.a+ smuV * 35)*Cos(ang/57.2958),(C.a+smuV* 35)*Sin(ang/57.2958),0)
    	else
   	 if ( BoostCheckNumber2(i)) then
    	call C.b.AddSpeed((C.a+ smuV * 60)*Cos(ang/57.2958),(C.a+smuV* 60)*Sin(ang/57.2958),0)
     	else
     	if ( BoostCheckNumber3(i)) then
     	call C.b.AddSpeed((C.a+ smuV * 88)*Cos(ang/57.2958),(C.a+smuV* 88)*Sin(ang/57.2958),0)
      	else
      	if ( BoostCheckNumber4(i)) then
      	call C.b.AddSpeed((C.a+ smuV * 115)*Cos(ang/57.2958),(C.a+smuV* 115)*Sin(ang/57.2958),0)
       	else
       	call C.b.AddSpeed((C.a+ smuV)*Cos(ang/57.2958),(C.a+smuV)*Sin(ang/57.2958),0)
       	endif
     	endif
    	endif
   	endif

            set C.b.NonStop = true
        endif
          	else
//	  	call DisplayTextToForce( GetPlayersAll(), "IM FREEEE?????" )
          	if C.up and v < 5*C.MaxV and C.b.z <= 1 then
            	if C.b.Motionless then 
                	call SetMotionless(C.b,false)
            	endif


	             if ( UnitHasBuffBJ(udg_Carts[i], 'Bspe' ) ) then   //Speed Bonus
             	 else
                	set udg_BoostActivateNumber[i] = 0
           	 endif

	           if ( BoostCheckNumber1(i)) then
  	          call C.b.AddSpeed((C.a+ smuV * 35)*Cos(ang/57.2958),(C.a+smuV* 35)*Sin(ang/57.2958),0)
                	else
                	if ( BoostCheckNumber2(i)) then
                  	call C.b.AddSpeed((C.a+ smuV * 60)*Cos(ang/57.2958),(C.a+smuV* 60)*Sin(ang/57.2958),0)
                	else
                 	if ( BoostCheckNumber3(i)) then
                	call C.b.AddSpeed((C.a+ smuV * 88)*Cos(ang/57.2958),(C.a+smuV* 88)*Sin(ang/57.2958),0)
                   	else
                  	if ( BoostCheckNumber4(i)) then
               	call C.b.AddSpeed((C.a+ smuV * 115)*Cos(ang/57.2958),(C.a+smuV* 115)*Sin(ang/57.2958),0)
                	 else
               	 call C.b.AddSpeed((C.a+ smuV)*Cos(ang/57.2958),(C.a+smuV)*Sin(ang/57.2958),0)
           	endif
     	      endif
    	    endif
   	   endif

	            set C.b.NonStop = true
      	  endif
endif
endif
endif
endif
        // reverse speed
        if C.down and v < 5*C.BackV and C.b.z <= 1 then 
            if C.b.Motionless then 
                call SetMotionless(C.b,false)
            endif
            call C.b.AddSpeed(-(C.a+smuV)*Cos(ang/57.2958),-(C.a+smuV)*Sin(ang/57.2958),0)
            set C.b.NonStop = true
        endif
        
        // Turn
        if C.right and (v > C.a+ smuV) and C.b.z <= 1 then
            set ang = ang - C.TurnV
            call SetUnitFacing(C.b.u,ang)
        endif
        if C.left and (v > C.a+ smuV) and C.b.z <= 1 then
            set ang = ang + C.TurnV
            call SetUnitFacing(C.b.u,ang)
        endif
        
        // Friction from machine orientation
        if (v > C.a+ smuV) and not C.down then
            set C.b.mu= C.Smu + Abs(2*MaxAddSmu/3.141*Acos(spd/Module(C.b.v)))
        else
            set C.b.mu= C.Smu
        endif
        // Animation, depends on speed
        if v < 23 then
            call SetUnitAnimation(C.b.u,"stand")
            set C.Anim = C.AnimW
        else
            if C.Anim >= C.AnimW then
                set C.Anim = 0
                if ( GetUnitTypeId(C.b.u) == 'h000' ) then
                call SetUnitAnimationByIndex(C.b.u, 0) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00S' ) then
                call SetUnitAnimationByIndex(C.b.u, 4) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00V' ) then
                call SetUnitAnimationByIndex(C.b.u, 0) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00W' ) then
                call SetUnitAnimationByIndex(C.b.u, 4) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00U' ) then
                call SetUnitAnimationByIndex(C.b.u, 3) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00X' ) then
                call SetUnitAnimationByIndex(C.b.u, 0) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00Y' ) then
                call SetUnitAnimationByIndex(C.b.u, 0) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00T' ) then
                call SetUnitAnimationByIndex(C.b.u, 0) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h00Z' ) then
                call SetUnitAnimationByIndex(C.b.u, 0) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h010' ) then
                call SetUnitAnimationByIndex(C.b.u, 3) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h013' ) then
                call SetUnitAnimationByIndex(C.b.u, 1) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h014' ) then
                call SetUnitAnimationByIndex(C.b.u, 4) 
                endif
                if ( GetUnitTypeId(C.b.u) == 'h015' ) then
                call SetUnitAnimationByIndex(C.b.u, 1) 
                endif

            else
                set C.Anim = C.Anim + MainTimerV
            endif
            if spd > 0 then
                call SetUnitTimeScale(C.b.u, SquareRoot(spd)/30)
            else
                call SetUnitTimeScale(C.b.u, -SquareRoot(-spd)/30)
            endif
        endif
        
        // Hitting the ground, the Hit parameter is set to false
        if C.b.Hit then
            set C.b.Hit = false
        //    call SetUnitState(C.b.u,UNIT_STATE_LIFE, GetUnitState(C.b.u,UNIT_STATE_LIFE) - v/60)
            if GetUnitState(C.b.u,UNIT_STATE_LIFE) <= 0 then
                set C.IsReady = false
                set C.camera = false
                call SetUnitAnimation(C.b.u,"stand")
                call SetUnitTimeScale(C.b.u,1)
                call ResetToGameCameraForPlayer(GetOwningPlayer(C.b.u), 0)
                call C.Destroy(false)
            endif
            if v > HitEffectSpeed then
                if  IsTerrainPathable(C.b.x,C.b.y,PATHING_TYPE_FLOATABILITY) then
                    call DestroyEffect(AddSpecialEffect( "Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl" , C.b.x, C.b.y))
                    //call AddSpecialEffectTargetUnitBJ( "origin", udg_Carts[0], "Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl")
                endif
            endif
            if  not IsTerrainPathable(C.b.x,C.b.y,PATHING_TYPE_FLOATABILITY) then
                call DestroyEffect(AddSpecialEffect( "Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl" , C.b.x, C.b.y))
            endif
        endif
        
        // Collision with units and decor, decorations need to be registered in the database, or furnish special. blocker
        set x = C.b.x + C.b.v.vx/v*C.b.r
        set y = C.b.y + C.b.v.vy/v*C.b.r
                // decor
                set r = Rect(x-FDLCL_MaxDestrRadius,y-FDLCL_MaxDestrRadius,x+FDLCL_MaxDestrRadius,y+FDLCL_MaxDestrRadius)
                set DestHitB = C.b
                call EnumDestructablesInRect(r,null, function DestrHit)
                call RemoveRect(r)
                // units
                set r = Rect(x-FindUnitRadius,y-FindUnitRadius,x+FindUnitRadius,y+FindUnitRadius)
                set gr = CreateGroup()
                set CarHit = C.b
                call GroupEnumUnitsInRect(gr, r, null)
                call ForGroup( gr , function HitUnit_CS)
                call DestroyGroup(gr)
                call RemoveRect(r)
                set r  = null
                set gr = null
    endif
exitwhen i >= 23
set i = i + 1
endloop
endfunction

// Keystroke logging
function Can_Command takes nothing returns nothing
    local eventid ev = GetTriggerEventId()
    local integer i = GetPlayerId(GetTriggerPlayer()) 
    if ev == EVENT_PLAYER_ARROW_UP_DOWN  then
            if not Cars[i].up then
                set Cars[i].up = true
            endif
        elseif ev == EVENT_PLAYER_ARROW_UP_UP then
            if Cars[i].up then
                set Cars[i].up = false
            endif
        endif
    
   if ev == EVENT_PLAYER_ARROW_DOWN_DOWN  then
            if not Cars[i].down then
                set Cars[i].down = true
            endif
    elseif ev == EVENT_PLAYER_ARROW_DOWN_UP then
            if Cars[i].down then
                set Cars[i].down = false
            endif
    endif
    
    if ev == EVENT_PLAYER_ARROW_LEFT_DOWN  then
            if not Cars[i].left then
                set Cars[i].left = true
            endif
    elseif ev == EVENT_PLAYER_ARROW_LEFT_UP then
            if Cars[i].left then
                set Cars[i].left = false
            endif
    endif
    
    if ev == EVENT_PLAYER_ARROW_RIGHT_DOWN  then
            if not Cars[i].right then
                set Cars[i].right = true
            endif
    elseif ev == EVENT_PLAYER_ARROW_RIGHT_UP then
            if Cars[i].right then
                set Cars[i].right = false
            endif
    endif
    set ev = null
    set i = 0
endfunction

// Initializing the Keystroke Logging Trigger
function InitTrig_Car_Commands takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer i = 0
    loop
        exitwhen i == 23
        //push
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_LEFT_DOWN)
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_RIGHT_DOWN)
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_DOWN_DOWN)
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_UP_DOWN)

//call TriggerRegisterPlayerEvent(CreateTrigger(), Player(1), EVENT_PLAYER_ARROW_UP_DOWN)
        //pull
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_LEFT_UP)
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_RIGHT_UP)
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_DOWN_UP)
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_ARROW_UP_UP)
        set i = i +1
    endloop
    call TriggerAddAction(t, function Can_Command)

//call TriggerAddAction(CreateTrigger(), function Can_Command)
    set t = null
    set i = 0
endfunction

//===========================================================================
// System initialization
function InitCarLib takes nothing returns nothing
call TimerStart(Car_move_timer,0.025,true,function Car_move_func)
call TimerStart(Destroy_UnitHit_timer,0.5,true,function DestroyBodyHit_A)
call InitTrig_Car_Commands()
endfunction

endlibrary

function InitTrig_FDL_CarLib takes nothing returns nothing
endfunction

//TESH.scrollpos=0
//TESH.alwaysfold=0
library FDL initializer StartEngine 
//v 0.6 for FDL CarLib 2.1 © Гуща А.В. 2009, created with the support XGM.ru
//=========================================================================================
//=
//=                                System Settings 
//=
//=========================================================================================
globals
    real Gi = 6.673// *10^(-11)  Gravitational constant, increased by more than a billion times ORI= 6.673// *10^(-11)
    private real Height_max = 4000 // Map original=4000
    real Gravitational_acceleration = 9.81 // Acceleration of gravity original=9.81
    private real FDLTimer = 0.025 // Time between updates
    private real FDLMaxSpeed = 9000 //Max speed
    private real CliffDist = 50 // Terrain rise detection distance ORIGINAL = 50
    private real FactorOfResist = 0.8 // Decreased speed when hitting the map border =0.8
    private real EarthResist = 0.2 // Velocity damping when hitting the ground (i.e. the elasticity of the ground) ORIGINAL = 0.6
    private real HitCondSpeed = 300 // Normal (from the word normal) speed of a strong blow ORIGINAL = 300
    private real CollPlosk = 1 // The radius of calculation of the inclination of the plane when hitting the ground or cliff ORI = 1
    private constant integer MaxStekSize = 100 // Maximum number of bodies in a stack and forces between them ORI = 100
    private real AddVFrFactor = 100 // Calibration coefficient of viscous friction ORI = 100
    private integer CollBodyMax = 6 // Maximum number of simultaneous body collisions ORI = 6
    private real StopCollSpeed = 10 // The speed of calming bodies in a collision ORI = 10
    private real OrderDistanceStop = 50 //Unit stop distance from order point ORI = 50
    private real UnitCanRunMinHeight = 200 // The height at which the unit can move independently ORI= 200
endglobals

//=========================================================================================
//=
//=                                Utility functions
//=
//=========================================================================================
scope UFDL

// Vector length
   function Module takes Vector r returns real 
        return SquareRoot(r.vx*r.vx+r.vy*r.vy+r.vz*r.vz)
    endfunction

//  The cosine of the angle between the vectors  
    function CosV takes Vector a, Vector b returns real
        return (a.vx*b.vx + a.vy*b.vy + a.vz*b.vz)/(Module(a)*Module(b))
    endfunction

//  2d function: returns the angle between points in radians
    function AngleBLoc takes real xa, real ya, real xb, real yb returns real
        return Atan2(yb - ya, xb - xa)
    endfunction
    
//  2d function: returns the angle between points in degr+ees  
    function AngleBLocGr takes real xa, real ya, real xb, real yb returns real
        return 57.29577951 * Atan2(yb - ya, xb - xa)
    endfunction

// Angle between vectors in radians
    function Angle takes Vector a, Vector b returns real
        return Acos((a.vx*b.vx + a.vy*b.vy + a.vz*b.vz)/(Module(a)*Module(b)))
    endfunction
    
// The angle between the vectors in degrees
    function AngleGr takes Vector a, Vector b returns real
        return Acos((a.vx*b.vx + a.vy*b.vy + a.vz*b.vz)/(Module(a)*Module(b)))*57.29577951
    endfunction

// 2d distance between points
    function DistanceBLocs takes real ax, real ay, real bx, real by returns real
        return SquareRoot((bx - ax) * (bx - ax) + (by - ay) * (by - ay))
    endfunction
    
// Distance between two points in space    
    function DistanceBL3D takes real ax, real ay, real az, real bx, real by, real bz returns real
        return SquareRoot((bx - ax) * (bx - ax) + (by - ay) * (by - ay) + (bz - az) * (bz - az))
    endfunction

// Dot product of vector by vector   
    function Scalar takes Vector a, Vector b returns real
        return a.vx*b.vx + a.vy*b.vy + a.vz*b.vz
    endfunction
    
// Returns the length of the projection of a vector onto a vector
    function Proj takes Vector a, Vector b returns real
        return (a.vx*b.vx + a.vy*b.vy + a.vz*b.vz)/SquareRoot(b.vx*b.vx + b.vy*b.vy + b.vz*b.vz)
    endfunction
    
// Functions for calculating polar coordinates to Cartesian
    function PolarX takes real x, real dist, real angle returns real
        return x + dist * Cos(angle * 57.29577951)
    endfunction

    function PolarY takes real y, real dist, real angle returns real
        return y + dist * Sin(angle * 57.29577951)
    endfunction
    
// Enables changing the unit's flight altitude
    function UnitFlyMod takes unit u returns nothing
        call UnitAddAbility(u,'Amrf')
        call UnitRemoveAbility(u,'Amrf')  
    endfunction
    
// Specifies the height of a terrain point
    function GetZ takes real X, real Y returns real
        globals
            location GZL = Location(0,0) 
        endglobals
        
        call MoveLocation(GZL,X,Y)
        return GetLocationZ(GZL)
    endfunction
    
// Determines the height of the body above sea level
// Copy-paste only together with the previous function
    function GetZB takes Body b returns real
        call MoveLocation(GZL,b.x,b.y)
        return GetLocationZ(GZL)+b.z
    endfunction
    
// Returns the absolute value of a number
    function Abs takes real r returns real 
        if r > 0 then 
            return r
        else
            return -r
        endif
    endfunction
    
//  Specifies the sign of a number
    function Shgn takes real r returns real
        if r > 0. then
            return 1.
        elseif r < 0 then
            return -1.
        else
            return 0.
        endif
    endfunction

// Integer part of division
    function DIV takes integer a, integer b returns integer
    local integer i = 0
        loop   
            exitwhen a < b
            set i = i + 1
            set a = a - b
        endloop
        return i
    endfunction
    
// Finds body by unit
    function FindBody takes unit u returns Body
    local integer i = 0
        loop
            if Stek.S[i].u == u then
                return Stek.S[i]
            endif
        exitwhen i >= Stek.i
        set i = i + 1
        endloop
        
        set i = 0
        loop
            if Stek.BMotionless[i].u == u then
                return Stek.BMotionless[i]
            endif
        exitwhen i >= Stek.k
        set i = i + 1
        endloop

        return 0
    endfunction
    
    //ЕIf you need to pull the body from the stack of "calm bodies". use this function
    function SetMotionless takes Body b, boolean bb returns nothing
    local integer i = 1
        if bb then
            set b.Motionless = true
        else
            loop
                exitwhen i > Stek.k
                if (Stek.BMotionless[i] == b)  then
                    set Stek.i= Stek.i +1
                    set Stek.S[Stek.i] = b
                    set Stek.BMotionless[i] = Stek.BMotionless[Stek.k]
                    set Stek.BMotionless[Stek.k] =0
                    set Stek.k = Stek.k - 1
                endif
                set i = i + 1
            endloop
        endif
    endfunction
    
//Sends the body to a point (x,y,z) with a speed Speed
    function SendBodyTo takes Body b,real x, real y, real z, real Speed returns nothing
        local real kz = z - GetZ(b.x,b.y)
        local real r = SquareRoot( (x-b.x)*(x-b.x) + (y-b.y)*(y-b.y) + (kz-b.z)*(kz-b.z))
            set b.v.vx = (x-b.x)/r*Speed
            set b.v.vy = (y-b.y)/r*Speed
            set b.v.vz = (kz-b.z)/r*Speed
            set b.Motionless = false
    endfunction

//Increases the velocity vector of the body by scale times
    function IncreaseBodySpeed takes Body b, real scale returns nothing
        call b.v.Multiply(scale)
        set b.Motionless = false
    endfunction

//Increases the body's velocity vector by Spd times 
    function IncreaseBodySpeedV takes Body b, real Spd returns nothing
    local real r = Module(b.v)
        call b.v.Multiply(1 + Spd/r)
        set b.Motionless = false
    endfunction
    
//Checks for the existence of a body with base u, a body that is not running or stopped will not be found
    function IsBodyExt takes unit u returns boolean
    local integer i = 1
        loop
            if Stek.S[i].u == u then
                return true
            endif
        exitwhen i >= Stek.i
        set i = i + 1
        endloop
        set i = 1
        loop
            if Stek.BMotionless[i].u == u then
                return true
            endif
        exitwhen i >= Stek.k
        set i = i + 1
        endloop
        return false
    endfunction
    
    
endscope

//=========================================================================================
//=
//=                                Vector object
//=
//=========================================================================================

struct Vector
    real vx = 0
    real vy = 0
    real vz = 0
    // Sets a vector by two points
    method GetFrom2Loc takes real x1, real y1, real z1, real x2, real y2,real z2 returns nothing
        set this.vx = x2-x1 
        set this.vy = y2-y1
        set this.vz = z2-z1
    endmethod
    // Умножает вектор на число
    method Multiply takes real c returns nothing
        set this.vx = this.vx*c
        set this.vy = this.vy*c
        set this.vz = this.vz*c
    endmethod
    // Приплюсовывает к вектору вектор
    method Summ takes Vector s returns nothing
        set this.vx = this.vx + s.vx
        set this.vy = this.vy + s.vy
        set this.vz = this.vz + s.vz           
    endmethod
    // Нормирование вектора, то есть он становится единичным, k - новая длина
    method Norm takes real k returns nothing
        set this.vx = k*this.vx/Module(this)
        set this.vy = k*this.vy/Module(this)
        set this.vz = k*this.vz/Module(this)       
    endmethod
    // Возращает вектор-проекцию вектора на вектор, создает вектор
    static method CreateProj takes Vector a, Vector b returns Vector
        local Vector v = Vector.create()
        
        call v.Multiply((a.vx*b.vx + a.vy*b.vy + a.vz*b.vz)/(b.vx*b.vx + b.vy*b.vy + b.vz*b.vz))
        return v
    endmethod
    // Сумма векторов, создает вектор   
    static method CreateSumm takes Vector a, Vector b returns Vector
    local Vector S = Vector.create()
        set S.vx = a.vx + b.vx
        set S.vy = a.vy + b.vy
        set S.vz = a.vz + b.vz   
    return S
    endmethod
    // Умножение вектора на число,создает вектор
    static method CreateMultiply takes Vector a, real const returns Vector 
    local Vector c = Vector.create()
        set c.vx = a.vx*const
        set c.vy = a.vy*const
        set c.vz = a.vz*const
        return c
    endmethod
endstruct

//=========================================================================================
//=
//=                                  Object "Strength"
//=
//=========================================================================================

struct Force
    Vector v = 0
    Body a = 0
    Body b = 0
    real cv = 0 // Угловая скорость
    real at = 0 // Тангесальное ускорение
    // The function of calculating the force of attraction between bodies, I do not advise changing
    method Attraction takes nothing returns nothing 
        local Vector r = Vector.create()
        local Vector F 
            call r.GetFrom2Loc(this.a.x,this.a.y,this.a.z,this.b.x,this.b.y,this.b.z)
            set F = Vector.CreateMultiply(r,(Gi*this.a.m*this.b.m)/((Module(r))*(Module(r))*(Module(r))))
            set this.v = F
            call this.a.F.Summ(F)
            call F.Multiply(-1)
            call this.b.F.Summ(F)
            call r.destroy()
            call F.destroy()
            
            set this.a.Motionless = false
            set this.b.Motionless = false
    endmethod
    // Рассчет нормальной силы и тангенсального ускорения
    method Circle takes nothing returns nothing
        local Vector an = Vector.create()
        local real x = this.v.vx - this.a.x
        local real y = this.v.vy - this.a.y 
            set an.vx = x*this.cv*this.cv/(x*x + y*y)*this.a.m
            set an.vy = y*this.cv*this.cv/(x*x + y*y)*this.a.m
            call this.a.F.Summ(an)
            if this.at > 0 then
                set this.cv = this.cv + this.at/(1/FDLTimer)
            endif
            call an.destroy()
            set this.a.Motionless = false
    endmethod
    // Удаление без утечек
    method Remove takes nothing returns nothing 
        local integer j = 0
        local integer k = 0
            loop
                if Stek.F[j] == this then
                    loop
                        set Stek.F[j+k] = Stek.F[j+k+1]
                    exitwhen k >= Stek.j - j - 1
                    set k = k + 1
                    endloop
                    set k = 0
                    set Stek.F[Stek.i] = 0
                    set Stek.j = Stek.j - 1
                endif
            exitwhen j >= Stek.j
            set j = j + 1
            endloop
        call this.v.destroy()
        call this.destroy()
    endmethod
endstruct

//=========================================================================================
//=
//=                             Object "Mechanical body"
//=
//=========================================================================================
scope BodyFDL
    // Service globals for delayed elastic radius setting
    globals 
        timer SetRadiusFDLT = CreateTimer()
        Body array SetRadiusFDLB [100]
        real array SetRadiusFDLR [100]
        integer SetRadiusFDLI = 0 
    endglobals
    
    // The very function of delayed assignment of the radius to bodies, it is necessary that when creating a body in a body, the system does not crash
    function SetRadiusFDL_Actions takes nothing returns nothing
    local integer i = 0
    local integer j = 0
    local boolean b = false
    if SetRadiusFDLI > 0 then
        loop
            loop
                if SquareRoot(Stek.S[j].x - SetRadiusFDLB[i].x)*(Stek.S[j].x - SetRadiusFDLB[i].x) + (Stek.S[j].y - SetRadiusFDLB[i].y)*(Stek.S[j].y - SetRadiusFDLB[i].y) + (Stek.S[j].z - SetRadiusFDLB[i].z)*(Stek.S[j].z - SetRadiusFDLB[i].z) < SetRadiusFDLR[i] + Stek.S[j] then
                    set b = true
                endif
            exitwhen j >= Stek.i - 1
            set j = j + 1
            endloop
            
            if not b then
                set SetRadiusFDLB[i].r = SetRadiusFDLR[i]
                set SetRadiusFDLB[i] = SetRadiusFDLB[SetRadiusFDLI-1]
                set SetRadiusFDLB[SetRadiusFDLI-1] = 0
                set SetRadiusFDLI = SetRadiusFDLI - 1
            endif
            
        exitwhen i >= SetRadiusFDLI - 1
        set  i = i + 1
        endloop
    endif
    endfunction

// Order reset function
// If the unit tries to get into the transport-body, then the body does not try in vain to move from its place
    private function OrderDropA takes nothing returns nothing
    local Body b  
        if GetIssuedOrderId() == OrderId("smart") or GetIssuedOrderId() == OrderId("attack") or GetIssuedOrderId() == OrderId("move") or GetIssuedOrderId() == OrderId("patrol") or ( (GetIssuedOrderId() == OrderId("load")) and (SquareRoot( (GetWidgetX(GetOrderedUnit()) - GetWidgetX(GetOrderTargetUnit()) )*(GetWidgetX(GetOrderedUnit()) - GetWidgetX(GetOrderTargetUnit()) ) + (GetWidgetY(GetOrderedUnit()) - GetWidgetY(GetOrderTargetUnit()) )*(GetWidgetY(GetOrderedUnit()) - GetWidgetY(GetOrderTargetUnit())) ) > 500  ) ) then
            if GetIssuedOrderId() == OrderId("load") then
                call IssuePointOrder( GetOrderTargetUnit() , "move", GetUnitX(GetOrderedUnit()), GetUnitY(GetOrderedUnit()) )
            endif
            call PauseUnit(GetOrderedUnit(), true)
            call IssueImmediateOrder(GetOrderedUnit(), "stop")
            call PauseUnit(GetOrderedUnit(), false)
        endif
    endfunction
    
    // Analogue of the previous function for body units
    private function OrderDropCanRunA takes nothing returns nothing
    local Body b = FindBody(GetOrderedUnit())
        if (b != 0) then
            if GetIssuedOrderId() == OrderId("smart") or GetIssuedOrderId() == OrderId("attack") or GetIssuedOrderId() == OrderId("move") or GetIssuedOrderId() == OrderId("patrol") or (GetIssuedOrderId() == OrderId("load"))  then
                if  (b.Motionless) then
                    set b.Motionless = false
                endif
                set b.moving = true
                set b.OrderX = GetOrderPointX()
                set b.OrderY = GetOrderPointY()
                set b.OrderTarget = GetOrderTargetUnit()
            elseif (GetIssuedOrderId() == OrderId("stop")) or (GetIssuedOrderId() == 851973) then
                set b.moving = false
                set b.OrderX = b.x
                set b.OrderY = b.y
                set b.OrderTarget = null
            endif 
        endif
    endfunction
              
struct Body
    // Body coordinates, independent of unit coordinates
    real x = 0
    real y = 0
    real z = 0
    // Previous body coordinates
    real kx = 0
    real ky = 0
    real kz = 0
    
    real m = 0 // Weight
    real g = 0 // Acceleration of free fall, projection along the axis z
    real mu = 0 // Dry friction coefficient
    real k = 0 // Viscous friction coefficient
    real r = 0 // Body radius needed for collisions
    real elastic = GetRandomReal(0.7,1) // Body elasticity coefficient
    unit u = null // Unit representing body position
    trigger OrderDropTr  // Order Reset Trigger
    boolean Hit = false // There was a strong impact on the surface, switch to false yourself
    boolean Fixation = false // Body fastening
    boolean CanRun = false // Disabling independence of body coordinates from unit coordinates
    boolean moving = false // Unit-body executes a move order
    boolean NonStop = false // If "true", dry friction will not move the body and will set this flag to false
    real OrderX // Order coordinates for body-unit
    real OrderY  
    widget OrderTarget = null
    real scale = 1 // Replaces function GetUnitCurrentScale, if you change the size of the unit model, then change this property
    Vector v = 0 // Velocity vector
    Vector a = 0 // Acceleration vector
    Vector F = 0 // Force vector, usually zero as it resets to zero in the loop, refer to acceleration*mass for force value
    
    boolean Motionless = false // If set to true, then the body is popped from the stack and placed in the array of calm bodies
    // If you need to pull the body out of the "calm" group, then put false
    
    // Sets the speed of the body
    method SetSpeed takes real vx, real vy, real vz returns nothing 
        set this.v.vx = vx
        set this.v.vy = vy
        set this.v.vz = vz
        set this.Motionless = false
    endmethod
    // Adds speed to the body
    method AddSpeed takes real vx, real vy, real vz returns nothing 
        set this.v.vx = this.v.vx + vx
        set this.v.vy = this.v.vy + vy
        set this.v.vz = this.v.vz + vz
        set this.Motionless = false
    endmethod
    // Sets the acceleration of the body, rarely used in practice
    method SetAcceleration takes real ax, real ay, real az returns nothing 
        set this.a.vx = ax
        set this.a.vy = ay
        set this.a.vz = az
        set this.Motionless = false
    endmethod
    // Adds acceleration to the body
    method AddAcceleration takes real ax, real ay, real az returns nothing 
        set this.a.vx = this.a.vx + ax
        set this.a.vy = this.a.vx + ay
        set this.a.vz = this.a.vx + az
        set this.Motionless = false
    endmethod
    // End of body initialization and pushing it onto the stack 
    // until then the body is not detected by the function IsBodyExt
    method Start takes nothing returns nothing 
        if FindBody(this.u) == 0 then
            set Stek.i= Stek.i +1
            set Stek.S[Stek.i] = this
            call EnableTrigger(this.OrderDropTr)
            set this.Motionless = false
        endif
    endmethod
    // Creates a Newtonian force of attraction between bodies, creates a "force" object
    method AddAttractionForce takes Body B returns Force 
        local Force F = Force.create()
        set F.a = this
        set F.b = B
        set Stek.j= Stek.j +1
        set Stek.F[Stek.j] = F
        return F
    endmethod
    // Sets the initial conditions for rotation in space, the z parameter for roll of the rotation plane
    method StartCircleSimple takes Body b, real z returns nothing
        local real a = Gi*b.m/((b.x-this.x)*(b.x-this.x) + (b.y-this.y)*(b.y-this.y))
        local real V = 5*SquareRoot(a*SquareRoot((b.x-this.x)*(b.x-this.x) + (b.y-this.y)*(b.y-this.y)))
        call this.SetSpeed(V*(b.x-this.x)/SquareRoot((b.x-this.x)*(b.x-this.x) + (b.y-this.y)*(b.y-this.y)),-V*(b.y-this.y)/SquareRoot((b.x-this.x)*(b.x-this.x) + (b.y-this.y)*(b.y-this.y)),z)
        call this.AddAttractionForce(b)
        set b.Fixation = true
        set this.Motionless = false
    endmethod
    // Creates a force that rotates the body in a circle, with tangential acceleration, the radius of the circle also changes
    // Takes the coordinates of the center of the circle and the initial speed
    method StartCircle takes real x, real y, real V, real at returns Force
        local Force F = Force.create()
        set F.v = Vector.create()
        call this.SetSpeed(5*V*(x-this.x)/SquareRoot((x-this.x)*(x-this.x) + (y-this.y)*(y-this.y)),-5*V*(y-this.y)/SquareRoot((x-this.x)*(x-this.x) + (y-this.y)*(y-this.y)),0)
        set F.a = this
        set F.cv = V
        set F.at = at
        set F.v.vx = x
        set F.v.vy = y
        set Stek.j= Stek.j +1
        set Stek.F[Stek.j] = F
        return F
    endmethod
    //Turns on attraction to the earth
    method AddG takes nothing returns nothing 
        set this.g = -Gravitational_acceleration
        set this.Motionless = false
    endmethod
    // Adds a non-standard gravity to the ground (norm 9.81)
    method AddCustomG takes real g returns nothing 
        set this.g = -g
        set this.Motionless = false
    endmethod
    // Adds viscous friction and normalizes for update rate
    method AddVFriction takes real k returns nothing 
        set this.k = k*(0.04/FDLTimer)
    endmethod
    // Adds dry friction and normalizes for update rate
    method AddFriction takes real mu returns nothing 
        set this.mu = mu*(0.04/FDLTimer)
    endmethod
    // Sets the elasticity of the body (0.1)
    method SetElastic takes real e returns nothing 
        set this.elastic = e
    endmethod
    // Adds a collision radius to the body and prevents the system from crashing when
    // "gluing" bodies
    method SetUpr takes real r returns nothing 
    local integer i = 0
    local boolean b = true
    loop
        if SquareRoot( (Stek.S[i].x - this.x)*(Stek.S[i].x - this.x) + (Stek.S[i].y - this.y)*(Stek.S[i].y - this.y) + (Stek.S[i].z - this.z)*(Stek.S[i].z - this.z) ) <= r + Stek.S[i].r then
            set SetRadiusFDLB[SetRadiusFDLI] = this
            set SetRadiusFDLR[SetRadiusFDLI] = r
            set SetRadiusFDLI = SetRadiusFDLI + 1
            set b = false
        endif
    exitwhen i >= Stek.i - 1
    set i = i + 1
    endloop
    if b then
        set this.r = r
    endif
    set this.Motionless = false
    endmethod
    // Toggles the dependence of body coordinates on unit coordinates
    // Simply put, allows the unit to move at will.
    method SCanRun takes boolean b returns nothing
        set this.CanRun = b
        call TriggerClearActions(this.OrderDropTr)
        if b then
            call TriggerAddAction(this.OrderDropTr,function OrderDropCanRunA)
            call SetUnitMoveSpeed(this.u,1)
        else
            call TriggerAddAction(this.OrderDropTr,function OrderDropA)
            call SetUnitMoveSpeed(this.u,GetUnitDefaultMoveSpeed(this.u))
        endif
        set this.Motionless = false
    endmethod
    // Pops the body from the stack, while maintaining the "principle of prescription" of this stack
    // Simply put, the bodies are sorted by the time they were added.
    method Stop takes nothing returns nothing 
    local integer j = 0
    local integer k = 0
        loop
            if Stek.S[j] == this then
                loop
                    set Stek.S[j+k] = Stek.S[j+k+1]
                exitwhen k >= Stek.i - j - 1
                set k = k + 1
                endloop
                set Stek.S[Stek.i] = 0
                set Stek.i = Stek.i - 1
                return
            endif
        exitwhen j >= Stek.i
        set j = j + 1
        endloop
        
        set j = 1
        loop
            if Stek.BMotionless[j] == this then
                set Stek.BMotionless[j] = Stek.BMotionless[Stek.k]
                set Stek.BMotionless[Stek.k] =0
                set Stek.k = Stek.k - 1
            endif
        exitwhen j >= Stek.k
        set j = j + 1
        endloop
        call DisableTrigger(this.OrderDropTr)
    endmethod
    // Quick popping of the body from the stack, sorting of the array is broken
    method StopQuick takes nothing returns nothing 
    local integer j = 0
        loop
            if Stek.S[j] == this then
                set Stek.S[j] = Stek.S[Stek.i]
                set Stek.S[Stek.i] = 0
                set Stek.i = Stek.i - 1
                return
            endif
        exitwhen j >= Stek.i
        set j = j + 1
        endloop
        
        set j = 1
        loop
            if Stek.BMotionless[j] == this then
                set Stek.BMotionless[j] = Stek.BMotionless[Stek.k]
                set Stek.BMotionless[Stek.k] =0
                set Stek.k = Stek.k - 1
            endif
        exitwhen j >= Stek.k
        set j = j + 1
        endloop

        call DisableTrigger(this.OrderDropTr)
    endmethod
    // Correct removal of the body without creating leaks
    method Remove takes boolean DeleteUnit returns nothing 
        call this.Stop()
        if DeleteUnit then
            call RemoveUnit(this.u)
            set this.u = null
        endif
        call DisableTrigger(this.OrderDropTr)
        call TriggerClearActions(this.OrderDropTr)
        call DestroyTrigger(this.OrderDropTr)
        call this.v.destroy()
        call this.a.destroy()
        call this.destroy()
    endmethod
endstruct


// The function searches for the unit on the stack for the body and destroys it
// Will not work if the body is not yet running or stopped
    function RemoveBody takes unit u returns nothing
    local integer i = 0
        loop
            if Stek.S[i].u == u then
                call Stek.S[i].Remove(false)
                set i = Stek.i
            endif
        exitwhen i >= Stek.i
        set i = i + 1
        endloop
    endfunction
// Creation of a body based on a unit, coordinates and mass are specified, an object "mechanical body" is created
    globals
        Body GUI_LastCreatedBody
    endglobals
    
    function CreateBody takes real x, real y, real z, unit u, real m returns Body 
    local Body B = Body.create()
        set B.x = x
        set B.y = y
        set B.z = z
        set B.u = u
        set B.v = Vector.create()
        set B.a = Vector.create()
        set B.F = Vector.create()
        set B.m = m
        
        set GUI_LastCreatedBody = B
        call UnitFlyMod(u)
        set B.OrderDropTr = CreateTrigger()
        call TriggerRegisterUnitEvent( B.OrderDropTr,u, EVENT_UNIT_ISSUED_TARGET_ORDER )
        call TriggerRegisterUnitEvent( B.OrderDropTr,u, EVENT_UNIT_ISSUED_POINT_ORDER )
        call TriggerRegisterUnitEvent( B.OrderDropTr,u, EVENT_UNIT_ISSUED_ORDER )

        call TriggerAddAction( B.OrderDropTr, function OrderDropA)
        call DisableTrigger(B.OrderDropTr)
        
        return B
    endfunction
// Creation of a body based on a unit, coordinates are set according to the coordinates of the unit, mass is taken
    function CreateBodySimple takes unit u, real m returns Body
    local Body B = Body.create()
        set B.x = GetWidgetX(u)
        set B.y = GetWidgetY(u)
        set B.z = GetUnitFlyHeight(u)
        set B.u = u
        set B.v = Vector.create()
        set B.a = Vector.create()
        set B.F = Vector.create()
        set B.m = m
        
        set GUI_LastCreatedBody = B
        call UnitFlyMod(u)
        set B.OrderDropTr = CreateTrigger()
        call TriggerRegisterUnitEvent( B.OrderDropTr,u, EVENT_UNIT_ISSUED_TARGET_ORDER )
        call TriggerRegisterUnitEvent( B.OrderDropTr,u, EVENT_UNIT_ISSUED_POINT_ORDER )
        call TriggerRegisterUnitEvent( B.OrderDropTr,u, EVENT_UNIT_ISSUED_ORDER )

        call TriggerAddAction( B.OrderDropTr, function OrderDropA)
        call DisableTrigger(B.OrderDropTr)
        
        return B
    endfunction
    
endscope

//=========================================================================================
//=
//=                             Collision calculation functions
//=
//=========================================================================================

scope CollFuncFDL

    
// Prevents bodies from sticking together in a collision
    function Calibration takes Body a, Body b returns nothing
    local real rs = SquareRoot( (b.x - a.x)*(b.x - a.x) + (b.y - a.y)*(b.y - a.y) + (b.z - a.z)*(b.z - a.z))
        if Module(a.v) > Module(b.v)  then
            set a.x = b.x - (b.x - a.x)/rs*(a.r+b.r)*1.05
            set a.y = b.y - (b.y - a.y)/rs*(a.r+b.r)*1.05
            set a.z = b.z - (b.z - a.z)/rs*(a.r+b.r)*1.05
        else
            set b.x = a.x + (b.x - a.x)/rs*(a.r+b.r)*1.05
            set b.y = a.y + (b.y - a.y)/rs*(a.r+b.r)*1.05
            set b.z = a.z + (b.z - a.z)/rs*(a.r+b.r)*1.05
        endif
    endfunction
    
// Calculates speeds after collision

     function AfterColl takes Body a, Body b returns nothing
    local Vector V1t 
    local Vector V2t 
    local Vector V1n 
    local Vector V2n 
    local Vector r = Vector.create()
    local Vector g
    local real cosa 
    local real cosb 
    local real u
        call r.GetFrom2Loc(a.x,a.y,a.z,b.x,b.y,b.z)
        set cosa = CosV(a.v,r)
        set cosb = CosV(b.v,r)
        call r.Multiply(1/Module(r))
        
            set g = Vector.CreateMultiply(r,-Module(a.v)*cosa)
            set V1t = Vector.CreateSumm(a.v,g)
            call g.destroy()
            
            set g = Vector.CreateMultiply(r,-Module(b.v)*cosb)
            set V2t = Vector.CreateSumm(b.v,g)
            call g.destroy()
            
            set u = (a.elastic*b.elastic)*(2*b.m*Module(b.v)*cosb + Module(a.v)*cosa*(a.m - b.m))/(a.m+b.m)
            set V1n = Vector.CreateMultiply(r,u)
            
            set u = (a.elastic*b.elastic)*(2*a.m*Module(a.v)*cosa - Module(b.v)*cosb*(a.m - b.m))/(a.m+b.m)
            set V2n = Vector.CreateMultiply(r,u)
            
            call a.v.destroy()
            set a.v = Vector.CreateSumm(V1n,V1t)
            call V1n.destroy()
            call V1t.destroy()
            //
            call b.v.destroy()
            set b.v = Vector.CreateSumm(V2n,V2t)
            call V2n.destroy()
            call V2t.destroy()
            
            call r.destroy()
            if Module(a.v) < StopCollSpeed then
                set a.v.vx = 0
                set a.v.vy = 0
                set a.v.vz = 0
                set a.Motionless = true
            else
                set a.Motionless = false
            endif
            if Module(a.v) < StopCollSpeed then
                set a.v.vx = 0
                set a.v.vy = 0
                set a.v.vz = 0
                set a.Motionless = true
            else
                set b.Motionless = false
            endif
endfunction


// Parametric collision, takes 3 points defining impact plane and speed recovery factor
    function ParamColl takes Body a, real x1, real y1, real z1, real x2, real y2, real z2, real x3, real y3, real z3,real Rest returns nothing 
        local real nx = ((y2-y1)*(z3-z1) - (y3-y1)*(z2-z1))/SquareRoot(((y2-y1)*(z3-z1) - (y3-y1)*(z2-z1))*((y2-y1)*(z3-z1) - (y3-y1)*(z2-z1)) + ((x3-x1)*(z2-z1) - (x2-x1)*(z3-z1))*((x3-x1)*(z2-z1) - (x2-x1)*(z3-z1)) +((x2-x1)*(y3-y1) - (x3-x1)*(y2-y1))*((x2-x1)*(y3-y1) - (x3-x1)*(y2-y1)))
        local real ny = ((x3-x1)*(z2-z1) - (x2-x1)*(z3-z1))/SquareRoot(((y2-y1)*(z3-z1) - (y3-y1)*(z2-z1))*((y2-y1)*(z3-z1) - (y3-y1)*(z2-z1)) + ((x3-x1)*(z2-z1) - (x2-x1)*(z3-z1))*((x3-x1)*(z2-z1) - (x2-x1)*(z3-z1)) +((x2-x1)*(y3-y1) - (x3-x1)*(y2-y1))*((x2-x1)*(y3-y1) - (x3-x1)*(y2-y1)))
        local real nz = ((x2-x1)*(y3-y1) - (x3-x1)*(y2-y1))/SquareRoot(((y2-y1)*(z3-z1) - (y3-y1)*(z2-z1))*((y2-y1)*(z3-z1) - (y3-y1)*(z2-z1)) + ((x3-x1)*(z2-z1) - (x2-x1)*(z3-z1))*((x3-x1)*(z2-z1) - (x2-x1)*(z3-z1)) +((x2-x1)*(y3-y1) - (x3-x1)*(y2-y1))*((x2-x1)*(y3-y1) - (x3-x1)*(y2-y1)))
        local real vn = nx*a.v.vx + ny*a.v.vy + nz*a.v.vz
            set a.v.vx = a.v.vx - 2*nx*vn*Rest
            set a.v.vy = a.v.vy - 2*ny*vn*Rest
            set a.v.vz = a.v.vz - 2*nz*vn*Rest
            if Abs(vn) > HitCondSpeed then
                set a.Hit = true
            endif
            set a.Motionless = false
    endfunction

// Calculates the impact on the ground and does not allow you to simply climb the cliffs
    function HitGround takes Body a returns nothing 
    local real z0 = GetZ(a.x,a.y)
    local real z2 = GetZ(a.x+CollPlosk,a.y)
    local real z1 = GetZ(a.x,a.y+CollPlosk)
    local real nx = (z0-z2)/SquareRoot((z0-z2)*(z0-z2) + (z0-z1)*(z0-z1) + CollPlosk*CollPlosk)
    local real ny = (z0-z1)/SquareRoot((z0-z2)*(z0-z2) + (z0-z1)*(z0-z1) + CollPlosk*CollPlosk)
    local real nz = CollPlosk/SquareRoot((z0-z2)*(z0-z2) + (z0-z1)*(z0-z1) + CollPlosk*CollPlosk)
    local real vn = nx*a.v.vx + ny*a.v.vy + nz*a.v.vz
    local real cos = -CollPlosk/((z0-z2)*(z0-z2) + (z0-z1)*(z0-z1) + CollPlosk*CollPlosk)
        if  GetTerrainCliffLevel(a.x,a.y) - GetTerrainCliffLevel(a.x + CliffDist*a.v.vx/(Module(a.v)+0.001) ,a.y + CliffDist*a.v.vy/(Module(a.v)+0.001)) >= 0 then
                set a.v.vx = a.v.vx - 2*nx*vn*EarthResist
                set a.v.vy = a.v.vy - 2*ny*vn*EarthResist
                set a.v.vz = a.v.vz - 2*nz*vn*EarthResist
                set a.F.vx = a.F.vx + a.m*Gravitational_acceleration*nx*cos
                set a.F.vy = a.F.vy + a.m*Gravitational_acceleration*ny*cos
                set a.F.vz = a.F.vz + a.m*Gravitational_acceleration*nz*cos
            else
                set cos = AngleBLoc(a.x + a.v.vx, a.y + a.v.vy, a.x, a.y)
                call ParamColl(a, a.x+a.v.vx + Cos(cos + 0.175),a.y+a.v.vy + Sin(cos + 0.175),0,a.x+a.v.vx + Cos(cos - 0.175),a.y+a.v.vy + Sin(cos - 0.175),0,a.x+a.v.vx + Cos(cos),a.y+a.v.vy + Sin(cos),1,0.8)
            endif
        if vn < -HitCondSpeed then
            set a.Hit = true
        endif
        set a.Motionless = false
    endfunction

    struct CrackedBody
        Body a
        Body b
        Body c
    endstruct
    
    // Splits the body into 2 parts, takes the body, the ratio of the size of the 1st piece to the original size, velocity vectors
    // returns a structure with references to shard bodies
    function Crack2b takes Body b, real massk, Vector v1, Vector v2, boolean scale returns CrackedBody
    local real ang = Asin(b.v.vy/(Module(b.v)+0.001)) + 3.14159/2
    local real x = b.x + Cos(ang)*b.r*massk
    local real y = b.y + Sin(ang)*b.r*massk
    local Body cc    
    local CrackedBody cb = CrackedBody.create()
        if (b.r != 0) and (massk < 1) and (massk > 0) then 
            set cc = CreateBody(x,y, b.z, CreateUnit(GetOwningPlayer(b.u),GetUnitTypeId(b.u),x,y, GetRandomReal(0,360)) , b.m*massk)
                call EnableTrigger(cc.OrderDropTr)
            set cc.r = b.r*massk
            set cc.k = b.k
            set cc.mu = b.mu
            set cc.g = b.g
            set cc.elastic = b.elastic
            call cc.SCanRun( b.CanRun )
            set cb.a = cc
            call cc.v.destroy()
            set cc.v = v1
            if scale then
                call SetUnitScale(cc.u,massk*b.scale,massk*b.scale,massk*b.scale)
                set cc.scale = massk*b.scale
            endif
            call cc.Start()
            set x = b.x - Cos(ang)*b.r*(1-massk)
            set y = b.y - Sin(ang)*b.r*(1-massk)
            set cc = CreateBody(x,y, b.z, CreateUnit(GetOwningPlayer(b.u),GetUnitTypeId(b.u),x,y, GetRandomReal(0,360)) , b.m*(1-massk))
                call EnableTrigger(cc.OrderDropTr)
            set cc.r = b.r*(1-massk)
            set cc.k = b.k
            set cc.mu = b.mu
            set cc.g = b.g
            set cc.elastic = b.elastic
            call cc.SCanRun( b.CanRun )
            set cb.b = cc
            call cc.v.destroy()
            set cc.v = v2
            if scale then
                call SetUnitScale(cc.u,(1-massk)*b.scale,(1-massk)*b.scale,(1-massk)*b.scale)
                set cc.scale =(1-massk)*b.scale
            endif
            call cc.Start()
           
            if SquareRoot( ((cb.a.x + cb.a.v.vx) - (cb.b.x+cb.b.v.vx))*((cb.a.x + cb.a.v.vx) - (cb.b.x+cb.b.v.vx)) + ((cb.a.y + cb.a.v.vy) - (cb.b.y+cb.b.v.vy))*((cb.a.y + cb.a.v.vy) - (cb.b.y+cb.b.v.vy)) + ((cb.a.z + cb.a.v.vz) - (cb.b.z+cb.b.v.vz)*((cb.a.z + cb.a.v.vz) - (cb.b.z+cb.b.v.vz)) )) < cb.a.r + cb.b.r then
                call Calibration(cb.a,cb.b)
                call AfterColl(cb.a,cb.b)
            endif
            call b.Remove(true)
            return cb
        elseif b.r == 0 then
            debug call BJDebugMsg("|c00BB0000FDL warning:  tried to crack a body without radius |r")
            call cb.destroy()
            return 0
        else
            debug call BJDebugMsg("|c00BB0000FDL warning:  tried to crack with invalid massk argument |r")
            call cb.destroy()
            return 0
        endif
    endfunction

endscope

//=========================================================================================
//=
//=                                       Engine
//=
//=========================================================================================

scope EngineFDL
    
    // Main stack
    private struct TStek
        Body array S [MaxStekSize]
        Force array F [MaxStekSize]
        Body array BMotionless [1000]
        integer i = 0
        integer j = 0
        integer k = 0
    endstruct

globals
    private Body Collb
endglobals

private function Collusion takes nothing returns nothing
local Body b = FindBody(GetEnumUnit())
local integer i = 1
    if b == Collb or b == 0 or b.r == 0 then
            return
    endif
    if  SquareRoot( (Collb.x-b.x)*(Collb.x-b.x) + (Collb.y-b.y)*(Collb.y-b.y) + (Collb.z-b.z)*(Collb.z-b.z)) < b.r + Collb.r then
        if b.Motionless then 
                    set b.Motionless = false
        endif
            call Calibration(Collb,b)
            call AfterColl(Collb,b)
    endif
endfunction

function Engine_Action takes nothing returns nothing
local integer i = 0
local integer j = 0
local integer k = 1
local Body a
local Body b
local group gr
local real z = 0
local real ang
local Vector V = 0
local Vector r = 0
local boolean moving = false
// We calculate the values ​​of forces
   if Stek.j > 0  then
      loop
       if  (Stek.F[k].cv == 0) and (Stek.F[k].a.m > 0) and (Stek.F[k].b.m > 0) then
        call Stek.F[k].Attraction()
       elseif Stek.F[k].cv != 0 then
        call Stek.F[k].Circle()
       endif 
       exitwhen k>=Stek.j
       set k = k + 1
       endloop
   endif
// Loop on the main stack of bodies
    if Stek.i > 0 then  
        // Main Loop
        set j = 1
        loop 
        if not Stek.S[j].Motionless then
        set b = Stek.S[j]
            
        // Counting Collisions
        if b.r > 0 then
            set gr = CreateGroup()
            call GroupEnumUnitsInRangeCounted(gr,b.x,b.y, b.r + Module(b.v)+1, null, CollBodyMax)
            set Collb = b
            call ForGroup( gr, function Collusion)
            call DestroyGroup(gr)
            set gr = null
        endif
        // The body has reached the floor, in fact when the unit is on the ground, z belongs to [-1.5,0]            
                    if (b.z <= 0)then 
                        call HitGround(b)
                        if b.moving then
                            call SetUnitX(b.u,b.x)
                            call SetUnitY(b.u,b.y)
                        endif
                        set b.z = 0 
                        // Dry friction  
                        if (b.mu > 0) and (b.m > 0) then 
                            if SquareRoot(b.F.vx*b.F.vx + b.F.vy*b.F.vy) > b.mu*(b.m*Gravitational_acceleration - b.F.vz) then
                                if Abs(b.F.vx) > 0 then
                                    set b.F.vx = b.F.vx - b.F.vx*b.mu*(b.m*Gravitational_acceleration - b.F.vz)/Module(b.F)
                                endif
                                if Abs(b.F.vy) > 0 then
                                    set b.F.vy = b.F.vy - b.F.vy*b.mu*(b.m*Gravitational_acceleration - b.F.vz)/Module(b.F)  
                                endif  
                            elseif not b.NonStop and SquareRoot(b.v.vx*b.v.vx + b.v.vy*b.v.vy) < Abs(b.mu*(b.m*Gravitational_acceleration - b.F.vz))/b.m then
                                    set b.v.vx = 0
                                    set b.v.vy = 0
                                    if not b.moving then
                                        set b.Motionless = true
                                    endif
                            else
                                set b.NonStop = false
                                    if Abs(b.v.vx) > 0 then
                                        set b.v.vx = b.v.vx - b.v.vx*b.mu*(b.m*Gravitational_acceleration - b.F.vz)/Module(b.v)/b.m
                                    endif    
                                    if Abs(b.v.vy) > 0 then
                                        set b.v.vy = b.v.vy - b.v.vy*b.mu*(b.m*Gravitational_acceleration - b.F.vz)/Module(b.v)/b.m
                                    endif
                            endif
                        endif
                    endif
                // If the unit is moving
                if b.CanRun and b.moving then
                    if ((SquareRoot( (b.OrderX-b.x)*(b.OrderX-b.x) + (b.OrderY-b.y)*(b.OrderY-b.y) ) >= OrderDistanceStop)  and (b.OrderTarget == null) ) or ( (b.OrderTarget != null) and ( SquareRoot( (b.x-GetWidgetX(b.OrderTarget))*(b.x-GetWidgetX(b.OrderTarget)) + (b.y-GetWidgetY(b.OrderTarget))*(b.y-GetWidgetY(b.OrderTarget)) ) >=  OrderDistanceStop ) ) then
                        if b.z <= UnitCanRunMinHeight then
                            set ang = GetUnitFacing(b.u)/57.29577951
                            set b.x = b.x + Cos(ang)*GetUnitDefaultMoveSpeed(b.u)*FDLTimer
                            set b.y = b.y + Sin(ang)*GetUnitDefaultMoveSpeed(b.u)*FDLTimer
                            set b.moving = true
                        endif
                    else
                        if not (GetUnitCurrentOrder(b.u) == OrderId("attack"))  then
                            set b.moving = false
                            call PauseUnit(b.u, true) 
                            call IssueImmediateOrder(b.u, "stop") 
                            call PauseUnit(b.u, false)
                        endif
                    endif
                endif

            // We consider the acceleration of the body
            if b.m > 0  then
                set b.a.vx = b.F.vx/b.m
                set b.a.vy = b.F.vy/b.m
                set b.a.vz = b.F.vz/b.m
                // Viscous friction
               if b.k > 0 then
                    set b.a.vx = b.a.vx - AddVFrFactor*b.k*b.v.vx/b.m
                    set b.a.vy = b.a.vy - AddVFrFactor*b.k*b.v.vy/b.m
                    set b.a.vz = b.a.vz - AddVFrFactor*b.k*b.v.vz/b.m
                    if Module(b.v) < 0.5 then
                        set b.Motionless = true
                    endif
                endif
                call b.F.Multiply(0)
            endif
            // We consider the speed
            if not b.Fixation then                    
                set b.v.vx = b.v.vx + b.a.vx
                set b.v.vy = b.v.vy + b.a.vy
                set b.v.vz = b.v.vz + b.a.vz + 1.1*b.g
            endif
                // Collision with the ceiling of the map
                if b.z > Height_max then
                    set b.z = Height_max - 1
                    call b.v.Multiply(FactorOfResist-1)
                endif
                // Collision with the ceiling of the map
                if b.x > GetRectMaxX(bj_mapInitialPlayableArea) then
                    set b.v.vx = -b.v.vx*(1-FactorOfResist)
                    set b.x = GetRectMaxX(bj_mapInitialPlayableArea) - 1
                endif
                if b.x < GetRectMinX(bj_mapInitialPlayableArea) then
                    set b.v.vx = -b.v.vx*(1-FactorOfResist)
                    set b.x = GetRectMinX(bj_mapInitialPlayableArea) + 1
                endif

                if b.y > GetRectMaxY(bj_mapInitialPlayableArea) then
                    set b.v.vy = -b.v.vy*(1-FactorOfResist)
                    set b.y = GetRectMaxY(bj_mapInitialPlayableArea) - 1 
                endif
                if b.y < GetRectMinY(bj_mapInitialPlayableArea) then
                    set b.v.vy = -b.v.vy*(1-FactorOfResist)
                    set b.y = GetRectMinY(bj_mapInitialPlayableArea) + 1 
                endif
            // Speed ​​Limit
            if Module(b.v) > FDLMaxSpeed then
                call b.v.Multiply(FDLMaxSpeed/(Module(b.v)))
            endif
            // Add terrain height difference to body z
            if b.moving then
                set b.v.vx = b.v.vx + (b.x - b.kx)/FDLTimer
                set b.v.vy = b.v.vy + (b.y - b.ky)/FDLTimer
            endif
            if (Abs(GetZ(b.x + b.v.vx*FDLTimer,b.y + b.v.vy*FDLTimer) - GetZ(b.x,b.y)) > 0) then
                set b.z = b.z - GetZ(b.x + b.v.vx*FDLTimer,b.y + b.v.vy*FDLTimer) + GetZ(b.x,b.y)
            endif
            if b.moving then
                set b.v.vx = b.v.vx - (b.x - b.kx)/FDLTimer
                set b.v.vy = b.v.vy - (b.y - b.ky)/FDLTimer
            endif
            // Keeping the old coordinates
            set b.kx = b.x
            set b.ky = b.y
            set b.kz = b.z


            // We consider new coordinates and, if necessary, move the unit
                set b.x = b.x + b.v.vx*FDLTimer
                set b.y = b.y + b.v.vy*FDLTimer
                set b.z = b.z + b.v.vz*FDLTimer
                if b.u != null then
                    if b.kx != b.x then
                        call SetUnitX(b.u,b.x)
                    endif
                    if b.ky != b.y then
                        call SetUnitY(b.u,b.y)
                    endif
                    if b.kz != b.z then
                        call SetUnitFlyHeight(b.u, b.z, 0)
                    endif
                endif
                //We do not shortchange a calm body
                if (Module(b.v) == 0) and not b.moving then
                    set b.Motionless = true
                endif
        else
            set Stek.k = Stek.k + 1 // don't get confused, this array starts at 1 and the intiger points to the last element of the array
            set Stek.BMotionless[Stek.k] = Stek.S[j]
            set Stek.S[j] = Stek.S[Stek.i]
            set Stek.S[Stek.i]=0
            set Stek.i = Stek.i - 1
        endif
        exitwhen j >= Stek.i
        set j = j +1
        endloop
    endif
endfunction

function Motionless_Action takes nothing returns nothing
local integer i = 1
    loop
        exitwhen i > Stek.k
            if (Stek.BMotionless[i].Motionless == false)  then
                set Stek.i= Stek.i +1
                set Stek.S[Stek.i] = Stek.BMotionless[i]
                set Stek.BMotionless[i] = Stek.BMotionless[Stek.k]
                set Stek.BMotionless[Stek.k] =0
                set Stek.k = Stek.k - 1
            endif
        set i = i + 1
    endloop
endfunction

// System start
    globals
        private timer Engine = CreateTimer()
        private timer MotionlessT = CreateTimer()
        TStek Stek = 0
    endglobals
        
    function StartEngine  takes nothing returns nothing
            set Stek = TStek.create()
            call TimerStart(Engine, FDLTimer, true , function Engine_Action )
            call TimerStart(MotionlessT, FDLTimer+0.01, true , function Motionless_Action )
            
            call TimerStart(SetRadiusFDLT, 0.05 , true, function SetRadiusFDL_Actions)
    endfunction

endscope

endlibrary

scope TemplateFrameDemo initializer init

    globals
        integer LocalPlayerId
        UIFrame textTemplate
        UIFrame inventoryFrame
        UIFrame simpleTitle
        UIFrame simpleCharacterBar50
        UIFrame simpleCharacterBar2
        UIFrame simpleNPCdialog
        UIFrame simpleNPCdialog2
        UIFrame RaceTimerUi
        UIFrame simpleEEEbutton
        UIFrame simpleItem_E
        UIFrame simpleItem_Q
        UIFrame footmanIcon
        UIFrame testSimpleButton
        UIFrame healthbarFrame
        UIFrame testSliderH
        UIFrame testSliderV
        UIFrame GoldCoinUiCorner
        UIFrame PositionFrameTopPlayer1
        UIFrame ItemUiFrame
        UIFrame TitleTimeTop
        UIFrame LapMiddleUi
        UIFrame TitleLapTop
        UIFrame TitleZoneMiddle
        UIFrame SelectStageUi
        UIFrame TimeStringCase0
        UIFrame TimeStringCase00
        UIFrame TimeStringCase00i
        UIFrame TimeStringCase00i0
        UIFrame TimeStringCase00i00
        UIFrame TimeStringCase00i00i
        UIFrame TimeStringCase00i00i0
        UIFrame TimeStringCase00i00i00
        UIFrame TitleLapRow2Top
        UIFrame TimeStringRow2Case0
        UIFrame TimeStringRow2Case00
        UIFrame TimeStringRow2Case00i
        UIFrame TimeStringRow2Case00i0
        UIFrame TimeStringRow2Case00i00
        UIFrame TimeStringRow2Case00i00i
        UIFrame TimeStringRow2Case00i00i0
        UIFrame TimeStringRow2Case00i00i00
        UIFrame TitleLapRow3Top
        UIFrame TimeStringRow3Case0
        UIFrame TimeStringRow3Case00
        UIFrame TimeStringRow3Case00i
        UIFrame TimeStringRow3Case00i0
        UIFrame TimeStringRow3Case00i00
        UIFrame TimeStringRow3Case00i00i
        UIFrame TimeStringRow3Case00i00i0
        UIFrame TimeStringRow3Case00i00i00
        UIFrame TitleLapRow4Top
        UIFrame TimeStringRow4Case0
        UIFrame TimeStringRow4Case00
        UIFrame TimeStringRow4Case00i
        UIFrame TimeStringRow4Case00i0
        UIFrame TimeStringRow4Case00i00
        UIFrame TimeStringRow4Case00i00i
        UIFrame TimeStringRow4Case00i00i0
        UIFrame TimeStringRow4Case00i00i00
        UIFrame PositionEndUiPlace
        UIFrame PositionEndUiPosition
        UIFrame PositionEndUiWait
        UIFrame TopLockedZoneUi
        UIFrame Crystal1
        UIFrame Crystal2
        UIFrame Crystal3
        UIFrame Crystal4
        UIFrame Crystal5
        UIFrame Crystal6
        UIFrame Crystal7
        UIFrame Crystal8
        UIFrame Crystal9
        UIFrame Crystal10

    endglobals


    private function FrameEvent takes nothing returns boolean
        local frameeventtype eventType = BlzGetTriggerFrameEvent()

        if eventType == FRAMEEVENT_CONTROL_CLICK then
            call BJDebugMsg("Click |cffffcc00[" + UIFrame.TriggerComponent.name + "]|r")
        elseif eventType == FRAMEEVENT_MOUSE_ENTER then
            call BJDebugMsg("Enter |cffffcc00[" + UIFrame.TriggerComponent.name + "]|r")
        elseif eventType == FRAMEEVENT_MOUSE_LEAVE then
            call BJDebugMsg("Leave |cffffcc00[" + UIFrame.TriggerComponent.name + "]|r")
        elseif eventType == FRAMEEVENT_MOUSE_UP then
            call BJDebugMsg("Mouse Up |cffffcc00[" + UIFrame.TriggerComponent.name + "]|r")
        elseif eventType == FRAMEEVENT_MOUSE_DOWN then
            call BJDebugMsg("Mouse Down |cffffcc00[" + UIFrame.TriggerComponent.name + "]|r")
        elseif eventType == FRAMEEVENT_MOUSE_WHEEL then
            call BJDebugMsg("Mouse Wheel |cffffcc00[" + UIFrame.TriggerComponent.name + "]|r")
        //elseif eventType == FRAMEEVENT_SLIDER_VALUE_CHANGED then
            //call BJDebugMsg("Value Changed |cffffcc00[" + UIFrame.TriggerComponent.name + "]|r")
        endif

        return false
    endfunction

    private function AddRandomItem takes integer row, integer col returns nothing
        local UIFrame f
        local real startX = 50.0
        local real startY = -100.0
        local real offset = 60.0

        set f = UIFrame.create(false, UIFrame.TYPE_BUTTON, inventoryFrame, startX+offset*col, startY-offset*row, 0)
        set f.name = "TemplateItem"
        set f.texture = "war3mapImported\\item" + I2S(GetRandomInt(1, 4)) + ".blp"
        set f.highlightTexture = "war3mapImported\\Selection.blp"
        call f.setAnchorPoint(0.0, 1.0) // Top
        call f.setPivotPoint(0.5, 0.5)  // Center
        call f.setSize(50.0, 50.0)
    endfunction

    private function createFrame takes nothing returns nothing
        local integer i
        local integer r
        local integer c

        // 1. Create simple text
        // - Instantiate a new frame
        // - Simple frame must let "isSimple" parameter be "true"
        // - Set the parent to Null so it has no parent
        //set textTemplate = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXT, UIFrame.Null, -200.0, -50.0, 0)
        // - Change frame name for event identification (demo)
        //set textTemplate.name = "Template Text"
        // - Change text content
        //set textTemplate.text = ""
        // - Register event
        //set textTemplate.onAnyEvent = function FrameEvent
        // - Set anchor point to top right
        // - This frame has no parent so it anchors at the screen's top right
        //call textTemplate.setAnchorPoint(1.0, 1.0) // Top Right
        // - Set pivot point to right
        //call textTemplate.setPivotPoint(1.0, 0.5) // Right
        // - Modify text alignment
        //call textTemplate.setTextAlignment(TEXT_JUSTIFY_RIGHT, TEXT_JUSTIFY_TOP)


        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        set simpleCharacterBar50 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set simpleCharacterBar50.name = "Template Simple Texture"
        set simpleCharacterBar50.texture = "war3mapImported\\logoIntro5v2.tga"
        set simpleCharacterBar50.onAnyEvent = function FrameEvent
        call simpleCharacterBar50.setAnchorPoint(0.315, 0.198) // Bottom Right
        call simpleCharacterBar50.setPivotPoint(0.0, 0.0) // Bottom Right
        call simpleCharacterBar50.setSize(512.0, 512.0)
        set simpleCharacterBar50.visible = false

        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        set simpleCharacterBar2 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set simpleCharacterBar2.name = "Template Simple TextureDiablo"
        set simpleCharacterBar2.texture = "war3mapImported\\logointro1v4.tga"
        set simpleCharacterBar2.onAnyEvent = function FrameEvent
        call simpleCharacterBar2.setAnchorPoint(0.315, 0.198) // Bottom Right
        call simpleCharacterBar2.setPivotPoint(0.0, 0.0) // Bottom Right
        call simpleCharacterBar2.setSize(512.0, 512.0)
        set simpleCharacterBar2.visible = false

        // 2222- This is a simple frame type so it can go beyond the 4:3 bounds
        set SelectStageUi = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set SelectStageUi.name = "SelectStageUi"
        set SelectStageUi.texture = "war3mapImported\\StageInfov3v2.tga"
        set SelectStageUi.onAnyEvent = function FrameEvent
        call SelectStageUi.setAnchorPoint(0.5, 0.5) // Bottom Right
        call SelectStageUi.setPivotPoint(0.5, 0.5) // Bottom Right
        call SelectStageUi.setSize(712.0, 712.0)
        set SelectStageUi.visible = false

        // 2222- This is a simple frame type so it can go beyond the 4:3 bounds
        set LapMiddleUi = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set LapMiddleUi.name = "LapMiddleUi"
        set LapMiddleUi.texture = "war3mapImported\\Lap2Image.tga"
        set LapMiddleUi.onAnyEvent = function FrameEvent
        call LapMiddleUi.setAnchorPoint(0.355, 0.395) // Bottom Right
        call LapMiddleUi.setPivotPoint(0.0, 0.0) // Bottom Right
        call LapMiddleUi.setSize(400.0, 400.0)
        set LapMiddleUi.visible = false

        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        set TitleZoneMiddle = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TitleZoneMiddle.name = "TitleZoneMiddle"
        set TitleZoneMiddle.texture = "war3mapImported\\opensourcetitlev2.tga"
        set TitleZoneMiddle.onAnyEvent = function FrameEvent
        call TitleZoneMiddle.setAnchorPoint(0.315, 0.400) // Bottom Right
        call TitleZoneMiddle.setPivotPoint(0.0, 0.0) // Bottom Right
        call TitleZoneMiddle.setSize(512.0, 256.0)
        set TitleZoneMiddle.visible = false

        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        set RaceTimerUi = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set RaceTimerUi.name = "Template Simple TextureDiablo"
        set RaceTimerUi.texture = "war3mapImported\\RaceTimer_3.tga"
        set RaceTimerUi.onAnyEvent = function FrameEvent
        call RaceTimerUi.setAnchorPoint(0.140, 0.198) // Bottom Right
        call RaceTimerUi.setPivotPoint(0.0, 0.0) // Bottom Right
        call RaceTimerUi.setSize(1024.0, 512.0)
        set RaceTimerUi.visible = false

        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        set simpleNPCdialog = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set simpleNPCdialog.name = "Template Simple TextureEBUTTON"
        set simpleNPCdialog.texture = "war3mapImported\\Please wait.tga"
        set simpleNPCdialog.onAnyEvent = function FrameEvent
        call simpleNPCdialog.setAnchorPoint(0.315, 0.198) // Bottom Right
        call simpleNPCdialog.setPivotPoint(0.0, 0.0) // Bottom Right
        call simpleNPCdialog.setSize(512.0, 256.0)
        set simpleNPCdialog.visible = false

        set simpleNPCdialog2 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set simpleNPCdialog2.name = "Template Simple TextureEBUTTON"
        set simpleNPCdialog2.texture = "war3mapImported\\Hellotherev3.tga"
        set simpleNPCdialog2.onAnyEvent = function FrameEvent
        call simpleNPCdialog2.setAnchorPoint(0.315, 0.198) // Bottom Right
        call simpleNPCdialog2.setPivotPoint(0.0, 0.0) // Bottom Right
        call simpleNPCdialog2.setSize(512.0, 256.0)
        set simpleNPCdialog2.visible = false


        set GoldCoinUiCorner = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set GoldCoinUiCorner.name = "Template Simple TextureEBUTTON"
        set GoldCoinUiCorner.texture = "war3mapImported\\GoldCoin_0v2.tga"
        set GoldCoinUiCorner.onAnyEvent = function FrameEvent
        call GoldCoinUiCorner.setAnchorPoint(0.750, 0.100) // Bottom Right
        call GoldCoinUiCorner.setPivotPoint(0.0, 0.0) // Bottom Right
        call GoldCoinUiCorner.setSize(156.0, 80.0)
        set GoldCoinUiCorner.visible = false

        set PositionFrameTopPlayer1 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set PositionFrameTopPlayer1.name = "PositionFrameTopPlayer1"
        set PositionFrameTopPlayer1.texture = "war3mapImported\\11th_v2.tga"
        set PositionFrameTopPlayer1.onAnyEvent = function FrameEvent
        call PositionFrameTopPlayer1.setAnchorPoint(0.150, 1.000) // Bottom Right
        call PositionFrameTopPlayer1.setPivotPoint(0.5, 1.0) // Bottom Right
        call PositionFrameTopPlayer1.setSize(256.0, 256.0)
        set PositionFrameTopPlayer1.visible = false

        set ItemUiFrame = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set ItemUiFrame.name = "PositionFrameTopPlayer1"
        set ItemUiFrame.texture = "war3mapImported\\Button_Ev1.tga"
        set ItemUiFrame.onAnyEvent = function FrameEvent
        call ItemUiFrame.setAnchorPoint(0.580, 0.220) // Bottom Right
        call ItemUiFrame.setPivotPoint(0.0, 0.0) // Bottom Right
        call ItemUiFrame.setSize(165.0, 165.0)
        set ItemUiFrame.visible = false

        set TitleTimeTop = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TitleTimeTop.name = "TitleTimeTop"
        set TitleTimeTop.texture = "war3mapImported\\Timev1.tga"
        set TitleTimeTop.onAnyEvent = function FrameEvent
        call TitleTimeTop.setAnchorPoint(0.900, 0.950) // Bottom Right
        call TitleTimeTop.setPivotPoint(1.0, 0.5) // Bottom Right
        call TitleTimeTop.setSize(128.0, 64.0)
        set TitleTimeTop.visible = false

        set TitleLapTop = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TitleLapTop.name = "TitleLapTop"
        set TitleLapTop.texture = "war3mapImported\\Lap1v1.tga"
        set TitleLapTop.onAnyEvent = function FrameEvent
        call TitleLapTop.setAnchorPoint(0.820, 0.900) // Bottom Right
        call TitleLapTop.setPivotPoint(1.0, 0.5) // Bottom Right
        call TitleLapTop.setSize(74.0, 38.0)
        set TitleLapTop.visible = false

        set TimeStringCase0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase0.name = "TimeStringCase0"
        set TimeStringCase0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringCase0.onAnyEvent = function FrameEvent
        call TimeStringCase0.setAnchorPoint(0.846, 0.900) // Bottom Right
        call TimeStringCase0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase0.setSize(44.0, 44.0)
        set TimeStringCase0.visible = false

        set TimeStringCase00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase00.name = "TimeStringCase00"
        set TimeStringCase00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringCase00.onAnyEvent = function FrameEvent
        call TimeStringCase00.setAnchorPoint(0.860, 0.900) // Bottom Right
        call TimeStringCase00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase00.setSize(44.0, 44.0)
        set TimeStringCase00.visible = false

        set TimeStringCase00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase00i.name = "TimeStringCase00i"
        set TimeStringCase00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringCase00i.onAnyEvent = function FrameEvent
        call TimeStringCase00i.setAnchorPoint(0.874, 0.900) // Bottom Right
        call TimeStringCase00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase00i.setSize(44.0, 44.0)
        set TimeStringCase00i.visible = false

        set TimeStringCase00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase00i0.name = "TimeStringCase00i0"
        set TimeStringCase00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringCase00i0.onAnyEvent = function FrameEvent
        call TimeStringCase00i0.setAnchorPoint(0.888, 0.900) // Bottom Right
        call TimeStringCase00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase00i0.setSize(44.0, 44.0)
        set TimeStringCase00i0.visible = false

        set TimeStringCase00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase00i00.name = "TimeStringCase00i00"
        set TimeStringCase00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringCase00i00.onAnyEvent = function FrameEvent
        call TimeStringCase00i00.setAnchorPoint(0.902, 0.900) // Bottom Right
        call TimeStringCase00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase00i00.setSize(44.0, 44.0)
        set TimeStringCase00i00.visible = false

        set TimeStringCase00i00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase00i00i.name = "TimeStringCase00i00i"
        set TimeStringCase00i00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringCase00i00i.onAnyEvent = function FrameEvent
        call TimeStringCase00i00i.setAnchorPoint(0.916, 0.900) // Bottom Right
        call TimeStringCase00i00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase00i00i.setSize(44.0, 44.0)
        set TimeStringCase00i00i.visible = false

        set TimeStringCase00i00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase00i00i0.name = "TimeStringCase00i00i0"
        set TimeStringCase00i00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringCase00i00i0.onAnyEvent = function FrameEvent
        call TimeStringCase00i00i0.setAnchorPoint(0.930, 0.900) // Bottom Right
        call TimeStringCase00i00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase00i00i0.setSize(44.0, 44.0)
        set TimeStringCase00i00i0.visible = false

        set TimeStringCase00i00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringCase00i00i00.name = "TimeStringCase00i00i00"
        set TimeStringCase00i00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringCase00i00i00.onAnyEvent = function FrameEvent
        call TimeStringCase00i00i00.setAnchorPoint(0.944, 0.900) // Bottom Right
        call TimeStringCase00i00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringCase00i00i00.setSize(44.0, 44.0)
        set TimeStringCase00i00i00.visible = false

        set TitleLapRow2Top = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TitleLapRow2Top.name = "TitleLapRow2Top"
        set TitleLapRow2Top.texture = "war3mapImported\\Lap1v1.tga"
        set TitleLapRow2Top.onAnyEvent = function FrameEvent
        call TitleLapRow2Top.setAnchorPoint(0.820, 0.862) // Bottom Right
        call TitleLapRow2Top.setPivotPoint(1.0, 0.5) // Bottom Right
        call TitleLapRow2Top.setSize(74.0, 38.0)
        set TitleLapRow2Top.visible = false

        set TimeStringRow2Case0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case0.name = "TimeStringRow2Case0"
        set TimeStringRow2Case0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow2Case0.onAnyEvent = function FrameEvent
        call TimeStringRow2Case0.setAnchorPoint(0.846, 0.862) // Bottom Right
        call TimeStringRow2Case0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case0.setSize(44.0, 44.0)
        set TimeStringRow2Case0.visible = false

        set TimeStringRow2Case00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case00.name = "TimeStringRow2Case00"
        set TimeStringRow2Case00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow2Case00.onAnyEvent = function FrameEvent
        call TimeStringRow2Case00.setAnchorPoint(0.860, 0.862) // Bottom Right
        call TimeStringRow2Case00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case00.setSize(44.0, 44.0)
        set TimeStringRow2Case00.visible = false

        set TimeStringRow2Case00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case00i.name = "TimeStringRow2Case00i"
        set TimeStringRow2Case00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringRow2Case00i.onAnyEvent = function FrameEvent
        call TimeStringRow2Case00i.setAnchorPoint(0.874, 0.862) // Bottom Right
        call TimeStringRow2Case00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case00i.setSize(44.0, 44.0)
        set TimeStringRow2Case00i.visible = false

        set TimeStringRow2Case00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case00i0.name = "TimeStringRow2Case00i0"
        set TimeStringRow2Case00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow2Case00i0.onAnyEvent = function FrameEvent
        call TimeStringRow2Case00i0.setAnchorPoint(0.888, 0.862) // Bottom Right
        call TimeStringRow2Case00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case00i0.setSize(44.0, 44.0)
        set TimeStringRow2Case00i0.visible = false

        set TimeStringRow2Case00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case00i00.name = "TimeStringRow2Case00i00"
        set TimeStringRow2Case00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow2Case00i00.onAnyEvent = function FrameEvent
        call TimeStringRow2Case00i00.setAnchorPoint(0.902, 0.862) // Bottom Right
        call TimeStringRow2Case00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case00i00.setSize(44.0, 44.0)
        set TimeStringRow2Case00i00.visible = false

        set TimeStringRow2Case00i00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case00i00i.name = "TimeStringRow2Case00i00i"
        set TimeStringRow2Case00i00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringRow2Case00i00i.onAnyEvent = function FrameEvent
        call TimeStringRow2Case00i00i.setAnchorPoint(0.916, 0.862) // Bottom Right
        call TimeStringRow2Case00i00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case00i00i.setSize(44.0, 44.0)
        set TimeStringRow2Case00i00i.visible = false

        set TimeStringRow2Case00i00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case00i00i0.name = "TimeStringRow2Case00i00i0"
        set TimeStringRow2Case00i00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow2Case00i00i0.onAnyEvent = function FrameEvent
        call TimeStringRow2Case00i00i0.setAnchorPoint(0.930, 0.862) // Bottom Right
        call TimeStringRow2Case00i00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case00i00i0.setSize(44.0, 44.0)
        set TimeStringRow2Case00i00i0.visible = false

        set TimeStringRow2Case00i00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow2Case00i00i00.name = "TimeStringRow2Case00i00i00"
        set TimeStringRow2Case00i00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow2Case00i00i00.onAnyEvent = function FrameEvent
        call TimeStringRow2Case00i00i00.setAnchorPoint(0.944, 0.862) // Bottom Right
        call TimeStringRow2Case00i00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow2Case00i00i00.setSize(44.0, 44.0)
        set TimeStringRow2Case00i00i00.visible = false

        set TitleLapRow3Top = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TitleLapRow3Top.name = "TitleLapRow3Top"
        set TitleLapRow3Top.texture = "war3mapImported\\Lap2v1.tga"
        set TitleLapRow3Top.onAnyEvent = function FrameEvent
        call TitleLapRow3Top.setAnchorPoint(0.820, 0.824) // Bottom Right
        call TitleLapRow3Top.setPivotPoint(1.0, 0.5) // Bottom Right
        call TitleLapRow3Top.setSize(74.0, 38.0)
        set TitleLapRow3Top.visible = false

        set TimeStringRow3Case0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case0.name = "TimeStringRow3Case0"
        set TimeStringRow3Case0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow3Case0.onAnyEvent = function FrameEvent
        call TimeStringRow3Case0.setAnchorPoint(0.846, 0.824) // Bottom Right
        call TimeStringRow3Case0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case0.setSize(44.0, 44.0)
        set TimeStringRow3Case0.visible = false

        set TimeStringRow3Case00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case00.name = "TimeStringRow3Case00"
        set TimeStringRow3Case00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow3Case00.onAnyEvent = function FrameEvent
        call TimeStringRow3Case00.setAnchorPoint(0.860, 0.824) // Bottom Right
        call TimeStringRow3Case00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case00.setSize(44.0, 44.0)
        set TimeStringRow3Case00.visible = false

        set TimeStringRow3Case00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case00i.name = "TimeStringRow3Case00i"
        set TimeStringRow3Case00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringRow3Case00i.onAnyEvent = function FrameEvent
        call TimeStringRow3Case00i.setAnchorPoint(0.874, 0.824) // Bottom Right
        call TimeStringRow3Case00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case00i.setSize(44.0, 44.0)
        set TimeStringRow3Case00i.visible = false

        set TimeStringRow3Case00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case00i0.name = "TimeStringRow3Case00i0"
        set TimeStringRow3Case00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow3Case00i0.onAnyEvent = function FrameEvent
        call TimeStringRow3Case00i0.setAnchorPoint(0.888, 0.824) // Bottom Right
        call TimeStringRow3Case00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case00i0.setSize(44.0, 44.0)
        set TimeStringRow3Case00i0.visible = false

        set TimeStringRow3Case00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case00i00.name = "TimeStringRow3Case00i00"
        set TimeStringRow3Case00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow3Case00i00.onAnyEvent = function FrameEvent
        call TimeStringRow3Case00i00.setAnchorPoint(0.902, 0.824) // Bottom Right
        call TimeStringRow3Case00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case00i00.setSize(44.0, 44.0)
        set TimeStringRow3Case00i00.visible = false

        set TimeStringRow3Case00i00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case00i00i.name = "TimeStringRow3Case00i00i"
        set TimeStringRow3Case00i00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringRow3Case00i00i.onAnyEvent = function FrameEvent
        call TimeStringRow3Case00i00i.setAnchorPoint(0.916, 0.824) // Bottom Right
        call TimeStringRow3Case00i00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case00i00i.setSize(44.0, 44.0)
        set TimeStringRow3Case00i00i.visible = false

        set TimeStringRow3Case00i00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case00i00i0.name = "TimeStringRow3Case00i00i0"
        set TimeStringRow3Case00i00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow3Case00i00i0.onAnyEvent = function FrameEvent
        call TimeStringRow3Case00i00i0.setAnchorPoint(0.930, 0.824) // Bottom Right
        call TimeStringRow3Case00i00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case00i00i0.setSize(44.0, 44.0)
        set TimeStringRow3Case00i00i0.visible = false

        set TimeStringRow3Case00i00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow3Case00i00i00.name = "TimeStringRow3Case00i00i00"
        set TimeStringRow3Case00i00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow3Case00i00i00.onAnyEvent = function FrameEvent
        call TimeStringRow3Case00i00i00.setAnchorPoint(0.944, 0.824) // Bottom Right
        call TimeStringRow3Case00i00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow3Case00i00i00.setSize(44.0, 44.0)
        set TimeStringRow3Case00i00i00.visible = false

        set TitleLapRow4Top = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TitleLapRow4Top.name = "TitleLapRow4Top"
        set TitleLapRow4Top.texture = "war3mapImported\\Lap3v1.tga"
        set TitleLapRow4Top.onAnyEvent = function FrameEvent
        call TitleLapRow4Top.setAnchorPoint(0.820, 0.786) // Bottom Right
        call TitleLapRow4Top.setPivotPoint(1.0, 0.5) // Bottom Right
        call TitleLapRow4Top.setSize(74.0, 38.0)
        set TitleLapRow4Top.visible = false

        set TimeStringRow4Case0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case0.name = "TimeStringRow4Case0"
        set TimeStringRow4Case0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow4Case0.onAnyEvent = function FrameEvent
        call TimeStringRow4Case0.setAnchorPoint(0.846, 0.786) // Bottom Right
        call TimeStringRow4Case0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case0.setSize(44.0, 44.0)
        set TimeStringRow4Case0.visible = false

        set TimeStringRow4Case00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case00.name = "TimeStringRow4Case00"
        set TimeStringRow4Case00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow4Case00.onAnyEvent = function FrameEvent
        call TimeStringRow4Case00.setAnchorPoint(0.860, 0.786) // Bottom Right
        call TimeStringRow4Case00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case00.setSize(44.0, 44.0)
        set TimeStringRow4Case00.visible = false

        set TimeStringRow4Case00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case00i.name = "TimeStringRow4Case00i"
        set TimeStringRow4Case00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringRow4Case00i.onAnyEvent = function FrameEvent
        call TimeStringRow4Case00i.setAnchorPoint(0.874, 0.786) // Bottom Right
        call TimeStringRow4Case00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case00i.setSize(44.0, 44.0)
        set TimeStringRow4Case00i.visible = false

        set TimeStringRow4Case00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case00i0.name = "TimeStringRow4Case00i0"
        set TimeStringRow4Case00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow4Case00i0.onAnyEvent = function FrameEvent
        call TimeStringRow4Case00i0.setAnchorPoint(0.888, 0.786) // Bottom Right
        call TimeStringRow4Case00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case00i0.setSize(44.0, 44.0)
        set TimeStringRow4Case00i0.visible = false

        set TimeStringRow4Case00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case00i00.name = "TimeStringRow4Case00i00"
        set TimeStringRow4Case00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow4Case00i00.onAnyEvent = function FrameEvent
        call TimeStringRow4Case00i00.setAnchorPoint(0.902, 0.786) // Bottom Right
        call TimeStringRow4Case00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case00i00.setSize(44.0, 44.0)
        set TimeStringRow4Case00i00.visible = false

        set TimeStringRow4Case00i00i = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case00i00i.name = "TimeStringRow4Case00i00i"
        set TimeStringRow4Case00i00i.texture = "war3mapImported\\deuxpoint_v1.tga"
        set TimeStringRow4Case00i00i.onAnyEvent = function FrameEvent
        call TimeStringRow4Case00i00i.setAnchorPoint(0.916, 0.786) // Bottom Right
        call TimeStringRow4Case00i00i.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case00i00i.setSize(44.0, 44.0)
        set TimeStringRow4Case00i00i.visible = false

        set TimeStringRow4Case00i00i0 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case00i00i0.name = "TimeStringRow4Case00i00i0"
        set TimeStringRow4Case00i00i0.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow4Case00i00i0.onAnyEvent = function FrameEvent
        call TimeStringRow4Case00i00i0.setAnchorPoint(0.930, 0.786) // Bottom Right
        call TimeStringRow4Case00i00i0.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case00i00i0.setSize(44.0, 44.0)
        set TimeStringRow4Case00i00i0.visible = false

        set TimeStringRow4Case00i00i00 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TimeStringRow4Case00i00i00.name = "TimeStringRow4Case00i00i00"
        set TimeStringRow4Case00i00i00.texture = "war3mapImported\\0_v1.tga"
        set TimeStringRow4Case00i00i00.onAnyEvent = function FrameEvent
        call TimeStringRow4Case00i00i00.setAnchorPoint(0.944, 0.786) // Bottom Right
        call TimeStringRow4Case00i00i00.setPivotPoint(1.0, 0.5) // Bottom Right
        call TimeStringRow4Case00i00i00.setSize(44.0, 44.0)
        set TimeStringRow4Case00i00i00.visible = false
        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        //set simpleQQQbutton = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        //set simpleQQQbutton.name = "Template Simple TextureQBUTTON"
        //set simpleQQQbutton.texture = "war3mapImported\\Button_Ev1.tga"
        //set simpleQQQbutton.onAnyEvent = function FrameEvent
        //call simpleQQQbutton.setAnchorPoint(0.00, 0.00) // Bottom Right
        //call simpleQQQbutton.setPivotPoint(0.9, 0.9) // Bottom Right
        //call simpleQQQbutton.setSize(150.0, 150.0)

        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        set PositionEndUiPlace = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set PositionEndUiPlace.name = "PositionEndUiPlace"
        set PositionEndUiPlace.texture = "war3mapImported\\place_v1.tga"
        set PositionEndUiPlace.onAnyEvent = function FrameEvent
        call PositionEndUiPlace.setAnchorPoint(0.500, 0.350) // Bottom Right
        call PositionEndUiPlace.setPivotPoint(0.0, 0.0) // Bottom Right
        call PositionEndUiPlace.setSize(300.0, 300.0)
        set PositionEndUiPlace.visible = false

        // 3. Create simple texture template
        // - This is a simple frame type so it can go beyond the 4:3 bounds
        set PositionEndUiPosition = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set PositionEndUiPosition.name = "PositionEndUiPosition"
        set PositionEndUiPosition.texture = "war3mapImported\\1st_v2.tga"
        set PositionEndUiPosition.onAnyEvent = function FrameEvent
        call PositionEndUiPosition.setAnchorPoint(0.250, 0.350) // Bottom Right
        call PositionEndUiPosition.setPivotPoint(0.0, 0.0) // Bottom Right
        call PositionEndUiPosition.setSize(350.0, 350.0)
        set PositionEndUiPosition.visible = false

        set PositionEndUiWait = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set PositionEndUiWait.name = "PositionEndUiPosition"
        set PositionEndUiWait.texture = "war3mapImported\\PLeaseendracev1.tga"
        set PositionEndUiWait.onAnyEvent = function FrameEvent
        call PositionEndUiWait.setAnchorPoint(0.300, 0.230) // Bottom Right
        call PositionEndUiWait.setPivotPoint(0.0, 0.0) // Bottom Right
        call PositionEndUiWait.setSize(512.0, 256.0)
        set PositionEndUiWait.visible = false

        set TopLockedZoneUi = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set TopLockedZoneUi.name = "TopLockedZoneUi"
        set TopLockedZoneUi.texture = "war3mapImported\\PirateLagoonTitleLOCKv4.tga"
        set TopLockedZoneUi.onAnyEvent = function FrameEvent
        call TopLockedZoneUi.setAnchorPoint(0.695, 0.780) // Bottom Right
        call TopLockedZoneUi.setPivotPoint(1.0, 0.5) // Bottom Right
        call TopLockedZoneUi.setSize(512.0, 256.0)
        set TopLockedZoneUi.visible = false

        set Crystal1 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal1.name = "Crystal1"
        set Crystal1.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal1.onAnyEvent = function FrameEvent
        call Crystal1.setAnchorPoint(0.390, 0.190) // Bottom Right
   //     call Crystal1.setAnchorPoint(0.390, 0.910) // Bottom Right
        call Crystal1.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal1.setSize(84.0, 84.0)
        set Crystal1.visible = false

        set Crystal2 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal2.name = "Crystal2"
        set Crystal2.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal2.onAnyEvent = function FrameEvent
        call Crystal2.setAnchorPoint(0.420, 0.190) // Bottom Right
        call Crystal2.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal2.setSize(84.0, 84.0)
        set Crystal2.visible = false

        set Crystal3 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal3.name = "Crystal3"
        set Crystal3.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal3.onAnyEvent = function FrameEvent
        call Crystal3.setAnchorPoint(0.450, 0.190) // Bottom Right
        call Crystal3.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal3.setSize(84.0, 84.0)
        set Crystal3.visible = false

        set Crystal4 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal4.name = "Crystal4"
        set Crystal4.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal4.onAnyEvent = function FrameEvent
        call Crystal4.setAnchorPoint(0.480, 0.190) // Bottom Right
        call Crystal4.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal4.setSize(84.0, 84.0)
        set Crystal4.visible = false

        set Crystal5 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal5.name = "Crystal5"
        set Crystal5.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal5.onAnyEvent = function FrameEvent
        call Crystal5.setAnchorPoint(0.510, 0.190) // Bottom Right
        call Crystal5.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal5.setSize(84.0, 84.0)
        set Crystal5.visible = false

        set Crystal6 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal6.name = "Crystal6"
        set Crystal6.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal6.onAnyEvent = function FrameEvent
        call Crystal6.setAnchorPoint(0.540, 0.190) // Bottom Right
        call Crystal6.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal6.setSize(84.0, 84.0)
        set Crystal6.visible = false

        set Crystal7 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal7.name = "Crystal7"
        set Crystal7.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal7.onAnyEvent = function FrameEvent
        call Crystal7.setAnchorPoint(0.570, 0.190) // Bottom Right
        call Crystal7.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal7.setSize(84.0, 84.0)
        set Crystal7.visible = false

        set Crystal8 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal8.name = "Crystal8"
        set Crystal8.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal8.onAnyEvent = function FrameEvent
        call Crystal8.setAnchorPoint(0.600, 0.190) // Bottom Right
        call Crystal8.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal8.setSize(84.0, 84.0)
        set Crystal8.visible = false

        set Crystal9 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal9.name = "Crystal9"
        set Crystal9.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal9.onAnyEvent = function FrameEvent
        call Crystal9.setAnchorPoint(0.630, 0.190) // Bottom Right
        call Crystal9.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal9.setSize(84.0, 84.0)
        set Crystal9.visible = false

        set Crystal10 = UIFrame.create(true, UIFrame.TYPE_SIMPLE_TEXTURE, UIFrame.Null, 0.0, 0.0, 0)
        set Crystal10.name = "Crystal10"
        set Crystal10.texture = "war3mapImported\\crystallEmptyv1.tga"
        set Crystal10.onAnyEvent = function FrameEvent
        call Crystal10.setAnchorPoint(0.660, 0.190) // Bottom Right
        call Crystal10.setPivotPoint(1.0, 0.5) // Bottom Right
        call Crystal10.setSize(84.0, 84.0)
        set Crystal10.visible = false

    endfunction

    private function init takes nothing returns nothing
        set LocalPlayerId = GetPlayerId(GetLocalPlayer())
        call TimerStart(CreateTimer(), 0, false, function createFrame)
    endfunction


endscope

// This is an example of how to put command buttons to the center of screen

function modify takes nothing returns nothing
//    local integer i = 0
//    local integer count = 0
//    local real width = 49.0
//    local real x
//    local real y = 15.0*UIUtils.PXTODPI
//    
//    loop
//        exitwhen i > 11
//        if BlzFrameIsVisible(DefaultFrame.CommandButton[i]) then
//            set count = count + 1
//        endif
//        set i = i + 1
//    endloop
//    set x = UIUtils.ResolutionWidth*0.5-(width+5.0)*(count-1)*0.5
//    set i = 0
//    loop
//        exitwhen i > 11
//        if BlzFrameIsVisible(DefaultFrame.CommandButton[i]) then
//            call BlzFrameClearAllPoints(DefaultFrame.CommandButton[i])
//            call BlzFrameSetAbsPoint(DefaultFrame.CommandButton[i], FRAMEPOINT_BOTTOM, UIUtils.GetScreenPosX(x), y)
//            set x = x + width + 5.0
//        endif
//        set i = i + 1
//    endloop
endfunction

function InitTrig_ModifyOriginFrameExample takes nothing returns nothing
    set gg_trg_ModifyOriginFrameExample = CreateTrigger(  )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(0), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(1), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(2), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(3), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(4), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(5), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(6), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(7), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(8), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(9), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(10), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(11), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(12), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(13), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(14), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(15), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(16), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(17), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(18), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(19), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_ModifyOriginFrameExample, Player(20), true )
    call TriggerAddAction( gg_trg_ModifyOriginFrameExample, function modify )
endfunction

library UIUtils requires LinkedListModule
    /*********************************************************************************
    *
    *            UI Utils v1.04
    *
    *    Create and manage user interface in highly convenient and intuitive way!
    *
    *    Check for update at: https://www.hiveworkshop.com/threads/320005/
    *
    *    Features:
    *        • Includes several primitive frame types (texture, text, slider, etc.)
    *        • Compatible with custom frame definition
    *        • Uses pixel as measurement unit
    *        • Friendly UI native wrappers
    *        • Custom hierarchy system with in-depth inheritance control
    *        • Automatically prevents non-simple frame from going out of the 4:3 bounds
    *        • Enhanced frame pivot & anchor point feature for all-resolution support
    *        • Automatic create context handling
    *        • Extra security measures (prevents UI native related crashes out of the box)
    *        • Customizable full-screen mode
    *        • Essential default/original frames container
    *        • Includes all available built-in fdf files
    *
    *    I.  System requirements:
    *        • LinkedListModule            : http://hiveworkshop.com/threads/snippet-linkedlistmodule.206552/
    *        • Warcraft III version 1.31+
    *
    *    II. Installation:
    *        • Import LinkedListModule
    *        • Copy UIUtils trigger to your map
    *        • Go to Import Manager and import following files to your map:
    *            - UIUtils.toc
    *            - UIUtils.fdf
    *        • Configure the system below
    *        • For true fullscreen you might need to manually remove the inventory cover texture
    *
    *    III. Credits:
    *        • Tasyen   | UI tutorials & researches
    *        • Dirac    | LinkedListModule
    *
    *    IV. API - (Complete manual: https://www.hiveworkshop.com/threads/320046/)
    *
    *           struct UIFrame                                                                                                                                                                                                                                                                            */static if FOLD then /*
               
                1. Ctor & dtor
                    - Let "isSimple" be "true" if it is a simple frame type
                        | static method create takes boolean isSimple, string frameType, UIFrame parent, real x, real y, integer level returns UIFrame
                       
                    - Dispose the frame
                        | method destroy takes nothing returns nothing
                   
                2. Wrappers
                    - Set & get frame's textures
                        • Might not be compatible with custom frame definition
                        • Some only work for specific type of primitive frames
                        • Some might not work properly just yet (blizzard limitation)
                        > Default main texture
                            | method operator texture= takes string filePath returns nothing
                            | method operator texture  takes nothing returns string
                        > Texture displayed when frame is disabled
                            | method operator disabledTexture= takes string filePath returns nothing
                            | method operator disabledTexture  takes nothing returns string
                        > Highlighter texture
                            | method operator highlightTexture= takes string filePath returns nothing
                            | method operator highlightTexture  takes nothing returns string
                        > Texture displayed when frame is pressed
                            | method operator pushedTexture= takes string filePath returns nothing
                            | method operator pushedTexture  takes nothing returns string
                        > Background texture for the frame
                            | method operator backgroundTexture= takes string filePath returns nothing
                            | method operator backgroundTexture  takes nothing returns string
                        > Border texture for the frame
                            | method operator borderTexture= takes string filePath returns nothing
                            | method operator borderTexture  takes nothing returns string
                   
                    - Set & get frame's parent
                        | method operator parent= takes UIFrame frame returns nothing
                        | method operator parent  takes nothing returns UIFrame
                       
                    - Get frame's screen space position
                        • Values might be affected by frame's parent anchor point
                            | method operator screenPosX takes nothing returns real
                            | method operator screenPosY takes nothing returns real
                   
                    - Get frame's bounds
                            | method operator left   takes nothing returns real
                            | method operator right  takes nothing returns real
                            | method operator top    takes nothing returns real
                            | method operator bottom takes nothing returns real
                           
                    - Get frame's true (scaled) size in pixel
                        | method operator width  takes nothing returns real
                        | method operator height takes nothing returns real
                       
                    - Set & get frame's scale factor
                        > Frame's independent scale factor
                            | method operator localScale= takes real r returns nothing
                            | method operator localScale  takes nothing returns real
                        > Frame's true scale
                            | method operator scale takes nothing returns real
                       
                    - Set & get frame's visibility state
                        | method operator visible= takes boolean state returns nothing
                        | method operator visible  takes nothing returns boolean
                 
                    - Set & get frame's transparency (0-255)
                        | method operator opacity= takes integer amount returns nothing
                        | method operator opacity  takes nothing returns integer
                       
                    - Set & get enable state of the frame
                        | method operator enabled= takes boolean state returns nothing
                        | method operator enabled  takes nothing returns boolean
                       
                    - Set & get frame's self sorting/layering order
                        | method operator level= takes integer level returns nothing
                        | method operator level  takes nothing returns integer
                        > Get frame's actual sorting/layering order
                            | method operator trueLevel takes nothing returns integer
                           
                    - Set & get frame's text content
                        | method operator text= takes string str returns nothing
                        | method operator text  takes nothing returns string
                       
                    - Set & get frame's text content length limit
                        | method operator maxLength= takes integer length returns nothing
                        | method operator maxLength  takes nothing returns integer
                       
                    - Set frame's text color
                        > Use "BlzConvertColor" function to convert ARGB color
                            | method operator textColor= takes integer color returns nothing
                       
                    - Set & get frame's model file
                        | method operator model= takes string filePath returns nothing
                        | method operator model  takes nothing returns string
                       
                    - Set vertex color of the model frame
                        > Use "BlzConvertColor" function to convert ARGB color
                            | method operator vertexColor= takes integer color returns nothing
                       
                    - Set & get value of slider frame
                        | method operator value= takes real r  returns nothing
                        | method operator value  takes nothing returns real
                       
                    - Step size is increment of slider bar relative to its min max value
                        | method operator stepSize= takes real r  returns nothing
                        | method operator stepSize  takes nothing returns real
                       
                    - Set & get tooltips frame
                        | method operator tooltips= takes UIFrame frame returns nothing
                        | method operator tooltips  takes nothing returns UIFrame
                       
                    - Get sub-frame handle based on passed name
                        • Usage: tempFrame.subFrame["tempFrameText"] => returns subframe handle of "tempFrame" by name of "tempFrameText"
                            | method operator subFrame[] takes string name returns framehandle
                       
                    - Register any event happen to the frame (click, mouse enter/leave, etc.)
                        • Use "UIFrame.TriggerComponent" to get the triggering frame
                        • Use "BlzGetTriggerFrameEvent()" function to get the event type
                            | method operator onAnyEvent= takes code func returns triggercondition
                   
                2. Methods
                    - Iterates through all child frames of the frame
                        • Use "UIFrame.EnumChild" to get the iterated child frame
                            | method forEachChild takes code func returns nothing
                       
                    - Set frame's text properties
                        | method setTextAlignment takes textaligntype vertical, textaligntype horizontal returns nothing
                        | method setFont takes string fontType, real fontSize, integer flags returns nothing
                   
                    - Set slider min max values
                        | method setMinMaxValue takes real min, real max returns nothing
                   
                    - Animate frame texture
                        | method setSpriteAnimate takes integer primaryProp, integer flags returns nothing
                       
                    - Give focus to the frame
                        | method setFocus takes boolean state returns nothing
                   
                    - Cage mouse inside the frame's boundaries
                        | method cageMouse takes boolean state returns nothing
                   
                    - Emulate click on the frame
                        | method click takes nothing returns nothing
                       
                    - Force update the frame
                        | method refresh takes nothing returns nothing
                       
                    - Modify frame's position
                        > Set frame's local position
                            | method move takes real x, real y returns nothing
                        > Set frame's screen position (ignores parent position)
                            | method moveEx takes real x, real y returns nothing
                        > Set frame position relative to other specified frame
                            | method relate takes UIFrame relative, real x, real y returns nothing
                           
                    - Set dimension of the frame
                        | method setSize takes real width, real height returns nothing
                       
                    - Set frame's anchor & pivot point
                        | method setPivotPoint  takes real x, real y returns nothing
                        | method setAnchorPoint takes real x, real y returns nothing
                   
                3. Members
                    - Main frame handle
                        | readonly framehandle frame

                    - Set & get frame's name
                        | string name

                    - Set & get property inheritance
                        • Frame refresh is recommended after modifying inheritance
                            | boolean inheritScale
                            | boolean inheritOpacity
                            | boolean inheritVisibility
                            | boolean inheritEnableState
                            | boolean inheritPosition
                            | boolean inheritLevel
                            | boolean scalePosition

                    - Frame's type name
                        | readonly string frameType
                       
                    - Frame's local space position
                        | readonly real localPosX
                        | readonly real localPosY
                       
                    - Frame's anchor & pivot points
                        | readonly real anchorX
                        | readonly real anchorY
                        | readonly real pivotX
                        | readonly real pivotY
                       
                    - Frame's unscaled size
                        | readonly real unscaledWidth
                        | readonly real unscaledHeight
                       
                    - Get frame text font properties
                        | readonly integer fontFlags
                        | readonly real    fontSize
                        | readonly string  fontType
                       
                    - Slider frame's min max value
                        | readonly real valueMin
                        | readonly real valueMax
                       
                    - Create context index of the frame
                        | readonly integer context
                       
                    - Local states of the frame
                        | readonly boolean visibleSelf
                        | readonly boolean enabledSelf
                       
                    - Is the frame a simple frame type or not
                        | readonly boolean isSimple
                       
                    - Local transparency of the frame
                        | readonly integer localOpacity
                       
                4. Static Members
                    - Representation for null frame
                        | readonly static UIFrame Null
                       
                    - Currently iterated frame of "forEachChild" method
                        | readonly static UIFrame EnumChild
                       
                    - Triggerer of the "onAnyEvent"
                        | readonly static UIFrame TriggerComponent

                    - Primitive frame names
                        | readonly static string TYPE_TEXT
                        | readonly static string TYPE_SIMPLE_TEXT
                        | readonly static string TYPE_TEXTURE
                        | readonly static string TYPE_SIMPLE_TEXTURE
                        | readonly static string TYPE_BUTTON
                        | readonly static string TYPE_SIMPLE_BUTTON
                        | readonly static string TYPE_BAR
                        | readonly static string TYPE_H_SLIDER
                        | readonly static string TYPE_V_SLIDER
                                                                                                                                                                                                                                                                                                        */
                                                                                                                                                                                                                                                                                                        endif
   /*           struct UIUtils                                                                                                                                                                                                                                                                            */static if FOLD then /*
   
                1. Static Methods
                    - Calculate aspect ratio height
                        | static method CalcAspectRatio takes real w, real h, real aspectWidth returns integer
                       
                    - Convert pixel unit to DPI and vice versa
                        • Usage: [value]*UIUtils.PXTODPI
                                 [value]*UIUtils.DPITOPX
                            | static method operator PXTODPI takes nothing returns real
                            | static method operator DPITOPX takes nothing returns real
                           
                    - Width of the 4:3 bound
                        | static method operator FrameBoundWidth takes nothing returns real
       
                    - Convert from pixel to screen x/y coordinate (in DPI unit)
                        | static method GetScreenPosX takes real x returns real
                        | static method GetScreenPosY takes real y returns real
                       
                    - Force update default frames
                        | static method RefreshDefaultFrames takes nothing returns nothing
                       
                    - Force update resolution
                        | static method RefreshResolution takes nothing returns nothing
                       
                    - Resolution change event
                        | static method RegisterOnResolutionChangeEvent takes code func returns triggercondition
                        | static method RemoveOnResolutionChangeEvent   takes triggercondition cond returns nothing
                       
                2. Static Members
                    - Updated after resolution change event
                        • Values might be async between clients
                            | readonly static integer ResolutionWidth
                            | readonly static integer ResolutionHeight
                            | readonly static integer AspectWidth
                            | readonly static integer AspectHeight
                                                                                                                                                                                                                                                                                                        */
                                                                                                                                                                                                                                                                                                        endif
   /*           struct DefaultFrame (singleton)                                                                                                                                                                                                                                                            */static if FOLD then /*
                    - Origin frames
                        | readonly static framehandle         Game
                        | readonly static framehandle         World
                        | readonly static framehandle         HeroBar
                        | readonly static framehandle array   HeroButton        [0 - 6]
                        | readonly static framehandle array   HeroHPBar         [0 - 6]
                        | readonly static framehandle array   HeroMPBar         [0 - 6]
                        | readonly static framehandle array   HeroIndicator     [0 - 6]
                        | readonly static framehandle array   ItemButton        [0 - 5]
                        | readonly static framehandle array   CommandButton     [0 - 11]
                        | readonly static framehandle array   SystemButton      [0 - 3]
                        | readonly static framehandle         Portrait
                        | readonly static framehandle         Minimap
                        | readonly static framehandle array   MinimapButton     [0 - 4]
                        | readonly static framehandle         Tooltip
                        | readonly static framehandle         UberTooltip
                        | readonly static framehandle         ChatMsg
                        | readonly static framehandle         UnitMsg
                        | readonly static framehandle         TopMsg
             
                    - Other frames
                        | readonly static framehandle         Console
                        | readonly static framehandle         GoldText
                        | readonly static framehandle         LumberText
                        | readonly static framehandle         FoodText
                        | readonly static framehandle         UnitNameText
                        | readonly static framehandle         ResourceBar
                        | readonly static framehandle         UpperButtonBar
                                                                                                                                                                                                                                                                                                        */
                                                                                                                                                                                                                                                                                                        endif
   /*
    *    V. Configurations
    *                                                                                                                                                                                                                                                                                                    */globals
        // 1. TOC file path
            private constant string TOC_FILE = "war3mapimported\\UIUtils.toc"
           
        // 2. Temporary cache name
            private constant string CACHE_NAME = "UIUtils.w3v"
           
        // 3. Resolution change detection interval
            private constant real RESOLUTION_CHECK_INTERVAL = 0.1
           
        // 4. true : hides console frames on map init (full screen)
            private constant boolean HIDE_CONSOLE_FRAME = true

        // 5. true : frame's properties will be retained when it changes parent
            private constant boolean PERSISTENT_CHILD_PROPERTIES = true
           
        // 6. true : helps to prevent non-simple frame from going beyond the 4:3 bounds
            private constant boolean REFRAIN_NON_SIMPLE_FRAME = true

        // 7. Reference resolution, as which is used to design the interface
            private constant integer RESOLUTION_WIDTH  = 1360
            private constant integer RESOLUTION_HEIGHT = 768

       
        // 8. Configure in-game message frame
            private constant boolean MESSAGE_FRAME_VISIBLE  = true
            private constant real    MESSAGE_FRAME_ANCHOR_X = 0.0
            private constant real    MESSAGE_FRAME_ANCHOR_Y = 1.0
            private constant real    MESSAGE_FRAME_PIVOT_X  = 0.0
            private constant real    MESSAGE_FRAME_PIVOT_Y  = 1.0
            private constant real    MESSAGE_FRAME_POS_X    = 100.0
            private constant real    MESSAGE_FRAME_POS_Y    = -150.0
           
        // 9. Configure in-game chat frame
            private constant boolean CHAT_FRAME_VISIBLE  = true
            private constant real    CHAT_FRAME_ANCHOR_X = 0.0
            private constant real    CHAT_FRAME_ANCHOR_Y = 0.0
            private constant real    CHAT_FRAME_PIVOT_X  = 0.0
            private constant real    CHAT_FRAME_PIVOT_Y  = 0.0
            private constant real    CHAT_FRAME_POS_X    = 10.0
            private constant real    CHAT_FRAME_POS_Y    = 100.0
           
        // 10. Configure tooltips frame
            private constant boolean TOOLTIPS_FRAME_VISIBLE  = true
            private constant real    TOOLTIPS_FRAME_ANCHOR_X = 1.0
            private constant real    TOOLTIPS_FRAME_ANCHOR_Y = 0.0
            private constant real    TOOLTIPS_FRAME_PIVOT_X  = 1.0
            private constant real    TOOLTIPS_FRAME_PIVOT_Y  = 0.0
            private constant real    TOOLTIPS_FRAME_POS_X    = -50.0
            private constant real    TOOLTIPS_FRAME_POS_Y    = 0.0
           
        // 11. Configure minimap frame
            private constant boolean MINIMAP_FRAME_VISIBLE  = false
            private constant real    MINIMAP_FRAME_ANCHOR_X = 1.0
            private constant real    MINIMAP_FRAME_ANCHOR_Y = 1.0
            private constant real    MINIMAP_FRAME_PIVOT_X  = 1.0
            private constant real    MINIMAP_FRAME_PIVOT_Y  = 1.0
            private constant real    MINIMAP_FRAME_POS_X    = 0.0
            private constant real    MINIMAP_FRAME_POS_Y    = 0.0
           
        // 12. Configure unit portrait frame
            private constant boolean PORTRAIT_FRAME_VISIBLE  = false
            private constant real    PORTRAIT_FRAME_ANCHOR_X = 0.0
            private constant real    PORTRAIT_FRAME_ANCHOR_Y = 0.0
            private constant real    PORTRAIT_FRAME_PIVOT_X  = 0.0
            private constant real    PORTRAIT_FRAME_PIVOT_Y  = 0.0
            private constant real    PORTRAIT_FRAME_POS_X    = 0.0
            private constant real    PORTRAIT_FRAME_POS_Y    = 0.0
           
        // 13. Configure other frame visibility
            private constant boolean RESOURCE_FRAME_VISIBLE   = false
            private constant boolean CMD_BUTTON_FRAME_VISIBLE = false
                                                                                                                                                                                                                                                                                                            endglobals
   /*
    *    END OF DOCUMENT ----- Modify following codes on your own risk
    *
    *********************************************************************************/
   
    private module DefaultFrameInit
        private static method onInit takes nothing returns nothing
            local integer i

            set Game        = BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0)
            set World       = BlzGetOriginFrame(ORIGIN_FRAME_WORLD_FRAME, 0)
            set HeroBar     = BlzGetOriginFrame(ORIGIN_FRAME_HERO_BAR, 0)
            set Portrait    = BlzGetOriginFrame(ORIGIN_FRAME_PORTRAIT, 0)
            set Minimap     = BlzGetOriginFrame(ORIGIN_FRAME_MINIMAP, 0)
            set Tooltip     = BlzGetOriginFrame(ORIGIN_FRAME_TOOLTIP, 0)
            set UberTooltip = BlzGetOriginFrame(ORIGIN_FRAME_UBERTOOLTIP, 0)
            set ChatMsg     = BlzGetOriginFrame(ORIGIN_FRAME_CHAT_MSG, 0)
            set UnitMsg     = BlzGetOriginFrame(ORIGIN_FRAME_UNIT_MSG, 0)
            set TopMsg      = BlzGetOriginFrame(ORIGIN_FRAME_TOP_MSG, 0)

            set i = 0
            loop
                exitwhen i > 11
                set HeroButton[i]    = BlzGetOriginFrame(ORIGIN_FRAME_HERO_BUTTON, i)
                set HeroHPBar[i]     = BlzGetOriginFrame(ORIGIN_FRAME_HERO_HP_BAR, i)
                set HeroMPBar[i]     = BlzGetOriginFrame(ORIGIN_FRAME_HERO_MANA_BAR, i)
                set HeroIndicator[i] = BlzGetOriginFrame(ORIGIN_FRAME_HERO_BUTTON_INDICATOR, i)
                set ItemButton[i]    = BlzGetOriginFrame(ORIGIN_FRAME_ITEM_BUTTON, i)
                set CommandButton[i] = BlzGetOriginFrame(ORIGIN_FRAME_COMMAND_BUTTON, i)
                set SystemButton[i]  = BlzGetOriginFrame(ORIGIN_FRAME_SYSTEM_BUTTON, i)
                set MinimapButton[i] = BlzGetOriginFrame(ORIGIN_FRAME_MINIMAP_BUTTON, i)
                set i = i + 1
            endloop
   
            set Console    = BlzGetFrameByName("ConsoleUI", 0)
            set GoldText   = BlzGetFrameByName("ResourceBarGoldText", 0)
            set LumberText = BlzGetFrameByName("ResourceBarLumberText", 0)
            set FoodText   = BlzGetFrameByName("ResourceBarSupplyText", 0)
            set ResourceBar = BlzGetFrameByName("ResourceBarFrame", 0)
            set UnitNameText = BlzGetFrameByName("SimpleNameValue", 0)
            set UpperButtonBar = BlzGetFrameByName("UpperButtonBarFrame", 0)

        endmethod
    endmodule

    private module UIUtilsInit
        private static method onInit takes nothing returns nothing
            local integer i
           
            call RefreshResolution()
            static if HIDE_CONSOLE_FRAME then
                call BlzEnableUIAutoPosition(false)
                call BlzFrameClearAllPoints(DefaultFrame.World)
                call BlzFrameClearAllPoints(DefaultFrame.Console)
                call BlzFrameSetAllPoints(DefaultFrame.World, DefaultFrame.Game)
                call BlzFrameSetAbsPoint(DefaultFrame.Console, FRAMEPOINT_TOPRIGHT, -999.0, -999.0)
                call RefreshDefaultFrames()
                static if not RESOURCE_FRAME_VISIBLE then
                    call BlzFrameClearAllPoints(DefaultFrame.GoldText)
                    call BlzFrameSetAbsPoint(DefaultFrame.GoldText, FRAMEPOINT_BOTTOMLEFT, -999.0, -999.0)
                    call BlzFrameClearAllPoints(DefaultFrame.LumberText)
                    call BlzFrameSetAbsPoint(DefaultFrame.LumberText, FRAMEPOINT_BOTTOMLEFT, -999.0, -999.0)
                    call BlzFrameClearAllPoints(DefaultFrame.FoodText)
                    call BlzFrameSetAbsPoint(DefaultFrame.FoodText, FRAMEPOINT_BOTTOMLEFT, -999.0, -999.0)
                    call BlzFrameClearAllPoints(DefaultFrame.ResourceBar)
                    call BlzFrameSetAbsPoint(DefaultFrame.ResourceBar, FRAMEPOINT_BOTTOMLEFT, -999.0, -999.0)
                endif
                static if not CMD_BUTTON_FRAME_VISIBLE then
                    set i = 0
                    loop
                        exitwhen DefaultFrame.CommandButton[i] == null
                        call BlzFrameClearAllPoints(DefaultFrame.CommandButton[i])
                        call BlzFrameSetAbsPoint(DefaultFrame.CommandButton[i], FRAMEPOINT_BOTTOMLEFT, -999.0, -999.0)
                        set i = i + 1
                    endloop
                endif
            endif
            call TimerStart(CreateTimer(), RESOLUTION_CHECK_INTERVAL, true, function thistype.CheckResolution)
        endmethod
    endmodule
   
    struct DefaultFrame extends array
        readonly static framehandle         Game            = null
        readonly static framehandle         World           = null
        readonly static framehandle         HeroBar         = null
        readonly static framehandle array   HeroButton
        readonly static framehandle array   HeroHPBar
        readonly static framehandle array   HeroMPBar
        readonly static framehandle array   HeroIndicator
        readonly static framehandle array   ItemButton
        readonly static framehandle array   CommandButton
        readonly static framehandle array   SystemButton
        readonly static framehandle         Portrait        = null
        readonly static framehandle         Minimap         = null
        readonly static framehandle array   MinimapButton
        readonly static framehandle         Tooltip         = null
        readonly static framehandle         UberTooltip     = null
        readonly static framehandle         ChatMsg         = null
        readonly static framehandle         UnitMsg         = null
        readonly static framehandle         TopMsg          = null

        readonly static framehandle         Console         = null
        readonly static framehandle         GoldText        = null
        readonly static framehandle         LumberText      = null
        readonly static framehandle         FoodText        = null
        readonly static framehandle         UnitNameText    = null
        readonly static framehandle         ResourceBar     = null
        readonly static framehandle         UpperButtonBar  = null
       
        implement DefaultFrameInit
    endstruct
   
    private keyword AllComponents

    struct UIUtils extends array
        readonly static integer ResolutionWidth  = RESOLUTION_WIDTH
        readonly static integer ResolutionHeight = RESOLUTION_HEIGHT
        readonly static integer AspectWidth  = 0
        readonly static integer AspectHeight = 0
        
        readonly static real ScaleFactor = 1
       
        private static trigger resolutionChangeTrigg = CreateTrigger()

        static method CalcAspectRatio takes real w, real h, real aspectWidth returns integer
            return R2I(aspectWidth*h/w+0.5)
        endmethod
       
        static method operator PXTODPI takes nothing returns real
            return 0.6/ResolutionHeight
        endmethod
       
        static method operator DPITOPX takes nothing returns real
            return ResolutionHeight/0.6
        endmethod
       
        static method operator FrameBoundWidth takes nothing returns real
            return (ResolutionWidth-ResolutionHeight/600.*800.)/2.
        endmethod
       
        static method GetScreenPosX takes real x returns real
            return (-FrameBoundWidth+x)*PXTODPI
        endmethod
       
        static method GetScreenPosY takes real y returns real
            return y*PXTODPI
        endmethod
       
        static method RefreshDefaultFrames takes nothing returns nothing
            static if MESSAGE_FRAME_VISIBLE then
                call BlzFrameClearAllPoints(DefaultFrame.UnitMsg)
                call BlzFrameSetAbsPoint(DefaultFrame.UnitMsg, FRAMEPOINT_BOTTOMLEFT,/*
                */ GetScreenPosX(MESSAGE_FRAME_POS_X+ResolutionWidth*MESSAGE_FRAME_ANCHOR_X-BlzFrameGetWidth(DefaultFrame.UnitMsg)*DPITOPX*MESSAGE_FRAME_PIVOT_X),/*
                */ GetScreenPosY(MESSAGE_FRAME_POS_Y+ResolutionHeight*MESSAGE_FRAME_ANCHOR_Y-BlzFrameGetHeight(DefaultFrame.UnitMsg)*DPITOPX*MESSAGE_FRAME_PIVOT_Y))
            endif
           
            static if CHAT_FRAME_VISIBLE then
                call BlzFrameSetAbsPoint(DefaultFrame.ChatMsg, FRAMEPOINT_BOTTOMLEFT,/*
                */ GetScreenPosX(CHAT_FRAME_POS_X+ResolutionWidth*CHAT_FRAME_ANCHOR_X-BlzFrameGetWidth(DefaultFrame.ChatMsg)*DPITOPX*CHAT_FRAME_PIVOT_X),/*
                */ GetScreenPosY(CHAT_FRAME_POS_Y+ResolutionHeight*CHAT_FRAME_ANCHOR_Y-BlzFrameGetHeight(DefaultFrame.ChatMsg)*DPITOPX*CHAT_FRAME_PIVOT_Y))
            endif

            static if TOOLTIPS_FRAME_VISIBLE then
                call BlzFrameClearAllPoints(DefaultFrame.UberTooltip)
                call BlzFrameSetAbsPoint(DefaultFrame.UberTooltip, FRAMEPOINT_BOTTOMLEFT,/*
                */ GetScreenPosX(TOOLTIPS_FRAME_POS_X+ResolutionWidth*TOOLTIPS_FRAME_ANCHOR_X-BlzFrameGetWidth(DefaultFrame.UberTooltip)*DPITOPX*TOOLTIPS_FRAME_PIVOT_X),/*
                */ GetScreenPosY(TOOLTIPS_FRAME_POS_Y+ResolutionHeight*TOOLTIPS_FRAME_ANCHOR_Y-BlzFrameGetHeight(DefaultFrame.UberTooltip)*DPITOPX*TOOLTIPS_FRAME_PIVOT_Y))
            endif
           
            call BlzFrameClearAllPoints(DefaultFrame.Minimap)
            static if MINIMAP_FRAME_VISIBLE then
                call BlzFrameSetAbsPoint(DefaultFrame.Minimap, FRAMEPOINT_BOTTOMLEFT,/*
                */ GetScreenPosX(MINIMAP_FRAME_POS_X+ResolutionWidth*MINIMAP_FRAME_ANCHOR_X-BlzFrameGetWidth(DefaultFrame.Minimap)*DPITOPX*MINIMAP_FRAME_PIVOT_X),/*
                */ GetScreenPosY(MINIMAP_FRAME_POS_Y+ResolutionHeight*MINIMAP_FRAME_ANCHOR_Y-BlzFrameGetHeight(DefaultFrame.Minimap)*DPITOPX*MINIMAP_FRAME_PIVOT_Y))
            else
                call BlzFrameSetAbsPoint(DefaultFrame.Minimap, FRAMEPOINT_BOTTOMLEFT, -999.0, -999.0)
            endif

            call BlzFrameClearAllPoints(DefaultFrame.Portrait)
            static if PORTRAIT_FRAME_VISIBLE then
                call BlzFrameSetAbsPoint(DefaultFrame.Portrait, FRAMEPOINT_BOTTOMLEFT,/*
                */ GetScreenPosX(PORTRAIT_FRAME_POS_X+ResolutionWidth*PORTRAIT_FRAME_ANCHOR_X-BlzFrameGetWidth(DefaultFrame.Portrait)*DPITOPX*PORTRAIT_FRAME_PIVOT_X),/*
                */ GetScreenPosY(PORTRAIT_FRAME_POS_Y+ResolutionHeight*PORTRAIT_FRAME_ANCHOR_Y-BlzFrameGetHeight(DefaultFrame.Portrait)*DPITOPX*PORTRAIT_FRAME_PIVOT_Y))
            else
                call BlzFrameSetAbsPoint(DefaultFrame.Portrait, FRAMEPOINT_BOTTOMLEFT, -999.0, -999.0)
            endif
        endmethod
       
        static method RefreshResolution takes nothing returns nothing
            local AllComponents node
           
            set ResolutionWidth  = BlzGetLocalClientWidth()
            set ResolutionHeight = BlzGetLocalClientHeight()
            set ScaleFactor  = I2R(ResolutionHeight)/I2R(RESOLUTION_HEIGHT)
            if CalcAspectRatio(ResolutionWidth, ResolutionHeight, 4) == 3 then
                set AspectWidth  = 4
                set AspectHeight = 3
            elseif CalcAspectRatio(ResolutionWidth, ResolutionHeight, 16) == 9 then
                set AspectWidth  = 16
                set AspectHeight = 9
            elseif CalcAspectRatio(ResolutionWidth, ResolutionHeight, 16) == 10 then
                set AspectWidth  = 16
                set AspectHeight = 10
            elseif CalcAspectRatio(ResolutionWidth, ResolutionHeight, 21) == 9 then
                set AspectWidth  = 21
                set AspectHeight = 9
            elseif CalcAspectRatio(ResolutionWidth, ResolutionHeight, 32) == 9 then
                set AspectWidth  = 32
                set AspectHeight = 9
            else
                set AspectWidth  = 0
                set AspectHeight = 0
            endif
            set node = AllComponents.base.next
            loop
                exitwhen node.head or node == 0
                if UIFrame(node).parent == UIFrame.Null then
                    call UIFrame(node).refresh()
                endif
                set node = node.next
            endloop
        endmethod

        private static method CheckResolution takes nothing returns nothing
            if BlzGetLocalClientWidth() != ResolutionWidth or BlzGetLocalClientHeight() != ResolutionHeight then
                call RefreshResolution()
                call RefreshDefaultFrames()
                call TriggerEvaluate(resolutionChangeTrigg)
            endif
        endmethod
       
        static method RegisterOnResolutionChangeEvent takes code func returns triggercondition
            return TriggerAddCondition(resolutionChangeTrigg, Condition(func))
        endmethod
       
        static method RemoveOnResolutionChangeEvent takes triggercondition cond returns nothing
            call TriggerRemoveCondition(resolutionChangeTrigg, cond)
        endmethod

        implement UIUtilsInit
    endstruct
   
    private struct UISubFrame
        static UIFrame frame = 0
        method operator [] takes string s returns framehandle
            return BlzGetFrameByName(s, frame.context)
        endmethod
    endstruct
   
    struct UIFrame extends array
        implement LinkedList

        string  name
        boolean inheritScale
        boolean inheritOpacity
        boolean inheritVisibility
        boolean inheritEnableState
        boolean inheritPosition
        boolean inheritLevel
        boolean scalePosition

        readonly string  frameType
        readonly real    localPosX
        readonly real    localPosY
        readonly real    anchorX
        readonly real    anchorY
        readonly real    pivotX
        readonly real    pivotY
        readonly real    unscaledWidth
        readonly real    unscaledHeight
        readonly real    valueMin
        readonly real    valueMax
        readonly real    fontSize
        readonly string  fontType
        readonly integer fontFlags
        readonly integer context
        readonly boolean isSimple
        readonly boolean visibleSelf
        readonly boolean enabledSelf
        readonly integer localOpacity
       
        private real     m_localScale
        private real     m_stepSize
        private integer  m_level
        private thistype m_parent
        private thistype m_childs
        private thistype m_tooltips
       
        private string  mainTextureFile
        private string  disabledTextureFile
        private string  pushedTextureFile
        private string  highlightTextureFile
        private string  backgroundTextureFile
        private string  borderTextureFile
        private string  modelFile
        private trigger anyEventTrigg

        readonly framehandle frame
        private  framehandle textFrameH
        private  framehandle modelFrameH
        private  framehandle mainTextureH
        private  framehandle disabledTextureH
        private  framehandle pushedTextureH
        private  framehandle highlightTextureH
        private  framehandle backgroundTextureH
        private  framehandle borderTextureH

        readonly static thistype Null = 0
        readonly static thistype EnumChild = 0
        readonly static thistype TriggerComponent = 0
       
        readonly static string TYPE_TEXT            = "UIUtilsText"
        readonly static string TYPE_SIMPLE_TEXT     = "UIUtilsSimpleText"
        readonly static string TYPE_TEXTURE         = "UIUtilsTexture"
        readonly static string TYPE_SIMPLE_TEXTURE  = "UIUtilsSimpleTexture"
        readonly static string TYPE_BUTTON          = "UIUtilsButton"
        readonly static string TYPE_SIMPLE_BUTTON   = "UIUtilsSimpleButton"
        readonly static string TYPE_BAR             = "UIUtilsBar"
        readonly static string TYPE_H_SLIDER        = "UIUtilsSliderH"
        readonly static string TYPE_V_SLIDER        = "UIUtilsSliderV"

        private static trigger ExecTrigg = CreateTrigger()
        private static gamecache GC
        private static hashtable HT

        private static method IsSimple takes string frameType, boolean isSimple returns boolean
            return frameType == TYPE_SIMPLE_TEXT or frameType == TYPE_SIMPLE_TEXTURE or frameType == TYPE_BAR or isSimple and not (frameType == TYPE_TEXT or frameType == TYPE_TEXTURE or frameType == TYPE_BUTTON or frameType == TYPE_H_SLIDER or frameType == TYPE_V_SLIDER)
        endmethod

        private static method GetTriggerComponent takes nothing returns boolean
            set TriggerComponent = LoadInteger(HT, GetHandleId(BlzGetTriggerFrame()), 0)
            return false
        endmethod
       
        method operator subFrame takes nothing returns UISubFrame
            set UISubFrame.frame = this
            return 0
        endmethod

        method operator onAnyEvent= takes code func returns triggercondition
            local integer i
   
            if .anyEventTrigg == null then
                set .anyEventTrigg = CreateTrigger()
                set i = 1
                loop
                    exitwhen i > 16
                    call BlzTriggerRegisterFrameEvent(.anyEventTrigg, .frame, ConvertFrameEventType(i))
                    set i = i + 1
                endloop
                call TriggerAddCondition(.anyEventTrigg, Condition(function thistype.GetTriggerComponent))
            endif
   
            return TriggerAddCondition(.anyEventTrigg, Condition(func))
        endmethod

        method operator parent= takes thistype frm returns nothing
            if frm != Null then
                if .m_parent != frm then
                    call .removeNode()
                endif
                call frm.m_childs.insertNode(this)
            endif
            static if not PERSISTENT_CHILD_PROPERTIES then
                if .m_parent != Null then
                    set .localScale = .localScale*.m_parent.localScale
                endif
                set .localPosX = .screenPosX - frm.screenPosX
                set .localPosY = .screenPosY - frm.screenPosY
            endif
            set .m_parent = frm
            call refresh()
        endmethod

        method operator parent takes nothing returns thistype
            return .m_parent
        endmethod

        method operator text= takes string str returns nothing
            call BlzFrameSetText(.textFrameH, str)
        endmethod

        method operator text takes nothing returns string
            return BlzFrameGetText(.textFrameH)
        endmethod

        method operator maxLength= takes integer length returns nothing
            call BlzFrameSetTextSizeLimit(.textFrameH, length)
        endmethod

        method operator maxLength takes nothing returns integer
            return BlzFrameGetTextSizeLimit(.textFrameH)
        endmethod

        method operator textColor= takes integer color returns nothing
            call BlzFrameSetTextColor(.textFrameH, color)
        endmethod

        method operator texture= takes string filePath returns nothing
            set .mainTextureFile = filePath
            call BlzFrameSetTexture(.mainTextureH, filePath, 0, true)
            if StringLength(.disabledTextureFile) == 0 then
                set .disabledTexture = filePath
            endif
            if StringLength(.pushedTextureFile) == 0 then
                set .pushedTexture = filePath
            endif
        endmethod

        method operator texture takes nothing returns string
            return .mainTextureFile
        endmethod

        method operator disabledTexture= takes string filePath returns nothing
            set .disabledTextureFile = filePath
            call BlzFrameSetTexture(.disabledTextureH, filePath, 0, true)
        endmethod

        method operator disabledTexture takes nothing returns string
            return .disabledTextureFile
        endmethod

        method operator highlightTexture= takes string filePath returns nothing
            set .highlightTextureFile = filePath
            call BlzFrameSetTexture(.highlightTextureH, filePath, 0, true)
        endmethod

        method operator highlightTexture takes nothing returns string
            return .highlightTextureFile
        endmethod

        method operator pushedTexture= takes string filePath returns nothing
            set .pushedTextureFile = filePath
            call BlzFrameSetTexture(.pushedTextureH, filePath, 0, true)
        endmethod

        method operator pushedTexture takes nothing returns string
            return .pushedTextureFile
        endmethod

        method operator backgroundTexture= takes string filePath returns nothing
            set .backgroundTextureFile = filePath
            call BlzFrameSetTexture(.backgroundTextureH, filePath, 0, true)
        endmethod

        method operator backgroundTexture takes nothing returns string
            return .backgroundTextureFile
        endmethod

        method operator borderTexture= takes string filePath returns nothing
            set .borderTextureFile = filePath
            call BlzFrameSetTexture(.borderTextureH, filePath, 0, true)
        endmethod

        method operator borderTexture takes nothing returns string
            return .borderTextureFile
        endmethod

        method operator model= takes string filePath returns nothing
            set .modelFile = filePath
            call BlzFrameSetModel(.modelFrameH, filePath, 0)
        endmethod

        method operator model takes nothing returns string
            return .modelFile
        endmethod
       
        method operator width takes nothing returns real
            return .unscaledWidth*.scale
        endmethod
       
        method operator height takes nothing returns real
            return .unscaledHeight*.scale
        endmethod

        method operator localScale= takes real r returns nothing
            local thistype node = .m_childs.next

            set .m_localScale = RMaxBJ(r, 0.0001)
            call setSize(.unscaledWidth, .unscaledHeight)
            call setFont(.fontType, .fontSize, .fontFlags)
            call move(.localPosX, .localPosY)
            loop
                exitwhen node.head or node == 0
                set node.localScale = node.localScale
                set node = node.next
            endloop
        endmethod

        method operator localScale takes nothing returns real
            return .m_localScale
        endmethod

        method operator scale takes nothing returns real
            if .parent == Null or not .inheritScale then
                return .localScale
            else
                return .localScale*.parent.scale
            endif
        endmethod

        method operator opacity= takes integer amount returns nothing
            local thistype node = .m_childs.next

            set .localOpacity = amount
            call BlzFrameSetAlpha(.frame, .opacity)
            loop
                exitwhen node.head or node == 0
                set node.opacity = node.localOpacity
                set node = node.next
            endloop
        endmethod

        method operator opacity takes nothing returns integer
            if .parent == Null or not .inheritOpacity then
                return .localOpacity
            else
                return R2I(I2R(.localOpacity)*I2R(.parent.opacity)/255.)
            endif
        endmethod

        method operator level= takes integer level returns nothing
            local thistype node = .m_childs.next

            set .m_level = level
            call BlzFrameSetLevel(.frame, .trueLevel)
            loop
                exitwhen node.head or node == 0
                set node.level = node.m_level
                set node = node.next
            endloop
        endmethod

        method operator level takes nothing returns integer
            return .m_level
        endmethod

        method operator trueLevel takes nothing returns integer
            if .parent == Null or not .inheritLevel then
                return .m_level
            else
                return .m_level+.parent.level
            endif
        endmethod

        method operator visible= takes boolean state returns nothing
            local thistype node = .m_childs.next

            set .visibleSelf = state
            call BlzFrameSetVisible(.frame, .visible)
            loop
                exitwhen node.head or node == 0
                set node.visible = node.visibleSelf
                set node = node.next
            endloop
        endmethod

        method operator visible takes nothing returns boolean
            if .parent == Null or not .inheritVisibility then
                return .visibleSelf
            else
                return .visibleSelf and .parent.visible
            endif
        endmethod

        method operator enabled= takes boolean state returns nothing
            local thistype node = .m_childs.next

            set .enabledSelf = state
            call BlzFrameSetEnable(.frame, .enabled)
            loop
                exitwhen node.head or node == 0
                set node.enabled = node.enabledSelf
                set node = node.next
            endloop
        endmethod

        method operator enabled takes nothing returns boolean
            if .parent == Null or not .inheritEnableState then
                return .enabledSelf
            else
                return .enabledSelf and .parent.enabled
            endif
        endmethod

        method operator vertexColor= takes integer color returns nothing
            call BlzFrameSetVertexColor(.modelFrameH, color)
        endmethod

        method operator value= takes real r returns nothing
            call BlzFrameSetValue(.frame, r)
        endmethod

        method operator value takes nothing returns real
            return BlzFrameGetValue(.frame)
        endmethod

        method operator stepSize= takes real r returns nothing
            set .m_stepSize = RMaxBJ(r, 0.0001)
            call BlzFrameSetStepSize(.frame, .m_stepSize)
        endmethod

        method operator stepSize takes nothing returns real
            return .m_stepSize
        endmethod

        method operator tooltips= takes thistype frame returns nothing
            set .m_tooltips = frame
            call BlzFrameSetTooltip(.frame, frame.frame)
        endmethod

        method operator tooltips takes nothing returns thistype
            return .m_tooltips
        endmethod
       
        method operator left takes nothing returns real
            return .screenPosX-.width*.pivotX
        endmethod
       
        method operator right takes nothing returns real
            return .left+.width
        endmethod
       
        method operator bottom takes nothing returns real
            return .screenPosY-.height*.pivotY
        endmethod
       
        method operator top takes nothing returns real
            return .bottom+.height
        endmethod
       
        private method normalizePosX takes real x returns real
            return RMinBJ(RMaxBJ(x, UIUtils.FrameBoundWidth+.width*.pivotX), UIUtils.ResolutionWidth-UIUtils.FrameBoundWidth-.width*(1.-.pivotX))
        endmethod
       
        method operator screenPosX takes nothing returns real
            if .parent == Null or not .inheritPosition then
                if not .isSimple then
                    return normalizePosX(.localPosX+UIUtils.ResolutionWidth*.anchorX)
                else
                    return .localPosX+UIUtils.ResolutionWidth*.anchorX
                endif
            elseif .scalePosition then
                return .parent.left+.parent.width*.anchorX+.localPosX*.parent.scale
            else
                return .parent.left+.parent.width*.anchorX+.localPosX
            endif
        endmethod
       
        method operator screenPosY takes nothing returns real
            if .parent == Null or not .inheritPosition then
                return .localPosY+UIUtils.ResolutionHeight*.anchorY
            elseif .scalePosition then
                return .parent.bottom+.parent.height*.anchorY+.localPosY*.parent.scale
            else
                return .parent.bottom+.parent.height*.anchorY+.localPosY
            endif
        endmethod
       
        private method normalizeScaledPosX takes real x returns real
            return RMinBJ(RMaxBJ(x, UIUtils.FrameBoundWidth+.width*.pivotX*UIUtils.ScaleFactor), UIUtils.ResolutionWidth-UIUtils.FrameBoundWidth-.width*(1.-.pivotX)*UIUtils.ScaleFactor)
        endmethod
       
        private method operator scaledLeft takes nothing returns real
            return .scaledScreenPosX-.width*.pivotX*UIUtils.ScaleFactor
        endmethod
       
        private method operator scaledBottom takes nothing returns real
            return .scaledScreenPosY-.height*.pivotY*UIUtils.ScaleFactor
        endmethod
       
        private method operator scaledScreenPosX takes nothing returns real
            if .parent == Null or not .inheritPosition then
                if not .isSimple then
                    return normalizeScaledPosX(.localPosX*UIUtils.ScaleFactor+UIUtils.ResolutionWidth*.anchorX)
                else
                    return .localPosX*UIUtils.ScaleFactor+UIUtils.ResolutionWidth*.anchorX
                endif
            elseif .scalePosition then
                return .parent.scaledLeft+(.parent.width*.anchorX+.localPosX*.parent.scale)*UIUtils.ScaleFactor
            else
                return .parent.scaledLeft+(.parent.width*.anchorX+.localPosX)*UIUtils.ScaleFactor
            endif
        endmethod
       
        private method operator scaledScreenPosY takes nothing returns real
            if .parent == Null or not .inheritPosition then
                return .localPosY*UIUtils.ScaleFactor+UIUtils.ResolutionHeight*.anchorY
            elseif .scalePosition then
                return .parent.scaledBottom+(.parent.height*.anchorY+.localPosY*.parent.scale)*UIUtils.ScaleFactor
            else
                return .parent.scaledBottom+(.parent.height*.anchorY+.localPosY)*UIUtils.ScaleFactor
            endif
        endmethod

        method setAnchorPoint takes real x, real y returns nothing
            set .anchorX = x
            set .anchorY = y
            call move(.localPosX, .localPosY)
        endmethod

        method setPivotPoint takes real x, real y returns nothing
            set .pivotX = x
            set .pivotY = y
            call move(.localPosX, .localPosY)
        endmethod

        method setSize takes real width, real height returns nothing
            set .unscaledWidth  = RMaxBJ(width,  0)
            set .unscaledHeight = RMaxBJ(height, 0)
            call BlzFrameSetSize(frame, .width*UIUtils.ScaleFactor*UIUtils.PXTODPI, .height*UIUtils.ScaleFactor*UIUtils.PXTODPI)
            if .pivotX + .pivotY + .anchorX + .anchorY != 0 then
                call move(.localPosX, .localPosY)
            endif
        endmethod

        method move takes real x, real y returns nothing
            local thistype node = .m_childs.next

            set .localPosX = x
            set .localPosY = y
            if not .isSimple then
                set x = normalizeScaledPosX(.scaledScreenPosX-.width*.pivotX*UIUtils.ScaleFactor)
            else
                set x = .scaledScreenPosX-.width*.pivotX*UIUtils.ScaleFactor
            endif
            call BlzFrameSetAbsPoint(.frame, FRAMEPOINT_BOTTOMLEFT, UIUtils.GetScreenPosX(x), UIUtils.GetScreenPosY(.scaledScreenPosY-.height*.pivotY*UIUtils.ScaleFactor))
            loop
                exitwhen node.head or node == 0
                call node.move(node.localPosX, node.localPosY)
                set node = node.next
            endloop
        endmethod

        method moveEx takes real x, real y returns nothing
            if .parent == Null or not .inheritPosition then
                call move(x, y)
            else
                call move((x-.parent.screenPosX)/.parent.localScale, (y-.parent.screenPosY)/.parent.localScale)
            endif
        endmethod

        method relate takes thistype relative, real x, real y returns nothing
            if .parent == Null then
                call move(relative.screenPosX+x, relative.screenPosY+y)
            else
                call moveEx(relative.screenPosX+x, relative.screenPosY+y)
            endif
        endmethod
       
        method refresh takes nothing returns nothing
            set .visible = .visibleSelf
            set .enabled = .enabledSelf
            set .opacity = .localOpacity
            set .level   = .m_level
            set .localScale = .localScale
            call setFont(.fontType, .fontSize, .fontFlags)
        endmethod

        method click takes nothing returns nothing
            call BlzFrameClick(.frame)
        endmethod

        method cageMouse takes boolean state returns nothing
            call BlzFrameCageMouse(.frame, state)
        endmethod

        method setFocus takes boolean state returns nothing
            call BlzFrameSetFocus(.frame, state)
        endmethod

        method setSpriteAnimate takes integer primaryProp, integer flags returns nothing
            call BlzFrameSetSpriteAnimate(.frame, primaryProp, flags)
        endmethod

        method setMinMaxValue takes real min, real max returns nothing
            set .valueMin = min
            set .valueMax = max
            call BlzFrameSetMinMaxValue(.frame, min, max)
        endmethod

        method setFont takes string fontType, real fontSize, integer flags returns nothing
            set .fontSize = fontSize
            set .fontType = fontType
            set .fontFlags = flags
            if .frameType == TYPE_SIMPLE_TEXT then
                call BlzFrameSetFont(.textFrameH, fontType, fontSize*.scale, flags)
            endif
        endmethod

        method setTextAlignment takes textaligntype vertical, textaligntype horizontal returns nothing
            call BlzFrameSetTextAlignment(.textFrameH, vertical, horizontal)
        endmethod

        private method getSubFrame takes string name returns framehandle
            local framehandle h = BlzGetFrameByName(name, .context)
           
            if h == null then
                return .frame
            else
                return h
            endif
        endmethod

        method forEachChild takes code func returns nothing
            local thistype node = .m_childs.next

            call TriggerAddAction(ExecTrigg, func)
            loop
                exitwhen node.head or node == 0
                set EnumChild = node
                call TriggerExecute(ExecTrigg)
                set node = node.next
            endloop
            call TriggerClearActions(ExecTrigg)
        endmethod

        method destroy takes nothing returns nothing
            local thistype node = .m_childs.next
   
            loop
                exitwhen node.head or node == 0
                call node.destroy()
                set node = node.next
            endloop
            call BlzDestroyFrame(.frame)
            call DestroyTrigger(.anyEventTrigg)
            call StoreInteger(GC, name, I2S(.context), GetStoredInteger(GC, name, "0"))
            call StoreInteger(GC, name, "0", .context)
            call AllComponents.remove(this)
            call .m_childs.flushNode()
            call removeNode()
            call deallocate()

            set .anyEventTrigg      = null
            set .mainTextureH       = null
            set .disabledTextureH   = null
            set .highlightTextureH  = null
            set .pushedTextureH     = null
            set .backgroundTextureH = null
            set .borderTextureH     = null
            set .textFrameH         = null
            set .modelFrameH        = null
            set .frame              = null
            set .name               = null
            set .frameType          = null
            set .m_parent           = Null
            set .m_childs           = 0
        endmethod

        static method create takes boolean isSimple, string frameType, thistype parent, real x, real y, integer level returns thistype
            local thistype this = allocate()
            local integer tempInt
   
            set .context = GetStoredInteger(GC, frameType, "0")
            set tempInt  = GetStoredInteger(GC, frameType, I2S(context))
            if tempInt == 0 then
                call StoreInteger(GC, frameType, "0", context+1)
            else
                call StoreInteger(GC, frameType, "0", tempInt)
            endif
   
            set .parent             = parent
            set .m_childs           = createNode()
            set .isSimple           = IsSimple(frameType, isSimple)
            if .isSimple then
                set .frame          = BlzCreateSimpleFrame(frameType, DefaultFrame.Game, .context)
            else
                set .frame          = BlzCreateFrame(frameType, DefaultFrame.Game, 0, .context)
            endif
            set .mainTextureH       = getSubFrame(frameType + "Texture")
            set .disabledTextureH   = getSubFrame(frameType + "Disabled")
            set .highlightTextureH  = getSubFrame(frameType + "Highlight")
            set .pushedTextureH     = getSubFrame(frameType + "Pushed")
            set .backgroundTextureH = getSubFrame(frameType + "Background")
            set .borderTextureH     = getSubFrame(frameType + "Border")
            set .textFrameH         = getSubFrame(frameType + "Text")
            set .modelFrameH        = getSubFrame(frameType + "Model")

            set .inheritScale       = true
            set .inheritOpacity     = true
            set .inheritVisibility  = true
            set .inheritEnableState = true
            set .inheritPosition    = true
            set .inheritLevel       = true
            set .scalePosition      = true
   
            set .unscaledWidth      = BlzFrameGetWidth(.frame)*(RESOLUTION_HEIGHT/0.6)
            set .unscaledHeight     = BlzFrameGetHeight(.frame)*(RESOLUTION_HEIGHT/0.6)
            set .frameType          = frameType
            set .name               = frameType + I2S(.context)
            set .level              = level
            set .visibleSelf        = true
            set .enabledSelf        = true
            set .fontType           = "Fonts\\FRIZQT__.TTF"
            set .fontSize           = 0.013
            set .fontFlags          = 0
            set .value              = 0.0
            set .localScale         = 1.0
            set .anchorX            = 0.0
            set .anchorY            = 0.0
            set .pivotX             = 0.0
            set .pivotY             = 0.0
            set .opacity            = 255
   
            set .mainTextureFile       = ""
            set .disabledTextureFile   = ""
            set .pushedTextureFile     = ""
            set .highlightTextureFile  = ""
            set .backgroundTextureFile = ""
            set .borderTextureFile     = ""
            set .modelFile             = ""
   
            call move(x, y)
            call setMinMaxValue(0.0, 1.0)
            call AllComponents.add(this)
            call SaveInteger(HT, GetHandleId(.frame), 0, this)

            return this
        endmethod

        private static method onInit takes nothing returns nothing
            set HT = InitHashtable()
            set GC = InitGameCache(CACHE_NAME)
            call BlzLoadTOCFile(TOC_FILE)
        endmethod
    endstruct

    private struct AllComponents extends array
        implement LinkedList

        static method add takes thistype this returns nothing
            call base.insertNode(this)
        endmethod

        static method remove takes thistype this returns nothing
            call removeNode()
        endmethod
    endstruct
   
endlibrary

library LinkedListModule /* v2.3.1

Easy implementation of linked lists into structs.

***********************************************************************
*
*   module LinkedList
*
*       -   Implement at the top of your struct, must extend array
*
*       thistype next
*       thistype prev
*       boolean  head
*
*       readonly static thistype base
*           -   Precreated head, useful for non-dynamic lists.
*
*       static method allocate takes nothing returns thistype
*       method deallocate takes nothing returns nothing
*
*       static method createNode takes nothing returns thistype
*           -   Allocates a new node pointing towards itself.
*           -   These nodes are considered "heads" therefore it's head
*           -   boolean member is set to true.
*       method insertNode takes thistype toInsert returns thistype
*           -   Inserts the instance before the node.
*       method removeNode takes nothing returns nothing
*           -   Removes the node from the list.
*       method clearNode takes nothing returns nothing
*           -   Deallocates all the instances within the node's range.
*       method flushNode takes nothing returns nothing
*           -   Clears and deallocates the node.
*
*   module LinkedListLite
*       -   Only has the members and the allocation methods.
*       -   To be used with the provided textmacros.
*
*       textmacro LINKED_LIST_HEAD takes node
*           -   Turns the node into a head.
*       textmacro LINKED_LIST_INSERT takes node, toInsert
*           -   Inserts the instance before the node.
*       textmacro LINKED_LIST_REMOVE takes node
*           -   Removes the node from the list.
*       textmacro LINKED_LIST_CLEAR takes node
*           -   Deallocates all the instances within the node's range.
*       textmacro LINKED_LIST_FLUSH takes node
*           -   Clears and deallocates the node.
*       textmacro LINKED_LIST_MERGE takes nodeA, nodeB
*           -   Merges two lists together (Don't merge loose nodes!)
*
**********************************************************************/
    
    module LinkedListLite

        private static integer instanceCount = 0

        thistype next
        thistype prev
        boolean  head
        
        static method allocate takes nothing returns thistype
            local thistype this = thistype(0).prev
            if this==0 then
                debug if instanceCount==8190 then
                    debug call BJDebugMsg("[LinkedList] Error: attempted to allocate too many instances.")
                    debug return 0
                debug endif
                set instanceCount = instanceCount+1
                return instanceCount
            endif
            set thistype(0).prev = prev
            return this
        endmethod
        
        method deallocate takes nothing returns nothing
            set this.prev=thistype(0).prev
            set thistype(0).prev=this
            set this.head=false
        endmethod

    endmodule

    module LinkedList
        implement LinkedListLite
        
        static method operator base takes nothing returns thistype
            return 8190
        endmethod
        
        static method createNode takes nothing returns thistype
            local thistype this=allocate()
            //! runtextmacro LINKED_LIST_HEAD("this")
            return this
        endmethod
        
        method clearNode takes nothing returns nothing
            //! runtextmacro LINKED_LIST_CLEAR("this")
        endmethod
        
        method flushNode takes nothing returns nothing
            //! runtextmacro LINKED_LIST_FLUSH("this")
        endmethod
        
        method insertNode takes thistype toInsert returns nothing            
            //! runtextmacro LINKED_LIST_INSERT("this","toInsert")
        endmethod
        
        method removeNode takes nothing returns nothing
            //! runtextmacro LINKED_LIST_REMOVE("this")
        endmethod
        
        private static method onInit takes nothing returns nothing
            set thistype(8190).next = 8190
            set thistype(8190).prev = 8190
            set thistype(8190).head = true
        endmethod
        
        static if DEBUG_MODE then
            method print takes nothing returns nothing
                local string s=""
                local thistype exit=this
                loop
                    set s=s+I2S(this)
                    set this = next
                    exitwhen this==exit
                    set s = s+" - "
                endloop
                call BJDebugMsg("[ "+s+" ]")
            endmethod
        endif
        
    endmodule

    //! textmacro LINKED_LIST_HEAD takes node
        set $node$.next = this
        set $node$.prev = this
        set $node$.head = true
    //! endtextmacro
        
    //! textmacro LINKED_LIST_CLEAR takes node
        if $node$!=$node$.next then
            set $node$.next.prev = thistype(0).prev
            set thistype(0).prev = $node$.prev
            set $node$.next = $node$
            set $node$.prev = $node$
        endif
    //! endtextmacro
        
    //! textmacro LINKED_LIST_FLUSH takes node
        set $node$.next.prev = thistype(0).prev
        set thistype(0).prev = $node$
        set $node$.head = false
    //! endtextmacro
        
    //! textmacro LINKED_LIST_INSERT takes node, toInsert
        set $node$.prev.next = $toInsert$
        set $toInsert$.prev = $node$.prev
        set $node$.prev = $toInsert$
        set $toInsert$.next = $node$
    //! endtextmacro
        
    //! textmacro LINKED_LIST_REMOVE takes node
        set $node$.prev.next = $node$.next
        set $node$.next.prev = $node$.prev
    //! endtextmacro

    //! textmacro LINKED_LIST_MERGE takes nodeA, nodeB
        set $nodeA$.next.prev = $nodeB$.prev
        set $nodeB$.prev.next = $nodeA$.next
        set $nodeA$.next = $nodeB$
        set $nodeB$.prev = $nodeA$
    //! endtextmacro

endlibrary

function RaceisStarting takes integer nPlayerIndex returns boolean
    return ( udg_RaceIsStartingSoon[nPlayerIndex] == true )
endfunction

function CreateHonkSound takes integer nIndex returns sound
    local string strPath = udg_ModelHonkPath[nIndex]
    local sound snd = CreateSound( strPath, false, true, false, 10, 10, "DefaultEAXON" )
    call SetSoundDuration( snd, udg_ModelHonkDur[nIndex] )
    call SetSoundChannel( snd, 0 )
    call SetSoundVolume( snd, 127 )
    call SetSoundPitch( snd, 1.0 )
    call SetSoundDistances( snd, 1000.0, 10000.0 )
    call SetSoundDistanceCutoff( snd, 3000.0 )
    call SetSoundConeAngles( snd, 0.0, 0.0, 127 )
    call SetSoundConeOrientation( snd, 0.0, 0.0, 0.0 )
    return snd
endfunction

function CreateSpinSound takes integer nIndex returns sound
    local string strPath = udg_ModelSpinPath[nIndex]
    local sound snd = CreateSound( strPath, false, true, false, 10, 10, "DefaultEAXON" )
    call SetSoundDuration( snd, udg_ModelSpinDur[nIndex] )
    call SetSoundChannel( snd, 0 )
    call SetSoundVolume( snd, 127 )
    call SetSoundPitch( snd, 1.0 )
    call SetSoundDistances( snd, 1000.0, 10000.0 )
    call SetSoundDistanceCutoff( snd, 3000.0 )
    call SetSoundConeAngles( snd, 0.0, 0.0, 127 )
    call SetSoundConeOrientation( snd, 0.0, 0.0, 0.0 )
    return snd
endfunction

function GetCartSoundIndex takes integer nPlayerIndex, integer nSound returns integer
    return nSound * udg_PLAYER_MAXNUM + nPlayerIndex
endfunction

function GetCartSound takes integer nPlayerIndex, integer nSound returns sound
    return udg_CartSounds[GetCartSoundIndex(nPlayerIndex, nSound)]
endfunction

function SetCartSound takes integer nPlayerIndex, integer nSound, sound sndCart returns nothing
    set udg_CartSounds[GetCartSoundIndex(nPlayerIndex, nSound)] = sndCart
endfunction

function ChangeCartSound takes integer nPlayerIndex, integer nSound returns nothing
    if ( udg_CartSndPlaying[nPlayerIndex] == nSound ) then
        return
    endif

    if ( udg_CartSndPlaying[nPlayerIndex] != udg_SNDINDEX_NONE ) then
        call StopSoundBJ( GetCartSound( nPlayerIndex, udg_CartSndPlaying[nPlayerIndex] ), true )
    endif

    set udg_CartSndPlaying[nPlayerIndex] = nSound
    if ( nSound != udg_SNDINDEX_NONE ) then
if ( RaceisStarting(nPlayerIndex) ) then
        call PlaySoundOnUnitBJ( GetCartSound( nPlayerIndex, udg_CartSndPlaying[nPlayerIndex] ), 7, udg_Carts[nPlayerIndex] )
else
        call PlaySoundOnUnitBJ( GetCartSound( nPlayerIndex, udg_CartSndPlaying[nPlayerIndex] ), 7, udg_Carts[nPlayerIndex] )
    endif
endif
endfunction

//===========================================================================
function InitTrig_Sound_Functions takes nothing returns nothing
endfunction

function InitializePlayer takes nothing returns nothing
    local integer nPlayerIndex = 0

    loop
        exitwhen nPlayerIndex >= 23

        call SetPlayerAbilityAvailable( Player(nPlayerIndex), 'A01V', false )

        set nPlayerIndex = nPlayerIndex + 1         
    endloop

    set nPlayerIndex = 0
    set udg_PlaceNum = 0
    loop
        exitwhen nPlayerIndex >= udg_PLAYER_MAXNUM
        if ( GetPlayerController(Player(nPlayerIndex)) == MAP_CONTROL_USER and GetPlayerSlotState(Player(nPlayerIndex)) == PLAYER_SLOT_STATE_PLAYING ) then
            set udg_Places[udg_PlaceNum] = nPlayerIndex
            set udg_PlaceNum = udg_PlaceNum + 1
        endif
        set nPlayerIndex = nPlayerIndex + 1
    endloop

    set nPlayerIndex = 0
    loop
        exitwhen nPlayerIndex >= udg_PLAYER_MAXNUM
        set udg_VulnerableSignal[nPlayerIndex] = CreateItem( 'I000', GetRectCenterX(gg_rct_VulnerableArea), GetRectCenterY(gg_rct_VulnerableArea) )
        set nPlayerIndex = nPlayerIndex + 1
    endloop
endfunction

function InitializeModelArray takes nothing returns nothing
    local integer nIndex = 0
    local integer nIndex1 = 0
    set udg_MODEL_NUM = 0

    set udg_DriverAnimName[0] = "Spell Slam"
    set udg_DriverAnimName[1] = "Stand - 3"
    set udg_DriverAnimName[2] = "Stand Victory"
    set udg_DriverAnimName[3] = "Spell"
    set udg_DriverAnimName[4] = "Stand Alternate"

    set udg_DriverSound[0] = gg_snd_VictoryDiablo
    set udg_DriverSound[1] = gg_snd_VictoryGrunt
    set udg_DriverSound[2] = gg_snd_VictoryLich
    set udg_DriverSound[3] = gg_snd_VictoryDwarf

    //Diablo
    set udg_Models[nIndex1] = 'h000'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00B'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00H'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 3
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 1
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 0
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 2
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 3
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 5
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00P'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 4
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 0
    set nIndex1 = nIndex1 + 1

    set udg_ModelIcons[udg_MODEL_NUM] = "ReplaceableTextures\\CommandButtons\\BTNDiabloCar.blp"
    set udg_ModelDescription[udg_MODEL_NUM] = ""

    set udg_ModelAttributes[nIndex] = 175.00
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 1.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 8
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 0.006
    set nIndex = nIndex + 1

    set udg_MODEL_NUM = udg_MODEL_NUM + 1

    //Orc
    set udg_Models[nIndex1] = 'h002'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h001'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00C'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 0
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 2
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 0
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 3
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 1
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 5
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00O'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 4
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 1
    set nIndex1 = nIndex1 + 1

    set udg_ModelIcons[udg_MODEL_NUM] = "ReplaceableTextures\\CommandButtons\\BTNOrcCar.blp"
    set udg_ModelDescription[udg_MODEL_NUM] = ""

    set udg_ModelAttributes[nIndex] = 200.00
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 1.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 7.2
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 0.006
    set nIndex = nIndex + 1

    set udg_MODEL_NUM = udg_MODEL_NUM + 1

    //Undead
    set udg_Models[nIndex1] = 'h004'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h007'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00F'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 1
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 0
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 3
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 2
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 5
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 1
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00N'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 4
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 2
    set nIndex1 = nIndex1 + 1

    set udg_ModelIcons[udg_MODEL_NUM] = "ReplaceableTextures\\CommandButtons\\BTNUndeadCar.blp"
    set udg_ModelDescription[udg_MODEL_NUM] = ""

    set udg_ModelAttributes[nIndex] = 210.00
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 1.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 6.5
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 0.006
    set nIndex = nIndex + 1

    set udg_MODEL_NUM = udg_MODEL_NUM + 1

    //Dwarf
    set udg_Models[nIndex1] = 'h008'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h009'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00G'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 2
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 0
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 2
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 3
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 4
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 1
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00M'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 4
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 3
    set nIndex1 = nIndex1 + 1

    set udg_ModelIcons[udg_MODEL_NUM] = "ReplaceableTextures\\CommandButtons\\BTNDwarfCar.blp"
    set udg_ModelDescription[udg_MODEL_NUM] = ""
    set udg_ModelAttributes[nIndex] = 195.00
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 1.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 7.5
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 0.006
    set nIndex = nIndex + 1

    set udg_MODEL_NUM = udg_MODEL_NUM + 1

    return

    //Night Elf
    set udg_Models[nIndex1] = 'h006'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h003'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00D'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 1
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 0
    set nIndex1 = nIndex1 + 1

    set udg_ModelIcons[udg_MODEL_NUM] = "ReplaceableTextures\\CommandButtons\\BTNGlaiveThrower.blp"

    set udg_ModelAttributes[nIndex] = 220.00
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 1.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 8.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 0.006
    set nIndex = nIndex + 1

    set udg_MODEL_NUM = udg_MODEL_NUM + 1

    //Judge
    set udg_Models[nIndex1] = 'h00A'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h005'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 'h00E'
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 2
    set nIndex1 = nIndex1 + 1
    set udg_Models[nIndex1] = 3
    set nIndex1 = nIndex1 + 1

    set udg_ModelIcons[udg_MODEL_NUM] = "ReplaceableTextures\\CommandButtons\\BTNInfernalFlameCannon.blp"

    set udg_ModelAttributes[nIndex] = 200.00
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 1.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 7.
    set nIndex = nIndex + 1
    set udg_ModelAttributes[nIndex] = 0.006
    set nIndex = nIndex + 1

    set udg_MODEL_NUM = udg_MODEL_NUM + 1

endfunction

function InitializePlayerColor takes nothing returns nothing
    set udg_PlayerColorRed[0] = 255
    set udg_PlayerColorGreen[0] = 0
    set udg_PlayerColorBlue[0] = 0
    set udg_PlayerColor[0] = "|cffff0000"
    // ----------------------------------------------------------------------------------------------------------------------------------------
    set udg_PlayerColorRed[1] = 0
    set udg_PlayerColorGreen[1] = 0
    set udg_PlayerColorBlue[1] = 255
    set udg_PlayerColor[1] = "|cff0000ff"
    // ----------------------------------------------------------------------------------------------------------------------------------------
    set udg_PlayerColorRed[2] = 0
    set udg_PlayerColorGreen[2] = 255
    set udg_PlayerColorBlue[2] = 255
    set udg_PlayerColor[2] = "|cff00ffff"
    // ----------------------------------------------------------------------------------------------------------------------------------------
    set udg_PlayerColorRed[3] = 128
    set udg_PlayerColorGreen[3] = 0
    set udg_PlayerColorBlue[3] = 128
    set udg_PlayerColor[3] = "|cff800080"
    // ----------------------------------------------------------------------------------------------------------------------------------------
    set udg_PlayerColorRed[4] = 255
    set udg_PlayerColorGreen[4] = 255
    set udg_PlayerColorBlue[4] = 0
    set udg_PlayerColor[4] = "|cffffff00"
    // ----------------------------------------------------------------------------------------------------------------------------------------
    set udg_PlayerColorRed[5] = 255
    set udg_PlayerColorGreen[5] = 128
    set udg_PlayerColorBlue[5] = 0
    set udg_PlayerColor[5] = "|cffff8000"
    // ----------------------------------------------------------------------------------------------------------------------------------------
    set udg_PlayerColorRed[6] = 0
    set udg_PlayerColorGreen[6] = 255
    set udg_PlayerColorBlue[6] = 0
    set udg_PlayerColor[6] = "|cff00ff00"
    // ----------------------------------------------------------------------------------------------------------------------------------------
    set udg_PlayerColorRed[7] = 255
    set udg_PlayerColorGreen[7] = 0
    set udg_PlayerColorBlue[7] = 255
    set udg_PlayerColor[7] = "|cffff00ff"
endfunction

function InitializePitCrews takes real rFace returns nothing
    local integer nIndex = 0

    loop
        exitwhen nIndex >= udg_PITGARAGE_NUM
        call SetUnitFacing( udg_PitCrews[nIndex], rFace )
        set nIndex = nIndex + 1
    endloop
endfunction

function InitializeCartPowerUps takes nothing returns nothing
    local integer nPlayerIndex = 0
    local integer nSlot = 0
    local integer nIndex = 0

    loop
        exitwhen nPlayerIndex >= udg_PLAYER_MAXNUM

        set nSlot = 0
        loop
            exitwhen nSlot >= 4

            set udg_CartPowerUps[nIndex] = 0
            set nIndex = nIndex + 1

            set nSlot = nSlot + 1
        endloop

        set nPlayerIndex = nPlayerIndex + 1         
    endloop
endfunction

function InitializeSound takes nothing returns nothing
    set udg_BigGunSound[0] = gg_snd_GyrocopterImpactHit100
    set udg_BigGunSound[1] = gg_snd_GyrocopterImpactHit101
    set udg_BigGunSound[2] = gg_snd_GyrocopterImpactHit102
    set udg_BigGunSound[3] = gg_snd_GyrocopterImpactHit103
    set udg_BigGunSound[4] = gg_snd_GyrocopterImpactHit104
    set udg_BigGunSound[5] = gg_snd_GyrocopterImpactHit105
    set udg_BigGunSound[6] = gg_snd_GyrocopterImpactHit106
    set udg_BigGunSound[7] = gg_snd_GyrocopterImpactHit107
    set udg_BigGunSound[8] = gg_snd_GyrocopterImpactHit108
    set udg_BigGunSound[9] = gg_snd_GyrocopterImpactHit109
    set udg_BigGunSound[10] = gg_snd_GyrocopterImpactHit110
    set udg_BigGunSound[11] = gg_snd_GyrocopterImpactHit111
    set udg_BigGunSound[12] = gg_snd_GyrocopterImpactHit112
    set udg_BigGunSound[13] = gg_snd_GyrocopterImpactHit113
    set udg_BigGunSound[14] = gg_snd_GyrocopterImpactHit114
    set udg_BigGunSound[15] = gg_snd_GyrocopterImpactHit115
    set udg_BigGunSound[16] = gg_snd_GyrocopterImpactHit116
    set udg_BigGunSound[17] = gg_snd_GyrocopterImpactHit117
    set udg_BigGunSound[18] = gg_snd_GyrocopterImpactHit118
    set udg_BigGunSound[19] = gg_snd_GyrocopterImpactHit119
    set udg_BigGunSound[20] = gg_snd_GyrocopterImpactHit120
    set udg_BigGunSound[21] = gg_snd_GyrocopterImpactHit121
    set udg_BigGunSound[22] = gg_snd_GyrocopterImpactHit122
    set udg_BigGunSound[23] = gg_snd_GyrocopterImpactHit123

    set udg_BlizzardSound[0] = gg_snd_BlizzardLoop100
    set udg_BlizzardSound[1] = gg_snd_BlizzardLoop101
    set udg_BlizzardSound[2] = gg_snd_BlizzardLoop102
    set udg_BlizzardSound[3] = gg_snd_BlizzardLoop103
    set udg_BlizzardSound[4] = gg_snd_BlizzardLoop104
    set udg_BlizzardSound[5] = gg_snd_BlizzardLoop105
    set udg_BlizzardSound[6] = gg_snd_BlizzardLoop106
    set udg_BlizzardSound[7] = gg_snd_BlizzardLoop107
    set udg_BlizzardSound[8] = gg_snd_BlizzardLoop108
    set udg_BlizzardSound[9] = gg_snd_BlizzardLoop109
    set udg_BlizzardSound[10] = gg_snd_BlizzardLoop110
    set udg_BlizzardSound[11] = gg_snd_BlizzardLoop111
    set udg_BlizzardSound[12] = gg_snd_BlizzardLoop112
    set udg_BlizzardSound[13] = gg_snd_BlizzardLoop113
    set udg_BlizzardSound[14] = gg_snd_BlizzardLoop114
    set udg_BlizzardSound[15] = gg_snd_BlizzardLoop115
    set udg_BlizzardSound[16] = gg_snd_BlizzardLoop116
    set udg_BlizzardSound[17] = gg_snd_BlizzardLoop117
    set udg_BlizzardSound[18] = gg_snd_BlizzardLoop118
    set udg_BlizzardSound[19] = gg_snd_BlizzardLoop119
    set udg_BlizzardSound[20] = gg_snd_BlizzardLoop120
    set udg_BlizzardSound[21] = gg_snd_BlizzardLoop121
    set udg_BlizzardSound[22] = gg_snd_BlizzardLoop122
    set udg_BlizzardSound[23] = gg_snd_BlizzardLoop123


    call SetCartSound( 0, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop0 )
    call SetCartSound( 1, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop1 )
    call SetCartSound( 2, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop2 )
    call SetCartSound( 3, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop3 )
    call SetCartSound( 4, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop4 )
    call SetCartSound( 5, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop5 )
    call SetCartSound( 6, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop6 )
    call SetCartSound( 7, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop7 )
    call SetCartSound( 8, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop )
    call SetCartSound( 9, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop01 )
    call SetCartSound( 10, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop02 )
    call SetCartSound( 11, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop03 )
    call SetCartSound( 12, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop04 )
    call SetCartSound( 13, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop05 )
    call SetCartSound( 14, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop06 )
    call SetCartSound( 15, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop07 )
    call SetCartSound( 16, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop08 )
    call SetCartSound( 17, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop09 )
    call SetCartSound( 18, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop10 )
    call SetCartSound( 19, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop11 )
    call SetCartSound( 20, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop12 )
    call SetCartSound( 21, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop13 )
    call SetCartSound( 22, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop14 )
    call SetCartSound( 23, udg_SNDINDEX_COAST, gg_snd_W3RaceCarLoop15 )

    call SetCartSound( 0, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_0 )
    call SetCartSound( 1, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_1 )
    call SetCartSound( 2, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_2 )
    call SetCartSound( 3, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_3 )
    call SetCartSound( 4, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_4 )
    call SetCartSound( 5, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_5 )
    call SetCartSound( 6, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_6 )
    call SetCartSound( 7, udg_SNDINDEX_GOING1, gg_snd_W3RaceCarGoing1_7 )
    call SetCartSound( 8, udg_SNDINDEX_GOING1, gg_snd_CarLoop1 )
    call SetCartSound( 9, udg_SNDINDEX_GOING1, gg_snd_CarLoop101 )
    call SetCartSound( 10, udg_SNDINDEX_GOING1, gg_snd_CarLoop102 )
    call SetCartSound( 11, udg_SNDINDEX_GOING1, gg_snd_CarLoop103 )
    call SetCartSound( 12, udg_SNDINDEX_GOING1, gg_snd_CarLoop104 )
    call SetCartSound( 13, udg_SNDINDEX_GOING1, gg_snd_CarLoop105 )
    call SetCartSound( 14, udg_SNDINDEX_GOING1, gg_snd_CarLoop106 )
    call SetCartSound( 15, udg_SNDINDEX_GOING1, gg_snd_CarLoop107 )
    call SetCartSound( 16, udg_SNDINDEX_GOING1, gg_snd_CarLoop108 )
    call SetCartSound( 17, udg_SNDINDEX_GOING1, gg_snd_CarLoop109 )
    call SetCartSound( 18, udg_SNDINDEX_GOING1, gg_snd_CarLoop110 )
    call SetCartSound( 19, udg_SNDINDEX_GOING1, gg_snd_CarLoop111 )
    call SetCartSound( 20, udg_SNDINDEX_GOING1, gg_snd_CarLoop112 )
    call SetCartSound( 21, udg_SNDINDEX_GOING1, gg_snd_CarLoop113 )
    call SetCartSound( 22, udg_SNDINDEX_GOING1, gg_snd_CarLoop114 )
    call SetCartSound( 23, udg_SNDINDEX_GOING1, gg_snd_CarLoop115 )


    call SetCartSound( 0, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_0 )
    call SetCartSound( 1, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_1 )
    call SetCartSound( 2, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_2 )
    call SetCartSound( 3, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_3 )
    call SetCartSound( 4, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_4 )
    call SetCartSound( 5, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_5 )
    call SetCartSound( 6, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_6 )
    call SetCartSound( 7, udg_SNDINDEX_GOING2, gg_snd_W3RaceCarGoing2_7 )
    call SetCartSound( 8, udg_SNDINDEX_GOING2, gg_snd_CarLoop2 )
    call SetCartSound( 9, udg_SNDINDEX_GOING2, gg_snd_CarLoop201 )
    call SetCartSound( 10, udg_SNDINDEX_GOING2, gg_snd_CarLoop202 )
    call SetCartSound( 11, udg_SNDINDEX_GOING2, gg_snd_CarLoop203 )
    call SetCartSound( 12, udg_SNDINDEX_GOING2, gg_snd_CarLoop204 )
    call SetCartSound( 13, udg_SNDINDEX_GOING2, gg_snd_CarLoop205 )
    call SetCartSound( 14, udg_SNDINDEX_GOING2, gg_snd_CarLoop206 )
    call SetCartSound( 15, udg_SNDINDEX_GOING2, gg_snd_CarLoop207 )
    call SetCartSound( 16, udg_SNDINDEX_GOING2, gg_snd_CarLoop208 )
    call SetCartSound( 17, udg_SNDINDEX_GOING2, gg_snd_CarLoop209 )
    call SetCartSound( 18, udg_SNDINDEX_GOING2, gg_snd_CarLoop210 )
    call SetCartSound( 19, udg_SNDINDEX_GOING2, gg_snd_CarLoop211 )
    call SetCartSound( 20, udg_SNDINDEX_GOING2, gg_snd_CarLoop212 )
    call SetCartSound( 21, udg_SNDINDEX_GOING2, gg_snd_CarLoop213 )
    call SetCartSound( 22, udg_SNDINDEX_GOING2, gg_snd_CarLoop214 )
    call SetCartSound( 23, udg_SNDINDEX_GOING2, gg_snd_CarLoop215 )


    call SetCartSound( 0, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_0 )
    call SetCartSound( 1, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_1 )
    call SetCartSound( 2, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_2 )
    call SetCartSound( 3, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_3 )
    call SetCartSound( 4, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_4 )
    call SetCartSound( 5, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_5 )
    call SetCartSound( 6, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_6 )
    call SetCartSound( 7, udg_SNDINDEX_GOING3, gg_snd_W3RaceCarGoing3_7 )
    call SetCartSound( 8, udg_SNDINDEX_GOING3, gg_snd_CarLoop3 )
    call SetCartSound( 9, udg_SNDINDEX_GOING3, gg_snd_CarLoop301 )
    call SetCartSound( 10, udg_SNDINDEX_GOING3, gg_snd_CarLoop302 )
    call SetCartSound( 11, udg_SNDINDEX_GOING3, gg_snd_CarLoop303 )
    call SetCartSound( 12, udg_SNDINDEX_GOING3, gg_snd_CarLoop304 )
    call SetCartSound( 13, udg_SNDINDEX_GOING3, gg_snd_CarLoop305 )
    call SetCartSound( 14, udg_SNDINDEX_GOING3, gg_snd_CarLoop306 )
    call SetCartSound( 15, udg_SNDINDEX_GOING3, gg_snd_CarLoop307 )
    call SetCartSound( 16, udg_SNDINDEX_GOING3, gg_snd_CarLoop308 )
    call SetCartSound( 17, udg_SNDINDEX_GOING3, gg_snd_CarLoop309 )
    call SetCartSound( 18, udg_SNDINDEX_GOING3, gg_snd_CarLoop310 )
    call SetCartSound( 19, udg_SNDINDEX_GOING3, gg_snd_CarLoop311 )
    call SetCartSound( 20, udg_SNDINDEX_GOING3, gg_snd_CarLoop312 )
    call SetCartSound( 21, udg_SNDINDEX_GOING3, gg_snd_CarLoop313 )
    call SetCartSound( 22, udg_SNDINDEX_GOING3, gg_snd_CarLoop314 )
    call SetCartSound( 23, udg_SNDINDEX_GOING3, gg_snd_CarLoop315 )


    set udg_ModelHonkPath[0] = "war3mapImported\\War3CarHonk02.wav"
    set udg_ModelHonkDur[0] = 784
    set udg_ModelHonkPath[1] = "war3mapImported\\War3CarHonk03.wav"
    set udg_ModelHonkDur[1] = 678
    set udg_ModelHonkPath[2] = "war3mapImported\\War3CarHonk05.wav"
    set udg_ModelHonkDur[2] = 1401
    set udg_ModelHonkPath[3] = "war3mapImported\\War3CarHonk08.wav"
    set udg_ModelHonkDur[3] = 1324
    set udg_ModelHonkPath[4] = "war3mapImported\\War3CarHonk02.wav"
    set udg_ModelHonkDur[4] = 784
    set udg_ModelHonkPath[5] = "war3mapImported\\War3CarHonk03.wav"
    set udg_ModelHonkDur[5] = 678
    set udg_ModelHonkPath[6] = "war3mapImported\\War3CarHonk05.wav"
    set udg_ModelHonkDur[6] = 1401
    set udg_ModelHonkPath[7] = "war3mapImported\\War3CarHonk08.wav"
    set udg_ModelHonkDur[7] = 1324
    set udg_ModelHonkPath[8] = "war3mapImported\\War3CarHonk02.wav"
    set udg_ModelHonkDur[8] = 784
    set udg_ModelHonkPath[9] = "war3mapImported\\War3CarHonk03.wav"
    set udg_ModelHonkDur[9] = 678
    set udg_ModelHonkPath[10] = "war3mapImported\\War3CarHonk05.wav"
    set udg_ModelHonkDur[10] = 1401
    set udg_ModelHonkPath[11] = "war3mapImported\\War3CarHonk08.wav"
    set udg_ModelHonkDur[12] = 1324
    set udg_ModelHonkPath[13] = "war3mapImported\\War3CarHonk02.wav"
    set udg_ModelHonkDur[13] = 784
    set udg_ModelHonkPath[14] = "war3mapImported\\War3CarHonk03.wav"
    set udg_ModelHonkDur[14] = 678
    set udg_ModelHonkPath[15] = "war3mapImported\\War3CarHonk05.wav"
    set udg_ModelHonkDur[15] = 1401
    set udg_ModelHonkPath[16] = "war3mapImported\\War3CarHonk08.wav"
    set udg_ModelHonkDur[16] = 1324
    set udg_ModelHonkPath[17] = "war3mapImported\\War3CarHonk02.wav"
    set udg_ModelHonkDur[17] = 784
    set udg_ModelHonkPath[18] = "war3mapImported\\War3CarHonk03.wav"
    set udg_ModelHonkDur[18] = 678
    set udg_ModelHonkPath[19] = "war3mapImported\\War3CarHonk05.wav"
    set udg_ModelHonkDur[19] = 1401
    set udg_ModelHonkPath[20] = "war3mapImported\\War3CarHonk08.wav"
    set udg_ModelHonkDur[20] = 1324

    set udg_ModelSpinPath[0] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[0] = 1401
    set udg_ModelSpinPath[1] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[1] = 1401
    set udg_ModelSpinPath[2] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[2] = 1401
    set udg_ModelSpinPath[3] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[3] = 1401
    set udg_ModelSpinPath[4] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[4] = 1401
    set udg_ModelSpinPath[5] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[5] = 1401
    set udg_ModelSpinPath[6] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[6] = 1401
    set udg_ModelSpinPath[7] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[7] = 1401
    set udg_ModelSpinPath[8] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[8] = 1401
    set udg_ModelSpinPath[9] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[9] = 1401
    set udg_ModelSpinPath[10] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[10] = 1401
    set udg_ModelSpinPath[11] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[11] = 1401
    set udg_ModelSpinPath[12] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[12] = 1401
    set udg_ModelSpinPath[13] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[13] = 1401
    set udg_ModelSpinPath[14] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[14] = 1401
    set udg_ModelSpinPath[15] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[15] = 1401
    set udg_ModelSpinPath[16] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[16] = 1401
    set udg_ModelSpinPath[17] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[17] = 1401
    set udg_ModelSpinPath[18] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[18] = 1401
    set udg_ModelSpinPath[19] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[19] = 1401
    set udg_ModelSpinPath[20] = "war3mapImported\\SpinSOundv5.wav"
    set udg_ModelSpinDur[20] = 1401

    set udg_REDturtleAUTOSOUND[0] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[1] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[2] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[3] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[4] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[5] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[6] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[7] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[8] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[9] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[10] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[11] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[12] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[13] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[14] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[15] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[16] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[17] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[18] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[19] = gg_snd_RedShellFollow3Dv3
    set udg_REDturtleAUTOSOUND[20] = gg_snd_RedShellFollow3Dv3

    set udg_GREENturtleAUTOSOUND[0] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[1] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[2] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[3] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[4] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[5] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[6] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[7] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[8] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[9] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[10] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[11] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[12] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[13] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[14] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[15] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[16] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[17] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[18] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[19] = gg_snd_GreenShellFollow3Dv3
    set udg_GREENturtleAUTOSOUND[20] = gg_snd_GreenShellFollow3Dv3


endfunction

function IceTrunkFilter takes nothing returns boolean
    return GetUnitTypeId( GetFilterUnit() ) == 'n00M' and IsUnitAliveBJ( GetFilterUnit() )
endfunction

function Trig_IceTrunk_Conditions takes nothing returns boolean
    if ( not IsItACart( GetUnitTypeId( GetTriggerUnit() ) ) ) then
        return false
    elseif ( not IsUnitAliveBJ( GetTriggerUnit() ) ) then
        return false
    elseif ( not IsCartVisible( GetTriggerUnit() ) ) then
        return false
    elseif ( not IsCartVulnerable( GetTriggerUnit() ) ) then
        return false
    endif

    return true
endfunction

function Trig_IceTrunk_Actions takes nothing returns nothing
    local unit uAttacker
    local unit uCart
    local location loc
    local group g
    local unit uIceTrunk
    local integer nIndex
    local integer nPlayerIndex
    local effect eff

    call ShowDebugMsg( "Trig_IceTrunk_Actions" )

    set uCart = GetTriggerUnit()
    set nPlayerIndex = GetPlayerIndex( GetOwningPlayer( uCart ) )
    if ( nPlayerIndex < 0 ) then
        return
    endif

    if ( udg_IceTrunkCooldown[nPlayerIndex] >= 0 ) then
        return
    endif

    set loc = GetUnitLoc( uCart )

    set udg_Frozen[nPlayerIndex] = true
    set udg_Speed[nPlayerIndex] = 0
    call SetUnitTimeScale( udg_Carts[nPlayerIndex], 1 )
    call SetCartInvulnerable( udg_Carts[nPlayerIndex], true )

    set uAttacker = CreateUnit( udg_HOSTILE, 'n00N', GetUnitX(uCart), GetUnitY(uCart), 0 )
    call IssueTargetOrder( uAttacker, "attack", uCart )
    call UnitApplyTimedLife( uAttacker, 'BTLF', 2 )

    set eff = AddSpecialEffectTarget( "Abilities\\Spells\\Undead\\FreezingBreath\\FreezingBreathMissile.mdl", udg_Carts[nPlayerIndex], "origin" )
    call DestroyEffect( eff )

    set g = GetUnitsInRangeOfLocMatching( 400, loc, Condition(function IceTrunkFilter) )
    call RemoveLocation( loc )
    loop
        set uIceTrunk = FirstOfGroup( g )
        exitwhen uIceTrunk == null

        set nIndex = GetUnitUserData( uIceTrunk)
        if ( udg_IceTrunkTrigger[nIndex] == GetTriggeringTrigger() ) then
            call DestroyTrigger( udg_IceTrunkTrigger[nIndex] )
            set udg_IceTrunkTrigger[nIndex] = null
            call KillUnit( uIceTrunk )
            exitwhen true
        endif

        call GroupRemoveUnit( g, uIceTrunk )
    endloop
    call DestroyGroup( g )
endfunction

function CreateIceTrunk takes location loc returns nothing
    local integer nIndex
    local trigger t
    local unit u = CreateUnitAtLoc( udg_NPC, 'n00M', loc, I2R(GetRandomInt(0, 359)) )

    set t = CreateTrigger(  )
    call TriggerRegisterUnitInRangeSimple( t, 60, u )
    call TriggerAddCondition( t, Condition( function Trig_IceTrunk_Conditions ) )
    call TriggerAddAction( t, function Trig_IceTrunk_Actions )

    set nIndex = 0
    loop
        exitwhen nIndex >= udg_IceTrunkTriggerNum
        exitwhen udg_IceTrunkTrigger[nIndex] == null
        set nIndex = nIndex + 1
    endloop

    set udg_IceTrunkTrigger[nIndex] = t
    call SetUnitUserData( u, nIndex )
    if ( nIndex >= udg_IceTrunkTriggerNum ) then
        set udg_IceTrunkTriggerNum = udg_IceTrunkTriggerNum + 1
    endif
endfunction

function InitIceTrunk takes nothing returns nothing
    local group g = null
    local unit u
    local location loc

    set g = GetUnitsInRectMatching( gg_rct_IceTrunkArea, Condition(function IceTrunkFilter) )

    loop
        set u = FirstOfGroup( g )
        exitwhen u == null

        set loc = GetUnitLoc( u )
        call RemoveUnit( u )
        call CreateIceTrunk( loc )
        call RemoveLocation( loc )
        
        call GroupRemoveUnit( g, u )
    endloop

    call DestroyGroup( g )
endfunction

function FakeSheepFilter takes nothing returns boolean
    return GetUnitTypeId( GetFilterUnit() ) == 'n00H' and IsUnitAliveBJ( GetFilterUnit() )
endfunction

function InitSheep takes nothing returns nothing
    local group g = null
    local unit u

    set g = GetUnitsInRectMatching( gg_rct_SheepAreaFake, Condition(function FakeSheepFilter) )
    
    loop
        set u = FirstOfGroup( g )
        exitwhen u == null

        call SetUnitPathing( u, false )
        call SetUnitFacing( u, GetRandomReal(0., 359.) )
        
        call GroupRemoveUnit( g, u )
    endloop

    call DestroyGroup( g )
endfunction

//===========================================================================
function InitTrig_Initialization_Functions takes nothing returns nothing
endfunction