Unit - A unit Stops casting an ability
huge impact!!!!!!
/*
===DarkElementals v1.0
===Made by Mckill2009
===Entry for: The Legendary Fight 2012
HOW TO INSTALL:
- Copy the custom abilities and units to your map.
- Import this code and ALL the required libraries to your map.
- Change the rawID's of the custom abilities and units if necessary.
- Done!
CREDITS:
- TimerUtils by Vexorian
- Table by Bribe
- SpellEffectEvent by Bribe
- RegisterPlayerUnitEvent by Magtheridon96
ICONS AND MODELS CREDITS:
- Ice Elemental by Burning_Dragoon5
- ShadowInfernal by Necromancer_187
- LightningTitan by ???
- BTNShadowSpawm by Mr.Goblin
- BTNInfernal by bigapple90
- BTNBrassInfernal by b17rider
*/
library DarkElementals uses TimerUtils, Table, SpellEffectEvent
globals
private TableArray el
private constant integer SPELL_ID = 'A002'
private constant integer DUMMY_ID = 'h000'
private constant integer SHELL_ID = 'h002'
private constant integer FIRE_ID = 'n000'
private constant integer ICE_ID = 'n001'
private constant integer SHADOW_ID = 'n002'
private constant integer ROCK_ID = 'n003'
private constant integer LIGHTNING_ID = 'n004'
private constant integer SUPER_ID = 'n005'
private constant real AOE = 700
private constant integer ORDER_ID = 852593 //stampede
private constant string C_SFX = "Abilities\\Spells\\NightElf\\Starfall\\StarfallCaster.mdl"
private constant string DY_SFX = "Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl"
private constant string SUPER_SFX = "Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl"
endglobals
native UnitAlive takes unit a returns boolean
struct DE
unit c
unit elemental
unit dummy
unit shell
real xSpell
real ySpell
real dur
real facing
real shellSize
real flyHeight
integer count
effect cSfx
boolean superChk
private static unit tempU
private static integer DATA
private static group restoreGroup = CreateGroup()
private method destroy takes nothing returns nothing
call DestroyEffect(.cSfx)
call KillUnit(.dummy)
set .c = null
set .elemental = null
set .dummy = null
set .shell = null
set .cSfx = null
call .deallocate()
endmethod
private static method restoreNow takes nothing returns nothing
local thistype this = DATA
local unit u = GetEnumUnit()
call GroupRemoveUnit(restoreGroup,u)
call PauseUnit(u,false)
call SetUnitInvulnerable(u,false)
call SetUnitOwner(u,GetOwningPlayer(.c),true)
set u = null
endmethod
private static method filterElemental takes unit u returns boolean
return GetUnitTypeId(u)==FIRE_ID or GetUnitTypeId(u)==ICE_ID or GetUnitTypeId(u)==SHADOW_ID or GetUnitTypeId(u)==ROCK_ID or GetUnitTypeId(u)==LIGHTNING_ID
endmethod
private method createElemental takes integer unitID returns unit
call ShowUnit(.elemental,false)
call KillUnit(.elemental)
set tempU = CreateUnit(Player(15),unitID,.xSpell,.ySpell,.facing)
call DestroyEffect(AddSpecialEffectTarget(DY_SFX,tempU,"origin"))
call SetUnitAnimation(tempU,"birth")
call PauseUnit(tempU,true)
call SetUnitInvulnerable(tempU,true)
return tempU
endmethod
private static method onLooper takes nothing returns nothing
local thistype this = GetTimerData(GetExpiredTimer())
local unit elem
local integer i
if GetUnitCurrentOrder(.c)==ORDER_ID then
if .superChk then
set .count = .count + 1
set .shellSize = .shellSize + 0.4
set .flyHeight = .flyHeight + 25
set elem = el[.count].unit[GetHandleId(.dummy)]
call DestroyEffect(AddSpecialEffect(DY_SFX,GetUnitX(elem),GetUnitY(elem)))
call KillUnit(elem)
call SetUnitScale(.shell,.shellSize,.shellSize,.shellSize)
call SetUnitFlyHeight(.shell,.flyHeight,0)
if .count==5 then
//summon super elemental here!
call KillUnit(.shell)
set elem = CreateUnit(GetOwningPlayer(.dummy),SUPER_ID,.xSpell,.ySpell,.facing)
call DestroyEffect(AddSpecialEffectTarget(SUPER_SFX,elem,"origin"))
call IssueImmediateOrder(.c,"stop")
endif
set elem = null
else
//if .superChk==false, or less than 5 it creates normal elementals
set .dur = .dur + 0.2
if .dur==5 then
set .elemental = .createElemental(FIRE_ID)
elseif .dur==10 then
set .elemental = .createElemental(ICE_ID)
elseif .dur==15 then
set .elemental = .createElemental(SHADOW_ID)
elseif .dur==20 then
set .elemental = .createElemental(ROCK_ID)
elseif .dur==25 then
set .elemental = .createElemental(LIGHTNING_ID)
endif
endif
else
if .superChk then
//restore elementals if spell ends prematurely
call KillUnit(.shell)
set i = 0
loop
set i = i + 1
set elem = el[i].unit[GetHandleId(.dummy)]
if UnitAlive(elem) then
call PauseUnit(elem,false)
call SetUnitInvulnerable(elem,false)
call SetUnitAnimation(elem,"stand")
call SetUnitOwner(elem,GetOwningPlayer(.c),true)
endif
set elem = null
exitwhen i==5
endloop
endif
//superChk==false
if .elemental!=null then
call PauseUnit(.elemental,false)
call SetUnitInvulnerable(.elemental,false)
call SetUnitAnimation(.elemental, "stand")
call SetUnitOwner(.elemental,GetOwningPlayer(.c),true)
endif
call ReleaseTimer(GetExpiredTimer())
call .destroy()
endif
endmethod
//! textmacro PICK takes dumID
set el[$dumID$].boolean[dumID] = false
set el[$dumID$].unit[dumID] = first
set counter = counter + 1
call PauseUnit(first,true)
call SetUnitInvulnerable(first,true)
call GroupAddUnit(restoreGroup,first)
call SetUnitOwner(first,Player(15),true)
//! endtextmacro
private static method onCast takes nothing returns nothing
local thistype this = allocate()
local unit first
local integer dumID
local integer fID
local integer counter = 0
set .c = GetTriggerUnit()
set .elemental = null
set .xSpell = GetSpellTargetX()
set .ySpell = GetSpellTargetY()
set .dur = 0
set .dummy = CreateUnit(GetTriggerPlayer(),DUMMY_ID,.xSpell,.ySpell,0)
set .cSfx = AddSpecialEffectTarget(C_SFX,.dummy,"origin")
set .facing = GetUnitFacing(.c)+180
set dumID = GetHandleId(.dummy)
set el[1].boolean[dumID] = true
set el[2].boolean[dumID] = true
set el[3].boolean[dumID] = true
set el[4].boolean[dumID] = true
set el[5].boolean[dumID] = true
call GroupEnumUnitsInRange(bj_lastCreatedGroup,.xSpell,.ySpell,AOE,null)
loop
set first = FirstOfGroup(bj_lastCreatedGroup)
exitwhen first==null
if UnitAlive(first) and filterElemental(first) and GetOwningPlayer(first)==GetTriggerPlayer() then
set fID = GetHandleId(first)
if GetUnitTypeId(first)==FIRE_ID and el[1].boolean[dumID] then
//! runtextmacro PICK("1")
elseif GetUnitTypeId(first)==ICE_ID and el[2].boolean[dumID] then
//! runtextmacro PICK("2")
elseif GetUnitTypeId(first)==SHADOW_ID and el[3].boolean[dumID] then
//! runtextmacro PICK("3")
elseif GetUnitTypeId(first)==ROCK_ID and el[4].boolean[dumID] then
//! runtextmacro PICK("4")
elseif GetUnitTypeId(first)==LIGHTNING_ID and el[5].boolean[dumID] then
//! runtextmacro PICK("5")
endif
endif
call GroupRemoveUnit(bj_lastCreatedGroup,first)
endloop
//call BJDebugMsg(I2S(counter))
if counter==5 then
set .superChk = true
set .count = 0
set .flyHeight = 100
set .shellSize = 0.5
set .shell = CreateUnit(GetTriggerPlayer(),SHELL_ID,.xSpell,.ySpell,0)
call SetUnitScale(.shell,.shellSize,.shellSize,.shellSize)
call SetUnitFlyHeight(.shell,.flyHeight,0)
call TimerStart(NewTimerEx(this),3.0,true,function thistype.onLooper)
else
set DATA = this
call ForGroup(restoreGroup, function thistype.restoreNow)
set .superChk = false
call TimerStart(NewTimerEx(this),0.2,true,function thistype.onLooper)
endif
endmethod
private static method onInit takes nothing returns nothing
call RegisterSpellEffectEvent(SPELL_ID, function thistype.onCast)
set el = TableArray[0x2000]
endmethod
endstruct
endlibrary
library VengefulMissile requires Table, SpellEffectEvent, RegisterPlayerUnitEvent, Dummy, CTL
/*****************************************************
*
* VengefulMissile
* v1.0.0.0
* By Magtheridon96
*
* - This spell launches a missile at a target point
* to deal damage to all units in range. Missiles will
* then be launched at all living targets in an even
* larger radius.
*
* Requires:
* ---------
*
* RegisterPlayerUnitEvent By Magtheridon96
* -
* SpellEffectEvent By Bribe
* -
* Dummy By Nestharus
* -
* Table By Bribe
* -
* CTL By Nestharus
* -
*
* Implementation:
* ---------------
*
* 1. Import all the required systems.
* 2. Import the object editor data.
* (1 ability, 1 unit)
* 3. Copy this trigger to your map.
* 4. Import dummy.mdx into your map.
* 5. Configure the spell to your liking.
* 6. Enjoy!
*
* Configuration:
* --------------
*
*****************************************************/
globals
/*****************************************************
*
*
*
*****************************************************/
private constant integer ABIL_CODE = 'A000'
/*****************************************************
*
*
*
*****************************************************/
private constant boolean DESTROY_TREES = true
/*****************************************************
*
*
*
*****************************************************/
private constant real MISSILE_ACCELERATION = 0.7
private constant real MISSILE_INITIAL_SPEED = 1
endglobals
/*****************************************************
*
*
*
*****************************************************/
private function GetDamageAoE takes integer level returns real
return 200 + level * 50.
endfunction
/*****************************************************
*
*
*
*****************************************************/
private function GetHomingDamageAoE takes integer level returns real
return 350 + level * 75.
endfunction
/*****************************************************
*
*
*
*****************************************************/
private function GetDamage takes integer level returns real
return 225 + level * 50.
endfunction
/*****************************************************
*
*
*
*****************************************************/
private function GetHomingDamage takes integer level returns real
return 100 + level * 50.
endfunction
/*****************************************************
*
*
*
*****************************************************/
private struct VengefulMissile extends array
private static unit array caster
private static real array targetX
private static real array targetY
private static integer array level
private static real array homingDamage
private static boolean array phaseOne
private static Dummy array missile
private static Table array stack // Dummy array
private static Table array targets // unit array
private static integer array count
static if DESTROY_TREES then
private static rect treeRect = null
private static unit treeDetector = null
private static real treesRadius = 0
private static real treesX = 0
private static real treesY = 0
private static method isTree takes destructable d returns boolean
return IssueTargetOrderById(treeDetector, 852018, d) and IssueImmediateOrderById(treeDetector, 851972)
endmethod
private static method destroyTree takes nothing returns nothing
local destructable d = GetEnumDestructable()
local real x = GetWidgetX(d) - treesX
local real y = GetWidgetY(d) - treesY
/*
* If the destructable is a tree and it
* is in the circle, kill it
*/
if x*x+y*y <= treesRadius and isTree(d) then
call KillDestructable(d)
endif
set d = null
endmethod
endif
implement CTL
local unit u
implement CTLExpire
if phaseOne[this] then
else
endif
implement CTLNull
implement CTLEnd
private static method run takes nothing returns nothing
/*
* This will create a new instance.
*/
local thistype this = create()
/*
* This will set all the spell
* data.
*/
set caster[this] = GetTriggerUnit()
set targetX[this] = GetSpellTargetX()
set targetY[this] = GetSpellTargetY()
set level[this] = GetUnitAbilityLevel(caster[this], ABIL_CODE)
set homingDamage[this] =
set phaseOne[this] = true
/*
* This is where I create the initial missile.
*/
set missile[this] = Dummy.create(targetX[this], targetY[this], 0)
/*
* The logic here is funny, but it
* works the way I want it to.
*/
if stack[this] == 0 then
set stack[this] = Table.create()
else
set count[this] = 0
endif
endmethod
private static method onInit takes nothing returns nothing
call RegisterSpellEffectEvent(ABIL_CODE, function thistype.run)
static if DESTROY_TREES then
set treeDetector = CreateUnit(Player(15), 'hfoo', 0, 0, 0)
call UnitAddAbility(treeDetector, 'Ahrl')
call UnitAddAbility(treeDetector, 'Aloc')
call ShowUnit(treeDetector, false)
set treeRect = Rect(0,0,0,0)
endif
endmethod
endstruct
endlibrary
Is that an officially forfiture from Chaosy then? XD
You finger-crossed just so that your opponent forfeits ? LOL
I disagree, your standards are low, haha ! joking~
