struct demolish


    private  static  unit     tower   =  null
    private  static  integer  towerI  =  0
    private  static  real     towerX  =  0.0
    private  static  real     towerY  =  0.0
    private  static  player   owner   =  null
    private  static  integer  costG   =  0
    private  static  integer  costW   =  0
    private  static  Table    gold    =  Table( 0 )
    private  static  Table    wood    =  Table( 0 )


    private static method onUnitSpellCast takes nothing returns nothing
        if (GetSpellAbilityId() == 'A002') then
            set thistype.tower  = GetSpellAbilityUnit()
            set thistype.towerI = GetHandleId(thistype.tower)
            set thistype.towerX = GetUnitX(thistype.tower)
            set thistype.towerY = GetUnitY(thistype.tower)
            set thistype.owner  = GetOwningPlayer(thistype.tower)
            set thistype.costG  = gold[thistype.towerI]
            set thistype.costW  = wood[thistype.towerI]
            
            call KillUnit(thistype.tower)
            call ShowUnit(thistype.tower, false)
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Transmute\\PileofGold.mdl", thistype.towerX, thistype.towerY))

            call CreateFloatingTextTag(thistype.owner, FLOATING_TEXTTAG_GOLD,   thistype.costG, thistype.towerX, thistype.towerY, GetUnitFlyHeight(thistype.tower) + 60.0 )
            call CreateFloatingTextTag(thistype.owner, FLOATING_TEXTTAG_LUMBER, thistype.costW, thistype.towerX, thistype.towerY, GetUnitFlyHeight(thistype.tower) + 120.0)

            call SetPlayerState(thistype.owner, PLAYER_STATE_RESOURCE_GOLD,   GetPlayerState(thistype.owner, PLAYER_STATE_RESOURCE_GOLD  ) + thistype.costG)
            call SetPlayerState(thistype.owner, PLAYER_STATE_RESOURCE_LUMBER, GetPlayerState(thistype.owner, PLAYER_STATE_RESOURCE_LUMBER) + thistype.costW)
        endif
    endmethod


    private static method onUnitConstructFinish takes nothing returns nothing
        set thistype.tower  = GetConstructedStructure() <== если это заменить на null, то фаталы прекращаются.
        set thistype.towerI = GetHandleId(thistype.tower)

        set  gold[thistype.towerI] = GetUnitGoldCost(GetUnitTypeId(thistype.tower))
        set  wood[thistype.towerI] = GetUnitWoodCost(GetUnitTypeId(thistype.tower))
    endmethod


    private static method onUnitUpgradeFinish takes nothing returns nothing
        set thistype.tower  = GetTriggerUnit()
        set thistype.towerI = GetHandleId(thistype.tower)

        set gold[thistype.towerI] = GetUnitGoldCost(GetUnitTypeId(thistype.tower)) + gold[thistype.towerI]
        set wood[thistype.towerI] = GetUnitWoodCost(GetUnitTypeId(thistype.tower)) + wood[thistype.towerI]
    endmethod


    private static method onInit takes nothing returns nothing
        set  gold  =  Table.create( )
        set  wood  =  Table.create( )

        call RegisterAnyUnitEvent( EVENT_PLAYER_UNIT_SPELL_CAST,       function thistype.onUnitSpellCast       )
        call RegisterAnyUnitEvent( EVENT_PLAYER_UNIT_CONSTRUCT_FINISH, function thistype.onUnitConstructFinish )
        call RegisterAnyUnitEvent( EVENT_PLAYER_UNIT_UPGRADE_FINISH,   function thistype.onUnitUpgradeFinish   )
    endmethod


endstruct

    function interface callback takes integer this returns nothing defaults nothing


    module linkedList
        private  static  timer     period  =  null
        private          thistype  prev
        private          thistype  next
        private          callback  handlerFunc


        method destroyList takes nothing returns nothing
            set  this.prev.next  =  this.next
            set  this.next.prev  =  this.prev
            if ( thistype( 0 ).next == 0 ) then
                call PauseTimer( thistype.period )
            endif
            call thistype.deallocate( this )
        endmethod


        private static method iterate takes nothing returns nothing
            local  thistype  this  =  thistype( 0 ).next
            loop
                exitwhen ( this == 0 )
                call this.handlerFunc.evaluate( integer( this ) )
                set  this  =  this.next
            endloop
        endmethod


        static method createList takes real timeout, callback handlerFunc returns thistype
            local  thistype  this  =  thistype.allocate( )
            set  this.next         =  thistype( 0 )
            set  this.prev         =  thistype( 0 ).prev
            set  this.next.prev    =  this
            set  this.prev.next    =  this
            set  this.handlerFunc  =  handlerFunc
            if ( this.prev == 0 ) then
                call TimerStart( thistype.period, timeout, true, function thistype.iterate )
            endif
            return this
        endmethod


        private static method onInit takes nothing returns nothing
            set  thistype.period  =  CreateTimerEx( )
        endmethod


    endmodule

    struct abili
        unit caster
        unit target
        implement linkedList

        method update takes nothing returns nothing
//          ...
        endmethod


        static method createA takes nothing returns nothing
            local  thistype  this  =  thistype.createList( 0.03125, update )

//          ...
        endmethod
        
    endstruct