![[System] Single Target para Área of Effect Lion_shield](https://2img.net/h/s20.postimg.cc/5bws8t06l/lion_shield.png)
.
Início
![[System] Single Target para Área of Effect Empty](https://2img.net/i/empty.gif)
![[System] Single Target para Área of Effect Left_bar_bleue](https://2img.net/i/fa/i/left_bar_bleue.jpg)
![[System] Single Target para Área of Effect Right_bar_bleue](https://2img.net/i/fa/i/right_bar_bleue.jpg)
Descrição:
Sistema muito simples que permite converter spells de alvo único para spells com área de efeito.
Requisitos:
- JNGP + USMWE (clique aqui)
- Open Source: Pode ser aberto com o World Editor.
- Upado no MediaFire
Sistema muito simples que permite converter spells de alvo único para spells com área de efeito.
Requisitos:
- JNGP + USMWE (clique aqui)
- Código:
//! textmacro SPELLNAME_SETUP
public constant function MAIN_SPELL_RAW takes nothing returns integer
return 'A000'
endfunction
public constant function DUMMY_SPELL_RAW takes nothing returns integer
return 'A001'
endfunction
public constant function MAIN_SPELL_AREA takes nothing returns real
return 512.00
endfunction
public constant function DUMMY_UNIT_RAW takes nothing returns integer
return 'dumm'
endfunction
public constant function DUMMY_SPELL_ORDER takes nothing returns string
return "firebolt"
endfunction
//! endtextmacro
- Código:
scope SPELLNAME initializer ini
//! runtextmacro SPELLNAME_SETUP()
private function config takes nothing returns nothing
local unit u = null
local player p = null
local integer i = 0
local group g = null
local location l = null
local unit U = null
local unit d = null
if GetSpellAbilityId()==MAIN_SPELL_RAW() then
set u = GetTriggerUnit()
set p = GetOwningPlayer(u)
set i = GetUnitAbilityLevel(u,GetSpellAbilityId())
set g = CreateGroup()
set l = GetSpellTargetLoc()
call BJDebugMsg(I2S(GetUnitTypeId(u)))
call GroupEnumUnitsInRangeOfLoc(g,l,MAIN_SPELL_AREA(),null)
loop
set U = FirstOfGroup(g)
if GetUnitState(U,ConvertUnitState(0))>0 and IsUnitEnemy(U,p) and not IsUnitType(U,ConvertUnitType(15)) and not IsUnitType(U,ConvertUnitType(2)) then
set d = CreateUnit(p,DUMMY_UNIT_RAW(),GetUnitX(u),GetUnitY(u),0.)
call UnitApplyTimedLife(d,'BTLF',1.5)
call UnitAddAbility(d,DUMMY_SPELL_RAW())
call SetUnitAbilityLevel(d,DUMMY_SPELL_RAW(),i)
call IssueTargetOrder(d,DUMMY_SPELL_ORDER(),U)
set d = null
endif
call GroupRemoveUnit(g,U)
exitwhen U == null
endloop
call RemoveLocation(l)
call DestroyGroup(g)
set l = null
set g = null
set p = null
set u = null
endif
endfunction
private function ini takes nothing returns nothing
local trigger t = CreateTrigger()
local integer i = 0
loop
call TriggerRegisterPlayerUnitEvent(t,Player(i),ConvertPlayerUnitEvent(274),null)
set i = i + 1
exitwhen i == 12
endloop
call TriggerAddAction(t,function config)
set t = null
endfunction
endscope
- Open Source: Pode ser aberto com o World Editor.
- Upado no MediaFire
