((код jass
function Trig_Toss_Conditions takes nothing returns boolean
return (GetSpellAbilityId()=='A000')
endfunction
function TossDamage takes unit pWho,real pxx,real pyy,real pAOE,real pDamage,integer pSpellId returns nothing
local group Victims=CreateGroup()
local unit First
local location lTMP
call GroupEnumUnitsInRange(Victims,pxx,pyy,pAOE,null)
loop
set First=FirstOfGroup(Victims)
exitwhen First==null
if IsUnitEnemy(First,GetOwningPlayer(pWho))and IsUnitDeadBJ(First)==false then
call UnitDamageTargetBJ(pWho,First,pDamage,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_DEMOLITION)
call GroupRemoveUnit(Victims,First)
endif
call GroupRemoveUnit(Victims,First)
endloop
call DestroyEffect(AddSpecialEffectLoc("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",GetUnitLoc(pWho)))
call GroupClear(Victims)
call DestroyGroup(Victims)
endfunction
function jumpMain takes nothing returns nothing
local timer MoveTimer=GetExpiredTimer()
local integer Handle=GetHandleId(MoveTimer)
local integer Counter=LoadInteger(udg_hash,Handle,4)
local real Range=LoadReal(udg_hash,Handle,5)
local real Angle=LoadReal(udg_hash,Handle,6)
local location lTarget=LoadLocationHandle(udg_hash,Handle,2)
local location lCaster=LoadLocationHandle(udg_hash,Handle,3)
local unit Caster=LoadUnitHandle(udg_hash,Handle,0)
local real Height=(Counter-25)*(Counter-25)
local real SpeedMod=Range*Counter/50-Range
local location Dest=PolarProjectionBJ(lTarget,SpeedMod,Angle)
if(Counter<51)then
call SetUnitPositionLoc(Caster,Dest)
call SetUnitFlyHeight(Caster,550-Height,0)
set Counter=Counter+1
if(GetRandomInt(1,4)==2)then
call DestroyEffect(AddSpecialEffectTargetUnitBJ("origin",Caster,"Abilities\\Spells\\Undead\\Cripple\\CrippleTarget.mdl"))
endif
endif
if(Counter>50)then
call SetUnitFlyHeight(Caster,GetUnitDefaultFlyHeight(Caster),0)
call PauseUnit(Caster,false)
call SetUnitPathing(Caster,true)
call TerrainDeformationRippleBJ(.2,true,lTarget,1.,300.,96.,1,64.)
call UnitDamageTargetBJ(Caster,Caster,.25*75*GetUnitAbilityLevel(Caster,'A000'),ATTACK_TYPE_NORMAL,DAMAGE_TYPE_DEMOLITION)
call TossDamage(Caster,GetLocationX(lTarget),GetLocationY(lTarget),300,75.*I2R(GetUnitAbilityLevelSwapped('A000',Caster)),'A000')
call FlushChildHashtable(udg_hash,Handle)
call DestroyTimer(GetExpiredTimer())
call RemoveLocation(lTarget)
call RemoveLocation(lCaster)
endif
call SaveInteger(udg_hash,Handle,4,Counter)
call RemoveLocation(Dest)
endfunction
function Trig_Toss_Actions takes nothing returns nothing
local timer MoveTimer = CreateTimer()
local unit Caster = GetTriggerUnit()
local location lTarget = GetSpellTargetLoc()
local location lCaster = GetUnitLoc(GetTriggerUnit())
local integer Counter = 1
local real Range = DistanceBetweenPoints(lCaster,lTarget)
local real Angle = AngleBetweenPoints(lCaster,lTarget)
local integer Handle = GetHandleId(MoveTimer)
call SetUnitAnimationByIndex(Caster,4)
call PauseUnit(Caster,true)
call SetUnitPathing(Caster,false)
call UnitAddAbility(Caster,'Arav')
call UnitRemoveAbility(Caster,'Arav')
call SaveUnitHandle(udg_hash,Handle,0,Caster)
call SaveLocationHandle(udg_hash,Handle,2,lTarget)
call SaveLocationHandle(udg_hash,Handle,3,lCaster)
call SaveInteger(udg_hash,Handle,4,Counter)
call SaveReal(udg_hash,Handle,5,Range)
call SaveReal(udg_hash,Handle,6,Angle)
call TimerStart(MoveTimer,.02,true,function jumpMain)
endfunction
function InitTrig_Toss takes nothing returns nothing
call InitHashtableBJ( )
set udg_hash = GetLastCreatedHashtableBJ()
set gg_trg_Toss=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(gg_trg_Toss,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(gg_trg_Toss,Condition(function Trig_Toss_Conditions))
call TriggerAddAction(gg_trg_Toss,function Trig_Toss_Actions)
endfunction
))
13.12.2010, 21:19
