scope IceShards initializer InitTrig_Ice_Shards
globals
private constant integer ABILID = 'A000'
private constant integer SHARDID = 'h000'
private constant integer CASTERID = 'h001'
private constant integer BASESHARDS = 2
private constant integer BONUSSHARDS = 2
private constant real SHARDTIMEOUT = 0.03
private constant real BURNTIMEOUT = 0.10
private constant real AOE = 50.
private constant real BASEDAMAGE = 15.
private constant real BONUSDAMAGE = 10.
private constant real BASEBURNDAMAGE = 10. * BURNTIMEOUT
private constant real BONUSBURNDAMAGE = 5. * BURNTIMEOUT
private constant real BURNTIME = 3.
private constant real MAXDELAYTIME = 0.5
private constant real BASESPEED = 15.
private constant real BONUSSPEED = 3.
private constant real BASEPASS = 40.
private constant real BONUSPASS = 10.
private constant real PROJHEIGHT = 65.
private constant real SPAWNOFFSET = 40.
private constant real OFFSETANGLE = 15 * bj_PI / 180
private constant real NEXTANGLE = 8 * bj_PI / 180
private constant real NEXTANGLEREDUCT = 2 * bj_PI / 180
private constant real NEXTANGLEMIN = 3 * bj_PI / 180
private constant attacktype ATK_T = ATTACK_TYPE_NORMAL
private constant damagetype DMG_T = DAMAGE_TYPE_COLD
//private constant string HITEFFECT = "Abilities\\Weapons\\SpiritOfVengeanceMissile\\SpiritOfVengeanceMissile.mdl"
private constant string HITEFFECT = "Abilities\\Weapons\\DragonHawkMissile\\DragonHawkMissile.mdl"
private player plr
private unit un
private real dam
private real bdam
private real pierce
private boolean bln
private integer HID
private integer projs = 0
private integer burns = 0
private group grp = CreateGroup()
private group tgrp = CreateGroup()
private group burnGrp = CreateGroup()
private group shardGrp = CreateGroup()
private timer burnTmr = CreateTimer()
private timer shardTmr = CreateTimer()
private hashtable ht = InitHashtable()
endglobals
private constant function HashCaster takes nothing returns integer
return 0
endfunction
private constant function HashDamage takes nothing returns integer
return 1
endfunction
private constant function HashAngle takes nothing returns integer
return 2
endfunction
private constant function HashPass takes nothing returns integer
return 3
endfunction
private constant function HashSpeed takes nothing returns integer
return 4
endfunction
private constant function HashGroup takes nothing returns integer
return 5
endfunction
private constant function HashBurnDmg takes nothing returns integer
return 6
endfunction
private constant function HashBurnTime takes nothing returns integer
return 7
endfunction
private constant function HashDelayTime takes nothing returns integer
return 8
endfunction
private constant function HashBoolean takes nothing returns integer
return 9
endfunction
private function BurnLoop takes nothing returns nothing
local unit u = GetEnumUnit()
local integer id = GetHandleId(u)
local real time = LoadReal(ht, id, HashBurnDmg())
if GetWidgetLife(u) > 0.405 and time > 0 then
set dam = LoadReal(ht, id, HashBurnDmg())
set un = LoadUnitHandle(ht, id, HashCaster())
call UnitDamageTarget(un, u, dam, false, true, ATK_T, DMG_T, null)
call SaveReal(ht, id, HashBurnDmg(), time - BURNTIMEOUT)
else
call GroupRemoveUnit(burnGrp, u)
call FlushChildHashtable(ht, id)
set burns = burns - 1
if burns == 0 then
call PauseTimer(burnTmr)
endif
endif
set u = null
endfunction
private function BurnTimerExp takes nothing returns nothing
call ForGroup(burnGrp, function BurnLoop)
endfunction
private function DamageFilt takes nothing returns boolean
local unit u = GetFilterUnit()
local integer id = GetHandleId(u)
if not(IsUnitInGroup(u, tgrp)) and /*
*/ IsUnitEnemy(u, plr) and /*
*/ GetWidgetLife(u) > 0.405 and /*
*/ bln != TRUE and /*
*/ GetUnitFlyHeight(u) < PROJHEIGHT then
call GroupAddUnit(tgrp, u)
call DestroyEffect(AddSpecialEffectTarget(HITEFFECT, u, "chest"))
call UnitDamageTarget(un, u, dam, false, true, ATK_T, DMG_T, null)
set bj_lastCreatedUnit = CreateUnit(Player(15), CASTERID, GetUnitX(u), GetUnitY(u), 0)
call IssueTargetOrder(bj_lastCreatedUnit, "slow", u)
call SetUnitExploded(bj_lastCreatedUnit, true)
call UnitApplyTimedLife(bj_lastCreatedUnit, 1, 1)
if GetRandomReal(0, 100) > pierce then
set bln = true
call SaveBoolean(ht, HID, HashBoolean(), bln)
endif
if not(IsUnitInGroup(u, burnGrp)) then
call GroupAddUnit(burnGrp, u)
if burns == 0 then
call TimerStart(burnTmr, BURNTIMEOUT, true, function BurnTimerExp)
endif
set burns = burns + 1
endif
call SaveReal(ht, id, HashBurnDmg(), bdam)
call SaveReal(ht, id, HashBurnTime(), BURNTIME)
call SaveUnitHandle(ht, id, HashCaster(), un)
endif
set u = null
return false
endfunction
private function ShardLoop takes nothing returns nothing
local unit u = GetEnumUnit()
local integer id = GetHandleId(u)
local real spd = LoadReal(ht, id, HashSpeed())
local real ang = LoadReal(ht, id, HashAngle())
local real time = LoadReal(ht, id, HashDelayTime())
local real x
local real y
if GetWidgetLife(u) > 0.405 then
if time < 0 then
set x = GetUnitX(u) + spd * Cos(ang)
set y = GetUnitY(u) + spd * Sin(ang)
call SetUnitX(u, x)
call SetUnitY(u, y)
set dam = LoadReal(ht, id, HashDamage())
set bdam = LoadReal(ht, id, HashBurnDmg())
set pierce = LoadReal(ht, id, HashPass())
set un = LoadUnitHandle(ht, id, HashCaster())
set plr = GetOwningPlayer(un)
set HID = id
set bln = LoadBoolean(ht, id, HashBoolean())
set tgrp = LoadGroupHandle(ht, id, HashGroup())
call GroupEnumUnitsInRange(grp, x, y, AOE, function DamageFilt)
if bln then
call KillUnit(u)
endif
else
if time - SHARDTIMEOUT < 0 then
call ShowUnit(u, true)
call UnitApplyTimedLife(u, 1, 1)
endif
call SaveReal(ht, id, HashDelayTime(), time - SHARDTIMEOUT)
endif
else
call DestroyGroup(LoadGroupHandle(ht, id, HashGroup()))
call GroupRemoveUnit(shardGrp, u)
call FlushChildHashtable(ht, id)
set projs = projs - 1
if projs == 0 then
call PauseTimer(shardTmr)
endif
endif
set u = null
endfunction
private function ShardTimerExp takes nothing returns nothing
call ForGroup(shardGrp, function ShardLoop)
endfunction
private function onCast takes nothing returns boolean
local unit u = GetTriggerUnit()
local integer id = 0
local integer side = 0
local integer shards = 0
local integer loops = 0
local integer level = GetUnitAbilityLevel(u, ABILID)
//local real f = GetUnitFacing(u) * bj_DEGTORAD
local real f = Atan2(GetSpellTargetY()-GetUnitY(u), GetSpellTargetX()-GetUnitX(u))
local real x = GetUnitX(u) + SPAWNOFFSET * Cos(f)
local real y = GetUnitY(u) + SPAWNOFFSET * Sin(f)
local real dmg = 0
local real ang = 0
local real pass = 0
local real speed = 0
local real nxtang = 0
local real burndmg = 0
if GetSpellAbilityId() == ABILID then
if projs == 0 then
call TimerStart(shardTmr, SHARDTIMEOUT, true, function ShardTimerExp)
endif
set dmg = BASEDAMAGE + BONUSDAMAGE * level
set burndmg = BASEBURNDAMAGE + BONUSBURNDAMAGE * level
set shards = BASESHARDS + BONUSSHARDS * level
set pass = BASEPASS + BONUSPASS * level
set speed = BASESPEED + BONUSSPEED * level
set nxtang = NEXTANGLE - (level-1)*NEXTANGLEREDUCT
if nxtang < NEXTANGLEMIN then
set nxtang = NEXTANGLEMIN
endif
if GetRandomInt(1,2) == 1 then
set side = 1
else
set side = -1
endif
loop
set ang = side * ang + f + GetRandomReal(0, OFFSETANGLE)
set bj_lastCreatedUnit = CreateUnit(Player(15), SHARDID, x, y, ang * bj_RADTODEG)
call ShowUnit(bj_lastCreatedUnit, true)
call SetUnitExploded(bj_lastCreatedUnit, true)
call SetUnitFlyHeight(bj_lastCreatedUnit, PROJHEIGHT, 0)
call GroupAddUnit(shardGrp, bj_lastCreatedUnit)
set id = GetHandleId(bj_lastCreatedUnit)
call SaveBoolean(ht, id, HashBoolean(), false)
call SaveReal(ht, id, HashAngle(), ang)
call SaveReal(ht, id, HashPass(), pass)
call SaveReal(ht, id, HashDamage(), dmg)
call SaveReal(ht, id, HashSpeed(), speed)
call SaveReal(ht, id, HashBurnDmg(), burndmg)
call SaveReal(ht, id, HashDelayTime(), GetRandomReal(0, MAXDELAYTIME))
call SaveUnitHandle(ht, id, HashCaster(), u)
call SaveGroupHandle(ht, id, HashGroup(), CreateGroup())
set projs = projs + 1
set side = side * -1
set loops = loops + 1
exitwhen loops == shards
if ModuloInteger(loops, 2) == 1 then
set ang = nxtang * (1 + loops/2)
else
set ang = nxtang * (loops/2)
endif
endloop
endif
set u = null
return false
endfunction
private function InitTrig_Ice_Shards takes nothing returns nothing
local trigger t = CreateTrigger()
call TriggerAddCondition(t, function onCast )
call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_SPELL_EFFECT)
set t = null
endfunction
endscope
Elemental Festival 1
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Channel
Actions
Set ElementalFestivalCaster = (Triggering unit)
Wait 0.10 seconds
Animation - Change ElementalFestivalCaster flying height to 300.00 at 800.00
Trigger - Turn on Elemental Festival 2 <gen>
Unit Group - Pick every unit in ElementalFestivalUnitGroup[0] and do (Actions)
Time - Every 0.23 seconds of game time
