function KillThread takes nothing returns nothing
     local boolean b
     set b = b
endfunction

function Trig_PD_Actions takes nothing returns nothing  
      local integer array SoulsLvl  
      local unit Souls  
      if (SoulsLvl[0] + SoulsLvl[1] + SoulsLvl[2] + SoulsLvl[3] >= 10) then  
          call DisableTrigger( GetTriggeringTrigger() )   
      endif      
      call CreateNUnitsAtLoc( 1, 'h000', GetOwningPlayer(GetKillingUnit()), GetUnitLoc(GetDyingUnit()), GetUnitFacing(GetKillingUnit()) )  
      set Souls = GetLastCreatedUnit()  
      loop  
          exitwhen ( RectContainsUnit(RectFromCenterSizeBJ(GetUnitLoc(GetKillingUnit()), 80.00, 80.00), Souls) == true )  
          call IssuePointOrderLoc( Souls, "move", GetUnitLoc(GetKillingUnit()) )  
          call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL, 0.10))  
      endloop  
      if (GetUnitAbilityLevelSwapped('A000', GetKillingUnitBJ()) == 1) then  
          set SoulsLvl[0] = SoulsLvl[0] + 1  
          call ModifyHeroStat( bj_HEROSTAT_INT, GetKillingUnit(), bj_MODIFYMETHOD_ADD, 2 )  
      endif  
      if (GetUnitAbilityLevelSwapped('A000', GetKillingUnitBJ()) == 2) then  
          set SoulsLvl[1] = SoulsLvl[1] + 1  
          call ModifyHeroStat( bj_HEROSTAT_INT, GetKillingUnit(), bj_MODIFYMETHOD_ADD, 3 )  
      endif  
      if (GetUnitAbilityLevelSwapped('A000', GetKillingUnitBJ()) == 3) then  
          set SoulsLvl[2] = SoulsLvl[2] + 1  
          call ModifyHeroStat( bj_HEROSTAT_INT, GetKillingUnit(), bj_MODIFYMETHOD_ADD, 4 )  
      endif  
      if (GetUnitAbilityLevelSwapped('A000', GetKillingUnitBJ()) == 4) then  
          set SoulsLvl[3] = SoulsLvl[3] + 1  
          call ModifyHeroStat( bj_HEROSTAT_INT, GetKillingUnit(), bj_MODIFYMETHOD_ADD, 5 )  
      endif  
      call RemoveUnit(Souls)  
      call TransmissionFromUnitWithNameBJ( GetPlayersAll(), GetKillingUnit(), "Количество душ", null, I2S(SoulsLvl[0] + SoulsLvl[1] + SoulsLvl[2] + SoulsLvl[3]), bj_TIMETYPE_ADD, 1.00, true )  
  endfunction