scope battle

//Переменные

globals

private integer array str // сила / атака
private integer array agi // ловкость
private integer array inl // интелект
private unit array Hero // герой
private integer array items
private integer array heroitem
private unit array sword
private unit array armor
private unit array helmet
private integer MaxItems
private boolean array haveinv
private string array typeitem
private string array codeword

endglobals

////////////////////////////////////Variables///////////////////////////////////////
function itams takes nothing returns nothing
//Предметы и их герои
set items[1] = 'ratf'
set heroitem[1] = 'H000'
set typeitem[1] = "weapon"
////////////////////////////////////////
set MaxItems = 1
set codeword[1] = "weapon"
set codeword[2] = "armor"
set codeword[3] = "helmet"
endfunction

///////////////////////////Основное/////////////////////////////////////////
function GetItem takes nothing returns nothing // берем предмет получаем героя
local integer index = 0
local integer i = 0
local item ite = GetManipulatedItem()
local integer id = GetPlayerId(GetOwningPlayer(GetTriggerUnit()))
local location point = GetUnitLoc(GetTriggerUnit())

set index =1
loop
exitwhen index > MaxItems
if items[index] == GetItemTypeId(ite) then // проверка на то, есть ли этот предмет в списке
call RemoveItem(ite) // забираем предмет и..
                                    call CreateUnitAtLoc(Player(id), heroitem[index],point,GetRandomReal(0.00,360.00)) // создаем героя
                                         call RemoveLocation(point) // устраняем утечки
                                         set i = 1
loop
exitwhen i > MaxItems
                                if typeitem[i] == codeword[i] then
                                set haveinv[id*i] = true // заполненость (чтобы не взять 5 мечей сразу к примеру или 3 брони итд)
endif
set i = i+1
endloop
endif
                                         set index = index+1
endloop

endfunction

endscope

private trigger Get

function InitTrig_Get takes nothing returns nothing 
local integer i = 0
    set Get = CreateTrigger(  )
    set i = 0
    loop
    exitwhen i > 9
    call TriggerRegisterPlayerUnitEvent(Get, Player(i), EVENT_PLAYER_UNIT_PICKUP_ITEM, null)
    set i = i+1
    endloop
    call TriggerAddAction( Get, function GetItem )
endfunction