dota物品合成

integer array It_B
integer array It_C
integer array It_D
integer array It_E
integer array It_a
integer array It_b
integer array It_c
local integer c=0
local integer C=ModuloInteger(i,10)
local integer d=0
local integer D=0
local integer e=7
local real x=GetItemX(GetManipulatedItem())
call DT(t)
set c=c+1
set z=z+1
set Ita[z]=ite
endif
set ite=null
if B then
set d=b
endif
if it_a3(GetTriggerUnit()) then
call UnitAddItemByIdSwapped(It[I],GetTriggerUnit())
else
call RemoveItem(GetManipulatedItem())
return LoadItemHandle(HT,i,StringHash(s))
endfunction
function LI takes integer i,string s returns integer
return LoadInteger(HT,i,StringHash(s))
endif
call DestroyEffect(AddSpecialEffectTargetUnitBJ("chest",u,"Abilities\\Spells\\Items\\AIsm\\AIsmTarget.mdl"))
set z=0
elseif B==false then
set b=b+1
exitwhen b==6 or c==I
endloop
if c==I then
return d
endif
return 7
endfunction
function it_It_a2 takes integer i,integer I,unit u,boolean B returns nothing
globals
hashtable HT=null
integer array It
integer array it
integer array IT
integer array iT
integer It_count=0
integer array It_A
call CreateItem(it[I],x,y)
endif
endif
set c=0
loop
set c=c+1
set Ita[c]=null
exitwhen c==z
endloop
endfunction
function Si takes integer i,stringcall SaveItemHandle(HT,i,StringHash(s),I)
endfunction
function Li takes integer i,string s returns item
integer array It_d
integer array It_e
integer array iTa
integer array iTb
item array Ita
integer z=0
boolean Boo=false
endglobals
local integer I=LI(pk,"Int")
local real x=GetItemX(i)
local real y=GetItemY(i)
if GetTriggerEventId()==EVENT_PLAYER_UNIT_PICKUP_ITEM then
set iTa[c]=It_E[I]
set iTb[c]=It_e[I]
endif
exitwhen c==C
endloop
set c=0
loop
set c=c+1
if iTb[c]<1 then
set d=d+1
endif
if it_It_a3(u,iTa[c],iTb[c],D==iTa[c])<6 then
set e=it_It_a3(u,iTa[c],iTb[c],D==iTa[c])
endif
if i==GetManipulatedItem() then
set Boo=true
endif
elseif Boo==false then
call RemoveItem(i)
call CreateItem(it[I],x,y)
set i=i-iTa[c]*R2I(Pow(10,C-c+1))
if iTa[c]==1 then
set D=It_A[I]
set iTa[c]=It_A[I]
set iTb[c]=It_a[I]
elseif iTa[c]==2 then
set iTa[c]=It_B[I]
set iTb[c]=It_b[I]
elseif iTa[c]==3 then
set iTa[c]=It_C[I]
call FlushChildHashtable(HT,i)
endfunction
function SI takes integer i,string s,integer I returns nothing
call SaveInteger(HT,i,StringHash(s),I)
endfunction
function LB takes integer i,string s returns boolean
return LoadBoolean(HT,i,StringHash(s))
endfunction
function it_a3 takes unit u returns boolean
exitwhen c==z
endloop
if e<6 then
call UnitAddItemToSlotById(GetTriggerUnit(),iT[I],e)
else
call UnitAddItemByIdSwapped(iT[I],GetTriggerUnit())
exitwhen c==C
endloop
set c=0
if d==C then
loop
set c=c+1
call RemoveItem(Ita[c])
set Ita[c]=null
set iTb[c]=It_c[I]
elseif iTa[c]==4 then
set iTa[c]=It_D[I]
set iTb[c]=It_d[I]
elseif iTa[c]==5 then
set z=0
endfunction
function it_It_a1_1 takes nothing returns nothing
local trigger t=GetTriggeringTrigger()
local integer pk=GHI(t)
local item i=Li(pk,"item")
set iTb[c]=1
endif
if B and iTa[c]==It[i] then
set iTb[c]=iTb[c]+1
endif
if it_It_a3(u,iTa[c],iTb[c],D==iTa[c])<7 then
call DestroyTrigger(t)
endfunction
function GHI takes handle t returns integer
return GetHandleId(t)
endfunction
function FCH takes integer i returns nothing
local real y=GetItemY(GetManipulatedItem())
local integer E=I
loop
set c=c+1
set iTa[c]=(i-ModuloInteger(i,R2I(Pow(10,C-c+1))))/R2I(Pow(10,C-c+1))
local integer I=0
local item i
loop
set i=UnitItemInSlot(u,I)
if i==null then
return true
endif
set i=null
function eUa takes trigger t ,playerunitevent e returns nothing
call TriggerRegisterAnyUnitEventBJ(t,e)
endfunction
function DT takes trigger t returns nothing