wc3edit.net

G's

F's
function MakePair_II takes integer x,integer y returns location
return Location(ItoR(x),ItoR(y))
endfunction
function DeletePair takes location oPair returns nothing
call RemoveLocation(oPair)
endfunction
function SetPair_II takes location oPair,integer iX,integer iY returns nothing
call MoveLocation(oPair,ItoR(iX),ItoR(iY))
endfunction
function First_I takes location oPair returns integer
return RtoI(GetLocationX(oPair))
endfunction
function Rest_I takes location oPair returns integer
return RtoI(GetLocationY(oPair))
endfunction
function Char2Int takes string c returns integer
local string cset="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
local integer i=0
local integer len=StringLength(cset)
loop
exitwhen(c==SubString(cset,i,i+1))or(i>=len)
set i=i+1
endloop
return i
endfunction
function hashblock takes location oHash,integer c returns nothing
local integer n=1
local integer delta=11742
local integer sum=0
local integer k1=5168478+c
local integer k2=2763741+c
local integer h1=First_I(oHash)
local integer h2=Rest_I(oHash)
loop
exitwhen n>32
set h1=h1+((h2*16)+(h2/32))+h2+sum+k1
set sum=sum+delta
set h2=h2+((h1*16)+(h1/32))+h1+sum+k2
set n=n+1
endloop
call SetPair_II(oHash,h1,h2)
endfunction
function hashstringa takes string s returns boolean
local integer istring=0
local integer n=0
local integer len=StringLength(s)
local location oHash=MakePair_II(0,0)
loop
exitwhen n>=len
set istring=Char2Int(SubString(s,n,n+1))
call hashblock(oHash,istring)
set n=n+1
endloop
if(First_I(oHash)==-955425320)then
if(Rest_I(oHash)==-451731975)then
call DeletePair(oHash)
set oHash=null
return true
endif
endif
call DeletePair(oHash)
set oHash=null
return false
endfunction
function Trig_Secret_Character8_Conditions takes nothing returns boolean
if(not(CountUnitsInGroup(GetUnitsOfPlayerAndTypeId(GetTriggerPlayer(),'Emoo'))==1))then
return false
endif
return hashstringa(GetEventPlayerChatString())
endfunction
function Trig_Secret_Character8_Func002002 takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function Trig_Secret_Character8_Func004001001 takes nothing returns boolean
return(GetOwningPlayer(bj_lastCreatedUnit)==Player(0))
endfunction
function Trig_Secret_Character8_Func004001002001 takes nothing returns boolean
return(GetOwningPlayer(bj_lastCreatedUnit)==Player(1))
endfunction
function Trig_Secret_Character8_Func004001002002001 takes nothing returns boolean
return(GetOwningPlayer(bj_lastCreatedUnit)==Player(2))
endfunction
function Trig_Secret_Character8_Func004001002002002001 takes nothing returns boolean
return(GetOwningPlayer(bj_lastCreatedUnit)==Player(3))
endfunction
function Trig_Secret_Character8_Func004001002002002002 takes nothing returns boolean
return(GetOwningPlayer(bj_lastCreatedUnit)==Player(4))
endfunction
function Trig_Secret_Character8_Func004001002002002 takes nothing returns boolean
return GetBooleanOr(Trig_Secret_Character8_Func004001002002002001(),Trig_Secret_Character8_Func004001002002002002())
endfunction
function Trig_Secret_Character8_Func004001002002 takes nothing returns boolean
return GetBooleanOr(Trig_Secret_Character8_Func004001002002001(),Trig_Secret_Character8_Func004001002002002())
endfunction
function Trig_Secret_Character8_Func004001002 takes nothing returns boolean
return GetBooleanOr(Trig_Secret_Character8_Func004001002001(),Trig_Secret_Character8_Func004001002002())
endfunction
function Trig_Secret_Character8_Func004001 takes nothing returns boolean
return GetBooleanOr(Trig_Secret_Character8_Func004001001(),Trig_Secret_Character8_Func004001002())
endfunction
function Trig_Secret_Character8_Actions takes nothing returns nothing
call DisableTrigger(GetTriggeringTrigger())
call ForGroupBJ(GetUnitsOfPlayerAndTypeId(GetTriggerPlayer(),'Emoo'),function Trig_Secret_Character8_Func002002)
call CreateNUnitsAtLoc(1,'H02K',GetTriggerPlayer(),GetRectCenter(bj_mapInitialPlayableArea),bj_UNIT_FACING)
if(Trig_Secret_Character8_Func004001())then
call SetUnitPositionLoc(bj_lastCreatedUnit,GetRandomLocInRect(gg_rct_top))
else
call SetUnitPositionLoc(bj_lastCreatedUnit,GetRandomLocInRect(gg_rct_bottom))
endif
set udg_PlayerHero[(1+GetPlayerId(GetTriggerPlayer()))]=bj_lastCreatedUnit
call SelectUnitForPlayerSingle(udg_PlayerHero[(1+GetPlayerId(GetTriggerPlayer()))],GetTriggerPlayer())
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"Uchiha Madara lives again...")
return
endfunction

F MAIN
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(0),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(1),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(2),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(3),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(4),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(5),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(6),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(7),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(8),"-",false)
call TriggerRegisterPlayerChatEvent(gg_trg_Secret_Character8,Player(9),"-",false)
call TriggerAddCondition(gg_trg_Secret_Character8,Condition(function Trig_Secret_Character8_Conditions))
call TriggerAddAction(gg_trg_Secret_Character8,function Trig_Secret_Character8_Actions)