Spellpack Hero: Mogul Kahn

ReVolver · Dec 8, 2007

In the war of Humans and Orcs that occured long ago many Orcish warriors were corrupted by demonic influence and became tools of blackest darkness. One such warrior was the leader of the Half-Tribe of the Bloodied Axe Clan; Mogul Kahn. Mogul was slain by human Paladins but mysteriously was seen fighting alongside the Scourge around the time Mannoroth started to command the Orcs in the war against Archimonde. The Axe has been revived by demons and uses his reflexes and powerful blows to hunt down and seek out the Sentinels' agile warriors and cut them down to size, even projecting his lust for war onto them.

Implement Instructions:
-Requires NewGen World Editor
-Kattana's Handle Variables

Spells:

Berserker's Call

JASS:

scope BerserkersCall

//===========================================================================
//  Mogul Kahn&#039;s Berserker&#039;s Call
//  Description: Mogul Kahn focuses all of his enemies&#039; hatred on him, causing them to attack him at all costs.
//          300 AoE.
//      Level 1 - 1.5 seconds, 5 bonus armor.
//      Level 2 - 2 seconds, 10 bonus armor.
//      Level 3 - 2.5 seconds, 15 bonus armor.
//      Level 4 - 3 seconds, 20 bonus armor. 
//
//  Author: Orc_Tamer
//  Date: 07.December.2007
//
//  You will need:
//  Berserker&#039;s Call Ability &#039;A003&#039;
//  Berserker&#039;s Call Buff &#039;B002&#039;
//  Berserker&#039;s Call Item Armor Bonus Ability &#039;A004&#039;
//
//===========================================================================

globals
    private integer SpellID = &#039;A003&#039;
    private integer Armor = &#039;A004&#039;
    private unit Axe
    private real AoE = 300
    private real Wait
endglobals

private function Conditions takes nothing returns boolean
    return GetSpellAbilityId() == SpellID
endfunction

private function BUnit takes nothing returns boolean
    return GetBooleanAnd( IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(Axe)) == true, IsUnitAliveBJ(GetFilterUnit()) == true )
endfunction

private function AttackAxe takes nothing returns nothing
    if UnitHasBuffBJ(GetFilterUnit(),&#039;B002&#039;) == true then
    call IssueTargetOrder(GetEnumUnit(), &quot;attack&quot;, Axe)
    endif
endfunction

private function Actions takes nothing returns nothing
    local timer t = CreateTimer()
    local group g = CreateGroup()
    local unit tmpUnit
    set Axe = GetTriggerUnit()
    call GroupEnumUnitsInRange(g, GetUnitX(Axe), GetUnitY(Axe), AoE, Condition(function BUnit))
        loop
        set tmpUnit = FirstOfGroup(g)
        exitwhen (tmpUnit == null)
        call IssueTargetOrder(tmpUnit, &quot;attack&quot;, Axe)
        call TimerStart(t,.5,true,function AttackAxe)
        call GroupRemoveUnit(g, tmpUnit)
     endloop
    set Wait = 1 + .5*GetUnitAbilityLevel(Axe,SpellID)
    call UnitAddAbility(Axe,Armor)
    call SetUnitAbilityLevel(Axe,Armor, GetUnitAbilityLevel(Axe,SpellID))
    call DisableTrigger( GetTriggeringTrigger() )
    call PolledWait(Wait)
    call PauseTimer(t)
    call DestroyTimer(t)
    call UnitRemoveAbility(Axe, Armor)
    set Axe = null
    call EnableTrigger( GetTriggeringTrigger())
    call DestroyGroup(g)
endfunction

public function InitTrig takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( t, Condition( function Conditions ) )
    call TriggerAddAction( t, function Actions )
endfunction

endscope

Battle Hunger

JASS:

scope BattleHunger
//===========================================================================
//  Mogul Kahn&#039;s Battle Hunger
//  Description: Afflicts a target with a terrible killing hunger. The target will take damage per second until it kills a unit.
//      Level 1 - 15 damage/second, lasts 10 seconds.
//      Level 2 - 20 damage/second, lasts 15 seconds.
//      Level 3 - 25 damage/second, lasts 20 seconds.
//      Level 4 - 30 damage/second, lasts 25 seconds. 
//
//  Author: Orc_Tamer
//  Date: 07.December.2007
//
//  You will need:
//  Battle Hunger Ability &#039;A002&#039;
//  Battle Hunger Buff &#039;B001&#039;
//  RemoveHunger Trigger
//
//===========================================================================

globals
    private integer SpellID = &#039;A002&#039; //Battle Hunger&#039;s Spell Raw Code
    private integer BuffID = &#039;B001&#039; //Battle Hunger&#039;s Buff Raw Code
    private real Duration = 5 //This is the base number for the equation #+5*Level of Battle Hunger
    private real Damage = 10 //This is the base number for the equation #+5*Level of Battle Hunger
endglobals

private function Conditions takes nothing returns boolean
    return GetSpellAbilityId() == SpellID
endfunction

private function HungerDamage takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local unit c = GetHandleUnit(t,&quot;victim&quot;)
    local unit tg = GetHandleUnit(t,&quot;source&quot;)
    local integer time = GetHandleInt(t, &quot;update&quot;)
    local integer d = GetHandleInt(t,&quot;duration&quot;)
    if UnitHasBuffBJ(c, BuffID) == true and IsUnitAliveBJ(c) == true then
    call UnitDamageTarget(tg, c,Damage+5*GetUnitAbilityLevel(tg,SpellID), true, true, ATTACK_TYPE_MAGIC, DAMAGE_TYPE_NORMAL, null)
    call SetHandleReal(t, &quot;duration&quot;, d-1)
    endif
    if (d &lt;= 1) or IsUnitAliveBJ(c) == false or UnitHasBuffBJ(c, BuffID) == false then
    call FlushHandleLocals(t)
    call DestroyTimer(t)
    set t = null
    set c = null
    set tg = null
    endif
endfunction

private function Actions takes nothing returns nothing
    local timer t = CreateTimer()
    local unit c = GetTriggerUnit()
    local unit tg = GetSpellTargetUnit()
    local integer time = 1
    local integer d = R2I(Duration+5*GetUnitAbilityLevel(tg,SpellID))
    call SetHandleHandle(t, &quot;victim&quot;, tg)
    call SetHandleHandle(t, &quot;source&quot;, c)
    call SetHandleInt(t, &quot;update&quot;, time)
    call SetHandleInt(t, &quot;duration&quot;,d)
    call TimerStart(t, time, true, function HungerDamage)
endfunction

public function InitTrig takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( t, Condition( function Conditions ) )
    call TriggerAddAction( t, function Actions )
endfunction

endscope

Counter Helix

JASS:

scope CounterHelix

//===========================================================================
//  Mogul Kahn&#039;s Counter Helix
//  Description: Mogul Kahn counters some blows made to him dealing damage to all nearby enemy units.
//      Level 1 - 15% chance to counter with 100 damage.
//      Level 2 - 15% chance to counter with 125 damage.
//      Level 3 - 15% chance to counter with 150 damage.
//      Level 4 - 15% chance to counter with 175 damage.
//
//  Author: Orc_Tamer
//  Date: 07.December.2007
//
//  You will need:
//  Counter Helix Ability &#039;A000&#039;
//  Counter Helix Buff &#039;B000&#039;
//  Remove Hunger Trigger
//
//===========================================================================

globals
    private integer SpellID = &#039;A000&#039;
    private integer BuffID = &#039;B000&#039;
    private integer Damage = 100
    private integer Radius = 300
    private integer Chance = 15
    private string SpellEffect = &quot;Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl&quot;
endglobals

private function Conditions takes nothing returns boolean
    return GetUnitAbilityLevel(GetTriggerUnit(),BuffID) &gt; 0
    return GetRandomInt(1,100) &lt;= Chance
endfunction

private function IsAttackedEnemy takes nothing returns boolean
    return IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(GetTriggerUnit())) == true and IsUnitAliveBJ(GetFilterUnit()) == true
endfunction

private function Actions takes nothing returns nothing
    local unit  attacked = GetTriggerUnit()
    local group g        = CreateGroup()
    local unit  tmpUnit
     call GroupEnumUnitsInRange(g, GetUnitX(attacked), GetUnitY(attacked), Radius, Condition(function IsAttackedEnemy))
     call SetUnitAnimation(attacked, &quot;spin&quot;)
     loop
        set tmpUnit = FirstOfGroup(g)
        exitwhen (tmpUnit == null)
        call UnitDamageTarget(attacked, tmpUnit, Damage+25*GetUnitAbilityLevel(attacked,SpellID), true, true, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, null)
        call DestroyEffect(AddSpecialEffectTarget(SpellEffect, tmpUnit,&quot;chest&quot;))
        call GroupRemoveUnit(g, tmpUnit)
     endloop
     call DisableTrigger(GetTriggeringTrigger())
     call TriggerSleepAction(.6)
     call SetUnitAnimation(attacked, &quot;stand&quot;)
     call EnableTrigger(GetTriggeringTrigger())
     call DestroyGroup(g)
     set attacked = null
     set tmpUnit  = null
     set g        = null
endfunction

public function InitTrig takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddCondition( t, Condition( function Conditions ) )
    call TriggerAddAction( t, function Actions )
endfunction

endscope

Culling Blade

JASS:

scope CullingBlade

//===========================================================================
//  Mogul Kahn&#039;s Culling Blade
//  Description: Purges the weak from Mogul Kahn&#039;s sight. Deals moderate damage, but will kill a target that is low on life.
//      Level 1 - Deals 150 damage, will kill if target is below 300.
//      Level 2 - Deals 250 damage, will kill if target is below 450.
//      Level 3 - Deals 300 damage, will kill if target is below 625. 
//
//  Author: Orc_Tamer
//  Date: 07.December.2007
//
//  You will need:
//  Culling Blade Ability &#039;A001&#039;
//
//===========================================================================

globals
        private integer SpellID = &#039;A001&#039;
endglobals

private function Conditions takes nothing returns boolean
    return GetSpellAbilityId() == SpellID 
endfunction

private function Actions takes nothing returns nothing
    local unit caster = GetTriggerUnit()
    local unit target = GetSpellTargetUnit()
    if  GetUnitState(target,UNIT_STATE_LIFE) &lt;= 300 and GetUnitAbilityLevel(caster,SpellID) == 1 then
    call UnitDamageTarget(caster,target,10000000.,true,true, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_UNKNOWN,WEAPON_TYPE_WHOKNOWS)
    elseif GetUnitAbilityLevel(caster,SpellID) == 1 then
    call SetUnitLifeBJ( target, ( GetUnitStateSwap(UNIT_STATE_LIFE, target) - 150.00 ) )    
    endif
    if  GetUnitState(target,UNIT_STATE_LIFE) &lt;= 450 and GetUnitAbilityLevel(caster,SpellID) == 2 then
    call UnitDamageTarget(caster,target,10000000.,true,true, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_UNKNOWN,WEAPON_TYPE_WHOKNOWS)
    elseif GetUnitAbilityLevel(caster,SpellID) == 2 then
    call SetUnitLifeBJ( target, ( GetUnitStateSwap(UNIT_STATE_LIFE, target) - 250.00 ) )    
    endif
    if  GetUnitState(target,UNIT_STATE_LIFE) &lt;= 625 and GetUnitAbilityLevel(caster,SpellID) == 3 then
    call UnitDamageTarget(caster,target,10000000.,true,true, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_UNKNOWN,WEAPON_TYPE_WHOKNOWS)
    elseif GetUnitAbilityLevel(caster,SpellID) == 3 then
    call SetUnitLifeBJ( target, ( GetUnitStateSwap(UNIT_STATE_LIFE, target) - 300.00 ) )    
    endif
    set caster = null
    set target = null
    endfunction

public function InitTrig takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( t, Condition( function Conditions ) )
    call TriggerAddAction( t, function Actions )
endfunction

endscope

waaaks! · Dec 8, 2007

bersekrer's call
emjlr3 already made this but its in gui
u can optimize the code

JASS:

scope BerserkersCall

//===========================================================================
//  Mogul Kahn&#039;s Berserker&#039;s Call
//  Description: Mogul Kahn focuses all of his enemies&#039; hatred on him, causing them to attack him at all costs.
//          300 AoE.
//      Level 1 - 1.5 seconds, 5 bonus armor.
//      Level 2 - 2 seconds, 10 bonus armor.
//      Level 3 - 2.5 seconds, 15 bonus armor.
//      Level 4 - 3 seconds, 20 bonus armor.
//
//  Author: Orc_Tamer
//  Date: 07.December.2007
//
//  You will need:
//  Berserker&#039;s Call Ability &#039;A003&#039;
//  Berserker&#039;s Call Buff &#039;B002&#039;
//  Berserker&#039;s Call Item Armor Bonus Ability &#039;A004&#039;
//
//===========================================================================

globals
    private integer SpellID = &#039;A003&#039;
    private integer Armor = &#039;A004&#039;
    private unit Axe
    private real AoE = 300
    private real fac = 5
endglobals

private function Conditions takes nothing returns boolean
    return GetSpellAbilityId() == SpellID
endfunction

private function BUnit takes nothing returns boolean
    return GetBooleanAnd( IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(Axe)) == true, IsUnitAliveBJ(GetFilterUnit()) == true )
endfunction

private function AttackAxe takes nothing returns nothing
    if UnitHasBuffBJ(GetFilterUnit(),&#039;B002&#039;) == true then
    call IssueTargetOrder(GetEnumUnit(), &quot;attack&quot;, Axe)
    endif
endfunction

private function Actions takes nothing returns nothing
    local timer t = CreateTimer()
    local group g = CreateGroup()
    local unit tmpUnit
    local integer l
    local real wait
    set Axe = GetTriggerUnit()
    set l = GetUnitAbilityLevel(Axe, &#039;A003&#039;)
    set wait = 1 + (5*l)
    call GroupEnumUnitsInRange(g, GetUnitX(Axe), GetUnitY(Axe), AoE, Condition(function BUnit))
        loop
         set tmpUnit = FirstOfGroup(g)
         exitwhen (tmpUnit == null)
         call IssueTargetOrder(tmpUnit, &quot;attack&quot;, Axe)
         call TimerStart(t,.5,true,function AttackAxe)
         call GroupRemoveUnit(g, tmpUnit)
        endloop
    call UnitAddAbility(Axe,Armor)
    call SetUnitAbilityLevel(Axe,Armor, GetUnitAbilityLevel(Axe,SpellID))
    call DisableTrigger( GetTriggeringTrigger() )
    call PolledWait(wait)
    call PauseTimer(t)
    call DestroyTimer(t)
    call UnitRemoveAbility(Axe, Armor)
    set Axe = null
    call EnableTrigger( GetTriggeringTrigger())
    call DestroyGroup(g)
endfunction

public function InitTrig takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( t, Condition( function Conditions ) )
    call TriggerAddAction( t, function Actions )
endfunction

endscope

EDIT: for battle hunger, wheres the trigger where it removes the buff when it kills a unit?
counter helix, emjlr3 already made it, but still in GUI
also for culling blade

anyways good job

~GaLs~ · Dec 8, 2007

This is more likely a compact version of every spell. Since this hero's spells are easy to be made, most of it had been made by others.

Arkan · Dec 8, 2007

Isn't berserker's call just a taunt with armor bonus?

ReVolver · Dec 8, 2007

Isn't berserker's call just a taunt with armor bonus?

The real version was not made using taunt, I guess it will be abusive/imbalanced or something.

darkRae · Dec 8, 2007

If Berserker's Call were just a plain Taunt, units could be ordered again after getting Taunted.
Taunt just orders units to attack the caster (<- can be canceled by re-ordering the units)

waaaks! · Dec 8, 2007

i used taunt last time, and u know what...all of my enemy creeps keep on attacking me even im in my base...not like berserker's call

darkRae · Dec 8, 2007

^That's because they are ordered to attack you, and since they have to chase you to attack, then they're following you.

(wait, unless you're saying that you're in your base, and ALL creeps in the map began to chase you)

~GaLs~ · Dec 8, 2007

>>i used taunt last time, and u know what...all of my enemy creeps keep on attacking me even im in my base...not like berserker's call
Isn't there is a place you may modify for range and duration?

PurgeandFire · Dec 8, 2007

Nice, but I think you should remove the BJs and use structs instead of handles for easier implementation.

hell_knight · Dec 8, 2007

From first glance I see a flaw, you see that ogre magi? He auto casted his bloodlust.
Thats the first bug xD , I've seen qutie a few of these think emj3 made one?
I think in dota , they made it if a unit is issued anything but attack , it is re-ordered to attack.

Sim · Dec 8, 2007

>I think in dota , they made it if a unit is issued anything but attack , it is re-ordered to attack.

Exactly.

> Isn't berserker's call just a taunt with armor bonus?

It is not the same as Taunt.

First of all Taunt has no duration: it lasts indefinitely. Until the unit is re-ordered. That would explain creeps chasing one of the above posters.

Second, Taunt can be canceled (as explained above).

ReVolver · Dec 8, 2007

I forgot to add a trigger the map, it's been updated, right know I'm trying to optimize some of my triggers.

Tinki3 · Dec 8, 2007

I've already made Counter Helix and Culling Blade (check my sig under "3 DotA spells, 4 customs)

.

Only major difference - your versions are in JASS, with my version of Counter Helix not MUI (not "so" MUI, anyway).

It's good having Axe's spells all in one thread/spellpack, but if I recall, the rules say don't make what's been made before.

We could probably let you off anyway

Trollvottel · Mar 7, 2008

JASS:


private function BUnit takes nothing returns boolean
    return GetBooleanAnd( IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(Axe)) == true, IsUnitAliveBJ(GetFilterUnit()) == true )
endfunction

could be

JASS:


private function BUnit takes nothing returns boolean
    return IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(Axe)) and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) &gt; 0
endfunction

try to get rid of BJs

~GaLs~ · Mar 7, 2008

1. You had alot of BJs usage in your code, get rid of it.
2. Your battlehunger can be canceled? I don't see the category of killing unit removes the effect in your code.

soulreaping · Mar 7, 2008

Another one?
Meh, stop making this hero it is so boring and easy to make.

Also, why the hell you use local handle vars when you use NewGen and use struct attachment which is much faster?

emjlr3 · Mar 7, 2008

it should be noted that neither Counter Helix or Berserk's Call are MUI

and please, quit with the Kattanas, they are so 2004.....

ReVolver · Mar 7, 2008

emjlr3 said:
it should be noted that neither Counter Helix or Berserk's Call are MUI

and please, quit with the Kattanas, they are so 2004.....

Yea, I learned Kattana a little too late >< What do you suggest me to know in order to attach units to a timer? ect?

Trollvottel · Mar 7, 2008

dont attach units to the timer, attach a struct containing the unit to the timer, there are many struct attachment systems out there (TT,ABCT, ABC etc...)

Spellpack Hero: Mogul Kahn

Mega Super Ultra Cool Member

Attachments

Zinctified

† Ғσſ ŧħə ѕαĸε Φƒ ~ĞäŁš~ †

Nobody rides for free

Mega Super Ultra Cool Member

Ueki Fan (Ueki is watching you)

Zinctified

Ueki Fan (Ueki is watching you)

† Ғσſ ŧħə ѕαĸε Φƒ ~ĞäŁš~ †

zxcvmkgdfg

Playing WoW

Forum Administrator

Mega Super Ultra Cool Member

Special Member

never aging title

† Ғσſ ŧħə ѕαĸε Φƒ ~ĞäŁš~ †

New Member

Change can be a good thing

Mega Super Ultra Cool Member

never aging title

Log in

The Helper Discord

Share this page

Affiliates

Network Sponsors