scope FrozenSpellpack
globals
private constant integer DUMMY_ID = 'h000'
private constant real SFX_DECAY_TIME = 5.0
endglobals
private module FrostwaveData
static constant integer SPELL_ID = 'A000'
static constant integer SHARD_COUNT = 7
static constant real LAUNCH_Z = 40.0
static constant real SPEED_MIN = 20.0
static constant real SPEED_MAX = 50.0
static constant real ACCELERATION = 5.0
static constant real TURN_RATE = 6.0 * bj_DEGTORAD
static constant string MISSILE_PATH = "war3mapImported\\IceBolt.mdx"
static constant method aoe takes integer l returns real
return 100.0
endmethod
static constant method damage takes integer l returns real
return 60.0 * l
endmethod
static constant method duration takes integer l returns real
return 2.75
endmethod
endmodule
native UnitAlive takes unit id returns boolean
private function getDistance takes real x, real y, real xt, real yt returns real
return SquareRoot((xt - x) * (xt - x) + (yt - y) * (yt - y))
endfunction
private function getAngle takes real x, real y, real xt, real yt returns real
return Atan2(yt - y, xt - x)
endfunction
private function isInBound takes real x, real y returns boolean
return x >= WorldBounds.minX and x <= WorldBounds.maxX and y >= WorldBounds.minY and y <= WorldBounds.maxY
endfunction
private struct Freeze
static method apply takes unit u, real dur returns thistype
local thistype this = allocate()
return this
endmethod
endstruct
scope Frostwave
private module KillShard
call UnitApplyTimedLife(i.m.u[j], 'BTLF', SFX_DECAY_TIME)
call DestroyEffect(i.m.e[j])
set i.m.e[j] = null
set i.m.u[j] = null
set i.m.b[j] = false
set i.m.c = i.m.c - 1
if i.m.c < 0 then
call i.m.destroy()
set b = true
endif
endmodule
private struct data extends array
implement FrostwaveData
static constant real TAU = bj_PI * 2
static constant real ANGLE_ADD = TAU/data.SHARD_COUNT
static constant player PASSIVE = Player(PLAYER_NEUTRAL_PASSIVE)
endstruct
private keyword Frostwave
private struct IceShard
readonly integer c
readonly real array s[data.SHARD_COUNT]
readonly real array a[data.SHARD_COUNT]
readonly real array x[data.SHARD_COUNT]
readonly real array y[data.SHARD_COUNT]
readonly unit array u[data.SHARD_COUNT]
readonly boolean array b[data.SHARD_COUNT]
readonly effect array e[data.SHARD_COUNT]
private static method inRadius takes real x, real y, real xt, real yt, real r returns boolean
return (x - xt) * (x - xt) + (y - yt) * (y - yt) <= r * r
endmethod
static method move takes Frostwave i returns boolean
local integer j = 0
local boolean b = false
local real a
loop
exitwhen j > data.SHARD_COUNT
if i.m.b[j] then
set i.m.x[j] = i.m.x[j] + i.m.s[j] * Cos(i.m.a[j])
set i.m.y[j] = i.m.y[j] + i.m.s[j] * Sin(i.m.a[j])
if isInBound(i.m.x[j], i.m.y[j]) then
if inRadius(i.m.x[j], i.m.y[j], i.tX, i.tY, i.m.s[j]) then
implement KillShard
else
set a = getAngle(i.m.x[j], i.m.y[j], i.tX, i.tY)
call SetUnitX(i.m.u[j], i.m.x[j])
call SetUnitY(i.m.u[j], i.m.y[j])
call SetUnitFacing(i.m.u[j], i.m.a[j] * bj_RADTODEG)
if data.TURN_RATE != 0 and Cos(i.m.a[j] - a) < Cos(data.TURN_RATE) then
if Sin(a - i.m.a[j]) >= 0 then
set i.m.a[j] = i.m.a[j] + data.TURN_RATE
else
set i.m.a[j] = i.m.a[j] - data.TURN_RATE
endif
else
set i.m.a[j] = a
set i.m.s[j] = i.m.s[j] + data.ACCELERATION
if i.m.s[j] > data.SPEED_MAX then
set i.m.s[j] = data.SPEED_MAX
endif
endif
endif
else
implement KillShard
endif
endif
set j = j + 1
endloop
return b
endmethod
static method create takes real x, real y, real f returns thistype
local thistype this = allocate()
local integer i = 0
set f = f - data.ANGLE_ADD * (data.SHARD_COUNT/2)
set .c = data.SHARD_COUNT - 1
loop
exitwhen i > .c
set .s[i] = data.SPEED_MIN
set .a[i] = f
set .b[i] = true
set .x[i] = x
set .y[i] = y
set .u[i] = CreateUnit(data.PASSIVE, DUMMY_ID, x, y, f * bj_RADTODEG)
set .e[i] = AddSpecialEffectTarget(data.MISSILE_PATH, .u[i], "origin")
if UnitAddAbility(.u[i], 'Amrf') and UnitRemoveAbility(.u[i], 'Amrf') then
endif
call SetUnitFlyHeight(.u[i], data.LAUNCH_Z, 0)
set f = f + data.ANGLE_ADD
set i = i + 1
endloop
return this
endmethod
endstruct
private struct Frostwave extends array
unit c
player p
real tX
real tY
real a // AoE
real d // Damage
real r // Duration
IceShard m
implement CTL
local boolean b
implement CTLExpire
set b = IceShard.move(this)
if b then
call destroy()
endif
implement CTLEnd
private static method onCast takes nothing returns boolean
local thistype this = create()
local integer l
local real a
local real x
local real y
set .c = GetTriggerUnit()
set .p = GetTriggerPlayer()
set x = GetUnitX(.c)
set y = GetUnitY(.c)
set .tX = GetSpellTargetX()
set .tY = GetSpellTargetY()
set l = GetUnitAbilityLevel(.c, data.SPELL_ID)
set a = getAngle(x, y, .tX, .tY)
set .m = IceShard.create(x, y, a)
set .d = data.damage(l)
set .a = data.aoe(l)
set .r = data.duration(l)
return false
endmethod
static if not LIBRARY_SpellEffectEvent then
private static method check takes nothing returns boolean
if GetSpellAbilityId() == data.SPELL_ID then
call thistype.onCast()
endif
return false
endmethod
endif
private static method onInit takes nothing returns nothing
local trigger t
static if LIBRARY_SpellEffectEvent then
call RegisterSpellEffectEvent(data.SPELL_ID, function thistype.onCast)
else
set t = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(t, Condition(function thistype.check))
endif
endmethod
endstruct
endscope
endscope
