function InitTrig_Library_Core takes nothing returns nothing
//Store and process core functions
call ExecuteFunc("DoCore_Init")
endfunction

//! library Core

globals
string Ex_Table = ""
gamecache Ex_Core = InitGameCache(c_Core_Name)
endglobals

function DoCore_Clean takes nothing returns nothing
if Ex_Core != null then
call FlushGameCache(c_udg_Core)
set Ex_Core = null
else
call FlushGameCache(InitGameCache(c_Core_Name))
endif
endfunction

function DoCore_Init takes nothing returns nothing
call DoCore_Clean()
set Ex_Core = InitGameCache(c_Core_Name)
endfunction

function SetCore takes string Table, string Key, integer Data returns nothing
call StoreInteger(Ex_Core,Table,Key,Data)
endfunction

function GetCore takes string Table, string Key returns integer
return GetStoredInteger(Ex_Core,Table,Key)
endfunction

function DropCore takes string Table returns nothing
call FlushStoredMission(Ex_Core,Table)
endfunction

function DropCore_Single takes string Table, string Key returns nothing
call FlushStoredInteger(Ex_Core,Table,Key)
endfunction

//! endlibrary

function InitTrig_Library_Movement takes nothing returns nothing
endfunction

//! library Movement

globals
location Ex_TempLoc = Location(0,0)
endglobals

function IsXSafe takes real X returns real
if X > Ex_X_Up then
return Ex_X_Up
endif

if X < Ex_X_Low then
return Ex_X_Low
endif

return X
endfunction

function IsYSafe takes real Y returns real
if Y > Ex_Y_Up then
return Ex_Y_Up
endif

if Y < Ex_Y_Low then
return Ex_Y_Low
endif

return Y
endfunction

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

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

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

function MoveUnitSafe takes unit Who,real X,real Y returns nothing
if GetUnitMoveSpeed(Who) != 0.0 then
call SetUnitPosition(Who,X,Y)
else
call SetUnitX(Who,IsXSafe(X))
call SetUnitY(Who,IsYSafe(Y))
endif
endfunction

//! endlibrary