//============================================================================
// Native types. All native functions take extended handle types when
// possible to help prevent passing bad values to native functions
//
type event              extends     handle  // a reference to an event registration
type player             extends     handle  // a single player reference
type widget             extends     handle  // an interactive game object with life
type unit               extends     widget  // a single unit reference
type destructable       extends     widget
type item               extends     widget
type ability            extends     handle
type buff               extends     ability
type force              extends     handle
type group              extends     handle
type trigger            extends     handle
type triggercondition   extends     handle
type triggeraction      extends     handle
type timer              extends     handle
type location           extends     handle
type region             extends     handle
type rect               extends     handle
type boolexpr           extends     handle
type sound              extends     handle
type conditionfunc      extends     boolexpr
type filterfunc         extends     boolexpr
type unitpool           extends     handle
type itempool           extends     handle
type race               extends     handle
type alliancetype       extends     handle
type racepreference     extends     handle
type gamestate          extends     handle
type igamestate         extends     gamestate
type fgamestate         extends     gamestate
type playerstate        extends     handle
type playerscore        extends     handle
type playergameresult   extends     handle
type unitstate          extends     handle
type aidifficulty       extends     handle

type eventid            extends     handle
type gameevent          extends     eventid
type playerevent        extends     eventid
type playerunitevent    extends     eventid
type unitevent          extends     eventid
type limitop            extends     eventid
type widgetevent        extends     eventid
type dialogevent        extends     eventid
type unittype           extends     handle

type gamespeed          extends     handle
type gamedifficulty     extends     handle
type gametype           extends     handle
type mapflag            extends     handle
type mapvisibility      extends     handle
type mapsetting         extends     handle
type mapdensity         extends     handle
type mapcontrol         extends     handle
type playerslotstate    extends     handle
type volumegroup        extends     handle
type camerafield        extends     handle
type camerasetup        extends     handle
type playercolor        extends     handle
type placement          extends     handle
type startlocprio       extends     handle
type raritycontrol      extends     handle
type blendmode          extends     handle
type texmapflags        extends     handle
type effect             extends     handle
type effecttype         extends     handle
type weathereffect      extends     handle
type terraindeformation extends     handle
type fogstate           extends     handle
type fogmodifier        extends     handle
type dialog             extends     handle
type button             extends     handle
type quest              extends     handle
type questitem          extends     handle
type defeatcondition    extends     handle
type timerdialog        extends     handle
type leaderboard        extends     handle
type multiboard         extends     handle
type multiboarditem     extends     handle
type trackable          extends     handle
type gamecache          extends     handle
type version            extends     handle
type itemtype           extends     handle
type texttag            extends     handle
type attacktype         extends     handle
type damagetype         extends     handle
type weapontype         extends     handle
type soundtype          extends     handle
type lightning          extends     handle
type pathingtype        extends     handle
type image              extends     handle
type ubersplat          extends     handle

function Trig_EBcast_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A022'
endfunction

function BeastSummonCheck takes nothing returns boolean
if((GetUnitTypeId(GetFilterUnit())=='n002'))then
    return true
endif
return false
endfunction

function ItemReturn takes nothing returns nothing
local player p=GetOwningPlayer(GetTriggerUnit())
local unit ih=I2U(GetStoredInteger(udg_cache,I2S(H2I(p)),"ebiholder"))
local unit beast=I2U(GetStoredInteger(udg_cache,I2S(H2I(p)),"EnragedBeast"))
if ih!=null then
call UnitAddItem(beast,UnitRemoveItemFromSlot(ih,0))
call UnitAddItem(beast,UnitRemoveItemFromSlot(ih,1))
call UnitAddItem(beast,UnitRemoveItemFromSlot(ih,2))
call UnitAddItem(beast,UnitRemoveItemFromSlot(ih,3))
call UnitAddItem(beast,UnitRemoveItemFromSlot(ih,4))
call UnitAddItem(beast,UnitRemoveItemFromSlot(ih,5))
endif
endfunction

function Trig_EBcast_Actions takes nothing returns nothing
local unit u=GetTriggerUnit()
local player p=GetOwningPlayer(u)
local location loc=GetUnitLoc(u)
local group g=CreateGroup()
local boolexpr scheck=Condition(function BeastSummonCheck)
local boolean b
local integer lvl=GetUnitAbilityLevel(u,'A022')
call GroupEnumUnitsOfPlayer(g,p,scheck)
call DestroyBoolExpr(scheck)
set b=CountUnitsInGroup(g)==0
if lvl==1 and b then
call CreateNUnitsAtLoc(1,'n002',p,loc,bj_UNIT_FACING)
call StoreInteger(udg_cache,I2S(H2I(p)),"EnragedBeast",H2I(bj_lastCreatedUnit))
call ItemReturn()
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",bj_lastCreatedUnit,"chest"))
else
call SimError(p,"You cannot control two beasts.")
call IssueImmediateOrder(u, "stop")
endif
call DestroyGroup(g)
call RemoveLocation(loc)
set u=null
endfunction

//===========================================================================
function InitTrig_EBcast takes nothing returns nothing
    set gg_trg_EBcast = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_EBcast, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_EBcast, Condition( function Trig_EBcast_Conditions ) )
    call TriggerAddAction( gg_trg_EBcast, function Trig_EBcast_Actions )
endfunction

function Trig_EBdeath_Conditions takes nothing returns boolean
    return GetUnitTypeId(GetTriggerUnit()) == 'n002'
endfunction

function itemsSafe takes nothing returns nothing
local player p=GetOwningPlayer(GetTriggerUnit())
local unit ih=I2U(GetStoredInteger(udg_cache,I2S(H2I(p)),"ebiholder"))
local integer x=1700
local integer y=-2889
if ih==null then
set ih=CreateUnit(p,'uabo',x,y,bj_UNIT_FACING)
call StoreInteger(udg_cache,I2S(H2I(p)),"ebiholder", H2I(ih))
//call ShowUnit(ih,false)
endif
call UnitAddItem(ih,GetEnumItem())
set ih=null
endfunction

function Trig_EBdeath_Actions takes nothing returns nothing
local location loc=GetUnitLoc(GetTriggerUnit())
local rect locc=RectFromCenterSizeBJ(loc,300,150)
call EnumItemsInRectBJ(locc,function itemsSafe)
call RemoveLocation(loc)
call RemoveRect(locc)
endfunction

//===========================================================================
function InitTrig_EBdeath takes nothing returns nothing
    set gg_trg_EBdeath = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_EBdeath, EVENT_PLAYER_UNIT_DEATH )
    call TriggerAddCondition( gg_trg_EBdeath, Condition( function Trig_EBdeath_Conditions ) )
    call TriggerAddAction( gg_trg_EBdeath, function Trig_EBdeath_Actions )
endfunction

function Trig_____________________________________004_Actions takes nothing returns nothing
local unit u=gg_unit_N001_0077
local integer i=0
loop
exitwhen i>=5
set i=i+1
call DisplayTextToForce(GetForceOfPlayer(GetOwningPlayer(u)),I2S(i))
call StoreInteger(udg_cache,"i",I2S(H2I(UnitItemInSlot(u,i))),H2I(UnitItemInSlot(u,i)))
endloop
endfunction

function Trig_____________________________________005_Actions takes nothing returns nothing
local unit u=gg_unit_N001_0077
local integer i=0
loop
exitwhen i>=5
set i=i+1
call DisplayTextToForce(GetPlayersAll(),I2S(i))
call UnitAddItemById(u,GetStoredInteger(udg_cache,"i",I2S(i)))
endloop
endfunction