[Spellpack] Mago Sanguinario

(#) Tema: [Spellpack] Mago Sanguinario Sáb Sep 14, 2013 2:57 pm

Otro spellpack de héroe de Melee

En este caso es el siempre amado:

Mago Sanguinario

[Spellpack] Mago Sanguinario Character

Los requisitos están en el mapa, pero son estos

Requisitos:

MS AS Modifier:: [jass]library MSASModifier initializer Init
// By Marcos_M
// Agradecimientos a MuSe por librería Slow que sirvió de base

globals
// ID DEL DUMMY

private constant integer DUMMY_ID = 'h000'

// HABILIDADES IDs

private constant integer REDUCCION_MOVIMIENTO_ID = 'A008'
private constant integer AUMENTO_MOVIMIENTO_ID = 'A009'
private constant integer REDUCCION_ATAQUE_ID = 'A007'
private constant integer AUMENTO_ATAQUE_ID = 'A006'

//Estas habilidades solo sirven para mostrar el BUFF de AS

private constant integer BUFF_DUMMY_REDUCCION_AS_ID = 'A005'
private constant integer BUFF_DUMMY_AUMENTO_AS_ID = 'A004'

//BUFF IDs

private constant integer REDUCCION_MOVIMIENTO_BUFF_ID = 'B003'
private constant integer AUMENTO_MOVIMIENTO_BUFF_ID = 'B002'
private constant integer REDUCCION_ATAQUE_BUFF_ID = 'B000'
private constant integer AUMENTO_ATAQUE_BUFF_ID = 'B001'

////////////////////////////////////

private constant string SLOWORDER_ID = "slow"
private hashtable HTAS = InitHashtable()
private hashtable HTMS = InitHashtable()
private timer t1 = CreateTimer()
private timer t2 = CreateTimer()
private integer c = 0
private group GROUPAS = CreateGroup()
private group GROUPMS = CreateGroup()
private real PERIODIC = 0.05
private unit DUMMY
endglobals

private function ApplyAS takes unit u, integer slow returns nothing

if slow == 0 then
call UnitRemoveAbility(u, AUMENTO_ATAQUE_ID)
call UnitRemoveAbility(u, AUMENTO_ATAQUE_BUFF_ID)
call UnitRemoveAbility(u, BUFF_DUMMY_AUMENTO_AS_ID)
call UnitRemoveAbility(u, REDUCCION_ATAQUE_ID)
call UnitRemoveAbility(u, REDUCCION_ATAQUE_BUFF_ID)
call UnitRemoveAbility(u, BUFF_DUMMY_REDUCCION_AS_ID)
elseif slow > 0 then

call UnitRemoveAbility(u, AUMENTO_ATAQUE_ID)
call UnitRemoveAbility(u, AUMENTO_ATAQUE_BUFF_ID)
call UnitRemoveAbility(u, BUFF_DUMMY_AUMENTO_AS_ID)

if GetUnitAbilityLevel(u, BUFF_DUMMY_REDUCCION_AS_ID) > 0 then
call SetUnitAbilityLevel(u, REDUCCION_ATAQUE_ID, slow)
else
call UnitAddAbility(u, REDUCCION_ATAQUE_ID)
call UnitAddAbility(u, BUFF_DUMMY_REDUCCION_AS_ID)
call SetUnitAbilityLevel(u, REDUCCION_ATAQUE_ID, slow)
endif
else

call UnitRemoveAbility(u, REDUCCION_ATAQUE_ID)
call UnitRemoveAbility(u, REDUCCION_ATAQUE_BUFF_ID)
call UnitRemoveAbility(u, BUFF_DUMMY_REDUCCION_AS_ID)

if GetUnitAbilityLevel(u, BUFF_DUMMY_AUMENTO_AS_ID) > 0 then
call SetUnitAbilityLevel(u, AUMENTO_ATAQUE_ID, -slow)
else
call UnitAddAbility(u, AUMENTO_ATAQUE_ID)
call UnitAddAbility(u, BUFF_DUMMY_AUMENTO_AS_ID)
call SetUnitAbilityLevel(u, AUMENTO_MOVIMIENTO_ID, -slow)
endif
endif

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

private function ApplyMS takes unit u, integer slow returns nothing

if slow == 0 then
call UnitRemoveAbility(u, AUMENTO_MOVIMIENTO_BUFF_ID)
call UnitRemoveAbility(u, REDUCCION_MOVIMIENTO_BUFF_ID)
elseif slow > 0 then

call UnitRemoveAbility(u, AUMENTO_MOVIMIENTO_BUFF_ID)

call UnitAddAbility(DUMMY, REDUCCION_MOVIMIENTO_ID)
call SetUnitAbilityLevel(DUMMY, REDUCCION_MOVIMIENTO_ID, slow)

else

call UnitRemoveAbility(u, REDUCCION_MOVIMIENTO_BUFF_ID)

call UnitAddAbility(DUMMY, AUMENTO_MOVIMIENTO_ID)
call SetUnitAbilityLevel(DUMMY, AUMENTO_MOVIMIENTO_ID, -slow)

endif

call IssueTargetOrder(DUMMY, SLOWORDER_ID, u)

call UnitRemoveAbility(DUMMY, AUMENTO_MOVIMIENTO_ID)
call UnitRemoveAbility(DUMMY, REDUCCION_MOVIMIENTO_ID)

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

private function LoopAS takes nothing returns nothing
local unit u = GetEnumUnit()
local integer Id = GetHandleId(u)
local integer i = LoadInteger(HTAS, Id, StringHash("0"))
local integer Slow = LoadInteger(HTAS, Id, 0)
local real duration
local integer slow
local effect e
local integer n = LoadInteger(HTAS, Id, StringHash("0"))
local boolean B = true
local integer N = 0

loop
exitwhen i == 0

if LoadBoolean(HTAS, Id, StringHash(("Bool" + I2S(i)))) then

set duration = LoadReal(HTAS, Id, StringHash(("Dur" + I2S(i)))) - PERIODIC
call SaveReal(HTAS, Id, StringHash(("Dur" + I2S(i))), duration)

if duration <= 0.00 then

call SaveBoolean(HTAS, Id, StringHash(("Bool" + I2S(i))), false)
set slow = Slow - LoadInteger(HTAS, Id, StringHash(("Lenteo" + I2S(i))))
set e = LoadEffectHandle(HTAS, Id, StringHash(("Efecto" + I2S(i))))
call SaveInteger(HTAS, Id, 0, slow)

call RemoveSavedInteger(HTAS, Id, StringHash(("Buff" + I2S(i))))

call DestroyEffect(e)

call ApplyAS(u, slow)

loop
set B = LoadBoolean(HTAS,Id, StringHash(("Bool" + I2S(n))))
set n = n - 1
exitwhen n < 0
if not(B) then
set N = N + 1
endif
set B = true
endloop

if N == LoadInteger(HTAS, Id, StringHash("0")) then
call GroupRemoveUnit(GROUPAS, u)
call FlushChildHashtable(HTAS, Id)
if FirstOfGroup(GROUPAS) == null then
call PauseTimer(t1)
endif
endif
endif
endif

set i = i - 1

endloop

////////////////////////
////////////////////////

set e = null
set u = null

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

private function LoopMS takes nothing returns nothing
local unit u = GetEnumUnit()
local integer Id = GetHandleId(u)
local integer i = LoadInteger(HTMS, Id, StringHash("0"))
local integer Slow = LoadInteger(HTMS, Id, 0)
local real duration
local integer buff1
local integer slow
local effect e
local integer n = LoadInteger(HTMS, Id, StringHash("0"))
local boolean B = true
local integer N = 0

loop
exitwhen i == 0

if LoadBoolean(HTMS, Id, StringHash(("Bool" + I2S(i)))) then

set duration = LoadReal(HTMS, Id, StringHash(("Dur" + I2S(i)))) - PERIODIC
call SaveReal(HTMS, Id, StringHash(("Dur" + I2S(i))), duration)

if duration <= 0.00 then

call SaveBoolean(HTMS, Id, StringHash(("Bool" + I2S(i))), false)
set slow = Slow - LoadInteger(HTMS, Id, StringHash(("Lenteo" + I2S(i))))
set e = LoadEffectHandle(HTMS, Id, StringHash(("Efecto" + I2S(i))))
call SaveInteger(HTMS, Id, 0, slow)

call RemoveSavedInteger(HTMS, Id, StringHash(("Buff" + I2S(i))))

call DestroyEffect(e)

call ApplyMS(u, slow)

loop
set B = LoadBoolean(HTMS,Id, StringHash(("Bool" + I2S(n))))
set n = n - 1
exitwhen n < 0
if not(B) then
set N = N + 1
endif
set B = true
endloop

if N == LoadInteger(HTMS, Id, StringHash("0")) then
call GroupRemoveUnit(GROUPMS, u)
call FlushChildHashtable(HTMS, Id)
if FirstOfGroup(GROUPMS) == null then
call PauseTimer(t2)
endif
endif
endif
endif

set i = i - 1

endloop

////////////////////////
////////////////////////

set e = null
set u = null

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

private function TimerAS takes nothing returns nothing
call ForGroup(GROUPAS, function LoopAS)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

private function TimerMS takes nothing returns nothing
call ForGroup(GROUPMS, function LoopMS)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function RemoveBuffAS takes unit u, integer buff1 returns nothing
local integer Id = GetHandleId(u)
local integer i = LoadInteger(HTAS, Id, StringHash("0"))
local integer Slow = LoadInteger(HTAS, Id, 0)
local effect e
local real duration
local integer slow
local integer n
local integer n1 = LoadInteger(HTAS, Id, StringHash("0"))
local integer N = 0
local boolean B = true

loop
exitwhen i == 0

set n = LoadInteger(HTAS, Id, StringHash(("Buff" + I2S(i))))

if n == buff1 then

call SaveBoolean(HTAS, Id, StringHash(("Bool" + I2S(i))), false)
set slow = Slow - LoadInteger(HTAS, Id, StringHash(("Lenteo" + I2S(i))))
set e = LoadEffectHandle(HTAS, Id, StringHash(("Efecto" + I2S(i))))
call SaveInteger(HTAS, Id, 0, slow)

call RemoveSavedInteger(HTAS, Id, StringHash(("Buff" + I2S(i))))

call DestroyEffect(e)

call ApplyAS(u, slow)

loop
set B = LoadBoolean(HTAS,Id, StringHash(("Bool" + I2S(n1))))
set n1 = n1 - 1
exitwhen n1 < 0
if not(B) then
set N = N + 1
endif
set B = true
endloop

if N == LoadInteger(HTAS, Id, StringHash("0")) then
call GroupRemoveUnit(GROUPAS, u)
call FlushChildHashtable(HTAS, Id)
if FirstOfGroup(GROUPAS) == null then
call PauseTimer(t1)
endif
endif

endif

set i = i - 1

endloop

/////////////////////
/////////////////////

set e = null

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function RemoveSlowAS takes unit u returns nothing
local integer Id = GetHandleId(u)
local integer i = LoadInteger(HTAS, Id, StringHash("0"))
local effect e

loop
exitwhen i == 0

set e = LoadEffectHandle(HTAS, Id, StringHash(("Efecto" + I2S(i))))

call RemoveSavedInteger(HTAS, Id, StringHash(("Buff" + I2S(i))))

call DestroyEffect(e)

set i = i - 1

endloop

call UnitRemoveAbility(u, REDUCCION_ATAQUE_ID)
call UnitRemoveAbility(u, BUFF_DUMMY_REDUCCION_AS_ID)
call UnitRemoveAbility(u, REDUCCION_ATAQUE_BUFF_ID)
call UnitRemoveAbility(u, AUMENTO_ATAQUE_ID)
call UnitRemoveAbility(u, BUFF_DUMMY_AUMENTO_AS_ID)
call UnitRemoveAbility(u, AUMENTO_ATAQUE_BUFF_ID)

call GroupRemoveUnit(GROUPAS, u)
call FlushChildHashtable(HTAS, Id)
if FirstOfGroup(GROUPAS) == null then
call PauseTimer(t1)
endif

/////////////////////
/////////////////////

set e = null

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function AddSlowAS takes unit u, real duration, integer slow, integer buff1, string attachpoint returns nothing
local integer Id = GetHandleId(u)
local integer NewSlow = LoadInteger(HTAS, Id, 0) + slow
local effect e = AddSpellEffectTargetById(buff1, EFFECT_TYPE_TARGET, u, attachpoint)
local integer i = LoadInteger(HTAS, Id, StringHash("0"))
local boolean B = false
local integer buff2

loop
set buff2 = LoadInteger(HTAS,Id, StringHash(("Buff" + I2S(i))))
set i = i - 1
exitwhen i < 0
if buff1 == buff2 then
set B = true
endif
endloop

if not(B) then

if FirstOfGroup(GROUPAS) == null then
call TimerStart(t1, PERIODIC, true, function TimerAS)
endif

call ApplyAS(u, NewSlow)

call SaveInteger(HTAS, Id, 0, NewSlow)

set i = LoadInteger(HTAS, Id, StringHash("0")) + 1
call SaveInteger(HTAS, Id, StringHash("0"), i)

call SaveReal(HTAS, Id, StringHash(("Dur" + I2S(i))), duration)
call SaveInteger(HTAS, Id, StringHash(("Buff" + I2S(i))), buff1)
call SaveEffectHandle(HTAS, Id, StringHash(("Efecto" + I2S(i))), e)
call SaveInteger(HTAS, Id, StringHash(("Lenteo" + I2S(i))), slow)
call SaveBoolean(HTAS, Id, StringHash(("Bool" + I2S(i))), true)

call GroupAddUnit(GROUPAS, u)

else
call DestroyEffect(e)
endif
///////////////////////////////////////////////////////

set e = null
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function AddBonusAS takes unit u, real duration, integer slow, integer buff1, string attachpoint returns nothing
call AddSlowAS(u, duration, -slow, buff1, attachpoint)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function GetSlowAS takes unit u returns integer
return LoadInteger(HTAS, GetHandleId(u), 0)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function GetBonusAS takes unit u returns integer
return -LoadInteger(HTAS, GetHandleId(u), 0)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function RemoveBuffMS takes unit u, integer buff1 returns nothing
local integer Id = GetHandleId(u)
local integer i = LoadInteger(HTMS, Id, StringHash("0"))
local integer Slow = LoadInteger(HTMS, Id, 0)
local effect e
local real duration
local integer slow
local integer n
local integer n1 = LoadInteger(HTMS, Id, StringHash("0"))
local integer N = 0
local boolean B = true

loop
exitwhen i == 0

set n = LoadInteger(HTMS, Id, StringHash(("Buff" + I2S(i))))

if n == buff1 then

call SaveBoolean(HTMS, Id, StringHash(("Bool" + I2S(i))), false)
set slow = Slow - LoadInteger(HTMS, Id, StringHash(("Lenteo" + I2S(i))))
set e = LoadEffectHandle(HTMS, Id, StringHash(("Efecto" + I2S(i))))
call SaveInteger(HTMS, Id, 0, slow)

call RemoveSavedInteger(HTMS, Id, StringHash(("Buff" + I2S(i))))

call DestroyEffect(e)

call ApplyMS(u, slow)

loop
set B = LoadBoolean(HTMS,Id, StringHash(("Bool" + I2S(n1))))
set n1 = n1 - 1
exitwhen n1 < 0
if not(B) then
set N = N + 1
endif
set B = true
endloop

if N == LoadInteger(HTMS, Id, StringHash("0")) then
call GroupRemoveUnit(GROUPMS, u)
call FlushChildHashtable(HTMS, Id)
if FirstOfGroup(GROUPMS) == null then
call PauseTimer(t2)
endif
endif

endif

set i = i - 1

endloop

/////////////////////
/////////////////////

set e = null

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function RemoveSlowMS takes unit u returns nothing
local integer Id = GetHandleId(u)
local integer i = LoadInteger(HTMS, Id, StringHash("0"))
local effect e

loop
exitwhen i == 0

set e = LoadEffectHandle(HTMS, Id, StringHash(("Efecto" + I2S(i))))

call RemoveSavedInteger(HTMS, Id, StringHash(("Buff" + I2S(i))))

call DestroyEffect(e)

set i = i - 1

endloop

call UnitRemoveAbility(u, REDUCCION_MOVIMIENTO_ID)
call UnitRemoveAbility(u, REDUCCION_MOVIMIENTO_BUFF_ID)

call GroupRemoveUnit(GROUPMS, u)
call FlushChildHashtable(HTMS, Id)
if FirstOfGroup(GROUPMS) == null then
call PauseTimer(t2)
endif

/////////////////////
/////////////////////

set e = null

endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function AddSlowMS takes unit u, real duration, integer slow, integer buff1, string attachpoint returns nothing
local integer Id = GetHandleId(u)
local integer NewSlow = LoadInteger(HTMS, Id, 0) + slow
local effect e = AddSpellEffectTargetById(buff1, EFFECT_TYPE_TARGET, u, attachpoint)
local integer i = LoadInteger(HTMS, Id, StringHash("0"))
local boolean B = false
local integer buff2

loop
set buff2 = LoadInteger(HTAS,Id, StringHash(("Buff" + I2S(i))))
set i = i - 1
exitwhen i < 0
if buff1 == buff2 then
set B = true
endif
endloop

if not(B) then

if FirstOfGroup(GROUPMS) == null then
call TimerStart(t2, PERIODIC, true, function TimerMS)
endif

call ApplyMS(u, NewSlow)

call SaveInteger(HTMS, Id, 0, NewSlow)

set i = LoadInteger(HTMS, Id, StringHash("0")) + 1
call SaveInteger(HTMS, Id, StringHash("0"), i)

call SaveReal(HTMS, Id, StringHash(("Dur" + I2S(i))), duration)
call SaveInteger(HTMS, Id, StringHash(("Buff" + I2S(i))), buff1)
call SaveEffectHandle(HTMS, Id, StringHash(("Efecto" + I2S(i))), e)
call SaveInteger(HTMS, Id, StringHash(("Lenteo" + I2S(i))), slow)
call SaveBoolean(HTMS, Id, StringHash(("Bool" + I2S(i))), true)

call GroupAddUnit(GROUPMS, u)

else
call DestroyEffect(e)
endif
///////////////////////////////////////////////////////

set e = null
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function AddBonusMS takes unit u, real duration, integer slow, integer buff1, string attachpoint returns nothing
call AddSlowMS(u, duration, -slow, buff1, attachpoint)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function GetSlowMS takes unit u returns integer
return LoadInteger(HTMS, GetHandleId(u), 0)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

function GetBonusMS takes unit u returns integer
return -LoadInteger(HTMS, GetHandleId(u), 0)
endfunction

///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////

private function Init takes nothing returns nothing
set DUMMY = CreateUnit(Player(15), DUMMY_ID, 0,0,0)
call UnitAddAbility(DUMMY, REDUCCION_MOVIMIENTO_ID)
call UnitAddAbility(DUMMY, AUMENTO_MOVIMIENTO_ID)
call UnitAddAbility(DUMMY, AUMENTO_ATAQUE_ID)
call UnitAddAbility(DUMMY, REDUCCION_ATAQUE_ID)
call UnitRemoveAbility(DUMMY, REDUCCION_MOVIMIENTO_ID)
call UnitRemoveAbility(DUMMY, AUMENTO_MOVIMIENTO_ID)
call UnitRemoveAbility(DUMMY, AUMENTO_ATAQUE_ID)
call UnitRemoveAbility(DUMMY, REDUCCION_ATAQUE_ID)
endfunction

endlibrary[/jass]

ParametricX y ParametricY:: [jass]function ParametricX takes real t, real Largo, real Alto, real Grados returns real
return Largo * Cos(t) * Cos(Grados) - Alto * Sin(t) * Sin(Grados)
endfunction

function ParametricY takes real t, real Largo, real Alto, real Grados returns real
return Largo * Cos(t) * Sin(Grados) + Alto * Sin(t) * Cos(Grados)
endfunction[/jass]

Estas 2 funciones las copian en su código personalizado

Deto Init:: [gui]Init
Acontecimientos
Map initialization
Condiciones
Acciones
Tabla hash - Create a hashtable
Set HashTable = (Last created hashtable)
Set ID_DUMMY = DUMMY
[/gui]

Este detonador sirve para que seteen el dummy(usen un dummy que sea caster y modelo dummy) y se cree la Hastable (se aconseja que usen el mismo nombre para la Hashtable, si tienen una con ese nombre, no necesitan crear otra)

Llamarada Gigante: El mago sanguinario prepara sus llamaradas una a una y luego las hace explotar al unísono.

Código:: [gui]Llamarada Gigante Constantes
Acontecimientos
Map initialization
Condiciones
Acciones
Set LG_HabiDummy = Llamarada
Set LG_Habilidad = Llamarada Gigante
Set LG_ModeloEfecto = Abilities\Spells\Human\FlameStrike\FlameStrikeTarget.mdl
Set LG_Orden = flamestrike
[/gui]

[gui]Llamarada Gigante
Acontecimientos
Unidad - A unit Inicia el efecto de una habilidad
Condiciones
(Ability being cast) Igual a (==) LG_Habilidad
Acciones
Set _Caster = (Triggering unit)
Custom script: call AddSlowAS(udg__Target,15.00, 100, 'Bslo', "origin")
Set _Punto = (Position of (Triggering unit))
Set _Punto2 = (Target point of ability being cast)
Custom script: set udg__Angulo = Atan2(GetLocationY(udg__Punto2) - GetLocationY(udg__Punto), GetLocationX(udg__Punto2) - GetLocationX(udg__Punto))
Set _Distancia = (Distance between _Punto and _Punto2)
Set LG_Numero = ((Integer(_Distancia)) / 125)
Efecto especial - Create a special effect at _Punto2 using LG_ModeloEfecto
Set _Efecto = (Last created special effect)
Unidad - Create 1 Campesino for (Triggering player) at _Punto facing Vista edificio predeterminada (270.0) degrees
Custom script: call GroupAddUnit(udg_LG_IdentificadoresGrupo, bj_lastCreatedUnit)
Unidad - Hide (Last created unit)
Unidad - Activar pausa (Last created unit)
Set _Identificador = (Last created unit)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Distancia"), 0.00)
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Instance"), 0)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Angulo"), udg__Angulo)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("X" + I2S(udg_LG_Numero))), GetLocationX(udg__Punto2))
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("Y" + I2S(udg_LG_Numero))), GetLocationY(udg__Punto2))
Custom script: call SaveEffectHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("Efecto" + I2S(udg_LG_Numero))), udg__Efecto)
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("i"), udg_LG_Numero)
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Numero"), udg_LG_Numero)
Custom script: call SaveUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Caster"), udg__Caster)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("X0"), GetLocationX(udg__Punto))
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Y0"), GetLocationY(udg__Punto))
-------- ------------------------------------------------------------------------- --------
Custom script: if CountUnitsInGroup(udg_LG_IdentificadoresGrupo) == 1 then
Detonador - Turn on LlamaradaGigante
Custom script: endif
Custom script: call RemoveLocation(udg__Punto)
Custom script: call RemoveLocation(udg__Punto2)
[/gui]

[gui]LlamaradaGigante
Acontecimientos
Tiempo - Every 0.04 seconds of game time
Condiciones
Acciones
Custom script: if FirstOfGroup(udg_LG_IdentificadoresGrupo) != null then
-------- Spells Activos Mayor a 0 --------
Grupo de unidad - Pick every unit in LG_IdentificadoresGrupo and do (Actions)
Bucle: Acciones
Custom script: local real X = LoadReal(udg_HashTable, GetHandleId(GetEnumUnit()), StringHash("X0"))
Custom script: local real Y = LoadReal(udg_HashTable, GetHandleId(GetEnumUnit()), StringHash("Y0"))
Set _Identificador = (Picked unit)
Custom script: set udg__Instancia = LoadInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Instance")) + 1
Custom script: set udg__Distancia = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Distancia"))
Custom script: set udg__Angulo = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Angulo"))
Custom script: set udg_LG_Numero = LoadInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("i"))
Multiple FunctionsIf (All Conditions are True) then do (Then Actions) else do (Else Actions)
Si: Condiciones
_Instancia Mayor que (>) 5
Entonces: Acciones
Set _Instancia = 0
Set _Distancia = (_Distancia + 125.00)
Set LG_Numero = (LG_Numero - 1)
Multiple FunctionsIf (All Conditions are True) then do (Then Actions) else do (Else Actions)
Si: Condiciones
LG_Numero Igual a (==) 0
Entonces: Acciones
Custom script: set udg__Caster = LoadUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Caster"))
Custom script: set udg_LG_Numero = LoadInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Numero"))
Custom script: set X = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("X" + I2S(udg_LG_Numero))))
Custom script: set Y = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("Y" + I2S(udg_LG_Numero))))
Custom script: set udg__Punto = Location(X, Y)
Do Multiple ActionsFor each (Integer A) from 1 to LG_Numero, do (Actions)
Bucle: Acciones
Custom script: set X = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("X" + I2S(bj_forLoopAIndex))))
Custom script: set Y = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("Y" + I2S(bj_forLoopAIndex))))
Custom script: set udg__Efecto = LoadEffectHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("Efecto" + I2S(bj_forLoopAIndex))))
Custom script: call DestroyEffect(udg__Efecto)
Custom script: set bj_lastCreatedUnit = CreateUnit(GetOwningPlayer(udg__Identificador), udg_ID_DUMMY, X, Y, 0.00)
Custom script: call UnitApplyTimedLife(bj_lastCreatedUnit, 'BHbf', 1.00)
Custom script: call UnitAddAbility(bj_lastCreatedUnit, udg_LG_HabiDummy)
Custom script: call SetUnitAbilityLevel(bj_lastCreatedUnit, udg_LG_HabiDummy, GetUnitAbilityLevel(udg__Caster, udg_LG_Habilidad))
Custom script: call IssuePointOrder(bj_lastCreatedUnit, udg_LG_Orden, X, Y)
Do Multiple ActionsFor each (Integer A) from 1 to 4, do (Actions)
Bucle: Acciones
Set _Punto2 = (_Punto offset by 225.00 towards (-45.00 + (90.00 x (Real((Integer A))))) degrees)
Unidad - Create 1 ID_DUMMY for (Owner of _Identificador) at _Punto2 facing Vista edificio predeterminada (270.0) degrees
Unidad - Add a 1.00 second GenÃrico expiration timer to (Last created unit)
Unidad - Add LG_HabiDummy to (Last created unit)
Unidad - Set level of LG_HabiDummy for (Last created unit) to (Level of LG_Habilidad for _Caster)
Unidad - Order (Last created unit) to Humano mago sanguinario - Llamarada _Punto2
Custom script: call RemoveLocation(udg__Punto2)
Custom script: call RemoveLocation(udg__Punto)
Grupo de unidad - Remove _Identificador from LG_IdentificadoresGrupo
Custom script: call FlushChildHashtable(udg_HashTable, GetHandleId(udg__Identificador))
Unidad - Remove _Identificador from the game
Otros: Acciones
Custom script: set X = X + udg__Distancia * Cos(udg__Angulo)
Custom script: set Y = Y + udg__Distancia * Sin(udg__Angulo)
Custom script: set udg__Efecto = AddSpecialEffect(udg_LG_ModeloEfecto, X, Y)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Distancia"), udg__Distancia)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("X" + I2S(udg_LG_Numero))), X)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("Y" + I2S(udg_LG_Numero))), Y)
Custom script: call SaveEffectHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash(("Efecto" + I2S(udg_LG_Numero))), udg__Efecto)
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("i"), udg_LG_Numero)
Otros: Acciones
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Instance"), udg__Instancia)
Custom script: else
-------- 0 Spells Activos --------
Detonador - Turn off (This trigger)
Custom script: endif
[/gui]

Screenshot:

Lazo etéreo: La magia arcana permite al mago sanguinario trascender el cuerpo y conectarse con el espíritu, incluso con el de sus enemigos. Crea un lazo que roba un porcentaje de vida, maná, velocidad de ataque y velocidad de movimiento y convierte al mago sanguinario y al objetivo en étereos mientras estén atados.

Requisito:: Este spell necesita la librería "MS AS Modifier", es el único spell de los 4 que la usa

Código:: [gui]Lazo Etereo Constantes
Acontecimientos
Map initialization
Condiciones
Acciones
Set LE_Habilidad = Lazo etÃreo
Set LE_ModeloRayo = Robar vida
-------- El modelo de los buffs tambiÃn funciona como efecto en el spell --------
Set LE_BuffBenefico = Consumir manÃ¡ (hechicero)
Set LE_BuffNegativo = Consumir manÃ¡ (objetivo)
Set LE_DistanciaMAX = 1000.00
Set LE_Attachpoint = chest
Set LE_HabilidadDummy = DesapariciÃ³n
[/gui]

[gui]Lazo Etereo
Acontecimientos
Unidad - A unit Inicia el efecto de una habilidad
Condiciones
(Ability being cast) Igual a (==) LE_Habilidad
Acciones
Set _Caster = (Triggering unit)
Set _Target = (Target unit of ability being cast)
Set _Damage = (Real((Level of LE_Habilidad for (Triggering unit))))
Set _Punto = (Position of (Triggering unit))
Unidad - Create 1 ID_DUMMY for (Triggering player) at _Punto facing Vista edificio predeterminada (270.0) degrees
Unidad - Add LE_HabilidadDummy to (Last created unit)
Unidad - Add a 1.00 second GenÃrico expiration timer to (Last created unit)
Unidad - Order (Last created unit) to Mago sanguinario humano- DesapariciÃ³n _Caster
Unidad - Order (Last created unit) to Mago sanguinario humano- DesapariciÃ³n _Target
Set _Punto2 = (Position of (Target unit of ability being cast))
Rayo - Create a LE_ModeloRayo lightning effect from source _Punto to target _Punto2
Set _Rayo = (Last created lightning effect)
Unidad - Create 1 Campesino for (Triggering player) at _Punto facing Vista edificio predeterminada (270.0) degrees
Custom script: call GroupAddUnit(udg_LE_IdentificadoresGrupo, bj_lastCreatedUnit)
Unidad - Hide (Last created unit)
Unidad - Activar pausa (Last created unit)
Set _Identificador = (Last created unit)
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Instance"), 0)
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("ASMS"), R2I(udg__Damage))
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Damage"), udg__Damage)
Custom script: call SaveLightningHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Rayo"), udg__Rayo)
Custom script: call SaveUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Target"), udg__Target)
Custom script: call SaveUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Caster"), udg__Caster)
-------- ------------------------------------------------------------------------- --------
Custom script: if CountUnitsInGroup(udg_LE_IdentificadoresGrupo) == 1 then
Detonador - Turn on LazoEtereo
Custom script: endif
Custom script: call RemoveLocation(udg__Punto)
Custom script: call RemoveLocation(udg__Punto2)
[/gui]

[gui]LazoEtereo
Acontecimientos
Tiempo - Every 0.04 seconds of game time
Condiciones
Acciones
Custom script: if FirstOfGroup(udg_LE_IdentificadoresGrupo) != null then
-------- Spells Activos Mayor a 0 --------
Grupo de unidad - Pick every unit in LE_IdentificadoresGrupo and do (Actions)
Bucle: Acciones
Set _Identificador = (Picked unit)
Custom script: set udg__Instancia = LoadInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Instance")) + 1
Custom script: set udg__Damage = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Damage"))
Custom script: set udg__Rayo = LoadLightningHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Rayo"))
Custom script: set udg__Caster = LoadUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Caster"))
Custom script: set udg__Target = LoadUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Target"))
Set _Punto = (Position of _Caster)
Set _Punto2 = (Position of _Target)
Rayo - Move _Rayo to source _Punto and target _Punto2
Set _Distancia = (Distance between _Punto and _Punto2)
Multiple FunctionsIf (All Conditions are True) then do (Then Actions) else do (Else Actions)
Si: Condiciones
_Distancia Mayor que o igual a (>=) LE_DistanciaMAX
Entonces: Acciones
Unidad - Order _Caster to Detener
Otros: Acciones
Multiple FunctionsIf (All Conditions are True) then do (Then Actions) else do (Else Actions)
Si: Condiciones
_Instancia Igual a (==) 25
Entonces: Acciones
Custom script: set udg__Instancia = LoadInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("ASMS"))
Custom script: call RemoveBuffAS(udg__Caster, udg_LE_BuffBenefico)
Custom script: call RemoveBuffMS(udg__Caster, 0000)
Custom script: call RemoveBuffAS(udg__Target, udg_LE_BuffNegativo)
Custom script: call RemoveBuffMS(udg__Target, 0000)
Custom script: call AddBonusAS(udg__Caster,15.00, udg__Instancia, udg_LE_BuffBenefico, udg_LE_Attachpoint)
Custom script: call AddSlowAS(udg__Target,15.00, udg__Instancia, udg_LE_BuffNegativo, udg_LE_Attachpoint)
Custom script: call AddBonusMS(udg__Caster,15.00, udg__Instancia, 0000, null)
Custom script: call AddSlowMS(udg__Target,15.00, udg__Instancia, 0000, null)
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("ASMS"), udg__Instancia + R2I(udg__Damage))
Unidad - Set life of _Caster to ((Percentage life of _Caster) + _Damage)%
Unidad - Set life of _Target to ((Percentage life of _Target) - _Damage)%
Multiple FunctionsIf (All Conditions are True) then do (Then Actions) else do (Else Actions)
Si: Condiciones
(ManÃ¡ mÃ¡x. of _Target) Mayor que (>) 0.00
Entonces: Acciones
Unidad - Set mana of _Caster to ((Percentage life of _Caster) + _Damage)%
Unidad - Set mana of _Target to ((Percentage life of _Target) - _Damage)%
Otros: Acciones
Set _Instancia = 0
Otros: Acciones
Custom script: call SaveInteger(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Instance"), udg__Instancia)
Custom script: call RemoveLocation(udg__Punto)
Custom script: call RemoveLocation(udg__Punto2)
Custom script: else
-------- 0 Spells Activos --------
Detonador - Turn off (This trigger)
Custom script: endif
[/gui]

[gui]Lazo Etereo Stop
Acontecimientos
Unidad - A unit Finaliza el lanzamiento de una habilidad
Unidad - A unit Detiene el lanzamiento de una habilidad
Condiciones
(Ability being cast) Igual a (==) LE_Habilidad
Acciones
Grupo de unidad - Pick every unit in LE_IdentificadoresGrupo and do (Actions)
Bucle: Acciones
Set _Identificador = (Picked unit)
Custom script: set udg__Caster = LoadUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Caster"))
Custom script: set udg__Rayo = LoadLightningHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Rayo"))
Multiple FunctionsIf (All Conditions are True) then do (Then Actions) else do (Else Actions)
Si: Condiciones
(Triggering unit) Igual a (==) _Caster
Entonces: Acciones
Custom script: call DestroyLightning(udg__Rayo)
Grupo de unidad - Remove _Identificador from LE_IdentificadoresGrupo
Custom script: call FlushChildHashtable(udg_HashTable, GetHandleId(udg__Identificador))
Unidad - Remove _Identificador from the game
Otros: Acciones
[/gui]

Screenshot:

Escudo Arcano: El mago sanguinario es un maestro en la magia arcana, lo que le permite crear un escudo a partir de esta magia. Una porción de todo daño que reciba quemará maná al enemigo en base al daño causado y restaurará un poco de maná al mago sanguinario y esa porción será disuelta.

Código:: [gui]Escudo Arcano Constantes
Acontecimientos
Map initialization
Condiciones
Acciones
-------- AquÃ cuenta la animaciÃ³n Death --------
Set EA_ModeloEfecto = Abilities\Spells\Items\WandOfNeutralization\NeutralizationMissile.mdl
Set EA_Attachpoint = head
-------- Estas 2 variables DEBEN ser iguales --------
Set EA_Habilidad = Escudo Arcano
Set EA_Habilidad1 = Escudo Arcano
[/gui]

[gui]Escudo Arcano Init
Acontecimientos
Unidad - A unit Adquiere una habilidad
Condiciones
(Learned Hero Skill) Igual a (==) EA_Habilidad
(Learned skill level) Igual a (==) 1
Acciones
Detonador - Add to Escudo Arcano the event (Unidad - (Triggering unit) Recibe daÃ±o)
[/gui]

[gui]Escudo Arcano
Acontecimientos
Condiciones
(Damage taken) Mayor que o igual a (>=) 20.00
Acciones
Set _Caster = (Triggering unit)
Set _Target = (Damage source)
Set _Damage = ((Damage taken) x (0.16 x (Real((Level of EA_Habilidad1 for _Caster)))))
Efecto especial - Create a special effect attached to the EA_Attachpoint of _Caster using EA_ModeloEfecto
Efecto especial - Destroy (Last created special effect)
Efecto especial - Create a special effect attached to the EA_Attachpoint of _Target using EA_ModeloEfecto
Efecto especial - Destroy (Last created special effect)
Unidad - Set life of _Caster to ((Vida of _Caster) + _Damage)
Unidad - Set mana of _Caster to ((ManÃ¡ of _Caster) + _Damage)
Unidad - Set mana of _Target to ((ManÃ¡ of _Target) - _Damage)
[/gui]

Vuelo del Fénix: Invoca un fénix que gira alrededor del Mago sanguinario dañando a todos los enemigos cercanos.

Requisito:: Este es el único spell que utiliza ParametricX y ParametricY

Código:: [gui]Vuelo del Fenix Constantes
Acontecimientos
Map initialization
Condiciones
Acciones
Set VF_Habilidad = Vuelo del FÃnix
Set VF_HabiDummy = Fuego de fÃnix (Spell)
Set VF_AoEDamage = 175.00
Set VF_AoESpell = 500.00
Set VF_AltoParabola = 150.00
Set VF_PeriodosPorSegundo = 0.75
Set VF_DuracionSpell = (5.00 / VF_PeriodosPorSegundo)
Set VF_ModeloFenix = units\human\phoenix\phoenix.mdl
-------- Este daÃ±o serÃ¡ recibida por las unidades que "choquen" contra el fÃnix. El DPS se configura desde la habilidad dummy --------
Set VF_Damage = 125.00
[/gui]

[gui]Vuelo del Fenix
Acontecimientos
Unidad - A unit Inicia el efecto de una habilidad
Condiciones
(Ability being cast) Igual a (==) VF_Habilidad
Acciones
Set _Caster = (Triggering unit)
Set _Punto = (Position of (Triggering unit))
Unidad - Create 1 ID_DUMMY for (Triggering player) at _Punto facing Vista edificio predeterminada (270.0) degrees
Unidad - Add VF_HabiDummy to (Last created unit)
Set _Dummy = (Last created unit)
Efecto especial - Create a special effect attached to the chest of (Last created unit) using VF_ModeloFenix
Set _Efecto = (Last created special effect)
Unidad - Create 1 Campesino for (Triggering player) at _Punto facing Vista edificio predeterminada (270.0) degrees
Custom script: call GroupAddUnit(udg_VF_IdentificadoresGrupo, bj_lastCreatedUnit)
Unidad - Hide (Last created unit)
Unidad - Activar pausa (Last created unit)
Set _Identificador = (Last created unit)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("t"), 0.00)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Tiempo"), 0.00)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Angulo"), 0.00)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Dist"), udg_VF_AoESpell / 2)
Custom script: call SaveGroupHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Grupo"), CreateGroup())
Custom script: call SaveUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Dummy"), udg__Dummy)
Custom script: call SaveUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Caster"), udg__Caster)
Custom script: call SaveEffectHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Efecto"), udg__Efecto)
-------- ------------------------------------------------------------------------- --------
Custom script: if CountUnitsInGroup(udg_VF_IdentificadoresGrupo) == 1 then
Detonador - Turn on VuelodelFenix
Custom script: endif
Custom script: call RemoveLocation(udg__Punto)
[/gui]

[gui]VuelodelFenix
Acontecimientos
Tiempo - Every 0.04 seconds of game time
Condiciones
Acciones
Custom script: if FirstOfGroup(udg_VF_IdentificadoresGrupo) != null then
-------- Spells Activos Mayor a 0 --------
Grupo de unidad - Pick every unit in VF_IdentificadoresGrupo and do (Actions)
Bucle: Acciones
-------- Variables locales, siempre Ãºtiles --------
Custom script: local unit Picked
Custom script: local real X
Custom script: local real Y
Custom script: local real ParaX
Custom script: local real ParaY
Custom script: local real NewY
Custom script: local real NewX
Custom script: local real Facing
Custom script: local real t = LoadReal(udg_HashTable, GetHandleId(GetEnumUnit()),StringHash("T")) + (0.04) * udg_VF_PeriodosPorSegundo * (2* bj_PI)
-------- Cargamos los valores necesarios --------
Set _Identificador = (Picked unit)
Custom script: set udg__Angulo = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Angulo")) + (2.50 * bj_DEGTORAD)
Custom script: set udg__Caster = LoadUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Caster"))
Custom script: set udg__Dummy = LoadUnitHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Dummy"))
Custom script: set udg__Duracion = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Tiempo")) + 0.04
Custom script: set udg__Distancia = LoadReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Dist"))
Custom script: set udg_VF_GrupoNoDamage = LoadGroupHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Grupo"))
-------- Seteos de posiciÃ³n del dummy y facing angle --------
Custom script: set X = GetUnitX(udg__Caster) + udg__Distancia * Cos(udg__Angulo)
Custom script: set Y = GetUnitY(udg__Caster) + udg__Distancia * Sin(udg__Angulo)
Custom script: set ParaY = ParametricY(t, udg_VF_AoESpell / 2, udg_VF_AltoParabola, udg__Angulo)
Custom script: set ParaX = ParametricX(t, udg_VF_AoESpell / 2, udg_VF_AltoParabola, udg__Angulo)
Custom script: set NewX = X + ParaX
Custom script: set NewY = Y + ParaY
Custom script: set Facing = bj_RADTODEG * Atan2(NewY - GetUnitY(udg__Dummy), NewX - GetUnitX(udg__Dummy))
Custom script: call SetUnitFacingTimed( udg__Dummy, Facing, 0.00 )
Custom script: call SetUnitPosition(udg__Dummy, NewX, NewY)
Multiple FunctionsIf (All Conditions are True) then do (Then Actions) else do (Else Actions)
Si: Condiciones
_Duracion Menor que (<) VF_DuracionSpell
Entonces: Acciones
-------- AquÃ se provoca el daÃ±o a las unidades cercanas --------
Custom script: set udg__Punto = Location(NewX, NewY)
Set _Grupo = (Units within VF_AoEDamage of _Punto matching ((((Matching unit) is Una estructura) Igual a (==) False) and ((((Matching unit) is Inmune a la magia) Igual a (==) False) and ((((Matching unit) is in VF_GrupoNoDamage) Igual a (==) False) and (((Matching unit) b
Grupo de unidad - Add all units of _Grupo to VF_GrupoNoDamage
Custom script: loop
Custom script: set Picked = FirstOfGroup(udg__Grupo)
Custom script: call GroupRemoveUnit(udg__Grupo, Picked)
Custom script: exitwhen Picked == null
Custom script: call UnitDamageTarget(udg__Caster, Picked, udg_VF_Damage, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, null)
Custom script: endloop
Custom script: call DestroyGroup(udg__Grupo)
Custom script: call RemoveLocation(udg__Punto)
Otros: Acciones
-------- Nulleamos el spell --------
Custom script: set udg__Efecto = LoadEffectHandle(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Efecto"))
Efecto especial - Destroy _Efecto
Custom script: call DestroyGroup(udg_VF_GrupoNoDamage)
Unidad - Kill _Dummy
Grupo de unidad - Remove _Identificador from VF_IdentificadoresGrupo
Custom script: call FlushChildHashtable(udg_HashTable, GetHandleId(udg__Identificador))
Unidad - Remove _Identificador from the game
-------- Guardamos los valores modificados para la prÃ³xima instancia --------
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Tiempo"), udg__Duracion)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("Angulo"), udg__Angulo)
Custom script: call SaveReal(udg_HashTable, GetHandleId(udg__Identificador), StringHash("t"), t)
Custom script: else
-------- 0 Spells Activos --------
Detonador - Turn off (This trigger)
Custom script: endif
[/gui]

Screenshot:

El modelo Dummy es de autor desconocido :\

Recuerda elegir tu especialidad o que estás interesado en aprender aquí Wink

https://www.worldofeditors.net/t192-anuncio-sistema-de-especialidades-o-profesiones-del-editor

Link del map

(#) Tema: Re: [Spellpack] Mago Sanguinario Sáb Sep 14, 2013 3:37 pm

Supongo que hay que comentar para descargar tongue

(#) Tema: Re: [Spellpack] Mago Sanguinario Sáb Sep 14, 2013 4:13 pm

Wow que buenas habilidades!

Son buenas y creativas Razz

PD: Haras un Spellpack de tu Invoker? jum

(#) Tema: Re: [Spellpack] Mago Sanguinario Sáb Sep 14, 2013 4:37 pm

@XxDarkneosxX escribió:: Wow que buenas habilidades!

Son buenas y creativas +rep

PD: Haras un Spellpack de tu Invoker?

Puedo subir los spells del invoker. Pero el sistema no

(#) Tema: Re: [Spellpack] Mago Sanguinario Mar Sep 24, 2013 12:44 pm

Buen spellpack Wink

no encontré errores y todo parece andar como deberia, así que APRUEBO

(#) Tema: Re: [Spellpack] Mago Sanguinario Mar Sep 24, 2013 2:12 pm

me gusto mucho el fenix

[Spellpack] Mago Sanguinario Blackbaradenultimatefor

(#) Tema: Re: [Spellpack] Mago Sanguinario Vie Nov 01, 2013 1:48 am

Genial sigue asi

(#) Tema: Re: [Spellpack] Mago Sanguinario Vie Nov 29, 2013 9:03 pm

el escudo arcano es como el escudo de mana del warcraft mele ?

(#) Tema: Re: [Spellpack] Mago Sanguinario Vie Nov 29, 2013 10:52 pm

@mondragon escribió:: el escudo arcano es como el escudo de mana del warcraft mele ?

No, el escudo de maná produce que el maná de la unidad absorba el daño recibido(pero sin reducciones). Mi escudo arcano absorbe una parte de daño, transformandolo en maná para el mago sanguinario y reduciendo esa cantidad de maná al enemigo

No entiendes lo que digo cuando comento??
https://www.worldofeditors.net/t184-glosario-de-terminos-en-we

Poderes sin canalizarse
Crear poderes pasivos y poderes autocast

Invoker Wars

Overcraft

Sistema de Buffs