Approved
)
/***********************************************
*
* Epicenter
* v2.1.0.0
* By Magtheridon96
*
* - Requires:
* - TimerTools By Nestharus
* - hiveworkshop.com/forums/jass-resources-412/system-timer-tools-201165/
* - SpellEffectEvent By Bribe
* - hiveworkshop.com/forums/jass-resources-412/snippet-spelleffectevent-187193/
*
***********************************************/
library Epicenter requires Tt, SpellEffectEvent
globals
private constant integer ABIL_CODE = 'A000'
private constant string EFFECT_PATH = "Epicenter.mdx"
private constant attacktype ATTACK_TYPE = ATTACK_TYPE_NORMAL
private constant damagetype DAMAGE_TYPE = DAMAGE_TYPE_NORMAL
private constant boolean PRELOAD_EFFECT = true
endglobals
private function GetDamage takes integer level returns real
return 90. + level * 60.
endfunction
private function GetTimeout takes integer level returns real
return 0.4
endfunction
private function GetRadius takes integer level returns real
return 450. + level * 50.
endfunction
private function GetWaves takes integer level returns integer
return 6 + level * 2
endfunction
private function TargetFilter takes unit caster, player owner, unit target returns boolean
return not IsUnitType(target, UNIT_TYPE_STRUCTURE) and not IsUnitType(target, UNIT_TYPE_DEAD) and IsUnitEnemy(target, owner)
endfunction
private struct Spell extends array
private static unit array caster
private static player array owner
private static integer array waves
private static real array radius
private static real array damage
implement CTM
local real x
local real y
local unit u
implement CTMExpire
// Get the caster's coordinates.
set x = GetUnitX(caster[this])
set y = GetUnitY(caster[this])
// Enumerate units in range of the caster.
call GroupEnumUnitsInRange(bj_lastCreatedGroup, x, y, radius[this], null)
loop
// Get the first unit in the group, check if he's null, and remove him.
set u = FirstOfGroup(bj_lastCreatedGroup)
exitwhen null == u
call GroupRemoveUnit(bj_lastCreatedGroup, u)
// Only damage wanted units.
if TargetFilter(caster[this], owner[this], u) then
call UnitDamageTarget(caster[this], u, damage[this], false, false, ATTACK_TYPE, DAMAGE_TYPE, null)
endif
endloop
// Create and destroy special effect.
call DestroyEffect(AddSpecialEffect(EFFECT_PATH, x, y))
// Decrease number of waves left.
set waves[this] = waves[this] - 1
// If number of waves left is 0, we destroy the current instance.
if waves[this] == 0 then
call this.destroy()
set caster[this] = null
set owner[this] = null
endif
implement CTMEnd
private static method run takes nothing returns nothing
local integer level = GetUnitAbilityLevel(GetTriggerUnit(), ABIL_CODE)
local thistype this = create(GetTimeout(level))
// Get the caster and the triggering player.
set caster[this] = GetTriggerUnit()
set owner[this] = GetTriggerPlayer()
// Cache the radius and damage to avoid repeating calculations.
set radius[this] = GetRadius(level)
set damage[this] = GetDamage(level)
// Get the number of times the periodic function will run.
set waves[this] = GetWaves(level)
endmethod
private static method onInit takes nothing returns nothing
call RegisterSpellEffectEvent(ABIL_CODE, function thistype.run)
static if PRELOAD_EFFECT then
call Preload(EFFECT_PATH)
endif
endmethod
endstruct
endlibrary
Good Job.
(will probably save you a few bytes lol so it doesn't matter).
Never been a fan adding private prefixes to stuff within a private struct, nothing will reach it anyway
+REP
library Test
globals
private constant boolean TEST_1 = true
private integer i = 20000
endglobals
private function Loop takes nothing returns nothing
static if TEST_1 then
loop
exitwhen 0==i
set i=i-1
endloop
else
loop
exitwhen i==0
set i=i-1
endloop
endif
call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"[Test]Thread executed without crashing.")
endfunction
private module Init
private static method onInit takes nothing returns nothing
call TimerStart(CreateTimer(),3,false,function L)
endmethod
endmodule
private struct Inits extends array
implement Init
endstruct
endlibrary0==i more readable than i == 0
/***********************************************
*
* Epicenter
* v1.0.0.1
* By Magtheridon96
*
* - Requires TimerUtils
*
***********************************************/
library Epicenter requires TimerUtils
globals
private constant integer ABIL_CODE = 'A000'
private constant string EFFECT_PATH = "Epicenter.mdx"
private constant attacktype ATTACK_TYPE = ATTACK_TYPE_NORMAL
private constant damagetype DAMAGE_TYPE = DAMAGE_TYPE_NORMAL
private group G = CreateGroup()
endglobals
private function GetDamage takes integer level returns real
return 90. + level * 60.
endfunction
private function GetTimeout takes integer level returns real
return 0.4
endfunction
private function GetRadius takes integer level returns real
return 450. + level * 50.
endfunction
private function GetWaves takes integer level returns integer
return 6 + level * 2
endfunction
private module Init
private static method onInit takes nothing returns nothing
local trigger t = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(t,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(t,Condition(function thistype.run))
set t = null
endmethod
endmodule
private struct Spell extends array
private static integer ic = 0
private static integer ir = 0
private static thistype td = 0
thistype rn
unit caster
player owner
integer level
integer counter
real radius
real damage
real animation
boolean resetAnimation
real x
real y
boolean passTime
private static method filter takes nothing returns boolean
local unit u = GetFilterUnit()
if not IsUnitType(u,UNIT_TYPE_STRUCTURE) and not IsUnitType(u,UNIT_TYPE_DEAD) and IsUnitEnemy(u,td.owner) then
call UnitDamageTarget(td.caster,u,td.damage,false,false,ATTACK_TYPE,DAMAGE_TYPE,null)
endif
set u = null
return false
endmethod
private static method periodic takes nothing returns nothing
local thistype this = GetTimerData(GetExpiredTimer())
local real x = GetUnitX(.caster)
local real y = GetUnitY(.caster)
set .animation = .animation + GetTimeout(.level)
set td=this
if (.x == x and .y == y) or passTime then
if animation > 2. and resetAnimation then
set .passTime = true
set .resetAnimation = false
call SetUnitAnimation(.caster, "stand")
endif
if animation > 2. then
call GroupEnumUnitsInRange(G,x,y,.radius,Condition(function thistype.filter))
call DestroyEffect(AddSpecialEffect(EFFECT_PATH,x,y))
set counter=counter-1
if 0==counter then
call ReleaseTimer(GetExpiredTimer())
set .passTime = false
set .caster = null
set .owner = null
set .animation = 0.
set .resetAnimation = true
set .rn=ir
set ir=this
endif
endif
else
call ReleaseTimer(GetExpiredTimer())
set .passTime = false
set .counter = 0
set .caster = null
set .owner = null
set .animation = 0.
set .resetAnimation = true
set .rn=ir
set ir=this
endif
endmethod
private static method create takes nothing returns thistype
local thistype this
local timer t = NewTimer()
if 0==ir then
set ic=ic+1
set this=ic
else
set this=ir
set ir=.rn
endif
set .caster = GetTriggerUnit()
set .owner = GetTriggerPlayer()
set .level = GetUnitAbilityLevel(.caster,ABIL_CODE)
set .radius = GetRadius(.level)
set .damage = GetDamage(.level)
set .counter = GetWaves(.level)
set .animation = 0.
set .resetAnimation = true
set .x = GetUnitX(.caster)
set .y = GetUnitY(.caster)
set .passTime = false
call SetTimerData(t,this)
call TimerStart(t,GetTimeout(.level),true,function thistype.periodic)
set t = null
return this
endmethod
private static method run takes nothing returns boolean
if GetSpellAbilityId()==ABIL_CODE then
call thistype.create()
endif
return false
endmethod
implement Init
endstruct
endlibrary
integer level
integer counter
`
caster[this].caster
library Epicenter requires TimerUtils, GT to make it work. not so difficult, as i said.
(Unless he posts a map with all the objects implemented (No Lua))
