Triggers

// ===========================
function H2I takes handle h returns integer
    return h
    return 0
endfunction

// ===========================
function LocalVars takes nothing returns gamecache
    // Replace InitGameCache("jasslocalvars.w3v") with a global variable!!
    return InitGameCache("jasslocalvars.w3v")
endfunction

function SetHandleHandle takes handle subject, string name, handle value returns nothing
    if value==null then
        call FlushStoredInteger(LocalVars(),I2S(H2I(subject)),name)
    else
        call StoreInteger(LocalVars(), I2S(H2I(subject)), name, H2I(value))
    endif
endfunction

function SetHandleInt takes handle subject, string name, integer value returns nothing
    if value==0 then
        call FlushStoredInteger(LocalVars(),I2S(H2I(subject)),name)
    else
        call StoreInteger(LocalVars(), I2S(H2I(subject)), name, value)
    endif
endfunction

function SetHandleBoolean takes handle subject, string name, boolean value returns nothing
    if value==false then
        call FlushStoredBoolean(LocalVars(),I2S(H2I(subject)),name)
    else
        call StoreBoolean(LocalVars(), I2S(H2I(subject)), name, value)
    endif
endfunction

function SetHandleReal takes handle subject, string name, real value returns nothing
    if value==0 then
        call FlushStoredReal(LocalVars(), I2S(H2I(subject)), name)
    else
        call StoreReal(LocalVars(), I2S(H2I(subject)), name, value)
    endif
endfunction

function SetHandleString takes handle subject, string name, string value returns nothing
    if value==null then
        call FlushStoredString(LocalVars(), I2S(H2I(subject)), name)
    else
        call StoreString(LocalVars(), I2S(H2I(subject)), name, value)
    endif
endfunction

function GetHandleHandle takes handle subject, string name returns handle
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction
function GetHandleInt takes handle subject, string name returns integer
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
endfunction
function GetHandleBoolean takes handle subject, string name returns boolean
    return GetStoredBoolean(LocalVars(), I2S(H2I(subject)), name)
endfunction
function GetHandleReal takes handle subject, string name returns real
    return GetStoredReal(LocalVars(), I2S(H2I(subject)), name)
endfunction
function GetHandleString takes handle subject, string name returns string
    return GetStoredString(LocalVars(), I2S(H2I(subject)), name)
endfunction

function GetHandleUnit takes handle subject, string name returns unit
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction
function GetHandleTimer takes handle subject, string name returns timer
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction
function GetHandleTrigger takes handle subject, string name returns trigger
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction
function GetHandleEffect takes handle subject, string name returns effect
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction
function GetHandleGroup takes handle subject, string name returns group
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction
function GetHandleLightning takes handle subject, string name returns lightning
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction
function GetHandleWidget takes handle subject, string name returns widget
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction

function FlushHandleLocals takes handle subject returns nothing
    call FlushStoredMission(LocalVars(), I2S(H2I(subject)) )
endfunction

//********Slide Engine*******
function SlideSFX takes nothing returns nothing
local unit a = udg_TempUnit
local effect b
local location c
set c = GetUnitLoc(a)
    call AddSpecialEffectLocBJ( c, "Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl" )
set b = GetLastCreatedEffectBJ()
    call TriggerSleepAction( 6.00 ) 
    call DestroyEffectBJ( b )
call RemoveLocation(c)
set a = null
set b = null
endfunction
function SlideConditions takes real elapsed, real time returns boolean
    if ( not ( time > elapsed ) ) then
        return false
    endif
    return true
endfunction

function SlideMove takes nothing returns nothing
local timer t = GetExpiredTimer()
local timer j = CreateTimer()
local unit a = GetHandleUnit( t, "slider" )
local real angle = GetHandleReal( a, "angle" )
local real speed = GetHandleReal( a, "speed" )
local real time = GetHandleReal( a, "time")
local real elapsed = GetHandleReal( a, "elapsed" )
local real newtime = elapsed+1.0
local location new = PolarProjectionBJ( GetUnitLoc( a ), speed, angle )
local boolean dusttrail = GetHandleBoolean( a, "dusttrail" )
call SetHandleReal( a, "elapsed", newtime)
call SetUnitPositionLoc( a, new)
call RemoveLocation( new )
set newtime = 0.00
call SetHandleHandle( j, "slider", a)
if (dusttrail) then
set udg_TempUnit = a
call ExecuteFunc("SlideSFX")
endif
call DestroyTimer(t)
if ( SlideConditions(elapsed, time) ) then
 call TimerStart( j, 0.04, false, function SlideMove)
else
call FlushHandleLocals( a )
endif
endfunction


function Slide takes unit target, real angle, real speed, real time, boolean dusttrail returns nothing
local real t = time*25
local timer a = CreateTimer()
call SetHandleHandle( a, "slider", target)
call SetHandleReal( target, "angle", angle)
call SetHandleReal( target, "speed", speed)
call SetHandleReal( target, "time", t)
call SetHandleReal( target, "elapsed", 0.00)
call SetHandleBoolean( target, "dusttrail", dusttrail)
call TimerStart( a, 0.00, false, function SlideMove)
endfunction
//********End Engine*******