function Trig_AnId_Actions takes nothing returns nothing
local integer i = 1
local integer ihu = 0
local integer iho = 0
local integer id = 'I000'
local integer abid = 'A000'
local item it
  loop
  set it = CreateItem(id, 0, 0)
  if GetItemType(it) == ITEM_TYPE_POWERUP or GetItemType(it) == ITEM_TYPE_CAMPAIGN then
//-----------------------Внутренний цикл (попытка перебора всех абил)-----------------------
   loop
    if GetItemName(it) == GetObjectName(abid) then
      if GetItemType(it) == ITEM_TYPE_POWERUP then
         set ihu = ihu + 1
         set udg_ABLS_humanitems[ihu] = id
         set udg_ABLS_humanspells[ihu] = abid
      else
        set iho = iho + 1
        set udg_ABLS_hordeitems[iho] = id
        set udg_ABLS_hordespells[iho] = abid
      endif
   call DisplayTimedTextToForce( GetPlayersAll(), 10, ("|c0000FF00" + GetObjectName(abid) + " " + I2S(abid) + "|r"))
   else
   if abid == 'A009' or abid == 'A00Z' or abid == 'A019' or abid == 'A01Z' or abid == 'A029' or abid == 'A02Z' then
   if abid == 'A009' then
   set abid = 'A00A'
   endif
   if abid == 'A00Z' then
   set abid = 'A010'
   endif
   if abid == 'A019' then
   set abid = 'A01A'
   endif
   if abid == 'A01Z' then
   set abid = 'A020'
   endif
   if abid == 'A029' then
   set abid = 'A02A'
   endif
   if abid == 'A02Z' then
   set abid = 'A030'
   endif
   else
   set abid = abid + 1
   endif
   endif
   exitwhen GetItemName(it) == GetObjectName(abid)
   endloop
//---------------------------------Конец внутреннего цикла-----------------------------------
  call DisplayTimedTextToForce( GetPlayersAll(), 10, (GetItemName(it) + " " + I2S(id)))
  endif
  call RemoveItem(it)
  set it = null
  set abid = 'A000'
  if id == 'I009' or id == 'I00Z' or id == 'I019' or id == 'I01Z' then
   if id == 'I009' then
   set id = 'I00A'
   endif
   if id == 'I00Z' then
   set id = 'I010'
   endif
   if id == 'I019' then
   set id = 'I01A'
   endif
   if id == 'I01Z' then
   set id = 'I020'
   endif
  else
  set id = id + 1
  endif
  set i = i + 1
  exitwhen i > 200
  endloop
endfunction

if abid == 'A009' then
   set abid = 'A00A'
   endif

globals
 integer maxchars=0
 integer array charz
 boolean charsetinited=false
endglobals

function InitcharsetBX takes nothing returns nothing
 if not charsetinited then
   set charz[0]='0'
   set charz[1]='1'
   set charz[2]='2'
   set charz[3]='3'
   set charz[4]='4'
   set charz[5]='5'
   set charz[6]='6'
   set charz[7]='7'
   set charz[8]='8'
   set charz[9]='9'
   set charz[10]='A'
   set charz[11]='B'
   set charz[12]='C'
   set charz[13]='D'
   set charz[14]='E'
   set charz[15]='F'
   set charz[16]='G'
   set charz[17]='H'
   set charz[18]='I'
   set charz[19]='J'
   set charz[20]='K'
   set charz[21]='L'
   set charz[22]='M'
   set charz[23]='N'
   set charz[24]='O'
   set charz[25]='P'
   set charz[26]='Q'
   set charz[27]='R'
   set charz[28]='S'
   set charz[29]='T'
   set charz[30]='U'
   set charz[31]='V'
   set charz[32]='W'
   set charz[33]='X'
   set charz[34]='Y'
   set charz[35]='Z'
   set maxchars=35
   set charsetinited=true
 endif
endfunction


function InitRawCodesBX takes nothing returns nothing
   local integer i=0
   local integer rawblank='A'*0x1000000+'0'*0x10000
   local integer raw=0
   call InitcharsetBX()
// watch out for operation limit !
  loop
    exitwhen i>10 // optional // set charz[10]='A' aka last will be 'A0AZ'
    set i2=0
   loop
    exitwhen i2>maxchars
     set raw=rawblank+charz[i]*0x100+charz[i2]
// now you get the "unique" war3 generated id.
    set i2=i2+1
   endloop
    set i=i+1
  endloop
endfunction