Grimoire Crash Info

function Trig_Tower_Modules_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A036'
endfunction

function Trig_Tower_Modules_Actions takes nothing returns nothing
    local integer array ModuleWeapon
    local integer array ModuleRadar
    local integer array ModuleTroop
    local integer array ModuleHeal
    local integer array ModuleHP
    local integer i
    local integer Slot
    local integer Module
    local integer SkillLevel = GetUnitAbilityLevel(GetTriggerUnit(), 'A036')
    local boolean TargetHasModuleWeapon = false
        local boolean TargetHasModuleRadar = false
    local boolean TargetHasModuleTroop = false
    local boolean TargetHasModuleHeal = false
    local boolean TargetHasModuleHP = false
    local boolean ValidModule = false
    if UnitInventoryCount(GetSpellTargetUnit()) != 6 and GetUnitAbilityLevel(GetSpellTargetUnit(), 'A03P') == 1 then
        set ModuleWeapon[1] = 'I03R'
        set ModuleWeapon[2] = 'I044'
        set ModuleWeapon[3] = 'I045'
        set ModuleWeapon[4] = 'I046'
        set ModuleWeapon[5] = 'I047'
                set ModuleRadar[1] = 'I04F'
        set ModuleRadar[2] = 'I04G'
        set ModuleRadar[3] = 'I04H'
        set ModuleRadar[4] = 'I04I'
        set ModuleRadar[5] = 'I04J'
        set ModuleTroop[1] = 'I03Q'
        set ModuleTroop[2] = 'I040'
        set ModuleTroop[3] = 'I041'
        set ModuleTroop[4] = 'I042'
        set ModuleTroop[5] = 'I043'
        set ModuleHeal[1] = 'I03Y'
        set ModuleHeal[2] = 'I03Z'
        set ModuleHeal[3] = 'I03P'
        set ModuleHeal[4] = 'I03W'
        set ModuleHeal[5] = 'I03X'
        set ModuleHP[1] = 'I03V'
        set ModuleHP[2] = 'I03U'
        set ModuleHP[3] = 'I03T'
        set ModuleHP[4] = 'I03S'
        set ModuleHP[5] = 'I03O'

        set Slot = 1
        loop
            exitwhen Slot > 6
            set Module = GetItemTypeId(UnitItemInSlotBJ(GetSpellTargetUnit(), Slot))
            set i = 1
            loop
                exitwhen i > 5
                if Module == ModuleWeapon[i] then
                    set TargetHasModuleWeapon = true
                endif
                if Module == ModuleTroop[i] then
                    set TargetHasModuleTroop = true
                endif
                if Module == ModuleHeal[i] then
                    set TargetHasModuleHeal = true
                endif
                if Module == ModuleHP[i] then
                    set TargetHasModuleHP = true
                endif
                                if Module == ModuleRadar[i] then
                    set TargetHasModuleRadar = true
                endif
                set i = i + 1
            endloop
            set Slot = Slot + 1
        endloop

        if not (TargetHasModuleWeapon and TargetHasModuleTroop and TargetHasModuleHeal and TargetHasModuleHP and TargetHasModuleRadar) then
            set Module = 0
            set i = GetRandomInt(1, 5)
            loop
                exitwhen Module != 0
                if i == 1 and not TargetHasModuleWeapon then
                    set Module = ModuleWeapon[SkillLevel]
                endif
                if i == 2 and not TargetHasModuleTroop then
                    set Module = ModuleTroop[SkillLevel]
                endif
                if i == 3 and not TargetHasModuleHeal then
                    set Module = ModuleHeal[SkillLevel]
                endif
                if i == 4 and not TargetHasModuleHP then
                    set Module = ModuleHP[SkillLevel]
                endif
                                if i == 5 and not TargetHasModuleRadar then
                    set Module = ModuleRadar[SkillLevel]
                endif
                if i == 5 then
                    set i = 1
                else
                    set i = i + 1
                endif
            endloop
            call UnitAddItemByIdSwapped( Module, GetSpellTargetUnit() )
        else
            call IssueImmediateOrder( GetTriggerUnit(), "stop" )
            call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetTriggerUnit())), "|cfffed312The target has already modules of all types.|r" )
            call TriggerSleepAction ( 0 )
            call SetUnitManaBJ( GetTriggerUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetTriggerUnit()) + I2R(5 * SkillLevel)) )
        endif
    else
        call IssueImmediateOrder( GetTriggerUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetTriggerUnit())), "|cfffed312The target has to have an empty inventory slot.|r" )
        call TriggerSleepAction ( 0 )
        call SetUnitManaBJ( GetTriggerUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetTriggerUnit()) + I2R(5 * SkillLevel) ) )
    endif
endfunction

//===========================================================================
function InitTrig_Tower_Modules takes nothing returns nothing
    set gg_trg_Tower_Modules = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Tower_Modules, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Tower_Modules, Condition( function Trig_Tower_Modules_Conditions ) )
    call TriggerAddAction( gg_trg_Tower_Modules, function Trig_Tower_Modules_Actions )
endfunction