game_war48
Dragon Quest
- 7/9/08
- 1,320
- 6
Chậc, xóa chữ "Max" đi thì đc chứ để như cũ thì kô đc. Chắc kô có Set max life, hỏi anh Tom đê
.
.Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
.
, sao mọi người không làm = GUI cho dễ nhỉ, đánh JASS mỏi tay kinh khủng @@
.Mình cũng..."dốt" JASS, sao mọi người không làm = GUI cho dễ nhỉ, đánh JASS mỏi tay kinh khủng @@
function Conditions takes nothing returns boolean
if ( not ( GetSpellAbilityId() == 'A000' ) ) then
return false
endif
return true
endfunction
function Effect takes nothing returns nothing
local location TargetLoc = GetSpellTargetLoc()
local unit Caster = GetSpellAbilityUnit()
local unit Dummy = GetLastCreatedUnit()
local unit PickedUnit
local timer Timer = GetExpiredTimer()
local group Group
set Group = GetUnitsInRangeOfLocAll(600 , TargetLoc)
call AddSpecialEffectTargetUnitBJ("overhead", Dummy , "Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl")
call DestroyEffectBJ(GetLastCreatedEffectBJ() )
loop
set PickedUnit = FirstOfGroup(Group)
exitwhen PickedUnit==null
if IsUnitEnemy(PickedUnit,GetOwningPlayer(Caster))==true then
call GroupRemoveUnit(Group,PickedUnit)
call UnitDamageTargetBJ(Dummy , PickedUnit , 50.00 , ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNIVERSAL)
call SetUnitPositionLoc(PickedUnit , PolarProjectionBJ(GetUnitLoc(Dummy) , 40.00 , AngleBetweenPoints(GetUnitLoc(Dummy) , GetUnitLoc(PickedUnit))) )
set Dummy = null
endif
endloop
endfunction
function Actions takes nothing returns nothing
local unit Caster
local unit Dummy
local location TargetLoc
local timer Timer
local group Group
set Timer = CreateTimer()
set TargetLoc = GetSpellTargetLoc()
set Caster = GetSpellAbilityUnit()
call CreateUnitAtLoc(GetOwningPlayer(Caster) , 'e000' , TargetLoc , bj_UNIT_FACING)
set Dummy = GetLastCreatedUnit()
call TimerStart(Timer , 0.5 , true , function Effect )
call TriggerSleepAction( 10.00 )
call KillUnit(Dummy)
call DestroyTimer(Timer)
call DestroyGroup(Group)
call RemoveLocation(TargetLoc)
set Caster = null
set Dummy = null
set TargetLoc = null
set Group = null
set Timer = null
endfunction
function InitTrig_Storm_Totem takes nothing returns nothing
local trigger Trigger
set Trigger = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ( Trigger, EVENT_PLAYER_UNIT_SPELL_EFFECT )
call TriggerAddCondition( Trigger, Condition( function Conditions ) )
call TriggerAddAction( Trigger, function Actions )
endfunction


