function MHConditions takes nothing returns boolean
    return ( GetSpellAbilityId() == 'A0EP' )
endfunction
 
function MHActions takes nothing returns nothing
    local unit caster = GetTriggerUnit()
    local location targetLoc = GetSpellTargetLoc()
    local real tx = GetLocationX(targetLoc)
    local real ty = GetLocationY(targetLoc)
    local real cx = GetUnitX(caster)
    local real cy = GetUnitY(caster)
    local real angle = Atan2((ty-cy),(tx-cx))
    local MeatHook hook = MeatHook.create()
    local PudgeData pd = GHInt(caster,"data" )
    call SetUnitAnimationByIndex( caster, 2 )
    call hook.SpawnHook(caster,angle)
    set caster = null
    call RemoveLocation(targetLoc)
    set targetLoc = null
endfunction
 
//===========================================================================
 
function InitTrig_Meat_Hook takes nothing returns nothing
    set gg_trg_Meat_Hook = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Meat_Hook, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Meat_Hook, Condition( function MHConditions ) )
    call TriggerAddAction( gg_trg_Meat_Hook, function MHActions )
endfunction

globals
    real DAMAGEBASE = 250
    real RADIUSBASE = 80
    real SPEEDBASE = 900
    real RANGEBASE = 1500
 
    real RADIUSINC = 20
    real RANGEINC = 100
    real DAMAGEINC = 50
    real SPEEDINC = 80
endglobals
 
function Trig_Upgrades_Actions takes nothing returns nothing
    local unit buyer = GetBuyingUnit()
    local integer upg = GetItemTypeId(GetSoldItem())
    local PudgeData data = GHInt(buyer,"data" )
    local player p = GetOwningPlayer(buyer)
    if(upg == 'I09Q')then //Radius
        if data.RADIUS < 80+RADIUSINC*10 then
            set data.RADIUS = data.RADIUS+ RADIUSINC
            call TimedEffectUnit(buyer,"origin",3,"Abilities\\Spells\\Items\\AIam\\AIamTarget.mdl" )
        else
            call DisplayTextToForce( bj_FORCE_PLAYER[GetPlayerId(p)], "Sorry, you've maxed this stat.  You can only have 10 of any upgrade" )
            call AdjustPlayerStateBJ( 20, p, PLAYER_STATE_RESOURCE_GOLD )
        endif
    endif
    if(upg == 'I09T')then //Range
        if data.RANGE < 1500+RANGEINC*10 then
            set data.RANGE = data.RANGE + RANGEINC
            call TimedEffectUnit(buyer,"origin",3,"Abilities\\Spells\\Items\\AIam\\AIamTarget.mdl" )
        else
            call DisplayTextToForce( bj_FORCE_PLAYER[GetPlayerId(p)], "Sorry, you've maxed this stat.  You can only have 10 of any upgrade" )
            call AdjustPlayerStateBJ( 25, p, PLAYER_STATE_RESOURCE_GOLD )
        endif
    endif
    if(upg == 'I09U')then //Damage
        if data.DAMAGE < 250+DAMAGEINC*10 then
            set data.DAMAGE = data.DAMAGE + DAMAGEINC
            call TimedEffectUnit(buyer,"origin",3,"Abilities\\Spells\\Items\\AIam\\AIamTarget.mdl" )
        else
            call DisplayTextToForce( bj_FORCE_PLAYER[GetPlayerId(p)], "Sorry, you've maxed this stat.  You can only have 10 of any upgrade" )
            call AdjustPlayerStateBJ( 30, p, PLAYER_STATE_RESOURCE_GOLD )
        endif
    endif
    if(upg == 'I09V')then //Speed
        if data.SPEED < 900/50+(SPEEDINC*10)/50 then
            set data.SPEED = data.SPEED + (SPEEDINC/50)
            call TimedEffectUnit(buyer,"origin",3,"Abilities\\Spells\\Items\\AIam\\AIamTarget.mdl" )
        else
            call DisplayTextToForce( bj_FORCE_PLAYER[GetPlayerId(p)], "Sorry, you've maxed this stat.  You can only have 10 of any upgrade" )
            call AdjustPlayerStateBJ( 20, p, PLAYER_STATE_RESOURCE_GOLD )
        endif
    endif
    set buyer = null
endfunction
 
//===========================================================================
function InitTrig_Upgrades takes nothing returns nothing
    set gg_trg_Upgrades = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Upgrades, EVENT_PLAYER_UNIT_SELL_ITEM )
    call TriggerAddAction( gg_trg_Upgrades, function Trig_Upgrades_Actions )
endfunction