WolfieeifloW
WEHZ Helper
- Reaction score
- 372
Frost Tauren Chieftain Model / Icon / Spell Pack
Created By: Wolfie[NoCT] and Fabioz
Version: 1.0
If something needs to be added for these to be approved, please tell me mods.
Credits:
All icons were edited by Wolfie[NoCT].
All models, except Frost Stomp, were done by Fabioz.
Frostincarnation vJASS triggers by saw792.
Frost Stomp credits here.
If you take the time to download / look at these, please at least leave a comment.
Icon Previews:
Models Preview:
Icon paths follow:
Spell Descriptions:
Triggers Code:
Test map included.
Constructive criticism is welcomed, flaming is not.
These icons will only be submitted to TH.net.
Do not redistribute or modify without permission.
Credits are not needed but are appreciated.
+Rep is also appreciated.
Would also be nice if you send me a message if you plan to use it.
Created By: Wolfie[NoCT] and Fabioz
Version: 1.0
If something needs to be added for these to be approved, please tell me mods.
Credits:
All icons were edited by Wolfie[NoCT].
All models, except Frost Stomp, were done by Fabioz.
Frostincarnation vJASS triggers by saw792.
Frost Stomp credits here.
If you take the time to download / look at these, please at least leave a comment.
Icon Previews:
Models Preview:
Icon paths follow:
Spell Descriptions:
Frostwave said:
Frost Stomp said:
Frost Aura said:
Frostincarnation said:
Triggers Code:
Frostwave
Frostincarnation
Code:
Frostwave
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to (==) Frostwave
Actions
Set tempTargetPoint = (Target point of ability being cast)
Set wavePointOne = (Position of (Triggering unit))
Set wavePointTwo = (wavePointOne offset by 800.00 towards (Angle from wavePointOne to tempTargetPoint) degrees)
Set waveGroupRegion = (Region(wavePointOne, wavePointTwo))
Set waveGroup = (Units in waveGroupRegion matching (((Matching unit) belongs to an enemy of (Owner of (Casting unit))) Equal to (==) True))
Unit Group - Pick every unit in waveGroup and do (Actions)
Loop - Actions
Set tempPoint = (Position of (Picked unit))
Unit - Create 1 DummyCaster for (Owner of (Casting unit)) at tempPoint facing Default building facing (270.0) degrees
Custom script: call RemoveLocation(udg_tempPoint)
Unit - Order (Last created unit) to Undead Lich - Frost Nova (Picked unit)
Unit - Add a 1.00 second Generic expiration timer to (Last created unit)
Custom script: call DestroyGroup(udg_waveGroup)
Custom script: call RemoveRect(udg_waveGroupRegion)
Custom script: call RemoveLocation(udg_wavePointTwo)
Custom script: call RemoveLocation(udg_wavePointOne)
Custom script: call RemoveLocation(udg_tempTargetPoint)JASS:
library RemovalDetection initializer Init needs TimerUtils
// Notes: CANNOT have two defend based abilities on same unit, or fires twice.
// ASSUMES that summoned units cannot be revived in any way. This ought to be true.
// If not, replace IsAnimated with 'return false' and don't use animate dead, or something.
// Devour ain't a problem, but they'll die and then decay, you just can't see them decaying.
//Config
// This line creates a new ability based off of defend - make sure it doesn't conflict.
//! external ObjectMerger w3a Adef rdd& anam "Removal Detection Defend"
globals
private constant integer SPELL_ID = 'rdd&' // must be the same as the parameter after "w3a Adef" above
private constant integer ORDER_ID = 852056 // undefend
private constant integer MAX_ARRAY_SIZE = 401000 //for the unit flag arrays
endglobals
private function AddAbility takes unit u returns nothing // have ALL defend based spells here
if (GetUnitAbilityLevel(u, SPELL_ID) + GetUnitAbilityLevel(u, 'Adef')) == 0 then
call UnitAddAbility(u, SPELL_ID)
endif
endfunction
private function IsAnimated takes unit u returns boolean
debug if IsUnitType(u, UNIT_TYPE_SUMMONED) then
// check needed due to animate dead sucking
debug call BJDebugMsg("Animated")
debug endif
return IsUnitType(u, UNIT_TYPE_SUMMONED)
endfunction
// DO NOT EDIT BELOW HERE
globals
//Unit flags
private boolean array dead[MAX_ARRAY_SIZE]
private boolean array animated[MAX_ARRAY_SIZE]
private boolean array reincarnated[MAX_ARRAY_SIZE]
//Event handling
private trigger array reincS
private trigger array reincF
private trigger array rez
private trigger array oos
private integer reincSMax = 0
private integer reincFMax = 0
private integer rezMax = 0
private integer oosMax = 0
private integer cnt = 0
//Event responses
private unit trg = null
private boolean amd = false
endglobals
//"Event Responses" and event registration
function TriggerRegisterReincarnationEvent takes trigger t, boolean finish returns nothing
if finish then
set reincF[reincFMax] = t
set reincFMax = reincFMax + 1
else
set reincS[reincSMax] = t
set reincSMax = reincSMax + 1
endif
endfunction
function TriggerRegisterResurrectionEvent takes trigger t returns nothing
set rez[rezMax] = t
set rezMax = rezMax + 1
endfunction
function TriggerRegisterOutOfScopeEvent takes trigger t returns nothing
set oos[oosMax] = t
set oosMax = oosMax + 1
endfunction
function GetReincarnatingUnit takes nothing returns unit
return trg
endfunction
function GetResurrectedUnit takes nothing returns unit
return trg
endfunction
function GetScopingUnit takes nothing returns unit
return trg
endfunction
function GetWasAnimated takes nothing returns boolean
return amd
endfunction
//System
private function H2I takes handle h returns integer
return h
return 0
endfunction
private function GetIndex takes handle h returns integer
return H2I(h) - 0x100000
endfunction
private struct Data
integer i
unit u
static method create takes unit u, integer i returns Data
local Data dat = Data.allocate()
set dat.u = u
set dat.i = i
return dat
endmethod
endstruct
private function Child takes nothing returns nothing
local Data dat = GetTimerData(GetExpiredTimer())
if reincarnated[dat.i] then
set trg = dat.u
if GetUnitTypeId(trg) != 0 then
set cnt = 0
loop
exitwhen cnt >= reincSMax
if TriggerEvaluate(reincS[cnt]) then
call TriggerExecute(reincS[cnt])
endif
set cnt = cnt + 1
endloop
debug call BJDebugMsg("Reincarnating")
else
set reincarnated[dat.i] = false
debug call BJDebugMsg("Removed")
endif
endif
set dat.u = null
call dat.destroy()
call ReleaseTimer(GetExpiredTimer())
endfunction
private function Ordered takes nothing returns boolean
local integer index = GetIndex(GetTriggerUnit())
local timer t
set trg = GetTriggerUnit()
if GetTriggerEventId() == EVENT_PLAYER_UNIT_ISSUED_ORDER then
if GetIssuedOrderId() == ORDER_ID then
set amd = false
if IsUnitType(trg,UNIT_TYPE_DEAD) then
if dead[index] or animated[index] then
if dead[index] then
set dead[index] = false //it has just gone out of scope
debug call BJDebugMsg("Out of scope")
else
set animated[index] = false
debug call BJDebugMsg("Out of scope from animated")
set amd = true
endif
set cnt = 0
loop
exitwhen cnt >= oosMax
if TriggerEvaluate(oos[cnt]) then
call TriggerExecute(oos[cnt])
endif
set cnt = cnt + 1
endloop
else
set dead[index] = true
set reincarnated[index] = true //Set to false if the unit
set t = NewTimer() //is registered to have died
call SetTimerData(t,Data.create(trg,index))
call TimerStart(t,0,false,function Child)
set t = null
endif
elseif dead[index] then
if IsAnimated(trg) then
set animated[index] = true
set amd = true
endif
if reincarnated[index] then
set reincarnated[index] = false
set cnt = 0
loop
exitwhen cnt >= reincFMax
if TriggerEvaluate(reincF[cnt]) then
call TriggerExecute(reincF[cnt])
endif
set cnt = cnt + 1
endloop
debug call BJDebugMsg("Reincarnated")
elseif not IsUnitType(trg,UNIT_TYPE_HERO) then
set cnt = 0 //hero revive already has an event
loop
exitwhen cnt >= rezMax
if TriggerEvaluate(rez[cnt]) then
call TriggerExecute(rez[cnt])
endif
set cnt = cnt + 1
endloop
debug call BJDebugMsg("Resurrected")
endif
set dead[index] = false //it has just been resurrected/reincarnated
endif //the else is just a normal call
endif
else
set reincarnated[index] = false //The order fires before the death event
debug call BJDebugMsg("Died") //and thus lame workarounds are required
endif
return false
endfunction
private function Ex takes nothing returns boolean
call AddAbility(GetFilterUnit())
return false
endfunction
private function Enters takes nothing returns boolean
call AddAbility(GetTriggerUnit())
return false
endfunction
private function Init takes nothing returns nothing
local group g = CreateGroup()
local rect r = GetWorldBounds()
local region world = CreateRegion()
local trigger t = CreateTrigger()
local integer i = 0
call RegionAddRect(world, r)
call GroupEnumUnitsInRect(g, r, Condition(function Ex))
call DestroyGroup(g)
set g = null
call RemoveRect(r)
set r = null
call TriggerAddCondition(t, Condition(function Enters))
call TriggerRegisterEnterRegion(t, world, null)
set t = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_ISSUED_ORDER)
call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(t, Condition(function Ordered))
loop
exitwhen i >= 16
call SetPlayerAbilityAvailable(Player(i), SPELL_ID, false)
set i = i + 1
endloop
endfunction
endlibraryJASS:
scope StompOnRez initializer Init
globals
private integer UNIT_TYPE = 'Otch' //Rawcode of reincarnating unit-type
private integer DUMMY_ID = 'n000' //Rawcode of dummy unit
private integer ABILITY_ID = 'A001' //Rawcode of stomp ability
private string STOMP_ORDER_STRING = "stomp" //Order string of base ability
private boolean USE_DUMMY = true //Have dummy cast or hero cast
//Recommended true
endglobals
private function Conditions takes nothing returns boolean
return GetUnitTypeId(GetTriggerUnit()) == UNIT_TYPE
endfunction
private function AltActions takes nothing returns nothing
local unit rez = GetReincarnatingUnit()
call TriggerSleepAction(0.0) //Required
call IssueImmediateOrder(rez, STOMP_ORDER_STRING)
set rez = null
endfunction
private function Actions takes nothing returns nothing
local unit rez = GetReincarnatingUnit()
local unit u = CreateUnit(GetOwningPlayer(rez), DUMMY_ID, GetUnitX(rez), GetUnitY(rez), 0)
call UnitAddAbility(u, ABILITY_ID)
call IssueImmediateOrder(u, STOMP_ORDER_STRING)
call UnitApplyTimedLife(u, 'BTLF', 3)
call DestroyEffect(AddSpecialEffectTarget("war3mapImported\\FrostStomp.mdx", rez, "origin"))
set rez = null
set u = null
endfunction
private function Init takes nothing returns nothing
local trigger t = CreateTrigger()
call TriggerRegisterReincarnationEvent(t, true)
call TriggerAddCondition(t, Condition(function Conditions))
if USE_DUMMY then
call TriggerAddAction(t, function Actions)
else
call TriggerAddAction(t, function AltActions)
endif
endfunction
endscopeTest map included.
Constructive criticism is welcomed, flaming is not.
These icons will only be submitted to TH.net.
Do not redistribute or modify without permission.
Credits are not needed but are appreciated.
+Rep is also appreciated.
Would also be nice if you send me a message if you plan to use it.
.
