function DataBase takes nothing returns nothing
    //PlayersColoredNames
    call StoreString(Core(),"PlayerNames","0", "|c00FF0303"+GetPlayerName(Player(0)) +"|r")
    call StoreString(Core(),"PlayerNames","1", "|c000042FF"+GetPlayerName(Player(1)) +"|r")
    call StoreString(Core(),"PlayerNames","2", "|c001CE6B9"+GetPlayerName(Player(2)) +"|r")
    call StoreString(Core(),"PlayerNames","3", "|c00540081"+GetPlayerName(Player(3)) +"|r")
    call StoreString(Core(),"PlayerNames","4", "|c00FFFC01"+GetPlayerName(Player(4)) +"|r")
    call StoreString(Core(),"PlayerNames","5", "|c00FEBA0E"+GetPlayerName(Player(5)) +"|r")
    call StoreString(Core(),"PlayerNames","6", "|c0020C000"+GetPlayerName(Player(6)) +"|r")
    call StoreString(Core(),"PlayerNames","7", "|c00E55BB0"+GetPlayerName(Player(7)) +"|r")
    call StoreString(Core(),"PlayerNames","8", "|c00959697"+GetPlayerName(Player(8)) +"|r")
    call StoreString(Core(),"PlayerNames","9", "|c007EBFF1"+GetPlayerName(Player(9)) +"|r")
    call StoreString(Core(),"PlayerNames","10","|c00106246"+GetPlayerName(Player(10))+"|r")
    call StoreString(Core(),"PlayerNames","11","|c004E2A04"+GetPlayerName(Player(11))+"|r")
    //MultiboardSize
    call StoreReal(Core(),"MBSize","Name",8.126)
endfunction

constant function MapSize takes nothing returns real
    return 11392.
endfunction

function AreaSafe takes real R returns real

    if R > MapSize() then
        return MapSize()-64
    endif

    if R < -MapSize() then
        return -MapSize()+64
    endif

    return R
endfunction

function PolarProjectionX takes real X, real R, real A returns real
    return AreaSafe(X + Cos(A * 0.0174533) * R)
endfunction

function PolarProjectionY takes real Y, real R, real A returns real
    return AreaSafe(Y + Sin(A * 0.0174533) * R)
endfunction

function UnitAllowFly takes unit U returns nothing
    call UnitAddAbility(U, 'Amrf')
    call UnitRemoveAbility(U, 'Amrf')
endfunction

function MoveUnit takes unit Who , real X , real Y returns nothing
    if GetUnitMoveSpeed(Who) != .0 then
        call SetUnitPosition(Who,X,Y)
    else
        call SetUnitX(Who,X)
        call SetUnitY(Who,Y)
    endif
endfunction