scope Fire initializer Init
globals
private real RADIUS = 150
private real DAMAGE = 140
private integer AID ='A000'
private real SPEED = 65
private string EFFECT = "Abilities\\Spells\\Orc\\LiquidFire\\Liquidfire.mdl"
private string EFFECT1 = "fireball.mdx"
private attacktype AT = ATTACK_TYPE_MAGIC
private damagetype DT = DAMAGE_TYPE_NORMAL
private weapontype WT = null
endglobals
private function UnitFilter takes nothing returns boolean
local unit u=LoadUnitHandle(HASH,GetHandleId(GetExpiredTimer()),StringHash("unit"))
return (GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)>0.) and IsUnitEnemy(GetFilterUnit(),GetOwningPlayer(u)) and IsUnitType(GetFilterUnit(),UNIT_TYPE_FLYING)==false and IsUnitType(GetFilterUnit(),UNIT_TYPE_MECHANICAL)==false and IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE)==false
endfunction
private function FirePeri takes nothing returns nothing
local timer q = GetExpiredTimer()
local integer h = GetHandleId(q)
local unit t = LoadUnitHandle(HASH, h, StringHash("target"))
local unit u = LoadUnitHandle(HASH, h, StringHash("unit"))
local real a = LoadReal(HASH, h, StringHash("angle"))
local integer i = LoadInteger(HASH, h, StringHash("cound"))
local real x
local real y
local group g = CreateGroup()
local unit f
if(i>=0) then
call SaveInteger(HASH, h, StringHash("cound"), i-1)
set x = GetUnitX(t) + SPEED * Cos(a)
set y = GetUnitY(t) + SPEED * Sin(a)
call GroupEnumUnitsInRange(g, x, y, RADIUS, Condition(function UnitFilter))
loop
set f = FirstOfGroup(g)
exitwhen f == null
call UnitDamageTarget(u, f, DAMAGE, true, true, AT, DT, WT)
call DestroyEffect(AddSpecialEffectTarget(EFFECT, f, "origin"))
call GroupRemoveUnit(g, f)
endloop
if (IsTerrainPathable(x, y, PATHING_TYPE_WALKABILITY) ==false) then
call SetUnitX(t, x)
call SetUnitY(t, y)
endif
else
call Flush(q)
endif
set t = null
set q = null
set f = null
set g = null
endfunction
private function FireMain takes nothing returns nothing
local unit u = GetTriggerUnit()
local timer q = CreateTimer()
local unit t = CreateUnit(GetOwningPlayer(u), 'h000', GetUnitX(u), GetUnitY(u), 0)
local real a = Atan2(GetUnitY(t) - GetUnitY(u), GetUnitX(t)-GetUnitX(u))
call SaveUnitHandle(HASH, GetHandleId(q), StringHash("target"), t)
call SaveReal(HASH, GetHandleId(q), StringHash("angle"),a)
call SaveInteger(HASH, GetHandleId(q), StringHash("cound"), 10)
call SaveUnitHandle(HASH, GetHandleId(q), StringHash("unit"), u)
call TimerStart(q, .03, true, function FirePeri)
set q = null
set t = null
set u = null
endfunction
private function FireConditio takes nothing returns boolean
return GetSpellAbilityId() == AID
endfunction
private function Init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=0
loop
call TriggerRegisterPlayerUnitEvent(t,Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
set i=i+1
exitwhen i==16
endloop
call TriggerAddCondition(t,Condition(function FireConditio))
call TriggerAddAction(t,function FireMain)
call Preload(EFFECT)
call PreloadAbility(AID)
set t=null
endfunction
endscope
вот спелл созадет огненный шар котой летит к проитвнику по пути нанося все урон в ращиусе 150. Рабоатет не коректно не наносит урона и летит криво.
21.06.2011, 14:03
