Practicing Structs

library HR

globals
    private constant real BASE = 5.
    private constant real LVL_FACTOR = 1.5
endglobals

    public struct Revive
        unit a
        real x
        real y
        timer t = CreateTimer()
        boolean eyecandy = true

        static method Callback takes nothing returns nothing
            local Revive dat = Revive.allocate()
            call ReviveHero(dat.a, dat.x, dat.y, dat.eyecandy)
        endmethod
       
        method Set takes unit a, real x, real y returns nothing
            local Revive dat = Revive.create()
            local real Lvl = R2I(GetHeroLevel(a))
            set dat.a = a
            set dat.y = y
            set dat.x = x
            call TimerStart(dat.t, BASE+(LVL_FACTOR*Lvl), false, function Revive.Callback)
        endmethod
        
        method Eyecandy takes boolean b returns nothing
            set this.eyecandy = b
        endmethod
    endstruct
endlibrary

    struct operatortest
        string str=""

        method operator [] takes integer i returns string
            return SubString(.str,i,i+1)
        endmethod

        method operator[]= takes integer i, string ch returns nothing
            set .str=SubString(.str,0,i)+ch+SubString(.str,i+1,StringLength(.str)-i)
        endmethod

    endstruct


    function test takes nothing returns nothing
     local operatortest x=operatortest.create()
        set x.str="Test"
        call BJDebugMsg( x[1])
        call BJDebugMsg( x[0]+x[3])

        set x[1] = "."
        call BJDebugMsg( x.str)
    endfunction

library HR uses TimerUtils

globals
    private constant real BASE = 5.
    private constant real LVL_FACTOR = 1.5
endglobals

    public struct Revive
        unit a
        real x
        real y
        timer t
        boolean eyecandy
        
        static method Callback takes nothing returns nothing
            local Revive dat = GetTimerData(GetExpiredTimer())
            call ReviveHero(dat.a, dat.x, dat.y, dat.eyecandy)
            call dat.destroy() //Do I need this?
            call ReleaseTimer(dat.t)
        endmethod
        
        static method Set takes unit a, real x, real y, boolean eyecandy returns Revive
            local Revive dat = Revive.create()
            local real Lvl = R2I(GetHeroLevel(a))
            set dat.a = a
            set dat.y = y
            set dat.x = x
            set dat.t = NewTimer()
            set dat.eyecandy = eyecandy
            call SetTimerData(dat.t, dat)
            call TimerStart(dat.t, BASE+(LVL_FACTOR*Lvl), false, function Revive.Callback)
            return dat
        endmethod
    endstruct
endlibrary

/////DAMAGE DETECTION SYSTEM START/////
scope DamageDetectionSystem

globals
    private trigger gTRIG_EnterMap
    
    private group gUG_Target //index of all EVENT_UNIT_DAMAGED event-concerned units
    
    private trigger array gTRIG_Damage
    private integer gINT_CountTrigger = 0 //count of 'EventDamageTrigger's duh...
endglobals

    //Updates index of all EVENT_UNIT_DAMAGED concerned units. (so redundant unit event triggers won't be
    //appended to triggers.
    private function UpdateTargetGroup takes nothing returns nothing
        local unit U_Target
        local group UG_Target = CreateGroup()
        
        call GroupAddGroup(gUG_Target, UG_Target)
        call GroupClear(gUG_Target)
        loop
            set U_Target = FirstOfGroup(UG_Target)
            exitwhen U_Target == null
            if U_Target != null and IsUnitInRegion(gREG_Map, U_Target) then
                call GroupAddUnit(gUG_Target, U_Target)
            endif
            call GroupRemoveUnit(UG_Target, U_Target)
        endloop

        call DestroyGroup(UG_Target)
        set UG_Target = null
        set U_Target = null
    endfunction

    //Updates index concerned units with the new entering unit and appends the EVENT_UNIT_DAMAGED event for it to all
    //instanciated triggers.
    private function gTRIG_EnterMap_Actions takes nothing returns nothing
        local unit U_Target = GetTriggerUnit()
        local integer INT_CountTrigger = 0
        
        //Update the group then index unit into it.
        call UpdateTargetGroup()
        call GroupAddUnit(gUG_Target, U_Target)
        
        //Appends EVENT_UNIT_DAMAGED for new unit to all concerned triggers (if there currently are any).
        if gINT_CountTrigger > 0 then
            loop
                set INT_CountTrigger = INT_CountTrigger + 1
                call TriggerRegisterUnitEvent(gTRIG_Damage[INT_CountTrigger], U_Target, EVENT_UNIT_DAMAGED)
                exitwhen INT_CountTrigger == gINT_CountTrigger
            endloop
        endif

        set U_Target = null
    endfunction

    //Instanciates a trigger and appends to it EVENT_UNIT_DAMAGED events for all concerned (indexed) units.
    function AddEventDamageTrigger takes trigger whichTrigger returns nothing
        local unit U_Target
        local group UG_Target = CreateGroup()
        
        set gINT_CountTrigger = gINT_CountTrigger + 1
        set gTRIG_Damage[gINT_CountTrigger] = whichTrigger
        
        //Appends EVENT_UNIT_DAMAGED to added trigger for all concerned units (if there currently are any).
        call GroupAddGroup(gUG_Target, UG_Target)
        loop
            set U_Target = FirstOfGroup(UG_Target)
            exitwhen U_Target == null
            call TriggerRegisterUnitEvent(whichTrigger, U_Target, EVENT_UNIT_DAMAGED)
            call GroupRemoveUnit(UG_Target, U_Target)
        endloop

        call DestroyGroup(UG_Target)
        set UG_Target = null
        set U_Target = null
    endfunction

    //Initializer; Indexes all concerned units in the map and sets-up the trigger that indexes
    //units that enter the map.
    public function Init takes nothing returns nothing
        set gTRIG_EnterMap = CreateTrigger()
        call TriggerRegisterEnterRegion(gTRIG_EnterMap, gREG_Map, null)
        call TriggerAddAction(gTRIG_EnterMap, function gTRIG_EnterMap_Actions)
        
        set gUG_Target = CreateGroup()
        call GroupEnumUnitsInRect(gUG_Target, gRECT_Map, null)
    endfunction

endscope
/////DAMAGE DETECTION SYSTEM END/////

...
private function DamageSpellInit takes nothing returns nothing
local trigger spell = CreateTrigger()
call AddEventDamageTrigger(spell)
call TriggerAddCondition(...)
call TriggerAddAction(...)
endfunction
...