/*                     RESPAWN SYSTEM BY OXYGEND v1.2                                       */
library RespawnSystem initializer DeathEventCreep requires WorldBounds

    globals
     
        private constant string    Syslog                                   = "Respwan system"
        private constant boolean   ShowDebug                                = false
        private constant boolean   EnableSystem                             = true

    // Настройки воскрешения героя
        private constant string   RESPAWN_EFFECT_HERO                       = "Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl"
        private constant real     RES_X                                     = 482.40
        private constant real     RES_Y                                     = 200.10
        private constant real     RESPAWN_TIME_HERO                         = 5.00
        
      // Настройки воскрешения крипов  
        private constant string   RESPAWN_EFFECT_CREEP                      = "Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl"
        private constant integer  NUMBER_OF_RESPAWN_PLAYER                  = PLAYER_NEUTRAL_AGGRESSIVE
        private constant boolean  SAVE_LOCATION                             = false
        private constant boolean  SAVE_ANGLE                                = true
        private constant boolean  RANGE_CREATE                              = false
        private constant real     MIN_RANGE                                 = -250.00
        private constant real     MAX_RANGE                                 = 250.00
        private constant real     RESPAWN_TIME_CREEP                        = 3.50
        
     // Прочие настройки
        private constant boolean  PRELOAD                                   = true
        private constant integer  HASH_KEY1                                 = 0
        private constant integer  HASH_KEY2                                 = 1
        private constant integer  HASH_KEY3                                 = 2
        private constant integer  HASH_KEY4                                 = 3
        private constant integer  HASH_KEY5                                 = 4
        
        // Остальное
        private hashtable   RESPHASH = InitHashtable()
        private integer     CreepCount = 0
        private real array  Xcreep
        private real array  Ycreep
        private real array  CreepAngle
        private unit array  CreepType
        
    endglobals
    
    private function SysLog takes string s returns nothing
       call DisplayTimedTextToPlayer(Player(pid),0.00,0.00,5.00,"["+spc+Syslog+et+"] "+ "|cFFFF0000"+s+"|r" )
    endfunction
    
    private function HeroCond takes nothing returns boolean
        return IsUnitType(GetTriggerUnit(), UNIT_TYPE_HERO) == true
    endfunction

    private function CreepCond takes nothing returns boolean
        return GetOwningPlayer(GetTriggerUnit()) == Player(NUMBER_OF_RESPAWN_PLAYER)
    endfunction

    private function BoolCond takes nothing returns boolean
        return true
    endfunction

    private function DeathTimeHero takes nothing returns nothing
        local timer      TIMER          = GetExpiredTimer   (                                        )
        local integer    handid         = GetHandleId       (TIMER                                   )
        local unit       nowRespawn     = LoadUnitHandle    (RESPHASH, handid, HASH_KEY1             )
        local player     playerShow     = Player            (GetPlayerId(GetOwningPlayer(nowRespawn)))
        
         if (GetLocalPlayer() == playerShow) then
             call PanCameraTo(RES_X, RES_Y)
         endif
         
        call ReviveHero           (nowRespawn, RES_X, RES_Y, false)
        call DestroyEffect        (AddSpecialEffect(RESPAWN_EFFECT_HERO, RES_X, RES_Y))
        call FlushChildHashtable  (RESPHASH, handid)
        call DestroyTimer         (TIMER)
        
          static if ShowDebug then
            SysLog("|cFFFF0000Hero respawned. Hashtable cleared.")       
          endif
          
        set TIMER      = null
        set playerShow = null
        set nowRespawn = null
    endfunction
    
    private function DeathTimeCreep takes nothing returns nothing
        local timer     TIMER          = GetExpiredTimer    (                            )
        local real      Angle          = GetRandomReal      (0.00, 360.00                )
        local integer   handid         = GetHandleId        (TIMER                       )
        local integer   creepnum       = LoadInteger        (RESPHASH, handid , HASH_KEY2)
        local integer   nowRespawnId   = LoadInteger        (RESPHASH, handid , HASH_KEY3)
        local player    rp             = Player             (NUMBER_OF_RESPAWN_PLAYER    )
        local real      x              = Xcreep             [creepnum]
        local real      y              = Ycreep             [creepnum]
        local real      addrangeX      = 0.00
        local real      addrangeY      = 0.00
        
         static if RangeCreate then
            set addrangeX = GetRandomReal  (MinRange,MaxRange)
            set addrangeY = GetRandomReal  (MinRange,MaxRange)
         endif
         
         static if not SaveLocation then
           set x = LoadReal  (RESPHASH,handid, HASH_KEY4)
           set y = LoadReal  (RESPHASH, handid, HASH_KEY5)
         endif
         
         if SAVE_ANGLE then
           set Angle = CreepAngle[creepnum]
         endif
         
          set CreepType[creepnum] = CreateUnit  (rp, nowRespawnId,x+addrangeX,y+addrangeY, Angle )
          call DestroyEffect(AddSpecialEffect   (RESPAWN_EFFECT_CREEP, x+addrangeX, y+addrangeY))
          call FlushChildHashtable              (RESPHASH, handid)
          call DestroyTimer                     (TIMER)
          
            static if ShowDebug then
               SysLog("Creep respawned. Hashtable cleared.")
            endif
            
         set TIMER = null
         set rp    = null
    endfunction

    private function DeathActionHero takes nothing returns nothing
        local timer    TIMER    = CreateTimer  (     )
        local unit     Die      = GetDyingUnit (     )
        local integer  handid   = GetHandleId  (TIMER)
        call SaveUnitHandle(RESPHASH, handid, HASH_KEY1, Die)
        call TimerStart(TIMER, RESPAWN_TIME_HERO, false, function DeathTimeHero)
        
            static if ShowDebug then
                SysLog("Hero dead. Saved to hashtable. Respawn in "+R2S(RESPAWN_TIME_HERO))
            endif
            
        set Die = null
    endfunction
    
    private function DeathActionCreep takes nothing returns nothing
        local timer   TIMER      = CreateTimer  (     )
        local unit    Die        = GetDyingUnit (     )
        local integer handid     = GetHandleId  (TIMER)
        local integer index      = 0
        loop
            exitwhen index > CreepCount
             if Die == CreepType[index] then
                  call SaveInteger  (RESPHASH, handid, HASH_KEY2, index)
                   
                 static if not SaveLocation then
                   call SaveReal    (RESPHASH, handid, HASH_KEY4, GetUnitX(Die))
                   call SaveReal    (RESPHASH, handid, HASH_KEY5,GetUnitY(Die))
                 endif
                 
                 call SaveInteger(RESPHASH, handid, HASH_KEY3, GetUnitTypeId(CreepType[index]))
                 call TimerStart(TIMER, RESPAWN_TIME_CREEP, false, function DeathTimeCreep)
             endif
            set index = index + 1
        endloop
            static if ShowDebug then
                SysLog("Creep dead. Saved to hashtable. Respawn in " + R2S(RESPAWN_TIME_CREEP))
            endif
            
        set Die = null
    endfunction
    
    private function SetCreepSetting takes nothing returns nothing
        local unit enum = GetEnumUnit()
        
        static if SaveLocation then
            set Xcreep[CreepCount] = GetUnitX(enum)
            set Ycreep[CreepCount] = GetUnitY(enum)
        endif
        
        static if SaveAngle then
            set CreepAngle[CreepCount] = GetUnitFacing(enum)
        endif
        
        set CreepType[CreepCount] = enum
        set CreepCount = CreepCount + 1
        
        set enum = null
    endfunction

    private function DeathEventHero takes nothing returns nothing
        local integer index = 0
        local trigger t = CreateTrigger()
        local player Pind = null
        loop
          exitwhen index == 15
            set Pind = Player(index)
            call TriggerRegisterPlayerUnitEvent(t, Pind, EVENT_PLAYER_UNIT_DEATH, null)
            set index = index + 1
        endloop
        call TriggerAddCondition  (t, function HeroCond        )
        call TriggerAddAction     (t, function DeathActionHero )
        
        set t    = null
        set Pind = null
    endfunction
    
    private function DeathEventCreep takes nothing returns nothing
        local group     g        = CreateGroup   ()
        local trigger   t        = CreateTrigger ()
        local player    Pind     = null
        local integer   index    = 0
        static if EnableSystem then
        
          call GroupEnumUnitsInRect  (g, WorldBound , function BoolCond)
          call ForGroup              (g, function SetCreepSetting      )
          
            loop
             exitwhen index == 15
              set Pind = Player                     (index)
              call TriggerRegisterPlayerUnitEvent   (t, Pind, EVENT_PLAYER_UNIT_DEATH, null)
              set index = index + 1
            endloop
           
          call TriggerAddCondition  (t, function CreepCond)
          call TriggerAddAction     (t, function DeathActionCreep )
          
           static if PRELOAD then
              call Preload  (RESPAWN_EFFECT_CREEP)
              call Preload  (RESPAWN_EFFECT_HERO)
           endif
           
           call DeathEventHero()
           
            static if ShowDebug then
                SysLog("Creep and Hero respawn event enabled.")
            endif
            
          endif
          
          call DestroyGroup(g)
          set g    = null
          set t    = null
          set Pind = null
     endfunction

endlibrary

library WorldBounds

    globals
        private constant boolean USE_REGION = false
        private constant boolean USE_RECT = true
        private constant boolean USE_EXTREMA_COORDS = true
        private constant boolean USE_CENTER_COORDS = true
    endglobals
    private module WorldBoundInit
        private static method onInit takes nothing returns nothing
            static if not USE_RECT then
                local rect world=GetWorldBounds()
            else
                set world=GetWorldBounds()
            endif
            static if USE_EXTREMA_COORDS then
                set maxX=GetRectMaxX(world)
                set maxY=GetRectMaxY(world)
                set minX=GetRectMinX(world)
                set minY=GetRectMinY(world)
            endif
            static if USE_CENTER_COORDS then
                set centerX=(maxX+minX)/2
                set centerY=(minY+maxY)/2
            endif
            static if USE_REGION then
                set worldRegion=CreateRegion()
                call RegionAddRect(worldRegion,world)
            endif
            static if not USE_RECT then
                call RemoveRect(world)
                set world=null
            endif
                            set WorldBound = world
        endmethod
    endmodule
    struct WorldBounds extends array
        static if USE_EXTREMA_COORDS then
            readonly static real maxX
            readonly static real maxY
            readonly static real minX
            readonly static real minY
        endif
        static if USE_CENTER_COORDS then
            readonly static real centerX
            readonly static real centerY
        endif
        static if USE_RECT then
            readonly static rect world
        endif
        static if USE_REGION then
            readonly static region worldRegion
        endif
        implement WorldBoundInit
    endstruct
endlibrary