globals
    constant boolean LIBRARY_Polygon=true
    constant boolean LIBRARY_alloc=true
    
    integer mv=0
    integer Mv=8190
    hashtable BYHT=InitHashtable()
    hashtable BYHT2=InitHashtable()
    constant integer Pv=$B
    constant integer qv=$D
    integer alloc__A=0
    integer alloc__N=0
    integer array alloc__B
    integer alloc__gX=0
    trigger array alloc__GX
    trigger array alloc__Kv
    integer alloc__ge=$2000
    timer array alloc__Ge
    timer alloc__bj_LastAllocTimer=null
    integer alloc__Timer_Key=0
    integer alloc__he=0
    integer array alloc__AR
    integer alloc__NR=0
    integer alloc__C=0
    integer array alloc__D
    integer alloc__F=0
    integer alloc__H=0
    integer array J
    integer array K
    integer array Timer_List
    integer array alloc__L
    integer array alloc__M
    integer array alloc__S
    trigger alloc__T=CreateTrigger()
    timer alloc__U=CreateTimer()
    triggercondition array alloc__Y
    conditionfunc array alloc__Z
    boolean array alloc__vv
    integer array alloc__xv
    integer alloc__ov=0
    boolean array alloc__rv
    boolean array alloc__iv
    constant boolean LIBRARY_environment=true
    constant integer environment___Wide=$800
    hashtable environment___HT=InitHashtable()
    integer environment___MaxY=0
    integer environment___MaxX=0
    integer environment___CameraX=0
    integer environment___CameraY=0
    integer environment___LastCameraId=0
    real environment___RootX=0
    real environment___RootY=0
    constant integer environment___Wide_2=environment___Wide/ 4
    constant boolean LIBRARY_math=true
    real array math__Pow2n
    real array math__Pow2p
    constant boolean LIBRARY_BagSwap=true
    integer Load_BagSwap_root
    integer Load_BagSwap_2_root
    constant boolean LIBRARY_BasicCatalog=true
    integer BasicCatalog27_root=0
    integer BasicCatalog28_root=0
    integer BasicCatalog29_root=0
    constant boolean LIBRARY_HeroCatalog=true
    integer HeroCatalog_01
    constant boolean LIBRARY_MiscCatalog=true
    integer MiscCatalog17_root=0
    integer MiscCatalog18_root=0
    integer Item_save_Charges
    integer Item_load_not
    constant boolean LIBRARY_SoundUtils=true
    integer SoundUtils__Ht=0
    constant boolean LIBRARY_string=true
    integer array string__R
    string array string__I
    integer string__Long_I=0
    integer array string__Long_Next
    integer array string__Long_Last
    integer array string__Long_Value
    integer array string__Long_Char
    boolean array string__Long_IsRoot
    trigger string__LongImul_a=CreateTrigger()
    trigger string__LongSub_a=CreateTrigger()
    trigger string__StringToLong_a=CreateTrigger()
    trigger string__LongAdd_a=CreateTrigger()
    trigger string__LongToString_a=CreateTrigger()
    trigger string__LongModulo_a=CreateTrigger()
    trigger string__LongCopy_a=CreateTrigger()
    trigger string__LongAddByLong_a=CreateTrigger()
    trigger string__LongImulByLong_a=CreateTrigger()
    trigger string__LongImulByLong_c=CreateTrigger()
    trigger string__LongModifyUseCharacter_a=CreateTrigger()
    integer string__Long_A=0
    integer string__Long_B=0
    integer string__Long_C=0
    integer string__Long_D=0
    string string__Long_String=""
    integer string__Long_E
    integer array string__Long_ArrayInt
    integer string__Long_F=0
    integer string__Long_G
    integer string__Long_H
    integer array Yx
    boolean array zx
    integer array Zx
    integer vo
    integer eo
    integer xo
    integer oo
    integer ro
    integer io
    integer ao
    trigger no=CreateTrigger()
    trigger Vo=CreateTrigger()
    trigger Eo=CreateTrigger()
    trigger Xo=CreateTrigger()
    integer Oo
    integer array Ro
    integer array Io
    integer Ao=0
    constant boolean LIBRARY_system=true
    string array system__kv
    boolean array DisplayChatopen
    integer HeroStatIndex=0
    timer HeroStatTm=null
    integer array HeroStatV
    integer array HeroStatF
    integer array HeroStatStr
    integer array HeroStatAgi
    integer array HeroStatInt
    rect WorldBounds
    real EntireMapMaxX
    real EntireMapMaxY
    real EntireMapMinX
    real EntireMapMinY
    real EntireMapCenterX
    real EntireMapCenterY
    region EntireMap
    trigger GameExecuteFunc_Trig=CreateTrigger()
    timer GameTimer=CreateTimer()
    boolexpr GroupEnumUnitsFilterNull=null
    integer array Pow2n
    unit lastspeaker=null
    integer system_Dialog__fO
    integer ItemTypeId_root
    integer ItemGold_root
    trigger array PlayerStateTrigger
    integer array PlayerStateGold
    rect ItemGold_Rect
    unit ItemGold_Store=null
    unit ItemGold_Trader=null
    integer ItemGold_I=0
    item array ItemGold_V
    boolean ItemGold_Bool=false
    boolean ItemGold_Bool2=false
    timer ItemGold_Bool2_TM=CreateTimer()
    integer TRIGGER_USE
    integer TRIGGER_PICKUP
    integer TRIGGER_DROP
    integer DroppableTimed
    integer Item_SELL_func
    integer Item_Use_func
    item LastManipulatedItem=null
    constant integer system__ORDER_ID=$D0000
    integer array system__ORDER_TRIGFOR_V
    integer system__ORDER_TRIGFOR_ON
    integer system__ORDER_TRIGFOR_OFF
    item IsTerrainWalkable_check=null
    rect IsTerrainWalkable_rect=null
    item array IsTerrainWalkable_h
    integer IsTerrainWalkable_index=0
    real IsTerrainWalkable_X=.0
    real IsTerrainWalkable_Y=.0
    constant boolean LIBRARY_Event=true
    integer Event_SpellCast_Id
    integer Event_SpellEndCast_Id
    integer Event_SpellChannel_Id
    integer Event_SpellEffect_Id
    integer Event_HeroSkill_Id
    integer Event_Summon_Id
    integer Event_Enterworld_Id
    integer Event_HeroInit_Id
    integer LAST_SPELL_ABILITY_ID=0
    integer UNIT_SPELL_EFFECT
    constant boolean LIBRARY_LoadBuffer=true
    integer array LoadBuffer_1
    integer array LoadBuffer_2
    constant boolean LIBRARY_Terrain=true
    constant boolean LIBRARY_distexttag=true
    integer distexttag__fC
    integer distexttag__fC_v
    real array distexttag__TextTag_h
    real array distexttag__TextTag_a
    integer array distexttag__TextTag_root1
    integer array distexttag__TextTag_V
    integer array distexttag__TextTag_F
    integer array distexttag__TextTag_F2
    integer distexttag__TextTag_I=0
    texttag array distexttag__TextTag_tag
    string array distexttag__TextTag_t
    real array distexttag__TextTag_x
    real array distexttag__TextTag_y
    real array distexttag__TextTag_z
    real array distexttag__TextTag_s
    real array distexttag__TextTag_m
    real array distexttag__TextTag_l
    texttag array distexttag__BC
    real array distexttag__cC
    real array distexttag__CC
    string array distexttag__DC
    constant boolean LIBRARY_groupunits=true
    group array groupunits__UA
    integer groupunits__wA=0
    unit groupunits__Mx=null
    boolean groupunits__Px
    group groupunits__qx
    group G=CreateGroup()
    group G2=CreateGroup()
    group G3=CreateGroup()
    constant boolean LIBRARY_unit=true
    integer bR
    integer BR
    boolean CR=true
    trigger He=CreateTrigger()
    trigger je=CreateTrigger()
    group h_v_Group=CreateGroup()
    unit array Je
    integer ke=0
    integer Ke=0
    integer le=0
    boolean Le=false
    integer array me
    integer array Me
    integer array Counter
    boolean KillUnit_bool=false
    constant boolean LIBRARY_effecter=true
    unit array UnitDecay_Treger
    integer array UnitDecay_Red
    integer array UnitDecay_Green
    integer array UnitDecay_Blue
    real array UnitDecay_Alpha
    real array UnitDecay_t
    integer UnitDecay_Func=0
    integer YR=0
    integer ZR=0
    integer array vI
    unit array eI
    integer array xI
    integer array oI
    integer rI=1
    integer VI=0
    integer EI=0
    integer XI=0
    integer array OI
    integer array RI
    unit array II
    effect array AI
    real array NI
    integer array bI
    integer array BI
    integer array cI
    integer array CI
    constant boolean LIBRARY_unitstate=true
    boolean array AppUnitRegen_On
    integer array AppUnitRegen_R
    integer array AppUnitRegen_L
    integer AppUnitRegen_Exe=0
    integer array UnitHP
    integer array UnitMP
    integer CURE_Unit=0
    integer BECURE_Unit=0
    real CURE_Damage=0
    constant integer UNIT_STATE_ARMOR=$A
    constant integer UNIT_STATE_ATTACK=$B
    constant integer HERO_STATE_STR=20
    constant integer HERO_STATE_AGI=21
    constant integer HERO_STATE_INT=22
    constant integer UNIT_STATE_ATTACK_SPEED=30
    constant integer UNIT_STATE_HP=40
    constant integer UNIT_STATE_MP=41
    boolean array Master_App
    integer array Master
    integer array Ability_Id
    integer array AbilitySize
    integer array UnitArmor
    integer array UnitAttack
    integer array HeroStr
    integer array HeroAgi
    integer array HeroInt
    integer array UnitAttackSpeed
    integer array HeroAgi_atk_speed
    real array HeroStr_hp_regen
    real array HeroInt_mp_regen
    real array UnitHpRegen
    real array UnitMpRegen
    real array HeroAgi_crit
    real array UnitCrit
    integer array UnitDodge_t
    real array UnitDodge
    integer array UnitHitRate_t
    real array UnitHitRate
    integer array UnitMdef_t
    real array UnitMdef
    integer array UnitAdef_t
    real array UnitAdef
    integer array UnitBeCureRatio_t
    real array UnitBeCureRatio
    integer array DamageTransitions_t
    integer array UnitPAttack_t
    integer array UnitBeDamager_t
    integer array UnitDamager_t
    integer array UnitShield_t
    integer array UnitDeath_t
    integer array UnitBePAttack_t
    integer array UNIT_CURE_EVENT
    integer array UNIT_BE_CURE_EVENT
    integer array UnitBeRemove_t
    trigger array mB
    boolean array MB
    boolean array pB
    boolean array PB
    integer array pB_v
    integer array UnitTypeId
    attacktype array UnitAttackType
    damagetype array UnitDamageType
    real array Unit_MATK
    real array Unit_C_DMG
    real array Unit_DOT
    real array Unit_Fire_Damage
    real array Unit_Frost_Damage
    real array Unit_Gas_Damage
    real array Unit_To_Damage
    real array Unit_Lightning_Damage
    real array Unit_Light_Damage
    real array Unit_Dark_Damage
    real array UnitMaxLife
    constant player PlayerNeutralPassive=Player($F)
    unit unitstate__Ax
    integer unitstate__qB
    constant boolean LIBRARY_ItemDrops=true
    constant integer Tr=20
    integer ur
    integer Ur
    integer wr
    integer Wr
    integer yr
    integer Yr
    integer zr
    boolean array IsUnitDrops
    boolean array VF
    integer array EF
    real array XF
    real array OF
    boolean RF=true
    constant boolean LIBRARY_bagstate=true
    integer array YI
    integer array zI
    integer Bag_Id_root
    integer Bag_Issenior
    integer Bag_wing
    integer xA
    real array iA
    real array VA
    integer EA
    item array XA
    integer array OA
    integer RA
    real IA
    real AA
    integer sg
    constant boolean LIBRARY_damage=true
    trigger Damage_Xgv
    trigger Damage_Xgv_v
    boolean FF=false
    unit widget_Target=null
    trigger widget_Trig=null
    real widget_HP=0
    boolean array DAK_Adef
    integer HF=0
    unit array DAK_WHICH
    unit array DAK_TARGET
    real array DAK_AMOUNT
    attacktype array DAK_ACTYPE
    damagetype array DAK_DGTYPE
    boolean array DAK_FuJia
    boolean array DAK_Multistage
    boolean array JF
    boolean array kF
    real array KF
    real array lF
    string array LF
    unit mF=null
    unit MF=null
    integer pF=0
    integer pF_v=0
    real PF=0
    unit tF=null
    real TF=0
    real uF=0
    boolean GetSpellDamageId=false
    real SpellDamage=0
    constant boolean LIBRARY_herostate=true
    integer herostate___TG
    integer herostate___uG
    integer herostate___UG
    integer EquipSlot_I=0
    integer array EquipSlot_V
    integer array EquipSlot_R
    integer array EquipSlot_id
    integer array EquipSlot_id_f
    constant integer EquipSlot_id_z=6
    integer array EquipSlot
    boolean array EquipSlot_Use
    integer array EquipModel
    boolean array Hc
    boolean array jc
    boolean array Jc
    integer array kc
    integer array Kc
    real array HandicapXP_Basis
    real array HandicapXP_Lv
    boolean array IsSleepRevive
    timer array Hero_Revive_Timer
    real array Hero_Revive_X
    real array Hero_Revive_Y
    real array Hero_Revive_HP
    real array Hero_Revive_MP
    integer array Hero_Skills_table
    integer array Tc
    integer array HeroSkillPoint
    integer array Unit_Extra_Attack
    integer array Hero_Extra_Str
    integer array Hero_Extra_Agi
    integer array Hero_Extra_Int
    integer array Hero_Percent_Str
    integer array Hero_Percent_Agi
    integer array Hero_Percent_Int
    real array Hero_Percent_Str_v
    real array Hero_Percent_Agi_v
    real array Hero_Percent_Int_v
    integer array Hero_Plus_Str
    integer array Hero_Plus_Agi
    integer array Hero_Plus_Int
    integer array Unit_Extra_HP
    integer array LastSpellAbilityId
    integer Refresh_Not
    integer Hero_Arc
    integer HeroOnSpellEffect_t
    integer array Hero_SpellEffect_t
    integer array Hero_Crit_t
    integer array Hero_Meleemagic_t
    integer array Hero_Kill_t
    integer array Hero_Be_Kill_t
    integer array HERO_REVIVE_EVENT
    integer array HeroEffectModel
    boolean array nC
    boolexpr GroupEnumUnitsFilterHero=null
    integer array Hero_Skills_Replace
    integer Globals_ReplaceSkills
    constant boolean LIBRARY_playerinit=true
    integer BN
    integer cN
    integer yA
    integer YA=0
    integer ZA=0
    integer array WA
    integer array vN
    integer array PlayerGameTimed
    integer Player_Count=0
    constant real jV=-4960
    constant real JV=$5D50
    rect KV=null
    real lV=0
    fogmodifier array mV
    unit array MV
    boolean array pV
    boolean array PV
    integer array qV
    integer array QV
    trigger No=CreateTrigger()
    timerdialog bo=null
    unit array Bo
    real array Select_cd
    constant boolean LIBRARY_zhuanshu=true
    integer kR=0
    integer kR_v=0
    integer Ut=0
    integer array wt
    integer array Wt
    integer array yt
    integer Yt
    integer zt
    string ExclusiveName=""
    string ExclusiveTip=""
    integer vT
    constant boolean LIBRARY_EquipState=true
    item LasManipulatedEquip=null
    integer LasManipulatedEquipTypeId=0
    integer Equip_zhushuxing_t
    integer Item_PickupOrDrop_event
    integer Equip_Mode_t
    integer Equip_Type_t
    integer Equip_Attack_t
    integer Equip_Armor_t
    integer Equip_Str_t
    integer Equip_Agi_t
    integer Equip_Int_t
    integer Equip_ASPD_t
    integer Equip_HP_t
    integer Equip_MP_t
    integer Equip_HpRegen_t
    integer Equip_MpRegen_t
    integer Equip_MDG_t
    integer Equip_MDEF_t
    integer Equip_Crit_t
    integer Equip_CDG_t
    integer Equip_Dodge_t
    integer Equip_ADEF_t
    integer Equip_BCR_t
    integer Equip_DOT_t
    integer Equip_Property_Damage_t
    integer Equip_Lv_t
    integer LasBuildEquipId
    boolean sr=true
    constant boolean LIBRARY_sj=true
    boolean SHOWINTERFACE=true
    boolean array Off_A098
    integer array Off_A098_id
    region bj_lastCreatedRegion=null
    rect bj_lastMoveRect=Rect(0,0,0,0)
    integer PlayerIndex=1
    real Lucky=0
    unit Boss_Unit_RHZX=null
    unit Boss_Unit_Hpal=null
    unit Boss_Unit_HM=null
    unit Boss_Unit_n03F=null
    unit Boss_Unit_n03G=null
    real array Item_cd_ryjz
    boolean array Item_bool_I00C
    real array Item_cd_I00C
    timer array Item_intup_I00C
    integer array Item_index_I00E
    timer array Item_buff_I00E
    boolean array Item_I0E3_cd
    timer array Item_I0DV_timer
    integer array Item_I0DV_lv
    real array Item_cd_I0DW
    timer array Item_I0DX_Timer
    integer array Item_I0DX_mdef
    timer array Item_I0DY_timer
    timer array Item_I0DY_timer2
    integer array Item_I0DY_death
    integer array Item_I0DY_atk
    timer array Item_I0E1_timer
    integer array Item_I0E1_hd1
    real array Item_I0E1_hd1_life
    timer array Item_I0E1_timer2
    integer array Item_I0E1_hd2
    real array Item_I0E1_hd2_life
    timer array Item_I0E4_timer
    timer array Item_I0E4_timer2
    real array Item_I0E4_Damege
    real array Item_I0E4_Damege2
    real array Item_I0E6_cd
    timer array Item_I0E6_timer
    integer array Item_I0E6_atk
    boolean array Item_I0E7_bool
    integer array Item_I0E7_atk
    integer array Item_I0E8_lv
    timer array Item_I0E8_timer
    //integer array Item_I0EB_Id
    timer array Item_I0E9_timer
    integer array Item_I0E9_mdef
    integer array Item_bool_azhr
    timer array Item_A0UX_timer
    trigger array Item_A0UX_trig
    integer array Item_A0UX_hd
    real array Item_A0UX_life
    integer array Item_I0F0_Damager
    timer array Item_I0F0_timer
    real array Item_I0F0_life
    timer array Item_I0F1_timer
    boolean array Item_I0F1_bool
    real array Item_I0EX_cd
    real array Item_I0F5_cd
    timer array Item_A0VJ_timer
    integer array Item_A0VJ_atkaction
    integer array Item_A0VL_hd
    timer array Item_A0VL_timer
    timer array Item_I0F4_timer
    integer array Item_I0F4_V
    integer Item_I0F4_id=0
    real array Item_I0E3_A0VO_timed
    integer Item_I0F3_Id=0
    integer Item_I0F9_Id=0
    integer array Item_I0F7_Unit
    timer array Item_I0CH_timer
    integer array Item_I0CH_Attack
    integer array Item_I0CH_Damager
    real array Item_I0CH_life
    integer array Item_I0EZ_Id
    integer array Item_I0F2_mdef
    integer array Item_I0F2_Id
    real array Item_I0F2_cd
    integer array Item_I05U_Attack
    integer array Item_I05U_index
    timer array Item_I05U_timer
    unit Item_I0FJ_unit=null
    timer Item_I0FJ_timer=null
    real array Item_I0FN_cd
    integer array Item_Data_Int_1
    integer array Item_Data_Int_2
    integer array Item_Data_Int_3
    integer array Item_Data_Int_4
    integer array Item_Data_Int_5
    integer array Item_Data_Int_6
    timer array defbuff_tm
    integer array defbuff_abid
    integer array defbuff_bfid
    integer array defbuff_def
    code Item_I00A_Func=null
    code Item_I00C_Func=null
    code Item_I00E_Func=null
    code Item_I05H_Func=null
    code Item_I0E3_Func=null
    code Item_I0E4_Func=null
    code Item_I0DT_Func=null
    code Item_I0DU_Func=null
    code Item_I0DV_Func=null
    code Item_I0DW_Func=null
    code Item_I0DX_Func=null
    code Item_I0DY_Func=null
    code Item_I0DZ_Func=null
    code Item_I0E0_Func=null
    code Item_I0E1_Func=null
    code Item_I0E2_Func=null
    code Item_I0E5_Func=null
    code Item_I0E6_Func=null
    code Item_I0E7_Func=null
    code Item_I0E8_Func=null
    code Item_I0EC_Func=null
    code Item_azhr_Func=null
    code Item_I0F0_Func=null
    code Item_I0F1_Func=null
    code Item_I0EX_Func=null
    code Item_I0F5_Func=null
    code Item_I0EW_Func=null
    code Item_I0F4_Func=null
    code Item_I0EV_Func=null
    code Item_I0F7_Func=null
    code Item_I0FD_Func=null
    code Item_I0CH_Func=null
    code Item_I0EZ_Func=null
    code Item_I0F2_Func=null
    code Item_I0EY_Func=null
    code Item_I05U_Func=null
    code Item_I0FO_Func=null
    code Item_I0FN_Func=null
    code Item_I0FP_Func=null
    timer array Item_A_A0TU_timer
    timer array Item_A_A0TT_timer
    integer array Item_A_A0TT_hd
    real array Item_A_A0TT_hd_life
    boolean av=false
    boolean nv=false
    timer Nx
    unit Bx=null
    constant real Gx=425
    constant real hx=50
    constant real Hx=350
    constant real jx=50
    constant real Jx=.03125*(Gx-hx)/ .75
    constant real kx=.03125*(Hx-jx)/ .75
    constant real Kx=90-bj_RADTODEG*Atan2(kx,Jx)
    constant real Lx=2*bj_PI
    location mx=Location(0,0)
    integer Fo
    boolean array tr
    integer array Zr
    integer array vi
    timer ei=null
    integer xi=0
    unit oi
    rect ri
    real array ii
    real array ai
    sound Ca=null
    sound Da=null
    sound fa=null
    sound Fa=null
    sound ga=null
    sound Ga=null
    sound ha=null
    sound Ha=null
    sound ja=null
    sound Ja=null
    sound ka=null
    sound Ka=null
    sound la=null
    sound La=null
    sound ma=null
    sound Ma=null
    sound pa=null
    sound Pa=null
    sound qa=null
    sound Qa=null
    sound sa=null
    sound Sa=null
    sound Ta=null
    sound ua=null
    sound Ua=null
    sound wa=null
    sound Wa=null
    sound ya=null
    sound Ya=null
    sound Za=null
    sound vn=null
    sound en=null
    sound xn=null
    sound on=null
    sound rn=null
    sound in=null
    sound nn=null
    sound Vn=null
    sound En=null
    sound Xn=null
    sound On=null
    sound Rn=null
    sound In=null
    sound An=null
    sound Nn=null
    sound Bn=null
    sound cn=null
    sound Cn=null
    sound dn=null
    sound Dn=null
    sound fn=null
    sound Fn=null
    sound gn=null
    sound Gn=null
    sound hn=null
    sound Hn=null
    sound jn=null
    sound Jn=null
    sound kn=null
    sound Kn=null
    sound ln=null
    sound Ln=null
    sound mn=null
    sound Mn=null
    sound pn=null
    sound Pn=null
    sound qn=null
    sound Qn=null
    sound sn=null
    sound Sn=null
    sound tn=null
    sound Tn=null
    sound un=null
    sound Un=null
    sound wn=null
    sound Wn=null
    sound yn=null
    sound Yn=null
    trigger zn=null
    trigger Zn=null
    boolean LV=false
    player array P
    string array Game_PlayerName
    integer uV
    unit UV
    timer wV=null
    timer WV=null
    timerdialog yV=null
    boolean array YV
    boolean array zV
    integer ZV=8
    timerdialog vE=null
    boolean eE=true
    boolean xE=false
    boolean oE=false
    boolean rE=false
    boolean iE=false
    integer aE=4
    boolean VE=false
    boolean EE=false
    boolean XE=false
    integer OE=4
    constant real RE=30
    constant real IE=$A
    unit array AE
    destructable NE=null
    timer bE=null
    timerdialog BE=null
    integer cE=R2I(RE/ IE)
    boolean CE=false
    constant real dE=30
    unit array DE
    effect array fE
    lightning array FE
    timerdialog gE
    constant real GE=7200
    trigger hE=CreateTrigger()
    integer HE=3
    timer jE
    timerdialog JE
    constant real kE=30
    constant real KE=30
    integer lE=-1
    trigger LE=null
    timer mE=null
    timer ME=null
    timerdialog pE=null
    integer PE=R2I(kE/ KE)
    integer qE
    constant integer QE=6*32
    integer sE
    integer SE
    group tE
    integer TE
    real uE
    real UE
    integer wE=0
    group WE
    integer array NX
    integer bX=0
    boolean BX=false
    integer CX=0
    trigger DX=CreateTrigger()
    boolean array FX
    integer hX=0
    integer HX=0
    integer array jX
    integer qX
    integer QX
    boolean array XO
    timer OO=CreateTimer()
    boolexpr RO
    item array IO
    integer AO=0
    integer DI
    integer fI
    integer FI
    integer gI
    integer GI
    integer HI
    integer jI
    integer JI
    integer kI
    integer KI
    integer lI
    integer LI
    integer MI
    integer pI
    integer PI
    integer array qI
    integer array QI
    integer SI
    integer array TI
    real array uI
    real array UI
    real array wI
    real array WI
    integer yI
    integer array NA
    string array bA
    string array BA
    string array CA
    integer array dA
    integer array DA
    integer array FA
    integer array gA
    boolean array GA
    integer array hA
    integer array HA
    integer jA=0
    integer array PA
    integer array qA
    timer array QA
    real array SA
    integer array TA
    timer array uA
    unit array DN
    unit array fN
    lightning array FN
    integer array gN
    real array GN
    real array hN
    real array HN
    real array jN
    real array JN
    real array kN
    real array KN
    real array lN
    real array LightningEffect_AZ
    real array LightningEffect_BZ
    integer LN
    integer array gB
    integer array GB
    integer array hB
    real array HB
    group jB=CreateGroup()
    boolean array JB
    integer array kB
    integer array KB
    integer lB=0
    timer array GC
    timer array hC
    timer array HC
    timer array jC
    timer array JC
    timer array kC
    timer array KC
    timer array LC
    timer array MC
    integer array pC
    integer array PC
    integer array qC
    timer array QC
    timer array sC
    timer array SC
    timer array TC
    integer array uC
    integer array UC
    timer array wC
    integer array WC
    timer array pd
    timer array Pd
    integer array qd
    unit IF=null
    integer array AF
    timer array NF
    boolean array bF
    integer array BF
    integer cF=0
    integer array CF
    integer array dF
    integer array DF
    integer array fF
    timer array Dg
    boolean array fg
    boolean array Fg
    timer array gg
    real array Gg
    integer hg
    boolean array Hg
    integer array jg
    boolean Jg=true
    integer array kg
    texttag array Kg
    integer array lg
    integer array Lg
    integer array mg
    integer array Mg
    boolean array pg
    integer array Pg
    integer array qg
    integer Qg=0
    item Sg=null
    integer array ug
    integer array Ug
    integer wg
    integer Wg
    integer array yg
    integer array Yg
    boolean array zg
    integer array Zg
    integer array vG
    integer eG=0
    integer array xG
    integer array oG
    integer array rG
    integer array iG
    integer array aG
    boolean array VG
    integer array EG
    integer array XG
    integer OG=0
    integer array RG
    integer array IG
    integer AG
    integer array NG
    integer array bG
    boolean array BG
    integer array CG
    constant real dG=$80
    boolean array DG
    integer array fG
    integer array FG
    integer gG=0
    constant real GG=9
    constant real hG=3
    constant real HG=5
    integer array jG
    integer array JG
    integer array kG
    integer array KG
    integer lG
    boolean array EquipModel_wings_Off
    integer Eh
    integer array sk
    integer array Sk
    integer array tk
    boolean array Tk
    integer array uk
    real array Uk
    real array wk
    integer Wk
    group Zk
    integer array vK
    integer array eK
    integer array xK
    timer array oK
    boolean array Is_pvp
    timer iK=null
    integer aK=0
    timer array nK
    rect array VK
    integer array EK
    integer array XK
    integer OK=0
    integer RK=0
    integer IK=0
    boolean AK=true
    boolean NK=true
    real bK=0
    real BK=0
    real cK=0
    real CK=0
    real dK=0
    real DK=0
    boolean Boss_hmpr_IsOpen=false
    boolean fK=true
    integer FK
    integer gK=0
    integer GK
    integer hK=0
    integer HK
    integer jK=0
    unit JK=null
    timer kK=null
    integer KK=0
    integer lK=0
    integer LK=0
    integer mK=0
    integer array MK
    integer pK=0
    integer PK=3
    integer qK=0
    integer QK
    integer sK
    integer SK
    integer tK
    unit TK
    timer uK
    integer UK
    integer wK
    real WK
    rect yK=null
    group YK=null
    integer zK=0
    integer ZK
    group vl
    integer el
    real xl
    integer array Ql
    timer array sl
    unit Sl=null
    integer tl=0
    boolean Tl=false
    boolean ul=false
    integer Ul=0
    integer wl=0
    real Wl=0
    integer array yl
    unit Yl=null
    real Yl_MpRegen
    integer array zl
    integer Zl
    integer vL
    integer eL
    integer xL
    real oL
    constant real rL=$6784
    constant real aL=$6806
    timer array VL
    integer array EL
    integer XL=0
    unit OL=null
    unit RL=null
    integer IL=0
    integer AL=0
    boolean NL=false
    boolean bL=false
    integer BL=2
    integer CL=0
    integer dL=0
    integer DL=0
    integer fL=0
    constant real FL=$62F9
    constant real gL=$2CA1
    constant real GL=750
    real hL=10.
    integer array HL
    integer array jL
    timer array JL
    integer array kL
    timer array KL
    integer lL=0
    unit LL=null
    group mL=null
    integer ML=1
    integer pL=0
    integer PL=0
    integer qL=0
    integer QL=0
    integer sL=3
    real SL=0
    destructable array tL
    rect array TL
    integer array uL
    constant integer UL=$FA0
    integer array wL
    integer array WL
    integer array yL
    integer array YL
    integer array zL
    real array ZL
    real array vm
    real array em
    real array xm
    constant real om=275
    boolean array rm
    integer array im
    integer array am
    integer nm=0
    unit Vm=null
    integer Em=0
    unit Xm=null
    integer array Om
    integer array Rm
    real array Im
    real array Am
    integer Nm
    integer array bm
    integer array Bm
    integer array cm
    group array Cm
    integer array Dm
    real array fm
    real array Fm
    real array gm
    real array Gm
    real array hm
    integer Hm
    integer jm
    integer Jm
    integer array km
    integer array Km
    integer array lm
    integer Lm
    integer array mm
    integer array Mm
    integer array pm
    integer array Pm
    real array qm
    group Qm=null
    constant real sm=900
    boolean array Sm
    integer array tm
    integer array Tm
    integer um=0
    integer Um
    integer wm
    integer array Wm
    integer array ym
    integer array Ym
    integer array zm
    integer array Zm
    real array vM
    constant real eM=$3E8
    integer xM
    integer array oM
    integer array iM
    integer array aM
    integer array nM
    real array VM
    real array EM
    integer XM
    integer array OM
    integer array RM
    integer IM
    integer AM
    integer NM
    real bM
    real BM
    group cM
    integer CM
    integer dM
    integer DM
    integer array fM
    integer FM
    integer gM
    group GM=null
    real hM=0
    real HM=0
    integer array jM
    integer array JM
    integer array kM
    group KM=CreateGroup()
    constant integer lM=R2I(32*10.)
    integer LM
    timer array mM
    integer array MM
    integer array pM
    integer array PM
    integer array qM
    integer array QM
    integer sM
    integer array SM
    boolean array TM
    integer array uM
    integer array UM
    integer wM=0
    integer WM
    integer yM
    unit YM=null
    integer zM=0
    integer array ZM
    integer array vp
    real array ep
    real array xp
    real array op
    real array rp
    real array ip
    real array ap
    real array np
    real array Vp
    real array Ep
    integer Xp
    integer Op=0
    boolean array Rp
    integer array Ip
    real array Ap
    integer Np=0
    integer bp=0
    boolean array Bp
    integer array cp
    integer array Cp
    integer dp=0
    integer array Dp
    integer array Fp
    group array gp
    integer array Gp
    integer array Hp
    real array jp
    integer Jp
    integer oP
    integer iP
    boolean array aP
    integer nP
    integer VP
    group EP
    integer XP
    real OP
    real RP
    real IP
    real AP
    real NP
    integer bP
    integer array BP
    integer cP=0
    integer CP=0
    real dP=0
    real DP=0
    real fP=0
    unit FP=null
    integer gP=0
    timer GP=null
    integer hP=0
    integer HP=0
    integer array jP
    integer array JP
    integer kP
    integer KP
    integer lP
    integer LP
    integer MP
    real pP
    real PP
    real qP
    real QP
    real sP
    real SP
    real tP
    real TP
    real uP
    integer array UP
    integer array wP
    integer array WP
    integer array yP
    boolean YP=false
    integer zP
    integer ZP
    integer vq
    integer eq
    integer xq
    integer oq
    lightning rq
    integer iq
    integer aq
    integer nq
    integer Vq
    integer array Eq
    boolean array Xq
    integer array Oq
    real array Rq
    real array Iq
    integer array Aq
    integer array Nq
    group array bq
    integer array Bq
    real array cq
    real array Cq
    integer dq
    unit Dq
    group fq
    integer Fq
    real gq
    real Gq
    real hq
    real Hq
    unit jq
    integer Jq
    integer kq
    real Kq
    real lq
    integer Lq
    integer mq
    integer Mq
    integer array pq
    real Pq
    real qq
    integer Qq
    integer array sq
    boolean array Sq
    integer array tq
    real array Tq
    real array uq
    integer Uq
    integer wq
    integer Wq
    real yq
    real Yq
    real zq
    real Zq
    integer vQ
    integer eQ
    integer xQ
    integer array oQ
    integer array rQ
    integer iQ
    boolean array aQ
    integer nQ
    integer VQ
    integer array EQ
    timer array XQ
    integer array OQ
    real array RQ
    real array IQ
    integer array AQ
    integer array NQ
    integer array bQ
    boolean array BQ
    integer array cQ
    integer array CQ
    integer dQ=0
    unit array DQ
    integer array fQ
    integer FQ
    integer gQ
    integer array GQ
    integer hQ
    integer HQ
    timer array jQ
    integer JQ
    integer kQ
    real KQ=0
    constant real lQ=4
    unit LQ=null
    rect mQ=null
    integer MQ=0
    boolean pQ=false
    constant real PQ=2
    constant real qQ=2
    constant real QQ=$A
    integer array sQ
    integer SQ=0
    integer tQ=0
    boolean array TQ
    integer array uQ
    integer array UQ
    integer wQ=0
    constant real WQ=$3D090
    constant real yQ=25
    constant real YQ=25
    integer zQ
    integer ZQ
    integer array vs
    integer array es
    integer array xs
    integer array os
    integer array rs
    boolean array as
    integer array Vs
    integer array Es
    integer Xs=0
    boolean Os=false
    constant real Rs=2
    boolean array Is
    constant real As=$F
    timer array Ns
    integer array bs
    integer array Bs
    integer array Cs
    integer array ds
    constant real Ds=400
    constant real fs=105
    constant real Fs=5
    constant real gs=400
    constant real Gs=75
    integer array hs
    integer array Hs
    integer array js
    boolean array Js
    integer array Ks
    integer array Ls
    integer ms=0
    integer Ms
    integer ps
    constant real Ps=2
    constant real qs=25
    constant real Qs=75
    integer array Ss
    real array Ts
    constant real us=25
    constant real Us=40
    constant real ws=3
    constant real Ws=2
    integer array ys
    integer array Ys
    constant integer zs=R2I(32*6.)
    boolean array Zs
    integer array vS
    integer array eS
    integer xS=0
    constant real oS=$F
    timer rS=null
    integer aS=0
    integer VS
    integer ES
    constant real XS=800
    constant integer OS=48/ 4
    integer RS=0
    integer IS=0
    constant integer AS=$C
    constant real NS=$80
    unit bS=null
    integer BS=0
    integer CS=0
    item dS=null
    unit DS=null
    boolean fS=false
    integer FS=0
    trigger gS=null
    integer GS=0
    real hS=0
    real HS=0
    constant real jS=600
    integer JS=0
    integer array kS
    boolean array KS
    integer array LS
    integer array MS
    integer pS=0
    timer array PS
    boolean array qS
    timer array QS
    integer array sS
    integer array SS
    real array tS
    integer TS
    integer uS
    constant real US=$5DC
    constant real wS=$F
    constant real WS=25
    integer array yS
    constant real YS=$6A4
    constant real ZS=$FA
    integer vt
    integer et
    constant real xt=5
    integer ot=0
    integer rt=0
    real it=8
    integer array at
    boolean array nt
    integer array Vt
    integer Et
    constant real Xt=$A
    integer Ot=0
    integer Rt=0
    boolean It=false
    integer array At
    constant real Nt=500
    integer bt
    integer Bt
    integer Kt=0
    integer array lt
    constant real Lt=60
    integer array mt
    integer array Mt
    lightning array pt
    constant real Pt=-4900.
    real array qt
    real array Qt
    boolean array St
    integer array tt
    integer array Tt
    integer ut=0
    integer array iT
    integer array VT
    boolean array ET
    integer array XT
    integer array OT
    integer RT=0
    real array IT
    integer array AT
    integer array NT
    real array bT
    integer BT
    integer kT
    integer KT
    real array lT
    integer LT
    integer mT
    real array MT
    real array PT
    real array qT
    boolean array QT
    integer array sT
    integer array ST
    integer tT=0
    boolean array uy
    boolean array Uy
    integer array wy
    real array Wy
    real array yy
    real array Yy
    real array zy
    real array Zy
    boolean array vY
    integer array xY
    integer array oY
    integer rY=0
    integer array Evv
    integer array Eev
    integer Exv=0
    integer array Eov
    real array Erv
    real array Eiv
    trigger EBv
    trigger Edv
    trigger EDv
    trigger EWv
    trigger Eyv
    trigger Ezv
    trigger EZv
    trigger E_v
    trigger E6v
    trigger Xav
    trigger XVv
    trigger XEv
    trigger XXv
    trigger XGv
    trigger Xhv
    trigger XHv
    trigger Xjv
    trigger XKv
    trigger Xmv
    trigger XMv
    trigger XQv
    trigger Onv
    trigger OAv
    trigger OBv
    trigger Ocv
    trigger Odv
    trigger ODv
    trigger Ofv
    trigger Ogv
    trigger OGv
    trigger Ohv
    trigger OHv
    trigger Ojv
    trigger OJv
    trigger Okv
    trigger OKv
    trigger Olv
    trigger OLv
    trigger Omv
    trigger OMv
    trigger Opv
    trigger OPv
    trigger OSv
    trigger Otv
    trigger OTv
    trigger Ouv
    trigger OUv
    trigger Owv
    trigger OWv
    trigger Oyv
    trigger OYv
    trigger Ozv
    trigger OZv
    trigger O_v
    trigger O0v
    trigger O1v
    trigger O2v
    trigger O3v
    trigger O4v
    trigger O5v
    trigger O6v
    trigger O7v
    trigger O8v
    trigger Rvv
    trigger Rev
    trigger Rov
    trigger Rrv
    trigger Riv
    trigger Rav
    trigger Rnv
    trigger RVv
    trigger REv
    trigger RXv
    trigger ROv
    trigger RRv
    trigger RIv
    trigger RAv
    trigger RNv
    trigger Rbv
    trigger RBv
    trigger Rcv
    trigger RCv
    trigger Rdv
    trigger RDv
    trigger Rfv
    trigger RJv
    trigger Rkv
    trigger RKv
    trigger Rlv
    trigger RLv
    trigger Rpv
    trigger RPv
    trigger Rqv
    trigger RQv
    trigger Rsv
    trigger RSv
    trigger Rtv
    trigger IWv
    trigger ADv
    trigger Afv
    trigger AFv
    trigger Agv
    trigger AGv
    integer Ahv
    integer AHv
    integer Ajv
    integer AJv
    real Akv
    real AKv
    real Alv
    real ALv
    real Amv
    real AMv
    real Apv
    real APv
    real Aqv
    string AQv
    unit Asv
    unit ASv
    code Atv
    boolean ATv
    attacktype Auv
    damagetype AUv
    player Awv
    integer AWv
    integer Ayv
    unit AYv
    group Azv
    boolean AZv
    player A_v
    real A0v
    real A3v=.0
    real A4v=.0
    boolexpr A7v=null
    location Boss_Point=Location(0,0)
    real array Boss_x
    real array Boss_y
    real array Boss_z
    integer Boss_Damage_Hpal
    integer Boss_Index_Hpal=-1
    integer Boss_Index2_Hpal=-1
    trigger Boss_DEATH_trig_Hpal=null
    group Boss_Buff_1_Group_Hpal
    group Boss_Buff_2_Group_Hpal
    group Boss_Buff_3_Group_Hpal
    timer array Boss_Buff_1_Timer_Hpal
    triggercondition Boss_DEATH_TC_Hpal
    integer Boss_Index_RHZX=-1
    integer Boss_Damage_RHZX=0
    unit Boss_Unit_2_RHZX=null
    timer Boss_Ability01_id_RHZX=null
    timer Boss_Ability01_bufftimed_RHZX=null
    integer array Boss_Ability01_bufflv_RHZX
    timer array Boss_buff_shaoshang_RHZX
    triggercondition Boss_DEATH_TC_RHZX
    integer Boss_Ability02_lv_RHZX=0
    integer array Boss_Ability02_lv2_RHZX
    group Boss_Ability02_group_RHZX=null
    timer array Boss_buff_shaoshang2_RHZX
    integer Boss_Ability05_cd_RHZX=0
    unit Boss_Unit_2_HM=null
    integer Boss_Index_HM=-2
    integer Boss_Index2_HM=0
    real Boss_Ability_0_HM=0
    group Boss_Ability_0_group_HM=null
    integer array Boss_Ability_0_buff_HM
    triggercondition Boss_DEATH_TC_HM
    integer Boss_Ability_4_index_HM=4
    integer Boss_Ability_4_timed_HM=0
    texttag Boss_Ability_4_texttag_HM
    integer Boss_Ability_5_index_HM=0
    group Boss_Ability_5_group_HM=null
    timer array Boss_Ability_5_timer_HM
    integer Boss_Index_n03F=-2
    integer Boss_Index2_n03F=0
    integer Boss_Ability_cd_01_n03F=0
    integer Boss_Ability_cd_02_n03F=0
    destructable array Boss_destruct_n03F
    trigger Boss_EnterTrig_n03F=null
    group Boss_EnterGroup_n03F=null
    group Boss_GameFor_n03F=null
    timer Quest_I064_Timer
    integer Quest_I064_index=0
    unit array Quest_I064_unit
    boolean Quest_I064_On=true
    integer Boss_root_n03G=0
    integer Boss_Index_n03G=-2
    texttag Boss_texttag_n03G=null
    real Boss_Ability_CD1_n03G=0
    triggercondition Boss_PICKUP_TC_n03G
    integer Boss_Index_h01K=-3
    integer Boss_root_h01K=0
    unit Boss_Unit_h01K=null
    code Boss_func_h01K=null
    timer Boss_tm_h01K=null
    integer Boss_Ability_data_1_h01K=0
    integer Boss_Ability_cd_2_h01K=0
    integer Boss_Ability_cd_4_h01K=0
    timer Boss_Ability_tm_4_h01K=null
    integer Boss_Ability_cd_5_h01K=0
    integer Boss_Ability999_cd_h01K=0
    integer Boss_exp_h01K=0
    unit Boss_Unit_2_h01K=null
    group Boss_Buff_2_1_group_h01K=null
    unit Boss_Unit_3_h01K=null
    unit Boss_Unit_4_h01K=null
    real Boss_Unit_4_ability1_cd_h01K=0
    integer array Boss_Buff_4_h01K
    timer array Boss_Buff_4_2_h01K
    integer array Boss_SetUnitUseMove_V_h01K
    integer array Boss_Buff7_death_h01K
    timer array Boss_Buff7_timer_h01K
    group Boss_Buff7_group_h01K
    integer Boss_Ability_no_8_h01K=0
    region Boss_Region_h01K
    real array Boss_ability4_cd_n03N
    integer Boss_Spell_i=0
    integer array Boss_Spell_v
    boolean array Boss_Spell_bool
    integer array Boss_Spell_data1
    integer array Boss_Spell_data2
    integer array Boss_Spell_data3
    integer array Boss_Spell_data4
    integer array Boss_Spell_data5
    integer array Boss_Spell_data6
    unit array Boss_Spell_unit1
    unit array Boss_Spell_unit2
    group array Boss_Spell_group1
    group array Boss_Spell_group2
    timer array Boss_Spell_timer
    effect array Boss_Spell_eff
    lightning array Boss_Spell_lig
    real array Boss_Spell_V
    real array Boss_Spell_X
    real array Boss_Spell_Y
    real array Boss_Spell_Z
    timer array Globals_Shield_Timer
    integer array Globals_Shield_Trig
    integer array Globals_Shield_af
    integer array Globals_Shield_bf
    real array Globals_Shield_Life
    integer array gO_2
    integer array gO_3
    unit array gO
    effect array GO
    integer array hO
    real array HO
    real array jO
    real array JO
    integer kO
    integer array Control_abid
    integer array Control_bfid
    timer array Control_Timer
    boolean array Control_use
    integer Control_priority
    integer array Item_Data_Id
    boolean array Item_I0E5_off
    constant boolean LIBRARY_Boss=true
    constant boolean LIBRARY_BossDTS=true
    unit BossDTS___Unit=null
    integer BossDTS___Index=-1
    real array BossDTS___Enter_timer
    real array BossDTS___Enter_X
    real array BossDTS___Enter_Y
    constant boolean LIBRARY_BossHDLZ=true
    unit BossHDLZ___Unit=null
    unit BossHDLZ___Unit_A=null
    unit BossHDLZ___Unit_B=null
    unit BossHDLZ___Unit_C=null
    integer BossHDLZ___Start_Index=-1
    integer array BossHDLZ___Order
    timer array BossHDLZ___Buff1_timer
    integer array BossHDLZ___Buff1_deathid
    real array BossHDLZ___Buff2_cd
    real array BossHDLZ___HOJU_X
    real array BossHDLZ___HOJU_Y
    integer array BossHDLZ___Death_Trig
    integer array BossHDLZ___Remove_Trig
    trigger BossHDLZ___Open_Trig=null
    group BossHDLZ___Open_Group=null
    timer BossHDLZ___Open_Timer=null
    region BossHDLZ___Open_Region=null
    integer BossHDLZ___Open_Count=0
    integer array BossSkill_A0ZO_Data
    integer array Boss_uobs_Data
    integer array Boss_uobs_Index
    constant boolean LIBRARY_Bossn035=true
    unit Boss_n035_Unit
    unit array Boss_ufro_Unit
    integer array Boss_ufro_Pause
    effect array Boss_ufro_Effect
    timer Boss_n035_Buff002_Timer=null
    boolean Boss_n035_Open=true
    timer array Boss_n035_BuffA0ZU_Timer
    integer array Boss_n035_BuffA0ZU_Count
    unit array Boss_n035_BuffA0ZU_Source
    integer Boss_n035_Ability003_Number=3
    integer Boss_n035_Ability005_Number=8
    integer Boss_n035_Ability005_Time=0
    timer Boss_n035_Ability006_Timer
    real Boss_n035_Ability006_Ange=0
    integer Boss_n035_Ability006_Open=0
    integer Boss_n035_Ability006_Index=0
    integer array Boss_n035_Ability006_Vessel
    constant boolean LIBRARY_EquipTrigger=true
    integer Equip_trigSlot_A
    integer Equip_trigSlot_B
    integer Equip_trigSlot_C
    integer Equip_trigSlot_D
    integer Equip_trigSlot_E
    integer Equip_trigSlot_F
    integer array Equip_trigSlot_O
    integer array Bloodthirsty_num
    boolean array Corruptor_series_Off
    real array Item_I0BS_cd
    boolean array Aspects_of_a_wind_off
    integer array HolyRelic_series_atktrig
    integer array HolyRelic_series_eff
    timer array HolyRelic_series_timer
    integer array HolyRelic_series_lv
    real array HolyRelic_series_MagicDamage
    real array HolyRelic_series_HpRegen
    boolean array Disaster_and_death_off
    boolean array Equip_bzbf_off
    integer array Equip_I0C6_Buff
    boolean array Equip_I0AN_off
    integer array Equip_I067_hit_num
    timer array Equip_I097_timer
    real array Equip_I0BR_cd
    boolean array Equip_I0C8_off
    integer array Equip_I0CU_Timed
    integer array Equip_I0CU_num
    integer array Equip_I0CU_Atkunit
    integer array Equip_kysn_up
    boolean array Equip_sbok_off
    timer array Equip_sehr_timer
    integer array Equip_sehr_buff_num
    boolean array Equip_skrt_off
    boolean array Equip_k3m2_off
    integer array Equip_k3m2_num
    boolean array Equip_rde3_off
    integer array Equip_I0DI_Shield
    real array Equip_I0DI_Shield_life
    integer array Equip_afac_atk
    boolean array Equip_afac_off
    boolean array Equip_cnhn_off
    integer array Equip_cnhn_atk
    integer array Equip_cnhn_count
    timer array Equip_gobm_timer
    integer array Equip_gobm_Source
    integer array Equip_gobm_duration
    integer array Equip_gobm_bufflv
    boolean array Equip_k3m3_off
    timer array Equip_srtl_timer
    integer array Equip_srtl_count
    timer array Equip_I0EB_timer
    integer array Equip_I0EB_count
    timer array Equip_stwa_timer
    boolean array Equip_rag1_off
    timer array Equip_I088_buff
    boolean array Equip_lgdh_off
    real array Equip_I0CP_cd
    real array Equip_esaz_cd
    integer array Equip_jpnt_def
    real array Equip_jpnt_cd
    integer array Equip_I0B5_count
    timer array Equip_mort_timer
    timer array Equip_mcou_Timer
    integer array Equip_mcou_HP
    timer array Active_A0HB_Timer
    integer array Active_A0HB_buff
    real array Active_A0HB_life
    integer array Active_A0JN_Counter1
    integer array Active_A0JN_Counter2
    integer array Corruptor_Active_Buff
    integer array Active_A0JX_Adef
    timer array Active_A0JX_Timer
    boolean array Active_A0JX_App_matk
    boolean array Active_A0JX_App_def
    boolean array Active_A0JX_App_regen
    integer array Active_A0JX_count
    integer array Active_A0JX_duration
    code Active_A0JX_Loop_Func=null
    integer array Active_A06K_Type
    integer array Active_A0D4_Type
    integer array Active_A0D4_AtkUnit
    integer array Active_A0D4_Target
    integer array Active_A0D4_Pumpkin
    integer Active_A0D4_Func
    timer array Active_A0HI_Timer
    integer array Active_A0HI_AtkTrig
    integer array Active_A0HQ_AtkTrig
    timer array Active_A0MB_Timer
    boolean array Active_A0MB_Bool
    integer array Active_A0MB_HP
    timer array Active_A0DT_Buff_timer
    integer Active_A0MJ_Func
    integer array Active_A0CF_DagTrig
    timer array Active_A0CF_Timer
    integer array Active_A0CF_Agi
    timer array Active_A0RE_Timer
    integer array Active_A0RE_Mdef
    integer array Active_A0RE_Lv
    timer array Active_A0PJ_Timer
    real array Active_A0PJ_Damage
    boolean array Active_A0PJ_Bool
    timer array Active_A0P5_Timer
    integer array Active_A0P5_Adef
    integer array Active_A0P5_StatUp
    timer array Active_A0P6_Timer
    integer array Active_A0P6_Adef
    integer array Active_A0P6_StatUp
    timer array Active_A0QY_Buff_timer
    integer array Active_A0QY_Buff_mdef
    integer Active_A0QY_Func
    timer array Active_A0RA_Timer
    integer array Active_A0RA_Atkuint
    integer array Active_A0RA_Mdef
    boolean array Active_A0RA_IsCure
    integer array Active_A0RA_Count
    integer array Active_A0JP_Buff_mdef
    timer array Active_A0JP_Buff_timer
    integer array Active_A0JP_Buff_lv
    integer Active_A0JP_Func
    integer Active_A0AS_TimerFunc
    integer array Corruptor_type
    timer array Equip_I0D9_Timer
    integer array Equip_I0D9_Int
    integer array Equip_I0D9_CD
    constant boolean LIBRARY_GameInformation=true
    integer TV
    integer GameInformation___IC=0
    integer GameInformation___AC=0
    integer GameInformation___NC=0
    integer GameInformation___bC=0
    constant boolean LIBRARY_Hero=true
    integer array HeroSkills_A08U_Adef
    integer array HeroSkills_A08U_Lv
    integer array HeroSkills_A08U_Str
    integer array HeroSkills_A08U_Last
    integer array HeroSkills_A08U_Next
    boolean array HeroSkills_A08U_App
    integer HeroSkills_A08U_Func
    integer array HeroSkills_A00B_Lv
    integer array HeroSkills_A00B_Mdef
    timer array HeroSkills_A00B_Timer
    integer array HeroSkills_A08W_Buff_Mdef
    timer array HeroSkills_A08W_Buff_Timer
    integer array HeroSkills_A08W_Trig
    texttag array HeroSkills_A08W_TextTag
    integer array HeroSkills_A08W_Duration
    real array HeroSkills_A08W_Energy
    real array HeroSkills_A08W_DefRatio
    real array HeroSkills_A08W_MaxEnergy
    real array HeroSkills_A08W_TextTagSize
    boolean array HeroSkills_A08W_Open
    integer array HeroSkills_A08W_Last
    integer array HeroSkills_A08W_Next
    integer HeroSkills_A08W_Func=0
    timer array HeroSkills_A00N_Timer
    integer array HeroSkills_A00N_Adef
    integer array HeroSkills_A00N_Count
    real array HeroSkills_A00N_Duration
    real array HeroSkills_A00N_Damage
    integer array HeroSkills_A00S_Buff_Adef
    timer array HeroSkills_A00S_Buff_Timer
    timer array HeroSkills_A00S_Timer
    integer array HeroSkills_A00S_Buff_Effect
    group array HeroSkills_A00S_Buff_Group
    integer array HeroSkills_A00S_Buff_Number
    real array HeroSkills_A00S_Buff_Angle
    real array HeroSkills_A00S_Buff_VectorX
    real array HeroSkills_A00S_Buff_VectorY
    real array HeroSkills_A00S_Buff_Damage
    boolean array Hero_QuickDraw_On
    boolean array Hero_QuickDraw_Crit
    integer array Hero_H001_SkillsSet_Type
    timer array Hero_H001_SkillsSet_Timer
    real array HeroSkills_A005_TargetX
    real array HeroSkills_A005_TargetY
    timer array HeroSkills_A0BM_Buff_Timer
    integer array HeroSkills_A0BM_Buff_Armor
    integer HeroSkills_A0BM_Func
    integer array HeroSkills_A0BL_Last
    integer array HeroSkills_A0BL_Next
    integer array HeroSkills_A0BL_Vessel
    integer array HeroSkills_A0BL_Effect
    integer array HeroSkills_A0BL_Mdef
    integer array HeroSkills_A0BL_Duration
    integer array HeroSkills_A0BL_Count
    real array HeroSkills_A0BL_Damage
    integer HeroSkills_A0BL_Func
    integer array HeroSkills_A0BN_Number
    integer array HeroSkills_A0BN_MaxNumber
    integer array HeroSkills_A0C1_AtkUnit
    integer array HeroSkills_A0C1_Target
    integer array HeroSkills_A0C1_Sword
    integer array HeroSkills_A0C1_Effect
    integer array HeroSkills_A0C1_Const
    integer array HeroSkills_A0C1_Time
    timer array HeroSkills_A0C1_BuffTimer
    integer array HeroSkills_A0C1_BuffLv
    integer HeroSkills_A0C1_Func
    integer array HeroSkills_A0C2_Buff_Mdef
    timer array HeroSkills_A0C2_Buff_TImer
    integer HeroSkills_A0C2_Func
    integer array HeroSkills_Aspb_AuraAbility1_HaloOwner
    integer array HeroSkills_Aspb_AuraAbility2_HaloOwner
    integer array HeroSkills_Aspb_AuraAbility3_HaloOwner
    integer array HeroSkills_Aspb_AuraAbility1_Damage
    integer array HeroSkills_Aspb_AuraAbility2_Def
    real array HeroSkills_Aspb_AuraAbility3_HpRegen
    timer array HeroSkills_Aspb_AuraAbility1_timer
    timer array HeroSkills_Aspb_AuraAbility2_timer
    timer array HeroSkills_Aspb_AuraAbility3_timer
    timer array HeroSkills_Aspb_AuraAbility4_timer
    timer array HeroSkills_Aspb_Type4_Timer
    real array HeroSkills_Aspb_Type3_cd
    integer array HeroSkills_Aspb_Type
    integer array HeroSkills_Aspb_Level
    integer HeroSkills_Aspb_List
    integer array HeroSkills_A02M_DeBuff_Trig
    timer array HeroSkills_A02M_DeBuff_Timer
    boolean HeroSkills_A02M_DamageNotA006=true
    integer array HeroSkills_Absk_AtkTrig
    timer array HeroSkills_Absk_Timer
    integer array HeroSkills_A09M_Type2_Adef
    timer array HeroSkills_A09M_Type1_Timer
    timer array HeroSkills_A09M_Type2_Timer
    timer array HeroSkills_A09M_Type4_Timer
    integer array HeroSkills_A006_Vessel
    integer array HeroSkills_A006_Adef
    integer array HeroSkills_A006_Duration
    real array HeroSkills_A006_Damage
    integer array Hero_Skills_Invisible_Adef
    boolean array Hero_Skills_Invisible_activate
    integer array Hero_Skills_Invisible_Down
    boolean array Hero_Skills_Invisible_Use
    integer array Hero_Skills_Invisible_Next
    integer array Hero_Skills_Invisible_Last
    integer Hero_Skills_Invisible_Func=0
    timer array Hero_Skills_A05L_BuffTimer
    integer array Hero_Skills_A05L_BuffLv
    timer array HeroSkills_A05N_Buff_Timer
    integer array HeroSkills_A05N_Buff_PDG
    integer array HeroSkills_A05N_Buff_MDG
    integer array HeroSkills_A05N_AtkUnit
    integer array HeroSkills_A05N_Target
    integer array HeroSkills_A05N_FB
    boolean array HeroSkills_A05N_IsRun
    integer array HeroSkills_A05N_Duration
    integer array HeroSkills_A05N_Decay
    real array HeroSkills_A05N_Damage
    integer HeroSkills_A05N_Func
    integer array HeroSkills_A05K_AtkUnit
    integer array HeroSkills_A05K_Target
    integer array HeroSkills_A05K_Count
    real array HeroSkills_A05K_Damage
    integer HeroSkills_A05K_Func
    real array SmokeBomb_Duration
    integer array HeroSkills_A05V_Which
    integer array HeroSkills_A05V_Time
    real array HeroSkills_A05V_Damage
    boolean array HeroSkills_A05V_Use
    integer array HeroSkills_A05V_Last
    integer array HeroSkills_A05V_Next
    integer HeroSkills_A05V_Func=0
    boolean array HeroSkills_ShadowStorm_Use
    integer array HeroSkills_ShadowStorm_Last
    integer array HeroSkills_ShadowStorm_Next
    integer array HeroSkills_A0G6_list
    integer HeroSkills_ShadowStorm_Func=0
    integer array HeroSkills_A06G_Which
    integer array HeroSkills_A06G_HY
    integer array HeroSkills_A06G_Effect
    integer array HeroSkills_A06G_Vessel
    group array HeroSkills_A06G_Group
    integer array HeroSkills_A06G_Speed
    real array HeroSkills_A06G_Damage
    real array HeroSkills_A06G_AngX
    real array HeroSkills_A06G_AngY
    real array HeroSkills_A06G_Angle
    real array HeroSkills_A06G_VectorX
    real array HeroSkills_A06G_VectorY
    constant real HeroSkills_A06G_BasedHighly=100
    constant real HeroSkills_A06G_Radii=$96
    integer HeroSkills_A06G_Func
    integer array HeroSkills_A01M_BuffSource
    integer array HeroSkills_A01M_BuffAmdef
    integer array HeroSkills_A01M_BuffDuration
    timer array HeroSkills_A01L_Timer
    integer array HeroSkills_A01L_Stat
    real array HeroSkills_A092_cd
    unit array HeroSkills_A02F_Unit
    timer array SummonedUnitSkills_A048_Timer
    boolean array SummonedUnitSkills_A082_Bool
    integer array HeroSkills_A002_Vessel
    timer array HeroSkills_A002_Timer
    unit array HeroSkills_A002_SoulUnit1
    unit array HeroSkills_A002_SoulUnit2
    unit array HeroSkills_A002_SoulUnit3
    integer array HeroSkills_A002_Number
    integer array HeroSkills_A002_Cycle
    integer array HeroSkills_A002_Number2
    boolean array HeroSkills_A002_Use
    integer array HeroSkills_A002_Last
    integer array HeroSkills_A002_Next
    integer HeroSkills_A002_Func=0
    integer array HeroSkills_A00O_Target
    integer array HeroSkills_A00O_Duration
    boolean array HeroSkills_A00O_Use
    integer array HeroSkills_A00O_Last
    integer array HeroSkills_A00O_Next
    integer HeroSkills_A00O_Func=0
    integer array HeroSkills_A01U_Mdef
    timer array HeroSkills_A01U_Timer
    integer array HeroSkills_A01U_Duration
    real array HeroSkills_A01U_MDG
    real array HeroSkills_A01U_Damage
    unit array HeroSkills_A0LE_Summon
    timer array Summon_h019_BuffA0LG_Timer
    integer array Summon_h019_BuffA0LG_Lv
    integer array SummonSkills_A0LK_Master
    integer array SummonSkills_A0LK_EffA
    integer array SummonSkills_A0LK_EffB
    lightning array SummonSkills_A0LK_Lig
    integer array SummonSkills_A0LK_Count
    integer array SummonSkills_A0LK_Time
    boolean array SummonSkills_A0LK_Use
    integer array SummonSkills_A0LK_Last
    integer array SummonSkills_A0LK_Next
    integer SummonSkills_A0LK_Func=0
    integer array HeroSkills_A00U_Buff_Mdef
    timer array HeroSkills_A00U_Buff_Timer
    integer HeroSkills_A04Q_Func
    integer Hero_H009_LastSummoningUnit=0
    integer array HeroSkills_A00T_Model
    timer array HeroSkills_A00T_Timer
    integer array HeroSkills_A01R_Model
    boolean array HeroSkills_A01R_Bool
    unit array HeroSkills_A01R_SummonUnit
    timer array Summon_nlv1_Buff_Timer
    integer array Summon_nlv1_Buff_Lv
    unit array HeroSkills_A02O_SummonUnit
    boolean array HeroSkills_A02O_Bool
    real array HeroSkills_A02O_SpellX
    real array HeroSkills_A02O_SpellY
    timer array SummonSkills_Ahea_Buff_Timer
    real array SummonSkills_Ahea_Buff_HpRegen
    unit array HeroSkills_A03I_SummonUnit
    boolean array HeroSkills_A03I_Bool
    real array HeroSkills_A03I_SpellX
    real array HeroSkills_A03I_SpellY
    integer array Summon_hwt2_onAttack_Count
    integer array Summon_hwt2_onAttack_BuffMdef
    timer array Summon_hwt2_onAttack_BuffTimer
    unit array HeroSkills_A03J_SummonUnit
    integer array HeroSkills_A03J_Shield_Trig
    timer array HeroSkills_A03J_Shield_Timer
    real array HeroSkills_A03J_Shield_Life
    real array Summon_hmil_onAttack_cd
    integer HeroSkills_A089_HT
    integer array HeroSkills_A089_Target
    integer array HeroSkills_A089_ShieldTrig
    lightning array HeroSkills_A089_Lig
    integer array HeroSkills_A089_Count
    real array HeroSkills_A089_Shield_v
    real array HeroSkills_A089_Shield_R
    integer array HeroSkills_A089_A0F3_Buff_Adef
    timer array HeroSkills_A089_A0F3_Buff_Timer
    timer array HeroSkills_A089_A0OO_Buff_Timer
    real array HeroSkills_A089_A0OO_Buff_v
    integer array Summon_hphx_onAttack_Count
    integer array HeroSkills_A08N_Start_Func01_Eff
    integer array HeroSkills_A08N_Start_Func01_Count
    real array HeroSkills_A08N_Start_Func01_X
    real array HeroSkills_A08N_Start_Func01_Y
    integer HeroSkills_A08N_Start_Func01_Timer
    integer array HeroSkills_A01K_Effect
    integer array HeroSkills_A01K_Number
    boolean array HeroSkills_A04U_App
    integer array HeroSkills_A04U_Last
    integer array HeroSkills_A04U_Next
    timer array HeroSkills_A04U_Buff_timer
    integer array HeroSkills_A04U_Buff_Index
    integer array HeroSkills_A04U_Buff_Str
    integer array HeroSkills_A04U_ValueAtk
    integer array HeroSkills_A04U_ValueMdg
    integer HeroSkills_A04U_Func
    integer array HeroSkills_A04W_Source
    integer array HeroSkills_A04W_Storm
    integer array HeroSkills_A04W_Effect
    group array HeroSkills_A04W_Group
    boolean array HeroSkills_A04W_Crash
    integer array HeroSkills_A04W_time
    real array HeroSkills_A04W_VectorX
    real array HeroSkills_A04W_VectorY
    real array HeroSkills_A04W_Damage
    real array HeroSkills_A04W_Distance
    integer HeroSkills_A04W_Func
    integer array HeroSkills_A037_Duration
    integer array HeroSkills_A037_App
    boolean array HeroSkills_A037_NotSeckill
    integer array HeroSkills_A0MS_Effect
    integer array HeroSkills_A0MS_Number
    integer array HeroSkills_A0MS_Charged
    integer array HeroSkills_A0MS_Duration
    boolean array HeroSkills_A0MS_Open
    integer array HeroSkills_A0MS_Last
    integer array HeroSkills_A0MS_Next
    integer HeroSkills_A0MS_Func=0
    integer array Hero_Skills_Thunder_Halo
    integer array Hero_Skills_Thunder_Series
    integer array Hero_Skills_Thunder_MaxSeries
    integer array Hero_Skills_Thunder_buffLv
    integer array Hero_Skills_Thunder_buffDamage
    integer array Hero_Skills_Thunder_buffArmor
    integer array Hero_Skills_Thunder_buffAtkSp
    real array Hero_Skills_Thunder_Strength
    real array Hero_Skills_Thunder_Energy
    real array Hero_Skills_Thunder_EnergyUp
    real array Hero_Skills_Thunder_MaxEnergy
    boolean array Hero_Skills_Thunder_Use
    integer array Hero_Skills_Thunder_Last
    integer array Hero_Skills_Thunder_Next
    integer Hero_Skills_Thunder_Func=0
    integer HeroSkills_A0N4_Func
    integer array HeroSkills_A0MV_Trig
    integer array HeroSkills_A0MV_HT
    integer array HeroSkills_A0MV_Adef
    integer array HeroSkills_A0MV_Effect
    integer array HeroSkills_A0MV_Duration
    integer array HeroSkills_A02X_Modulo
    constant real HeroSkills_A02Y_VR=60
    constant real HeroSkills_A02Y_VW=90
    integer array HeroSkills_A02Z_Target
    boolean array HeroSkills_A02Z_Reward
    integer array HeroSkills_A02Z_Number
    integer array HeroSkills_A03E_A0F5_Eff
    group array HeroSkills_A03E_A0F5_Group
    integer array HeroSkills_A03E_A0F5_Time
    real array HeroSkills_A03E_A0F5_Range
    real array HeroSkills_A03E_A0F5_Damage
    real array HeroSkills_A03E_A0F5_VX
    real array HeroSkills_A03E_A0F5_VY
    boolean array HeroSkills_A03E_A0F5_Use
    integer array HeroSkills_A03E_A0F5_Last
    integer array HeroSkills_A03E_A0F5_Next
    integer HeroSkills_A03E_A0F5_Func=0
    integer array HeroSkills_A03E_ShieldTrig
    integer array HeroSkills_A03E_Eff
    integer array HeroSkills_A03E_Eff2
    integer array HeroSkills_A03E_Eff3
    group array HeroSkills_A03E_Group
    integer array HeroSkills_A03E_Time
    integer array HeroSkills_A03E_Intensify_value
    real array HeroSkills_A03E_Damage
    boolean array HeroSkills_A03E_Use
    integer array HeroSkills_A03E_last
    integer array HeroSkills_A03E_Next
    integer HeroSkills_A03E_Func1=0
    integer array HeroSkills_A03F_Hero
    integer array HeroSkills_A03F_Eff
    group array HeroSkills_A03F_Group
    boolean array HeroSkills_A03F_Bool
    integer array HeroSkills_A03F_Count
    integer array HeroSkills_A03F_Number
    real array HeroSkills_A03F_Distance
    real array HeroSkills_A03F_Damage
    real array HeroSkills_A03F_X
    real array HeroSkills_A03F_Y
    integer HeroSkills_A03E_func
    integer array HeroSkills_A03G_DeBuff_a
    integer array HeroSkills_A03G_DeBuff_b
    integer array HeroSkills_A03G_DeBuff_c
    real array HeroSkills_A03G_DeBuff_v
    integer array HeroSkills_A03G_DeBuff_mdef
    timer array HeroSkills_A03G_DeBuff_timer
    integer array HeroSkills_A03G_DeBuff_lv
    integer array HeroSkills_A03G_Eff
    unit array HeroSkills_A03G_FuDi
    boolean array HeroSkills_A03G_BoolA
    boolean array HeroSkills_A03G_BoolB
    boolean array HeroSkills_A03G_BoolC
    integer array HeroSkills_A03G_Time
    real array HeroSkills_A03G_Damage
    real array HeroSkills_A03G_Angle
    real array HeroSkills_A03G_MdefReduce
    boolean array HeroSkills_A03G_Use
    integer array HeroSkills_A03G_Last
    integer array HeroSkills_A03G_Next
    integer HeroSkills_A03G_Func=0
    integer array HeroSkills_A04R_Bolang_Hero
    integer array HeroSkills_A04R_Bolang_Eff
    integer array HeroSkills_A04R_Bolang_Time
    real array HeroSkills_A04R_Bolang_X
    real array HeroSkills_A04R_Bolang_Y
    integer HeroSkills_A04R_Bolang_Func
    integer array HeroSkills_A04R_Vessel
    integer array HeroSkills_A04R_Time
    boolean array HeroSkills_A04R_Use
    integer array HeroSkills_A04R_Last
    integer array HeroSkills_A04R_Next
    integer HeroSkills_A04R_Func=0
    integer array HeroSkills_A0CQ_Count
    timer array HeroSkills_A0CQ_Timer
    integer array HeroSkills_A0CR_Hero
    integer array HeroSkills_A0CR_Emfw
    integer array HeroSkills_A0CR_Time
    real array HeroSkills_A0CR_Damage
    integer HeroSkills_A0CR_Func
    timer array HeroSkills_A0CR_IssuedOrder_Timer
    unit array HeroSkills_A0CR_IssuedOrder_Target
    integer array HeroSkills_A0CR_IssuedOrder_Count
    integer array HeroSkills_A0CX_Last
    integer array HeroSkills_A0CX_Next
    integer array HeroSkills_A0CX_TrigA
    integer array HeroSkills_A0CX_Time
    real array HeroSkills_A0CX_Damage
    integer array HeroSkills_A0CX_TrigB
    integer HeroSkills_A0CX_Func
    boolean array cT
    real array HeroSkills_A0CU_Px
    real array HeroSkills_A0CU_Py
    real array HeroSkills_A0CU_Tx
    real array HeroSkills_A0CU_Ty
    timer HeroSkills_A0CU_Tm=CreateTimer()
    integer HeroSkills_A0CU_Index=0
    integer array HeroSkills_A0CU_U
    integer array r8v
    integer array r9v
    group array ivv
    boolean array iev
    integer array ixv
    real array iov
    real array irv
    real array iiv
    integer iav
    integer array HeroSkills_A0CU_Last
    integer array HeroSkills_A0CU_Next
    integer array HeroSkills_A0CU_Count
    real array HeroSkills_A0CU_bzbe
    integer iOv
    integer array HeroSkills_A0CW_DLTS
    integer array HeroSkills_A0CW_Eff
    integer array HeroSkills_A0CW_Count
    integer HeroSkills_A0CW_Func
    integer array SummonedUnitSkills_A0FQ_Unit
    integer array SummonedUnitSkills_A0FQ_Eff
    group array SummonedUnitSkills_A0FQ_Group
    integer array SummonedUnitSkills_A0FQ_Count
    real array SummonedUnitSkills_A0FQ_R
    real array SummonedUnitSkills_A0FQ_X
    real array SummonedUnitSkills_A0FQ_Y
    real array SummonedUnitSkills_A0FQ_Damage1
    real array SummonedUnitSkills_A0FQ_Damage2
    integer SummonedUnitSkills_A0FQ_Func
    timer array SummonedUnitSkills_A0FR_Timer
    integer array SummonedUnitSkills_A0FS_Unit
    integer array SummonedUnitSkills_A0FS_Hero
    lightning array SummonedUnitSkills_A0FS_Lig
    group array SummonedUnitSkills_A0FS_Group
    integer array SummonedUnitSkills_A0FS_Count
    real array SummonedUnitSkills_A0FS_V
    integer array iMv
    integer ipv
    integer array HeroSkills_A0CY_DeBuff_Mdef
    timer array HeroSkills_A0CY_DeBuff_Timer
    integer array HeroSkills_A0CY_Hero
    integer array HeroSkills_A0CY_Vessel
    integer array HeroSkills_A0CY_Eff
    boolean array HeroSkills_A0CY_Bool
    integer array HeroSkills_A0CY_Time
    real array HeroSkills_A0CY_Damage
    integer HeroSkills_A0CY_Func
    integer array Elemental_Force_Adef
    integer array Elemental_Force_Model
    timer array Elemental_Force_Kill_Timer
    boolean array Elemental_Force_Attack_Bool
    integer array Elemental_Force_Kill_Value
    integer array Elemental_Force_ChargeTime
    integer array Elemental_Force_CombatTime
    integer array Elemental_Force_Intensify
    integer array Elemental_Force_Charge
    integer array Elemental_Force_Max_Charge
    real array Elemental_Force_HpRegen
    boolean array Elemental_Force_Use
    integer array Elemental_Force_Last
    integer array Elemental_Force_Next
    integer Elemental_Force_Func=0
    integer array HeroSkills_A0K9_DeBuff_Mdef
    timer array HeroSkills_A0K9_DeBuff_Timer
    integer array HeroSkills_A0K9_Hero
    group array HeroSkills_A0K9_Group
    boolean array HeroSkills_A0K9_Bool
    integer array HeroSkills_A0K9_Time
    real array HeroSkills_A0K9_A
    real array HeroSkills_A0K9_X1
    real array HeroSkills_A0K9_Y1
    real array HeroSkills_A0K9_X2
    real array HeroSkills_A0K9_Y2
    real array HeroSkills_A0K9_D
    integer HeroSkills_A0K9_Func
    integer array HeroSkills_A0K6_Buff_Mdef
    timer array HeroSkills_A0K6_Buff_Timer
    boolean array HeroSkills_A0K6_Bool
    boolean array HeroSkills_A0K3_Bool
    integer array HeroSkills_A0K3_Count
    real array HeroSkills_A0K3_CureV
    real array HeroSkills_A0K3_MDG
    boolean array HeroSkills_A0K3_Use
    integer array HeroSkills_A0K3_Last
    integer array HeroSkills_A0K3_Next
    integer HeroSkills_A0K3_Func=0
    integer array HeroSkills_A0K8_Buff_Str
    integer array HeroSkills_A0K8_Buff_Agi
    integer array HeroSkills_A0K8_Buff_Int
    timer array HeroSkills_A0K8_Buff_Timer
    integer array HeroSkills_A0K8_Eff
    integer array HeroSkills_A0K8_Vessel
    group array HeroSkills_A0K8_Group
    boolean array HeroSkills_A0K8_Has_hcun
    integer array HeroSkills_A0K8_Charge
    integer array HeroSkills_A0K8_Time
    real array HeroSkills_A0K8_Damage
    real array HeroSkills_A0K8_HX
    real array HeroSkills_A0K8_HY
    real array HeroSkills_A0K8_Ang
    real array HeroSkills_A0K8_X
    real array HeroSkills_A0K8_Y
    constant real HeroSkills_A0K8_HR=125
    boolean array HeroSkills_A0K8_Use
    integer array HeroSkills_A0K8_Last
    integer array HeroSkills_A0K8_Next
    integer HeroSkills_A0K8_Func=0
    boolean HeroSkills_A0KD_ON=false
    integer array Hero_H01I_SkillsList_Eff
    integer array Hero_H01I_SkillsList_Id
    integer array Hero_H01I_SkillsList_Duration
    real array Hero_H01I_SkillsList_Size
    boolean array Hero_H01I_SkillsList_Use
    integer array Hero_H01I_SkillsList_Last
    integer array Hero_H01I_SkillsList_Next
    integer Hero_H01I_SkillsList_Func=0
    integer array Hero_H01I_SkillsList_Vessel
    integer array HeroSkills_A0NE_Buff_4_Mdef
    integer array HeroSkills_A0NE_Modul
    integer array HeroSkills_A0NE_BuffCount
    integer array HeroSkills_A0NE_Buff_5_Int
    integer array HeroSkills_A0NW_Energy
    real array HeroSkills_A0NE_Buff_2_HpRegen
    real array HeroSkills_A0NE_Buff_2_MpRegen
    constant integer i9v=R2I(1.5*32)
    constant real avv=6
    constant real aev=96
    boolean array HeroSkills_A0NE_Use
    integer array HeroSkills_A0NE_Last
    integer array HeroSkills_A0NE_Next
    integer HeroSkills_A0NE_Func1=0
    integer array HeroSkills_A0NO_Unit
    integer array HeroSkills_A0NO_Eff
    integer array HeroSkills_A0NO_Time
    real array HeroSkills_A0NO_Damage
    integer HeroSkills_A0NO_Func
    integer array HeroSkills_A0O4_Eff
    integer array HeroSkills_A0O4_Model
    integer array HeroSkills_A0O4_Time
    real array HeroSkills_A0O4_Damage
    boolean array HeroSkills_A0O4_Use
    integer array HeroSkills_A0O4_Last
    integer array HeroSkills_A0O4_Next
    integer HeroSkills_A0O4_Func=0
    integer array HeroSkills_A0NW_AtkTrig
    integer array HeroSkills_A0NW_Time
    integer array HeroSkills_A0NW_AtkCD
    integer array HeroSkills_A0NW_AtkSpeed
    integer array HeroSkills_A0NW_AtkValue
    boolean array HeroSkills_A0NW_Use
    integer array HeroSkills_A0NW_Last
    integer array HeroSkills_A0NW_Next
    integer HeroSkills_A0NW_Func=0
    integer array HeroSkills_A0NZ_Model
    integer array HeroSkills_A0NZ_Time
    integer array HeroSkills_A0NZ_Count
    real array HeroSkills_A0NZ_Damage
    integer array HeroSkills_A0NZ_Buff_Mdef
    timer array HeroSkills_A0NZ_Buff_Timer
    boolean array HeroSkills_A0NZ_Use
    integer array HeroSkills_A0NZ_Last
    integer array HeroSkills_A0NZ_Next
    integer HeroSkills_A0NZ_Func=0
    integer array HeroSkills_A0O3_AtkUnit
    integer array HeroSkills_A0O3_Target
    integer array HeroSkills_A0O3_Time
    integer array HeroSkills_A0O3_Couit
    real array HeroSkills_A0O3_Damage
    boolean array HeroSkills_A0O3_Use
    integer array HeroSkills_A0O3_Last
    integer array HeroSkills_A0O3_Next
    integer HeroSkills_A0O3_Func=0
    integer array HeroSkills_A0NV_Listing
    texttag array HeroSkills_A0NV_Tag
    boolean array HeroSkills_A0NV_Bool
    integer array HeroSkills_A0NV_V
    integer array HeroSkills_A0NV_Index
    integer array HeroSkills_A0NV_Target
    integer array HeroSkills_A0NV_Count
    boolean array HeroSkills_A0NV_Use
    integer array HeroSkills_A0NV_Last
    integer array HeroSkills_A0NV_Next
    integer HeroSkills_A0NV_Func=0
    timer array HeroSkills_A0O5_BuffTimer
    integer array HeroSkills_A0O5_Last
    integer array HeroSkills_A0O5_Next
    integer array HeroSkills_A0O7_SummonedUnit
    integer array HeroSkills_A0O7_Eff
    boolean array HeroSkills_A0O7_Bool
    integer array HeroSkills_A0O7_SummonedTime
    integer array HeroSkills_A0O7_Count
    integer array HeroSkills_A0O7_ArmorLv
    real array HeroSkills_A0O7_Damage
    boolean array HeroSkills_A0O7_Use
    integer array HeroSkills_A0O7_Last
    integer array HeroSkills_A0O7_Next
    integer HeroSkills_A0O7_Func=0
    integer array SummonedUnitSkills_A0OA_Buff_Adef
    timer array SummonedUnitSkills_A0OA_Buff_Timer
    integer array HeroSkills_A0NN_Vessel
    integer array HeroSkills_A0NN_Count
    integer array HeroSkills_A0NN_Time
    real array HeroSkills_A0NN_Value
    boolean array HeroSkills_A0NN_Use
    integer array HeroSkills_A0NN_Last
    integer array HeroSkills_A0NN_Next
    integer HeroSkills_A0NN_Func=0
    integer array HeroSkills_A0OC_Buff_Adef
    timer array HeroSkills_A0OC_Buff_Timer
    integer array HeroSkills_A0OC_Eff
    integer array HeroSkills_A0OC_Time
    integer array HeroSkills_A0OC_Count
    boolean array HeroSkills_A0OC_Use
    integer array HeroSkills_A0OC_Last
    integer array HeroSkills_A0OC_Next
    integer HeroSkills_A0OC_Func=0
    integer array HeroSkills_A02U_Data
    integer array HeroSkills_A02U_Dodge
    integer array HeroSkills_A02U_Mana
    unit array HeroSkills_A02U_Unit
    timer array HeroSkills_A0B6_Buff_Timer
    integer array HeroSkills_A0B6_Buff_Def
    timer array HeroSkills_A0B3_Buff_Timer
    integer array HeroSkills_A0B3_Buff_Def
    integer array HeroSkills_A0B3_Buff_Atk
    integer array HeroSkills_A0B3_Buff_HpRegen
    integer array HeroSkills_A0B3_DefList
    integer array HeroSkills_A01H_Buff_Eff
    integer array HeroSkills_A01H_Buff_Adef
    integer array HeroSkills_A01H_Buff_Time
    boolean array HeroSkills_A01H_Buff_Use
    integer array HeroSkills_A01H_Buff_Last
    integer array HeroSkills_A01H_Buff_Next
    integer HeroSkills_A01H_Buff_Func=0
    timer array HeroSkills_A007_Buff_Timer
    integer array HeroSkills_A007_Buff_Trig
    integer array HeroSkills_A007_Buff_DamageSource
    integer HeroSkills_A015_Func
    timer array HeroSkills_A01J_Buff_Timer
    integer HeroSkills_A01J_Func
    integer array HeroSkills_A0FG_Uint
    integer array HeroSkills_A0FG_Vessel
    integer array HeroSkills_A0FG_Eff
    integer array HeroSkills_A0FG_Time
    real array HeroSkills_A0FG_Damage
    real array HeroSkills_A0FG_Ang
    integer HeroSkills_A0FG_Func
    integer array HeroSkills_AUfa_Shield
    integer array HeroSkills_AUfa_Death
    integer array HeroSkills_AUfa_Shield_Source
    timer array HeroSkills_AUfa_Shield_Timer
    real array HeroSkills_AUfa_Shield_life
    integer array HeroSkills_AUfa_Def
    integer array HeroSkills_A010_Unit
    integer array HeroSkills_A010_Eff
    group array HeroSkills_A010_Group
    real array HeroSkills_A010_X
    real array HeroSkills_A010_Y
    real array HeroSkills_A010_B
    real array HeroSkills_A010_RX
    real array HeroSkills_A010_RY
    real array HeroSkills_A010_Damage
    real array HeroSkills_A010_A
    integer HeroSkills_A010_Func
    integer array HeroSkills_A011_BDSP_Unit
    integer array HeroSkills_A011_BDSP_Eff
    integer array HeroSkills_A011_BDSP_Time
    real array HeroSkills_A011_BDSP_X
    real array HeroSkills_A011_BDSP_Y
    real array HeroSkills_A011_BDSP_R
    real array HeroSkills_A011_BDSP_Damage
    integer HeroSkills_A011_BDSP_Func
    integer array HeroSkills_A011_IceShard
    integer array HeroSkills_A011_Model
    integer array HeroSkills_A011_TargetPoint
    integer array HeroSkills_A011_Vessel
    group array HeroSkills_A011_Group
    integer array HeroSkills_A011_Time
    real array HeroSkills_A011_A
    real array HeroSkills_A011_Damage
    real array HeroSkills_A011_Rang
    boolean array HeroSkills_A011_Use
    integer array HeroSkills_A011_Last
    integer array HeroSkills_A011_Next
    integer HeroSkills_A011_Func=0
    timer array HeroSkills_A00L_Timer2
    timer array HeroSkills_A00L_Timer1
    integer array HeroSkills_A00L_Count
    real array HeroSkills_A00L_X
    real array HeroSkills_A00L_Y
    timer array HeroSkills_A00V_Buff_timer
    integer array HeroSkills_A00V_Buff_lv
    timer array HeroSkills_Flash_Timer
    integer array HeroSkills_Flash_Lv
    integer HeroSkills_A013_Func
    integer array HeroSkills_A029_Unit
    real array HeroSkills_A029_Ang
    real array HeroSkills_A029_X
    real array HeroSkills_A029_Y
    real array HeroSkills_A029_S
    real array HeroSkills_A029_R
    timer array HeroSkills_A029_Timer
    integer HeroSkills_A029_Func
    integer HeroSkills_A07J_Func
    integer array HeroSkills_A07F_Target
    integer array HeroSkills_A07F_Vessel
    integer array HeroSkills_A07F_Model
    integer array HeroSkills_A07F_Adef
    boolean array HeroSkills_A07F_Bool
    integer array HeroSkills_A07F_Time
    real array HeroSkills_A07F_Damage
    real array HeroSkills_A07F_Range
    real array HeroSkills_A07F_A
    integer array HeroSkills_A07F_T
    integer HeroSkills_A07F_Func
    integer array HeroSkills_A0GG_TagSize
    timer array HeroSkills_A0GG_Buff_Timer
    timer array HeroSkills_A0GE_Buff_Timer
    integer array HeroSkills_A0GE_Atk_Number
    integer array HeroSkills_A0GE_Buff_Lv
    integer array HeroSkills_A0GE_Buff_Agi
    boolean array HeroSkills_A0GE_ON
    integer array HeroSkills_A0GJ_Shadow_Source
    integer array HeroSkills_A0GJ_Shadow_Target
    integer array HeroSkills_A0GJ_Shadow_Missile
    boolean array HeroSkills_A0GJ_Shadow_Bool
    real array HeroSkills_A0GJ_Shadow_Damage
    integer HeroSkills_A0GJ_Shadow_Func
    integer array HeroSkills_A0GJ_Unit
    integer array HeroSkills_A0GJ_Eff
    group array HeroSkills_A0GJ_Geoup1
    group array HeroSkills_A0GJ_Geoup2
    boolean array HeroSkills_A0GJ_Bool
    real array HeroSkills_A0GJ_VX
    real array HeroSkills_A0GJ_VY
    real array HeroSkills_A0GJ_Damage
    real array HeroSkills_A0GJ_Distance
    integer HeroSkills_A0GJ_Func
    integer HeroSkills_A0GS_Func
    integer array HeroSkills_A0GN_Trig
    integer array HeroSkills_A0GN_Charged_e015
    integer array HeroSkills_A0GN_Charged_Count
    integer array HeroSkills_A0GN_Charged_Value
    integer array HeroSkills_A0GN_Time
    boolean array HeroSkills_A0GN_Use
    integer array HeroSkills_A0GN_Last
    integer array HeroSkills_A0GN_Next
    integer HeroSkills_A0GN_Func=0
    integer array HeroSkills_A0GW_Rockets_Source
    integer array HeroSkills_A0GW_Rockets_Eff
    integer array HeroSkills_A0GW_Rockets_A
    integer array HeroSkills_A0GW_Rockets_B
    integer array HeroSkills_A0GW_Rockets_Time
    real array HeroSkills_A0GW_Rockets_Vx
    real array HeroSkills_A0GW_Rockets_Vy
    real array HeroSkills_A0GW_Rockets_Damage
    integer HeroSkills_A0GW_Rockets_Func
    integer array HeroSkills_A0GW_Number
    real array HeroSkills_A0GW_Damage
    timer array HeroSkills_A0N1_Buff_Timer
    integer array HeroSkills_A0N1_Buff_Adef
    timer array HeroSkills_A0N1_Timer
    integer array HeroSkills_A0N1_Model
    integer array HeroSkills_A0PN_Vessel
    integer array HeroSkills_A0PN_Number
    real array HeroSkills_A0PN_Anger
    boolean array HeroSkills_A0PN_Use
    integer array HeroSkills_A0PN_Last
    integer array HeroSkills_A0PN_Next
    integer HeroSkills_A0PN_Func=0
    constant real HeroSkills_A0PS_Dr=375
    constant real HeroSkills_A0PS_Pr=350
    constant real HeroSkills_A0PS_Lr=$3E8
    constant real HeroSkills_A0PS_Sr=$FA
    constant real HeroSkills_A0PS_Ts=4
    integer array HeroSkills_A0PS_Hero
    integer array HeroSkills_A0PS_Model
    integer array HeroSkills_A0PS_Eff
    group array HeroSkills_A0PS_Group
    boolean array HeroSkills_A0PS_Bool
    real array HeroSkills_A0PS_Time
    real array HeroSkills_A0PS_Damage
    real array HeroSkills_A0PS_VX
    real array HeroSkills_A0PS_VY
    boolean array HeroSkills_A0PS_Use
    integer array HeroSkills_A0PS_Last
    integer array HeroSkills_A0PS_Next
    integer HeroSkills_A0PS_func=0
    constant real viv=6
    integer array HeroSkills_A0PT_Shield_Trig
    timer array HeroSkills_A0PT_Shield_Timer
    real array HeroSkills_A0PT_Shield_Life
    integer array HeroSkills_A0PT_CureTrig
    integer array HeroSkills_A0PT_Buff_Adef
    timer array HeroSkills_A0PT_Buff_Timer
    integer array HeroSkills_A0PT_Buff_AdefV
    integer array HeroSkills_A0PT_Model
    integer array HeroSkills_A0PT_Effect
    integer array HeroSkills_A0PT_Time
    integer array HeroSkills_A0PT_Value
    boolean array HeroSkills_A0PT_Use
    integer array HeroSkills_A0PT_Last
    integer array HeroSkills_A0PT_Next
    integer HeroSkills_A0PT_Func=0
    timer array HeroSkills_A0PZ_Buff_timer
    integer array HeroSkills_A0PZ_Buff_Hp
    real array HeroSkills_A0PZ_Buff_Md
    boolean array Summon_h01O_Kill
    boolean Summon_h01O_Bool=true
    integer array SummonSkills_A0Q6_Unit
    integer array SummonSkills_A0Q6_Effect
    integer array SummonSkills_A0Q6_Time
    integer array SummonSkills_A0Q6_AnimationTime
    real array SummonSkills_A0Q6_Damage
    integer SummonSkills_A0Q6_Func
    integer array SummonSkills_A0Q5_Unit
    integer array SummonSkills_A0Q5_Effect
    group array SummonSkills_A0Q5_Group
    integer array SummonSkills_A0Q5_Count
    real array SummonSkills_A0Q5_Ang
    real array SummonSkills_A0Q5_X
    real array SummonSkills_A0Q5_Y
    real array SummonSkills_A0Q5_S
    real array SummonSkills_A0Q5_R
    real array SummonSkills_A0Q5_Damage
    integer SummonSkills_A0Q5_Func
    integer array SummonSkills_A0Q4_Buff_Mdef
    timer array SummonSkills_A0Q4_Buff_Timer
    real array SummonSkills_A0Q4_Time
    boolean array SummonSkills_A0Q4_Off
    timer array HeroSkills_A01N_Timer
    boolean array HeroSkills_A01N_Off
    integer array HeroSkills_A01N_Max
    integer array HeroSkills_A01N_Vaule
    boolean array HeroSkills_A05Y_B_Use
    integer HeroSkills_A05Y_B_Func
    integer HeroSkills_A05Y_A_Func
    integer array HeroSkills_A060_Buff_Count
    integer array HeroSkills_A060_Buff_Agi
    real array HeroSkills_A060_Buff_CureV
    integer array HeroSkills_A060_Model
    unit array HeroSkills_A060_MaoTouYing
    boolean array HeroSkills_A060_Fangyu
    boolean array HeroSkills_A060_Cd
    integer array HeroSkills_A060_F_Timer
    boolean array HeroSkills_A060_Use
    integer array HeroSkills_A060_Last
    integer array HeroSkills_A060_Next
    integer HeroSkills_A060_Func=0
    integer array HeroSkills_A06A_V
    integer array HeroSkills_A06A_Id
    real array HeroSkills_A0QN_Px
    real array HeroSkills_A0QN_Py
    integer array HeroSkills_A06X_Unit
    integer array HeroSkills_A06X_Vessel
    group array HeroSkills_A06X_Group
    integer array HeroSkills_A06X_Time
    real array HeroSkills_A06X_Px
    real array HeroSkills_A06X_Py
    real array HeroSkills_A06X_A
    real array HeroSkills_A06X_Vx
    real array HeroSkills_A06X_Vy
    real array HeroSkills_A06X_D
    integer HeroSkills_A06X_Func
    integer array HeroSkills_A0XR_Lv
    integer array HeroSkills_A0XT_Index
    timer array HeroSkills_A0XT_Timer
    timer array HeroSkills_A0XV_Buff_Timer
    integer array HeroSkills_A0XV_Buff_Lv
    boolean array HeroSkills_A0XV_Bool
    integer array HeroSkills_A0XX_Data
    timer array HeroSkills_A100_Buff_Timer
    integer array HeroSkills_A100_Buff_Atk
    real array HeroSkills_A100_Buff_Cure
    integer array HeroSkills_A100_Buff_N
    timer array HeroSkills_A104_Buff_Timer
    integer array HeroSkills_A104_Buff_Adef
    timer array HeroSkills_A105_Buff_Timer
    integer array HeroSkills_A105_Buff_Adef
    integer array HeroSkills_A107_Lv
    integer array HeroSkills_A107_Mdef
    integer array HeroSkills_A107_Buff_Lv
    timer array HeroSkills_A107_Buff_Timer
    integer array HeroSkills_A107_Buff_Trig
    timer array HeroSkills_A107_Buff_Timer2
    real array HeroSkills_A107_Buff_Cure
    real array HeroSkills_A107_Buff_D
    timer array HeroSkills_A108_Buff_Timer
    integer array HeroSkills_A108_Buff_Trig
    integer array HeroSkills_A108_Buff_Atk1
    real array HeroSkills_A108_Buff_Atk2
    timer array HeroSkills_A109_Buff_Timer
    integer array HeroSkills_A109_Buff_Pdef
    integer array HeroSkills_A109_Buff_Mdef
    timer array HeroSkills_A10A_Buff_Timer
    integer array HeroSkills_A10A_Buff_Hp
    integer array HeroSkills_A10A_Buff_Mp
    timer array HeroSkills_A10B_Buff_Timer
    integer array HeroSkills_A10B_Buff_V
    timer array HeroSkills_A10C_Buff_Timer
    integer array HeroSkills_A10C_Buff_Trig
    real array HeroSkills_A10C_Buff_V
    timer array HeroSkills_A10D_Buff_Timer
    integer array HeroSkills_A10D_Buff_Mdef
    timer array HeroSkills_A0Y6_Timer
    integer array HeroSkills_A0Y6_Trig
    integer array HeroSkills_A0Y6_Mdef
    integer array HeroSkills_A0Y6_Source
    boolean array HeroSkills_A0YA_Bool
    integer array HeroSkills_A0YC_Data
    trigger array HeroSkills_A0YG_Trig
    real array HeroSkills_A0YG_V
    timer array HeroSkills_A0YG_Timer
    real array HeroSkills_A0YG_MPRegen
    integer array HeroSkills_A0YG_Atk
    integer array HeroSkills_A0YG_AtkB
    integer array HeroSkills_A0YG_Lv
    boolean array HeroSkills_A0YG_Bool
    integer array HeroSkills_A0YJ_Data
    integer array HeroSkills_A0YJ_Dodge
    timer array HeroSkills_A0YL_Timer
    constant boolean LIBRARY_ItemCombine=true
    integer array ItemCombine__eh
    integer array ItemCombine__xh
    integer ItemCombine__oh
    constant boolean LIBRARY_NewEquip=true
    timer array Active_A0ZG_Timer
    integer array Equip_I0FR_Atk_trig
    real array Active_A0WY_Damage
    boolean array NewEquip___ChaosSuit_Use
    real array Active_A0XL_Dampt
    integer array Equip_spre_Table
    integer array Equip_rma2_Buff
    timer array Equip_rma2_Buff_timer
    timer array Equip_I0FV_timer
    integer array Equip_I0FV_Buff
    integer array Equip_I0AR_Vessel
    integer array Equip_I0AR_Buff3
    integer array Equip_I0AR_Buff4
    timer array Equip_I0AR_Halo_timer
    integer array Equip_I0AR_Halo_Str
    integer array Equip_I0AR_Halo_Agi
    integer array Equip_I0AR_Halo_Int
    integer array Active_A0XD_Buff
    integer array Equip_I0FU_AtkBuff
    timer array Equip_wneu_timer
    integer array Equip_wneu_mdef
    timer array Equip_ocor_Timer
    integer array Equip_ocor_Life
    real array Equip_rots_cd
    constant boolean LIBRARY_Quest=true
    integer Quest__V1
    integer Quest__V8
    integer Quest__VF
    integer Quest__Point
    integer Quest__TYPE
    integer Quest__Gold
    integer Quest__Exp
    integer Quest__Item
    integer Quest__Tip
    integer Quest__Level
    integer Quest__Hash=0
    integer Quest__LastQuestId=0
    integer Quest__QuestIndex=0
    integer Quest__A=0
    integer array Quest__QuestList
    integer Quest__Vessel
    integer Quest__Name
    string Quest__Str="-task"
    integer Quest__LastQuestDropsList=0
    constant boolean LIBRARY_n02N=true
    unit n02N__Unit_n02N=null
    integer n02N__Unit_n02P=0
    integer n02N__Unit_n02O=0
    integer n02N__Effect=0
    timer n02N__Timer=null
    constant real n02N__n02O_Move_Range=900
    real n02N__n02O_Move_TargetX
    real n02N__n02O_Move_TargetY
    integer n02N__n02O_Ability_TargetUnit=0
    integer n02N__n02O_AbilityEffect=0
    integer n02N__n02O_Ability_Count=0
    integer n02N__n02O_Ability_CD=0
    integer n02N__n02O_Ability_Timed=0
    integer n02N__Ability_001_Target=0
    integer n02N__Ability_001_Timed=0
    integer n02N__Ability_001_Timed_2
    integer n02N__Ability_003_BezierCurve
    integer n02N__Ability_003_Index=0
    integer n02N__Ability_003_Timed=0
    integer n02N__Ability_004_Timed=0
    real n02N__Ability_003_TargetX
    real n02N__Ability_003_TargetY
    real n02N__Ability_003_FlyHeight
    integer n02N__Ability_003_CD=0
    real array n02N__Ability_004_Life
    integer n02N__Ability_004_Lv=2
    integer n02N__Ability_005_Timed=0
    timer n02N__n02P_Buff_Timer=null
    integer n02N__n02P_BuffLV=0
    integer n02N__Index=0
    real array Summon_n02Q_TargetX
    real array Summon_n02Q_TargetY
    integer array BagSkill_A09X_Target
    integer array BagSkill_A09X_Count
    constant boolean LIBRARY_nnsw=true
    unit nnsw__Unit=null
    timer array BossSkill_A0F2_Timer
    integer array BossSkill_A0F2_Atk
    constant boolean LIBRARY_saveandload=true
    integer array saveandload__l_do
    integer array saveandload__Do
    integer array saveandload__PlayerKey
    integer saveandload__fo=0
    item array saveandload__Vessel_Item
    integer saveandload__Vessel_Index=0//item number on save / load
    
    integer array SavedItems
    integer SavedItemsCount = 0
    
    constant integer saveandload__yE=$C350
    constant integer saveandload__Characters_DecodeTypeA=$F111F
    constant integer saveandload__Characters_DecodeTypeB=$F111F
    integer saveandload__vX=0
    integer saveandload__Characters_Decode
    string saveandload__Characters_suffix
    integer saveandload__Characters_Encrypt
    integer saveandload__Characters_List
    player saveandload__LastSaveOrLoadPlayer
    integer saveandload__SaveId=92
    integer saveandload__LastSaveOrLoadPlayerId
    integer saveandload__LastSaveCode
    integer saveandload__LastSaveCode2
    integer saveandload__LastSaveCodeId=0
    unit saveandload__LastLoadUnit=null
    trigger saveandload__Save_Trig
    trigger saveandload__Load_Trig
    unit saveandload__getHeroexp_unit=null
    string saveandload__LastUnableSavelist=""
    constant boolean LIBRARY_zhaxiang=true
    integer array zhaxiang___vg
    group zhaxiang___eg
    integer zhaxiang___xg
    integer zhaxiang___diquyidong1
    integer zhaxiang___diquyidong2
    integer zhaxiang___diquyidong2_v
    region zhaxiang___diquyidong2_region
    real array zhaxiang___diquyidong2_off
    group udg_aaaaa11=null
    unit array udg_unitaaa
    rect gg_rct_BSDX______________001=null
    rect gg_rct_BSDX____________________000=null
    rect gg_rct_BSJL_____________001=null
    rect gg_rct_BSXS______________000=null
    rect gg_rct_BXSW______________001=null
    rect gg_rct_BXSW______________002=null
    rect gg_rct_BYQMD____________________000=null
    rect gg_rct_DGFX______________000=null
    rect gg_rct_DLZ________001=null
    rect gg_rct_EM01_________________002=null
    rect gg_rct_FSZJ2______________000=null
    rect gg_rct_HM______________001=null
    rect gg_rct_PRSJD_________________000=null
    rect gg_rct_PRSJD2_________________000=null
    rect gg_rct_PVP_PVP_______000=null
    rect gg_rct_TSRK_003=null
    rect gg_rct_WLZS________001=null
    rect gg_rct_WLZS2_______________001=null
    rect gg_rct_WLZS3_______________001=null
    rect gg_rct_WLZS4_______________001=null
    rect gg_rct_YGMJ2____________________000=null
    rect gg_rct_YRST______________000=null
    rect gg_rct______________000=null
    rect gg_rct______________001=null
    rect gg_rct______________002=null
    rect gg_rct______________003=null
    rect gg_rct______________006=null
    rect gg_rct______________007=null
    rect gg_rct_RYHS______________000=null
    rect gg_rct______________017=null
    rect gg_rct_YWZD______________000=null
    rect gg_rct_SHTZZ_____________________________002=null
    rect gg_rct_FQJT_________________002=null
    rect gg_rct_HSK_______________________002=null
    rect gg_rct_YS01_______________________002=null
    rect gg_rct_BSLZ_______________________002=null
    rect gg_rct_ZHIZHUZHD_________________002=null
    rect gg_rct_FSZJ______________000=null
    rect gg_rct_YXMD_000=null
    rect gg_rct_TSZHD_________________002=null
    rect gg_rct_BBMD______________000=null
    rect gg_rct_JKZHD_________________002=null
    rect gg_rct_EM03_________________003=null
    rect gg_rct_HCFHD_004=null
    rect gg_rct_EM02______________003=null
    rect gg_rct_HCD_004=null
    rect gg_rct_XSC___________000=null
    rect gg_rct_BBMD_______1_003=null
    rect gg_rct_WKQY______________000=null
    rect gg_rct_FSZJ_NGD________001=null
    rect gg_rct_FSZJ_JYG___________001=null
    rect gg_rct_FSZJ_MGD______________001=null
    rect gg_rct_FSZJ_LBD___________001=null
    rect gg_rct______________056=null
    rect gg_rct______________057=null
    rect gg_rct______________058=null
    rect gg_rct______________059=null
    rect gg_rct______________060=null
    rect gg_rct______________061=null
    rect gg_rct______________062=null
    rect gg_rct______________063=null
    rect gg_rct______________064=null
    rect gg_rct______________065=null
    rect gg_rct_RYHS______________002=null
    rect gg_rct______________067=null
    rect gg_rct______________068=null
    rect gg_rct______________050=null
    rect gg_rct_SH_MW_000=null
    rect gg_rct_MFT_LT_000=null
    rect gg_rct______________070=null
    rect gg_rct_YWZD______________001=null
    rect gg_rct______________072=null
    sound gg_snd_RiflemanAttack1=null
    trigger gg_trg____________________001=null
    trigger gg_trg_alloc=null
    trigger gg_trg_polygon=null
    trigger gg_trg_math=null
    trigger gg_trg_system=null
    trigger gg_trg_Then_Spell_Event=null
    trigger gg_trg_string=null
    trigger gg_trg_distexttag=null
    trigger gg_trg_groupunits=null
    trigger gg_trg_effecter=null
    trigger gg_trg_playerInit=null
    trigger gg_trg_unit=null
    trigger gg_trg_unitstate=null
    trigger gg_trg_bagstate=null
    trigger gg_trg_Hero=null
    trigger gg_trg_herostate=null
    trigger gg_trg_Item_Drops=null
    trigger gg_trg_damage=null
    trigger gg_trg_environment=null
    trigger gg_trg_Terrain=null
    trigger gg_trg_Equip_Trigger__________u=null
    trigger gg_trg_zhuanshu=null
    trigger gg_trg_Equip_State=null
    trigger gg_trg_ItemCombine=null
    trigger gg_trg_BasicCatalog=null
    trigger gg_trg_MiscCatalog=null
    trigger gg_trg_LoadBuffer=null
    trigger gg_trg_HeroCatalog=null
    trigger gg_trg_BagSwapCatalog=null
    trigger gg_trg_S_L=null
    trigger gg_trg_Book=null
    trigger gg_trg_Magetower=null
    trigger gg_trg_Quest=null
    trigger gg_trg____________________2016_01_20_23_00=null
    trigger gg_trg_F9______u=null
    trigger gg_trg__________mp_________u=null
    trigger gg_trg_0001_______________u=null
    trigger gg_trg_0004____________u=null
    trigger gg_trg_0005=null
    trigger gg_trg_0002_NewEquip=null
    trigger gg_trg_0003=null
    trigger gg_trg__________u=null
    trigger gg_trg____________________003=null
    trigger gg_trg____________________004=null
    trigger gg_trg____________________005=null
    trigger gg_trg____________________006=null
    unit gg_unit_n02V_0560=null
    unit gg_unit_n01N_0532=null
    unit gg_unit_n01N_0531=null
    unit gg_unit_H00Q_0724=null
    unit gg_unit_n01T_0423=null
    unit gg_unit_n001_0837=null
    unit gg_unit_nbee_0806=null
    unit gg_unit_h00N_0748=null
    unit gg_unit_n02D_0544=null
    unit gg_unit_hsor_0314=null
    unit gg_unit_hmpr_0313=null
    unit gg_unit_n035_0003=null
    unit gg_unit_n02Y_0270=null
    unit gg_unit_n00S_0365=null
    unit gg_unit_ufro_1585=null
    unit gg_unit_n033_0007=null
    unit gg_unit_n039_0040=null
    unit gg_unit_hpa1_0272=null
    unit gg_unit_ocat_0271=null
    unit gg_unit_h00N_0558=null
    unit gg_unit_hrif_0130=null
    unit gg_unit_h01G_0069=null
    unit gg_unit_h01G_0068=null
    unit gg_unit_h01G_0067=null
    unit gg_unit_n000_0011=null
    unit gg_unit_n003_0012=null
    unit gg_unit_hrif_0041=null
    unit gg_unit_n001_0039=null
    unit gg_unit_n027_0834=null
    unit gg_unit_n00V_0759=null
    unit gg_unit_H00G_0758=null
    unit gg_unit_h00M_0750=null
    unit gg_unit_h01T_0350=null
    unit gg_unit_nhew_0986=null
    unit gg_unit_n01N_0533=null
    unit gg_unit_h01F_0728=null
    unit gg_unit_n039_0547=null
    unit gg_unit_n03G_0815=null
    unit gg_unit_ufro_1583=null
    unit gg_unit_n00U_0789=null
    unit gg_unit_n01U_0362=null
    unit gg_unit_n03B_0550=null
    unit gg_unit_n039_0549=null
    unit gg_unit_n039_0548=null
    unit gg_unit_ufro_1584=null
    unit gg_unit_h00V_0527=null
    unit gg_unit_n03H_0776=null
    destructable gg_dest_B00D_11119=null
    destructable gg_dest_B001_6745=null
    destructable gg_dest_B001_6744=null
    destructable gg_dest_B00C_1557=null
    destructable gg_dest_Dofv_1632=null
    destructable gg_dest_B001_2315=null
    destructable gg_dest_B006_19850=null
    integer Book__Direetory
    integer Book__lastedit_id
    string Book__lastedit_str
    integer Book__BossPoint
    integer Book__BossPointIndex=0
    real array Book__BossPointX
    real array Book__BossPointY
    integer array Magetower__rh
    integer array Magetower__ih
    integer array Magetower__ah
    integer array Magetower__nh
    integer Magetower__Vh=0
    trigger l__library_init
    constant integer si__polygon=1
    integer si__polygon_F=0
    integer si__polygon_I=0
    integer array si__polygon_V
    integer array s__polygon_Max_i
    real array s__polygon_Max_x
    real array s__polygon_Max_y
    real array s__polygon_Min_x
    real array s__polygon_Min_y
    real array s___polygon_X
    constant integer s___polygon_X_size=100
    integer array s__polygon_X
    real array s___polygon_Y
    constant integer s___polygon_Y_size=100
    integer array s__polygon_Y
    constant integer si__Trig=4
    integer si__Trig_F=0
    integer si__Trig_I=0
    integer array si__Trig_V
    integer array s__Trig_fl
    integer array s__Trig_fr
    trigger array s__Trig_trig
    integer s__Trig_P=0
    integer array s__Trig_P2
    integer s__Trig_Index=0
    constant integer si__Catalog=5
    integer s__Catalog_I=0
    integer s__Catalog_F=0
    integer s__Catalog_R1
    integer s__Catalog_R2
    integer array s__Catalog_stack_a
    integer array s__Catalog_stack_b
    integer array s__Catalog_number
    integer array s__Catalog_content
    integer array s__Catalog_left
    integer array s__Catalog_right
    integer array s__Catalog_re
    integer array s__Catalog_ie
    constant integer si__BezierCurve=6
    integer si__BezierCurve_F=0
    integer si__BezierCurve_I=0
    integer array si__BezierCurve_V
    integer array s__BezierCurve_Type
    real array s__BezierCurve_a1
    real array s__BezierCurve_b1
    real array s__BezierCurve_c1
    real array s__BezierCurve_d1
    real array s__BezierCurve_a2
    real array s__BezierCurve_b2
    real array s__BezierCurve_c2
    real array s__BezierCurve_d2
    real array s__BezierCurve_a3
    real array s__BezierCurve_b3
    real array s__BezierCurve_c3
    real array s__BezierCurve_d3
    constant integer si__Sound_list=7
    integer si__Sound_list_F=0
    integer si__Sound_list_I=0
    integer array si__Sound_list_V
    string array s__Sound_list_Name
    boolean array s__Sound_list_isloop
    boolean array s__Sound_list_is3D
    boolean array s__Sound_list_stopwhenoutofrange
    integer array s__Sound_list_fadeInRate
    integer array s__Sound_list_fadeOutRate
    string array s__Sound_list_eaxSetting
    string array s__Sound_list_Label
    integer array s__Sound_list_duration
    integer array s__Sound_list_channel
    integer array s__Sound_list_volume
    real array s__Sound_list_pitch
    real array s__Sound_list_minDist
    real array s__Sound_list_maxDist
    real array s__Sound_list_cutoff
    real array s__Sound_list_x
    real array s__Sound_list_y
    real array s__Sound_list_z
    unit array s__Sound_list_whichUnit
    sound s__Sound_list_Sound
    constant integer si__Character=8
    integer s__Character_MemoryBlock=0
    integer s__Character_index=0
    integer array s__Character_list_next
    boolean array s__Character_Use
    string array s__Character_reality
    integer array s__Character_vessel
    integer array s__Character_length
    constant integer si__Multiboard=9
    integer si__Multiboard_F=0
    integer si__Multiboard_I=0
    integer array si__Multiboard_V
    multiboard array s__Multiboard_Ie
    integer array s__Multiboard_vessel
    integer array s__Multiboard_RowCount
    integer array s__Multiboard_ColumnCount
    constant integer si__Button=$A
    integer si__Button_F=0
    integer si__Button_I=0
    integer array si__Button_V
    button array s__Button_an
    integer array s__Button_id
    string array s__Button_text
    integer array s__Button_key
    boolexpr array s__Button_c
    boolean array s__Button_isdis
    constant integer si__Dialog=$B
    integer si__Dialog_F=0
    integer si__Dialog_I=0
    integer array si__Dialog_V
    trigger array s__Dialog_trig
    boolexpr array s__Dialog_action
    dialog array s__Dialog_di
    integer array s__Dialog_vessel
    string array s__Dialog_text
    integer array s__Dialog_index
    boolean array s__Dialog_b
    boolean array s__Dialog_ON
    boolean array s__Dialog_dis
    timer array s__Dialog_tm
    integer array s__Dialog_t
    integer array s__Dialog_func
    constant integer si__itemcd=$C
    integer si__itemcd_F=0
    integer si__itemcd_I=0
    integer array si__itemcd_V
    item array s__itemcd_Item
    constant integer si__locationez=$D
    integer si__locationez_F=0
    integer si__locationez_I=0
    integer array si__locationez_V
    integer s__locationez_I=0
    integer array s__locationez_V
    real array s__locationez_X
    real array s__locationez_Y
    real array s__locationez_Z
    integer array s__locationez_oO
    real array s__locationez_ang
    real array s__locationez_range
    real array s__locationez_hd
    integer array s__locationez_counter
    location s__locationez_Loc=Location(0,0)
    constant integer si__fog_table=$E
    integer si__fog_table_F=0
    integer si__fog_table_I=0
    integer array si__fog_table_V
    real array s__fog_table_zS
    real array s__fog_table_zE
    real array s__fog_table_f_r
    real array s__fog_table_f_g
    real array s__fog_table_f_b
    constant integer si__fog_rect=$F
    integer array s__fog_rect_t1
    integer array s__fog_rect_t2
    boolean array s__fog_rect_IsRound
    real array s__fog_rect_border
    real array s__fog_rect_f_L
    real array s__fog_rect_f_R
    real array s__fog_rect_f_D
    real array s__fog_rect_f_U
    real array s__fog_rect_centerX
    real array s__fog_rect_centerY
    real array s__fog_rect_RadMin
    real array s__fog_rect_RadMax
    constant real s__fog_rect_Be=6
    integer s__fog_rect_Basis
    integer s__fog_rect_Current
    real s__fog_rect_hour_3
    real s__fog_rect_hour_9
    real s__fog_rect_hour_15
    real s__fog_rect_hour_21
    integer s__fog_rect_I=0
    integer array s__fog_rect_V
    integer array s__fog_rect_last
    integer array s__fog_rect_next
    constant integer si__weather=16
    rect array s__weather_r
    weathereffect array s__weather_we
    integer array s__weather_id
    real array s__weather_hour_stare
    real array s__weather_hour_end
    boolean array s__weather_enable
    integer s__weather_I=0
    integer array s__weather_V
    integer array s__weather_F
    constant integer si__Effect=17
    integer s__Effect_I=0
    integer array s__Effect_V
    integer array s__Effect_lR
    effect array s__Effect_e
    boolean array s__Effect_mR
    boolean array s__Effect_MR
    constant integer si__barrage=18
    integer si__barrage_F=0
    integer si__barrage_I=0
    integer array si__barrage_V
    integer array s__barrage_FL
    integer array s__barrage_FR
    boolean array s__barrage_InOperation
    boolean array s__barrage_outside
    boolean array s__barrage_finish
    integer array s__barrage_p1
    integer array s__barrage_p2
    group array s__barrage_enum_g
    unit array s__barrage_atkunit
    unit array s__barrage_target
    integer array s__barrage_model
    real array s__barrage_X
    real array s__barrage_Y
    real array s__barrage_Z
    real array s__barrage_course
    real array s__barrage_CollisionRange
    real array s__barrage_facing
    real array s__barrage_steering
    real array s__barrage_radian_a
    real array s__barrage_radian_z
    real array s__barrage_impact_z
    real array s__barrage_speed
    real array s__barrage_acceleration
    constant integer si__MissileTypeA=19
    boolexpr array s__MissileTypeA_f1
    boolexpr array s__MissileTypeA_f2
    boolexpr array s__MissileTypeA_f3
    integer s__MissileTypeA_Last_Missile=0
    integer s__MissileTypeA_launcher
    integer s__MissileTypeA_func
    constant integer si__SoulMissile=20
    integer array s__SoulMissile_Type
    boolexpr array s__SoulMissile_f1
    boolexpr array s__SoulMissile_f2
    boolexpr array s__SoulMissile_f3
    integer s__SoulMissile_Last_Missile=0
    integer s__SoulMissile_launcher
    integer s__SoulMissile_func
    constant integer si__unitseate_table=21
    integer si__unitseate_table_F=0
    integer si__unitseate_table_I=0
    integer array si__unitseate_table_V
    real array s__unitseate_table_v
    integer array s__unitseate_table_L
    integer array s__unitseate_table_R
    constant integer si__drops_tabale=22
    integer si__drops_tabale_F=0
    integer si__drops_tabale_I=0
    integer array si__drops_tabale_V
    integer array s__drops_tabale_tid
    integer array s__drops_tabale_index
    integer array s__drops_tabale_max
    real array s__drops_tabale_r_a
    real array s__drops_tabale_r_up
    real array s___drops_tabale_r_v
    constant integer s___drops_tabale_r_v_size=20
    integer array s__drops_tabale_r_v
    integer array s___drops_tabale_r_id
    constant integer s___drops_tabale_r_id_size=20
    integer array s__drops_tabale_r_id
    integer s__drops_tabale_tindex=0
    constant integer si__Skills_Replace=25
    integer si__Skills_Replace_F=0
    integer si__Skills_Replace_I=0
    integer array si__Skills_Replace_V
    integer array s__Skills_Replace_id
    integer array s__Skills_Replace_L
    integer array s__Skills_Replace_R
    constant integer si__suit=26
    integer s__suit_Activated=0
    boolean s__suit_IsActivate=false
    integer s__suit_Index=0
    integer s__suit_V
    integer array s__suit_vessel
    boolexpr array s__suit_func
    integer array s__suit_num
    constant integer si__FrostBarrage=27
    real array s__FrostBarrage_damage
    integer s__FrostBarrage_launcher=0
    integer s__FrostBarrage_func
    constant integer si__poison=28
    integer si__poison_F=0
    integer si__poison_I=0
    integer array si__poison_V
    integer s__poison_R
    integer array s__poison_count
    integer array s__poison_which
    integer array s__poison_targer
    real array s__poison_amount
    real array s__poison_maxtimed
    real array s__poison_retimed
    effect array s__poison_eff
    integer array s__poison_offset
    constant integer si__stel=29
    constant integer s__stel_timedmax=$A
    boolean array s__stel_off
    integer array s__stel_timed
    constant integer si__sor3=30
    constant integer s__sor3_hit_num_max=$E
    constant real s__sor3_duration=9
    constant real s__sor3_CD=30
    boolean array s__sor3_off
    integer array s__sor3_hit_num
    constant integer si__pgin=31
    integer s__pgin_launcher=0
    integer s__pgin_func
    real array s__pgin_amount
    boolean array s__pgin_off
    constant integer si__IceStorm=32
    integer array s__IceStorm_vessel
    integer array s__IceStorm_num
    real array s__IceStorm_damage
    boolean array s__IceStorm_off
    integer s__IceStorm_launcher=0
    integer s__IceStorm_func
    constant integer si__hcun=33
    boolean array s__hcun_use
    boolean array s__hcun_off
    integer array s__hcun_vessel
    integer array s__hcun_atk
    real array s__hcun_ang
    integer array s__hcun_duration
    integer array s__hcun_bufflv
    integer array s__hcun_FL
    integer array s__hcun_FR
    constant real s__hcun_Angle=96
    integer s__hcun_func=0
    constant integer si__rat3=34
    constant integer s__rat3_maxlv=$A
    timer array s__rat3_time
    integer array s__rat3_duration
    integer array s__rat3_source
    integer array s__rat3_lv
    constant integer si__glsk_list=35
    integer si__glsk_list_F=0
    integer si__glsk_list_I=0
    integer array si__glsk_list_V
    integer array s__glsk_list_next
    integer array s__glsk_list_last
    real array s__glsk_list_damage
    integer array s__glsk_list_count
    constant integer si__glsk_hash=36
    integer si__glsk_hash_F=0
    integer si__glsk_hash_I=0
    integer array si__glsk_hash_V
    constant integer s__glsk_hash_Max_size=$A
    integer array s__glsk_hash_vessel
    integer array s__glsk_hash_size
    constant integer si__glsk=37
    constant real s__glsk_DamagePercent=20
    constant real s__glsk_mdef_v=5
    integer array s__glsk_List
    integer array s__glsk_Ht
    integer array s__glsk_mdef
    integer array s__glsk_time
    boolean array s__glsk_Use
    integer array s__glsk_FL
    integer array s__glsk_FR
    integer s__glsk_Func=0
    constant integer si__HellDemon=38
    integer array s__HellDemon_last
    integer array s__HellDemon_next
    integer s__HellDemon_func=0
    integer array s__HellDemon_demon
    integer array s__HellDemon_summoner
    integer array s__HellDemon_num
    constant integer si__A0DW=39
    integer array s__A0DW_soul_t
    integer array s__A0DW_soul_eff
    integer array s__A0DW_soul_model
    integer array s__A0DW_soul_timed
    real array s__A0DW_soul_life
    boolean array s__A0DW_soul_use
    integer array s__A0DW_FL
    integer array s__A0DW_FR
    integer s__A0DW_func=0
    constant integer si__A0IN=40
    integer array s__A0IN_count
    integer array s__A0IN_vessel
    integer s__A0IN_func
    constant integer si__A0II=41
    integer array s__A0II_vessel
    integer s__A0II_func
    constant integer si__A0R0=42
    sound s__A0R0_snd_SargerasLaugh=null
    integer array s__A0R0_buff_atk
    timer array s__A0R0_buff_timer
    integer array s__A0R0_buff_agi
    constant integer si__A0RL=43
    constant real s__A0RL_Range=350
    integer array s__A0RL_AuraUnit
    integer array s__A0RL_AuraModelA
    integer array s__A0RL_AuraModelB
    integer array s__A0RL_AuraDuration
    integer array s__A0RL_Aurabuff
    boolean array s__A0RL_AuraIsRemove
    integer array s__A0RL_FL
    integer array s__A0RL_FR
    timer array s__A0RL_bufftimer
    constant integer si__A0QT=44
    integer s__A0QT_launcher
    integer s__A0QT_func
    real array s__A0QT_damage
    integer array s__A0QT_eff
    constant integer si__A0QR=45
    integer s__A0QR_launcher
    integer s__A0QR_func
    constant integer si__A0C7=46
    integer array s__A0C7_mdef
    integer array s__A0C7_count
    boolean array s__A0C7_use
    integer array s__A0C7_FL
    integer array s__A0C7_FR
    integer s__A0C7_func=0
    constant integer si__Redemption=47
    boolean array s__Redemption_is_sbch
    integer array s__Redemption_timed
    real array s__Redemption_cd
    boolean array s__Redemption_is_app
    integer array s__Redemption_FL
    integer array s__Redemption_FR
    integer s__Redemption_func=0
    constant integer si__AubreyFurHats=48
    boolean array s__AubreyFurHats_isbuff
    integer array s__AubreyFurHats_Int
    integer array s__AubreyFurHats_timed
    boolean array s__AubreyFurHats_use
    integer array s__AubreyFurHats_FL
    integer array s__AubreyFurHats_FR
    integer s__AubreyFurHats_func=0
    constant integer si__rej4=49
    integer array s__rej4_int
    integer array s__rej4_timed
    boolean array s__rej4_use
    integer array s__rej4_FR
    integer array s__rej4_FL
    integer s__rej4_func=0
    constant integer si__bzbe=50
    integer s__bzbe_launcher
    integer s__bzbe_func
    timer array s__bzbe_Tm
    constant integer si__I0CE=51
    timer array s__I0CE_buff_tm
    integer array s__I0CE_bufflv
    integer array s__I0CE_atk
    constant integer si__odef=52
    boolean array s__odef_Use
    integer array s__odef_FL
    integer array s__odef_FR
    integer s__odef_Func=0
    sound s__odef_snd_ReviveNightElf=null
    integer array s__odef_Type_Id
    integer array s__odef_Source
    integer array s__odef_Atk_trig
    integer array s__odef_time
    integer array s__odef_count
    constant integer si__I092=53
    timer array s__I092_Timer
    timer array s__I092_Buff
    constant integer si__I0D8=54
    timer array s__I0D8_Timer
    timer array s__I0D8_Buff
    constant integer si__I0B2_table=55
    integer si__I0B2_table_F=0
    integer si__I0B2_table_I=0
    integer array si__I0B2_table_V
    integer array s__I0B2_table_user
    integer array s__I0B2_table_trig_dg
    timer array s__I0B2_table_timer_dg
    timer array s__I0B2_table_timer_dt
    integer array s__I0B2_table_value_duration
    integer array s__I0B2_table_value_cd
    real array s__I0B2_table_value_ang
    real array s__I0B2_table_value_damage
    integer array s__I0B2_table_value_agi
    integer array s__I0B2_table_value_hp
    integer array s__I0B2_table_vessel
    integer array s__I0B2_table_v_size
    constant integer si__I0B2=56
    integer array s__I0B2_Table
    constant integer si__I0B3=57
    integer array s__I0B3_model
    timer array s__I0B3_time
    integer array s__I0B3_Lv
    timer array s__I0B3_buff_t
    integer array s__I0B3_buff_lv
    real array s__I0B3_buff_stat
    integer array s__I0B3_buff_str
    integer array s__I0B3_buff_agi
    integer array s__I0B3_buff_int
    constant integer si__I0CA=58
    integer array s__I0CA_tak_trig
    timer array s__I0CA_buff_timer
    timer array s__I0CA_tak_timer
    boolean array s__I0CA_user_spell
    integer array s__I0CA_buff_int
    integer array s__I0CA_buff_textdis
    real array s__I0CA_tak_damage
    constant integer si__I0CO=59
    integer array s__I0CO_atk_trig
    timer array s__I0CO_buff_timer
    boolean array s__I0CO_cooling_user
    integer array s__I0CO_charged_rate
    real array s__I0CO_charged_max
    real array s__I0CO_charged_value
    constant integer si__I0CR=60
    integer array s__I0CR_Shield
    timer array s__I0CR_Time
    integer array s__I0CR_Count
    constant integer si__dsum=61
    integer array s__dsum_Effect
    timer array s__dsum_Time
    constant integer si__kybl=62
    constant integer s__kybl_unit_Int=$96
    constant real s__kybl_unit_MATK=3
    integer array s__kybl_spell_trig
    timer array s__kybl_buff_timer
    integer array s__kybl_buff_lv
    constant integer si__rde4=63
    constant real s__rde4_unit_MATK=2
    integer array s__rde4_spell_trig
    timer array s__rde4_buff_timer
    integer array s__rde4_buff_lv
    constant integer si__rde2=64
    timer array s__rde2_time
    integer array s__rde2_atk_trig
    constant integer si__sclp=65
    timer array s__sclp_buff_time
    integer array s__sclp_buff_mdef
    timer array s__sclp_time
    integer array s__sclp_model
    constant integer si__I06D=66
    integer array s__I06D_shield_trig
    real array s__I06D_shield_life
    timer array s__I06D_time
    constant integer si__PhantomSword=67
    integer array s__PhantomSword_last
    integer array s__PhantomSword_next
    integer array s__PhantomSword_vessel
    integer array s__PhantomSword_count
    integer array s__PhantomSword_cycle
    integer array s__PhantomSword_time
    integer s__PhantomSword_func
    constant integer si__Shadow_Storm=68
    integer si__Shadow_Storm_F=0
    integer si__Shadow_Storm_I=0
    integer array si__Shadow_Storm_V
    integer array s__Shadow_Storm_id
    integer array s__Shadow_Storm_fb
    integer array s__Shadow_Storm_fx
    integer array s__Shadow_Storm_count
    integer array s__Shadow_Storm_L
    integer array s__Shadow_Storm_R
    constant integer si__SoulBoltBuff=69
    integer array s__SoulBoltBuff_Source
    integer array s__SoulBoltBuff_Duration
    boolean array s__SoulBoltBuff_Use
    integer array s__SoulBoltBuff_Last
    integer array s__SoulBoltBuff_Next
    integer s__SoulBoltBuff_Func=0
    constant integer si__SoulBolt=70
    real array s__SoulBolt_damage
    integer s__SoulBolt_launcher
    integer s__SoulBolt_func
    constant integer si__AEim=71
    integer array s__AEim_next
    integer array s__AEim_last
    boolean array s__AEim_Off
    integer array s__AEim_Timed
    integer s__AEim_func
    constant integer si__A08B=72
    integer array s__A08B_next
    integer array s__A08B_last
    boolean array s__A08B_Off
    integer array s__A08B_Effect
    group array s__A08B_Group
    integer array s__A08B_Range
    real array s__A08B_Damage
    integer s__A08B_func
    constant integer si__A087=73
    integer array s__A087_next
    integer array s__A087_last
    boolean array s__A087_use
    lightning array s__A087_lig
    integer array s__A087_count
    real array s__A087_Damage
    integer s__A087_func
    constant integer si__ACim=74
    integer array s__ACim_next
    integer array s__ACim_last
    boolean array s__ACim_Off
    integer array s__ACim_Timed
    integer array s__ACim_HpRegen
    integer s__ACim_func
    constant integer si__Bleeding=75
    integer si__Bleeding_F=0
    integer si__Bleeding_I=0
    integer array si__Bleeding_V
    integer array s__Bleeding_source
    integer array s__Bleeding_target
    integer array s__Bleeding_counts
    integer array s__Bleeding_duration
    real array s__Bleeding_damage
    constant integer si__SoulCharge=76
    real array s__SoulCharge_CureValue
    integer array s__SoulCharge_Number
    integer array s__SoulCharge_MaxNumber
    integer array s__SoulCharge_SlotValue
    boolean s__SoulCharge_Off=true
    constant integer si__Soul=77
    integer si__Soul_F=0
    integer si__Soul_I=0
    integer array si__Soul_V
    integer array s__Soul_Hero
    boolean array s__Soul_IsMove
    boolean array s__Soul_IsAbsorb
    unit array s__Soul_Unit
    integer array s__Soul_lifetime
    real array s__Soul_PointX
    real array s__Soul_PointY
    real array s__Soul_TargetX
    real array s__Soul_TargetY
    real array s__Soul_Value
    integer array s__Soul_last
    integer array s__Soul_next
    integer array s__Soul_Root
    integer array s__Soul_Last_Hero
    integer array s__Soul_Next_Hero
    integer s__Soul_rY=0
    constant integer si__DeathOrb=78
    real array s__DeathOrb_damage
    integer s__DeathOrb_launcher
    integer s__DeathOrb_func
    constant integer si__Blaze=79
    integer array s__Blaze_damage_lv
    real array s__Blaze_damage
    integer s__Blaze_launcher
    integer s__Blaze_func
    constant integer si__SpellA0NP=80
    integer array s__SpellA0NP_Unit
    integer array s__SpellA0NP_Eff
    integer array s__SpellA0NP_time
    real array s__SpellA0NP_damage
    integer s__SpellA0NP_func
    constant integer si__FlamerBreath=81
    real array s__FlamerBreath_damage
    integer s__FlamerBreath_launcher
    integer s__FlamerBreath_func
    constant integer si__SpellA0NR=82
    integer array s__SpellA0NR_Unit
    integer array s__SpellA0NR_Eff
    integer array s__SpellA0NR_Eff2
    integer array s__SpellA0NR_time
    real array s__SpellA0NR_damage_a
    real array s__SpellA0NR_damage_b
    integer s__SpellA0NR_func
    constant integer si__WaterBombFX=83
    integer array s__WaterBombFX_eff1
    integer array s__WaterBombFX_eff2
    integer array s__WaterBombFX_size
    boolean array s__WaterBombFX_bool_A0O0
    real array s__WaterBombFX_damage
    real array s__WaterBombFX_damage2
    integer s__WaterBombFX_launcher
    integer s__WaterBombFX_func
    constant integer si__WaterStreamFX=84
    boolean array s__WaterStreamFX_bool_A0NV
    integer array s__WaterStreamFX_count
    real array s__WaterStreamFX_damage
    integer s__WaterStreamFX_launcher
    integer s__WaterStreamFX_func
    constant integer si__Cyclone=85
    integer array s__Cyclone_Unit
    integer array s__Cyclone_eff_model
    integer array s__Cyclone_vessel
    integer array s__Cyclone_time
    real array s__Cyclone_damage
    constant real s__Cyclone_Range=400
    integer s__Cyclone_func
    constant integer si__WindBlast=86
    integer array s__WindBlast_count
    real array s__WindBlast_damage
    integer s__WindBlast_launcher
    integer s__WindBlast_func
    constant integer si__BigRock=87
    integer array s__BigRock_eff
    real array s__BigRock_damage
    integer s__BigRock_launcher
    integer s__BigRock_func
    constant integer si__FireBall=88
    real array s__FireBall_damage
    integer s__FireBall_launcher
    integer s__FireBall_func
    constant integer si__MeteorStrikeShard=89
    integer array s__MeteorStrikeShard_count
    real array s__MeteorStrikeShard_damage
    integer s__MeteorStrikeShard_launcher
    integer s__MeteorStrikeShard_func
    constant integer si__IceShard=90
    real array s__IceShard_damage
    integer s__IceShard_launcher
    integer s__IceShard_func
    constant integer si__SkillsA00W=91
    integer si__SkillsA00W_F=0
    integer si__SkillsA00W_I=0
    integer array si__SkillsA00W_V
    integer array s__SkillsA00W_source
    integer array s__SkillsA00W_model
    boolean array s__SkillsA00W_bool
    timer array s__SkillsA00W_tm
    group array s__SkillsA00W_g
    integer array s__SkillsA00W_time
    real array s__SkillsA00W_damage
    real array s__SkillsA00W_rx
    real array s__SkillsA00W_ry
    integer array s__SkillsA00W_ano
    integer array s__SkillsA00W_F7
    constant integer si__SkillsA00Y=92
    integer si__SkillsA00Y_F=0
    integer si__SkillsA00Y_I=0
    integer array si__SkillsA00Y_V
    integer array s__SkillsA00Y_source
    integer array s__SkillsA00Y_target
    integer array s__SkillsA00Y_count
    group array s__SkillsA00Y_g
    real array s__SkillsA00Y_damage
    real array s__SkillsA00Y_tx
    real array s__SkillsA00Y_ty
    constant integer si__Illusion=93
    integer array s__Illusion_Unit
    integer array s__Illusion_Time
    real array s__Illusion_X
    real array s__Illusion_Y
    integer array s__Illusion_last
    integer array s__Illusion_next
    integer s__Illusion_func
    constant integer si__Star=94
    real array s__Star_damage
    integer s__Star_launcher
    integer s__Star_func
    constant integer si__ExplosiveArrow=95
    real array s__ExplosiveArrow_damage
    integer s__ExplosiveArrow_launcher
    integer s__ExplosiveArrow_func
    constant integer si__ZephyrusProjectile=96
    boolean array s__ZephyrusProjectile_bool
    boolean array s__ZephyrusProjectile_crit
    real array s__ZephyrusProjectile_damage
    integer s__ZephyrusProjectile_launcher
    integer s__ZephyrusProjectile_func
    constant integer si__WindField=97
    integer si__WindField_F=0
    integer si__WindField_I=0
    integer array si__WindField_V
    integer array s__WindField_source
    integer array s__WindField_model
    integer array s__WindField_lv
    integer array s__WindField_spread
    integer array s__WindField_time
    real array s__WindField_range
    real array s__WindField_damage
    boolean array s__WindField_bool
    integer array s__WindField_last
    integer array s__WindField_next
    integer s__WindField_index=0
    integer s__WindField_R=0
    integer s__WindField_func=0
    constant integer si__LightBreeze=98
    integer array s__LightBreeze_vessel
    integer array s__LightBreeze_count
    integer array s__LightBreeze_number
    real array s__LightBreeze_vx
    real array s__LightBreeze_vy
    integer s__LightBreeze_launcher
    integer s__LightBreeze_func
    constant integer si__FlameShot=99
    integer array s__FlameShot_eff
    boolean array s__FlameShot_bool
    real array s__FlameShot_damage
    integer s__FlameShot_launcher
    integer s__FlameShot_func
    constant integer si__A0QN=100
    integer array s__A0QN_eff
    integer array s__A0QN_count
    real array s__A0QN_damage
    integer s__A0QN_launcher
    integer s__A0QN_func
    constant integer si__MagicBallista=101
    real array s__MagicBallista_damage
    integer s__MagicBallista_launcher
    integer s__MagicBallista_func
    constant integer si__HuanYing=102
    real array s__HuanYing_px
    real array s__HuanYing_py
    real array s__HuanYing_pz
    real array s__HuanYing_pa
    integer array s__HuanYing_end
    integer array s__HuanYing_id
    integer array s__HuanYing_vessel
    integer array s__HuanYing_count
    timer array s__HuanYing_tm
    boolean array s__HuanYing_use
    constant integer si__A0YA=103
    boolean array s__A0YA_use
    integer array s__A0YA_v
    integer array s__A0YA_index
    real array s__A0YA_ange
    integer array s__A0YA_last
    integer array s__A0YA_next
    integer s__A0YA_func=0
    constant integer si__A0YC=104
    integer si__A0YC_F=0
    integer si__A0YC_I=0
    integer array si__A0YC_V
    integer array s__A0YC_id
    integer array s__A0YC_order
    integer array s__A0YC_target
    real array s__A0YC_px
    real array s__A0YC_py
    real array s__A0YC_c
    integer array s__A0YC_v
    boolean array s__A0YC_bool
    integer array s__A0YC_root
    integer array s__A0YC_last
    integer array s__A0YC_next
    integer array s__A0YC_data
    constant integer si__formula=105
    integer s__formula_Index=0
    integer array s__formula_wG
    integer array s__formula_WG
    integer array s__formula_yG
    integer array s__formula_YG
    constant integer si__Quest__questdrops_tabale=106
    integer si__Quest__questdrops_tabale_F=0
    integer si__Quest__questdrops_tabale_I=0
    integer array si__Quest__questdrops_tabale_V
    integer array s__Quest__questdrops_tabale_index
    real array s___Quest__questdrops_tabale_t
    constant integer s___Quest__questdrops_tabale_t_size=5
    integer array s__Quest__questdrops_tabale_t
    integer array s___Quest__questdrops_tabale_id
    constant integer s___Quest__questdrops_tabale_id_size=5
    integer array s__Quest__questdrops_tabale_id
    constant integer si__LavaBomb=109
    unit array s__LavaBomb_atkunit
    boolean array s__LavaBomb_isBag
    integer array s__LavaBomb_f
    integer array s__LavaBomb_b
    real array s__LavaBomb_t
    integer s__LavaBomb_func
    constant integer si__cs_table=110
    integer si__cs_table_F=0
    integer si__cs_table_I=0
    integer array si__cs_table_V
    integer array s__cs_table_Lv
    real array s__cs_table_X
    real array s__cs_table_Y
    integer array si__barrage_type
    trigger array st__barrage_onDestroy
    integer array si__I0B2_table_type
    trigger array st__I0B2_table_onDestroy
    trigger st__Multiboard_onDestroy
    trigger st__Button_onDestroy
    trigger st__Dialog_onDestroy
    trigger st__PhantomSword_AddNumber
    trigger st__Shadow_Storm_enum
    trigger st__Illusion_getunit
    trigger st__A0YC_randenum
    trigger array st___prototype3
    trigger array st___prototype6
    integer f__result_integer
    trigger array st___prototype7
    trigger array st___prototype8
    trigger array st___prototype10
    trigger array st___prototype15
    boolean f__result_boolean
    trigger array st___prototype23
    trigger array st___prototype46
    trigger array st___prototype62
    trigger array st___prototype89
    trigger array st___prototype100
    trigger array st___prototype111
    trigger array st___prototype151
    real f__result_real
    trigger array st___prototype163
    trigger array st___prototype177
    trigger array st___prototype195
    trigger array st___prototype200
    trigger array st___prototype202
    trigger array st___prototype205
    trigger array st___prototype234
    trigger array st___prototype246
    trigger array st___prototype266
    trigger array st___prototype269
    trigger array st___prototype271
    integer f__arg_integer1
    integer f__arg_integer2
    integer f__arg_integer3
    real f__arg_real1
    real f__arg_real2
    player f__arg_player1
    code f__arg_code1
    unit f__arg_unit1
    unit f__arg_unit2
    boolexpr f__arg_boolexpr1
    boolean f__arg_boolean1
    item f__arg_item1
    integer f__arg_this
    unit f__result_unit
    gamecache gamecache001=InitGameCache("4head")
    trigger trigger053=CreateTrigger()
    trigger trigger054=CreateTrigger()
    trigger trigger055=CreateTrigger()
    trigger trigger056=CreateTrigger()
    trigger trigger057=CreateTrigger()
    trigger trigger058=CreateTrigger()
    trigger trigger059=CreateTrigger()
    string string006="-load  "
    force force001=CreateForce()
    force force002=CreateForce()
    group group016=CreateGroup()
    string array strings036
    integer array integers2557
    integer array integers2558
    string string007
    integer integer1142=0
    integer integer1143=0
    integer integer1144=0
    integer integer1145=0
    trigger trigger060
    string string008
    real real279=0
    real real280=0
    real real281=0
    real real282=0
    rect rect063
    real real283
endglobals



 native UnitAlive takes unit u returns boolean


 //polygon allocate / deallocate

 function s__polygon__allocate takes nothing returns integer
    local integer this = si__polygon_F
    if this != 0 then
        set si__polygon_F = si__polygon_V[this]
    else
        set si__polygon_I=si__polygon_I+1
        set this=si__polygon_I
    endif
    if(this>80)then
        return 0
    endif
    set s__polygon_X[this]=(this-1)*100
    set s__polygon_Y[this]=(this-1)*100
    set si__polygon_V[this]=-1
    return this
 endfunction


 function s__polygon_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__polygon_V[this]!=-1)then
        return
    endif
    set si__polygon_V[this]=si__polygon_F
    set si__polygon_F=this
 endfunction
 
 //cs table allocate / deallocate

 function s__cs_table__allocate takes nothing returns integer
    local integer this=si__cs_table_F
    if(this!=0)then
        set si__cs_table_F=si__cs_table_V[this]
    else
        set si__cs_table_I=si__cs_table_I+1
        set this=si__cs_table_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__cs_table_V[this]=-1
    return this
 endfunction
 

 function s__cs_table_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__cs_table_V[this]!=-1)then
        return
    endif
    set si__cs_table_V[this]=si__cs_table_F
    set si__cs_table_F=this
 endfunction

 
 //quest qest drops table allocate / deallocate
 //"tabale"

 function s__Quest__questdrops_tabale__allocate takes nothing returns integer
    local integer this=si__Quest__questdrops_tabale_F
    if(this!=0)then
        set si__Quest__questdrops_tabale_F=si__Quest__questdrops_tabale_V[this]
    else
        set si__Quest__questdrops_tabale_I=si__Quest__questdrops_tabale_I+1
        set this=si__Quest__questdrops_tabale_I
    endif
    if(this>$665)then
        return 0
    endif
    set s__Quest__questdrops_tabale_t[this]=(this-1)*5
    set s__Quest__questdrops_tabale_id[this]=(this-1)*5
    set s__Quest__questdrops_tabale_index[this]=0
    set si__Quest__questdrops_tabale_V[this]=-1
    return this
 endfunction
 

 function s__Quest__questdrops_tabale_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Quest__questdrops_tabale_V[this]!=-1)then
        return
    endif
    set si__Quest__questdrops_tabale_V[this]=si__Quest__questdrops_tabale_F
    set si__Quest__questdrops_tabale_F=this
 endfunction
 
 //c A0YC random number

 function sc__A0YC_randenum takes integer this,integer vessel,real x,real y,player p returns nothing
    set f__arg_this=this
    set f__arg_integer1=vessel
    set f__arg_real1=x
    set f__arg_real2=y
    set f__arg_player1=p
    call TriggerEvaluate(st__A0YC_randenum)
 endfunction

 //A0YC allocate / deallocate

 function s__A0YC__allocate takes nothing returns integer
    local integer this=si__A0YC_F
    if(this!=0)then
        set si__A0YC_F=si__A0YC_V[this]
    else
        set si__A0YC_I=si__A0YC_I+1
        set this=si__A0YC_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__A0YC_V[this]=-1
    return this
 endfunction


 function s__A0YC_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__A0YC_V[this]!=-1)then
        return
    endif
    set si__A0YC_V[this]=si__A0YC_F
    set si__A0YC_F=this
 endfunction
 
 //Trig allocate / deallocate

 function s__Trig__allocate takes nothing returns integer
    local integer this=si__Trig_F
    if(this!=0)then
        set si__Trig_F=si__Trig_V[this]
    else
        set si__Trig_I=si__Trig_I+1
        set this=si__Trig_I
    endif
    if(this>8190)then
        return 0
    endif
    set s__Trig_trig[this]=CreateTrigger()
    set si__Trig_V[this]=-1
    return this
 endfunction


 function s__Trig_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Trig_V[this]!=-1)then
        return
    endif
    set si__Trig_V[this]=si__Trig_F
    set si__Trig_F=this
 endfunction

 //WindField allocate / deallocate

 function s__WindField__allocate takes nothing returns integer
    local integer this=si__WindField_F
    if(this!=0)then
        set si__WindField_F=si__WindField_V[this]
    else
        set si__WindField_I=si__WindField_I+1
        set this=si__WindField_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__WindField_V[this]=-1
    return this
 endfunction


 function s__WindField_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__WindField_V[this]!=-1)then
        return
    endif
    set si__WindField_V[this]=si__WindField_F
    set si__WindField_F=this
 endfunction
 
 //BezierCurve allocate / deallocate

 function s__BezierCurve__allocate takes nothing returns integer
    local integer this=si__BezierCurve_F
    if(this!=0)then
        set si__BezierCurve_F=si__BezierCurve_V[this]
    else
        set si__BezierCurve_I=si__BezierCurve_I+1
        set this=si__BezierCurve_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__BezierCurve_V[this]=-1
    return this
 endfunction


 function s__BezierCurve_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__BezierCurve_V[this]!=-1)then
        return
    endif
    set si__BezierCurve_V[this]=si__BezierCurve_F
    set si__BezierCurve_F=this
 endfunction
 
 //Sound List allocate / deallocate

 function s__Sound_list__allocate takes nothing returns integer
    local integer this=si__Sound_list_F
    if(this!=0)then
        set si__Sound_list_F=si__Sound_list_V[this]
    else
        set si__Sound_list_I=si__Sound_list_I+1
        set this=si__Sound_list_I
    endif
    if(this>8190)then
        return 0
    endif
    set s__Sound_list_volume[this]=$7F
    set s__Sound_list_pitch[this]=1
    set si__Sound_list_V[this]=-1
    return this
 endfunction
 

 function s__Sound_list_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Sound_list_V[this]!=-1)then
        return
    endif
    set si__Sound_list_V[this]=si__Sound_list_F
    set si__Sound_list_F=this
 endfunction
 
 //c_Illusion get unit

 function sc__Illusion_getunit takes integer this returns unit
    set f__arg_integer1=this
    call TriggerEvaluate(st__Illusion_getunit)
    return f__result_unit
 endfunction
 
 //skills A00Y allocate / deallocate

 function s__SkillsA00Y__allocate takes nothing returns integer
    local integer this=si__SkillsA00Y_F
    if(this!=0)then
        set si__SkillsA00Y_F=si__SkillsA00Y_V[this]
    else
        set si__SkillsA00Y_I=si__SkillsA00Y_I+1
        set this=si__SkillsA00Y_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__SkillsA00Y_V[this]=-1
    return this
 endfunction
 

 function s__SkillsA00Y_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__SkillsA00Y_V[this]!=-1)then
        return
    endif
    set si__SkillsA00Y_V[this]=si__SkillsA00Y_F
    set si__SkillsA00Y_F=this
 endfunction
 
 //skills A00W allocate / deallocate

 function s__SkillsA00W__allocate takes nothing returns integer
    local integer this=si__SkillsA00W_F
    if(this!=0)then
        set si__SkillsA00W_F=si__SkillsA00W_V[this]
    else
        set si__SkillsA00W_I=si__SkillsA00W_I+1
        set this=si__SkillsA00W_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__SkillsA00W_V[this]=-1
    return this
 endfunction
 

 function s__SkillsA00W_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__SkillsA00W_V[this]!=-1)then
        return
    endif
    set si__SkillsA00W_V[this]=si__SkillsA00W_F
    set si__SkillsA00W_F=this
 endfunction
 
 //Multiboard allocate / deallocate + on destroy()

 function sc__Multiboard_onDestroy takes integer this returns nothing
    set f__arg_this=this
    call TriggerEvaluate(st__Multiboard_onDestroy)
 endfunction


 function s__Multiboard__allocate takes nothing returns integer
    local integer this=si__Multiboard_F
    if(this!=0)then
        set si__Multiboard_F=si__Multiboard_V[this]
    else
        set si__Multiboard_I=si__Multiboard_I+1
        set this=si__Multiboard_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__Multiboard_V[this]=-1
    return this
 endfunction
 

 function sc__Multiboard_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Multiboard_V[this]!=-1)then
        return
    endif
    set f__arg_this=this
    call TriggerEvaluate(st__Multiboard_onDestroy)
    set si__Multiboard_V[this]=si__Multiboard_F
    set si__Multiboard_F=this
 endfunction
 
 //Button allocate / deallocate + on destroy

 function sc__Button_onDestroy takes integer this returns nothing
    if s__Button_an[this]!=null then
        call RemoveSavedInteger(BYHT2,system_Dialog__fO,GetHandleId(s__Button_an[this]))
        set s__Button_an[this]=null
    endif
    if s__Button_c[this]!=null then
        call DestroyBoolExpr(s__Button_c[this])
        set s__Button_c[this]=null
    endif
 endfunction
 

 function s__Button__allocate takes nothing returns integer
    local integer this=si__Button_F
    if(this!=0)then
        set si__Button_F=si__Button_V[this]
    else
        set si__Button_I=si__Button_I+1
        set this=si__Button_I
    endif
    if(this>8190)then
        return 0
    endif
    set s__Button_id[this]=0
    set s__Button_isdis[this]=true
    set si__Button_V[this]=-1
    return this
 endfunction
 

 function sc__Button_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Button_V[this]!=-1)then
        return
    endif
    set f__arg_this=this
    call TriggerEvaluate(st__Button_onDestroy)
    set si__Button_V[this]=si__Button_F
    set si__Button_F=this
 endfunction
 
 //Dialog allocate / deallocate + on destroy

 function sc__Dialog_onDestroy takes integer this returns nothing
    set f__arg_this=this
    call TriggerEvaluate(st__Dialog_onDestroy)
 endfunction
 

 function s__Dialog__allocate takes nothing returns integer
    local integer this=si__Dialog_F
    if(this!=0)then
        set si__Dialog_F=si__Dialog_V[this]
    else
        set si__Dialog_I=si__Dialog_I+1
        set this=si__Dialog_I
    endif
    if(this>8190)then
        return 0
    endif
    set s__Dialog_trig[this]=CreateTrigger()
    set s__Dialog_di[this]=DialogCreate()
    set s__Dialog_b[this]=true
    set s__Dialog_ON[this]=true
    set si__Dialog_V[this]=-1
    return this
 endfunction
 

 function sc__Dialog_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Dialog_V[this]!=-1)then
        return
    endif
    set f__arg_this=this
    call TriggerEvaluate(st__Dialog_onDestroy)
    set si__Dialog_V[this]=si__Dialog_F
    set si__Dialog_F=this
 endfunction
 
 // item cd allocate / deallocate

 function s__itemcd__allocate takes nothing returns integer
    local integer this=si__itemcd_F
    if(this!=0)then
        set si__itemcd_F=si__itemcd_V[this]
    else
        set si__itemcd_I=si__itemcd_I+1
        set this=si__itemcd_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__itemcd_V[this]=-1
    return this
 endfunction
  

 function s__itemcd_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__itemcd_V[this]!=-1)then
        return
    endif
    set si__itemcd_V[this]=si__itemcd_F
    set si__itemcd_F=this
 endfunction
 
 //locationeZ allocate / deallocate

 function s__locationez__allocate takes nothing returns integer
    local integer this=si__locationez_F
    if(this!=0)then
        set si__locationez_F=si__locationez_V[this]
    else
        set si__locationez_I=si__locationez_I+1
        set this=si__locationez_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__locationez_V[this]=-1
    return this
 endfunction
 

 function s__locationez_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__locationez_V[this]!=-1)then
        return
    endif
    set si__locationez_V[this]=si__locationez_F
    set si__locationez_F=this
 endfunction
 
 //fog table allocate / deallocate

 function s__fog_table__allocate takes nothing returns integer
    local integer this=si__fog_table_F
    if(this!=0)then
        set si__fog_table_F=si__fog_table_V[this]
    else
        set si__fog_table_I=si__fog_table_I+1
        set this=si__fog_table_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__fog_table_V[this]=-1
    return this
 endfunction
  

 function s__fog_table_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__fog_table_V[this]!=-1)then
        return
    endif
    set si__fog_table_V[this]=si__fog_table_F
    set si__fog_table_F=this
 endfunction
 
 //barrage allocate / deallocate

 function s__barrage__allocate takes nothing returns integer
    local integer this=si__barrage_F
    if(this!=0)then
        set si__barrage_F=si__barrage_V[this]
    else
        set si__barrage_I=si__barrage_I+1
        set this=si__barrage_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__barrage_type[this]=18
    set si__barrage_V[this]=-1
    return this
 endfunction
  

 function sc__barrage_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__barrage_V[this]!=-1)then
        return
    endif
    set f__arg_this=this
    call TriggerEvaluate(st__barrage_onDestroy[si__barrage_type[this]])
    set si__barrage_V[this]=si__barrage_F
    set si__barrage_F=this
 endfunction
 

function s__Soul__allocate takes nothing returns integer
    local integer this=si__Soul_F
    if(this!=0)then
        set si__Soul_F=si__Soul_V[this]
    else
        set si__Soul_I=si__Soul_I+1
        set this=si__Soul_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__Soul_V[this]=-1
    return this
endfunction

function s__Soul_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Soul_V[this]!=-1)then
        return
    endif
    set si__Soul_V[this]=si__Soul_F
    set si__Soul_F=this
endfunction

function s__Bleeding__allocate takes nothing returns integer
    local integer this=si__Bleeding_F
    if(this!=0)then
        set si__Bleeding_F=si__Bleeding_V[this]
    else
        set si__Bleeding_I=si__Bleeding_I+1
        set this=si__Bleeding_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__Bleeding_V[this]=-1
    return this
endfunction

function s__Bleeding_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Bleeding_V[this]!=-1)then
        return
    endif
    set si__Bleeding_V[this]=si__Bleeding_F
    set si__Bleeding_F=this
endfunction

function s__SoulBolt__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=70
    set kthis=this
    return this
endfunction

function sc__Shadow_Storm_enum takes integer this,integer f returns nothing
    set f__arg_this=this
    set f__arg_integer1=f
    call TriggerEvaluate(st__Shadow_Storm_enum)
endfunction

function s__Shadow_Storm__allocate takes nothing returns integer
    local integer this=si__Shadow_Storm_F
    if(this!=0)then
        set si__Shadow_Storm_F=si__Shadow_Storm_V[this]
    else
        set si__Shadow_Storm_I=si__Shadow_Storm_I+1
        set this=si__Shadow_Storm_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__Shadow_Storm_V[this]=-1
    return this
endfunction

function s__Shadow_Storm_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Shadow_Storm_V[this]!=-1)then
        return
    endif
    set si__Shadow_Storm_V[this]=si__Shadow_Storm_F
    set si__Shadow_Storm_F=this
endfunction

function sc__PhantomSword_AddNumber takes integer this,integer i returns nothing
    set f__arg_this=this
    set f__arg_integer1=i
    call TriggerEvaluate(st__PhantomSword_AddNumber)
endfunction

function s__MissileTypeA__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=19
    set kthis=this
    return this
endfunction

function s__I0B2_table__allocate takes nothing returns integer
    local integer this=si__I0B2_table_F
    if(this!=0)then
        set si__I0B2_table_F=si__I0B2_table_V[this]
    else
        set si__I0B2_table_I=si__I0B2_table_I+1
        set this=si__I0B2_table_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__I0B2_table_type[this]=55
    set si__I0B2_table_V[this]=-1
    return this
endfunction

function sc__I0B2_table_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__I0B2_table_V[this]!=-1)then
        return
    endif
    set f__arg_this=this
    call TriggerEvaluate(st__I0B2_table_onDestroy[si__I0B2_table_type[this]])
    set si__I0B2_table_V[this]=si__I0B2_table_F
    set si__I0B2_table_F=this
endfunction

function s__bzbe__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=50
    set kthis=this
    return this
endfunction

function s__A0QR__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=45
    set kthis=this
    return this
endfunction

function s__A0QT__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=44
    set kthis=this
    return this
endfunction

function s__glsk_hash__allocate takes nothing returns integer
    local integer this=si__glsk_hash_F
    if(this!=0)then
        set si__glsk_hash_F=si__glsk_hash_V[this]
    else
        set si__glsk_hash_I=si__glsk_hash_I+1
        set this=si__glsk_hash_I
    endif
    if(this>8190)then
        return 0
    endif
    set s__glsk_hash_size[this]=0
    set si__glsk_hash_V[this]=-1
    return this
endfunction

function s__glsk_hash_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__glsk_hash_V[this]!=-1)then
        return
    endif
    set si__glsk_hash_V[this]=si__glsk_hash_F
    set si__glsk_hash_F=this
endfunction

function s__glsk_list__allocate takes nothing returns integer
    local integer this=si__glsk_list_F
    if(this!=0)then
        set si__glsk_list_F=si__glsk_list_V[this]
    else
        set si__glsk_list_I=si__glsk_list_I+1
        set this=si__glsk_list_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__glsk_list_V[this]=-1
    return this
endfunction

function s__glsk_list_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__glsk_list_V[this]!=-1)then
        return
    endif
    set si__glsk_list_V[this]=si__glsk_list_F
    set si__glsk_list_F=this
endfunction

function s__IceStorm__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=32
    set kthis=this
    return this
endfunction

function s__pgin__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=31
    set kthis=this
    return this
endfunction

function s__poison__allocate takes nothing returns integer
    local integer this=si__poison_F
    if(this!=0)then
        set si__poison_F=si__poison_V[this]
    else
        set si__poison_I=si__poison_I+1
        set this=si__poison_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__poison_V[this]=-1
    return this
endfunction

function s__poison_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__poison_V[this]!=-1)then
        return
    endif
    set si__poison_V[this]=si__poison_F
    set si__poison_F=this
endfunction

function s__FrostBarrage__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=27
    set kthis=this
    return this
endfunction

function s__Skills_Replace__allocate takes nothing returns integer
    local integer this=si__Skills_Replace_F
    if(this!=0)then
        set si__Skills_Replace_F=si__Skills_Replace_V[this]
    else
        set si__Skills_Replace_I=si__Skills_Replace_I+1
        set this=si__Skills_Replace_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__Skills_Replace_V[this]=-1
    return this
endfunction

function s__Skills_Replace_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Skills_Replace_V[this]!=-1)then
        return
    endif
    set si__Skills_Replace_V[this]=si__Skills_Replace_F
    set si__Skills_Replace_F=this
endfunction

function s__drops_tabale__allocate takes nothing returns integer
    local integer this=si__drops_tabale_F
    if(this!=0)then
        set si__drops_tabale_F=si__drops_tabale_V[this]
    else
        set si__drops_tabale_I=si__drops_tabale_I+1
        set this=si__drops_tabale_I
    endif
    if(this>408)then
        return 0
    endif
    set s__drops_tabale_r_v[this]=(this-1)*20
    set s__drops_tabale_r_id[this]=(this-1)*20
    set s__drops_tabale_index[this]=0
    set s__drops_tabale_max[this]=0
    set si__drops_tabale_V[this]=-1
    return this
endfunction

function s__drops_tabale_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__drops_tabale_V[this]!=-1)then
        return
    endif
    set si__drops_tabale_V[this]=si__drops_tabale_F
    set si__drops_tabale_F=this
endfunction

function s__unitseate_table__allocate takes nothing returns integer
    local integer this=si__unitseate_table_F
    if(this!=0)then
        set si__unitseate_table_F=si__unitseate_table_V[this]
    else
        set si__unitseate_table_I=si__unitseate_table_I+1
        set this=si__unitseate_table_I
    endif
    if(this>8190)then
        return 0
    endif
    set si__unitseate_table_V[this]=-1
    return this
endfunction

function s__unitseate_table_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__unitseate_table_V[this]!=-1)then
        return
    endif
    set si__unitseate_table_V[this]=si__unitseate_table_F
    set si__unitseate_table_F=this
endfunction

function s__SoulMissile__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=20
    set kthis=this
    return this
endfunction

function s__MagicBallista__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=101
    set kthis=this
    return this
endfunction

function s__I0B2__allocate takes nothing returns integer
    local integer this=s__I0B2_table__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__I0B2_table_type[this]=56
    set kthis=this
    return this
endfunction

function s__DeathOrb__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=78
    set kthis=this
    return this
endfunction

function s__Blaze__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=79
    set kthis=this
    return this
endfunction

function s__FlamerBreath__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=81
    set kthis=this
    return this
endfunction

function s__WaterBombFX__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=83
    set kthis=this
    return this
endfunction

function s__WaterStreamFX__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=84
    set kthis=this
    return this
endfunction

function s__WindBlast__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=86
    set kthis=this
    return this
endfunction

function s__BigRock__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=87
    set kthis=this
    return this
endfunction

function s__FireBall__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=88
    set kthis=this
    return this
endfunction

function s__MeteorStrikeShard__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=89
    set kthis=this
    return this
endfunction

function s__IceShard__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=90
    set kthis=this
    return this
endfunction

function s__Star__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=94
    set kthis=this
    return this
endfunction

function s__ExplosiveArrow__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=95
    set kthis=this
    return this
endfunction

function s__ZephyrusProjectile__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=96
    set kthis=this
    return this
endfunction

function s__LightBreeze__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=98
    set kthis=this
    return this
endfunction

function s__FlameShot__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=99
    set kthis=this
    return this
endfunction

function s__A0QN__allocate takes nothing returns integer
    local integer this=s__barrage__allocate()
    local integer kthis
    if(this==0)then
        return 0
    endif
    set si__barrage_type[this]=100
    set kthis=this
    return this
endfunction
//END ALLOC / DEALLOC

// EXECUTE + EVALUATES

 function sc___prototype3_execute takes integer i,integer a1 returns nothing
    set f__arg_integer1=a1
    call TriggerExecute(st___prototype3[i])
 endfunction

 function sc___prototype3_evaluate takes integer i,integer a1 returns nothing
    set f__arg_integer1=a1
    call TriggerEvaluate(st___prototype3[i])
 endfunction

 function sc___prototype6_execute takes integer i,integer a1,real a2,real a3 returns nothing
    set f__arg_integer1=a1
    set f__arg_real1=a2
    set f__arg_real2=a3
    call TriggerExecute(st___prototype6[i])
 endfunction

 function sc___prototype6_evaluate takes integer i,integer a1,real a2,real a3 returns integer
    set f__arg_integer1=a1
    set f__arg_real1=a2
    set f__arg_real2=a3
    call TriggerEvaluate(st___prototype6[i])
    return f__result_integer
 endfunction

 function sc___prototype7_execute takes integer i returns nothing
    call TriggerExecute(st___prototype7[i])
 endfunction

 function sc___prototype7_evaluate takes integer i returns nothing
    call TriggerEvaluate(st___prototype7[i])
 endfunction

 function sc___prototype8_execute takes integer i,integer a1,integer a2 returns nothing
    set f__arg_integer1=a1
    set f__arg_integer2=a2
    call TriggerExecute(st___prototype8[i])
 endfunction

 function sc___prototype8_evaluate takes integer i,integer a1,integer a2 returns nothing
    set f__arg_integer1=a1
    set f__arg_integer2=a2
    call TriggerEvaluate(st___prototype8[i])
 endfunction

 function sc___prototype10_execute takes integer i,integer a1,integer a2 returns nothing
    set f__arg_integer1=a1
    set f__arg_integer2=a2
    call TriggerExecute(st___prototype10[i])
 endfunction

 function sc___prototype10_evaluate takes integer i,integer a1,integer a2 returns integer
    set f__arg_integer1=a1
    set f__arg_integer2=a2
    call TriggerEvaluate(st___prototype10[i])
    return f__result_integer
 endfunction

 function sc___prototype15_execute takes integer i,integer a1 returns nothing
    set f__arg_integer1=a1
    call TriggerExecute(st___prototype15[i])
 endfunction

 function sc___prototype15_evaluate takes integer i,integer a1 returns boolean
    set f__arg_integer1=a1
    call TriggerEvaluate(st___prototype15[i])
    return f__result_boolean
 endfunction

 function sc___prototype23_execute takes integer i returns nothing
    call TriggerExecute(st___prototype23[i])
 endfunction

 function sc___prototype23_evaluate takes integer i returns boolean
    call TriggerEvaluate(st___prototype23[i])
    return f__result_boolean
 endfunction

 function sc___prototype46_execute takes integer i,integer a1,integer a2,integer a3 returns nothing
    set f__arg_integer1=a1
    set f__arg_integer2=a2
    set f__arg_integer3=a3
    call TriggerExecute(st___prototype46[i])
 endfunction

 function sc___prototype46_evaluate takes integer i,integer a1,integer a2,integer a3 returns nothing
    set f__arg_integer1=a1
    set f__arg_integer2=a2
    set f__arg_integer3=a3
    call TriggerEvaluate(st___prototype46[i])
 endfunction

 function sc___prototype62_execute takes integer i,integer a1,code a2 returns nothing
    set f__arg_integer1=a1
    set f__arg_code1=a2
    call TriggerExecute(st___prototype62[i])
 endfunction

 function sc___prototype62_evaluate takes integer i,integer a1,code a2 returns nothing
    set f__arg_integer1=a1
    set f__arg_code1=a2
    call TriggerEvaluate(st___prototype62[i])
 endfunction

 function sc___prototype89_execute takes integer i,unit a1 returns nothing
    set f__arg_unit1=a1
    call TriggerExecute(st___prototype89[i])
 endfunction

 function sc___prototype89_evaluate takes integer i,unit a1 returns boolean
    set f__arg_unit1=a1
    call TriggerEvaluate(st___prototype89[i])
    return f__result_boolean
 endfunction

 function sc___prototype100_execute takes integer i,unit a1,integer a2 returns nothing
    set f__arg_unit1=a1
    set f__arg_integer1=a2
    call TriggerExecute(st___prototype100[i])
 endfunction

 function sc___prototype100_evaluate takes integer i,unit a1,integer a2 returns nothing
    set f__arg_unit1=a1
    set f__arg_integer1=a2
    call TriggerEvaluate(st___prototype100[i])
 endfunction

 function sc___prototype111_execute takes integer i,unit a1 returns nothing
    set f__arg_unit1=a1
    call TriggerExecute(st___prototype111[i])
 endfunction

 function sc___prototype111_evaluate takes integer i,unit a1 returns nothing
    set f__arg_unit1=a1
    call TriggerEvaluate(st___prototype111[i])
 endfunction

 function sc___prototype151_execute takes integer i,integer a1 returns nothing
    set f__arg_integer1=a1
    call TriggerExecute(st___prototype151[i])
 endfunction

 function sc___prototype151_evaluate takes integer i,integer a1 returns real
    set f__arg_integer1=a1
    call TriggerEvaluate(st___prototype151[i])
    return f__result_real
 endfunction

 function sc___prototype163_execute takes integer i,integer a1,boolexpr a2 returns nothing
    set f__arg_integer1=a1
    set f__arg_boolexpr1=a2
    call TriggerExecute(st___prototype163[i])
 endfunction

 function sc___prototype163_evaluate takes integer i,integer a1,boolexpr a2 returns integer
    set f__arg_integer1=a1
    set f__arg_boolexpr1=a2
    call TriggerEvaluate(st___prototype163[i])
    return f__result_integer
 endfunction

 function sc___prototype177_execute takes integer i,unit a1,unit a2,real a3 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_real1=a3
    call TriggerExecute(st___prototype177[i])
 endfunction

 function sc___prototype177_evaluate takes integer i,unit a1,unit a2,real a3 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_real1=a3
    call TriggerEvaluate(st___prototype177[i])
 endfunction

 function sc___prototype195_execute takes integer i,unit a1,unit a2,integer a3 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_integer1=a3
    call TriggerExecute(st___prototype195[i])
 endfunction

 function sc___prototype195_evaluate takes integer i,unit a1,unit a2,integer a3 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_integer1=a3
    call TriggerEvaluate(st___prototype195[i])
 endfunction

 function sc___prototype200_execute takes integer i,unit a1,boolean a2 returns nothing
    set f__arg_unit1=a1
    set f__arg_boolean1=a2
    call TriggerExecute(st___prototype200[i])
 endfunction

 function sc___prototype200_evaluate takes integer i,unit a1,boolean a2 returns nothing
    set f__arg_unit1=a1
    set f__arg_boolean1=a2
    call TriggerEvaluate(st___prototype200[i])
 endfunction

 function sc___prototype202_execute takes integer i,unit a1,real a2,real a3,integer a4,integer a5 returns nothing
    set f__arg_unit1=a1
    set f__arg_real1=a2
    set f__arg_real2=a3
    set f__arg_integer1=a4
    set f__arg_integer2=a5
    call TriggerExecute(st___prototype202[i])
 endfunction

 function sc___prototype202_evaluate takes integer i,unit a1,real a2,real a3,integer a4,integer a5 returns nothing
    set f__arg_unit1=a1
    set f__arg_real1=a2
    set f__arg_real2=a3
    set f__arg_integer1=a4
    set f__arg_integer2=a5
    call TriggerEvaluate(st___prototype202[i])
 endfunction

 function sc___prototype205_execute takes integer i,unit a1,real a2,real a3 returns nothing
    set f__arg_unit1=a1
    set f__arg_real1=a2
    set f__arg_real2=a3
    call TriggerExecute(st___prototype205[i])
 endfunction

 function sc___prototype205_evaluate takes integer i,unit a1,real a2,real a3 returns nothing
    set f__arg_unit1=a1
    set f__arg_real1=a2
    set f__arg_real2=a3
    call TriggerEvaluate(st___prototype205[i])
 endfunction

 function sc___prototype234_execute takes integer i,integer a1,unit a2 returns nothing
    set f__arg_integer1=a1
    set f__arg_unit1=a2
    call TriggerExecute(st___prototype234[i])
 endfunction

 function sc___prototype234_evaluate takes integer i,integer a1,unit a2 returns boolean
    set f__arg_integer1=a1
    set f__arg_unit1=a2
    call TriggerEvaluate(st___prototype234[i])
    return f__result_boolean
 endfunction

 function sc___prototype246_execute takes integer i,integer a1,item a2,integer a3 returns nothing
    set f__arg_integer1=a1
    set f__arg_item1=a2
    set f__arg_integer2=a3
    call TriggerExecute(st___prototype246[i])
 endfunction

 function sc___prototype246_evaluate takes integer i,integer a1,item a2,integer a3 returns nothing
    set f__arg_integer1=a1
    set f__arg_item1=a2
    set f__arg_integer2=a3
    call TriggerEvaluate(st___prototype246[i])
 endfunction

 function sc___prototype266_execute takes integer i,integer a1,unit a2,real a3 returns nothing
    set f__arg_integer1=a1
    set f__arg_unit1=a2
    set f__arg_real1=a3
    call TriggerExecute(st___prototype266[i])
 endfunction

 function sc___prototype266_evaluate takes integer i,integer a1,unit a2,real a3 returns nothing
    set f__arg_integer1=a1
    set f__arg_unit1=a2
    set f__arg_real1=a3
    call TriggerEvaluate(st___prototype266[i])
 endfunction

 function sc___prototype269_execute takes integer i,unit a1,unit a2,real a3,real a4 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_real1=a3
    set f__arg_real2=a4
    call TriggerExecute(st___prototype269[i])
 endfunction

 function sc___prototype269_evaluate takes integer i,unit a1,unit a2,real a3,real a4 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_real1=a3
    set f__arg_real2=a4
    call TriggerEvaluate(st___prototype269[i])
 endfunction

 function sc___prototype271_execute takes integer i,unit a1,unit a2,real a3,boolean a4,real a5 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_real1=a3
    set f__arg_boolean1=a4
    set f__arg_real2=a5
    call TriggerExecute(st___prototype271[i])
 endfunction

 function sc___prototype271_evaluate takes integer i,unit a1,unit a2,real a3,boolean a4,real a5 returns nothing
    set f__arg_unit1=a1
    set f__arg_unit2=a2
    set f__arg_real1=a3
    set f__arg_boolean1=a4
    set f__arg_real2=a5
    call TriggerEvaluate(st___prototype271[i])
 endfunction
//END EVALUATE + EXECUTE

//POLYGON

 function IsIntersectAnt takes real x,real y,real X1,real Y1,real X2,real Y2 returns integer
    local real minX
    local real maxX
    local real minY
    local real maxY
    local real x0
    set minX=X1
    set maxX=X2
    if(minX>maxX)then
        set minX=X2
        set maxX=X1
    endif
    set minY=Y1
    set maxY=Y2
    if(minY>maxY)then
        set minY=Y2
        set maxY=Y1
    endif
    if(y<minY or y>maxY or x<minX)then
        return 0
    endif
    if(maxY==minY)then
        if(x>=minX and x<=maxX)then
            return-1
        endif
        return 0
    endif
    if(y==minY)then
        return 0
    endif
    if(x>maxX)then
        return 1
    endif
    set x0=X1+(y-Y1)*(X2-X1)/(Y2-Y1)
    if(x0>x)then
        return 0
    endif
    if(x==x0)then
        return-1
    endif
    return 1
 endfunction
  

 function s__polygon_create takes nothing returns integer
    local integer i=s__polygon__allocate()
    set s__polygon_Max_x[i]=-99999
    set s__polygon_Max_y[i]=-99999
    set s__polygon_Min_x[i]=99999
    set s__polygon_Min_y[i]=99999
    set s__polygon_Max_i[i]=0
    return i
 endfunction
 

 function s__polygon_destroy takes integer this returns nothing
    set s__polygon_Max_i[this]=0
    call s__polygon_deallocate(this)
 endfunction
 

 function s__polygon_polygonaddpoint takes integer this,real x,real y returns nothing
    local real array z
    if(x>s__polygon_Max_x[this])then
        set s__polygon_Max_x[this]=x
    endif
    if(x<s__polygon_Min_x[this])then
        set s__polygon_Min_x[this]=x
    endif
    if(y>s__polygon_Max_y[this])then
        set s__polygon_Max_y[this]=y
    endif
    if(y<s__polygon_Min_y[this])then
        set s__polygon_Min_y[this]=y
    endif
    set s___polygon_X[s__polygon_X[this]+s__polygon_Max_i[this]]=x
    set s___polygon_Y[s__polygon_Y[this]+s__polygon_Max_i[this]]=y
    set s__polygon_Max_i[this]=s__polygon_Max_i[this]+1
 endfunction
 

 function s__polygon_polygonmovepoint takes integer this,integer i,real x,real y returns nothing
    local real array z
    if(i>=s__polygon_Max_i[this]or i<0)then
        return
    endif
    if(x>s__polygon_Max_x[this])then
        set s__polygon_Max_x[this]=x
    endif
    if(x<s__polygon_Min_x[this])then
        set s__polygon_Min_x[this]=x
    endif
    if(y>s__polygon_Max_y[this])then
        set s__polygon_Max_y[this]=y
    endif
    if(y<s__polygon_Min_y[this])then
        set s__polygon_Min_y[this]=y
    endif
    set s___polygon_X[s__polygon_X[this]+i]=x
    set s___polygon_Y[s__polygon_Y[this]+i]=y
 endfunction
 

 function s__polygon_ispointinpolygon takes integer this,real x,real y returns integer
    local integer i
    local integer i2=0
    local integer i3
    if(s__polygon_Max_i[this]<3)then
        return 0
    endif
    if(x>=s__polygon_Max_x[this]or y>=s__polygon_Max_y[this]or x<=s__polygon_Min_x[this]or y<=s__polygon_Min_y[this])then
        return 0
    endif
    set i=0
    loop
        exitwhen i>=s__polygon_Max_i[this]
        if(s__polygon_Max_i[this]-i==1)then
            set i3=IsIntersectAnt(x,y,s___polygon_X[s__polygon_X[this]+i],s___polygon_Y[s__polygon_Y[this]+i],s___polygon_X[s__polygon_X[this]],s___polygon_Y[s__polygon_Y[this]])
        else
            set i3=IsIntersectAnt(x,y,s___polygon_X[s__polygon_X[this]+i],s___polygon_Y[s__polygon_Y[this]+i],s___polygon_X[s__polygon_X[this]+i+1],s___polygon_Y[s__polygon_Y[this]+i+1])
        endif
        if(i3<0)then
            return-1
        endif
        set i2=i2+i3
        set i=i+1
    endloop
    if(i2-i2/ 2*2==1)then
        return 1
    else
        return 0
    endif
 endfunction
  

 function CreatePolygon takes nothing returns integer
    return s__polygon_create()
 endfunction
 

 function DestroyPolygon takes integer id returns nothing
    call s__polygon_destroy(id)
 endfunction
 

 function PolygonAddPoint takes integer id,real x,real y returns nothing
    call s__polygon_polygonaddpoint(id,x,y)
 endfunction
 

 function PolygonMovePoint takes integer id,integer i,real x,real y returns nothing
    call s__polygon_polygonmovepoint(id,i,x,y)
 endfunction
 

 function IsPointInPolygon takes integer id,real x,real y returns integer
    return s__polygon_ispointinpolygon(id,x,y)
 endfunction
//END POLYGON	


function D4v takes nothing returns nothing
    set alloc__A=0
    set alloc__N=0
endfunction


function D5v takes integer v returns nothing
    set alloc__A=alloc__A+1
    set alloc__B[alloc__A]=v
endfunction


function D7v takes nothing returns integer
    set alloc__N=alloc__N+1
    return alloc__B[alloc__N]
endfunction

//Table ?

 function malloc takes nothing returns integer
    local integer this=LoadInteger(BYHT,qv,0)
    if this==0 then
        set this=Mv+1
        set Mv=this
    else
        call SaveInteger(BYHT,qv,0,LoadInteger(BYHT,qv,this))
        call RemoveSavedInteger(BYHT,qv,this)
    endif
    call SaveInteger(BYHT,qv,this,-1)
    return this
 endfunction


 function free_b takes integer this,integer size returns nothing
    local integer i=size
    local integer tb=LoadInteger(BYHT,Pv,size)
    loop
        exitwhen i==0
        set i=i-1
        call FlushChildHashtable(BYHT,this+i)
        call FlushChildHashtable(BYHT2,this+i)
    endloop
    if tb==null then
        set tb=malloc()
        call SaveInteger(BYHT,Pv,size,tb)
    endif
    if HaveSavedInteger(BYHT,tb,0)then
        call SaveInteger(BYHT,tb,this,LoadInteger(BYHT,tb,0))
    endif
    call SaveInteger(BYHT,tb,0,this)
 endfunction


 function free takes integer this returns nothing
    if this>0 and LoadInteger(BYHT,qv,this)==-1 then
        call FlushChildHashtable(BYHT,this)
        call FlushChildHashtable(BYHT2,this)
        call SaveInteger(BYHT,qv,this,LoadInteger(BYHT,qv,0))
        call SaveInteger(BYHT,qv,0,this)
        return
    endif
    if this<0 and LoadInteger(BYHT,Pv,this)>0 then
        call free_b(this,LoadInteger(BYHT,Pv,this))
    endif
 endfunction

 function calloc takes integer size returns integer
    local integer tb
    local integer this
    if size<=0 then
        return 0
    endif
    if HaveSavedInteger(BYHT,Pv,size)then
        set tb=LoadInteger(BYHT,Pv,size)
        set this=LoadInteger(BYHT,tb,0)
        if HaveSavedInteger(BYHT,tb,this)then
            call SaveInteger(BYHT,tb,0,LoadInteger(BYHT,tb,this))
            call RemoveSavedInteger(BYHT,tb,this)
        else
            call free(tb)
            call RemoveSavedInteger(BYHT,Pv,size)
        endif
    else
        set this=mv-size
        set mv=this
    endif
    call SaveInteger(BYHT,Pv,this,size)
    return this
 endfunction


 function pnt_add takes integer this,integer offset returns integer
    return this+offset
 endfunction
//end table ?

//TRIG 

 function s__Trig_new takes nothing returns integer
    local integer this=s__Trig__allocate()
    set s__Trig_fl[this]=this
    set s__Trig_fr[this]=this
    return this
 endfunction
 

 function s__Trig_remove takes integer this returns nothing
    if s__Trig_trig[this]!=null then
        call DestroyTrigger(s__Trig_trig[this])
        call s__Trig_deallocate(this)
        set s__Trig_trig[this]=null
        set s__Trig_fl[s__Trig_fr[this]]=s__Trig_fl[this]
        set s__Trig_fr[s__Trig_fl[this]]=s__Trig_fr[this]
    endif
 endfunction
 

 function s__Trig_clear takes integer this returns nothing
    local integer t
    if s__Trig_trig[this]!=null then
        set t=s__Trig_fl[this]
        loop
            call DestroyTrigger(s__Trig_trig[t])
            call s__Trig_deallocate(t)
            set s__Trig_trig[t]=null
            exitwhen t==this
            set t=s__Trig_fl[t]
        endloop
    endif
 endfunction
 

 function s__Trig_addaction takes integer this,code c returns nothing
    call TriggerAddCondition(s__Trig_trig[this],Filter(c))
 endfunction
 

 function s__Trig_addaction_b takes integer this,boolexpr c returns nothing
    call TriggerAddCondition(s__Trig_trig[this],(c))
 endfunction


 function s__Trig_addedtothelist takes integer this,code c returns integer
    local integer t=s__Trig__allocate()
    set s__Trig_fr[t]=s__Trig_fr[this]
    set s__Trig_fl[s__Trig_fr[this]]=t
    set s__Trig_fr[this]=t
    set s__Trig_fl[t]=this
    call TriggerAddCondition(s__Trig_trig[(t)],Filter((c)))
    return t
 endfunction


 function s__Trig_addedtothelist_b takes integer this,boolexpr c returns integer
    local integer t=s__Trig__allocate()
    set s__Trig_fr[t]=s__Trig_fr[this]
    set s__Trig_fl[s__Trig_fr[this]]=t
    set s__Trig_fr[this]=t
    set s__Trig_fl[t]=this
    call TriggerAddCondition(s__Trig_trig[(t)],((c)))
    return t
 endfunction


 function s__Trig_exe takes integer this returns nothing
    local integer r
    local integer array v
    local integer i
    if this!=0 then
        set r=s__Trig_Index
        set s__Trig_Index=this
        set i=0
        loop
            set v[i]=s__Trig_Index
            set s__Trig_Index=s__Trig_fl[s__Trig_Index]
            exitwhen s__Trig_Index==this
            set i=i+1
        endloop
        set i=0
        loop
            set s__Trig_Index=v[i]
            exitwhen s__Trig_Index==null
            call TriggerEvaluate(s__Trig_trig[s__Trig_Index])
            set i=i+1
        endloop
        set s__Trig_Index=r
    endif
  endfunction

  function s__Trig_exewithp takes integer this,integer i returns nothing
    local integer v=s__Trig_P
    set s__Trig_P=i
    call s__Trig_exe(this)
    set s__Trig_P=v
 endfunction
//END TRIG

//EVENT

 function RegisterEvent takes playerunitevent p,code c returns triggercondition
    local integer i=GetHandleId(p)
    local integer k=$F
    if(alloc__Kv[i]==null)then
        set alloc__Kv[i]=CreateTrigger()
        loop
            call TriggerRegisterPlayerUnitEvent(alloc__Kv[i],Player(k),p,null)
            exitwhen k==0
            set k=k-1
        endloop
    endif
    return TriggerAddCondition(alloc__Kv[i],Filter(c))
  endfunction

  function RemoveEvent takes playerunitevent p,triggercondition trigct returns nothing
    call TriggerRemoveCondition(alloc__Kv[GetHandleId(p)],trigct)
  endfunction

  function NewTriggerFor takes nothing returns integer
    set alloc__gX=alloc__gX+1
    set alloc__GX[alloc__gX]=CreateTrigger()
    return alloc__gX
 endfunction
 

 function TriggerForAddAction takes integer ev,boolexpr c returns triggercondition
    return TriggerAddCondition(alloc__GX[ev],c)
 endfunction
 

 function TriggerForRemoveAction takes integer ev,triggercondition c returns nothing
    call TriggerRemoveCondition(alloc__GX[ev],c)
 endfunction
 

 function TriggerForEvaluate takes integer ev returns boolean
    return TriggerEvaluate(alloc__GX[ev])
  endfunction
 

 function TriggerForAddActionB takes boolexpr c,integer ev returns triggercondition
    return(TriggerAddCondition(alloc__GX[(ev)],(c)))
 endfunction
//END EVENT
 
//CATALOG

 function s__Catalog_create takes nothing returns integer
    local integer this=s__Catalog_F
    if(0==this)then
        set this=s__Catalog_I+1
        set s__Catalog_I=this
    else
        set s__Catalog_F=LoadInteger(BYHT,s__Catalog_R1,this)
    endif
    call SaveInteger(BYHT,s__Catalog_R1,this,-1)
    set s__Catalog_number[this]=malloc()
    set s__Catalog_content[this]=malloc()
    set s__Catalog_re[this]=malloc()
    set s__Catalog_ie[this]=malloc()
    set s__Catalog_left[this]=malloc()
    set s__Catalog_right[this]=malloc()
    call SaveInteger(BYHT,s__Catalog_re[this],this,this)
    call SaveInteger(BYHT,s__Catalog_ie[this],this,this)
    call SaveInteger(BYHT,s__Catalog_left[this],this,this)
    call SaveInteger(BYHT,s__Catalog_right[this],this,this)
    return this
 endfunction

 function s__Catalog__get_Size takes integer this returns integer
    local integer cs=malloc()
    local integer v=0
    local integer b=this
    local integer e
    local integer index=0
    loop
        if(not HaveSavedBoolean(BYHT,(cs),b))then
            set e=LoadInteger(BYHT,s__Catalog_left[b],b)
            if(e!=b)then
                set s__Catalog_stack_a[index]=b
                set s__Catalog_stack_b[index]=e
                set index=index+1
            endif
            call SaveBoolean(BYHT,(cs),b,true)
            set v=v+LoadInteger(BYHT,s__Catalog_R2,b)
        endif
        set b=LoadInteger(BYHT,s__Catalog_left[this],b)
        if(b==this)then
            exitwhen 0==index
            set index=index-1
            set this=s__Catalog_stack_a[index]
            set b=s__Catalog_stack_b[index]
        endif
    endloop
    call free(cs)
    return v
 endfunction

 function s__Catalog_Read takes integer this,integer v returns integer
    local integer cs=malloc()
    local integer b=this
    local integer e
    local integer index=0
    local integer y
    loop
        if(not HaveSavedBoolean(BYHT,(cs),b))then
            set y=LoadInteger(BYHT,s__Catalog_R2,b)
            if(v<=y)then
                call free(cs)
                return LoadInteger(BYHT,s__Catalog_content[b],v)
            endif
            set e=LoadInteger(BYHT,s__Catalog_left[b],b)
            if(e!=b)then
                set s__Catalog_stack_a[index]=b
                set s__Catalog_stack_b[index]=e
                set index=index+1
            endif
            call SaveBoolean(BYHT,(cs),b,true)
            set v=v-y
        endif
        set b=LoadInteger(BYHT,s__Catalog_left[this],b)
        if(b==this)then
            if(0==index)then
                call free(cs)
                return 0
            endif
            set index=index-1
            set this=s__Catalog_stack_a[index]
            set b=s__Catalog_stack_b[index]
        endif
    endloop
    return 0
 endfunction

 function s__Catalog_Search takes integer this,integer v returns integer
    local integer cs=malloc()
    local integer b=this
    local integer e
    local integer index=0
    local integer l=0
    loop
        if(not HaveSavedBoolean(BYHT,(cs),b))then
            if(HaveSavedInteger(BYHT,s__Catalog_number[b],v))then
                call free(cs)
                return LoadInteger(BYHT,s__Catalog_number[b],v)+l
            endif
            set l=l+LoadInteger(BYHT,s__Catalog_R2,b)
            set e=LoadInteger(BYHT,s__Catalog_left[b],b)
            if(e!=b)then
                set s__Catalog_stack_a[index]=b
                set s__Catalog_stack_b[index]=e
                set index=index+1
            endif
            call SaveBoolean(BYHT,(cs),b,true)
        endif
        set b=LoadInteger(BYHT,s__Catalog_left[this],b)
        if(b==this)then
            if(0==index)then
                call free(cs)
                return 0
            endif
            set index=index-1
            set this=s__Catalog_stack_a[index]
            set b=s__Catalog_stack_b[index]
        endif
    endloop
    return 0
 endfunction

 function s__Catalog_Write takes integer this,integer v returns nothing
    if(not HaveSavedInteger(BYHT,s__Catalog_number[this],v))then
        call SaveInteger(BYHT,s__Catalog_R2,this,LoadInteger(BYHT,s__Catalog_R2,this)+1)
        call SaveInteger(BYHT,s__Catalog_number[this],v,LoadInteger(BYHT,s__Catalog_R2,this))
        call SaveInteger(BYHT,s__Catalog_content[this],LoadInteger(BYHT,s__Catalog_R2,this),v)
    endif
 endfunction

 function s__Catalog_copy takes integer this,integer b returns nothing
    local integer index=0
    local integer indexend=LoadInteger(BYHT,s__Catalog_R2,b)
    if LoadInteger(BYHT,s__Catalog_R1,this)==-1 then
        loop
            exitwhen index>=indexend
            set index=index+1
            call s__Catalog_Write(this,LoadInteger(BYHT,s__Catalog_content[b],index))
        endloop
    endif
 endfunction

 function s__Catalog_Init takes nothing returns nothing
    set s__Catalog_R1=malloc()
    set s__Catalog_R2=malloc()
 endfunction

 function Catalog_Add_Subcatalog takes integer t,integer b returns nothing
    if(not HaveSavedInteger(BYHT,s__Catalog_left[t],b))then
        call SaveInteger(BYHT,s__Catalog_right[t],b,LoadInteger(BYHT,s__Catalog_right[t],t))
        call SaveInteger(BYHT,s__Catalog_left[t],b,t)
        call SaveInteger(BYHT,s__Catalog_left[t],LoadInteger(BYHT,s__Catalog_right[t],t),b)
        call SaveInteger(BYHT,s__Catalog_right[t],t,b)
        call SaveInteger(BYHT,s__Catalog_ie[b],t,LoadInteger(BYHT,s__Catalog_ie[b],b))
        call SaveInteger(BYHT,s__Catalog_re[b],t,b)
        call SaveInteger(BYHT,s__Catalog_re[b],LoadInteger(BYHT,s__Catalog_ie[b],b),t)
        call SaveInteger(BYHT,s__Catalog_ie[b],b,t)
    endif
 endfunction

 function Catalog_copy takes integer t,integer b returns nothing
    call s__Catalog_copy(t,b)
 endfunction

 function Catalog_read_content takes integer id,integer index returns integer
    return s__Catalog_Read(id,index)
 endfunction

 function Catalog_Search_number takes integer id,integer v returns integer
    return s__Catalog_Search(id,v)
 endfunction

 function Catalog_write_content takes integer id,integer v returns nothing
    call s__Catalog_Write(id,v)
 endfunction

 function GetCatalogCount takes integer id returns integer
    return s__Catalog__get_Size(id)
 endfunction
//END CATALOG


function alloc__Timer_Init takes nothing returns nothing
    local integer i=alloc__ge
    local integer l=alloc__ge
    loop
        set i=i-1
        set alloc__Ge[i]=CreateTimer()
        exitwhen i==0
    endloop
    set alloc__ge=GetHandleId(alloc__Ge[l-1])
    set alloc__he=l
endfunction

function alloc__hpv takes integer id returns integer
    if LoadBoolean(BYHT,(alloc__NR),-id)then
        set alloc__Timer_Key=id-alloc__ge
        if alloc__Timer_Key<8192 then
            return alloc__AR[alloc__Timer_Key]
        else
            return LoadInteger(BYHT,(alloc__NR),-id)
        endif
    endif
    return 0
endfunction

function alloc__hPv takes integer id,integer v returns nothing
    if LoadBoolean(BYHT,(alloc__NR),-id)then
        set alloc__Timer_Key=id-alloc__ge
        if alloc__Timer_Key<8192 then
            set alloc__AR[alloc__Timer_Key]=v
        else
            call SaveInteger(BYHT,(alloc__NR),-id,v)
        endif
    endif
endfunction

function LastAllocTimer takes nothing returns timer
    return alloc__bj_LastAllocTimer
endfunction

function SetTimerData takes timer t,integer hqv returns nothing
    call alloc__hPv(GetHandleId(t),hqv)
endfunction

function GetTimerData takes timer t returns integer
    return alloc__hpv(GetHandleId(t))
endfunction

function NewTimer takes integer v returns timer
    local integer id
    if alloc__he==0 then
        set alloc__bj_LastAllocTimer=CreateTimer()
    else
        set alloc__he=alloc__he-1
        set alloc__bj_LastAllocTimer=alloc__Ge[alloc__he]
    endif
    set id=GetHandleId(alloc__bj_LastAllocTimer)
    call SaveBoolean(BYHT,(alloc__NR),-id,true)
    call alloc__hPv(id,v)
    return alloc__bj_LastAllocTimer
endfunction

function NewTimerNull takes nothing returns timer
    return NewTimer(0)
endfunction

function ReleaseTimer takes timer t,string s returns integer
    local integer id=GetHandleId(t)
    local integer i=0
    call PauseTimer(t)
    if LoadBoolean(BYHT,(alloc__NR),-id)then
        call RemoveSavedBoolean(BYHT,(alloc__NR),-id)
        set alloc__Timer_Key=id-alloc__ge
        if(alloc__Timer_Key<8192)then
            set i=alloc__AR[alloc__Timer_Key]
            set alloc__Ge[alloc__he]=t
            set alloc__he=alloc__he+1
        else
            set i=LoadInteger(BYHT,(alloc__NR),-id)
            call RemoveSavedInteger(BYHT,(alloc__NR),-id)
            call DestroyTimer(t)
        endif
    endif
    return i
endfunction

function alloc__D8v takes nothing returns nothing
    local integer i=alloc__S[0]
    set alloc__S[0]=0
    loop
        exitwhen 0==i
        if(0==alloc__L[i])then
            if(0==K[i])then
                call TriggerRemoveCondition(alloc__T,alloc__Y[alloc__M[i]])
                set alloc__Y[alloc__M[i]]=null
                set alloc__H=alloc__H-1
                set J[alloc__M[i]]=0
            else
                set J[alloc__M[i]]=K[i]
                set alloc__L[K[i]]=0
            endif
        else
            set alloc__L[K[i]]=alloc__L[i]
            set K[alloc__L[i]]=K[i]
        endif
        set K[i]=K[0]
        set K[0]=i
        set i=alloc__S[i]
    endloop
    loop
        exitwhen 0==alloc__ov
        set alloc__ov=alloc__ov-1
        set i=alloc__xv[alloc__ov]
        if(not alloc__vv[i])then
            call TriggerRemoveCondition(alloc__T,alloc__Y[i])
            set alloc__Y[i]=null
            if(alloc__iv[i])then
                set alloc__D[i]=alloc__D[0]
                set alloc__D[0]=i
                set alloc__iv[i]=false
            endif
            set alloc__rv[i]=false
        endif
    endloop
    if(0==alloc__H)then
        call PauseTimer(alloc__U)
    else
        call TriggerEvaluate(alloc__T)
    endif
endfunction

function D9v takes integer r returns integer
    local integer i
    local integer f
    if(0==K[0])then
        set i=alloc__F+1
        set alloc__F=i
    else
        set i=K[0]
        set K[0]=K[i]
    endif
    set alloc__M[i]=r
    set alloc__S[i]=-1
    set f=J[r]
    if(0==f)then
        set K[i]=0
        set alloc__L[i]=0
        set J[r]=i
        set alloc__Y[r]=TriggerAddCondition(alloc__T,alloc__Z[r])
        if(0==alloc__H)then
            call TimerStart(alloc__U,.03125,true,function alloc__D8v)
        endif
        set alloc__H=alloc__H+1
    else
        set K[i]=f
        set alloc__L[i]=0
        set alloc__L[f]=i
        set J[r]=i
    endif
    return i
endfunction

function fvv takes integer fev returns nothing
    if(0>alloc__S[fev])then
        set alloc__S[fev]=alloc__S[0]
        set alloc__S[0]=fev
    endif
endfunction

function fxv takes code c returns integer
    local integer i=alloc__D[0]
    if(0==i)then
        set i=alloc__C+1
        set alloc__C=i
    else
        set alloc__D[0]=alloc__D[i]
    endif
    set alloc__Z[i]=Condition(c)
    return i
endfunction

function fov takes integer i returns nothing
    if not(alloc__vv[i]or alloc__iv[i])then
        if(alloc__rv[i])then
            set alloc__rv[i]=false
        else
            set alloc__Y[i]=TriggerAddCondition(alloc__T,alloc__Z[i])
        endif
        if(0==alloc__H)then
            call TimerStart(alloc__U,.03125,true,function alloc__D8v)
        endif
        set alloc__H=alloc__H+1
        set alloc__vv[i]=true
    endif
endfunction

function frv takes integer i returns nothing
    if(alloc__vv[i])then
        if(not(alloc__rv[i]or alloc__iv[i]))then
            set alloc__xv[alloc__ov]=i
            set alloc__ov=alloc__ov+1
            set alloc__rv[i]=true
        endif
        set alloc__vv[i]=false
        set alloc__H=alloc__H-1
    endif
endfunction
//?

//Blizzard Init

function InitBlizzard_j takes nothing returns nothing
    call InitQueuedTriggers()
    call InitDNCSounds()
    call InitMapRects()
    call InitSummonableCaps()
endfunction


function alloc_main takes nothing returns nothing
    call ExecuteFunc("alloc__Timer_Init")
    call ExecuteFunc("s__Catalog_Init")
    call ExecuteFunc("InitBlizzard_j")
    call ExecuteFunc("string_onInit")
    call ExecuteFunc("SoundUtils_onInit")
    call ExecuteFunc("system_onInit")
    call ExecuteFunc("Event_onInit")
    call ExecuteFunc("unit_onInit")
    call ExecuteFunc("Hero_onInit")
    call ExecuteFunc("playerinit_onInit")
    call ExecuteFunc("EquipState_onInit")
    call ExecuteFunc("sj_jass_main")
    call ExecuteFunc("unitstate_onInit")
    call ExecuteFunc("herostate_onInit")
endfunction

//environement

 function environment___Filter_c takes nothing returns boolean
    return GetDestructableMaxLife(GetFilterDestructable())!=1
 endfunction

 function environment___Action_c takes nothing returns nothing
    local destructable d=GetEnumDestructable()
    local integer id=R2I((GetDestructableY(d)-environment___RootY)/ environment___Wide_2)*environment___MaxY+R2I((GetDestructableX(d)-environment___RootX)/ environment___Wide_2)
    local integer maxindex=LoadInteger(environment___HT,id,0)+1
    call SaveInteger(environment___HT,id,0,maxindex)
    call SaveDestructableHandle(environment___HT,id,maxindex,d)
    call ShowDestructable(d,false)
    call SaveInteger(environment___HT,GetHandleId(d),0,maxindex)
    set d=null
 endfunction

 function environment___SetVisible takes integer x1,integer x2,integer y1,integer y2,boolean flag returns nothing
    local integer a=x1
    local integer b
    local integer y
    local integer id
    local integer maxindex
    loop
        set b=y1
        exitwhen a>x2
        loop
            exitwhen b>y2
            set id=b*environment___MaxY+a
            call SaveBoolean(environment___HT,id,-1,flag)
            set maxindex=LoadInteger(environment___HT,id,0)
            set y=0
            loop
                exitwhen y>=maxindex
                set y=y+1
                call ShowDestructable(LoadDestructableHandle(environment___HT,id,y),flag)
            endloop
            set b=b+1
        endloop
        set a=a+1
    endloop
 endfunction

 function environment___ModVisible takes integer x,integer y,integer oldx,integer oldy returns nothing
    local integer newDown=y-4
    local integer newUp=y+4
    local integer newLeft=x-4
    local integer newRight=x+4
    local integer oldDown=oldy-4
    local integer oldUp=oldy+4
    local integer oldLeft=oldx-4
    local integer oldRight=oldx+4
    if newDown<0 then
        set newDown=0
    endif
    if newLeft<0 then
        set newLeft=0
    endif
    if oldDown<0 then
        set oldDown=0
    endif
    if oldLeft<0 then
        set oldLeft=0
    endif
    if newUp>=environment___MaxY then
        set newUp=environment___MaxY-1
    endif
    if newRight>=environment___MaxX then
        set newUp=environment___MaxX-1
    endif
    if oldUp>=environment___MaxY then
        set oldUp=environment___MaxY-1
    endif
    if oldRight>=environment___MaxX then
        set oldUp=environment___MaxX-1
    endif
    if oldUp<newDown or newUp<oldDown or oldRight<newLeft or newRight<oldLeft then
        call environment___SetVisible(newDown,newUp,newLeft,newRight,true)
        call environment___SetVisible(oldDown,oldUp,oldLeft,oldRight,false)
    else
        if y>=oldy then
            if y!=oldy then
                call environment___SetVisible(oldUp+1,newUp,newLeft,newRight,true)
                call environment___SetVisible(oldDown,newDown-1,oldLeft,oldRight,false)
            endif
            if newLeft<oldLeft then
                call environment___SetVisible(newDown,oldUp,newRight+1,oldRight,false)
                call environment___SetVisible(newDown,oldUp,newLeft,oldLeft-1,true)
            elseif oldLeft<newLeft then
                call environment___SetVisible(newDown,oldUp,oldRight+1,newRight,true)
                call environment___SetVisible(newDown,oldUp,oldLeft,newLeft-1,false)
            endif
        else
            call environment___SetVisible(newDown,oldDown-1,newLeft,newRight,true)
            call environment___SetVisible(newUp+1,oldUp,oldLeft,oldRight,false)
            if newLeft<oldLeft then
                call environment___SetVisible(oldDown,newUp,newLeft,oldLeft-1,true)
                call environment___SetVisible(oldDown,newUp,newRight+1,oldRight,false)
            elseif oldLeft<newLeft then
                call environment___SetVisible(oldDown,newUp,oldLeft,newLeft-1,false)
                call environment___SetVisible(oldDown,newUp,oldRight+1,newRight,true)
            endif
        endif
    endif
 endfunction

 function environment___Loop takes nothing returns nothing
    local integer x=R2I((GetCameraTargetPositionY()-environment___RootY)/ environment___Wide_2)
    local integer y=R2I((GetCameraTargetPositionX()-environment___RootX)/ environment___Wide_2)
    local integer id=x*environment___MaxY+y
    if id==environment___LastCameraId then
        return
    endif
    call environment___ModVisible(x,y,environment___CameraX,environment___CameraY)
    set environment___CameraX=x
    set environment___CameraY=y
    set environment___LastCameraId=id
 endfunction

 function environment___onInit takes nothing returns nothing
    set environment___RootX=GetRectMinX(bj_mapInitialPlayableArea)
    set environment___RootY=GetRectMinY(bj_mapInitialPlayableArea)
    set environment___CameraX=R2I((GetCameraTargetPositionY()-environment___RootY)/ environment___Wide_2)
    set environment___CameraY=R2I((GetCameraTargetPositionX()-environment___RootX)/ environment___Wide_2)
    set environment___MaxX=R2I((GetRectMaxY(bj_mapInitialPlayableArea)-environment___RootY)/ environment___Wide_2)+1
    set environment___MaxY=R2I((GetRectMaxX(bj_mapInitialPlayableArea)-environment___RootX)/ environment___Wide_2)+1
    if environment___CameraY<=environment___MaxY/ 2 then
        set environment___CameraY=environment___MaxY-1
    else
        set environment___CameraY=0
    endif
    if environment___CameraX<=environment___MaxX/ 2 then
        set environment___CameraX=environment___MaxX-1
    else
        set environment___CameraX=0
    endif
    set environment___LastCameraId=environment___CameraX*environment___MaxY+environment___CameraY
    call EnumDestructablesInRect(bj_mapInitialPlayableArea,Filter(function environment___Filter_c),function environment___Action_c)
    call TimerStart(CreateTimer(),.1,true,function environment___Loop)
    call environment___Loop()
 endfunction
// environement

// math 

 function math_onInit takes nothing returns nothing
    local integer i=1
    local real v=2
    local real t=1
    set math__Pow2p[0]=v
    set math__Pow2n[0]=t
    loop
        exitwhen i>6
        set v=v*v
        set t=t*2
        set math__Pow2p[i]=v
        set math__Pow2n[i]=t
        set i=i+1
    endloop
 endfunction


 function exp takes real x returns real
    local real a=1+x
    local real b=x
    local real c=2
    local real d=3
    local real e=0
    loop
        set e=a+x*b/ c
        exitwhen e>=a and e<=a
        set a=e
        set b=b*x
        set c=c*d
        set d=d+1
    endloop
    return e
 endfunction


 function loge takes real x returns real
    local real a
    local real b=0
    local real c=0
    local real d=1
    if x>0 then
        set x=(x-1)/(x+1)
        set a=x*x
        loop
            set c=b+x*2/ d
            exitwhen c>=b and c<=b
            set b=c
            set d=d+2
            set x=x*a
        endloop
        set c=c
    endif
    return c
 endfunction

 function log2 takes real x returns real
    local real a
    local real b
    local real c
    local real d
    local real e
    local real s=1.
    local integer i=1
    if x<=.0 or x==1. then
        return .0
    endif
    if x<1. then
        set x=1./ x
        set s=-1.
    endif
    if x>2. then
        loop
            exitwhen math__Pow2p[i]>=x
            set i=i+1
        endloop
        set a=math__Pow2n[i]
        set c=math__Pow2p[i]
        loop
            set b=x/ c
            exitwhen b>=1. and b<2
            set i=i-1
            if b<1. then
                set c=c/ math__Pow2p[i]
                set a=a-math__Pow2n[i]
            else
                set c=c*math__Pow2p[i]
                set a=a+math__Pow2n[i]
            endif
        endloop
        set x=b
    else
        set a=.0
    endif
    if x>1.414213562 then
        set a=a+.5
        set x=x/ 1.414213562
    endif
    return s*(a+loge(x)*1.442695)
 endfunction


 function log10 takes real x returns real
    return log2(x)*.301029996
 endfunction

 function log takes real x returns real
    return log2(x)*.69314718
 endfunction

 function logx takes real x,real y returns real
    return log2(y)/ log2(x)
 endfunction

 function PowInt takes integer a,integer power returns integer
    local integer mod
    if power<0 then
        return 0
    endif
    if power==0 then
        return 1
    endif
    if power==1 then
        return a
    endif
    set mod=power/ 2
    if power-mod*2==0 then
        return PowInt(a*a,mod)
    else
        return a*PowInt(a*a,mod)
    endif
 endfunction

 function PowR takes real a,integer power returns real
    local integer mod
    if power==0 then
        return 1.
    endif
    if power==1 then
        return a
    endif
    if power<0 then
        return 1./ PowR(a,-power)
    endif
    set mod=power/ 2
    if power-mod*2==0 then
        return PowR(a*a,mod)
    else
        return a*PowR(a*a,mod)
    endif
 endfunction

 function PowBJ takes real a,real power returns real
    local integer mod=R2I(power)
    return PowR(a,mod)*exp(loge(a)*(power-mod))
 endfunction
// math end

// bezier curve

 function s__BezierCurve_Power2 takes real x,real y,real z,real x1,real y1,real z1,real x2,real y2,real z2 returns integer
    local integer this=s__BezierCurve__allocate()
    set s__BezierCurve_Type[this]=2
    set s__BezierCurve_a1[this]=x
    set s__BezierCurve_b1[this]=2*(x1-x)
    set s__BezierCurve_c1[this]=x-2*x1+x2
    set s__BezierCurve_a2[this]=y
    set s__BezierCurve_b2[this]=2*(y1-y)
    set s__BezierCurve_c2[this]=y-2*y1+y2
    set s__BezierCurve_a3[this]=z
    set s__BezierCurve_b3[this]=2*(z1-z)
    set s__BezierCurve_c3[this]=z-2*z1+z2
    return this
 endfunction

 function s__BezierCurve_Power3 takes real x,real y,real z,real x1,real y1,real z1,real x2,real y2,real z2,real x3,real y3,real z3 returns integer
    local integer this=s__BezierCurve__allocate()
    set s__BezierCurve_Type[this]=3
    set s__BezierCurve_a1[this]=x
    set s__BezierCurve_b1[this]=3*(x1-x)
    set s__BezierCurve_c1[this]=3*(x-2*x1+x2)
    set s__BezierCurve_d1[this]=3*(x1-x2)+x3-x
    set s__BezierCurve_a2[this]=y
    set s__BezierCurve_b2[this]=3*(y1-y)
    set s__BezierCurve_c2[this]=3*(y-2*y1+y2)
    set s__BezierCurve_d2[this]=3*(y1-y2)+y3-y
    set s__BezierCurve_a3[this]=z
    set s__BezierCurve_b3[this]=3*(z1-z)
    set s__BezierCurve_c3[this]=3*(z-2*z1+z2)
    set s__BezierCurve_d3[this]=3*(z1-z2)+z3-z
    return this
 endfunction

 function s__BezierCurve_getx takes integer this,real t returns real
    local real e=0
    if s__BezierCurve_Type[this]==2 then
        set e=s__BezierCurve_a1[this]+(s__BezierCurve_b1[this]+s__BezierCurve_c1[this]*t)*t
    elseif s__BezierCurve_Type[this]==3 then
        set e=s__BezierCurve_a1[this]+(s__BezierCurve_b1[this]+(s__BezierCurve_c1[this]+s__BezierCurve_d1[this]*t)*t)*t
    endif
    return e
 endfunction

 function s__BezierCurve_gety takes integer this,real t returns real
    local real e=0
    if s__BezierCurve_Type[this]==2 then
        set e=s__BezierCurve_a2[this]+(s__BezierCurve_b2[this]+s__BezierCurve_c2[this]*t)*t
    elseif s__BezierCurve_Type[this]==3 then
        set e=s__BezierCurve_a2[this]+(s__BezierCurve_b2[this]+(s__BezierCurve_c2[this]+s__BezierCurve_d2[this]*t)*t)*t
    endif
    return e
 endfunction

 function s__BezierCurve_getz takes integer this,real t returns real
    local real e=0
    if s__BezierCurve_Type[this]==2 then
        set e=s__BezierCurve_a3[this]+(s__BezierCurve_b3[this]+s__BezierCurve_c3[this]*t)*t
    elseif s__BezierCurve_Type[this]==3 then
        set e=s__BezierCurve_a3[this]+(s__BezierCurve_b3[this]+(s__BezierCurve_c3[this]+s__BezierCurve_d3[this]*t)*t)*t
    endif
    return e
 endfunction
//bezier curve end

//bag swap

 function GetBagSwap_object takes integer Catalog_id,integer i returns integer
    return(s__Catalog_Read((Catalog_id),(i)))
 endfunction

 function GetBagSwap_Size takes integer Catalog_id returns integer
    return(s__Catalog__get_Size((Catalog_id)))
 endfunction

 function GetBagSwap_Id takes integer Catalog_id,integer i returns integer
    return(s__Catalog_Search((Catalog_id),(i)))
 endfunction

 function BagSwap__SetBagSwap_Id takes integer v returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(v))
 endfunction


 function BagSwap__Init_main takes nothing returns nothing
    set Load_BagSwap_root=s__Catalog_create()
    call ExecuteFunc("Init_BagSwap_1")
    call ExecuteFunc("Init_BagSwap_2")
    call ExecuteFunc("Init_BagSwap_3")
    call ExecuteFunc("Init_BagSwap_4")
    call ExecuteFunc("Init_BagSwap_5")
    call ExecuteFunc("Init_BagSwap_6")
    call ExecuteFunc("Init_BagSwap_7")
    call ExecuteFunc("Init_BagSwap_8")
    call ExecuteFunc("Init_BagSwap_9")
    //call ExecuteFunc("Init_BagSwap_A")
 endfunction


 function Init_BagSwap_1 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e01Z')))
    call s__Catalog_Write((Load_BagSwap_root),(('e00N')))
    call s__Catalog_Write((Load_BagSwap_root),(('e00O')))
    call s__Catalog_Write((Load_BagSwap_root),(('e00U')))
    call s__Catalog_Write((Load_BagSwap_root),(('e00K')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01I')))
    call s__Catalog_Write((Load_BagSwap_root),(('e00W')))
    call s__Catalog_Write((Load_BagSwap_root),(('e00B')))
    call s__Catalog_Write((Load_BagSwap_root),(('e016')))
 endfunction


 function Init_BagSwap_2 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e01J')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01K')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01L')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01M')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01N')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01O')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01P')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01Q')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01R')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01S')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01T')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01U')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01V')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01W')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01X')))
    call s__Catalog_Write((Load_BagSwap_root),(('e01Y')))
    call s__Catalog_Write((Load_BagSwap_root),(('e020')))
    call s__Catalog_Write((Load_BagSwap_root),(('e021')))
    call s__Catalog_Write((Load_BagSwap_root),(('e022')))
    call s__Catalog_Write((Load_BagSwap_root),(('e023')))
    call s__Catalog_Write((Load_BagSwap_root),(('e024')))
    call s__Catalog_Write((Load_BagSwap_root),(('e025')))
 endfunction
 

 function Init_BagSwap_3 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e028')))
 endfunction
 

 function Init_BagSwap_4 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e02B')))
 endfunction
 

 function Init_BagSwap_5 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e02C')))
    call s__Catalog_Write((Load_BagSwap_root),(('e02D')))
    call s__Catalog_Write((Load_BagSwap_root),(('e02E')))
    call s__Catalog_Write((Load_BagSwap_root),(('e02F')))
 endfunction
  

 function Init_BagSwap_6 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e02L')))
 endfunction
  

 function Init_BagSwap_7 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e02K')))
 endfunction
  

 function Init_BagSwap_8 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e02X')))
    call s__Catalog_Write((Load_BagSwap_root),(('e02Y')))
    call s__Catalog_Write((Load_BagSwap_root),(('e02Z')))
 endfunction
  

 function Init_BagSwap_9 takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e032')))
    call s__Catalog_Write((Load_BagSwap_root),(('n03K')))
 endfunction
 
 //useless

 function Init_BagSwap_A takes nothing returns nothing
    call s__Catalog_Write((Load_BagSwap_root),(('e03S')))
    call s__Catalog_Write((Load_BagSwap_root),(('e03P')))
    call s__Catalog_Write((Load_BagSwap_root),(('e03Q')))
    call s__Catalog_Write((Load_BagSwap_root),(('e03R')))
 endfunction

 //bag swap 2 ?

 function BagSwap__SetBagSwap_2_Id takes integer v returns nothing
    call s__Catalog_Write((Load_BagSwap_2_root),(v))
 endfunction

 function BagSwap__Init_main2 takes nothing returns nothing
    set Load_BagSwap_2_root=s__Catalog_create()
    call s__Catalog_copy((Load_BagSwap_2_root),(Load_BagSwap_root))
    call s__Catalog_Write((Load_BagSwap_2_root),(('e03S')))
    call s__Catalog_Write((Load_BagSwap_2_root),(('e03P')))
    call s__Catalog_Write((Load_BagSwap_2_root),(('e03Q')))
    call s__Catalog_Write((Load_BagSwap_2_root),(('e03R')))
 endfunction

 function BagSwap_onInit takes nothing returns nothing
    call ExecuteFunc("BagSwap__l2v")
    call ExecuteFunc("BagSwap__Init_main")
    call ExecuteFunc("BagSwap__Init_main2")
 endfunction
//end bag swap

//basic catalog 

 function Init_BasicCatalog27 takes integer v returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(v))
 endfunction

 function Init_BasicCatalog27_1 takes nothing returns nothing
    set BasicCatalog27_root=s__Catalog_create()
 endfunction


 function Init_BasicCatalog27_2 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I007')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00A')))
    call s__Catalog_Write((BasicCatalog27_root),(('I009')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00C')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00B')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00E')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AJ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00Q')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00K')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00P')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00S')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00R')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00T')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01F')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01B')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01C')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01E')))
    call s__Catalog_Write((BasicCatalog27_root),(('I00U')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01G')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01K')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01J')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01H')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AK')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01P')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01Q')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01L')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01M')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01N')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01O')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01V')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01W')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01R')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01S')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01T')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01U')))
    call s__Catalog_Write((BasicCatalog27_root),(('I026')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01X')))
    call s__Catalog_Write((BasicCatalog27_root),(('I01Y')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02F')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02G')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02J')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02H')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02K')))
    call s__Catalog_Write((BasicCatalog27_root),(('I037')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02L')))
    call s__Catalog_Write((BasicCatalog27_root),(('I02M')))
    call s__Catalog_Write((BasicCatalog27_root),(('I038')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03B')))
    call s__Catalog_Write((BasicCatalog27_root),(('I039')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03C')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03A')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03E')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03J')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03K')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03H')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03F')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03L')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03M')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03G')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03S')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03N')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03O')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03T')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03R')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03Q')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03U')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03V')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03P')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05O')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03W')))
    call s__Catalog_Write((BasicCatalog27_root),(('I055')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05J')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03X')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05E')))
    call s__Catalog_Write((BasicCatalog27_root),(('I054')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05M')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05N')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05T')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05R')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05S')))
    call s__Catalog_Write((BasicCatalog27_root),(('I042')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03Y')))
    call s__Catalog_Write((BasicCatalog27_root),(('I044')))
    call s__Catalog_Write((BasicCatalog27_root),(('I045')))
    call s__Catalog_Write((BasicCatalog27_root),(('I040')))
    call s__Catalog_Write((BasicCatalog27_root),(('I041')))
    call s__Catalog_Write((BasicCatalog27_root),(('I046')))
    call s__Catalog_Write((BasicCatalog27_root),(('I047')))
    call s__Catalog_Write((BasicCatalog27_root),(('I043')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05B')))
    call s__Catalog_Write((BasicCatalog27_root),(('I048')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05C')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I049')))
    call s__Catalog_Write((BasicCatalog27_root),(('I059')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05F')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05G')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05A')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05V')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05H')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05U')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05W')))
    call s__Catalog_Write((BasicCatalog27_root),(('I06Z')))
    call s__Catalog_Write((BasicCatalog27_root),(('I06Y')))
    call s__Catalog_Write((BasicCatalog27_root),(('I070')))
    call s__Catalog_Write((BasicCatalog27_root),(('I071')))
    call s__Catalog_Write((BasicCatalog27_root),(('I074')))
    call s__Catalog_Write((BasicCatalog27_root),(('I072')))
    call s__Catalog_Write((BasicCatalog27_root),(('I075')))
    call s__Catalog_Write((BasicCatalog27_root),(('I076')))
    call s__Catalog_Write((BasicCatalog27_root),(('I073')))
    call s__Catalog_Write((BasicCatalog27_root),(('I079')))
    call s__Catalog_Write((BasicCatalog27_root),(('I077')))
    call s__Catalog_Write((BasicCatalog27_root),(('I078')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07A')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07K')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07L')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07E')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07F')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07H')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07C')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07B')))
    call s__Catalog_Write((BasicCatalog27_root),(('I080')))
    call s__Catalog_Write((BasicCatalog27_root),(('I081')))
    call s__Catalog_Write((BasicCatalog27_root),(('I082')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09M')))
    call s__Catalog_Write((BasicCatalog27_root),(('I086')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09O')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08C')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08H')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09Q')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07O')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07N')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07M')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07P')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07V')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07Z')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08F')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08A')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08B')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08J')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08R')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08E')))
    call s__Catalog_Write((BasicCatalog27_root),(('I085')))
    call s__Catalog_Write((BasicCatalog27_root),(('I087')))
    call s__Catalog_Write((BasicCatalog27_root),(('I088')))
    call s__Catalog_Write((BasicCatalog27_root),(('I089')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08G')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AD')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07R')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09S')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07T')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07U')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07X')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07S')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09T')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07Q')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07W')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07Y')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I07J')))
    call s__Catalog_Write((BasicCatalog27_root),(('I03Z')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08L')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08M')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09P')))
    call s__Catalog_Write((BasicCatalog27_root),(('I083')))
    call s__Catalog_Write((BasicCatalog27_root),(('I084')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AE')))
    call s__Catalog_Write((BasicCatalog27_root),(('I067')))
    call s__Catalog_Write((BasicCatalog27_root),(('I098')))
    call s__Catalog_Write((BasicCatalog27_root),(('I096')))
    call s__Catalog_Write((BasicCatalog27_root),(('I097')))
    call s__Catalog_Write((BasicCatalog27_root),(('I099')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09A')))
    call s__Catalog_Write((BasicCatalog27_root),(('I093')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A2')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A3')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A4')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A5')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A6')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A7')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A8')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0A9')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AA')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AC')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09C')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09B')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09H')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09K')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09J')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09G')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09I')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09L')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09E')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09F')))
    call s__Catalog_Write((BasicCatalog27_root),(('I09D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AO')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AN')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AL')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AU')))
 endfunction

 function Init_BasicCatalog27_3 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('rlif')))
    call s__Catalog_Write((BasicCatalog27_root),(('I08X')))
    call s__Catalog_Write((BasicCatalog27_root),(('I06D')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AV')))
    call s__Catalog_Write((BasicCatalog27_root),(('I06E')))
    call s__Catalog_Write((BasicCatalog27_root),(('cnob')))
    call s__Catalog_Write((BasicCatalog27_root),(('ofro')))
    call s__Catalog_Write((BasicCatalog27_root),(('modt')))
 endfunction

 function Init_BasicCatalog27_4 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('ktrm')))
    call s__Catalog_Write((BasicCatalog27_root),(('ches')))
    call s__Catalog_Write((BasicCatalog27_root),(('kysn')))
    call s__Catalog_Write((BasicCatalog27_root),(('dphe')))
 endfunction

 function Init_BasicCatalog27_5 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('pmna')))
    call s__Catalog_Write((BasicCatalog27_root),(('spsh')))
    call s__Catalog_Write((BasicCatalog27_root),(('ciri')))
    call s__Catalog_Write((BasicCatalog27_root),(('mort')))
    call s__Catalog_Write((BasicCatalog27_root),(('prvt')))
    call s__Catalog_Write((BasicCatalog27_root),(('hval')))
    call s__Catalog_Write((BasicCatalog27_root),(('lgdh')))
    call s__Catalog_Write((BasicCatalog27_root),(('ssil')))
    call s__Catalog_Write((BasicCatalog27_root),(('dsum')))
    call s__Catalog_Write((BasicCatalog27_root),(('bspd')))
    call s__Catalog_Write((BasicCatalog27_root),(('mcou')))
    call s__Catalog_Write((BasicCatalog27_root),(('evtl')))
    call s__Catalog_Write((BasicCatalog27_root),(('rin1')))
    call s__Catalog_Write((BasicCatalog27_root),(('kpin')))
    call s__Catalog_Write((BasicCatalog27_root),(('phlt')))
 endfunction

 function Init_BasicCatalog27_6 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('rwiz')))
 endfunction

 function Init_BasicCatalog27_7 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I092')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AY')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AZ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0B0')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0B1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0B2')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0B3')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0B4')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0B5')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0B6')))
 endfunction

 function Init_BasicCatalog27_8 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0BH')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BI')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BJ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BK')))
 endfunction

 function Init_BasicCatalog27_9 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0BM')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BL')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BO')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BN')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BP')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BU')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BV')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C0')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BW')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BX')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BZ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BQ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BR')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BS')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0BT')))
 endfunction

 function Init_BasicCatalog27_10 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0C2')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C3')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C4')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C5')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C6')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C7')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C8')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0C9')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CA')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CB')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CC')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CE')))
 endfunction

 function Init_BasicCatalog27_11 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0CU')))
 endfunction

 function Init_BasicCatalog27_12 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0CR')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CP')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CG')))
    call s__Catalog_Write((BasicCatalog27_root),(('crdt')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CN')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CM')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CO')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CS')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CQ')))
 endfunction

 function Init_BasicCatalog27_13 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('gobm')))
    call s__Catalog_Write((BasicCatalog27_root),(('rump')))
 endfunction

 function Init_BasicCatalog27_14 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('afac')))
    call s__Catalog_Write((BasicCatalog27_root),(('odef')))
    call s__Catalog_Write((BasicCatalog27_root),(('rag1')))
    call s__Catalog_Write((BasicCatalog27_root),(('sbch')))
    call s__Catalog_Write((BasicCatalog27_root),(('clsd')))
    call s__Catalog_Write((BasicCatalog27_root),(('lhst')))
 endfunction

 function Init_BasicCatalog27_15 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('ratc')))
    call s__Catalog_Write((BasicCatalog27_root),(('rat6')))
    call s__Catalog_Write((BasicCatalog27_root),(('ward')))
    call s__Catalog_Write((BasicCatalog27_root),(('rat9')))
    call s__Catalog_Write((BasicCatalog27_root),(('penr')))
    call s__Catalog_Write((BasicCatalog27_root),(('rst1')))
    call s__Catalog_Write((BasicCatalog27_root),(('k3m3')))
 endfunction

 function Init_BasicCatalog27_16 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('ajen')))
    call s__Catalog_Write((BasicCatalog27_root),(('bgst')))
    call s__Catalog_Write((BasicCatalog27_root),(('rhth')))
    call s__Catalog_Write((BasicCatalog27_root),(('hcun')))
 endfunction

 function Init_BasicCatalog27_17 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('belv')))
    call s__Catalog_Write((BasicCatalog27_root),(('crys')))
    call s__Catalog_Write((BasicCatalog27_root),(('stel')))
    call s__Catalog_Write((BasicCatalog27_root),(('rde2')))
    call s__Catalog_Write((BasicCatalog27_root),(('rde3')))
    call s__Catalog_Write((BasicCatalog27_root),(('clfm')))
    call s__Catalog_Write((BasicCatalog27_root),(('gcel')))
 endfunction

 function Init_BasicCatalog27_18 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('shhn')))
    call s__Catalog_Write((BasicCatalog27_root),(('bfhr')))
    call s__Catalog_Write((BasicCatalog27_root),(('stwa')))
    call s__Catalog_Write((BasicCatalog27_root),(('blba')))
    call s__Catalog_Write((BasicCatalog27_root),(('shcw')))
 endfunction

 function Init_BasicCatalog27_19 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('lure')))
    call s__Catalog_Write((BasicCatalog27_root),(('hbth')))
    call s__Catalog_Write((BasicCatalog27_root),(('vddl')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0D1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0D2')))
 endfunction

 function Init_BasicCatalog27_20 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('pgin')))
    call s__Catalog_Write((BasicCatalog27_root),(('rej4')))
    call s__Catalog_Write((BasicCatalog27_root),(('sbok')))
    call s__Catalog_Write((BasicCatalog27_root),(('rej6')))
    call s__Catalog_Write((BasicCatalog27_root),(('srtl')))
    call s__Catalog_Write((BasicCatalog27_root),(('clfm')))
    call s__Catalog_Write((BasicCatalog27_root),(('sor1')))
    call s__Catalog_Write((BasicCatalog27_root),(('rnsp')))
 endfunction

 function Init_BasicCatalog27_21 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0D4')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0D5')))
 endfunction

 function Init_BasicCatalog27_22 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0D6')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0D7')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0D8')))
 endfunction

 function Init_BasicCatalog27_23 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0D9')))
 endfunction

 function Init_BasicCatalog27_24 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0DA')))
 endfunction

 function Init_BasicCatalog27_25 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('srbd')))
    call s__Catalog_Write((BasicCatalog27_root),(('kymn')))
    call s__Catalog_Write((BasicCatalog27_root),(('ledg')))
    call s__Catalog_Write((BasicCatalog27_root),(('gmfr')))
    call s__Catalog_Write((BasicCatalog27_root),(('sehr')))
    call s__Catalog_Write((BasicCatalog27_root),(('cnhn')))
    call s__Catalog_Write((BasicCatalog27_root),(('ckng')))
    call s__Catalog_Write((BasicCatalog27_root),(('gopr')))
    call s__Catalog_Write((BasicCatalog27_root),(('sorf')))
    call s__Catalog_Write((BasicCatalog27_root),(('thle')))
    call s__Catalog_Write((BasicCatalog27_root),(('skrt')))
    call s__Catalog_Write((BasicCatalog27_root),(('tkno')))
    call s__Catalog_Write((BasicCatalog27_root),(('tgxp')))
    call s__Catalog_Write((BasicCatalog27_root),(('sksh')))
    call s__Catalog_Write((BasicCatalog27_root),(('ram4')))
    call s__Catalog_Write((BasicCatalog27_root),(('rej5')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DH')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DI')))
    call s__Catalog_Write((BasicCatalog27_root),(('will')))
    call s__Catalog_Write((BasicCatalog27_root),(('k3m1')))
    call s__Catalog_Write((BasicCatalog27_root),(('dthb')))
    call s__Catalog_Write((BasicCatalog27_root),(('sor6')))
    call s__Catalog_Write((BasicCatalog27_root),(('sor7')))
    call s__Catalog_Write((BasicCatalog27_root),(('rst1')))
    call s__Catalog_Write((BasicCatalog27_root),(('sclp')))
    call s__Catalog_Write((BasicCatalog27_root),(('sor5')))
    call s__Catalog_Write((BasicCatalog27_root),(('sor4')))
    call s__Catalog_Write((BasicCatalog27_root),(('sor3')))
    call s__Catalog_Write((BasicCatalog27_root),(('bzbe')))
 endfunction

 function Init_BasicCatalog27_26 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('rat3')))
    call s__Catalog_Write((BasicCatalog27_root),(('rde4')))
    call s__Catalog_Write((BasicCatalog27_root),(('kybl')))
    call s__Catalog_Write((BasicCatalog27_root),(('jpnt')))
    call s__Catalog_Write((BasicCatalog27_root),(('sor8')))
    call s__Catalog_Write((BasicCatalog27_root),(('esaz')))
 endfunction

 function Init_BasicCatalog27_27 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('sor9')))
    call s__Catalog_Write((BasicCatalog27_root),(('ratf')))
    call s__Catalog_Write((BasicCatalog27_root),(('bzbf')))
    call s__Catalog_Write((BasicCatalog27_root),(('wtlg')))
    call s__Catalog_Write((BasicCatalog27_root),(('shwd')))
    call s__Catalog_Write((BasicCatalog27_root),(('glsk')))
 endfunction

 function Init_BasicCatalog27_28 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0DR')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DS')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DT')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DU')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DV')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DW')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DX')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DY')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0DZ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E0')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E2')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E3')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E4')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E5')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E6')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E7')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E8')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0E9')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EA')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EB')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EC')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0ED')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EE')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EF')))
 endfunction

 function Init_BasicCatalog27_29 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('azhr')))
    call s__Catalog_Write((BasicCatalog27_root),(('dkfw')))
 endfunction

 function Init_BasicCatalog27_30 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0EX')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F5')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EW')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F4')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F6')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EV')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EU')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0ES')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0ET')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F7')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FC')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FB')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F8')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F3')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F9')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FD')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F0')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0CH')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FA')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EZ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0F2')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EY')))
    call s__Catalog_Write((BasicCatalog27_root),(('I05U')))
    call s__Catalog_Write((BasicCatalog27_root),(('rre2')))
 endfunction

 function Init_BasicCatalog27_31 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0FF')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FH')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FG')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FK')))
 endfunction

 function Init_BasicCatalog27_32 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0FL')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FO')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FN')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FM')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FP')))
 endfunction

 function Init_BasicCatalog27_33 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('rhe3')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FR')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0G4')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AP')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FX')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FY')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FZ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0G0')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0G1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0G2')))
    call s__Catalog_Write((BasicCatalog27_root),(('spre')))
    call s__Catalog_Write((BasicCatalog27_root),(('rma2')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FV')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AR')))
    call s__Catalog_Write((BasicCatalog27_root),(('fwss')))
    call s__Catalog_Write((BasicCatalog27_root),(('gfor')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0EO')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FW')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AQ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0AM')))
    call s__Catalog_Write((BasicCatalog27_root),(('ledg')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0FU')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0G3')))
 endfunction

 function Init_BasicCatalog27_34 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('I0GR')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GQ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GM')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GP')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GO')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GN')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GC')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GE')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GG')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GF')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GB')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GD')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GI')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GH')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GJ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GK')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GL')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GS')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GT')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GU')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GV')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GX')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GW')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GY')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0GZ')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0H1')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0H0')))
    call s__Catalog_Write((BasicCatalog27_root),(('shas')))
    call s__Catalog_Write((BasicCatalog27_root),(('rnec')))
    call s__Catalog_Write((BasicCatalog27_root),(('vamp')))
    call s__Catalog_Write((BasicCatalog27_root),(('skul')))
    call s__Catalog_Write((BasicCatalog27_root),(('tsct')))
    call s__Catalog_Write((BasicCatalog27_root),(('tcas')))
    call s__Catalog_Write((BasicCatalog27_root),(('plcl')))
    call s__Catalog_Write((BasicCatalog27_root),(('I0H2')))
 endfunction

 function Init_BasicCatalog27_35 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog27_root),(('wneu')))
    call s__Catalog_Write((BasicCatalog27_root),(('silk')))
    call s__Catalog_Write((BasicCatalog27_root),(('tret')))
    call s__Catalog_Write((BasicCatalog27_root),(('moon')))
    call s__Catalog_Write((BasicCatalog27_root),(('pinv')))
    call s__Catalog_Write((BasicCatalog27_root),(('ocor')))
    call s__Catalog_Write((BasicCatalog27_root),(('rots')))
    call s__Catalog_Write((BasicCatalog27_root),(('frhg')))
 endfunction
  

 function Init_BasicCatalog28 takes integer v returns nothing
    call s__Catalog_Write((BasicCatalog28_root),(v))
 endfunction

 function Init_BasicCatalog28_1 takes nothing returns nothing
    set BasicCatalog28_root=s__Catalog_create()
    call s__Catalog_copy((BasicCatalog28_root),(BasicCatalog27_root))
    call ExecuteFunc("Init_BasicCatalog28_36")
 endfunction
 

 function Init_BasicCatalog28_36 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog28_root),(('k3m2')))
    call s__Catalog_Write((BasicCatalog28_root),(('cosl')))
    call s__Catalog_Write((BasicCatalog28_root),(('mgtk')))
    call s__Catalog_Write((BasicCatalog28_root),(('gldo')))
    call s__Catalog_Write((BasicCatalog28_root),(('flag')))
    call s__Catalog_Write((BasicCatalog28_root),(('kygh')))
    call s__Catalog_Write((BasicCatalog28_root),(('oslo')))
    call s__Catalog_Write((BasicCatalog28_root),(('mlst')))
    call s__Catalog_Write((BasicCatalog28_root),(('thdm')))
    call s__Catalog_Write((BasicCatalog28_root),(('arsh')))
    call s__Catalog_Write((BasicCatalog28_root),(('brag')))
    call s__Catalog_Write((BasicCatalog28_root),(('engs')))
    call s__Catalog_Write((BasicCatalog28_root),(('jdrn')))
    call s__Catalog_Write((BasicCatalog28_root),(('kgal')))
    call s__Catalog_Write((BasicCatalog28_root),(('frgd')))
 endfunction
  
  //added by rus

 function Init_BasicCatalog29 takes integer v returns nothing
    call s__Catalog_Write((BasicCatalog29_root),(v))
 endfunction

 function Init_BasicCatalog29_1 takes nothing returns nothing
    set BasicCatalog29_root=s__Catalog_create()
    call s__Catalog_copy((BasicCatalog29_root),(BasicCatalog28_root))
    call ExecuteFunc("Init_BasicCatalog29_37")
 endfunction

 function Init_BasicCatalog29_37 takes nothing returns nothing
    call s__Catalog_Write((BasicCatalog29_root),(('I09Y')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0A0')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0CF')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0CT')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0DM')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0DO')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0H7')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0H8')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0H9')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HA')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HB')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HC')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HD')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HE')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HF')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HG')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HH')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HI')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HJ')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HK')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HL')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HM')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HN')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HO')))
    call s__Catalog_Write((BasicCatalog29_root),(('I0HP')))
 endfunction
 

 function BasicCatalog_onInit takes nothing returns nothing
    call ExecuteFunc("Init_BasicCatalog27_1")
    call ExecuteFunc("Init_BasicCatalog27_2")
    call ExecuteFunc("Init_BasicCatalog27_3")
    call ExecuteFunc("Init_BasicCatalog27_4")
    call ExecuteFunc("Init_BasicCatalog27_5")
    call ExecuteFunc("Init_BasicCatalog27_6")
    call ExecuteFunc("Init_BasicCatalog27_7")
    call ExecuteFunc("Init_BasicCatalog27_8")
    call ExecuteFunc("Init_BasicCatalog27_9")
    call ExecuteFunc("Init_BasicCatalog27_10")
    call ExecuteFunc("Init_BasicCatalog27_11")
    call ExecuteFunc("Init_BasicCatalog27_12")
    call ExecuteFunc("Init_BasicCatalog27_13")
    call ExecuteFunc("Init_BasicCatalog27_14")
    call ExecuteFunc("Init_BasicCatalog27_15")
    call ExecuteFunc("Init_BasicCatalog27_16")
    call ExecuteFunc("Init_BasicCatalog27_17")
    call ExecuteFunc("Init_BasicCatalog27_18")
    call ExecuteFunc("Init_BasicCatalog27_19")
    call ExecuteFunc("Init_BasicCatalog27_20")
    call ExecuteFunc("Init_BasicCatalog27_21")
    call ExecuteFunc("Init_BasicCatalog27_22")
    call ExecuteFunc("Init_BasicCatalog27_23")
    call ExecuteFunc("Init_BasicCatalog27_24")
    call ExecuteFunc("Init_BasicCatalog27_25")
    call ExecuteFunc("Init_BasicCatalog27_26")
    call ExecuteFunc("Init_BasicCatalog27_27")
    call ExecuteFunc("Init_BasicCatalog27_28")
    call ExecuteFunc("Init_BasicCatalog27_29")
    call ExecuteFunc("Init_BasicCatalog27_30")
    call ExecuteFunc("Init_BasicCatalog27_31")
    call ExecuteFunc("Init_BasicCatalog27_32")
    call ExecuteFunc("Init_BasicCatalog27_33")
    call ExecuteFunc("Init_BasicCatalog27_34")
    call ExecuteFunc("Init_BasicCatalog27_35")
    call ExecuteFunc("Init_BasicCatalog28_1")
    call ExecuteFunc("Init_BasicCatalog29_1")
 endfunction
 
//hero catalog 

 function HeroCatalog__WRITE_01 takes integer v returns nothing
    call s__Catalog_Write(HeroCatalog_01,v)
 endfunction


 function HeroCatalog__Register_01 takes nothing returns nothing
    call s__Catalog_Write(HeroCatalog_01,('H000'))
    call s__Catalog_Write(HeroCatalog_01,('H001'))
    call s__Catalog_Write(HeroCatalog_01,('H002'))
    call s__Catalog_Write(HeroCatalog_01,('H003'))
    call s__Catalog_Write(HeroCatalog_01,('H004'))
    call s__Catalog_Write(HeroCatalog_01,('H005'))
    call s__Catalog_Write(HeroCatalog_01,('H006'))
    call s__Catalog_Write(HeroCatalog_01,('H007'))
    call s__Catalog_Write(HeroCatalog_01,('H008'))
    call s__Catalog_Write(HeroCatalog_01,('H009'))
    call s__Catalog_Write(HeroCatalog_01,('H00E'))
    call s__Catalog_Write(HeroCatalog_01,('H00H'))
    call s__Catalog_Write(HeroCatalog_01,('H00Z'))
    call s__Catalog_Write(HeroCatalog_01,('Udea'))
    call s__Catalog_Write(HeroCatalog_01,('Hmkg'))
    call s__Catalog_Write(HeroCatalog_01,('Hamg'))
    call s__Catalog_Write(HeroCatalog_01,('H00J'))
    call s__Catalog_Write(HeroCatalog_01,('H015'))
    call s__Catalog_Write(HeroCatalog_01,('Hblm'))
    call s__Catalog_Write(HeroCatalog_01,('H01H'))
    call s__Catalog_Write(HeroCatalog_01,('H01I'))
    call s__Catalog_Write(HeroCatalog_01,('H01N'))
    call s__Catalog_Write(HeroCatalog_01,('H01U'))
    call s__Catalog_Write(HeroCatalog_01,('H01V'))
    call s__Catalog_Write(HeroCatalog_01,('H01W'))
    call s__Catalog_Write(HeroCatalog_01,('H01X'))
    call s__Catalog_Write(HeroCatalog_01,('H01Y'))
 endfunction
 

 function HeroCatalog__Init_01 takes nothing returns nothing
    set HeroCatalog_01=s__Catalog_create()
    call ExecuteFunc("HeroCatalog__Register_01")
 endfunction
 

 function HeroCatalog_onInit takes nothing returns nothing
    call HeroCatalog__Init_01()
 endfunction
//end hero catalog

//misc catalog 

 function Init_MiscCatalog17 takes integer v returns nothing
    call s__Catalog_Write((MiscCatalog17_root),(v))
 endfunction

  function Init_MiscCatalog17_1 takes nothing returns nothing
    set MiscCatalog17_root=s__Catalog_create()
    call ExecuteFunc("Init_MiscCatalog17_2")
    call ExecuteFunc("Init_MiscCatalog17_3")
 endfunction
 

 function Init_MiscCatalog17_2 takes nothing returns nothing
    call s__Catalog_Write((MiscCatalog17_root),(('I002')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08Q')))
    call s__Catalog_Write((MiscCatalog17_root),(('I05L')))
    call s__Catalog_Write((MiscCatalog17_root),(('I095')))
    call s__Catalog_Write((MiscCatalog17_root),(('I05X')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06V')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06W')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08O')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06P')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06Q')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06O')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06U')))
    call s__Catalog_Write((MiscCatalog17_root),(('I062')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08N')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06J')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06T')))
    call s__Catalog_Write((MiscCatalog17_root),(('I061')))
    call s__Catalog_Write((MiscCatalog17_root),(('I00X')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08K')))
    call s__Catalog_Write((MiscCatalog17_root),(('I060')))
    call s__Catalog_Write((MiscCatalog17_root),(('I07G')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06R')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06S')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06X')))
    call s__Catalog_Write((MiscCatalog17_root),(('I068')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06I')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08P')))
    call s__Catalog_Write((MiscCatalog17_root),(('I06K')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0AB')))
    call s__Catalog_Write((MiscCatalog17_root),(('I09N')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0AS')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0AT')))
    call s__Catalog_Write((MiscCatalog17_root),(('tels')))
    call s__Catalog_Write((MiscCatalog17_root),(('stpg')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0BY')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0CD')))
    call s__Catalog_Write((MiscCatalog17_root),(('sror')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0CJ')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0CK')))
    call s__Catalog_Write((MiscCatalog17_root),(('rej1')))
    call s__Catalog_Write((MiscCatalog17_root),(('grsl')))
    call s__Catalog_Write((MiscCatalog17_root),(('nflg')))
    call s__Catalog_Write((MiscCatalog17_root),(('shdt')))
    call s__Catalog_Write((MiscCatalog17_root),(('tmmt')))
    call s__Catalog_Write((MiscCatalog17_root),(('oli2')))
    call s__Catalog_Write((MiscCatalog17_root),(('lnrn')))
    call s__Catalog_Write((MiscCatalog17_root),(('amrc')))
    call s__Catalog_Write((MiscCatalog17_root),(('shen')))
    call s__Catalog_Write((MiscCatalog17_root),(('ccmd')))
    call s__Catalog_Write((MiscCatalog17_root),(('dtsb')))
    call s__Catalog_Write((MiscCatalog17_root),(('olig')))
    call s__Catalog_Write((MiscCatalog17_root),(('stre')))
    call s__Catalog_Write((MiscCatalog17_root),(('envl')))
    call s__Catalog_Write((MiscCatalog17_root),(('drph')))
    call s__Catalog_Write((MiscCatalog17_root),(('gvsm')))
    call s__Catalog_Write((MiscCatalog17_root),(('rugt')))
    call s__Catalog_Write((MiscCatalog17_root),(('mnsf')))
    call s__Catalog_Write((MiscCatalog17_root),(('oven')))
    call s__Catalog_Write((MiscCatalog17_root),(('nspi')))
    call s__Catalog_Write((MiscCatalog17_root),(('rde1')))
    call s__Catalog_Write((MiscCatalog17_root),(('wswd')))
    call s__Catalog_Write((MiscCatalog17_root),(('wshs')))
    call s__Catalog_Write((MiscCatalog17_root),(('fgrg')))
    call s__Catalog_Write((MiscCatalog17_root),(('sand')))
    call s__Catalog_Write((MiscCatalog17_root),(('shar')))
    call s__Catalog_Write((MiscCatalog17_root),(('pomn')))
    call s__Catalog_Write((MiscCatalog17_root),(('ofir')))
    call s__Catalog_Write((MiscCatalog17_root),(('shtm')))
    call s__Catalog_Write((MiscCatalog17_root),(('pres')))
    call s__Catalog_Write((MiscCatalog17_root),(('wcyc')))
    call s__Catalog_Write((MiscCatalog17_root),(('infs')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08O')))
    call s__Catalog_Write((MiscCatalog17_root),(('sor2')))
    call s__Catalog_Write((MiscCatalog17_root),(('sora')))
    call s__Catalog_Write((MiscCatalog17_root),(('ram1')))
    call s__Catalog_Write((MiscCatalog17_root),(('soul')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08P')))
    call s__Catalog_Write((MiscCatalog17_root),(('mcri')))
    call s__Catalog_Write((MiscCatalog17_root),(('I08N')))
    call s__Catalog_Write((MiscCatalog17_root),(('gsou')))
    call s__Catalog_Write((MiscCatalog17_root),(('I09N')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0DG')))
    call s__Catalog_Write((MiscCatalog17_root),(('rej2')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0EG')))
    call s__Catalog_Write((MiscCatalog17_root),(('ssan')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0ER')))
    call s__Catalog_Write((MiscCatalog17_root),(('I0EQ')))
    call s__Catalog_Write((MiscCatalog17_root),(('wlsd')))
    call s__Catalog_Write((MiscCatalog17_root),(('rej3')))
    call s__Catalog_Write((MiscCatalog17_root),(('fgsk')))
    call s__Catalog_Write((MiscCatalog17_root),(('tgrh')))
 endfunction
 

 function Init_MiscCatalog17_3 takes nothing returns nothing
    call s__Catalog_Write((MiscCatalog17_root),(('shea')))
 endfunction


//item max charges

 function Init_Item_save_Charges takes nothing returns nothing
    set Item_save_Charges=malloc()
    set Item_load_not=malloc()
    call SaveBoolean(BYHT,Item_save_Charges,'I04W',true)
    call SaveBoolean(BYHT,Item_save_Charges,'I04X',true)
    call SaveBoolean(BYHT,Item_save_Charges,'I04V',true)
    call SaveBoolean(BYHT,Item_save_Charges,'I04U',true)
    call SaveBoolean(BYHT,Item_save_Charges,'I04Y',true)
    call SaveBoolean(BYHT,Item_load_not,'I0EC',true)
    call SaveBoolean(BYHT,Item_load_not,'I0E7',true)
    call SaveBoolean(BYHT,Item_load_not,'I0AU',true)
    call SaveBoolean(BYHT,Item_load_not,'I0E8',true)
    call SaveBoolean(BYHT,Item_load_not,'I09G',true)
 endfunction
 
//misc catalog 18 added by rus guy

 function Init_MiscCatalog18 takes integer asdf returns nothing
    call s__Catalog_Write((MiscCatalog18_root),(asdf))
 endfunction

 function Init_MiscCatalog18_1 takes nothing returns nothing
    set MiscCatalog18_root=s__Catalog_create()
    call ExecuteFunc("Init_MiscCatalog18_2")
 endfunction

 function Init_MiscCatalog18_2 takes nothing returns nothing
    call s__Catalog_Write((MiscCatalog18_root),(('I02E')))
    call s__Catalog_Write((MiscCatalog18_root),(('I02S')))
    call s__Catalog_Write((MiscCatalog18_root),(('I02T')))
    call s__Catalog_Write((MiscCatalog18_root),(('I02U')))
    call s__Catalog_Write((MiscCatalog18_root),(('I02V')))
    call s__Catalog_Write((MiscCatalog18_root),(('I02W')))
    call s__Catalog_Write((MiscCatalog18_root),(('I02X')))
    call s__Catalog_Write((MiscCatalog18_root),(('I02Z')))
    call s__Catalog_Write((MiscCatalog18_root),(('I032')))
    call s__Catalog_Write((MiscCatalog18_root),(('I033')))
    call s__Catalog_Write((MiscCatalog18_root),(('I034')))
    call s__Catalog_Write((MiscCatalog18_root),(('I036')))
    call s__Catalog_Write((MiscCatalog18_root),(('I06C')))
    call s__Catalog_Write((MiscCatalog18_root),(('I09R')))
 endfunction
 
 

 function MiscCatalog_onInit takes nothing returns nothing
    call ExecuteFunc("Init_MiscCatalog17_1")
    call ExecuteFunc("Init_MiscCatalog18_1")
    call ExecuteFunc("Init_Item_save_Charges")
 endfunction
//end misc 


function s__Sound_list_create takes string fileName,boolean looping,boolean is3D,boolean stopwhenoutofrange,integer fadeInRate,integer fadeOutRate,string eaxSetting returns integer
    local integer t=s__Sound_list__allocate()
    set s__Sound_list_Name[t]=fileName
    set s__Sound_list_isloop[t]=looping
    set s__Sound_list_is3D[t]=is3D
    set s__Sound_list_stopwhenoutofrange[t]=stopwhenoutofrange
    set s__Sound_list_fadeInRate[t]=fadeInRate
    set s__Sound_list_fadeOutRate[t]=fadeOutRate
    set s__Sound_list_eaxSetting[t]=eaxSetting
    return t
endfunction

function CreateSound_BJ takes string fileName,boolean looping,boolean is3D,boolean stopwhenoutofrange,integer fadeInRate,integer fadeOutRate,string eaxSetting returns sound
    local integer t=s__Sound_list_create(fileName,looping,is3D,stopwhenoutofrange,fadeInRate,fadeOutRate,eaxSetting)
    set s__Sound_list_Sound=CreateSound(fileName,looping,is3D,stopwhenoutofrange,fadeInRate,fadeOutRate,eaxSetting)
    call SaveInteger(BYHT,SoundUtils__Ht,GetHandleId(s__Sound_list_Sound),t)
    return s__Sound_list_Sound
endfunction

function SetSoundParamsFromLabel_BJ takes sound soundHandle,string soundLabel returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundParamsFromLabel(soundHandle,soundLabel)
    if(t!=null)then
        set s__Sound_list_Label[t]=soundLabel
    endif
endfunction

function SetSoundChannel_BJ takes sound soundHandle,integer channel returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundChannel(soundHandle,channel)
    if(t!=null)then
        set s__Sound_list_channel[t]=channel
    endif
endfunction

function SetSoundDuration_BJ takes sound soundHandle,integer duration returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundDuration(soundHandle,duration)
    if(t!=null)then
        set s__Sound_list_duration[t]=duration
    endif
endfunction

function SetSoundVolume_BJ takes sound soundHandle,integer volume returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundVolume(soundHandle,volume)
    if(t!=null)then
        set s__Sound_list_volume[t]=volume
    endif
endfunction

function SetSoundPitch_BJ takes sound soundHandle,real pitch returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundPitch(soundHandle,pitch)
    if(t!=null)then
        set s__Sound_list_pitch[t]=pitch
    endif
endfunction

function SetSoundDistances_BJ takes sound soundHandle,real minDist,real maxDist returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundDistances(soundHandle,minDist,maxDist)
    if(t!=null)then
        set s__Sound_list_minDist[t]=minDist
        set s__Sound_list_maxDist[t]=maxDist
    endif
endfunction

function SetSoundPosition_BJ takes sound soundHandle,real x,real y,real z returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundPosition(soundHandle,x,y,z)
    if(t!=null)then
        set s__Sound_list_x[t]=x
        set s__Sound_list_y[t]=y
        set s__Sound_list_z[t]=z
    endif
endfunction

function AttachSoundToUnit_BJ takes sound soundHandle,unit whichUnit returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call AttachSoundToUnit(soundHandle,whichUnit)
    if(t!=null)then
        set s__Sound_list_whichUnit[t]=whichUnit
    endif
endfunction

function SetSoundDistanceCutoff_BJ takes sound soundHandle,real cutoff returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    call SetSoundDistanceCutoff(soundHandle,cutoff)
    if(t!=null)then
        set s__Sound_list_cutoff[t]=cutoff
    endif
endfunction

function StartSound_func takes nothing returns nothing
    local integer soundHandle=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call KillSoundWhenDone(ConvertVersion(soundHandle))
endfunction

function StartSound_BJ takes sound soundHandle,boolean b returns nothing
    local integer t=LoadInteger(BYHT,SoundUtils__Ht,GetHandleId(soundHandle))
    if(t!=null)then
        set soundHandle=CreateSound(s__Sound_list_Name[t],s__Sound_list_isloop[t],s__Sound_list_is3D[t],s__Sound_list_stopwhenoutofrange[t],s__Sound_list_fadeInRate[t],s__Sound_list_fadeOutRate[t],s__Sound_list_eaxSetting[t])
        call SetSoundDuration(soundHandle,s__Sound_list_duration[t])
        call SetSoundChannel(soundHandle,s__Sound_list_channel[t])
        call SetSoundVolume(soundHandle,s__Sound_list_volume[t])
        call SetSoundPitch(soundHandle,s__Sound_list_pitch[t])
        if(s__Sound_list_is3D[t])then
            if(b)then
                call AttachSoundToUnit(soundHandle,s__Sound_list_whichUnit[t])
            else
                call SetSoundPosition(soundHandle,s__Sound_list_x[t],s__Sound_list_y[t],s__Sound_list_z[t])
            endif
            if(s__Sound_list_minDist[t]>0)then
                call SetSoundDistances(soundHandle,s__Sound_list_minDist[t],s__Sound_list_maxDist[t])
            endif
            if(s__Sound_list_cutoff[t]>0)then
                call SetSoundDistanceCutoff(soundHandle,s__Sound_list_cutoff[t])
            endif
        endif
        call TimerStart(NewTimer(GetHandleId(soundHandle)),s__Sound_list_duration[t]*.001,false,function StartSound_func)
    endif
    call StartSound(soundHandle)
endfunction

function PlaySoundAtPoint_BJ takes sound soundHandle,real volume,real x,real y,real z returns nothing
    call SetSoundPosition_BJ(soundHandle,x,y,z)
    call SetSoundVolume_BJ(soundHandle,R2I(volume*1.27))
    call StartSound_BJ(soundHandle,false)
endfunction

function PlaySoundOnUnit_BJ takes sound soundHandle,real volume,unit whichUnit returns nothing
    call AttachSoundToUnit_BJ(soundHandle,whichUnit)
    call SetSoundVolume_BJ(soundHandle,R2I(volume*1.27))
    call StartSound_BJ(soundHandle,true)
endfunction

function PlaySoundAtPointLoc_BJ takes sound soundHandle,real volume,location loc,real z returns nothing
    call PlaySoundAtPoint_BJ(soundHandle,volume,GetLocationX(loc),GetLocationY(loc),GetLocationZ(loc)+z)
endfunction

function SoundUtils_onInit takes nothing returns nothing
    if(SoundUtils__Ht==null)then
        set SoundUtils__Ht=malloc()
    endif
    call ExecuteFunc("InitSounds")
endfunction

function StringMove takes string s,string matchedstr,integer f4v,integer DDv returns string
    local integer p=StringLength(matchedstr)
    local integer i=StringLength(s)
    local integer m=DDv
    if(0<i)then
        if(0==f4v)then
            set f4v=-1
        endif
        loop
            exitwhen m>=i or 0==f4v
            if(matchedstr==SubString(s,m,m+p))then
                set f4v=f4v-1
                set s=SubString(s,0,m)+SubString(s,m+p,StringLength(s))
                set i=i-1
            else
                set m=m+1
            endif
        endloop
    endif
    return s
endfunction

function StringAscii takes string s returns integer
    local integer a
    if("\\"==s)then
        return 92
    endif
    set a=string__R[StringHash(s)/ $1F0748+$3EA]
    if(s!=string__I[a])then
        if(0==a)then
            return 0
        endif
        return a+32
    endif
    return a
endfunction

function string__StringAsciiInit takes nothing returns nothing
    set string__R[931]=8
    set string__R[$433]=9
    set string__R[$632]=$A
    set string__R[$53C]=$C
    set string__R[412]=$D
    set string__R[$C6]=32
    set string__R[$7BB]=33
    set string__R[$521]=34
    set string__R[$3EB]=35
    set string__R[$4F0]=36
    set string__R[983]=37
    set string__R[$4FD]=38
    set string__R[306]=39
    set string__R[904]=40
    set string__R[934]=41
    set string__R[917]=42
    set string__R[$7B4]=43
    set string__R[$564]=44
    set string__R[$7C1]=45
    set string__R[869]=46
    set string__R[$772]=47
    set string__R[883]=48
    set string__R[$616]=49
    set string__R[684]=50
    set string__R[582]=51
    set string__R[668]=52
    set string__R[538]=53
    set string__R[672]=54
    set string__R[$495]=55
    set string__R[71]=56
    set string__R[277]=57
    set string__R[89]=58
    set string__R[$475]=59
    set string__R[39]=60
    set string__R[$493]=61
    set string__R[51]=62
    set string__R[305]=63
    set string__R[0]=64
    set string__R[$DE]=65
    set string__R[$B2]=66
    set string__R[$EC]=67
    set string__R[$B8]=68
    set string__R[$50F]=69
    set string__R[$56E]=70
    set string__R[$4FC]=71
    set string__R[$CB]=72
    set string__R[$522]=73
    set string__R[$D1]=74
    set string__R[$523]=75
    set string__R[$AA]=76
    set string__R[$54D]=77
    set string__R[$53F]=78
    set string__R[$575]=79
    set string__R[$58C]=80
    set string__R[$58B]=81
    set string__R[$574]=82
    set string__R[$55E]=83
    set string__R[$57F]=84
    set string__R[499]=85
    set string__R[$5B9]=86
    set string__R[736]=87
    set string__R[289]=88
    set string__R[986]=89
    set string__R[38]=90
    set string__R[$4CE]=91
    set string__R[$664]=93
    set string__R[$588]=94
    set string__R[$77D]=95
    set string__R[$D9]=96
    set string__R[833]=123
    set string__R[$4C3]=124
    set string__R[553]=125
    
    set string__R[58]=$7E
    set string__I[8]="\b"
    set string__I[9]="\t"
    set string__I[$A]="\n"
    set string__I[$C]="\f"
    set string__I[$D]="\r"
    set string__I[32]=" "
    set string__I[33]="!"
    set string__I[34]="\""
    set string__I[35]="#"
    set string__I[36]="$"
    set string__I[37]="%"
    set string__I[38]="&"
    set string__I[39]="'"
    set string__I[40]="("
    set string__I[41]=")"
    set string__I[42]="*"
    set string__I[43]="+"
    set string__I[44]=","
    set string__I[45]="-"
    set string__I[46]="."
    set string__I[47]="/"
    set string__I[48]="0"
    set string__I[49]="1"
    set string__I[50]="2"
    set string__I[51]="3"
    set string__I[52]="4"
    set string__I[53]="5"
    set string__I[54]="6"
    set string__I[55]="7"
    set string__I[56]="8"
    set string__I[57]="9"
    set string__I[58]=":"
    set string__I[59]=";"
    set string__I[60]="<"
    set string__I[61]="="
    set string__I[62]=">"
    set string__I[63]="?"
    set string__I[64]="@"
    set string__I[65]="A"
    set string__I[66]="B"
    set string__I[67]="C"
    set string__I[68]="D"
    set string__I[69]="E"
    set string__I[70]="F"
    set string__I[71]="G"
    set string__I[72]="H"
    set string__I[73]="I"
    set string__I[74]="J"
    set string__I[75]="K"
    set string__I[76]="L"
    set string__I[77]="M"
    set string__I[78]="N"
    set string__I[79]="O"
    set string__I[80]="P"
    set string__I[81]="Q"
    set string__I[82]="R"
    set string__I[83]="S"
    set string__I[84]="T"
    set string__I[85]="U"
    set string__I[86]="V"
    set string__I[87]="W"
    set string__I[88]="X"
    set string__I[89]="Y"
    set string__I[90]="Z"
    set string__I[92]="\\"
    set string__I[97]="a"
    set string__I[98]="b"
    set string__I[99]="c"
    set string__I[100]="d"
    set string__I[101]="e"
    set string__I[102]="f"
    set string__I[103]="g"
    set string__I[104]="h"
    set string__I[105]="i"
    set string__I[106]="j"
    set string__I[107]="k"
    set string__I[108]="l"
    set string__I[109]="m"
    set string__I[110]="n"
    set string__I[111]="o"
    set string__I[112]="p"
    set string__I[113]="q"
    set string__I[114]="r"
    set string__I[115]="s"
    set string__I[116]="t"
    set string__I[117]="u"
    set string__I[118]="v"
    set string__I[119]="w"
    set string__I[120]="x"
    set string__I[121]="y"
    set string__I[122]="z"
    set string__I[91]="["
    set string__I[93]="]"
    set string__I[94]="^"
    set string__I[95]="_"
    set string__I[96]="`"
    set string__I[123]="{"
    set string__I[124]="|"
    set string__I[125]="}"
    set string__I[$7E]="~"
endfunction

function s__Character_Init takes nothing returns nothing
    set s__Character_MemoryBlock=malloc()
endfunction

function s__Character_Reality takes integer this returns string
    return s__Character_reality[this]
endfunction

function s__Character_Length takes integer this returns integer
    return s__Character_length[this]
endfunction

function s__Character_New takes string load_string returns integer
    local integer load_sh
    local string load_char
    local integer this=0
    local integer v
    local integer dv
    local integer hv
    if(1<StringLength(load_string))then
        set load_sh=StringHash(load_string)
        set this=LoadInteger(BYHT,s__Character_MemoryBlock,load_sh)
        set v=this
        if(0!=this)then
            loop
                exitwhen 0==this or load_string==s__Character_reality[this]
                set this=s__Character_list_next[this]
            endloop
        endif
        if(0==this)then
            set s__Character_index=s__Character_index+1
            set this=s__Character_index
            set dv=v
            set hv=load_sh
            set s__Character_Use[this]=true
            set s__Character_vessel[this]=malloc()
            set s__Character_reality[this]=load_string
            set load_sh=StringLength(load_string)
            set s__Character_length[this]=load_sh
            loop
                set load_sh=load_sh-1
                set load_char=SubString(load_string,load_sh,load_sh+1)
                set v=StringAscii(load_char)
                if(HaveSavedInteger(BYHT,s__Character_vessel[this],v))then
                    call free(s__Character_vessel[this])
                    call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"BASE CREATION ERROR: "+load_char+" MULTIPLY DEFINED")
                    set s__Character_index=s__Character_index-1
                    set s__Character_Use[this]=false
                    return 0
                else
                    call SaveInteger(BYHT,s__Character_vessel[this],v,load_sh)
                    call SaveStr(BYHT,(s__Character_vessel[this]),-load_sh,load_char)
                endif
                exitwhen 0==load_sh
            endloop
            if(0==dv)then
                call SaveInteger(BYHT,s__Character_MemoryBlock,hv,this)
            else
                set s__Character_list_next[this]=s__Character_list_next[dv]
                set s__Character_list_next[dv]=this
            endif
        endif
        return this
    endif
    call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"BASE CREATION ERROR: "+load_string+" IS INVALID")
    return 0
endfunction

function s__Character_GetCharId takes integer this,string c returns integer
    if(s__Character_Use[this])then
        if(1<StringLength(c)or""==c or null==c or not(HaveSavedInteger(BYHT,s__Character_vessel[this],StringAscii(c))))then
            call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"BASE ORD ERROR: "+c+" IS OUT OF BOUNDS")
            return 0
        endif
        return LoadInteger(BYHT,s__Character_vessel[this],StringAscii(c))
    endif
    call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"BASE ORD ERROR: "+I2S(this)+" IS NOT ALLOCATED")
    return 0
endfunction

function s__Character_ConvertChar takes integer this,integer i returns string
    if(s__Character_Use[this])then
        if(i<s__Character_length[this]and 0<=i)then
            return LoadStr(BYHT,(s__Character_vessel[this]),-i)
        endif
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"BASE CHAR ERROR: "+I2S(this)+" IS OUT OF BOUNDS")
        return null
    endif
    call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"BASE CHAR ERROR: "+I2S(this)+" IS NOT ALLOCATED")
    return null
endfunction

function s__Character_IsChar takes integer this,string str returns boolean
    local integer i=StringLength(str)
    local string c
    if(0<i)then
        loop
            set c=SubString(str,i-1,i)
            if(not HaveSavedInteger(BYHT,s__Character_vessel[this],StringAscii(c)))then
                return false
            endif
            set i=i-1
            exitwhen 0==i
        endloop
    else
        return false
    endif
    return true
endfunction

function GetCharacterReality takes integer ca returns string
    return(s__Character_reality[(ca)])
endfunction

function GetCharacterLength takes integer ca returns integer
    return(s__Character_length[(ca)])
endfunction

function CharacterGetCharId takes integer ca,string c returns integer
    return s__Character_GetCharId(ca,c)
endfunction

function CharacterConvertChar takes integer ca,integer i returns string
    return s__Character_ConvertChar(ca,i)
endfunction

function CharacterIsChar takes integer ca,string str returns boolean
    return s__Character_IsChar(ca,str)
endfunction

function LongGetLast takes integer this returns integer
    return string__Long_Last[this]
endfunction

function LongGetNext takes integer this returns integer
    return string__Long_Next[this]
endfunction

function LongGetValue takes integer this returns integer
    return string__Long_Value[this]
endfunction

function LongSetValue takes integer this,integer y returns nothing
    set string__Long_Value[this]=y
endfunction

function LongIsRoot takes integer this returns boolean
    return string__Long_IsRoot[this]
endfunction

function string__LongCopy_b takes nothing returns boolean
    local integer y
    local integer z
    local integer q
    local integer k=string__Long_A
    if(0==string__Long_Next[0])then
        set string__Long_I=string__Long_I+1
        set z=string__Long_I
    else
        set z=string__Long_Next[0]
        set string__Long_Next[0]=string__Long_Next[z]
    endif
    set string__Long_IsRoot[z]=true
    set string__Long_Char[z]=string__Long_Char[k]
    set string__Long_Value[z]=0
    set q=z
    loop
        set k=string__Long_Next[k]
        exitwhen string__Long_IsRoot[k]
        if(0==string__Long_Next[0])then
            set string__Long_I=string__Long_I+1
            set y=string__Long_I
        else
            set y=string__Long_Next[0]
            set string__Long_Next[0]=string__Long_Next[y]
        endif
        set string__Long_Next[q]=y
        set string__Long_Last[y]=q
        set string__Long_Value[y]=string__Long_Value[k]
        set q=y
    endloop
    set string__Long_Last[z]=q
    set string__Long_Next[q]=z
    set string__Long_E=z
    return true
endfunction

function LongCopy takes integer this returns integer
    set string__Long_A=this
    if(not TriggerEvaluate(string__LongCopy_a))then
    endif
    return string__Long_E
endfunction

function string__LongAddByLong_b takes nothing returns boolean
    local integer y=string__Long_A
    local integer a
    local integer z=(s__Character_length[((string__Long_Char[y]))])
    local integer q=0
    local integer m
    local integer g=string__Long_E
    local integer k=string__Long_B
    loop
        if(string__Long_IsRoot[string__Long_Next[y]])then
            if(0==string__Long_Next[0])then
                set string__Long_I=string__Long_I+1
                set a=string__Long_I
            else
                set a=string__Long_Next[0]
                set string__Long_Next[0]=string__Long_Next[a]
            endif
            set string__Long_Last[a]=y
            set string__Long_Next[a]=string__Long_A
            set string__Long_Next[y]=a
            set string__Long_Last[string__Long_A]=a
            set string__Long_Value[a]=0
        endif
        set y=string__Long_Next[y]
        exitwhen 0==g
        set g=g-1
    endloop
    loop
        set k=string__Long_Next[k]
        set string__Long_Value[y]=string__Long_Value[y]+string__Long_Value[k]
        set m=y
        loop
            exitwhen z>string__Long_Value[m]
            set q=string__Long_Value[m]/ z
            set string__Long_Value[m]=string__Long_Value[m]-string__Long_Value[m]/ z*z
            if(string__Long_IsRoot[string__Long_Next[m]])then
                if(0==string__Long_Next[0])then
                    set string__Long_I=string__Long_I+1
                    set a=string__Long_I
                else
                    set a=string__Long_Next[0]
                    set string__Long_Next[0]=string__Long_Next[a]
                endif
                set string__Long_Last[a]=m
                set string__Long_Next[a]=string__Long_A
                set string__Long_Next[m]=a
                set string__Long_Last[string__Long_A]=a
                set string__Long_Value[a]=0
            endif
            set m=string__Long_Next[m]
            set string__Long_Value[m]=string__Long_Value[m]+q
        endloop
        exitwhen string__Long_IsRoot[string__Long_Next[k]]
        if(string__Long_IsRoot[string__Long_Next[y]])then
            if(0==string__Long_Next[0])then
                set string__Long_I=string__Long_I+1
                set a=string__Long_I
            else
                set a=string__Long_Next[0]
                set string__Long_Next[0]=string__Long_Next[a]
            endif
            set string__Long_Last[a]=y
            set string__Long_Next[a]=string__Long_A
            set string__Long_Next[y]=a
            set string__Long_Last[string__Long_A]=a
            set string__Long_Value[a]=0
        endif
        set y=string__Long_Next[y]
    endloop
    return true
endfunction

function LongAddByLong takes integer this,integer k,integer g returns nothing
    if((s__Character_length[((string__Long_Char[k]))])==(s__Character_length[((string__Long_Char[this]))]))then
        if(0<string__Long_Value[string__Long_Last[this]])then
            if(0<string__Long_Value[string__Long_Last[k]])then
                set string__Long_A=this
                set string__Long_B=k
                set string__Long_E=g
                if(not TriggerEvaluate(string__LongAddByLong_a))then
                endif
            elseif(0==string__Long_Value[string__Long_Last[k]]and not string__Long_IsRoot[string__Long_Last[this]])then
                set string__Long_Next[string__Long_Last[this]]=0
                set string__Long_Next[0]=string__Long_Next[this]
                set string__Long_Next[this]=this
                set string__Long_Last[this]=this
            endif
        endif
    elseif(string__Long_Char[k]!=string__Long_Char[this])then
    endif
endfunction

function string__LongImulByLong_d takes nothing returns boolean
    local integer q=string__Long_D
    local integer m=string__Long_E
    local integer a
    local integer k=string__Long_C
    loop
        set q=q-1
        if(string__Long_IsRoot[string__Long_Next[m]])then
            if(0==string__Long_Next[0])then
                set string__Long_I=string__Long_I+1
                set a=string__Long_I
            else
                set a=string__Long_Next[0]
                set string__Long_Next[0]=string__Long_Next[a]
            endif
            set string__Long_Last[a]=m
            set string__Long_Next[a]=string__Long_A
            set string__Long_Next[m]=a
            set string__Long_Last[string__Long_A]=a
            set string__Long_Value[a]=0
        endif
        set m=string__Long_Next[m]
        set string__Long_Value[m]=string__Long_Value[m]+string__Long_ArrayInt[q]*string__Long_Value[k]
        exitwhen 0==q
    endloop
    return true
endfunction

function string__LongImulByLong_b takes nothing returns boolean
    local integer y=0
    local integer a=string__Long_A
    local integer m=a
    local integer w=a
    local integer k=string__Long_B
    loop
        set a=string__Long_Last[a]
        exitwhen string__Long_IsRoot[a]
        set string__Long_ArrayInt[y]=string__Long_Value[a]
        set y=y+1
    endloop
    set string__Long_Next[string__Long_Last[a]]=string__Long_Next[0]
    set string__Long_Next[0]=string__Long_Next[a]
    set string__Long_Next[a]=a
    set string__Long_Last[a]=a
    loop
        set k=string__Long_Next[k]
        exitwhen string__Long_IsRoot[k]
        set string__Long_D=y
        set w=string__Long_Next[w]
        set string__Long_E=w
        set string__Long_C=k
        if(not TriggerEvaluate(string__LongImulByLong_c))then
        endif
    endloop
    set y=0
    set a=string__Long_A
    set k=(s__Character_length[((string__Long_Char[a]))])
    loop
        if(string__Long_IsRoot[string__Long_Next[a]])then
            if(0==string__Long_Next[0])then
                set string__Long_I=string__Long_I+1
                set m=string__Long_I
            else
                set m=string__Long_Next[0]
                set string__Long_Next[0]=string__Long_Next[m]
            endif
            set string__Long_Last[m]=a
            set string__Long_Next[m]=string__Long_A
            set string__Long_Next[a]=m
            set string__Long_Last[string__Long_A]=m
            set string__Long_Value[m]=0
        endif
        set a=string__Long_Next[a]
        set y=y+string__Long_Value[a]
        set string__Long_Value[a]=y-y/ k*k
        set y=y/ k
        exitwhen string__Long_IsRoot[string__Long_Next[a]]and 0==y
    endloop
    return true
endfunction

function LongImulByLong takes integer this,integer k returns nothing
    if((s__Character_length[((string__Long_Char[k]))])==(s__Character_length[((string__Long_Char[this]))]))then
        if(0<string__Long_Value[string__Long_Last[this]])then
            if(0<string__Long_Value[string__Long_Last[k]])then
                set string__Long_A=this
                set string__Long_B=k
                if(not TriggerEvaluate(string__LongImulByLong_a))then
                endif
            elseif(0==string__Long_Value[string__Long_Last[k]]and not string__Long_IsRoot[string__Long_Last[this]])then
                set string__Long_Next[string__Long_Last[this]]=0
                set string__Long_Next[0]=string__Long_Next[this]
                set string__Long_Next[this]=this
                set string__Long_Last[this]=this
            endif
        endif
    elseif(string__Long_Char[k]!=string__Long_Char[this])then
    endif
endfunction

function NewLonginteger takes integer k returns integer
    local integer z
    if(0==string__Long_Next[0])then
        set string__Long_I=string__Long_I+1
        set z=string__Long_I
    else
        set z=string__Long_Next[0]
        set string__Long_Next[0]=string__Long_Next[z]
    endif
    set string__Long_IsRoot[z]=true
    set string__Long_Char[z]=k
    set string__Long_Next[z]=z
    set string__Long_Last[z]=z
    set string__Long_Value[z]=0
    return z
endfunction

function string__LongAdd_b takes nothing returns boolean
    local integer y=string__Long_A
    local integer a
    local integer z=string__Long_C
    local integer k=string__Long_D
    loop
        if(string__Long_IsRoot[string__Long_Next[y]])then
            if(0==string__Long_Next[0])then
                set string__Long_I=string__Long_I+1
                set a=string__Long_I
            else
                set a=string__Long_Next[0]
                set string__Long_Next[0]=string__Long_Next[a]
            endif
            set string__Long_Last[a]=y
            set string__Long_Next[a]=string__Long_A
            set string__Long_Next[y]=a
            set string__Long_Last[string__Long_A]=a
            set string__Long_Value[a]=0
        endif
        set y=string__Long_Next[y]
        exitwhen 0==z
        set z=z-1
    endloop
    set z=(s__Character_length[((string__Long_Char[string__Long_A]))])
    loop
        set string__Long_Value[y]=string__Long_Value[y]+k
        exitwhen z>string__Long_Value[y]
        set k=string__Long_Value[y]/ z
        set string__Long_Value[y]=string__Long_Value[y]-k*z
        if(string__Long_IsRoot[string__Long_Next[y]])then
            if(0==string__Long_Next[0])then
                set string__Long_I=string__Long_I+1
                set a=string__Long_I
            else
                set a=string__Long_Next[0]
                set string__Long_Next[0]=string__Long_Next[a]
            endif
            set string__Long_Last[a]=y
            set string__Long_Next[a]=string__Long_A
            set string__Long_Next[y]=a
            set string__Long_Last[string__Long_A]=a
            set string__Long_Value[a]=0
        endif
        set y=string__Long_Next[y]
    endloop
    return true
endfunction

function LongAdd takes integer this,integer k,integer g returns nothing
    if 0<=g then
        if(0<k)then
            set string__Long_A=this
            set string__Long_C=g
            set string__Long_D=k
            if(not TriggerEvaluate(string__LongAdd_a))then
            endif
        endif
    endif
endfunction

function string__LongImul_b takes nothing returns boolean
    local integer y=string__Long_A
    local integer z=(s__Character_length[((string__Long_Char[string__Long_A]))])
    local integer a
    local integer k=string__Long_B
    local integer q
    loop
        set y=string__Long_Next[y]
        exitwhen string__Long_IsRoot[y]
        set string__Long_Value[y]=string__Long_Value[y]*k
    endloop
    set y=string__Long_A
    loop
        set y=string__Long_Next[y]
        exitwhen string__Long_IsRoot[y]
        set q=y
        loop
            exitwhen z>string__Long_Value[q]
            if(string__Long_IsRoot[string__Long_Next[q]])then
                if(0==string__Long_Next[0])then
                    set string__Long_I=string__Long_I+1
                    set a=string__Long_I
                else
                    set a=string__Long_Next[0]
                    set string__Long_Next[0]=string__Long_Next[a]
                endif
                set string__Long_Last[a]=q
                set string__Long_Next[a]=string__Long_A
                set string__Long_Next[q]=a
                set string__Long_Last[string__Long_A]=a
                set string__Long_Value[a]=0
            endif
            set string__Long_Value[string__Long_Next[q]]=string__Long_Value[string__Long_Next[q]]+string__Long_Value[q]/ z
            set string__Long_Value[q]=string__Long_Value[q]-string__Long_Value[q]/ z*z
        endloop
    endloop
    return true
endfunction

function LongImul takes integer this,integer k returns nothing
    if(1<k)then
        if(0<string__Long_Value[string__Long_Last[this]])then
            set string__Long_A=this
            set string__Long_B=k
            if(not TriggerEvaluate(string__LongImul_a))then
            endif
        endif
    elseif(0==k and not string__Long_IsRoot[string__Long_Last[this]])then
        set string__Long_Next[string__Long_Last[this]]=string__Long_Next[0]
        set string__Long_Next[0]=string__Long_Next[this]
        set string__Long_Next[this]=this
        set string__Long_Last[this]=this
    endif
endfunction

function string__LongModulo_b takes nothing returns boolean
    local integer z=0
    local integer q=string__Long_A
    local integer u=(s__Character_length[((string__Long_Char[q]))])
    local integer k=string__Long_B
    loop
        set q=string__Long_Last[q]
        exitwhen string__Long_IsRoot[q]
        set z=z*u+string__Long_Value[q]
        set z=z-z/ k*k
    endloop
    set string__Long_E=z
    return true
endfunction

function LongModulo takes integer this,integer k returns integer
    set string__Long_A=this
    set string__Long_B=k
    if(0==string__Long_Value[string__Long_Last[this]]or 0==k)then
        return 0
    endif
    if not TriggerEvaluate(string__LongModulo_a)then
    endif
    return string__Long_E
endfunction

function RemoveLongInteger takes integer this returns nothing
    if(string__Long_IsRoot[this])then
        set string__Long_Next[string__Long_Last[this]]=string__Long_Next[0]
        set string__Long_Next[0]=this
        set string__Long_IsRoot[this]=false
    endif
endfunction

function string__LongToString_b takes nothing returns boolean
    local string q=""
    local integer y=string__Long_A
    local integer z=string__Long_Char[y]
    loop
        set y=string__Long_Next[y]
        exitwhen string__Long_IsRoot[y]
        set q=(s__Character_ConvertChar((z),(string__Long_Value[y])))+q
    endloop
    if(q=="")then
        set string__Long_String=(s__Character_ConvertChar((z),(0)))
    else
        set string__Long_String=q
    endif
    return true
endfunction

function LongToString takes integer this returns string
    set string__Long_A=this
    if not TriggerEvaluate(string__LongToString_a)then
    endif
    return string__Long_String
endfunction

function string__LongModifyUseCharacter_c takes nothing returns boolean
    local integer u=4
    loop
        call string__LongAdd_b()
        if(string__Long_IsRoot[string__Long_Last[string__Long_F]])then
            return true
        endif
        call string__LongImul_b()
        set string__Long_G=string__Long_Last[string__Long_F]
        set string__Long_Last[string__Long_F]=string__Long_Last[string__Long_G]
        set string__Long_D=string__Long_Value[string__Long_G]
        set string__Long_Next[string__Long_G]=string__Long_Next[0]
        set string__Long_Next[0]=string__Long_G
        set u=u-1
        exitwhen 0==u
    endloop
    return false
endfunction

function string__LongModifyUseCharacter_b takes nothing returns boolean
    local integer q=string__Long_A
    local integer u
    local integer k
    if(0==string__Long_Next[0])then
        set string__Long_I=string__Long_I+1
        set k=string__Long_I
    else
        set k=string__Long_Next[0]
        set string__Long_Next[0]=string__Long_Next[k]
    endif
    set string__Long_IsRoot[k]=true
    set u=string__Long_Last[q]
    set string__Long_Last[q]=string__Long_Last[u]
    set string__Long_Last[k]=u
    set string__Long_Next[k]=u
    set string__Long_Last[u]=k
    set string__Long_Next[u]=k
    set string__Long_Char[k]=string__Long_D
    set string__Long_Value[k]=0
    set string__Long_B=(s__Character_length[(((string__Long_Char[string__Long_A])))])
    set string__Long_C=0
    set string__Long_A=k
    set string__Long_D=string__Long_Value[u]
    set string__Long_Value[u]=0
    set string__Long_F=q
    set string__Long_G=u
    loop
        exitwhen TriggerEvaluate(string__LongModifyUseCharacter_a)
    endloop
    set string__Long_Next[q]=string__Long_Next[k]
    set string__Long_Last[q]=string__Long_Last[k]
    set string__Long_Last[string__Long_Next[k]]=q
    set string__Long_Next[string__Long_Last[k]]=q
    set string__Long_Next[k]=string__Long_Next[0]
    set string__Long_Next[0]=k
    set string__Long_IsRoot[k]=false
    return true
endfunction

function LongModifyUseCharacter takes integer this,integer k returns nothing
    if((s__Character_length[((string__Long_Char[this]))])!=(s__Character_length[((k))])and not string__Long_IsRoot[string__Long_Next[this]])then
        set string__Long_A=this
        set string__Long_D=k
        call string__LongModifyUseCharacter_b()
    endif
    set string__Long_Char[this]=k
    if(8191<string__Long_I)then
    endif
endfunction

function LongToInt takes integer this returns integer
    local integer k=0
    local integer z=(s__Character_length[((string__Long_Char[this]))])
    loop
        set this=string__Long_Last[this]
        exitwhen string__Long_IsRoot[this]
        set k=k*z
        set k=k+string__Long_Value[this]
    endloop
    return k
endfunction

function string__LongSub_b takes nothing returns boolean
    local integer z=0
    local integer a=string__Long_A
    local integer y=a
    local integer h=(s__Character_length[((string__Long_Char[a]))])
    local integer k=string__Long_B
    set y=string__Long_Last[y]
    loop
        set z=z*h+string__Long_Value[y]
        exitwhen string__Long_IsRoot[string__Long_Last[y]]or z>=k
        set string__Long_Next[y]=string__Long_Next[0]
        set string__Long_Next[0]=y
        set y=string__Long_Last[y]
    endloop
    set string__Long_Last[a]=y
    set string__Long_Next[y]=a
    loop
        set string__Long_Value[y]=z/ k
        set z=z-string__Long_Value[y]*k
        set y=string__Long_Last[y]
        exitwhen string__Long_IsRoot[y]
        set z=z*h+string__Long_Value[y]
    endloop
    set y=a
    loop
        set y=string__Long_Last[y]
        exitwhen 0!=string__Long_Value[y]or string__Long_IsRoot[y]
        set string__Long_Next[y]=string__Long_Next[0]
        set string__Long_Next[0]=y
    endloop
    set string__Long_Last[a]=y
    set string__Long_Next[y]=a
    set string__Long_B=z
    return true
endfunction

function LongSub takes integer this,integer k returns integer
    if(1<k and 0<string__Long_Value[string__Long_Last[this]])then
        set string__Long_A=this
        set string__Long_B=k
        if not TriggerEvaluate(string__LongSub_a)then
        endif
    else
        return 0
    endif
    return string__Long_B
endfunction

function string__StringToLong_b takes nothing returns boolean
    local integer d=string__Long_A
    local string k=string__Long_String
    local integer y
    local integer z
    local integer h=StringLength(k)
    if(not(s__Character_IsChar((d),(k))))then
        set string__Long_A=0
        return true
    endif
    if(0==string__Long_Next[0])then
        set string__Long_I=string__Long_I+1
        set z=string__Long_I
    else
        set z=string__Long_Next[0]
        set string__Long_Next[0]=string__Long_Next[z]
    endif
    set string__Long_IsRoot[z]=true
    set string__Long_Char[z]=d
    set string__Long_Next[z]=z
    set string__Long_Last[z]=z
    set string__Long_Value[z]=0
    loop
        set h=h-1
        if(0==string__Long_Next[0])then
            set string__Long_I=string__Long_I+1
            set y=string__Long_I
        else
            set y=string__Long_Next[0]
            set string__Long_Next[0]=string__Long_Next[y]
        endif
        set string__Long_Value[y]=(s__Character_GetCharId((d),(SubString(k,h,h+1))))
        set string__Long_Last[y]=string__Long_Last[z]
        set string__Long_Next[y]=z
        set string__Long_Next[string__Long_Last[z]]=y
        set string__Long_Last[z]=y
        exitwhen 0==h
    endloop
    set string__Long_A=z
    return true
endfunction

function StringToLong takes string k,integer y returns integer
    set string__Long_String=k
    set string__Long_A=y
    if not TriggerEvaluate(string__StringToLong_a)then
    endif
    return string__Long_A
endfunction

function GetLongUseCharacter takes integer this returns integer
    return string__Long_Char[this]
endfunction

function string__kfv takes nothing returns nothing
    call TriggerAddCondition(string__LongImul_a,Condition(function string__LongImul_b))
    call TriggerAddCondition(string__LongSub_a,Condition(function string__LongSub_b))
    call TriggerAddCondition(string__StringToLong_a,Condition(function string__StringToLong_b))
    call TriggerAddCondition(string__LongAdd_a,Condition(function string__LongAdd_b))
    call TriggerAddCondition(string__LongModulo_a,Condition(function string__LongModulo_b))
    call TriggerAddCondition(string__LongToString_a,Condition(function string__LongToString_b))
    call TriggerAddCondition(string__LongCopy_a,Condition(function string__LongCopy_b))
    call TriggerAddCondition(string__LongAddByLong_a,Condition(function string__LongAddByLong_b))
    call TriggerAddCondition(string__LongImulByLong_a,Condition(function string__LongImulByLong_b))
    call TriggerAddCondition(string__LongImulByLong_c,Condition(function string__LongImulByLong_d))
    call TriggerAddCondition(string__LongModifyUseCharacter_a,Condition(function string__LongModifyUseCharacter_c))
endfunction

function Qbv takes nothing returns integer
    set Io[0]=3
    set Io[1]=2
    return 2
endfunction

function QBv takes integer mlv,boolean i0 returns nothing
    set eo=0
    if(i0)then
        loop
            set mlv=(string__Long_Next[(mlv)])
            exitwhen(string__Long_IsRoot[(mlv)])
            set Zx[eo]=mlv
            set eo=eo+1
        endloop
    else
        loop
            set mlv=(string__Long_Next[(mlv)])
            exitwhen(string__Long_IsRoot[((string__Long_Next[(mlv)]))])
            set Zx[eo]=mlv
            set eo=eo+1
        endloop
        set mlv=(string__Long_Next[(mlv)])
    endif
endfunction

function Qcv takes integer mlv,boolean i0 returns nothing
    set eo=0
    if(not i0)then
        set mlv=(string__Long_Last[(mlv)])
    endif
    loop
        set mlv=(string__Long_Last[(mlv)])
        exitwhen(string__Long_IsRoot[(mlv)])
        set Zx[eo]=mlv
        set eo=eo+1
    endloop
endfunction

function QCv takes integer id,integer i2 returns nothing
    loop
        exitwhen 0==i2
        set oo=eo
        loop
            exitwhen 0==oo
            set oo=oo-1
            if(zx[xo])then
                set xo=Yx[id]
            else
                set xo=xo+1
            endif
        endloop
        set i2=i2-1
    endloop
endfunction

function Qdv takes integer mlv,integer id,integer QDv,integer bb,boolean i0 returns nothing
    local integer b=(string__Long_Char[(mlv)])
    set ao=id
    set xo=Yx[id]
    set vo=QDv
    if(0!=Yx[id])then
        if(b!=bb)then
            call LongModifyUseCharacter(mlv,bb)
        endif
        call QBv(mlv,i0)
        call TriggerEvaluate(Eo)
        if(b!=bb)then
            call LongModifyUseCharacter(mlv,b)
        endif
    else
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"SCRAMBLER ERROR: INVALID PLAYER "+I2S(id))
    endif
endfunction

function Qfv takes nothing returns boolean
    loop
        exitwhen 0==vo
        set oo=eo
        loop
            exitwhen 0==oo
            set oo=oo-1
            set ro=oo-Yx[xo]
            loop
                exitwhen 0<=ro
                set ro=eo+ro
            endloop
            set io=(string__Long_Value[(Zx[ro])])
            set string__Long_Value[(Zx[ro])]=((string__Long_Value[(Zx[oo])]))
            set string__Long_Value[(Zx[oo])]=(io)
            if(zx[xo])then
                set xo=Yx[ao]
            else
                set xo=xo+1
            endif
        endloop
        set vo=vo-1
    endloop
    return false
endfunction

function QFv takes nothing returns boolean
    loop
        exitwhen 0==vo
        set oo=eo
        loop
            exitwhen 0==oo
            set oo=oo-1
            set xo=xo-1
            if(0==Yx[xo])then
                set xo=Yx[ao+$C]
            endif
            set ro=oo+Yx[xo]
            loop
                exitwhen ro<eo
                set ro=ro-eo
            endloop
            set io=(string__Long_Value[(Zx[ro])])
            set string__Long_Value[(Zx[ro])]=((string__Long_Value[(Zx[oo])]))
            set string__Long_Value[(Zx[oo])]=(io)
        endloop
        set vo=vo-1
    endloop
    return false
endfunction

function Qgv takes nothing returns boolean
    local integer sh=0
    set xo=Yx[ao]
    loop
        exitwhen sh==Ao
        set vo=1
        call LongModifyUseCharacter(Oo,Ro[Io[sh]])
        call QBv(Oo,false)
        call Qfv()
        set sh=sh+1
        set xo=Yx[ao]
    endloop
    return false
endfunction

function QGv takes nothing returns boolean
    local integer sh=Ao
    set xo=Yx[ao]
    loop
        exitwhen 0==sh
        set sh=sh-1
        set vo=1
        call LongModifyUseCharacter(Oo,Ro[Io[sh]])
        call Qcv(Oo,false)
        call QCv(ao,1)
        call QFv()
        set xo=Yx[ao]
    endloop
    return false
endfunction

function Qhv takes integer mlv,integer id,integer h returns nothing
    local integer b=(string__Long_Char[(mlv)])
    if(0!=Yx[id])then
        set Oo=mlv
        set ao=id
        loop
            exitwhen 0==h
            call TriggerEvaluate(no)
            set h=h-1
        endloop
        call LongModifyUseCharacter(mlv,b)
    else
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"SCRAMBLER ERROR: INVALID PLAYER "+I2S(id))
    endif
endfunction

function QHv takes integer mlv,integer id,integer h returns nothing
    local integer b=(string__Long_Char[(mlv)])
    if(0!=Yx[id])then
        set Oo=mlv
        set ao=id
        loop
            exitwhen 0==h
            call TriggerEvaluate(Vo)
            set h=h-1
        endloop
        call LongModifyUseCharacter(mlv,b)
    else
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"SCRAMBLER ERROR: INVALID PLAYER "+I2S(id))
    endif
endfunction

function Qjv takes nothing returns nothing
    local integer is=$B
    local integer hh
    local integer ks=25
    local integer b8=s__Character_New("012345678")
    local integer bg
    call TriggerAddCondition(no,Condition(function Qgv))
    call TriggerAddCondition(Vo,Condition(function QGv))
    call TriggerAddCondition(Eo,Condition(function Qfv))
    call TriggerAddCondition(Xo,Condition(function QFv))
    set Ro[2]=s__Character_New("01")
    set Ro[3]=s__Character_New("012")
    set Ro[5]=s__Character_New("01234")
    set Ro[7]=s__Character_New("0123456")
    set Ro[$B]=s__Character_New("0123456789A")
    set Ro[$D]=s__Character_New("0123456789ABC")
    set Ro[17]=s__Character_New("0123456789ABCDEFG")
    set Ao=Qbv()
    loop
        if pV[is]then
            set Yx[is]=ks
            set hh=StringHash(StringCase(Game_PlayerName[is]+"7/bh+74~r\\ZX",false))
            if(0>hh)then
                set hh=-hh
            endif
            set bg=NewLonginteger(b8)
            call LongAdd(bg,hh,0)
            set bg=(string__Long_Last[(bg)])
            loop
                set Yx[ks]=(string__Long_Value[(bg)])+1
                set bg=(string__Long_Last[(bg)])
                exitwhen(string__Long_IsRoot[(bg)])
                set ks=ks+1
            endloop
            set zx[ks]=true
            set Yx[is+$C]=ks
            call RemoveLongInteger(bg)
            set ks=ks+2
        endif
        exitwhen 0==is
        set is=is-1
    endloop
endfunction

function Dcv takes string s,string DCv,integer Ddv,integer DDv returns string
    local integer i=StringLength(s)
    local integer p=1
    loop
        exitwhen p*Ddv+DDv>=i
        set s=SubString(s,0,p*Ddv+p+DDv-1)+DCv+SubString(s,p*Ddv+p+DDv-1,StringLength(s))
        set p=p+1
    endloop
    return s
endfunction

function fOv takes string s,string fRv,string fIv,string fAv,string fNv,integer DDv returns string
    local string ns=""
    local string c
    local integer m=StringLength(s)
    local integer i=DDv
    local boolean l
    loop
        exitwhen m==i
        set c=SubString(s,i,i+1)
        if(c!=" ")then
            set l=StringCase(c,false)==c
            if(c==StringCase(c,true)and l)then
                if("0"==c or 0!=S2I(c))then
                    set ns=ns+"|cff"+fRv+c
                else
                    set ns=ns+"|cff"+fNv+c
                endif
            elseif(l)then
                set ns=ns+"|cff"+fIv+c
            else
                set ns=ns+"|cff"+fAv+c
            endif
        else
            set ns=ns+" "
        endif
        set i=i+1
    endloop
    return ns
endfunction

function string_onInit takes nothing returns nothing
    call string__StringAsciiInit()
    set s__Character_MemoryBlock=malloc()
    call string__kfv()
    call TimerStart(NewTimer($75BCD15),0,false,function Qjv)
endfunction

function s__Multiboard_onDestroy takes integer this returns nothing
    call DestroyMultiboard(s__Multiboard_Ie[this])
    call free(s__Multiboard_vessel[this])
    set s__Multiboard_vessel[this]=0
    set s__Multiboard_Ie[this]=null
endfunction

function s__Multiboard_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Multiboard_V[this]!=-1)then
        return
    endif
    call s__Multiboard_onDestroy(this)
    set si__Multiboard_V[this]=si__Multiboard_F
    set si__Multiboard_F=this
endfunction

function MultiboardInitItem takes integer multid returns nothing
    local integer l__vl=s__Multiboard_vessel[multid]
    local integer row=s__Multiboard_RowCount[multid]
    local integer column
    local multiboarditem mb
    loop
        exitwhen 0==row
        set row=row-1
        set column=s__Multiboard_ColumnCount[multid]
        loop
            exitwhen 0==column
            set column=column-1
            set mb=MultiboardGetItem(s__Multiboard_Ie[multid],row,column)
            call SaveInteger(BYHT2,l__vl,row*s__Multiboard_ColumnCount[multid]+column,GetHandleId(mb))
        endloop
    endloop
    set mb=null
endfunction

function NewMultiboard takes integer row,integer column returns integer
    local integer multid=s__Multiboard__allocate()
    set s__Multiboard_vessel[multid]=malloc()
    set s__Multiboard_Ie[multid]=CreateMultiboard()
    call MultiboardSetColumnCount(s__Multiboard_Ie[multid],column)
    call MultiboardSetRowCount(s__Multiboard_Ie[multid],row)
    set s__Multiboard_RowCount[multid]=row
    set s__Multiboard_ColumnCount[multid]=column
    call MultiboardInitItem(multid)
    return multid
endfunction

function MultiboardSetItemColumnValueBY takes integer multid,integer c,string v returns nothing
    local integer l__vl=s__Multiboard_vessel[multid]
    local integer column=s__Multiboard_ColumnCount[multid]
    local multiboarditem mb
    set c=(s__Multiboard_RowCount[multid]-1)*(column)+c
    loop
        exitwhen 0>c
        set mb=ConvertVersion(LoadInteger(BYHT2,l__vl,c))
        call MultiboardSetItemValue(mb,v)
        set c=c-column
    endloop
    set mb=null
endfunction

function MultiboardSetItemRowStyleBY takes integer multid,integer c,boolean v,boolean i returns nothing
    local integer l__vl=s__Multiboard_vessel[multid]
    local integer column=s__Multiboard_ColumnCount[multid]
    local integer end
    local multiboarditem mb
    set c=c*column
    set end=c+column
    loop
        exitwhen c>=end
        set mb=ConvertVersion(LoadInteger(BYHT2,l__vl,c))
        call MultiboardSetItemStyle(mb,v,i)
        set c=c+1
    endloop
    set mb=null
endfunction

function MultiboardSetItemColumnWidthBY takes integer multid,integer c,real p returns nothing
    local integer l__vl=s__Multiboard_vessel[multid]
    local integer column=s__Multiboard_ColumnCount[multid]
    local multiboarditem mb
    set c=(s__Multiboard_RowCount[multid]-1)*(column)+c
    loop
        exitwhen 0>c
        set mb=ConvertVersion(LoadInteger(BYHT2,l__vl,c))
        call MultiboardSetItemWidth(mb,p)
        set c=c-column
    endloop
    set mb=null
endfunction

function MultiboardSetItemValueBY takes integer multid,integer row,integer column,string val returns nothing
    call MultiboardSetItemValue(ConvertVersion(LoadInteger(BYHT2,s__Multiboard_vessel[multid],row*s__Multiboard_ColumnCount[multid]+column)),val)
endfunction

function MultiboardSetItemStyleBY takes integer multid,integer row,integer column,boolean showValue,boolean showIcon returns nothing
    call MultiboardSetItemStyle(ConvertVersion(LoadInteger(BYHT2,s__Multiboard_vessel[multid],row*s__Multiboard_ColumnCount[multid]+column)),showValue,showIcon)
endfunction

function MultiboardSetItemIconBY takes integer multid,integer row,integer column,string iconFileName returns nothing
    call MultiboardSetItemIcon(ConvertVersion(LoadInteger(BYHT2,s__Multiboard_vessel[multid],row*s__Multiboard_ColumnCount[multid]+column)),iconFileName)
endfunction

function MultiboardSetItemWidthBY takes integer multid,integer row,integer column,real width returns nothing
    call MultiboardSetItemWidth(ConvertVersion(LoadInteger(BYHT2,s__Multiboard_vessel[multid],row*s__Multiboard_ColumnCount[multid]+column)),width)
endfunction

function MultiboardSetItemsStyleBY takes integer multid,boolean showValues,boolean showIcons returns nothing
    call MultiboardSetItemsStyle(s__Multiboard_Ie[multid],showValues,showIcons)
endfunction

function MultiboardDisplayBY takes integer multid,boolean b returns nothing
    call MultiboardDisplay(s__Multiboard_Ie[multid],b)
endfunction

function MultiboardMinimizeBY takes integer multid,boolean b returns nothing
    call MultiboardMinimize(s__Multiboard_Ie[multid],b)
endfunction

function MultiboardSetTitleTextBY takes integer multid,string label returns nothing
    call MultiboardSetTitleText(s__Multiboard_Ie[multid],label)
endfunction

function s__Button_onDestroy takes integer this returns nothing
    if s__Button_an[this]!=null then
        call RemoveSavedInteger(BYHT2,system_Dialog__fO,GetHandleId(s__Button_an[this]))
        set s__Button_an[this]=null
    endif
    if s__Button_c[this]!=null then
        call DestroyBoolExpr(s__Button_c[this])
        set s__Button_c[this]=null
    endif
endfunction

function s__Button_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Button_V[this]!=-1)then
        return
    endif
    call s__Button_onDestroy(this)
    set si__Button_V[this]=si__Button_F
    set si__Button_F=this
endfunction

function s__Dialog_onDestroy takes integer this returns nothing
    local integer b
    loop
        exitwhen s__Dialog_index[this]==0
        set s__Dialog_index[this]=s__Dialog_index[this]-1
        set b=LoadInteger(BYHT,s__Dialog_vessel[this],s__Dialog_index[this])
        call s__Button_deallocate(b)
    endloop
    if s__Dialog_action[this]!=null then
        call DestroyBoolExpr(s__Dialog_action[this])
        set s__Dialog_action[this]=null
    endif
    call RemoveSavedInteger(BYHT2,system_Dialog__fO,GetHandleId(s__Dialog_di[this]))
    call DestroyTrigger(s__Dialog_trig[this])
    call DialogDestroy(s__Dialog_di[this])
    call free(s__Dialog_vessel[this])
    set s__Dialog_vessel[this]=0
endfunction

function s__Dialog_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif(si__Dialog_V[this]!=-1)then
        return
    endif
    call s__Dialog_onDestroy(this)
    set si__Dialog_V[this]=si__Dialog_F
    set si__Dialog_F=this
endfunction

function GetDialogData takes nothing returns integer
    return LoadInteger(BYHT,system_Dialog__fO,GetHandleId(GetClickedDialog()))
endfunction

function GetButtonData takes integer t returns integer
    return LoadInteger(BYHT,system_Dialog__fO,GetHandleId(GetClickedButton()))
endfunction

function SetDialogMessage takes integer t,string text returns nothing
    set s__Dialog_text[t]=text
endfunction

function GetDialogButtonByIndex takes integer t,integer i returns integer
    if i>=0 and i<s__Dialog_index[t]then
        return LoadInteger(BYHT,s__Dialog_vessel[t],i)
    endif
    return 0
endfunction

function DialogButtonShow takes integer t,integer i,boolean show returns nothing
    if i>=0 and i<s__Dialog_index[t]then
        set s__Button_isdis[(LoadInteger(BYHT,s__Dialog_vessel[t],i))]=show
        set s__Dialog_b[t]=true
    endif
endfunction

function DialogClearButtone takes integer t returns nothing
    local integer i
    local integer b
    if s__Dialog_index[t]>0 then
        set i=s__Dialog_index[t]
        loop
            exitwhen i==0
            set i=i-1
            set b=LoadInteger(BYHT,s__Dialog_vessel[t],i)
            call s__Button_deallocate(b)
        endloop
        set s__Dialog_index[t]=0
    endif
    call FlushChildHashtable(BYHT,s__Dialog_vessel[t])
    call FlushChildHashtable(BYHT2,s__Dialog_vessel[t])
    call DialogClear(s__Dialog_di[t])
endfunction

function DialogAddButtone takes integer t,string text,integer key returns integer
    local integer b=s__Button__allocate()
    set s__Button_text[b]=text
    set s__Button_key[b]=key
    call SaveInteger(BYHT,s__Dialog_vessel[t],s__Dialog_index[t],b)
    call SaveInteger(BYHT,s__Dialog_vessel[t],b+$2710,s__Dialog_index[t])
    set s__Dialog_index[t]=s__Dialog_index[t]+1
    set s__Dialog_b[t]=true
    return b
endfunction

function SetDialogButtonText takes integer t,integer i,string text,integer key returns integer
    local integer b=LoadInteger(BYHT,s__Dialog_vessel[t],i)
    if b!=null then
        set s__Dialog_b[t]=true
        set s__Button_text[b]=text
        set s__Button_key[b]=key
    endif
    return b
endfunction

function DialogRemoveButtone takes integer t,integer b returns boolean
    local integer i
    if HaveSavedInteger(BYHT,s__Dialog_vessel[t],b+$2710)then
        set s__Dialog_b[t]=true
        call s__Button_deallocate(b)
        set i=LoadInteger(BYHT,s__Dialog_vessel[t],b+$2710)
        call RemoveSavedInteger(BYHT,s__Dialog_vessel[t],b+$2710)
        loop
            set i=i+1
            exitwhen i==s__Dialog_index[t]
            set b=LoadInteger(BYHT,s__Dialog_vessel[t],i)
            call SaveInteger(BYHT,s__Dialog_vessel[t],i-1,b)
            call SaveInteger(BYHT,s__Dialog_vessel[t],b+$2710,i-1)
        endloop
        set s__Dialog_index[t]=s__Dialog_index[t]-1
        call RemoveSavedInteger(BYHT,s__Dialog_vessel[t],s__Dialog_index[t])
        return true
    endif
    return false
endfunction

function TransferDialogAddAtion takes integer t,code c returns nothing
    if s__Dialog_action[t]==null then
        set s__Dialog_action[t]=Condition(c)
    endif
endfunction

function According_to_time_limit takes nothing returns nothing
    local integer p=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:307")
    local integer pid=GetPlayerId(ConvertVersion(p))
    local integer func=s__Dialog_func[pid]
    local integer t=s__Dialog_t[pid]
    set s__Dialog_dis[pid]=false
    set s__Dialog_t[pid]=0
    set s__Dialog_func[pid]=0
    set s__Dialog_tm[pid]=null
    call DialogDisplay(ConvertVersion(p),s__Dialog_di[t],false)
    if null!=func then
        call sc___prototype3_evaluate(func,t)
    endif
endfunction

function TocCloseTheDialog takes integer t,player p,boolean b returns nothing
    local integer func
    local integer pid=GetPlayerId(p)
    if s__Dialog_dis[pid]and t==s__Dialog_t[pid]then
        call DialogDisplay(p,s__Dialog_di[t],false)
        call ReleaseTimer(s__Dialog_tm[pid],"[TimerUtils]Error:308")
        set func=s__Dialog_func[pid]
        set s__Dialog_dis[pid]=false
        set s__Dialog_t[pid]=0
        set s__Dialog_func[pid]=0
        set s__Dialog_tm[pid]=null
        call SaveInteger(BYHT,system_Dialog__fO,GetHandleId(p)+16,LoadInteger(BYHT,system_Dialog__fO,GetHandleId(p)+16)+1)
        if b and null!=func then
            call sc___prototype3_evaluate(func,t)
        endif
    endif
endfunction

function DisplayDialog takes integer t,player p,real r,integer f,code c returns nothing
    local integer i
    local integer b
    local integer pid=GetPlayerId(p)
    if s__Dialog_dis[pid]then
        call TocCloseTheDialog(s__Dialog_t[pid],p,true)
    endif
    if s__Dialog_index[t]>0 then
        if s__Dialog_b[t]then
            set s__Dialog_b[t]=false
            set i=s__Dialog_index[t]
            loop
                exitwhen i==0
                set i=i-1
                set b=LoadInteger(BYHT,s__Dialog_vessel[t],i)
                if s__Button_an[b]!=null then
                    call RemoveSavedInteger(BYHT2,system_Dialog__fO,GetHandleId(s__Button_an[b]))
                    set s__Button_an[b]=null
                endif
            endloop
            call DialogClear(s__Dialog_di[t])
            set i=0
            loop
                exitwhen i==s__Dialog_index[t]
                set b=LoadInteger(BYHT,s__Dialog_vessel[t],i)
                if s__Button_isdis[b]then
                    set s__Button_an[b]=DialogAddButton(s__Dialog_di[t],s__Button_text[b],s__Button_key[b])
                    call SaveInteger(BYHT,system_Dialog__fO,GetHandleId(s__Button_an[b]),b)
                endif
                set i=i+1
            endloop
        endif
        call DialogSetMessage(s__Dialog_di[t],s__Dialog_text[t])
        call DialogDisplay(p,s__Dialog_di[t],true)
        call SaveBoolean(BYHT,system_Dialog__fO,GetHandleId(p),true)
        call SaveInteger(BYHT,system_Dialog__fO,GetHandleId(p),t)
        if c==null then
            set c=function According_to_time_limit
        endif
        if r<=0 then
            set r=30
        endif
        set s__Dialog_dis[pid]=true
        set s__Dialog_t[pid]=t
        set s__Dialog_func[pid]=f
        set s__Dialog_tm[pid]=NewTimer(GetHandleId(p))
        call TimerStart(s__Dialog_tm[pid],r,false,c)
        call SaveInteger(BYHT,system_Dialog__fO,GetHandleId(p)+16,LoadInteger(BYHT,system_Dialog__fO,GetHandleId(p)+16)+1)
    endif
endfunction

function Dialog_Action takes nothing returns nothing
    local triggercondition tc
    local integer t=(LoadInteger(BYHT,system_Dialog__fO,GetHandleId(GetClickedDialog())))
    local integer b=GetButtonData(0)
    local player p=GetTriggerPlayer()
    local integer i=LoadInteger(BYHT,system_Dialog__fO,GetHandleId(p)+16)
    if s__Button_c[b]!=null then
        set tc=TriggerAddCondition(s__Dialog_trig[t],s__Button_c[b])
        call TriggerEvaluate(s__Dialog_trig[t])
        call TriggerRemoveCondition(s__Dialog_trig[t],tc)
    endif
    if i==LoadInteger(BYHT,system_Dialog__fO,GetHandleId(p)+16)and s__Dialog_trig[t]!=null then
        set tc=TriggerAddCondition(s__Dialog_trig[t],s__Dialog_action[t])
        call TriggerEvaluate(s__Dialog_trig[t])
        call TriggerRemoveCondition(s__Dialog_trig[t],tc)
    endif
    if i==LoadInteger(BYHT,system_Dialog__fO,GetHandleId(p)+16)then
        call TocCloseTheDialog(t,p,false)
    endif
    set tc=null
endfunction

function NewDialog takes nothing returns integer
    local integer this=s__Dialog__allocate()
    set s__Dialog_vessel[this]=malloc()
    call TriggerRegisterDialogEvent(s__Dialog_trig[this],s__Dialog_di[this])
    call TriggerAddAction(s__Dialog_trig[this],function Dialog_Action)
    call SaveInteger(BYHT,system_Dialog__fO,GetHandleId(s__Dialog_di[this]),this)
    return this
endfunction

function TransferSystem_Init takes nothing returns nothing
    set system_Dialog__fO=malloc()
endfunction

function SetPlayerState_func takes nothing returns nothing
    local player whichPlayer=GetTriggerPlayer()
    local integer i=GetPlayerId(whichPlayer)
    local integer j=1
    local integer k
    local integer value
    loop
        set k=j*$A+i
        if GetTriggeringTrigger()==PlayerStateTrigger[k]then
            if ItemGold_Bool2 then
                call DestroyTrigger(PlayerStateTrigger[k])
                set value=GetPlayerState(whichPlayer,ConvertPlayerState(j))
                set PlayerStateGold[k]=value
                set PlayerStateTrigger[k]=CreateTrigger()
                call TriggerRegisterPlayerStateEvent(PlayerStateTrigger[k],whichPlayer,ConvertPlayerState(j),NOT_EQUAL,value)
                call TriggerAddCondition(PlayerStateTrigger[k],Condition(function SetPlayerState_func))
            else
                call SetPlayerState(whichPlayer,ConvertPlayerState(j),PlayerStateGold[k])
            endif
        endif
        set j=j+1
        exitwhen j>2
    endloop
    set whichPlayer=null
endfunction

function SetPlayerStateS2 takes nothing returns nothing
    set ItemGold_Bool2=false
endfunction

function SetPlayerStateS takes player whichPlayer returns nothing
    local integer i=GetPlayerId(whichPlayer)
    call SetPlayerState(whichPlayer,ConvertPlayerState(1),PlayerStateGold[$A+i])
    call SetPlayerState(whichPlayer,ConvertPlayerState(2),PlayerStateGold[20+i])
    if ItemGold_Bool2!=true then
        set ItemGold_Bool2=TRUE
        call TimerStart(ItemGold_Bool2_TM,0,FALSE,function SetPlayerStateS2)
    endif
endfunction

function SetPlayerStateG takes player whichPlayer,playerstate whichPlayerState,integer value returns nothing
    local integer i=GetPlayerId(whichPlayer)
    local integer j=GetHandleId(whichPlayerState)
    local integer k=i+j*$A
    if value<0 then
        set value=0
    elseif value>$F4240 then
        set value=$F4240
    endif
    call DestroyTrigger(PlayerStateTrigger[k])
    call SetPlayerState(whichPlayer,whichPlayerState,value)
    set PlayerStateTrigger[k]=CreateTrigger()
    call TriggerRegisterPlayerStateEvent(PlayerStateTrigger[k],whichPlayer,whichPlayerState,NOT_EQUAL,value)
    call TriggerAddCondition(PlayerStateTrigger[k],Condition(function SetPlayerState_func))
    set PlayerStateGold[k]=value
endfunction

function AdjustPlayerStateG takes player whichPlayer,playerstate whichPlayerState,integer value returns nothing
    local integer i=GetPlayerId(whichPlayer)
    local integer j=GetHandleId(whichPlayerState)
    local integer k=i+j*$A
    call DestroyTrigger(PlayerStateTrigger[k])
    set PlayerStateGold[k]=PlayerStateGold[k]+value
    if PlayerStateGold[k]<0 then
        set PlayerStateGold[k]=0
    elseif PlayerStateGold[k]>$F4240 then
        set PlayerStateGold[k]=$F4240
    endif
    call SetPlayerState(whichPlayer,whichPlayerState,PlayerStateGold[k])
    set PlayerStateTrigger[k]=CreateTrigger()
    call TriggerRegisterPlayerStateEvent(PlayerStateTrigger[k],whichPlayer,whichPlayerState,NOT_EQUAL,value)
    call TriggerAddCondition(PlayerStateTrigger[k],Condition(function SetPlayerState_func))
endfunction

function GetItemTypeIdG takes item i returns integer
    local integer id=LoadInteger(BYHT,ItemTypeId_root,GetHandleId(i))
    if id>0 then
        return id
    endif
    return 0
endfunction

function RemoveItemGX takes integer data returns nothing
    local integer v=0
    loop
        call RemoveSavedInteger(BYHT,Item_save_Charges,data+v)
        set v=v+1
        exitwhen v==9
    endloop
endfunction

function GetItemChargesG takes item i returns integer
    local integer v=LoadInteger(BYHT,ItemTypeId_root,-GetHandleId(i))
    if GetItemCharges(i)!=v then
        call SetItemCharges(i,v)
    endif
    return v
endfunction

function SetItemChargesG takes item i,integer v returns nothing
    call SaveInteger(BYHT,ItemTypeId_root,-GetHandleId(i),v)
    call SetItemCharges(i,v)
endfunction


 function CreateItemG takes integer itemid,real x,real y returns item
    local integer i
    set bj_lastCreatedItem=CreateItem(itemid,x,y)
    set i=GetHandleId(bj_lastCreatedItem)
    call SaveInteger(BYHT,ItemTypeId_root,i,itemid)
    call SaveInteger(BYHT,ItemTypeId_root,-i,GetItemCharges(bj_lastCreatedItem))
    return bj_lastCreatedItem
 endfunction


 function RemoveItemG takes item whichItem returns nothing
    local integer i=GetHandleId(whichItem)
    if HaveSavedInteger(BYHT,ItemTypeId_root,i)then
        if LoadBoolean(BYHT,Item_save_Charges,GetItemTypeIdG(whichItem))then
            call RemoveItemGX(i*$A)
        endif
        call RemoveItem(whichItem)
        call RemoveSavedInteger(BYHT,ItemTypeId_root,i)
        call RemoveSavedInteger(BYHT,ItemTypeId_root,-i)
    else
        call RemoveItem(whichItem)
    endif
 endfunction
 

function RemoveItemGS takes nothing returns nothing
    if IsItemVisible(GetEnumItem())then
        call RemoveItem(GetEnumItem())
    endif
endfunction

function ItemGold_Visible takes nothing returns nothing
    if IsItemVisible(GetEnumItem())then
        set ItemGold_V[ItemGold_I]=GetEnumItem()
        call SetItemVisible(ItemGold_V[ItemGold_I],false)
        set ItemGold_I=ItemGold_I+1
    endif
endfunction

function SetItemGold takes integer itemid returns nothing
    set ItemGold_Bool=true
    call EnumItemsInRect(ItemGold_Rect,null,function ItemGold_Visible)
    call AddItemToStock(ItemGold_Store,itemid,1,1)
    call SetPlayerState(Player($D),PLAYER_STATE_RESOURCE_LUMBER,$F4240)
    call SetPlayerState(Player($D),PLAYER_STATE_RESOURCE_GOLD,$F4240)
    call IssueNeutralImmediateOrderById(Player($D),ItemGold_Store,itemid)
    call RemoveItemFromStock(ItemGold_Store,itemid)
    call SaveInteger(BYHT,ItemGold_root,itemid,$F4240-GetPlayerState(Player($D),PLAYER_STATE_RESOURCE_GOLD))
    call SaveInteger(BYHT,ItemGold_root,-itemid,$F4240-GetPlayerState(Player($D),PLAYER_STATE_RESOURCE_LUMBER))
    call EnumItemsInRect(ItemGold_Rect,null,function RemoveItemGS)
    loop
        exitwhen ItemGold_I==0
        set ItemGold_I=ItemGold_I-1
        call SetItemVisible(ItemGold_V[ItemGold_I],true)
        set ItemGold_V[ItemGold_I]=null
    endloop
    set ItemGold_Bool=false
endfunction

function GetItemGold takes integer itemid returns integer
    if not HaveSavedInteger(BYHT,ItemGold_root,itemid)then
        call SetItemGold(itemid)
    endif
    return LoadInteger(BYHT,ItemGold_root,itemid)
endfunction

function GetItemLumber takes integer itemid returns integer
    if not HaveSavedInteger(BYHT,ItemGold_root,-itemid)then
        call SetItemGold(itemid)
    endif
    return LoadInteger(BYHT,ItemGold_root,-itemid)
endfunction

function UnitAddItemByIdG takes unit whichUnit,integer itemId returns item
    call UnitAddItem(whichUnit,CreateItemG(itemId,GetUnitX(whichUnit),GetUnitY(whichUnit)))
    return bj_lastCreatedItem
endfunction

function ExtendsItemChargesG takes item i,item t returns nothing
    local integer id=GetItemTypeIdG(i)
    local integer data
    local integer data2
    local integer v
    if GetItemTypeIdG(t)!=id then
        return
    endif
    if LoadBoolean(BYHT,Item_save_Charges,id)then
        set data=GetHandleId(i)*$A
        set data2=GetHandleId(t)*$A
        if HaveSavedInteger(BYHT,Item_save_Charges,data)==false then
            call SaveInteger(BYHT,Item_save_Charges,data,GetItemChargesG(i))
        endif
        if HaveSavedInteger(BYHT,Item_save_Charges,data2)==false then
            call SaveInteger(BYHT,Item_save_Charges,data2,GetItemChargesG(t))
        endif
        set v=0
        loop
            call SaveInteger(BYHT,Item_save_Charges,data+v,LoadInteger(BYHT,Item_save_Charges,data+v)+LoadInteger(BYHT,Item_save_Charges,data2+v))
            call RemoveSavedInteger(BYHT,Item_save_Charges,0)
            set v=v+1
            exitwhen v==9
        endloop
    endif
endfunction

function AddItemChargesGE takes integer data,integer r returns nothing
    local integer v=8
    local integer c
    loop
        set c=LoadInteger(BYHT,Item_save_Charges,data+v)
        if c+r>=0 then
            call SaveInteger(BYHT,Item_save_Charges,data+v,c+r)
            exitwhen true
        else
            set r=c+r
            call SaveInteger(BYHT,Item_save_Charges,data+v,0)
        endif
        set v=v-1
        exitwhen v<0
    endloop
endfunction

function UnitHasItemOfType takes unit DMv,integer id returns boolean
    local integer MFv=UnitInventorySize(DMv)
    loop
        exitwhen MFv<=0
        set MFv=MFv-1
        if GetItemTypeIdG(UnitItemInSlot(DMv,MFv))==id then
            return true
        endif
    endloop
    return false
endfunction

function GetItemOfTypeFromUnit takes unit u,integer kHv returns item
    local integer i=UnitInventorySize(u)
    loop
        exitwhen i<=0
        set i=i-1
        if(GetItemTypeIdG(UnitItemInSlot(u,i))==kHv)then
            return UnitItemInSlot(u,i)
        endif
    endloop
    return null
endfunction

function IsItemCharges takes item i,integer r returns boolean
    local integer c
    if i!=null then
        set c=GetItemChargesG(i)
        return c==0 or c>=r
    endif
    return false
endfunction

function RemoveItemByCharges takes item i,integer r returns boolean
    local integer c
    if i!=null then
        set c=GetItemChargesG(i)
        if c==0 or c>=r then
            if c>r then
                call SetItemChargesG(i,c-r)
                if LoadBoolean(BYHT,Item_save_Charges,GetItemTypeIdG(i))then
                    call AddItemChargesGE(GetHandleId(i)*$A,-r)
                endif
            else
                call RemoveItemG(i)
            endif
            return TRUE
        endif
    endif
    return false
endfunction

function SetItemTimed_expired takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:309")
    call RemoveSavedInteger(BYHT2,DroppableTimed,GetHandleId(s__itemcd_Item[data]))
    if GetItemTypeIdG(s__itemcd_Item[data])!=0 then
        call SetItemDroppable(s__itemcd_Item[data],true)
    endif
    set s__itemcd_Item[data]=null
    call s__itemcd_deallocate(data)
endfunction

function SetItemDroppableTimed takes item t,real cyv returns nothing
    local integer hid=GetHandleId(t)
    local integer data
    if hid==0 then
        return
    endif
    if not HaveSavedInteger(BYHT2,DroppableTimed,hid)then
        set data=s__itemcd__allocate()
        set s__itemcd_Item[data]=t
        call SaveInteger(BYHT2,DroppableTimed,hid,GetHandleId(NewTimer(data)))
        call SetItemDroppable(t,false)
        call TimerStart(ConvertVersion(LoadInteger(BYHT2,DroppableTimed,hid)),cyv,false,function SetItemTimed_expired)
    else
        if cyv>TimerGetRemaining(ConvertVersion(LoadInteger(BYHT2,DroppableTimed,hid)))then
            call TimerStart(ConvertVersion(LoadInteger(BYHT2,DroppableTimed,hid)),cyv,false,function SetItemTimed_expired)
        endif
    endif
endfunction

function AddUnitSellItemById takes integer id,code func returns nothing
    if not HaveSavedInteger(BYHT2,Item_SELL_func,id)then
        call SaveInteger(BYHT2,Item_SELL_func,id,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,Item_SELL_func,id)),Filter(func))
endfunction

function AddUnitUseItemById takes integer id,code func returns nothing
    if not HaveSavedInteger(BYHT2,Item_Use_func,id)then
        call SaveInteger(BYHT2,Item_Use_func,id,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,Item_Use_func,id)),Filter(func))
endfunction

function UNIT_SELL_ITEM_ACTION takes nothing returns boolean
    local item t=GetSoldItem()
    local integer i
    local integer j
    local player p
    local boolean b
    local integer index
    local integer id
    if GetTriggerUnit()==ItemGold_Store then
        call RemoveItemG(t)
        call BJDebugMsg("!")
        set t=null
        return false
    endif
    set p=GetOwningPlayer(GetBuyingUnit())
    set index=GetPlayerId(p)
    set id=GetItemTypeId(t)
    set b=false
    set i=PlayerStateGold[$A+index]-GetItemGold(id)
    set j=PlayerStateGold[20+index]-GetItemLumber(id)
    if i<0 or j<0 then
        set b=true
        call SetPlayerState(p,PLAYER_STATE_RESOURCE_GOLD,PlayerStateGold[$A+index])
        call SetPlayerState(p,PLAYER_STATE_RESOURCE_LUMBER,PlayerStateGold[20+index])
    else
        call SetPlayerStateG(p,PLAYER_STATE_RESOURCE_GOLD,i)
        call SetPlayerStateG(p,PLAYER_STATE_RESOURCE_LUMBER,j)
    endif
    if HaveSavedInteger(BYHT,Equip_Type_t,id)then
        set b=true
    elseif HaveSavedInteger(BYHT,s__Catalog_number[(MiscCatalog17_root)],(id))then
        set b=true
    endif
    if b then
        call RemoveItemG(t)
        set t=null
        return false
    endif
    call SaveInteger(BYHT,ItemTypeId_root,GetHandleId(t),id)
    call SaveInteger(BYHT,ItemTypeId_root,-GetHandleId(t),GetItemCharges(t))
    if LoadBoolean(BYHT,Item_save_Charges,id)then
        call SaveInteger(BYHT,Item_save_Charges,GetHandleId(t)*$A,0)
        call SaveInteger(BYHT,Item_save_Charges,GetHandleId(t)*$A+index+1,GetItemCharges(t))
    endif
    if GetItemType(t)==ITEM_TYPE_POWERUP then
        if ItemGold_Bool2!=true then
            set ItemGold_Bool2=true
            call TimerStart(ItemGold_Bool2_TM,0,FALSE,function SetPlayerStateS2)
        endif
    endif
    call TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,Item_SELL_func,id)))
    set t=null
    return false
endfunction

function UNIT_PAWN_ITEM_ACTION takes nothing returns nothing
    call GetItemChargesG(GetSoldItem())
    call SetPlayerStateS(GetOwningPlayer(GetSellingUnit()))
endfunction

function UNIT_PICKUP_ITEM_ACTION takes nothing returns nothing
    local integer manipulateditem=GetHandleId(LastManipulatedItem)
    set LastManipulatedItem=(GetManipulatedItem())
    call TriggerEvaluate(alloc__GX[(TRIGGER_PICKUP)])
    set LastManipulatedItem=ConvertVersion(manipulateditem)
endfunction

function UNIT_DROP_ITEM_ACTION takes nothing returns nothing
    local integer manipulateditem=GetHandleId(LastManipulatedItem)
    set LastManipulatedItem=(GetManipulatedItem())
    call TriggerEvaluate(alloc__GX[(TRIGGER_DROP)])
    set LastManipulatedItem=ConvertVersion(manipulateditem)
endfunction

function UNIT_USE_ITEM_ACTION takes nothing returns nothing
    local integer manipulateditem=GetHandleId(LastManipulatedItem)
    local integer i
    local integer id
    set LastManipulatedItem=(GetManipulatedItem())
    set id=LoadInteger(BYHT,ItemTypeId_root,GetHandleId(LastManipulatedItem))
    call TriggerEvaluate(alloc__GX[(TRIGGER_USE)])
    if HaveSavedReal(BYHT,DroppableTimed,id)then
        call SetItemDroppableTimed(GetManipulatedItem(),LoadReal(BYHT,DroppableTimed,id))
    endif
    call TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,Item_Use_func,id)))
    set i=LoadInteger(BYHT,ItemTypeId_root,-GetHandleId(LastManipulatedItem))
    if i>0 then
        if i==1 then
            call RemoveItemG(GetManipulatedItem())
        else
            call SetItemChargesG(GetManipulatedItem(),i-1)
        endif
    endif
    set LastManipulatedItem=ConvertVersion(manipulateditem)
endfunction

function RegisterPlayerUnitPickupItem takes code c returns triggercondition
    return(TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition(c))))
endfunction

function RegisterPlayerUnitDropItem takes code c returns triggercondition
    return(TriggerAddCondition(alloc__GX[(TRIGGER_DROP)],(Condition(c))))
endfunction

function RegisterPlayerUnitUseItem takes code c returns triggercondition
    return(TriggerAddCondition(alloc__GX[(TRIGGER_USE)],(Condition(c))))
endfunction

function RemovePlayerUnitPickupItem takes triggercondition c returns nothing
    call TriggerRemoveCondition(alloc__GX[(TRIGGER_PICKUP)],(c))
endfunction

function RemovePlayerUnitDropItem takes triggercondition c returns nothing
    call TriggerRemoveCondition(alloc__GX[(TRIGGER_DROP)],(c))
endfunction

function RemovePlayerUnitUseItem takes triggercondition c returns nothing
    call TriggerRemoveCondition(alloc__GX[(TRIGGER_USE)],(c))
endfunction

function Init_ItemDroppableTimed takes integer id,real Cjv returns nothing
    call SaveReal(BYHT,DroppableTimed,id,Cjv)
endfunction

function ItemTypeIdandGold_Init takes nothing returns nothing
    set ItemTypeId_root=malloc()
    set ItemGold_root=malloc()
    set Item_SELL_func=malloc()
    set Item_Use_func=malloc()
    set DroppableTimed=malloc()
    set TRIGGER_USE=NewTriggerFor()
    set TRIGGER_PICKUP=NewTriggerFor()
    set TRIGGER_DROP=NewTriggerFor()
    call RegisterEvent(EVENT_PLAYER_UNIT_SELL_ITEM,function UNIT_SELL_ITEM_ACTION)
    call RegisterEvent(EVENT_PLAYER_UNIT_PAWN_ITEM,function UNIT_PAWN_ITEM_ACTION)
    call RegisterEvent(EVENT_PLAYER_UNIT_PICKUP_ITEM,function UNIT_PICKUP_ITEM_ACTION)
    call RegisterEvent(EVENT_PLAYER_UNIT_DROP_ITEM,function UNIT_DROP_ITEM_ACTION)
    call RegisterEvent(EVENT_PLAYER_UNIT_USE_ITEM,function UNIT_USE_ITEM_ACTION)
    set ItemGold_Store=CreateUnit(Player($F),'e001',-$2940+$400,$52C0-$400,0)
    set ItemGold_Trader=CreateUnit(Player($D),'Hkal',-$2940+$400,$52C0-$400,0)
    set ItemGold_Rect=Rect(GetUnitX(ItemGold_Store)-$80,GetUnitY(ItemGold_Store)-$80,GetUnitX(ItemGold_Store)+$80,GetUnitY(ItemGold_Store)+$80)
    call UnitAddAbility(ItemGold_Store,'Ane2')
    call UnitAddAbility(ItemGold_Store,'Asid')
    call UnitAddAbility(ItemGold_Store,'Avul')
    call UnitAddAbility(ItemGold_Store,'Apit')
    call IssueTargetOrderById(ItemGold_Store,$D0256,ItemGold_Trader)
endfunction

function IAndBY takes boolean local_true,integer a,integer b returns integer
    if local_true then
        return b
    endif
    return a
endfunction

function IOrBY takes boolean local_true,integer a,integer b returns integer
    if local_true then
        return a
    endif
    return b
endfunction

function RAndBY takes boolean local_true,real a,real b returns real
    if local_true then
        return b
    endif
    return a
endfunction

function ROrBY takes boolean local_true,real a,real b returns real
    if local_true then
        return a
    endif
    return b
endfunction

function MaxR takes real a,real b returns real
    if a>b then
        return a
    endif
    return b
endfunction

function MinR takes real a,real b returns real
    if a>b then
        return b
    endif
    return a
endfunction

function B2I takes boolean b returns integer
    if b then
        return 1
    endif
    return 0
endfunction

function s__locationez_alloc takes nothing returns integer
    local integer this
    if(s__locationez_V[(0)]==0)then
        set s__locationez_I=s__locationez_I+1
        set this=s__locationez_I
    else
        set this=s__locationez_V[(0)]
        set s__locationez_V[(0)]=s__locationez_V[s__locationez_V[(0)]]
    endif
    return this
endfunction

function s__locationez_dealloc takes integer this returns nothing
    set s__locationez_V[this]=s__locationez_V[(0)]
    set s__locationez_V[(0)]=this
endfunction

function s__locationez_connect takes integer this returns nothing
    local integer b=s__locationez_oO[this]
    set s__locationez_ang[this]=Atan2(s__locationez_Y[b]-s__locationez_Y[this],s__locationez_X[b]-s__locationez_X[this])
    set s__locationez_range[this]=SquareRoot((s__locationez_X[b]-s__locationez_X[this])*(s__locationez_X[b]-s__locationez_X[this])+(s__locationez_Y[b]-s__locationez_Y[this])*(s__locationez_Y[b]-s__locationez_Y[this]))
    if s__locationez_range[this]==0 then
        set s__locationez_range[this]=.0001
    endif
    set s__locationez_hd[this]=(s__locationez_Z[b]-s__locationez_Z[this])/ s__locationez_range[this]
    set s__locationez_ang[b]=s__locationez_ang[this]+bj_PI
    set s__locationez_range[b]=s__locationez_range[this]
    set s__locationez_hd[b]=-s__locationez_hd[this]
endfunction

function MoveLocationEZ takes integer loc,real sx,real sy,real sz returns nothing
    call MoveLocation(s__locationez_Loc,sx,sy)
    set s__locationez_X[loc]=sx
    set s__locationez_Y[loc]=sy
    set s__locationez_Z[loc]=sz+GetLocationZ(s__locationez_Loc)
    if loc!=s__locationez_oO[loc]then
        call s__locationez_connect(loc)
    endif
endfunction

function LocationEZ takes real sx,real sy,real sz returns integer
    local integer loc=s__locationez_alloc()
    set s__locationez_counter[loc]=1
    set s__locationez_oO[loc]=loc
    call MoveLocationEZ(loc,sx,sy,sz)
    return loc
endfunction

function ConnectLocationEZ takes integer loc,integer a returns integer
    set s__locationez_oO[loc]=a
    set s__locationez_oO[a]=loc
    call s__locationez_connect(loc)
    return a
endfunction

function ConnectLocationEZToUnit takes integer loc,unit u returns integer
    return ConnectLocationEZ(loc,LocationEZ(GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+60.))
endfunction

function RemoveLocationEZ takes integer loc returns nothing
    set s__locationez_counter[loc]=s__locationez_counter[loc]-1
    if s__locationez_counter[loc]==0 then
        set s__locationez_oO[s__locationez_oO[loc]]=s__locationez_oO[loc]
        set s__locationez_oO[loc]=loc
        call s__locationez_dealloc(loc)
    endif
endfunction

function Playlines takes string name,string text returns nothing
    call SetCinematicScene(GetUnitTypeId(lastspeaker),GetPlayerColor(GetOwningPlayer(lastspeaker)),name,text,3.5,2)
    call PingMinimap(GetUnitX(lastspeaker),GetUnitY(lastspeaker),1)
    call UnitAddIndicator(lastspeaker,$FF,$FF,$FF,$FF)
endfunction

function Lettheactorsplaylines takes unit u,string text returns nothing
    set lastspeaker=u
    call Playlines(GetUnitName(u),text)
endfunction

function P2I takes player p returns integer
    return GetPlayerId(p)
endfunction

function GetPlayerColorRBG takes player p returns string
    return system__kv[GetHandleId(GetPlayerColor(p))]
endfunction

function InitPlayerColor takes nothing returns nothing
    set system__kv[0]="|cffFF0202"
    set system__kv[1]="|cff0041FF"
    set system__kv[2]="|cff1BE5B8"
    set system__kv[3]="|cff530080"
    set system__kv[4]="|cffFFFC00"
    set system__kv[5]="|cffFE890D"
    set system__kv[6]="|cff1FBF00"
    set system__kv[7]="|cffE45AAF"
    set system__kv[8]="|cff949596"
    set system__kv[9]="|cff7DBEF1"
    set system__kv[$A]="|cff0F6145"
    set system__kv[$B]="|cff4D2903"
endfunction

constant function IsUnitOfBoss takes unit u returns boolean
    return IsUnitType(u,UNIT_TYPE_GIANT)
endfunction


constant function IsUnitAliveAndAlly takes unit u,unit s returns boolean
    return not IsUnitType(u,UNIT_TYPE_DEAD)and IsUnitAlly(u,GetOwningPlayer(s))
endfunction


constant function IsUnitAlive takes unit u returns boolean
    return not IsUnitType(u,UNIT_TYPE_DEAD)and pV[GetPlayerId(GetOwningPlayer(u))]
endfunction


function IsUnitNotAfrz takes unit u returns boolean
    return GetUnitAbilityLevel(u,'Bfrz')==0 and GetUnitAbilityLevel(u,'BUdd')==0 and GetUnitAbilityLevel(u,'B01N')==0
endfunction


function IsUnitOfPlayerNotseckill takes unit u returns boolean
    return UnitAlive(u)and pV[GetPlayerId(GetOwningPlayer(u))]and not pB[GetUnitUserData(u)]
endfunction


function IsUnitAliveAndEnemyNotAvul takes unit u,unit s returns boolean
    return UnitAlive(u)and IsUnitEnemy(u,GetOwningPlayer(s))and GetUnitAbilityLevel(u,'Avul')==0 and GetUnitAbilityLevel(u,'Aloc')==0
endfunction


function IsUnitAllyNotbag takes unit u,unit s returns boolean
    local integer CMv=GetPlayerId(GetOwningPlayer(u))
    return pV[CMv]and UnitAlive(u)and IsPlayerAlly(P[CMv],GetOwningPlayer(s))and GetUnitAbilityLevel(u,'A04P')==0
endfunction


function IsUnitNotbag takes unit u returns boolean
    return GetUnitAbilityLevel(u,'A04P')==0
endfunction


constant function IsUnitAliveAndEnemy takes unit u,unit s returns boolean
    return not IsUnitType(u,UNIT_TYPE_DEAD)and IsUnitEnemy(u,GetOwningPlayer(s))
endfunction


function PlaySoundBY takes sound MRv,real MIv,unit DMv returns nothing
    call PlaySoundOnUnit_BJ(MRv,MIv,DMv)
endfunction

function PlaySoundAtPointBY takes sound MRv,real MIv,real x,real y returns nothing
    call PlaySoundAtPoint_BJ(MRv,MIv,x,y,0)
endfunction

function IsPointInRectB takes real x,real y,real m6v,real m7v,real m8v,real m9v returns boolean
    return m6v<=x and x<=m8v and m7v<=y and y<=m9v
endfunction

function IsPointInRect takes real x,real y,rect r returns boolean
    return IsPointInRectB(x,y,GetRectMinX(r),GetRectMinY(r),GetRectMaxX(r),GetRectMaxY(r))
endfunction

function IsPointInRangeXY takes real x,real y,real x2,real y2,real r returns boolean
    set x=x2-x
    set y=y2-y
    return x*x+y*y<=r*r
endfunction

function SetCameraBoundsToRectBY takes rect r returns nothing
    local real x=GetRectCenterX(r)
    local real y=GetRectCenterY(r)
    local real minX=MinR(GetRectMinX(r)+256,x)
    local real minY=MinR(GetRectMinY(r)+256,y)
    local real maxX=MaxR(GetRectMaxX(r)-256,x)
    local real maxY=MaxR(GetRectMaxY(r)-256,y)
    call SetCameraBounds(minX,minY,minX,maxY,maxX,maxY,maxX,minY)
endfunction

function GetPointZ takes real x,real y returns real
    call MoveLocation(mx,x,y)
    return GetLocationZ(mx)
endfunction


 function RegisterEnterRect_Filter takes nothing returns boolean
    return IsUnitInGroup(GetFilterUnit(),h_v_Group)
 endfunction
 
 

 function RegisterEnterRect takes real m6v,real m7v,real m8v,real m9v, code c returns nothing
    local trigger gzv=CreateTrigger()
    local rect MXv=Rect(m6v,m7v,m8v,m9v)
    set bj_lastCreatedRegion=CreateRegion()
    call RegionAddRect(bj_lastCreatedRegion,MXv)
    call RemoveRect(MXv)
    call TriggerRegisterEnterRegion(gzv,bj_lastCreatedRegion,Filter(function RegisterEnterRect_Filter))
    call TriggerAddCondition(gzv,Filter(c))
    set MXv=null
    set gzv=null
 endfunction


 function RegisterEnterRect_A takes rect MXv,code c returns nothing
    local trigger gzv=CreateTrigger()
    set bj_lastCreatedRegion=CreateRegion()
    call RegionAddRect(bj_lastCreatedRegion,MXv)
    call TriggerRegisterEnterRegion(gzv,bj_lastCreatedRegion,Filter(function RegisterEnterRect_Filter))
    call TriggerAddCondition(gzv,Filter(c))
    set gzv=null
 endfunction


 function RegisterEnterRect_V takes real m6v,real m7v,real m8v,real m9v returns nothing
    local rect MXv=Rect(m6v,m7v,m8v,m9v)
    call RegionAddRect(bj_lastCreatedRegion,MXv)
    call RemoveRect(MXv)
    set MXv=null
 endfunction


 function RegisterEnterRect_B takes real x,real y,real rx,real ry,code c returns nothing
    if RAbsBJ(rx)>=32 and RAbsBJ(ry)>=32 then
        if c!=null then
            call RegisterEnterRect(x,y,x+rx,y+ry,c)
        else
            call RegisterEnterRect_V(x,y,x+rx,y+ry)
        endif
        if RAbsBJ(rx)>=64 and RAbsBJ(ry)>=64 then
            call RegisterEnterRect_B(x+rx,y,rx/ 2,ry/ 2,null)
            call RegisterEnterRect_B(x,y+ry,rx/ 2,ry/ 2,null)
        endif
    endif
 endfunction
  

 function RegisterEnterRect_C takes integer p,code c returns nothing
    local real minx=s__polygon_Min_x[p]
    local real miny=s__polygon_Min_y[p]
    local real maxx=s__polygon_Max_x[p]
    local real maxy=s__polygon_Max_y[p]
    local real x=minx+16
    local real y
    loop
        exitwhen x>maxx
        set y=miny+16
        loop
            exitwhen y>maxy
            if sc___prototype6_evaluate(1,p,x,y)==1 then
                if c!=null then
                    call RegisterEnterRect(x-16,y-16,x+16,y+16,c)
                    set c=null
                else
                    call RegionAddCell(bj_lastCreatedRegion,x,y)
                endif
            endif
            set y=y+32
        endloop
        set x=x+32
    endloop
 endfunction
 

function SetTerrainPathable_Rect takes rect c,pathingtype t,boolean b returns nothing
    local real x=GetRectMinX(c)+16
    local real y=GetRectMinY(c)+16
    local real max_x=GetRectMaxX(c)
    local real max_y=GetRectMaxY(c)
    local real tx
    local real ty
    set tx=x
    loop
        exitwhen tx>max_x
        set ty=y
        loop
            exitwhen ty>max_y
            call SetTerrainPathable(tx,ty,t,true)
            set ty=ty+32
        endloop
        set tx=tx+32
    endloop
endfunction

function IsPVP takes unit u returns boolean
    return Is_pvp[(GetPlayerId(GetOwningPlayer(u)))]
endfunction

function Qtv takes integer id returns unit
    return MV[GetPlayerId(GetOwningPlayer(Je[id]))]
endfunction

function QTv takes integer id returns integer
    return GetUnitUserData(MV[GetPlayerId(GetOwningPlayer(Je[id]))])
endfunction


 function GetHeroBackpack takes integer id returns unit
    return Je[YI[id]]
 endfunction
 
 //is backpack token

 function Isaseniorbackpack takes integer id returns boolean
    return HaveSavedBoolean(BYHT,(Bag_Issenior),StringHash(StringCase(Game_PlayerName[Kc[(id)]],false))) or GetUnitTypeId(Je[YI[id]])!='e01Z'//basic backpack id
 endfunction


function RemoveUnitBJ takes unit u,integer index returns nothing
    local integer id=GetUnitUserData(u)
    if u==Je[id]and nC[id]then
        call BJDebugMsg("Hero Removed："+I2S(index))
    endif
    call RemoveUnit(u)
endfunction

function KillUnitBJ takes unit u returns boolean
    local boolean b=KillUnit_bool
    local boolean b2
    local integer id=GetUnitUserData(u)
    set KillUnit_bool=true
    if u==Je[id]and nC[id]then
        call s__Trig_exewithp((Hero_Be_Kill_t[id]),id)
    endif
    if KillUnit_bool then
        call KillUnit(u)
    endif
    set b2=KillUnit_bool
    set KillUnit_bool=b
    return b2
endfunction

function SetHeroState1 takes unit u,integer i returns nothing
    local integer id=GetUnitUserData(u)
    set HeroStatStr[id]=i
    call SetHeroStr(u,i,true)
endfunction

function SetHeroState2 takes unit u,integer i returns nothing
    set HeroStatAgi[GetUnitUserData(u)]=i
    call SetHeroAgi(u,i,true)
endfunction

function SetHeroState3 takes unit u,integer i returns nothing
    set HeroStatInt[GetUnitUserData(u)]=i
    call SetHeroInt(u,i,true)
endfunction

function GetHeroState1 takes unit u,boolean includeBonuses returns integer
    if includeBonuses then
        return GetHeroStr(u,true)
    endif
    return HeroStatStr[GetUnitUserData(u)]
endfunction

function GetHeroState2 takes unit u,boolean includeBonuses returns integer
    if includeBonuses then
        return GetHeroAgi(u,true)
    endif
    return HeroStatAgi[GetUnitUserData(u)]
endfunction

function GetHeroState3 takes unit u,boolean includeBonuses returns integer
    if includeBonuses then
        return GetHeroInt(u,true)
    endif
    return HeroStatInt[GetUnitUserData(u)]
endfunction

function GetGameTimed takes nothing returns real
    return 100000.-TimerGetRemaining(GameTimer)
endfunction

function GameExecuteFunc takes boolexpr Func returns boolean
    local triggercondition action=TriggerAddCondition(GameExecuteFunc_Trig,Func)
    call TriggerEvaluate(GameExecuteFunc_Trig)
    call TriggerRemoveCondition(GameExecuteFunc_Trig,action)
    set action=null
    return true
endfunction

function GetSpellDamage_func takes nothing returns nothing
    set GetSpellDamageId=true
    set SpellDamage=GetEventDamage()
endfunction

function GetSpellDamage takes unit whichUnit,unit target,real amount,boolean attack,boolean ranged,attacktype attackType,damagetype damageType,weapontype weaponType returns real
    local trigger trig=CreateTrigger()
    local real life=GetWidgetLife(target)
    local boolean b=GetUnitState(target,UNIT_STATE_MAX_LIFE)<500
    call TriggerRegisterUnitEvent(trig,target,ConvertUnitEvent(52))
    call TriggerAddCondition(trig,Condition(function GetSpellDamage_func))
    set GetSpellDamageId=false
    set SpellDamage=0
    set FF=false
    if b then
        call UnitAddAbility(target,'A090')
    endif
    if life<500 then
        call SetWidgetLife(target,500)
    endif
    call UnitDamageTarget(whichUnit,target,100,attack,ranged,attackType,damageType,weaponType)
    if b then
        call UnitRemoveAbility(target,'A090')
    endif
    call SetWidgetLife(target,life)
    set FF=true
    if GetSpellDamageId then
        set SpellDamage=amount*(SpellDamage/ 100)
    endif
    call DestroyTrigger(trig)
    set trig=null
    return SpellDamage
endfunction

function Dlv takes real a returns real
    local real r=.0
    loop
        exitwhen a<bj_E
        set a=a/ bj_E
        set r=r+1.
    endloop
    return r+(a-1.)*(1.+9./(2.+a)+9./(1.+a*2.)+1/ a)/ 8.
endfunction

function Dmv takes unit DMv,attacktype attackType,damagetype damageType returns real
    return GetSpellDamage(DMv,DMv,1,false,true,attackType,damageType,null)
endfunction

function Dsv takes unit DMv returns real
    local real DSv
    if IsUnitType(DMv,UNIT_TYPE_ETHEREAL)then
        set DSv=Dmv(DMv,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_NORMAL)/ 1.66
    else
        set DSv=Dmv(DMv,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL)
    endif
    if DSv<=1 then
        return(1-DSv)/(.02*(DSv))
    endif
    return loge(2-DSv)/ .0202027
endfunction

function UnitResetCooldownById takes unit u,integer dhv returns nothing
    local integer lv=GetUnitAbilityLevel(u,dhv)
    if UnitRemoveAbility(u,dhv)then
        call UnitAddAbility(u,dhv)
        call UnitMakeAbilityPermanent(u,true,dhv)
        call SetUnitAbilityLevel(u,dhv,lv)
    endif
endfunction

function UnitAddAbilityBY takes unit u,integer dhv returns boolean
    if UnitAddAbility(u,dhv)then
        call UnitMakeAbilityPermanent(u,true,dhv)
        return true
    endif
    return false
endfunction

function UnitAddAbilityConditionBY takes unit u,integer dhv,boolean b returns nothing
    if b then
        call UnitAddAbility(u,dhv)
        call UnitMakeAbilityPermanent(u,true,dhv)
    endif
endfunction

function UnitAddAbilityLevelBY takes unit u,integer dhv,integer lv returns nothing
    call UnitAddAbility(u,dhv)
    call SetUnitAbilityLevel(u,dhv,lv)
    call UnitMakeAbilityPermanent(u,true,dhv)
endfunction

function SetUnitAbilityLevelBY takes unit u,integer dhv,integer lv returns nothing
    call SetUnitAbilityLevel(u,dhv,lv)
    call UnitMakeAbilityPermanent(u,true,dhv)
endfunction

function UnitRemoveAbilityandBuffBY takes unit u,integer dhv,integer MLv returns boolean
    local boolean b=UnitRemoveAbility(u,dhv)
    call UnitMakeAbilityPermanent(u,false,dhv)
    call UnitRemoveAbility(u,MLv)
    return b
endfunction

function UnitRemoveAbilityBY takes unit u,integer dhv returns nothing
    call UnitMakeAbilityPermanent(u,false,dhv)
    call UnitRemoveAbility(u,dhv)
endfunction

function DisplayTimedText takes string s,real d returns nothing
    local integer i=8
    loop
        set i=i-1
        call DisplayTimedTextToPlayer(P[i],0,0,d,s)
        exitwhen i==0
    endloop
endfunction

function UnitShareVisionB takes unit u returns nothing
    local integer i=8
    loop
        set i=i-1
        call UnitShareVision(u,P[i],true)
        exitwhen i==0
    endloop
endfunction

function RegisterIssuedOrder_ON takes code glv returns nothing
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_ON)],(Filter(glv)))
endfunction

function RegisterIssuedOrder_OFF takes code glv returns nothing
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_OFF)],(Filter(glv)))
endfunction

function RegisterIssuedOrder_POINT takes integer i,code glv returns nothing
    set i=$3E8+i-system__ORDER_ID
    if system__ORDER_TRIGFOR_V[i]==null then
        set system__ORDER_TRIGFOR_V[i]=NewTriggerFor()
    endif
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_V[i])],(Filter(glv)))
endfunction

function RegisterIssuedOrder_TARGET takes integer i,code glv returns nothing
    set i=$7D0+i-system__ORDER_ID
    if system__ORDER_TRIGFOR_V[i]==null then
        set system__ORDER_TRIGFOR_V[i]=NewTriggerFor()
    endif
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_V[i])],(Filter(glv)))
endfunction

function ORDER_ACRION takes nothing returns boolean
    call TriggerEvaluate(alloc__GX[(system__ORDER_TRIGFOR_V[GetIssuedOrderId()-system__ORDER_ID])])
    return false
endfunction

function POINT_ORDER_ACRION takes nothing returns boolean
    call TriggerEvaluate(alloc__GX[(system__ORDER_TRIGFOR_V[$3E8+GetIssuedOrderId()-system__ORDER_ID])])
    return false
endfunction

function TARGET_ORDER_ACRION takes nothing returns boolean
    call TriggerEvaluate(alloc__GX[(system__ORDER_TRIGFOR_V[$7D0+GetIssuedOrderId()-system__ORDER_ID])])
    return false
endfunction

function ORDER_APP takes integer i returns nothing
    set system__ORDER_TRIGFOR_V[i]=system__ORDER_TRIGFOR_ON
    set system__ORDER_TRIGFOR_V[i+1]=system__ORDER_TRIGFOR_OFF
endfunction

function system__UNIT_ISSUED_ORDER_INIT takes nothing returns nothing
    call RegisterEvent(EVENT_PLAYER_UNIT_ISSUED_ORDER,function ORDER_ACRION)
    call RegisterEvent(EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,function POINT_ORDER_ACRION)
    call RegisterEvent(EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER,function TARGET_ORDER_ACRION)
    set system__ORDER_TRIGFOR_ON=NewTriggerFor()
    set system__ORDER_TRIGFOR_OFF=NewTriggerFor()
    call ORDER_APP(96)
    call ORDER_APP(99)
    call ORDER_APP(108)
    call ORDER_APP(516)
    call ORDER_APP($86)
    call ORDER_APP($F4)
    call ORDER_APP($DF)
    call ORDER_APP($E6)
    call ORDER_APP(578)
    call ORDER_APP(581)
    call ORDER_APP(490)
    call ORDER_APP($B6)
    call ORDER_APP($A5)
    call ORDER_APP($CE)
    call ORDER_APP(276)
    call ORDER_APP(634)
    call ORDER_APP(57)
    call ORDER_APP($EB)
    call ORDER_APP($C2)
    call ORDER_APP($BE)
    call ORDER_APP(584)
    call ORDER_APP(610)
    call ORDER_APP(572)
    call ORDER_APP(83)
    call ORDER_APP(73)
    call ORDER_APP(287)
    call ORDER_APP(703)
endfunction

function IsPointInWorldBounds takes real x,real y returns boolean
    return x<=EntireMapMaxX and y<=EntireMapMaxY and x>=EntireMapMinX and y>=EntireMapMinY
endfunction

function SetUnitXBJ takes unit u,real x returns nothing
    if x>EntireMapMaxX then
        set x=EntireMapMaxX
    elseif x<EntireMapMinX then
        set x=EntireMapMinX
    endif
    call SetUnitX(u,x)
endfunction

function SetUnitYBJ takes unit u,real y returns nothing
    if y>EntireMapMaxY then
        set y=EntireMapMaxY
    elseif y<EntireMapMinY then
        set y=EntireMapMinY
    endif
    call SetUnitY(u,y)
endfunction

function system__UnitLeaveEntireMap_Action takes nothing returns nothing
    local unit u=GetTriggerUnit()
    call SetUnitXBJ(u,GetUnitX(u))
    call SetUnitYBJ(u,GetUnitY(u))
    set u=null
endfunction

function system__EntireMapInit takes nothing returns nothing
    local trigger trig=CreateTrigger()
    set WorldBounds=GetWorldBounds()
    set EntireMapMaxX=GetRectMaxX(WorldBounds)
    set EntireMapMaxY=GetRectMaxY(WorldBounds)
    set EntireMapMinX=GetRectMinX(WorldBounds)
    set EntireMapMinY=GetRectMinY(WorldBounds)
    set EntireMapCenterX=(EntireMapMaxX+EntireMapMinX)/ 2
    set EntireMapCenterY=(EntireMapMinY+EntireMapMaxY)/ 2
    set EntireMap=CreateRegion()
    call RegionAddRect(EntireMap,WorldBounds)
    call TriggerRegisterLeaveRegion(trig,EntireMap,null)
    call TriggerAddAction(trig,function system__UnitLeaveEntireMap_Action)
    set trig=null
endfunction

function IsTerrainWalkable_hide takes nothing returns nothing
    if IsItemVisible(GetEnumItem())then
        set IsTerrainWalkable_h[IsTerrainWalkable_index]=GetEnumItem()
        call SetItemVisible(IsTerrainWalkable_h[IsTerrainWalkable_index],false)
        set IsTerrainWalkable_index=IsTerrainWalkable_index+1
    endif
endfunction

function IsTerrainWalkable takes real x,real y returns boolean
    call MoveRectTo(IsTerrainWalkable_rect,x,y)
    call EnumItemsInRect(IsTerrainWalkable_rect,null,function IsTerrainWalkable_hide)
    call SetItemPosition(IsTerrainWalkable_check,x,y)
    set IsTerrainWalkable_X=GetItemX(IsTerrainWalkable_check)
    set IsTerrainWalkable_Y=GetItemY(IsTerrainWalkable_check)
    call SetItemVisible(IsTerrainWalkable_check,false)
    loop
        exitwhen IsTerrainWalkable_index<=0
        set IsTerrainWalkable_index=IsTerrainWalkable_index-1
        call SetItemVisible(IsTerrainWalkable_h[IsTerrainWalkable_index],true)
        set IsTerrainWalkable_h[IsTerrainWalkable_index]=null
    endloop
    return(IsTerrainWalkable_X-x)*(IsTerrainWalkable_X-x)+(IsTerrainWalkable_Y-y)*(IsTerrainWalkable_Y-y)<=10.*10. and not IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY)
endfunction

function IsTerrainWalkable_Init takes nothing returns nothing
    set IsTerrainWalkable_rect=Rect(.0,.0,128.,128.)
    set IsTerrainWalkable_check=CreateItemG('wolg',0,0)
    call SetItemVisible(IsTerrainWalkable_check,false)
endfunction

function system__Pow2n_Init takes nothing returns nothing
    local integer i=0
    set Pow2n[i]=1
    loop
        set i=i+1
        set Pow2n[i]=Pow2n[i-1]*2
        exitwhen i>=32
    endloop
endfunction

function system_onInit takes nothing returns nothing
    call InitPlayerColor()
    call system__EntireMapInit()
    call ItemTypeIdandGold_Init()
    call IsTerrainWalkable_Init()
    call system__UNIT_ISSUED_ORDER_INIT()
    call system__Pow2n_Init()
    set system_Dialog__fO=malloc()
    set GroupEnumUnitsFilterNull=Filter(function RegisterEnterRect_Filter)
    call TimerStart(GameTimer,$186A0,false,null)
endfunction

constant function GetSpellAbilityIdBJ takes nothing returns integer
    return LAST_SPELL_ABILITY_ID
endfunction

function SpellEffectEventAddAction takes code c returns nothing
    call TriggerAddCondition(alloc__GX[(UNIT_SPELL_EFFECT)],(Condition(c)))
endfunction

function RegisterSpellEndCastEvent takes integer hIv,code hAv returns nothing
    if not HaveSavedInteger(BYHT2,(Event_SpellEndCast_Id),hIv)then
        call SaveInteger(BYHT2,(Event_SpellEndCast_Id),hIv,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,(Event_SpellEndCast_Id),hIv)),Filter(hAv))
endfunction

function RegisterSpellChannelEvent takes integer hIv,code hbv returns nothing
    if not HaveSavedInteger(BYHT2,(Event_SpellChannel_Id),hIv)then
        call SaveInteger(BYHT2,(Event_SpellChannel_Id),hIv,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,(Event_SpellChannel_Id),hIv)),Filter(hbv))
endfunction

function RegisterSpellEffectEvent takes integer hIv,code hcv returns nothing
    if not HaveSavedInteger(BYHT2,(Event_SpellEffect_Id),hIv)then
        call SaveInteger(BYHT2,(Event_SpellEffect_Id),hIv,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,(Event_SpellEffect_Id),hIv)),Filter(hcv))
endfunction

function CancelRegisterSpellEffectEvent takes integer hIv returns nothing
    if HaveSavedInteger(BYHT2,Event_SpellEffect_Id,hIv)then
        call DestroyTrigger(ConvertVersion(LoadInteger(BYHT2,Event_SpellEffect_Id,hIv)))
        call RemoveSavedInteger(BYHT2,Event_SpellEffect_Id,hIv)
    endif
endfunction

function RegisterHeroSkillEvent takes integer hIv,code hdv returns nothing
    if not HaveSavedInteger(BYHT2,(Event_HeroSkill_Id),hIv)then
        call SaveInteger(BYHT2,(Event_HeroSkill_Id),hIv,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,(Event_HeroSkill_Id),hIv)),Filter(hdv))
endfunction

function RegisterSummonEvent takes integer Cjv,code hfv returns nothing
    if not HaveSavedInteger(BYHT2,(Event_Summon_Id),Cjv)then
        call SaveInteger(BYHT2,(Event_Summon_Id),Cjv,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,(Event_Summon_Id),Cjv)),Filter(hfv))
endfunction

function RegisterEnterworldEvent takes integer Cjv,code hfv returns nothing
    if not HaveSavedInteger(BYHT2,(Event_Enterworld_Id),Cjv)then
        call SaveInteger(BYHT2,(Event_Enterworld_Id),Cjv,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,(Event_Enterworld_Id),Cjv)),Filter(hfv))
endfunction

function RegisterHeroInitEvent takes integer Cjv,code hfv returns nothing
    if not HaveSavedInteger(BYHT2,(Event_HeroInit_Id),Cjv)then
        call SaveInteger(BYHT2,(Event_HeroInit_Id),Cjv,GetHandleId(CreateTrigger()))
    endif
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,(Event_HeroInit_Id),Cjv)),Filter(hfv))
endfunction

function Event_SPELL_CAST_Action takes nothing returns boolean
    return TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_SpellCast_Id),GetSpellAbilityId())))
endfunction

function Event_SPELL_ENDCAST_Action takes nothing returns boolean
    return TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_SpellEndCast_Id),GetSpellAbilityId())))
endfunction

function Event_SPELL_CHANNEL_Action takes nothing returns boolean
    return TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_SpellChannel_Id),GetSpellAbilityId())))
endfunction

function Event_SPELL_EFFECT_Action takes nothing returns nothing
    local integer i=LAST_SPELL_ABILITY_ID
    set LAST_SPELL_ABILITY_ID=GetSpellAbilityId()
    call TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_SpellEffect_Id),LAST_SPELL_ABILITY_ID)))
    call TriggerEvaluate(alloc__GX[(UNIT_SPELL_EFFECT)])
    set LAST_SPELL_ABILITY_ID=i
endfunction

function Event_HeroSkill_Action takes nothing returns boolean
    return TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_HeroSkill_Id),GetLearnedSkill())))
endfunction

function Event_Summon_Action takes nothing returns boolean
    return TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_Summon_Id),GetUnitTypeId(GetSummonedUnit()))))
endfunction

function Event_onInit takes nothing returns nothing
    set UNIT_SPELL_EFFECT=NewTriggerFor()
    set Event_SpellCast_Id=malloc()
    set Event_SpellEndCast_Id=malloc()
    set Event_SpellChannel_Id=malloc()
    set Event_SpellEffect_Id=malloc()
    set Event_HeroSkill_Id=malloc()
    set Event_Summon_Id=malloc()
    set Event_Enterworld_Id=malloc()
    set Event_HeroInit_Id=malloc()
    set HeroOnSpellEffect_t=malloc()
    call RegisterEvent(EVENT_PLAYER_UNIT_SPELL_CAST,function Event_SPELL_CAST_Action)
    call RegisterEvent(EVENT_PLAYER_UNIT_SPELL_ENDCAST,function Event_SPELL_ENDCAST_Action)
    call RegisterEvent(EVENT_PLAYER_UNIT_SPELL_CHANNEL,function Event_SPELL_CHANNEL_Action)
    call RegisterEvent(EVENT_PLAYER_UNIT_SPELL_EFFECT,function Event_SPELL_EFFECT_Action)
    call RegisterEvent(EVENT_PLAYER_HERO_SKILL,function Event_HeroSkill_Action)
    call RegisterEvent(EVENT_PLAYER_UNIT_SUMMON,function Event_Summon_Action)
endfunction

 //Buffers

 function Init1_LoadBuffer90 takes nothing returns nothing
    set LoadBuffer_1[90]=s__Catalog_create()
    call Catalog_Add_Subcatalog(LoadBuffer_1[90],BasicCatalog27_root)
    call Catalog_Add_Subcatalog(LoadBuffer_1[90],MiscCatalog17_root)
    //call Catalog_Add_Subcatalog(LoadBuffer_1[90],MiscCatalog18_root)
    //call Catalog_Add_Subcatalog(LoadBuffer_1[90],BasicCatalog29_root)
    call s__Catalog_Write((LoadBuffer_1[90]),('I04W'))
    call s__Catalog_Write((LoadBuffer_1[90]),('I04X'))
    call s__Catalog_Write((LoadBuffer_1[90]),('I04V'))
    call s__Catalog_Write((LoadBuffer_1[90]),('I04U'))
    call s__Catalog_Write((LoadBuffer_1[90]),('I04Y'))
 endfunction

 function Init2_LoadBuffer90 takes nothing returns nothing
    set LoadBuffer_2[90]=s__Catalog_create()
    call Catalog_Add_Subcatalog(LoadBuffer_2[90],BasicCatalog27_root)
    call Catalog_Add_Subcatalog(LoadBuffer_2[90],MiscCatalog17_root)
    //call Catalog_Add_Subcatalog(LoadBuffer_2[90],MiscCatalog18_root)
    //call Catalog_Add_Subcatalog(LoadBuffer_2[90],BasicCatalog29_root)
 endfunction
 

 function Init1_LoadBuffer91 takes nothing returns nothing
    set LoadBuffer_1[91]=s__Catalog_create()
    call Catalog_Add_Subcatalog(LoadBuffer_1[91],BasicCatalog28_root)
    call Catalog_Add_Subcatalog(LoadBuffer_1[91],MiscCatalog17_root)
    call s__Catalog_Write((LoadBuffer_1[91]),('I04W'))
    call s__Catalog_Write((LoadBuffer_1[91]),('I04X'))
    call s__Catalog_Write((LoadBuffer_1[91]),('I04V'))
    call s__Catalog_Write((LoadBuffer_1[91]),('I04U'))
    call s__Catalog_Write((LoadBuffer_1[91]),('I04Y'))
 endfunction

 function Init2_LoadBuffer91 takes nothing returns nothing
    set LoadBuffer_2[91]=s__Catalog_create()
    call Catalog_Add_Subcatalog(LoadBuffer_2[91],BasicCatalog28_root)
    call Catalog_Add_Subcatalog(LoadBuffer_2[91],MiscCatalog17_root)
 endfunction
 

 function Init1_LoadBuffer92 takes nothing returns nothing
    set LoadBuffer_1[92]=LoadBuffer_1[91]
 endfunction

 function Init2_LoadBuffer92 takes nothing returns nothing
    set LoadBuffer_2[92]=LoadBuffer_2[91]
 endfunction
 

 function LoadBuffer_onInit takes nothing returns nothing
    call ExecuteFunc("Init1_LoadBuffer90")
    call ExecuteFunc("Init2_LoadBuffer90")
    call ExecuteFunc("Init1_LoadBuffer91")
    call ExecuteFunc("Init2_LoadBuffer91")
    call ExecuteFunc("Init1_LoadBuffer92")
    call ExecuteFunc("Init2_LoadBuffer92")
 endfunction
 


function s__fog_table_new takes real l__zs,real ze,real r,real g,real b returns integer
    local integer this=s__fog_table__allocate()
    set s__fog_table_zS[this]=l__zs
    set s__fog_table_zE[this]=ze
    set s__fog_table_f_r[this]=r
    set s__fog_table_f_g[this]=g
    set s__fog_table_f_b[this]=b
    return this
endfunction

function s__fog_rect_alloc takes nothing returns integer
    local integer this=s__fog_rect_V[0]
    if this==0 then
        set this=s__fog_rect_I+1
        set s__fog_rect_I=this
    else
        set s__fog_rect_V[0]=s__fog_rect_V[this]
    endif
    set s__fog_rect_V[this]=-1
    set s__fog_rect_next[this]=s__fog_rect_next[(0)]
    set s__fog_rect_last[this]=(0)
    set s__fog_rect_last[s__fog_rect_next[this]]=this
    set s__fog_rect_next[(0)]=this
    return this
endfunction

function s__fog_rect_destroy takes integer this returns nothing
    if s__fog_rect_V[this]==-1 then
        set s__fog_rect_V[this]=s__fog_rect_V[0]
        set s__fog_rect_V[0]=this
        set s__fog_rect_last[s__fog_rect_next[this]]=s__fog_rect_last[this]
        set s__fog_rect_next[s__fog_rect_last[this]]=s__fog_rect_next[this]
    endif
endfunction

function s__fog_rect_create takes integer t,rect r returns integer
    local integer this=s__fog_rect_alloc()
    set s__fog_rect_t1[this]=t
    set s__fog_rect_IsRound[this]=false
    set s__fog_rect_border[this]=0
    set s__fog_rect_f_L[this]=GetRectMinX(r)
    set s__fog_rect_f_R[this]=GetRectMaxX(r)
    set s__fog_rect_f_D[this]=GetRectMinY(r)
    set s__fog_rect_f_U[this]=GetRectMaxY(r)
    return this
endfunction

function s__fog_rect_create_round takes integer t,real x,real y,real l__rs,real re,real rang returns integer
    local integer this=s__fog_rect_alloc()
    set s__fog_rect_t1[this]=t
    set s__fog_rect_IsRound[this]=true
    if l__rs<=re then
        set s__fog_rect_RadMin[this]=l__rs
        set s__fog_rect_RadMax[this]=re
    else
        set s__fog_rect_RadMin[this]=re
        set s__fog_rect_RadMax[this]=l__rs
    endif
    set s__fog_rect_border[this]=rang
    set s__fog_rect_centerX[this]=x
    set s__fog_rect_centerY[this]=y
    return this
endfunction

function s__fog_rect_Loop_c takes nothing returns nothing
    local integer this=s__fog_rect_next[(0)]
    local real cxv=GetFloatGameState(GAME_STATE_TIME_OF_DAY)
    local real x=GetCameraTargetPositionX()
    local real y=GetCameraTargetPositionY()
    local real dx
    local real dy
    local real hav=0
    local real d=0
    local real r=0
    if(cxv>=s__fog_rect_hour_21 and cxv<24)or(cxv>=0 and cxv<s__fog_rect_hour_3)then
        set hav=0
    elseif cxv>=s__fog_rect_hour_3 and cxv<s__fog_rect_hour_9 then
        set hav=1/ s__fog_rect_Be*(cxv-6)+.5
    elseif cxv>=s__fog_rect_hour_9 and cxv<s__fog_rect_hour_15 then
        set hav=1
    elseif cxv>=s__fog_rect_hour_15 and cxv<s__fog_rect_hour_21 then
        set hav=1/ s__fog_rect_Be*(18-cxv)+.5
    endif
    set s__fog_table_zS[s__fog_rect_Current]=0
    set s__fog_table_zE[s__fog_rect_Current]=0
    set s__fog_table_f_r[s__fog_rect_Current]=0
    set s__fog_table_f_g[s__fog_rect_Current]=0
    set s__fog_table_f_b[s__fog_rect_Current]=0
    loop
        exitwhen null==this
        if s__fog_rect_IsRound[this]then
            set dx=x-s__fog_rect_centerX[this]
            set dy=y-s__fog_rect_centerY[this]
            set d=SquareRoot(dx*dx+dy*dy)
            set dx=s__fog_rect_RadMin[this]-d
            set dy=d-s__fog_rect_RadMax[this]
            if dx>dy then
                set d=dx
            else
                set d=dy
            endif
        else
            set dx=s__fog_rect_f_L[this]-x
            set d=x-s__fog_rect_f_R[this]
            if d>dx then
                set dx=d
            endif
            set dy=s__fog_rect_f_D[this]-y
            set d=y-s__fog_rect_f_U[this]
            if d>dy then
                set dy=d
            endif
            if dx>dy then
                set d=dx
            else
                set d=dy
            endif
        endif
        if s__fog_rect_border[this]>=0 then
            if d>s__fog_rect_border[this]then
                set d=0
            elseif d<=0 then
                set d=1
            else
                set d=1-d/ s__fog_rect_border[this]
            endif
        elseif s__fog_rect_border[this]<0 then
            if d<=s__fog_rect_border[this]then
                set d=1
            elseif d>0 then
                set d=0
            else
                set d=d/ s__fog_rect_border[this]
            endif
        endif
        if d!=0 then
            set r=r+d
            if s__fog_rect_t2[this]==null then
                set s__fog_table_zS[s__fog_rect_Current]=s__fog_table_zS[s__fog_rect_Current]+d*s__fog_table_zS[s__fog_rect_t1[this]]
                set s__fog_table_zE[s__fog_rect_Current]=s__fog_table_zE[s__fog_rect_Current]+d*s__fog_table_zE[s__fog_rect_t1[this]]
                set s__fog_table_f_r[s__fog_rect_Current]=s__fog_table_f_r[s__fog_rect_Current]+d*s__fog_table_f_r[s__fog_rect_t1[this]]
                set s__fog_table_f_g[s__fog_rect_Current]=s__fog_table_f_g[s__fog_rect_Current]+d*s__fog_table_f_g[s__fog_rect_t1[this]]
                set s__fog_table_f_b[s__fog_rect_Current]=s__fog_table_f_b[s__fog_rect_Current]+d*s__fog_table_f_b[s__fog_rect_t1[this]]
            else
                set dx=d*hav
                set dy=d-dx
                set s__fog_table_zS[s__fog_rect_Current]=s__fog_table_zS[s__fog_rect_Current]+dx*s__fog_table_zS[s__fog_rect_t1[this]]+dy*s__fog_table_zS[s__fog_rect_t2[this]]
                set s__fog_table_zE[s__fog_rect_Current]=s__fog_table_zE[s__fog_rect_Current]+dx*s__fog_table_zE[s__fog_rect_t1[this]]+dy*s__fog_table_zE[s__fog_rect_t2[this]]
                set s__fog_table_f_r[s__fog_rect_Current]=s__fog_table_f_r[s__fog_rect_Current]+dx*s__fog_table_f_r[s__fog_rect_t1[this]]+dy*s__fog_table_f_r[s__fog_rect_t2[this]]
                set s__fog_table_f_g[s__fog_rect_Current]=s__fog_table_f_g[s__fog_rect_Current]+dx*s__fog_table_f_g[s__fog_rect_t1[this]]+dy*s__fog_table_f_g[s__fog_rect_t2[this]]
                set s__fog_table_f_b[s__fog_rect_Current]=s__fog_table_f_b[s__fog_rect_Current]+dx*s__fog_table_f_b[s__fog_rect_t1[this]]+dy*s__fog_table_f_b[s__fog_rect_t2[this]]
            endif
        endif
        set this=s__fog_rect_next[this]
    endloop
    if r<1 then
        set d=1-r
        set s__fog_table_zS[s__fog_rect_Current]=s__fog_table_zS[s__fog_rect_Current]+d*s__fog_table_zS[s__fog_rect_Basis]
        set s__fog_table_zE[s__fog_rect_Current]=s__fog_table_zE[s__fog_rect_Current]+d*s__fog_table_zE[s__fog_rect_Basis]
        set s__fog_table_f_r[s__fog_rect_Current]=s__fog_table_f_r[s__fog_rect_Current]+d*s__fog_table_f_r[s__fog_rect_Basis]
        set s__fog_table_f_g[s__fog_rect_Current]=s__fog_table_f_g[s__fog_rect_Current]+d*s__fog_table_f_g[s__fog_rect_Basis]
        set s__fog_table_f_b[s__fog_rect_Current]=s__fog_table_f_b[s__fog_rect_Current]+d*s__fog_table_f_b[s__fog_rect_Basis]
    else
        set s__fog_table_zS[s__fog_rect_Current]=s__fog_table_zS[s__fog_rect_Current]/ r
        set s__fog_table_zE[s__fog_rect_Current]=s__fog_table_zE[s__fog_rect_Current]/ r
        set s__fog_table_f_r[s__fog_rect_Current]=s__fog_table_f_r[s__fog_rect_Current]/ r
        set s__fog_table_f_g[s__fog_rect_Current]=s__fog_table_f_g[s__fog_rect_Current]/ r
        set s__fog_table_f_b[s__fog_rect_Current]=s__fog_table_f_b[s__fog_rect_Current]/ r
    endif
    if not Fg[(GetPlayerId(GetLocalPlayer()))]then
        call SetTerrainFogEx(0,s__fog_table_zS[s__fog_rect_Current],s__fog_table_zE[s__fog_rect_Current],0,s__fog_table_f_r[s__fog_rect_Current],s__fog_table_f_g[s__fog_rect_Current],s__fog_table_f_b[s__fog_rect_Current])
    endif
endfunction

function s__fog_rect_Init takes nothing returns nothing
    call TimerStart(CreateTimer(),.03125,true,function s__fog_rect_Loop_c)
    set s__fog_rect_Basis=s__fog_table_new($FA0,5000,0,0,0)
    set s__fog_rect_Current=s__fog_table_new($FA0,5000,0,0,0)
    set s__fog_rect_hour_3=6-s__fog_rect_Be/ 2
    set s__fog_rect_hour_9=6+s__fog_rect_Be/ 2
    set s__fog_rect_hour_15=18-s__fog_rect_Be/ 2
    set s__fog_rect_hour_21=18+s__fog_rect_Be/ 2
endfunction

function s__weather_new takes rect rct,integer effectID,real s,real e returns integer
    local integer this=s__weather_V[0]
    if this==0 then
        set this=s__weather_I+1
        set s__weather_I=this
    else
        set s__weather_V[0]=s__weather_V[this]
    endif
    set s__weather_V[this]=-1
    set s__weather_F[this]=s__weather_F[0]
    set s__weather_F[0]=this
    set s__weather_r[this]=Rect(GetRectMinX(rct),GetRectMinY(rct),GetRectMaxX(rct),GetRectMaxY(rct))
    set s__weather_id[this]=effectID
    set s__weather_enable[this]=true
    if s>=24. or s<0 then
        set s=ModuloReal(s,24)
    elseif s==24. then
        set s=0
    endif
    set e=e-s
    if e>24. or e<0 then
        set e=ModuloReal(e,24)
    endif
    set s__weather_hour_stare[this]=s
    set s__weather_hour_end[this]=e
    return this
endfunction

function s__weather_Enable takes integer this,boolean b returns nothing
    set s__weather_enable[this]=b
    call EnableWeatherEffect(s__weather_we[this],b)
endfunction

function s__weather_Loop_c takes nothing returns nothing
    local integer this=s__weather_F[0]
    local real s=GetFloatGameState(GAME_STATE_TIME_OF_DAY)
    local real t
    loop
        exitwhen null==this
        if s__weather_enable[this]then
            set t=s-s__weather_hour_stare[this]
            if t<0 or t>24 then
                set t=ModuloReal(t,24)
            endif
            if s__weather_hour_end[this]>t then
                if s__weather_we[this]==null then
                    set s__weather_we[this]=AddWeatherEffect(s__weather_r[this],s__weather_id[this])
                    call EnableWeatherEffect(s__weather_we[this],true)
                endif
            else
                if s__weather_we[this]!=null then
                    call RemoveWeatherEffect(s__weather_we[this])
                    set s__weather_we[this]=null
                endif
            endif
        endif
        set this=s__weather_F[this]
    endloop
endfunction

function s__weather_Init takes nothing returns nothing
    call TimerStart(CreateTimer(),1,true,function s__weather_Loop_c)
endfunction

function Terrain_onInit takes nothing returns nothing
    call s__fog_rect_Init()
    call TimerStart(CreateTimer(),1,true,function s__weather_Loop_c)
endfunction

function tfv takes nothing returns integer
    return D9v(distexttag__fC)
endfunction

function tFv takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function TextTag_create takes nothing returns integer
    local integer i=distexttag__TextTag_V[0]
    if i==0 then
        set i=distexttag__TextTag_I+1
        set distexttag__TextTag_I=i
    else
        set distexttag__TextTag_V[0]=distexttag__TextTag_V[i]
    endif
    set distexttag__TextTag_V[i]=-1
    return i
endfunction

function TextTag_remove takes integer i returns nothing
    if i>0 and distexttag__TextTag_V[i]==-1 then
        set distexttag__TextTag_V[i]=distexttag__TextTag_V[0]
        set distexttag__TextTag_V[0]=i
    endif
endfunction

function tgv_v takes nothing returns nothing
    local integer data=J[distexttag__fC_v]
    local integer id
    local integer i
    local integer i2
    local real s
    local real t
    loop
        exitwhen 0==data
        set id=Timer_List[data]
        set i2=distexttag__TextTag_root1[id]
        set i=distexttag__TextTag_F[i2]
        set s=0
        loop
            exitwhen i==i2
            if distexttag__TextTag_s[i]>distexttag__TextTag_m[i]then
                set distexttag__TextTag_s[i]=.95*distexttag__TextTag_s[i]
                call SetTextTagText(distexttag__TextTag_tag[i],distexttag__TextTag_t[i],distexttag__TextTag_s[i])
            endif
            if s>0 then
                set distexttag__TextTag_a[i]=distexttag__TextTag_a[i]+s
            endif
            if distexttag__TextTag_a[i]>0 then
                set t=distexttag__TextTag_a[i]*.2+.2
                set distexttag__TextTag_a[i]=distexttag__TextTag_a[i]-t
                set distexttag__TextTag_z[i]=distexttag__TextTag_z[i]+t
                call SetTextTagPos(distexttag__TextTag_tag[i],distexttag__TextTag_x[i],distexttag__TextTag_y[i],distexttag__TextTag_z[i])
            endif
            if distexttag__TextTag_h[i]>0 then
                set s=s+distexttag__TextTag_h[i]
                set distexttag__TextTag_h[i]=0
            endif
            set distexttag__TextTag_l[i]=distexttag__TextTag_l[i]-.03125
            if distexttag__TextTag_l[i]<=0 then
                set distexttag__TextTag_tag[i]=null
                call TextTag_remove(i)
                set distexttag__TextTag_F2[distexttag__TextTag_F[i]]=distexttag__TextTag_F2[i]
                set distexttag__TextTag_F[distexttag__TextTag_F2[i]]=distexttag__TextTag_F[i]
            endif
            set i=distexttag__TextTag_F[i]
        endloop
        if i2==distexttag__TextTag_F[i2]then
            call TextTag_remove(i2)
            set distexttag__TextTag_root1[id]=0
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function tgv takes nothing returns boolean
    local integer NNv=J[distexttag__fC]
    loop
        exitwhen 0==NNv
        if distexttag__cC[NNv]>distexttag__CC[NNv]then
            set distexttag__cC[NNv]=.95*distexttag__cC[NNv]
            call SetTextTagText(distexttag__BC[NNv],distexttag__DC[NNv],distexttag__cC[NNv])
        else
            call fvv((NNv))
            set distexttag__BC[NNv]=null
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function thv_v takes string t,unit u,real s,real m,real p8v,real fp,real ls returns nothing
    local integer i
    local integer i2
    local integer id=GetUnitUserData(u)
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real z=GetUnitFlyHeight(u)+35
    if distexttag__TextTag_root1[id]==null then
        set Timer_List[D9v(distexttag__fC_v)]=id
        set i=TextTag_create()
        set distexttag__TextTag_F[i]=i
        set distexttag__TextTag_F2[i]=i
        set distexttag__TextTag_root1[id]=i
    else
        set i=distexttag__TextTag_root1[id]
    endif
    set i2=TextTag_create()
    set distexttag__TextTag_F[i2]=distexttag__TextTag_F[i]
    set distexttag__TextTag_F2[i2]=i
    set distexttag__TextTag_F2[distexttag__TextTag_F[i]]=i2
    set distexttag__TextTag_F[i]=i2
    set distexttag__TextTag_tag[i2]=CreateTextTag()
    set distexttag__TextTag_x[i2]=x
    set distexttag__TextTag_y[i2]=y
    set distexttag__TextTag_z[i2]=z
    set distexttag__TextTag_t[i2]=t
    set distexttag__TextTag_s[i2]=s
    set distexttag__TextTag_m[i2]=m
    set distexttag__TextTag_l[i2]=fp
    set distexttag__TextTag_h[i2]=$F
    call SetTextTagText(distexttag__TextTag_tag[i2],t,s)
    call SetTextTagPos(distexttag__TextTag_tag[i2],x,y,z)
    call SetTextTagVisibility(distexttag__TextTag_tag[i2],true)
    call SetTextTagPermanent(distexttag__TextTag_tag[i2],false)
    call SetTextTagLifespan(distexttag__TextTag_tag[i2],ls)
    call SetTextTagFadepoint(distexttag__TextTag_tag[i2],fp)
    call SetTextTagVelocity(distexttag__TextTag_tag[i2],.04*Cos(p8v),.04*Sin(p8v))
endfunction

function thv takes string t,real x,real y,real z,real s,real m,real p8v,real fp,real ls returns nothing
    local integer NNv=(D9v(distexttag__fC))
    set distexttag__BC[NNv]=CreateTextTag()
    set distexttag__DC[NNv]=t
    set distexttag__cC[NNv]=s
    set distexttag__CC[NNv]=m
    call SetTextTagText(distexttag__BC[NNv],t,s)
    call SetTextTagPos(distexttag__BC[NNv],x,y,z)
    call SetTextTagVisibility(distexttag__BC[NNv],true)
    call SetTextTagPermanent(distexttag__BC[NNv],false)
    call SetTextTagLifespan(distexttag__BC[NNv],ls)
    call SetTextTagFadepoint(distexttag__BC[NNv],fp)
    call SetTextTagVelocity(distexttag__BC[NNv],.04*Cos(p8v),.04*Sin(p8v))
endfunction

function NewTextTagInTarget_A takes unit u,string s,integer r,integer b,integer g returns nothing
    local texttag t=CreateTextTag()
    call SetTextTagPos(t,GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+30)
    if(IsUnitType((u),UNIT_TYPE_GIANT))then
        call SetTextTagText(t,s,.0276)
    else
        call SetTextTagText(t,s,.02)
    endif
    call SetTextTagColor(t,r,b,g,$BE)
    call SetTextTagPermanent(t,false)
    call SetTextTagLifespan(t,3)
    call SetTextTagFadepoint(t,3)
    call SetTextTagVelocity(t,.01775*Cos(bj_PI/ 2),.01775*Sin(bj_PI/ 2))
    set t=null
endfunction

function NewTextTagInTarget_B takes unit u,string s,real bav,integer r,integer b,integer g returns nothing
    local texttag t=CreateTextTag()
    call SetTextTagPos(t,GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+30)
    call SetTextTagText(t,s,bav*.0023)
    call SetTextTagColor(t,r,b,g,$FF)
    call SetTextTagPermanent(t,false)
    call SetTextTagFadepoint(t,1.2)
    call SetTextTagLifespan(t,2)
    call SetTextTagVelocity(t,.0,.02)
    set t=null
endfunction

function CreatePermanentTextTag takes string s,real bav,real x,real y returns nothing
    local texttag t=CreateTextTag()
    call SetTextTagPos(t,x,y,100)
    call SetTextTagText(t,s,.0023*bav)
    call SetTextTagPermanent(t,true)
    set t=null
endfunction

function tSv takes player p,string s returns nothing
    local unit u=MV[GetPlayerId(p)]
    call thv("|c00ffff80"+s,GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+25,.03,.0225,bj_PI/ 2,1.5,2)
    set u=null
endfunction

function ttv takes unit u,string s returns nothing
    call thv("|c00ffff80"+s,GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+25,.025,.02,bj_PI/ 2,1.5,2)
endfunction

function IssueUnitStop_DisplayText takes unit u,string s returns nothing
    call IssueImmediateOrderById(u,$D0004)
    call NewTextTagInTarget_B(u,s,8,$CD,$FF,$9B)
endfunction

function distexttag__onInit takes nothing returns nothing
    set distexttag__fC=fxv(function tgv)
    set distexttag__fC_v=fxv(function tgv_v)
endfunction

function RecycleGroup takes group g returns nothing
    if g==null then
        return
    endif
    if groupunits__wA>8190 then
        call DestroyGroup(g)
    else
        call GroupClear(g)
        set groupunits__UA[(groupunits__wA)]=g
        set groupunits__wA=groupunits__wA+1
    endif
endfunction

function NewGroup takes nothing returns group
    if groupunits__wA==0 then
        return CreateGroup()
    endif
    set groupunits__wA=groupunits__wA-1
    return groupunits__UA[(groupunits__wA)]
endfunction

function bj_finishinggroup takes nothing returns nothing
    if groupunits__Px then
        call GroupClear(groupunits__qx)
        set groupunits__Px=false
    endif
    call GroupAddUnit(groupunits__qx,GetEnumUnit())
endfunction

function FinishingGroup takes group g returns nothing
    set groupunits__Px=true
    set groupunits__qx=g
    call ForGroup(groupunits__qx,function bj_finishinggroup)
    if groupunits__Px then
        call GroupClear(g)
    endif
endfunction

function bj_enununitsfilter takes nothing returns boolean
    return IsUnitAliveAndEnemy(GetFilterUnit(),groupunits__Mx)
endfunction

function GroupRandomEnumUnitsInRangeCounted takes real x,real y,real r,integer fcv,code pSv returns group
    local group g=NewGroup()
    local integer ptv=0
    call GroupClear(G)
    call GroupClear(G2)
    call GroupEnumUnitsInRange(G2,x,y,r+75,Filter(pSv))
    loop
        set groupunits__Mx=FirstOfGroup(G2)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G2,groupunits__Mx)
        if IsUnitInRangeXY(groupunits__Mx,x,y,r)then
            call GroupAddUnit(G,groupunits__Mx)
        endif
    endloop
    loop
        loop
            set groupunits__Mx=FirstOfGroup(G)
            exitwhen groupunits__Mx==null
            call GroupRemoveUnit(G,groupunits__Mx)
            set ptv=ptv+1
            call GroupAddUnit(G2,groupunits__Mx)
        endloop
        loop
            set groupunits__Mx=FirstOfGroup(G2)
            exitwhen groupunits__Mx==null
            call GroupRemoveUnit(G2,groupunits__Mx)
            set ptv=ptv-1
            exitwhen GetRandomInt(1,ptv+1)==1
            call GroupAddUnit(G,groupunits__Mx)
        endloop
        exitwhen groupunits__Mx==null
        call GroupAddUnit(g,groupunits__Mx)
        set fcv=fcv-1
        exitwhen fcv==0
    endloop
    return g
endfunction

function pTv takes unit NZv,real x,real y,real r,integer fcv returns group
    set groupunits__Mx=NZv
    return GroupRandomEnumUnitsInRangeCounted(x,y,r,fcv,function bj_enununitsfilter)
endfunction

function EnumUnitsMinRange takes unit s,real x,real y,real r returns unit
    local real pUv=.0001*r*r
    local real v
    local real dX
    local real dY
    local unit u
    set groupunits__Mx=null
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            if IsUnitAliveAndEnemy(u,s)and IsUnitVisible(u,GetOwningPlayer(s))then
                set dX=x-GetUnitX(u)
                set dY=y-GetUnitY(u)
                set v=.0001*(dX*dX+dY*dY)
                if v<pUv then
                    set groupunits__Mx=u
                    set pUv=v
                endif
            endif
        endif
    endloop
    return groupunits__Mx
endfunction

function EnumUnitsMaxRangeFilter takes unit s,real r,code c returns unit
    local real pyv=0
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real v
    local real dX
    local real dY
    local unit u
    set groupunits__Mx=null
    call GroupEnumUnitsInRange(G,x,y,r+75,Filter(c))
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)and UnitAlive(u)and IsUnitVisible(u,GetOwningPlayer(s))then
            set dX=x-GetUnitX(u)
            set dY=y-GetUnitY(u)
            set v=.0001*(dX*dX+dY*dY)
            if v>pyv then
                set groupunits__Mx=u
                set pyv=v
            endif
        endif
    endloop
    return groupunits__Mx
endfunction

function PickRandomUnitInRange takes unit s,real x,real y,real r returns unit
    local player p=GetOwningPlayer(s)
    local integer i=0
    call GroupClear(G2)
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set groupunits__Mx=FirstOfGroup(G)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G,groupunits__Mx)
        if IsUnitInRangeXY(groupunits__Mx,x,y,r)then
            if UnitAlive(groupunits__Mx)and IsUnitVisible(groupunits__Mx,p)and IsUnitEnemy(groupunits__Mx,p)and GetUnitAbilityLevel(groupunits__Mx,'Avul')==0 then
                set i=i+1
                call GroupAddUnit(G2,groupunits__Mx)
            endif
        endif
    endloop
    loop
        set groupunits__Mx=FirstOfGroup(G2)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G2,groupunits__Mx)
        exitwhen GetRandomInt(1,i)==1
        set i=i-1
    endloop
    set p=null
    return groupunits__Mx
endfunction

function PickRandomUnitInUnitRange takes unit s,real r returns unit
    return PickRandomUnitInRange(s,GetUnitX(s),GetUnitY(s),r)
endfunction

function PickRandomHeroInRange takes unit s,real x,real y,real r returns unit
    local integer i=0
    call GroupClear(G2)
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set groupunits__Mx=FirstOfGroup(G)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G,groupunits__Mx)
        if IsUnitInRangeXY(groupunits__Mx,x,y,r)then
            if UnitAlive(groupunits__Mx)and nC[GetUnitUserData(groupunits__Mx)]then
                set i=i+1
                call GroupAddUnit(G2,groupunits__Mx)
            endif
        endif
    endloop
    loop
        set groupunits__Mx=FirstOfGroup(G2)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G2,groupunits__Mx)
        exitwhen GetRandomInt(1,i)==1
        set i=i-1
    endloop
    return groupunits__Mx
endfunction

function PickRandomVisibleHeroInRange takes unit s,real x,real y,real r returns unit
    local player p=GetOwningPlayer(s)
    local integer i=0
    call GroupClear(G2)
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set groupunits__Mx=FirstOfGroup(G)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G,groupunits__Mx)
        if IsUnitInRangeXY(groupunits__Mx,x,y,r)then
            if UnitAlive(groupunits__Mx)and nC[GetUnitUserData(groupunits__Mx)]and IsUnitEnemy(groupunits__Mx,p)and IsUnitVisible(groupunits__Mx,p)and GetUnitAbilityLevel(groupunits__Mx,'Avul')==0 then
                set i=i+1
                call GroupAddUnit(G2,groupunits__Mx)
            endif
        endif
    endloop
    loop
        set groupunits__Mx=FirstOfGroup(G2)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G2,groupunits__Mx)
        exitwhen GetRandomInt(1,i)==1
        set i=i-1
    endloop
    set p=null
    return groupunits__Mx
endfunction

function PickRandomVisibleHeroInRange2 takes unit s,real r returns unit
    return PickRandomVisibleHeroInRange(s,GetUnitX(s),GetUnitY(s),r)
endfunction

function GroupPickRandomHeroInRange takes unit s,real x,real y,real r,group g returns unit
    local integer i=0
    call GroupClear(G2)
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set groupunits__Mx=FirstOfGroup(G)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G,groupunits__Mx)
        if IsUnitInRangeXY(groupunits__Mx,x,y,r)then
            if not IsUnitInGroup(groupunits__Mx,g)and UnitAlive(groupunits__Mx)and IsUnitEnemy(groupunits__Mx,GetOwningPlayer(s))and nC[GetUnitUserData(groupunits__Mx)]then
                set i=i+1
                call GroupAddUnit(G2,groupunits__Mx)
            endif
        endif
    endloop
    loop
        set groupunits__Mx=FirstOfGroup(G2)
        exitwhen groupunits__Mx==null
        call GroupRemoveUnit(G2,groupunits__Mx)
        exitwhen GetRandomInt(1,i)==1
        set i=i-1
    endloop
    return groupunits__Mx
endfunction

function p2v takes group g,real p3v,real p4v,real p5v,real p6v,real p7v returns nothing
    local real dX=p5v-p3v
    local real dY=p6v-p4v
    local real p8v=Atan2(dY,dX)
    local real pwv=SquareRoot(dX*dX+dY*dY)
    local real m=dY/(dX+.00001)
    local real p9v=.5*(p3v+p5v)
    local real Pvv=.5*(p4v+p6v)
    local unit u
    call GroupEnumUnitsInRange(G2,p9v,Pvv,.5*SquareRoot(pwv*pwv+p7v*p7v),null)
    loop
        set u=FirstOfGroup(G2)
        exitwhen u==null
        call GroupRemoveUnit(G2,u)
        if RAbsBJ(m*GetUnitX(u)-GetUnitY(u)-m*p3v+p4v)/ SquareRoot(m*m+1.)<=p7v then
            call GroupAddUnit(g,u)
        endif
    endloop
endfunction

function huv takes nothing returns integer
    return le
endfunction

function hUv takes nothing returns unit
    return Je[le]
endfunction

function hwv takes nothing returns nothing
    call DestroyTimer(GetExpiredTimer())
    set Le=false
endfunction

function hWv takes boolexpr c returns nothing
    local trigger t=CreateTrigger()
    local integer f=me[0]
    local integer d=le
    call TriggerAddCondition(t,c)
    loop
        exitwhen 0==f
        set le=f
        call TriggerEvaluate(t)
        set f=me[f]
    endloop
    call DestroyTrigger(t)
    set t=null
    set le=d
endfunction


 function Unit_App_Counter takes integer i,integer NNv returns nothing
    if(null!=Je[NNv])then
        set Counter[NNv]=Counter[NNv]+1
    endif
 endfunction


 function Unit_Cancel_Counter takes integer i,integer NNv returns nothing
    local integer d=le
    if Counter[NNv]>0 then
        set Counter[NNv]=Counter[NNv]-1
        if(0==Counter[NNv]and null==Je[NNv])then
            set le=NNv
            call TriggerEvaluate(alloc__GX[(BR)])
            set le=d
            set me[NNv]=Ke
            set Ke=NNv
        endif
    endif
 endfunction
 

function hzv takes integer NNv returns unit
    return Je[NNv]
endfunction

function hZv takes integer NNv returns player
    return GetOwningPlayer(Je[NNv])
endfunction

function GetHeroStateLoop takes nothing returns nothing
    local integer i=1
    local integer id
    loop
        exitwhen i>HeroStatIndex
        set id=HeroStatV[i]
        if GetHeroStr(Je[id],false)!=HeroStatStr[id]then
            call SetHeroStr(Je[id],HeroStatStr[id],true)
        endif
        if GetHeroAgi(Je[id],false)!=HeroStatAgi[id]then
            call SetHeroAgi(Je[id],HeroStatAgi[id],true)
        endif
        if GetHeroInt(Je[id],false)!=HeroStatInt[id]then
            call SetHeroInt(Je[id],HeroStatInt[id],true)
        endif
        set i=i+1
    endloop
endfunction


 function h_v takes nothing returns boolean
    local unit Q=GetFilterUnit()
    local integer i
    local integer d=le
    if CR and(Q!=Je[GetUnitUserData(Q)]and 0==GetUnitUserData(Q))then
        if(0==Ke)then
            set ke=ke+1
            set i=ke
        else
            set i=Ke
            set Ke=me[Ke]
        endif
        call UnitAddAbility(Q,'A0CD')
        call UnitMakeAbilityPermanent(Q,true,'A0CD')
        call GroupAddUnit(h_v_Group,Q)
        call SetUnitUserData(Q,i)
        set Je[i]=Q
        if(Le)then
            set Me[i]=Me[0]
            set me[Me[0]]=i
            set me[i]=0
            set Me[0]=i
        endif
        if IsUnitType(Q,UNIT_TYPE_HERO)then
            set HeroStatStr[i]=GetHeroStr(Q,false)
            set HeroStatAgi[i]=GetHeroAgi(Q,false)
            set HeroStatInt[i]=GetHeroInt(Q,false)
            set HeroStatIndex=HeroStatIndex+1
            set HeroStatV[HeroStatIndex]=i
            set HeroStatF[i]=HeroStatIndex
            if HeroStatTm==null then
                set HeroStatTm=CreateTimer()
                call TimerStart(HeroStatTm,1,true,function GetHeroStateLoop)
            endif
        endif
        set le=i
        call TriggerEvaluate(alloc__GX[(bR)])
        set le=d
    endif
    set Q=null
    return FALSE
 endfunction
 

function RemoveHeroStat takes nothing returns nothing
    local integer id=le
    local integer i=HeroStatF[id]
    local integer j=UnitInventorySize(Je[id])
    loop
        exitwhen j==0
        set j=j-1
        set LasManipulatedEquip=UnitItemInSlot(Je[id],j)
        if LasManipulatedEquip!=null then
            call RemoveItemG(LasManipulatedEquip)
        endif
    endloop
    if i>0 then
        set HeroStatF[id]=0
        if i!=HeroStatIndex then
            set HeroStatV[i]=HeroStatV[HeroStatIndex]
            set HeroStatF[HeroStatV[HeroStatIndex]]=i
        endif
        set HeroStatV[HeroStatIndex]=0
        set HeroStatIndex=HeroStatIndex-1
        if YI[id]!=null then
            call RemoveUnitBJ(Je[YI[id]],36)
            set zI[YI[id]]=0
            set YI[id]=0
        endif
        if zI[id]!=null then
            set j=$C
            loop
                exitwhen i==0
                set j=j-1
                if HaveSavedInteger(BYHT2,zI[id],j)then
                    set LasManipulatedEquip=ConvertVersion(LoadInteger(BYHT2,zI[id],j))
                    if GetItemTypeId(LasManipulatedEquip)>0 then
                        call RemoveItemG(LasManipulatedEquip)
                    endif
                endif
            endloop
            call free(zI[id])
            set zI[id]=0
        endif
    endif
endfunction

function h0v takes nothing returns boolean
    local unit u=GetFilterUnit()
    local integer i=GetUnitUserData(u)
    local integer d=le
    if(0==GetUnitAbilityLevel(u,'A0CD')and u==Je[i])then
        if(Le)then
            set me[Me[i]]=me[i]
            set Me[me[i]]=Me[i]
        endif
        set le=i
        call s__Trig_exe((UnitBeRemove_t[i]))
        call RemoveHeroStat()
        if(0==Counter[i])then
            call TriggerEvaluate(alloc__GX[(BR)])
            set me[i]=Ke
            set Ke=i
        endif
        set le=d
        set Je[i]=null
    endif
    set u=null
    return false
endfunction

function unit_h1v takes nothing returns nothing
    local integer i=$F
    local boolexpr bc=Condition(function h0v)
    local boolexpr h2v=Condition(function h_v)
    local group g=CreateGroup()
    local player h3v
    set bR=NewTriggerFor()
    set BR=NewTriggerFor()
    set Le=true
    call TriggerRegisterEnterRegion(He,EntireMap,h2v)
    loop
        set h3v=Player(i)
        call TriggerRegisterPlayerUnitEvent(je,h3v,EVENT_PLAYER_UNIT_ISSUED_ORDER,bc)
        call SetPlayerAbilityAvailable(h3v,'A0CD',false)
        call GroupEnumUnitsOfPlayer(g,h3v,h2v)
        exitwhen 0==i
        set i=i-1
    endloop
    call DestroyGroup(g)
    set bc=null
    set g=null
    set h2v=null
    set h3v=null
    call TimerStart(CreateTimer(),0,false,function hwv)
endfunction

function h4v takes boolexpr c,integer ev returns nothing
    call TriggerForAddActionB(c,ev)
    if(Le and ev==bR and 0!=me[0])then
        call hWv(c)
    endif
endfunction

function h5v takes integer W returns unit
    return Je[W]
endfunction

function h6v takes unit u returns integer
    return GetUnitUserData(u)
endfunction

function unit_onInit takes nothing returns nothing
    call ExecuteFunc("Init_Unit_Enter")
    call unit_h1v()
endfunction

function s__Effect_create takes nothing returns integer
    local integer this=s__Effect_V[(0)]
    if this==0 then
        set s__Effect_I=s__Effect_I+1
        set this=s__Effect_I
    else
        set s__Effect_V[(0)]=s__Effect_V[this]
    endif
    return this
endfunction

function s__Effect_build takes effect e returns integer
    local integer eff=s__Effect_create()
    set s__Effect_e[eff]=e
    return eff
endfunction

function s__Effect_connect takes integer this,integer e2 returns integer
    set s__Effect_V[e2]=s__Effect_V[this]
    set s__Effect_lR[s__Effect_V[this]]=e2
    set s__Effect_V[this]=e2
    set s__Effect_lR[e2]=this
    set s__Effect_MR[e2]=true
    return this
endfunction

function DestroyEffectBY takes integer eff returns nothing
    local integer e2
    if s__Effect_mR[eff]then
        set s__Effect_mR[eff]=false
        set e2=s__Effect_lR[eff]
        loop
            exitwhen e2==eff
            call DestroyEffect(s__Effect_e[e2])
            set s__Effect_e[e2]=null
            set s__Effect_MR[e2]=false
            set e2=s__Effect_lR[e2]
        endloop
        set s__Effect_V[s__Effect_lR[eff]]=s__Effect_V[(0)]
    else
        if s__Effect_MR[eff]then
            set s__Effect_MR[eff]=false
            set s__Effect_lR[s__Effect_V[eff]]=s__Effect_lR[eff]
            set s__Effect_V[s__Effect_lR[eff]]=s__Effect_V[eff]
        endif
        set s__Effect_V[eff]=s__Effect_V[(0)]
        call DestroyEffect(s__Effect_e[eff])
        set s__Effect_e[eff]=null
    endif
    set s__Effect_V[(0)]=eff
endfunction

function AddSpecialEffectBY takes string s,real x,real y returns integer
    return s__Effect_build(AddSpecialEffect(s,x,y))
endfunction

function AddSpecialEffectTargetBY takes string s,unit u,string a returns integer
    return s__Effect_build(AddSpecialEffectTarget(s,u,a))
endfunction

function EffectForAddItemBY takes integer eff,string s,real x,real y returns integer
    return s__Effect_connect(eff,(s__Effect_build(AddSpecialEffect((s),((x)*1.),((y)*1.)))))
endfunction

function EffectForAddItemOfTargerBY takes integer eff,string s,unit u,string a returns integer
    return s__Effect_connect(eff,(s__Effect_build(AddSpecialEffectTarget((s),(u),(a)))))
endfunction

function TimerDestroyEffectBY_func takes nothing returns nothing
    call DestroyEffectBY((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:310")))
endfunction

function TimerDestroyEffectBY takes integer eff,real r returns nothing
    call TimerStart(NewTimer(eff),r,false,function TimerDestroyEffectBY_func)
endfunction

function CreateEffectFor takes nothing returns integer
    local integer eff=s__Effect_create()
    set s__Effect_V[eff]=eff
    set s__Effect_lR[eff]=eff
    set s__Effect_mR[eff]=true
    return eff
endfunction

function TimerDestroyAddSpecialEffectTargetBY takes string s,unit u,string a,real d returns nothing
    call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget((s),(u),(a)))),d)
endfunction

function UnitDecay_Start takes nothing returns boolean
    local integer NNv=J[UnitDecay_Func]
    loop
        exitwhen 0==NNv
        set UnitDecay_Alpha[NNv]=UnitDecay_Alpha[NNv]-UnitDecay_t[NNv]
        if UnitDecay_Alpha[NNv]<0 then
            set UnitDecay_Alpha[NNv]=0
        endif
        call SetUnitVertexColor(UnitDecay_Treger[NNv],UnitDecay_Red[NNv],UnitDecay_Green[NNv],UnitDecay_Blue[NNv],R2I(UnitDecay_Alpha[NNv]))
        if GetUnitTypeId(UnitDecay_Treger[NNv])==0 or UnitDecay_Alpha[NNv]<=0 then
            call fvv(NNv)
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function UnitDecay_Alloc takes nothing returns integer
    if UnitDecay_Func==null then
        set UnitDecay_Func=fxv(function UnitDecay_Start)
    endif
    return D9v(UnitDecay_Func)
endfunction

function SetUnitDecay takes unit nU,integer cR,integer cG,integer cB,integer cA,real d returns nothing
    local integer NNv=UnitDecay_Alloc()
    set UnitDecay_Treger[NNv]=nU
    set UnitDecay_Red[NNv]=cR
    set UnitDecay_Green[NNv]=cG
    set UnitDecay_Blue[NNv]=cB
    set UnitDecay_Alpha[NNv]=cA
    set UnitDecay_t[NNv]=.03125*cA/ d
    call SetUnitVertexColor(UnitDecay_Treger[NNv],cR,cG,cB,cA)
endfunction

function DIv takes nothing returns integer
    local integer NNv=YR
    if(NNv!=0)then
        set YR=vI[NNv]
    else
        set ZR=ZR+1
        set NNv=ZR
    endif
    if(NNv>8190)then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Unable to allocate id for an object of type: xefx__recyclebin")
        return 0
    endif
    set xI[NNv]=0
    set vI[NNv]=-1
    return NNv
endfunction

function DAv takes integer NNv returns nothing
    if NNv==null then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Attempt to destroy a null struct of type: xefx__recyclebin")
        return
    elseif(vI[NNv]!=-1)then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Double free of type: xefx__recyclebin")
        return
    endif
    set vI[NNv]=YR
    set YR=NNv
endfunction

function Lxv takes nothing returns nothing
    local integer NNv=oI[rI]
    loop
        exitwhen NNv==0
        call RemoveUnitBJ(eI[NNv],33)
        set eI[NNv]=null
        set EI=EI-1
        call DAv(NNv)
        set NNv=xI[NNv]
    endloop
    set oI[rI]=0
    set VI=rI
    set rI=rI+1
    if rI>R2I(4./ .5+1.)then
        set rI=0
    endif
    if EI!=0 then
        call TimerStart(Nx,.5,false,function Lxv)
    endif
endfunction

function Lov takes unit nU returns integer
    local integer NNv=DIv()
    if EI==0 then
        call TimerStart(Nx,.5,false,function Lxv)
    endif
    set EI=EI+1
    set eI[NNv]=nU
    call SetUnitOwner(eI[NNv],Player($F),false)
    set xI[NNv]=oI[VI]
    set oI[VI]=NNv
    return NNv
endfunction

function Lrv takes nothing returns nothing
    set Nx=(NewTimer(0))
endfunction

function Liv takes nothing returns integer
    local integer NNv
    if(OI[(0)]==0)then
        set XI=XI+1
        set NNv=XI
    else
        set NNv=OI[(0)]
        set OI[(0)]=OI[OI[(0)]]
    endif
    return NNv
endfunction

function Lav takes integer NNv returns nothing
    set OI[NNv]=OI[(0)]
    set OI[(0)]=NNv
endfunction

function LKv takes integer NNv,real Div returns nothing
    if Div>EntireMapMaxX then
        set Div=EntireMapMaxX
    elseif Div<EntireMapMinX then
        set Div=EntireMapMinX
    endif
    call SetUnitX(II[NNv],Div)
endfunction

function Llv takes integer NNv,real Div returns nothing
    if Div>EntireMapMaxY then
        set Div=EntireMapMaxY
    elseif Div<EntireMapMinY then
        set Div=EntireMapMinY
    endif
    call SetUnitY(II[NNv],Div)
endfunction

function Drv takes integer NNv,real Div returns nothing
    call SetUnitScale(II[NNv],Div,0,0)
endfunction

function Dav takes integer NNv,real Div returns nothing
    call SetUnitTimeScale(II[NNv],Div)
endfunction

function LHv takes integer NNv,real Div returns nothing
    local integer i=R2I(Div+.5)
    set NI[NNv]=Div
    if(i>=$B4)then
        set i=$B3
    elseif(i<0)then
        set i=0
    endif
    call SetUnitAnimationByIndex(II[NNv],i)
endfunction

function DVv takes integer NNv,real Div returns nothing
    call SetUnitFlyHeight(II[NNv],Div,0)
endfunction

function DEv takes integer NNv,string DXv returns nothing
    if AI[NNv]!=null then
        call DestroyEffect(AI[NNv])
    endif
    if DXv=="" then
        set AI[NNv]=null
    else
        set AI[NNv]=AddSpecialEffectTarget(DXv,II[NNv],"origin")
    endif
endfunction

function Ltv takes integer NNv returns nothing
    if(AI[NNv]!=null)then
        call DestroyEffect(AI[NNv])
        set AI[NNv]=null
    endif
    call Lov(II[NNv])
    set II[NNv]=null
    call Lav(NNv)
endfunction

function LTv takes integer NNv returns nothing
    call ShowUnit(II[NNv],false)
    call Ltv(NNv)
endfunction

function Lnv takes real x,real y,real f returns integer
    local integer NNv=Liv()
    set CR=false
    set II[NNv]=CreateUnit(Player($F),'e001',x,y,f*bj_RADTODEG)
    set CR=true
    call UnitAddAbility(II[NNv],'Amrf')
    call UnitRemoveAbility(II[NNv],'Amrf')
    call LKv(NNv,x)
    call Llv(NNv,y)
    return NNv
endfunction

function LVv takes integer id,real x,real y,real LEv returns integer
    local integer NNv=Liv()
    set CR=false
    set II[NNv]=CreateUnit(Player($F),id,x,y,LEv)
    set CR=true
    call UnitAddAbility(II[NNv],'Amrf')
    call UnitRemoveAbility(II[NNv],'Amrf')
    call LKv(NNv,x)
    call Llv(NNv,y)
    return NNv
endfunction

function LXv takes integer id,real x,real y,real ts,string LOv returns integer
    local integer NNv=Liv()
    set CR=false
    set II[NNv]=CreateUnit(Player($F),id,x,y,0)
    set CR=true
    call UnitAddAbility(II[NNv],'Amrf')
    call UnitRemoveAbility(II[NNv],'Amrf')
    call LKv(NNv,x)
    call Llv(NNv,y)
    call SetUnitTimeScale(II[(NNv)],((ts)*1.))
    call SetUnitAnimation(II[NNv],LOv)
    return NNv
endfunction

function LRv takes integer id,real x,real y,real sc,real ts returns integer
    local integer NNv=Liv()
    set CR=false
    set II[NNv]=CreateUnit(Player($F),id,x,y,0)
    set CR=true
    call UnitAddAbility(II[NNv],'Amrf')
    call UnitRemoveAbility(II[NNv],'Amrf')
    call LKv(NNv,x)
    call Llv(NNv,y)
    call SetUnitScale(II[(NNv)],((sc)*1.),0,0)
    call SetUnitTimeScale(II[(NNv)],((ts)*1.))
    return NNv
endfunction

function LIv takes string s,real x,real y,real nZ,real sc,real a,real za returns integer
    local integer NNv=Lnv(x,y,a)
    call DEv(NNv,s)
    call SetUnitFlyHeight(II[(NNv)],((nZ)*1.),0)
    call SetUnitScale(II[(NNv)],((sc)*1.),0,0)
    call LHv(NNv,za)
    return NNv
endfunction

function LAv takes string s,real x,real y,real sc returns integer
    local integer NNv=Lnv(x,y,0)
    call DEv(NNv,s)
    call SetUnitScale(II[(NNv)],((sc)*1.),0,0)
    return NNv
endfunction

function LNv takes string s,real x,real y,real nZ,real sc returns integer
    local integer NNv=Lnv(x,y,0)
    call SetUnitFlyHeight(II[(NNv)],((nZ)*1.),0)
    call DEv(NNv,s)
    call SetUnitScale(II[(NNv)],((sc)*1.),0,0)
    return NNv
endfunction

function Lbv takes integer NNv,real sc,real ts returns integer
    call SetUnitScale(II[(NNv)],((sc)*1.),0,0)
    call SetUnitTimeScale(II[(NNv)],((ts)*1.))
    return NNv
endfunction

function LBv takes integer NNv returns player
    return GetOwningPlayer(II[NNv])
endfunction

function Lcv takes integer NNv,player p returns nothing
    call SetUnitOwner(II[NNv],p,false)
endfunction

function LCv takes integer NNv,playercolor c returns nothing
    call SetUnitColor(II[NNv],c)
endfunction

function Ldv takes integer NNv,real Div returns nothing
    call SetUnitScale(II[NNv],Div,0,0)
endfunction

function LDv takes integer NNv,real Div returns integer
    call SetUnitTimeScale(II[NNv],Div)
    return NNv
endfunction

function Lfv takes integer NNv,integer r,integer g,integer b,integer a returns integer
    set bI[NNv]=r
    set BI[NNv]=g
    set cI[NNv]=b
    set CI[NNv]=a
    call SetUnitVertexColor(II[NNv],r,g,b,a)
    return NNv
endfunction

function LFv takes integer NNv,string fx returns integer
    call DestroyEffect(AddSpecialEffectTarget(fx,II[NNv],"origin"))
    return NNv
endfunction

function Lgv takes integer NNv returns real
    return GetUnitFacing(II[NNv])
endfunction

function LGv takes integer NNv,real Div returns nothing
    call SetUnitFacing(II[NNv],Div*bj_RADTODEG)
endfunction

function Lhv takes integer NNv returns real
    return NI[NNv]
endfunction

function Ljv takes integer NNv returns real
    return GetUnitX(II[NNv])
endfunction

function LJv takes integer NNv returns real
    return GetUnitY(II[NNv])
endfunction

function Lkv takes integer NNv returns real
    return GetUnitFlyHeight(II[NNv])
endfunction

function LLv takes integer NNv,real Div returns nothing
    call SetUnitFlyHeight(II[NNv],Div,0)
endfunction

function Lmv takes integer NNv,real nX,real nY,real nD,real nA,real aO returns nothing
    call LKv(NNv,nX+nD*Cos(nA))
    call Llv(NNv,nY+nD*Sin(nA))
    call SetUnitFacing(II[(NNv)],((nA+aO)*1.)*bj_RADTODEG)
endfunction

function LMv takes integer NNv,string DXv returns integer
    if AI[NNv]!=null then
        call DestroyEffect(AI[NNv])
    endif
    if DXv=="" then
        set AI[NNv]=null
    else
        set AI[NNv]=AddSpecialEffectTarget(DXv,II[NNv],"origin")
    endif
    return NNv
endfunction

function Lpv takes nothing returns nothing
    call Ltv((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:311")))
endfunction

function LPv takes nothing returns nothing
    call LTv((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:312")))
endfunction

function Lqv takes integer NNv,real Bfv returns nothing
    call TimerStart(NewTimer(NNv),Bfv,false,function Lpv)
endfunction

function LQv takes integer NNv,real Bfv returns nothing
    call TimerStart(NewTimer(NNv),Bfv,false,function LPv)
endfunction

function Lsv takes integer NNv,real d returns nothing
    call SetUnitDecay(II[NNv],bI[NNv],BI[NNv],cI[NNv],CI[NNv],d)
    call LQv(NNv,d)
endfunction

function LSv takes integer NNv,integer r,integer g,integer b,integer a,real d returns nothing
    call SetUnitDecay(II[NNv],r,g,b,a,d)
    call LQv(NNv,d)
endfunction

function s__barrage_Alloc takes nothing returns integer
    return s__barrage__allocate()
endfunction

function s__barrage_Recycle takes integer this returns nothing
    set s__barrage_FR[s__barrage_FL[this]]=s__barrage_FR[this]
    set s__barrage_FL[s__barrage_FR[this]]=s__barrage_FL[this]
    call sc__barrage_deallocate(this)
endfunction

function s__barrage_Filling takes integer this,integer b returns nothing
    set s__barrage_FR[s__barrage_FL[this]]=b
    set s__barrage_FL[b]=s__barrage_FL[this]
    set s__barrage_FL[this]=b
    set s__barrage_FR[b]=this
endfunction

function LauncherFillingBarrage takes integer L,integer b returns nothing
    call s__barrage_Filling(L,b)
endfunction

function NewLauncher takes nothing returns integer
    local integer L=(s__barrage__allocate())
    set s__barrage_FL[L]=L
    set s__barrage_FR[L]=L
    return L
endfunction

function SetBarrageFlightRadian takes integer b,real Div returns nothing
    set s__barrage_radian_a[b]=Tan(Div)*s__locationez_range[s__barrage_p1[b]]
endfunction

function GetBarrageFlightRadian takes integer b returns real
    return Atan(s__barrage_radian_a[b]/ s__locationez_range[s__barrage_p1[b]])
endfunction

function SetBarrageFlightRadianEZ takes integer b,real Div returns nothing
    set s__barrage_radian_z[b]=Tan(Div)*s__locationez_range[s__barrage_p1[b]]/ 4
endfunction

function GetBarrageFacing takes integer b returns real
    return s__barrage_facing[b]
endfunction

function CreateOrbital takes integer P1v,integer o,integer i returns integer
    local integer b=(s__barrage__allocate())
    set s__barrage_acceleration[b]=0
    set s__barrage_radian_z[b]=0
    set s__barrage_steering[b]=0
    set s__barrage_radian_a[b]=0
    set s__barrage_enum_g[b]=NewGroup()
    set s__barrage_CollisionRange[b]=0
    set s__barrage_impact_z[b]=0
    set s__barrage_X[b]=s__locationez_X[o]
    set s__barrage_Y[b]=s__locationez_Y[o]
    set s__barrage_Z[b]=s__locationez_Z[o]
    set s__barrage_p1[b]=o
    set s__barrage_p2[b]=i
    set s__barrage_facing[b]=s__locationez_ang[s__barrage_p1[b]]
    set s__barrage_course[b]=0
    set s__barrage_model[b]=P1v
    call SetUnitFlyHeight(II[(s__barrage_model[b])],((s__locationez_Z[o]-GetPointZ(s__locationez_X[o],s__locationez_Y[o]))*1.),0)
    return b
endfunction

function CreateBarrageTypeA takes unit s,unit t returns integer
    local integer o=LocationEZ(GetUnitX(s),GetUnitY(s),GetUnitFlyHeight(s)+60)
    local integer i=ConnectLocationEZToUnit(o,t)
    local integer b=CreateOrbital(Lnv(s__locationez_X[o],s__locationez_Y[o],s__locationez_ang[o]),o,i)
    set s__barrage_atkunit[b]=s
    set s__barrage_target[b]=t
    return b
endfunction

function CreateBarrageTypeB takes unit s,unit t,integer fx returns integer
    local integer o=LocationEZ((GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),(GetUnitFlyHeight(II[(fx)])))
    local integer i=ConnectLocationEZToUnit(o,t)
    local integer b=CreateOrbital(fx,o,i)
    set s__barrage_atkunit[b]=s
    set s__barrage_target[b]=t
    return b
endfunction

function CreateBarrageTypeC takes real ox,real oy,real oz,unit t returns integer
    local integer o=LocationEZ(ox,oy,oz)
    local integer i=ConnectLocationEZToUnit(o,t)
    local integer b=CreateOrbital(Lnv(s__locationez_X[o],s__locationez_Y[o],s__locationez_ang[o]),o,i)
    set s__barrage_target[b]=t
    return b
endfunction

function CreateBarrageTypeD takes real ox,real oy,real oz,real tx,real ty,real tz returns integer
    local integer o=LocationEZ(ox,oy,oz)
    local integer i=ConnectLocationEZ(o,LocationEZ(tx,ty,tz))
    return CreateOrbital(Lnv(s__locationez_X[o],s__locationez_Y[o],s__locationez_ang[o]),o,i)
endfunction

function CreateBarrageTypeE takes integer fx,real tx,real ty,real tz returns integer
    local integer o=LocationEZ((GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),(GetUnitFlyHeight(II[(fx)])))
    local integer i=ConnectLocationEZ(o,LocationEZ(tx,ty,tz))
    return CreateOrbital(fx,o,i)
endfunction

function BarrageMoveFiringPoint takes integer b returns nothing
    call MoveLocationEZ(s__barrage_p1[b],s__barrage_X[b],s__barrage_Y[b],s__barrage_Z[b])
    set s__barrage_course[b]=0
endfunction

function SetBarrageOutside takes integer b returns nothing
    set s__barrage_outside[b]=true
endfunction

function ResetBarrageOutside takes integer b returns nothing
    set s__barrage_outside[b]=false
endfunction

function SetBarrageFinish takes integer b returns nothing
    set s__barrage_finish[b]=true
endfunction

function ResetBarrageFinish takes integer b returns nothing
    set s__barrage_finish[b]=false
endfunction

function IsBarrageOutside takes integer b returns boolean
    return s__barrage_outside[b]
endfunction

function IsBarrageFinish takes integer b returns boolean
    return s__barrage_finish[b]
endfunction

function RemoveBarrage takes integer b returns nothing
    call RecycleGroup(s__barrage_enum_g[b])
    call Ltv(s__barrage_model[b])
    call RemoveLocationEZ(s__barrage_p2[b])
    call RemoveLocationEZ(s__barrage_p1[b])
    call s__barrage_Recycle(b)
    set s__barrage_atkunit[b]=null
    set s__barrage_target[b]=null
    set s__barrage_enum_g[b]=null
    set s__barrage_finish[b]=false
    set s__barrage_outside[b]=false
    set s__barrage_finish[(b)]=false
endfunction

function UseBarrage takes integer l returns nothing
    local integer b=s__barrage_FR[l]
    local real a
    local real d
    local real s
    local real h
    local real dx
    local real dy
    local real dz
    local real tx
    local real ty
    local real ox
    local real oy
    local integer o
    loop
        exitwhen b==l
        set o=s__barrage_p1[b]
        set h=s__barrage_radian_z[b]
        set ox=s__locationez_X[o]
        set oy=s__locationez_Y[o]
        if s__barrage_target[b]==null or GetUnitTypeId(s__barrage_target[b])==0 then
            set a=s__locationez_ang[o]
            set s__barrage_target[b]=null
        else
            call MoveLocationEZ(s__barrage_p2[b],GetUnitX(s__barrage_target[b]),GetUnitY(s__barrage_target[b]),GetUnitFlyHeight(s__barrage_target[b])+s__barrage_impact_z[b]+60)
            set dx=s__locationez_X[s__barrage_p2[b]]-s__barrage_X[b]
            set dy=s__locationez_Y[s__barrage_p2[b]]-s__barrage_Y[b]
            set a=Atan2(dy,dx)
            set s__barrage_course[b]=s__locationez_range[s__barrage_p1[b]]-SquareRoot(dx*dx+dy*dy)
        endif
        if s__barrage_steering[b]==0 or(Cos(s__barrage_facing[b]-a)>=Cos(s__barrage_steering[b]))then
            set s__barrage_facing[b]=a
        elseif Sin(a-s__barrage_facing[b])>=0 then
            set s__barrage_facing[b]=s__barrage_facing[b]+s__barrage_steering[b]
        else
            set s__barrage_facing[b]=s__barrage_facing[b]-s__barrage_steering[b]
        endif
        set d=s__locationez_range[o]
        set s=s__barrage_course[b]+s__barrage_speed[b]
        set s__barrage_course[b]=s
        call SetUnitFacing(II[(s__barrage_model[b])],((s__barrage_facing[b])*1.)*bj_RADTODEG)
        set tx=s__barrage_X[b]+s__barrage_speed[b]*Cos(s__barrage_facing[b])
        set ty=s__barrage_Y[b]+s__barrage_speed[b]*Sin(s__barrage_facing[b])
        set s__barrage_speed[b]=s__barrage_speed[b]+s__barrage_acceleration[b]
        set s__barrage_X[b]=tx
        set s__barrage_Y[b]=ty
        if s__barrage_radian_a[b]!=0 then
            set a=4*s__barrage_radian_a[b]*s*(d-s)/(d*d)
            set tx=tx+a*Cos(s__barrage_facing[b]+1.57)
            set ty=ty+a*Sin(s__barrage_facing[b]+1.57)
            call SetUnitFacing(II[(s__barrage_model[b])],((s__barrage_facing[b]+Atan(-(8*s__barrage_radian_a[b]*s-4*d*s__barrage_radian_a[b])/(d*d)))*1.)*bj_RADTODEG)
        endif
        if h!=0 or s__locationez_hd[o]!=0 then
            set dx=tx-(GetUnitX(II[(s__barrage_model[b])]))
            set dy=ty-(GetUnitY(II[(s__barrage_model[b])]))
            set dz=s__barrage_Z[b]
            set s__barrage_Z[b]=4*h*s*(d-s)/(d*d)+s__locationez_hd[o]*s+s__locationez_Z[o]
            call SetUnitFlyHeight(II[(s__barrage_model[b])],((s__barrage_Z[b]-GetPointZ(tx,ty))*1.),0)
            call LHv(s__barrage_model[b],90+R2I((Atan2(s__barrage_Z[b]-dz,SquareRoot(dx*dx+dy*dy))*bj_RADTODEG)))
        endif
        if tx>EntireMapMaxX or tx<EntireMapMinX or ty>EntireMapMaxY or ty<EntireMapMinY then
            set s__barrage_outside[(b)]=true
        else
            call LKv(s__barrage_model[b],tx)
            call Llv(s__barrage_model[b],ty)
        endif
        if s>=d then
            set s__barrage_finish[(b)]=true
        endif
        set b=s__barrage_FR[b]
    endloop
endfunction

function UseBarrage_B takes integer l returns nothing
    local integer b=s__barrage_FR[l]
    local real a
    local real d
    local real s
    local real h
    local real dx
    local real dy
    local real dz
    local real tx
    local real ty
    local real tz
    local real ox
    local real oy
    local real oz
    local integer o
    local integer t
    loop
        exitwhen b==l
        set o=s__barrage_p1[b]
        set t=s__barrage_p2[b]
        if s__barrage_target[b]!=null then
            if GetUnitTypeId(s__barrage_target[b])==0 then
                set s__barrage_target[b]=null
            else
                set s__locationez_X[t]=GetUnitX(s__barrage_target[b])
                set s__locationez_Y[t]=GetUnitY(s__barrage_target[b])
                set s__locationez_Z[t]=GetPointZ(s__locationez_X[t],s__locationez_Y[t])+GetUnitFlyHeight(s__barrage_target[b])+s__barrage_impact_z[b]+60
            endif
        endif
        set a=s__barrage_X[b]*s__barrage_X[b]+s__barrage_Y[b]*s__barrage_Y[b]
        set h=s__barrage_Z[b]*s__barrage_Z[b]
        set s=SquareRoot(a+h)
        if s>0 then
            set d=s__barrage_speed[b]/ s
        else
            set d=$2710
        endif
        set ox=s__locationez_X[o]+s__barrage_X[b]*d
        set oy=s__locationez_Y[o]+s__barrage_Y[b]*d
        set oz=s__locationez_Z[o]+s__barrage_Z[b]*d
        call LKv(s__barrage_model[b],ox)
        call Llv(s__barrage_model[b],oy)
        call SetUnitFlyHeight(II[(s__barrage_model[b])],((oz-GetPointZ(ox,oy))*1.),0)
        call SetUnitFacing(II[(s__barrage_model[b])],((Atan2(s__barrage_Y[b],s__barrage_X[b]))*1.)*bj_RADTODEG)
        call LHv(s__barrage_model[b],90+R2I(Atan2(s__barrage_Z[b],SquareRoot(a))*bj_RADTODEG))
        if ox>EntireMapMaxX or ox<EntireMapMinX or oy>EntireMapMaxY or oy<EntireMapMinY then
            set s__barrage_outside[(b)]=true
        endif
        set dx=s__locationez_X[t]-ox
        set dy=s__locationez_Y[t]-oy
        set dz=s__locationez_Z[t]-oz
        if dx==-(s__barrage_X[b]/ s)and dy==-(s__barrage_Y[b]/ s)and dz==-(s__barrage_Z[b]/ s)then
            set dz=dz+1
        endif
        set s=SquareRoot(dx*dx+dy*dy+dz*dz)
        if s<=s__barrage_speed[b]then
            set s__barrage_finish[(b)]=true
            set d=1
        else
            set d=Pow(s__barrage_speed[b]/ s,s__barrage_steering[b])
        endif
        set tx=ox+dx*d
        set ty=oy+dy*d
        set tz=oz+dz*d
        set s__barrage_X[b]=tx-s__locationez_X[o]
        set s__barrage_Y[b]=ty-s__locationez_Y[o]
        set s__barrage_Z[b]=tz-s__locationez_Z[o]
        set s__locationez_X[o]=ox
        set s__locationez_Y[o]=oy
        set s__locationez_Z[o]=oz
        set s__barrage_speed[b]=s__barrage_speed[b]+s__barrage_acceleration[b]
        set b=s__barrage_FR[b]
    endloop
endfunction

function s__MissileTypeA_stop takes integer this returns nothing
    set s__MissileTypeA_f1[this]=null
    set s__MissileTypeA_f2[this]=null
    set s__MissileTypeA_f3[this]=null
    call RemoveBarrage(this)
endfunction

function s__MissileTypeA_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__MissileTypeA_launcher]
    local unit u
    if this!=s__MissileTypeA_launcher then
        call UseBarrage(s__MissileTypeA_launcher)
        loop
            exitwhen this==s__MissileTypeA_launcher
            if(s__barrage_finish[(this)])then
                if s__MissileTypeA_f1[this]!=null then
                    set s__MissileTypeA_Last_Missile=this
                    call GameExecuteFunc(s__MissileTypeA_f1[this])
                endif
                if(s__barrage_finish[(this)])then
                    call s__MissileTypeA_stop(this)
                endif
            elseif(s__barrage_outside[(this)])then
                if s__MissileTypeA_f2[this]!=null then
                    set s__MissileTypeA_Last_Missile=this
                    call GameExecuteFunc(s__MissileTypeA_f2[this])
                endif
            else
                if s__MissileTypeA_f3[this]!=null then
                    set s__MissileTypeA_Last_Missile=this
                    call GameExecuteFunc(s__MissileTypeA_f3[this])
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__MissileTypeA_launcher]then
        set s__barrage_InOperation[s__MissileTypeA_launcher]=false
        call frv(s__MissileTypeA_func)
    endif
endfunction

function s__MissileTypeA_fired takes integer this returns nothing
    call s__barrage_Filling((s__MissileTypeA_launcher),(this))
    if not s__barrage_InOperation[s__MissileTypeA_launcher]then
        set s__barrage_InOperation[s__MissileTypeA_launcher]=true
        call fov(s__MissileTypeA_func)
    endif
endfunction

function s__MissileTypeA_onInit takes nothing returns nothing
    set s__MissileTypeA_func=fxv(function s__MissileTypeA_start)
    set s__MissileTypeA_launcher=NewLauncher()
endfunction

function s__SoulMissile_stop takes integer this returns nothing
    set s__SoulMissile_f1[this]=null
    set s__SoulMissile_f2[this]=null
    set s__SoulMissile_f3[this]=null
    call RemoveBarrage(this)
endfunction

function s__SoulMissile_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__SoulMissile_launcher]
    local unit u
    if this!=s__SoulMissile_launcher then
        call UseBarrage_B(s__SoulMissile_launcher)
        loop
            exitwhen this==s__SoulMissile_launcher
            if(s__barrage_finish[(this)])then
                if s__SoulMissile_f1[this]!=null then
                    set s__SoulMissile_Last_Missile=this
                    call GameExecuteFunc(s__SoulMissile_f1[this])
                endif
                if(s__barrage_finish[(this)])then
                    call s__SoulMissile_stop(this)
                endif
            elseif(s__barrage_outside[(this)])then
                if s__SoulMissile_f2[this]!=null then
                    set s__SoulMissile_Last_Missile=this
                    call GameExecuteFunc(s__SoulMissile_f2[this])
                endif
            else
                if s__SoulMissile_f3[this]!=null then
                    set s__SoulMissile_Last_Missile=this
                    call GameExecuteFunc(s__SoulMissile_f3[this])
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__SoulMissile_launcher]then
        set s__barrage_InOperation[s__SoulMissile_launcher]=false
        call frv(s__SoulMissile_func)
    endif
endfunction

function s__SoulMissile_fired takes integer this returns nothing
    call s__barrage_Filling((s__SoulMissile_launcher),(this))
    if not s__barrage_InOperation[s__SoulMissile_launcher]then
        set s__barrage_InOperation[s__SoulMissile_launcher]=true
        call fov(s__SoulMissile_func)
    endif
endfunction

function s__SoulMissile_BarrageFiringByA takes integer this,code c,real a,real h,real s,real t,real v returns nothing
    set s__SoulMissile_f1[this]=Condition(c)
    set s__barrage_X[this]=Cos(a)*Cos(h)
    set s__barrage_Y[this]=Sin(a)*Cos(h)
    set s__barrage_Z[this]=Sin(h)
    set s__barrage_speed[this]=s
    set s__barrage_acceleration[this]=t
    set s__barrage_steering[this]=v
    call s__SoulMissile_fired(this)
endfunction

function s__SoulMissile_BarrageFiringByB takes integer this,code c,real x,real y,real z,real s,real t,real v returns nothing
    set s__SoulMissile_f1[this]=Condition(c)
    set s__barrage_X[this]=x
    set s__barrage_Y[this]=y
    set s__barrage_Z[this]=z
    set s__barrage_speed[this]=s
    set s__barrage_acceleration[this]=t
    set s__barrage_steering[this]=v
    call s__SoulMissile_fired(this)
endfunction

function s__SoulMissile_onInit takes nothing returns nothing
    set s__SoulMissile_func=fxv(function s__SoulMissile_start)
    set s__SoulMissile_launcher=NewLauncher()
endfunction

function s__unitseate_table_new takes nothing returns integer
    local integer this=s__unitseate_table__allocate()
    set s__unitseate_table_L[this]=this
    set s__unitseate_table_R[this]=this
    return this
endfunction

function s__unitseate_table_addfor takes integer this returns integer
    local integer re=s__unitseate_table__allocate()
    set s__unitseate_table_L[re]=this
    set s__unitseate_table_R[re]=s__unitseate_table_R[this]
    set s__unitseate_table_L[s__unitseate_table_R[this]]=re
    set s__unitseate_table_R[this]=re
    return re
endfunction

function s__unitseate_table_remove takes integer this returns integer
    local integer re
    if s__unitseate_table_L[this]!=this then
        set re=s__unitseate_table_L[this]
        set s__unitseate_table_R[re]=s__unitseate_table_R[this]
        set s__unitseate_table_L[s__unitseate_table_R[this]]=re
    else
        set re=0
    endif
    call s__unitseate_table_deallocate(this)
    return re
endfunction

function s__unitseate_table_clear takes integer this returns nothing
    local integer re=this
    loop
        set this=s__unitseate_table_L[this]
        exitwhen this==re
        call s__unitseate_table_deallocate(this)
    endloop
    call s__unitseate_table_deallocate(this)
endfunction

function I2U takes integer i returns unit
    return Je[i]
endfunction

function U2I takes unit u returns integer
    return GetUnitUserData(u)
endfunction

function unitstate__kjv takes nothing returns nothing
    set CR=false
    set unitstate__Ax=CreateUnit(PlayerNeutralPassive,'n017',0,0,0)
    call SetUnitUserData(unitstate__Ax,9999)
    set CR=true
    call SetUnitPosition(unitstate__Ax,$7E00,$7E00)
endfunction

function unitstate__kJv takes integer a,player p,integer l returns nothing
    call UnitAddAbility(unitstate__Ax,a)
    if(1<l)then
        call SetUnitAbilityLevel(unitstate__Ax,a,l)
    endif
    if(null!=p)then
        call SetUnitOwner(unitstate__Ax,p,false)
    endif
endfunction

function unitstate__kkv takes integer a returns nothing
    call SetUnitOwner(unitstate__Ax,PlayerNeutralPassive,false)
    call UnitRemoveAbility(unitstate__Ax,a)
endfunction

function Auxiliary_ImmediateOrder takes integer NNv,player p,integer Hvv,integer klv,real x,real y returns nothing
    call SetUnitX(unitstate__Ax,x)
    call SetUnitY(unitstate__Ax,y)
    call unitstate__kJv(NNv,p,Hvv)
    call IssueImmediateOrderById(unitstate__Ax,klv)
    call unitstate__kkv(NNv)
    call SetUnitPosition(unitstate__Ax,$7E00,$7E00)
endfunction

function Auxiliary_TargetOrder takes integer NNv,player p,integer Hvv,integer klv,widget t returns nothing
    call unitstate__kJv(NNv,p,Hvv)
    call IssueTargetOrderById(unitstate__Ax,klv,t)
    call unitstate__kkv(NNv)
endfunction

function Auxiliary_PointOrder takes integer NNv,player p,integer Hvv,integer klv,real x,real y returns nothing
    call SetUnitX(unitstate__Ax,x)
    call SetUnitY(unitstate__Ax,y)
    call unitstate__kJv(NNv,p,Hvv)
    call IssuePointOrderById(unitstate__Ax,klv,x,y)
    call unitstate__kkv(NNv)
    call SetUnitPosition(unitstate__Ax,$7E00,$7E00)
endfunction

function AbilityRefresh takes unit u,integer hIv,integer sNv,integer value returns nothing
    local boolean sbv=false
    if value<0 then
        set sbv=true
        set value=value+Pow2n[sNv]
    else
        if UnitRemoveAbility(u,hIv)then
            call UnitMakeAbilityPermanent(u,false,hIv)
        endif
    endif
    set hIv=hIv+sNv
    set sNv=Pow2n[sNv]
    loop
        set sNv=sNv/ 2
        if value>=sNv then
            if UnitAddAbility(u,hIv)then
                call UnitMakeAbilityPermanent(u,true,hIv)
            endif
            set value=value-sNv
        else
            if UnitRemoveAbility(u,hIv)then
                call UnitMakeAbilityPermanent(u,false,hIv)
            endif
        endif
        set hIv=hIv-1
        exitwhen sNv==1
    endloop
    if sbv then
        if UnitAddAbility(u,hIv)then
            call UnitMakeAbilityPermanent(u,true,hIv)
        endif
    endif
endfunction

function unitstate__AbilityPreload takes nothing returns nothing
    local unit u
    local integer abid
    local integer index
    local integer array v
    set CR=false
    set u=CreateUnit(P[$F],'e001',-$3A20,$3C50,0)
    set CR=true
    set Ability_Id[(UNIT_STATE_ARMOR)]=1094009152
    set Ability_Id[(UNIT_STATE_ATTACK)]=1094009408
    set Ability_Id[(HERO_STATE_STR)]=1094009664
    set Ability_Id[(HERO_STATE_AGI)]=1094009920
    set Ability_Id[(HERO_STATE_INT)]=1094010176
    set Ability_Id[(UNIT_STATE_ATTACK_SPEED)]=1094010432
    set Ability_Id[(UNIT_STATE_HP)]=1094010688
    set Ability_Id[(UNIT_STATE_MP)]=1094010944
    set AbilitySize[(UNIT_STATE_ARMOR)]=$F
    set AbilitySize[(UNIT_STATE_ATTACK)]=18
    set AbilitySize[(HERO_STATE_STR)]=16
    set AbilitySize[(HERO_STATE_AGI)]=16
    set AbilitySize[(HERO_STATE_INT)]=16
    set AbilitySize[(UNIT_STATE_ATTACK_SPEED)]=9
    set AbilitySize[(UNIT_STATE_HP)]=24
    set AbilitySize[(UNIT_STATE_MP)]=24
    set v[1]=UNIT_STATE_ARMOR
    set v[2]=UNIT_STATE_ATTACK
    set v[3]=HERO_STATE_STR
    set v[4]=HERO_STATE_AGI
    set v[5]=HERO_STATE_INT
    set v[6]=UNIT_STATE_ATTACK_SPEED
    set v[7]=UNIT_STATE_HP
    set v[8]=UNIT_STATE_MP
    set index=8
    loop
        exitwhen index==0
        set v[0]=v[index]
        set abid=Ability_Id[v[0]]+AbilitySize[v[0]]
        loop
            call UnitAddAbility(u,abid)
            exitwhen abid==Ability_Id[v[0]]
            set abid=abid-1
        endloop
        set index=index-1
    endloop
    call RemoveUnitBJ(u,37)
    set u=null
endfunction

function CancelUnitRegen takes integer data returns nothing
    local integer l
    local integer r
    if AppUnitRegen_On[data]then
        set l=AppUnitRegen_L[data]
        set r=AppUnitRegen_R[data]
        set AppUnitRegen_R[l]=r
        set AppUnitRegen_L[r]=l
        set AppUnitRegen_On[data]=false
        if AppUnitRegen_L[(0)]==0 then
            call frv(AppUnitRegen_Exe)
        endif
        call Unit_Cancel_Counter(359,data)
    endif
endfunction

function UnitRegenLoop_c takes nothing returns nothing
    local integer data=AppUnitRegen_L[(0)]
    loop
        exitwhen data==0
        if UnitHpRegen[(data)]==0 and UnitMpRegen[(data)]==0 then
            call CancelUnitRegen(data)
        elseif UnitAlive((Je[(data)]))then
            call SetWidgetLife((Je[(data)]),RMaxBJ(.5,GetWidgetLife((Je[(data)]))+UnitHpRegen[(data)]))
            if UnitMpRegen[(data)]>0 then
                call SetUnitState((Je[(data)]),UNIT_STATE_MANA,GetUnitState((Je[(data)]),UNIT_STATE_MANA)+UnitMpRegen[(data)])
            endif
        endif
        set data=AppUnitRegen_L[data]
    endloop
endfunction

function AppUnitRegen takes integer data returns boolean
    local integer v
    if data>0 and data<8192 and not AppUnitRegen_On[data]then
        if AppUnitRegen_L[(0)]==0 then
            if AppUnitRegen_Exe==0 then
                set AppUnitRegen_Exe=fxv(function UnitRegenLoop_c)
            endif
            call fov(AppUnitRegen_Exe)
        endif
        set v=AppUnitRegen_L[(0)]
        set AppUnitRegen_L[data]=v
        set AppUnitRegen_R[v]=data
        set AppUnitRegen_L[(0)]=data
        set AppUnitRegen_R[data]=0
        set AppUnitRegen_On[data]=true
        call Unit_App_Counter(360,data)
        return true
    endif
    return false
endfunction

function UnitRemoveControl takes integer data returns nothing
    call sc___prototype3_evaluate(1,(data))
    call sc___prototype111_evaluate(1,(Je[(data)]))
    call sc___prototype111_evaluate(2,(Je[(data)]))
    call sc___prototype111_evaluate(3,(Je[(data)]))
    call UnitRemoveAbility((Je[(data)]),'B004')
    call UnitRemoveAbility((Je[(data)]),'B006')
    call UnitRemoveAbility((Je[(data)]),'B009')
    call UnitRemoveAbility((Je[(data)]),'B00H')
    call UnitRemoveAbility((Je[(data)]),'B01I')
    call UnitRemoveAbility((Je[(data)]),'B01N')
    call UnitRemoveAbility((Je[(data)]),'B02B')
    call UnitRemoveAbility((Je[(data)]),'B02D')
    call UnitRemoveAbility((Je[(data)]),'B02V')
    call UnitRemoveAbility((Je[(data)]),'B03E')
    call UnitRemoveAbility((Je[(data)]),'B046')
    call UnitRemoveAbility((Je[(data)]),'B04H')
    call UnitRemoveAbility((Je[(data)]),'B04I')
    call UnitRemoveAbility((Je[(data)]),'B06I')
    call UnitRemoveAbility((Je[(data)]),'Bakb')
    call UnitRemoveAbility((Je[(data)]),'Bbsk')
    call UnitRemoveAbility((Je[(data)]),'Bfro')
    call UnitRemoveAbility((Je[(data)]),'Bmil')
    call UnitRemoveAbility((Je[(data)]),'Bslo')
    call UnitRemoveAbility((Je[(data)]),'BEme')
    call UnitRemoveAbility((Je[(data)]),'BNdm')
    call UnitRemoveAbility((Je[(data)]),'BNdo')
    call UnitRemoveAbility((Je[(data)]),'BUav')
    call UnitRemoveAbility((Je[(data)]),'BUdd')
    call UnitRemoveAbility((Je[(data)]),'B082')
    call UnitRemoveAbility((Je[(data)]),'B091')
    call UnitRemoveAbility((Je[(data)]),'B09E')
    call UnitRemoveAbility((Je[(data)]),'B09D')
endfunction

function UnitAppBuff takes integer data,integer dhv,integer ss returns nothing
    if not PB[data]then
        call Auxiliary_TargetOrder((dhv),null,1,ss,(Je[(data)]))
    endif
endfunction

function UnitAppBuffByLevel takes integer data,integer dhv,integer ss,integer lv returns nothing
    if not PB[data]then
        call Auxiliary_TargetOrder((dhv),null,lv,ss,(Je[(data)]))
    endif
endfunction

function IsUnitNocontrol takes integer data returns boolean
    return PB[data]
endfunction

function SetUnitNocontrol takes integer data,boolean b returns nothing
    if b then
        call UnitRemoveControl(data)
    endif
    set PB[data]=b
endfunction

function SetUnitNotSeckill takes integer data,boolean b returns nothing
    if b then
        set pB_v[data]=pB_v[data]+1
    else
        set pB_v[data]=pB_v[data]-1
    endif
    set pB[data]=pB_v[data]>0
endfunction

function GetUnitMdef takes integer id returns real
    if UnitMdef_t[id]!=0 then
        return UnitMdef[id]
    endif
    return .0
endfunction

function GetUnitAdef takes integer id returns real
    if UnitAdef_t[id]!=0 then
        return UnitAdef[id]
    endif
    return .0
endfunction

function GetUnitDodge takes integer id returns real
    if UnitDodge_t[id]!=0 then
        return UnitDodge[id]
    endif
    return .0
endfunction

function GetUnitHitRate takes integer id returns real
    return UnitHitRate[id]
endfunction

function GetUnitBeCureRatio takes integer id returns real
    return UnitBeCureRatio[id]
endfunction

function GetUnitDefaultArmor takes integer data returns integer
    return R2I(Dsv((Je[(data)])))-UnitArmor[data]
endfunction

function GetUnitDefaultAttackSpeed takes integer data returns integer
    return UnitAttackSpeed[data]-HeroAgi_atk_speed[data]
endfunction

function GetUnitCrit takes integer data returns real
    return UnitCrit[data]
endfunction

function GetUnitCritDamage takes integer data returns real
    return Unit_C_DMG[data]
endfunction

function GetUnitBasicHpRegen takes integer data returns real
    return UnitHpRegen[data]
endfunction

function SummonedUnitSetMaster takes integer data,integer s returns nothing
    if Master_App[data]then
        call Unit_Cancel_Counter(361,Master[data])
        set Master_App[data]=false
    endif
    if data!=s then
        set Master_App[data]=true
        call Unit_App_Counter(362,Master[data])
    endif
    set Master[data]=s
endfunction

function SummonedUnitGetMaster takes integer data returns integer
    return Master[data]
endfunction

function GetUnitMaxLifeById takes integer data returns real
    if GetUnitAbilityLevel((Je[(data)]),'A0A3')==1 then
        return GetUnitState((Je[(data)]),UNIT_STATE_MAX_LIFE)-2000000.
    endif
    return GetUnitState((Je[(data)]),UNIT_STATE_MAX_LIFE)
endfunction

function GetUnitMaxManaById takes integer data returns real
    if HaveSavedBoolean(BYHT,(unitstate__qB),UnitTypeId[data])then
        return .0
    endif
    return GetUnitState((Je[(data)]),UNIT_STATE_MAX_MANA)
endfunction

function QUv takes integer data returns integer
    return GetPlayerId(GetOwningPlayer((Je[(data)])))
endfunction

function ModifyUnitMagicDamage takes integer data,real v returns nothing
    set Unit_MATK[data]=Unit_MATK[data]+.01*v
endfunction

function ModifyUnitCritDamage takes integer data,real v returns nothing
    set Unit_C_DMG[data]=Unit_C_DMG[data]+.01*v
endfunction

function ModifyUnitPersistentDamage takes integer data,real v returns nothing
    set Unit_DOT[data]=Unit_DOT[data]+.01*v
endfunction

function ModifyUnitFireDamage takes integer data,real v returns nothing
    set Unit_Fire_Damage[data]=Unit_Fire_Damage[data]+.01*v
endfunction

function ModifyUnitFrostDamage takes integer data,real v returns nothing
    set Unit_Frost_Damage[data]=Unit_Frost_Damage[data]+.01*v
endfunction

function ModifyUnitGasDamage takes integer data,real v returns nothing
    set Unit_Gas_Damage[data]=Unit_Gas_Damage[data]+.01*v
endfunction

function ModifyUnitToDamage takes integer data,real v returns nothing
    set Unit_To_Damage[data]=Unit_To_Damage[data]+.01*v
endfunction

function ModifyUnitLightningDamage takes integer data,real v returns nothing
    set Unit_Lightning_Damage[data]=Unit_Lightning_Damage[data]+.01*v
endfunction

function ModifyUnitLightDamage takes integer data,real v returns nothing
    set Unit_Light_Damage[data]=Unit_Light_Damage[data]+.01*v
endfunction

function ModifyUnitDarkdamage takes integer data,real v returns nothing
    set Unit_Dark_Damage[data]=Unit_Dark_Damage[data]+.01*v
endfunction

function ModifyUnitArmor takes integer data,integer value returns nothing
    set UnitArmor[data]=UnitArmor[data]+value
    call AbilityRefresh((Je[(data)]),Ability_Id[(UNIT_STATE_ARMOR)],AbilitySize[(UNIT_STATE_ARMOR)],UnitArmor[data])
endfunction

function ModifyUnitAttack takes integer data,integer value returns nothing
    set UnitAttack[data]=UnitAttack[data]+value
    call AbilityRefresh((Je[(data)]),Ability_Id[(UNIT_STATE_ATTACK)],AbilitySize[(UNIT_STATE_ATTACK)],UnitAttack[data])
endfunction

function ModifyUnitAttackSpeed takes integer data,integer value returns nothing
    set UnitAttackSpeed[data]=UnitAttackSpeed[data]+value
    call AbilityRefresh((Je[(data)]),Ability_Id[(UNIT_STATE_ATTACK_SPEED)],AbilitySize[(UNIT_STATE_ATTACK_SPEED)],UnitAttackSpeed[data])
endfunction

function ModifyUnitHP takes integer data,integer value returns nothing
    set UnitHP[data]=UnitHP[data]+value
    call AbilityRefresh((Je[(data)]),Ability_Id[(UNIT_STATE_HP)],AbilitySize[(UNIT_STATE_HP)],UnitHP[data])
endfunction

function ModifyUnitMP takes integer data,integer value returns nothing
    if not HaveSavedBoolean(BYHT,(unitstate__qB),GetUnitTypeId((Je[(data)])))then
        set UnitMP[data]=UnitMP[data]+value
        call AbilityRefresh((Je[(data)]),Ability_Id[(UNIT_STATE_MP)],AbilitySize[(UNIT_STATE_MP)],UnitMP[data])
    endif
endfunction

function ModifyUnitHpRegen takes integer data,real value returns nothing
    if value>0 or value<0 then
        set UnitHpRegen[data]=UnitHpRegen[data]+.03125*value
        set value=UnitHpRegen[data]
        if value>0 or value<0 then
            call AppUnitRegen(data)
        endif
    endif
endfunction

function ModifyUnitMpRegen takes integer data,real value returns nothing
    if value!=0 and not HaveSavedBoolean(BYHT,(unitstate__qB),GetUnitTypeId((Je[(data)])))then
        set UnitMpRegen[data]=UnitMpRegen[data]+.03125*value
        set value=UnitMpRegen[data]
        if value>0 or value<0 then
            call AppUnitRegen(data)
        endif
    endif
endfunction

function ModifyUnitCrit takes integer data,real v returns nothing
    set UnitCrit[data]=UnitCrit[data]+v
endfunction

function RefreshUnitCrit takes integer data returns nothing
    local real value=.35*SquareRoot(GetHeroState2((Je[(data)]),true))
    call ModifyUnitCrit(data,value-HeroAgi_crit[data])
    set HeroAgi_crit[data]=value
endfunction

function RefreshUnitAttackSpeed takes integer data returns nothing
    local integer agi=GetHeroState2((Je[(data)]),true)
    local integer value=R2I(2*SquareRoot(agi))
    if agi>300 then
        set value=value+$96
    else
        set value=value+R2I(.5*agi)
    endif
    if kc[(data)]=='H015' or kc[(data)]=='H01N' then
        set value=value/ 2
    endif
    call ModifyUnitAttackSpeed(data,value-HeroAgi_atk_speed[data])
    set HeroAgi_atk_speed[data]=value
endfunction

function RefreshUnitHpRegen takes integer data returns nothing
    local real value=GetHeroState1((Je[(data)]),false)*.01
    call ModifyUnitHpRegen(data,value-HeroStr_hp_regen[data])
    set HeroStr_hp_regen[data]=value
endfunction

function RefreshUnitMpRegen takes integer data returns nothing
    local real value=GetHeroState3((Je[(data)]),false)*.03
    call ModifyUnitMpRegen(data,value-HeroInt_mp_regen[data])
    set HeroInt_mp_regen[data]=value
endfunction

function ModifyHeroStrBy takes integer data,integer value returns nothing
    set HeroStr[data]=HeroStr[data]+value
    call AbilityRefresh((Je[(data)]),Ability_Id[(HERO_STATE_STR)],AbilitySize[(HERO_STATE_STR)],HeroStr[data])
    call ModifyUnitHpRegen(data,.01*value)
endfunction

function ModifyHeroAgiBy takes integer data,integer value returns nothing
    if value!=0 then
        set HeroAgi[data]=HeroAgi[data]+value
        call AbilityRefresh((Je[(data)]),Ability_Id[(HERO_STATE_AGI)],AbilitySize[(HERO_STATE_AGI)],HeroAgi[data])
        call RefreshUnitAttackSpeed(data)
        call RefreshUnitCrit(data)
    endif
endfunction

function ModifyHeroIntBy takes integer data,integer value returns nothing
    set HeroInt[data]=HeroInt[data]+value
    call AbilityRefresh((Je[(data)]),Ability_Id[(HERO_STATE_INT)],AbilitySize[(HERO_STATE_INT)],HeroInt[data])
    call ModifyUnitMP(data,5*value)
    call ModifyUnitMpRegen(data,.03*value)
endfunction

function GetunitseatetableV takes integer m returns real
    return 100*s__unitseate_table_v[m]
endfunction

function RefreshUnitStateTable takes integer root returns real
    local integer m=root
    local real t=1
    loop
        set t=t*(1.-s__unitseate_table_v[m])
        set m=s__unitseate_table_L[m]
        exitwhen m==root
    endloop
    return 1-t
endfunction

function RefreshUnitStateTableB takes integer root returns real
    local integer m=root
    local real t=1
    loop
        set t=t*(1.+s__unitseate_table_v[m])
        set m=s__unitseate_table_L[m]
        exitwhen m==root
    endloop
    return t
endfunction

function UnitDodgeChange takes integer data,integer m,real v returns nothing
    if v>100 then
        set s__unitseate_table_v[m]=1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitDodge[data]=100.*RefreshUnitStateTable(UnitDodge_t[data])
endfunction

function ModifyUnitDodge takes integer data,real v returns integer
    local integer m=UnitDodge_t[data]
    if m==0 then
        set m=s__unitseate_table_new()
        set UnitDodge_t[data]=m
    else
        set m=s__unitseate_table_addfor(m)
    endif
    if v>100 then
        set s__unitseate_table_v[m]=1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitDodge[data]=100.-(100.-UnitDodge[data])*(1.-s__unitseate_table_v[m])
    return m
endfunction

function DeUnitDodge takes integer data,integer m returns nothing
    if m==UnitDodge_t[data]then
        set m=s__unitseate_table_remove(m)
        if m==null then
            set UnitDodge_t[data]=0
            set UnitDodge[data]=0
            return
        endif
        set UnitDodge_t[data]=m
    else
        call s__unitseate_table_remove(m)
    endif
    set UnitDodge[data]=100.*RefreshUnitStateTable(UnitDodge_t[data])
endfunction

function ModifyUnitHitRate takes integer data,real v returns integer
    local integer m=UnitHitRate_t[data]
    if m==0 then
        set m=s__unitseate_table_new()
        set UnitHitRate_t[data]=m
    else
        set m=s__unitseate_table_addfor(m)
    endif
    if v<-100 then
        set s__unitseate_table_v[m]=-1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitHitRate[data]=UnitHitRate[data]*(1.+s__unitseate_table_v[m])
    return m
endfunction

function UnitHitRateChange takes integer data,integer m,real v returns nothing
    if v<-100 then
        set v=-100
    endif
    set s__unitseate_table_v[m]=.01*v
    set UnitHitRate[data]=RefreshUnitStateTableB(UnitHitRate_t[data])
endfunction

function DeUnitHitRate takes integer data,integer m returns nothing
    if m==UnitHitRate_t[data]then
        set m=s__unitseate_table_remove(m)
        if m==null then
            set UnitHitRate_t[data]=0
            set UnitHitRate[data]=1.
            return
        endif
        set UnitHitRate_t[data]=m
    else
        call s__unitseate_table_remove(m)
    endif
    set UnitHitRate[data]=RefreshUnitStateTableB(UnitHitRate_t[data])
endfunction

function ModifyUnitMdef takes integer data,real v returns integer
    local integer m=UnitMdef_t[data]
    if m==0 then
        set m=s__unitseate_table_new()
        set UnitMdef_t[data]=m
    else
        set m=s__unitseate_table_addfor(m)
    endif
    if v>100 then
        set s__unitseate_table_v[m]=1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitMdef[data]=1-(1.-UnitMdef[data])*(1.-s__unitseate_table_v[m])
    return m
endfunction

function UnitMdefChange takes integer data,integer m,real v returns nothing
    if v>100 then
        set s__unitseate_table_v[m]=1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitMdef[data]=RefreshUnitStateTable(UnitMdef_t[data])
endfunction

function DeUnitMdef takes integer data,integer m returns nothing
    if m==UnitMdef_t[data]then
        set m=s__unitseate_table_remove(m)
        if m==null then
            set UnitMdef_t[data]=0
            set UnitMdef[data]=0
            return
        endif
        set UnitMdef_t[data]=m
    else
        call s__unitseate_table_remove(m)
    endif
    set UnitMdef[data]=RefreshUnitStateTable(UnitMdef_t[data])
endfunction

function ModifyUnitAdef takes integer data,real v returns integer
    local integer m=UnitAdef_t[data]
    if m==0 then
        set m=s__unitseate_table_new()
        set UnitAdef_t[data]=m
    else
        set m=s__unitseate_table_addfor(m)
    endif
    if v>100 then
        set s__unitseate_table_v[m]=1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitAdef[data]=1-(1.-UnitAdef[data])*(1.-s__unitseate_table_v[m])
    return m
endfunction

function UnitAdefChange takes integer data,integer m,real v returns nothing
    if v>100 then
        set s__unitseate_table_v[m]=1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitAdef[data]=RefreshUnitStateTable(UnitAdef_t[data])
endfunction

function DeUnitAdef takes integer data,integer m returns nothing
    if m==UnitAdef_t[data]then
        set m=s__unitseate_table_remove(m)
        if m==null then
            set UnitAdef_t[data]=0
            set UnitAdef[data]=0
            return
        endif
        set UnitAdef_t[data]=m
    else
        call s__unitseate_table_remove(m)
    endif
    set UnitAdef[data]=RefreshUnitStateTable(UnitAdef_t[data])
endfunction

function ModifyUnitBeCureRatio takes integer data,real v returns integer
    local integer m=UnitBeCureRatio_t[data]
    if m==0 then
        set m=s__unitseate_table_new()
        set UnitBeCureRatio_t[data]=m
    else
        set m=s__unitseate_table_addfor(m)
    endif
    if v<-100 then
        set s__unitseate_table_v[m]=-1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitBeCureRatio[data]=UnitBeCureRatio[data]*(1.+s__unitseate_table_v[m])
    return m
endfunction

function UnitBeCureRatioChange takes integer data,integer m,real v returns nothing
    if v<-100 then
        set s__unitseate_table_v[m]=-1
    else
        set s__unitseate_table_v[m]=v*.01
    endif
    set UnitBeCureRatio[data]=RefreshUnitStateTableB(UnitBeCureRatio_t[data])
endfunction

function DeUnitBeCureRatio takes integer data,integer m returns nothing
    if m==UnitBeCureRatio_t[data]then
        set m=s__unitseate_table_remove(m)
        if m==null then
            set UnitBeCureRatio_t[data]=0
            set UnitBeCureRatio[data]=1.
            return
        endif
        set UnitBeCureRatio_t[data]=m
    else
        call s__unitseate_table_remove(m)
    endif
    set UnitBeCureRatio[data]=RefreshUnitStateTableB(UnitBeCureRatio_t[data])
endfunction

function UnitAddBeRemoveTrig takes integer data,boolexpr c returns nothing
    if UnitBeRemove_t[data]==0 then
        set UnitBeRemove_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UnitBeRemove_t[data]))],((c)))
endfunction

function UnitAddBeRemoveTrigB takes integer data,boolexpr c returns integer
    if UnitBeRemove_t[data]==0 then
        set UnitBeRemove_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UnitBeRemove_t[data]),c)
endfunction

function UnitAddPAttackTrig takes integer data,code c returns nothing
    if UnitPAttack_t[data]==0 then
        set UnitPAttack_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UnitPAttack_t[data]))],Filter((c)))
endfunction

function UnitAddPAttackTrigB takes integer data,code c returns integer
    if UnitPAttack_t[data]==0 then
        set UnitPAttack_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UnitPAttack_t[data]),c)
endfunction

function UnitAddPAttackTrigC takes integer data,boolexpr c returns integer
    if UnitPAttack_t[data]==0 then
        set UnitPAttack_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UnitPAttack_t[data]),c)
endfunction

function UnitAddBePAttackTrig takes integer data,code c returns nothing
    if UnitBePAttack_t[data]==0 then
        set UnitBePAttack_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UnitBePAttack_t[data]))],Filter((c)))
endfunction

function UnitAddBePAttackTrigB takes integer data,code c returns integer
    if UnitBePAttack_t[data]==0 then
        set UnitBePAttack_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UnitBePAttack_t[data]),c)
endfunction

function UnitAddBePAttackTrigC takes integer data,boolexpr c returns integer
    if UnitBePAttack_t[data]==0 then
        set UnitBePAttack_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UnitBePAttack_t[data]),c)
endfunction

function UnitAddBeDamagerTrig takes integer data,code c returns nothing
    if UnitBeDamager_t[data]==0 then
        set UnitBeDamager_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UnitBeDamager_t[data]))],Filter((c)))
endfunction

function UnitAddBeDamagerTrigB takes integer data,code c returns integer
    if UnitBeDamager_t[data]==0 then
        set UnitBeDamager_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UnitBeDamager_t[data]),c)
endfunction

function UnitAddBeDamagerTrigC takes integer data,boolexpr c returns integer
    if UnitBeDamager_t[data]==0 then
        set UnitBeDamager_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UnitBeDamager_t[data]),c)
endfunction

function UnitAddDamagerTrig takes integer data,code c returns nothing
    if UnitDamager_t[data]==0 then
        set UnitDamager_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UnitDamager_t[data]))],Filter((c)))
endfunction

function UnitAddDamagerTrigB takes integer data,code c returns integer
    if UnitDamager_t[data]==0 then
        set UnitDamager_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UnitDamager_t[data]),c)
endfunction

function UnitAddDamagerTrigC takes integer data,boolexpr c returns integer
    if UnitDamager_t[data]==0 then
        set UnitDamager_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UnitDamager_t[data]),c)
endfunction

function UnitAddShieldTrig takes integer data,code c returns nothing
    if UnitShield_t[data]==0 then
        set UnitShield_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UnitShield_t[data]))],Filter((c)))
endfunction

function UnitAddShieldTrigB takes integer data,code c returns integer
    if UnitShield_t[data]==0 then
        set UnitShield_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UnitShield_t[data]),c)
endfunction

function UnitAddShieldTrigC takes integer data,boolexpr c returns integer
    if UnitShield_t[data]==0 then
        set UnitShield_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UnitShield_t[data]),c)
endfunction

function AddUnitDeathTrig takes integer data,code c returns nothing
    if UnitDeath_t[data]==0 then
        set UnitDeath_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UnitDeath_t[data]))],Filter((c)))
endfunction

function AddUnitDeathTrigB takes integer data,code c returns integer
    if UnitDeath_t[data]==0 then
        set UnitDeath_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UnitDeath_t[data]),c)
endfunction

function AddUnitDeathTrigC takes integer data,boolexpr c returns integer
    if UnitDeath_t[data]==0 then
        set UnitDeath_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UnitDeath_t[data]),c)
endfunction

function AddUnitCureTrig takes integer data,code c returns nothing
    if UNIT_CURE_EVENT[data]==0 then
        set UNIT_CURE_EVENT[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UNIT_CURE_EVENT[data]))],Filter((c)))
endfunction

function AddUnitCureTrigB takes integer data,code c returns integer
    if UNIT_CURE_EVENT[data]==0 then
        set UNIT_CURE_EVENT[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UNIT_CURE_EVENT[data]),c)
endfunction

function AddUnitCureTrigC takes integer data,boolexpr c returns integer
    if UNIT_CURE_EVENT[data]==0 then
        set UNIT_CURE_EVENT[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UNIT_CURE_EVENT[data]),c)
endfunction

function AddUnitBeCureTrig takes integer data,code c returns nothing
    if UNIT_BE_CURE_EVENT[data]==0 then
        set UNIT_BE_CURE_EVENT[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((UNIT_BE_CURE_EVENT[data]))],Filter((c)))
endfunction

function AddUnitBeCureTrigB takes integer data,code c returns integer
    if UNIT_BE_CURE_EVENT[data]==0 then
        set UNIT_BE_CURE_EVENT[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((UNIT_BE_CURE_EVENT[data]),c)
endfunction

function AddUnitBeCureTrigC takes integer data,boolexpr c returns integer
    if UNIT_BE_CURE_EVENT[data]==0 then
        set UNIT_BE_CURE_EVENT[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((UNIT_BE_CURE_EVENT[data]),c)
endfunction

function AddUnitTransitions takes integer data,code c returns integer
    if DamageTransitions_t[data]==0 then
        set DamageTransitions_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((DamageTransitions_t[data]),c)
endfunction

function UnitCureTaret takes unit NZv,unit N7v,real value returns real
    local real tlv
    local real tLv
    local integer id1=CURE_Unit
    local integer id2=BECURE_Unit
    local real x=CURE_Damage
    set CURE_Unit=GetUnitUserData(NZv)
    set BECURE_Unit=GetUnitUserData(N7v)
    if UnitAlive(N7v)and GetUnitAbilityLevel(N7v,'A0FP')==0 then
        if NZv!=null then
            set value=(1+Unit_MATK[CURE_Unit])*(UnitBeCureRatio[(BECURE_Unit)])*value
        endif
        if GetUnitAbilityLevel(N7v,'BNss')>0 then
            set value=.6*value
        endif
        set CURE_Damage=value
        if UNIT_CURE_EVENT[CURE_Unit]>0 then
            call s__Trig_exewithp((UNIT_CURE_EVENT[CURE_Unit]),CURE_Unit)
        endif
        if UNIT_BE_CURE_EVENT[BECURE_Unit]>0 then
            call s__Trig_exewithp((UNIT_BE_CURE_EVENT[BECURE_Unit]),BECURE_Unit)
        endif
        set value=CURE_Damage
        set tlv=GetWidgetLife(N7v)
        set tLv=GetUnitState(N7v,UNIT_STATE_MAX_LIFE)-tlv
        if value>tLv then
            set value=tLv
        endif
        call SetWidgetLife(N7v,tlv+value)
        if R2I(value)>0 then
            if GetPlayerId(GetOwningPlayer(N7v))<8 then
                call thv("|c0069ff2d+"+I2S(R2I(value+.5)),GetUnitX(N7v),GetUnitY(N7v),GetUnitFlyHeight(N7v)+25,.03,.02,bj_PI/ 2,.5,.75)
            endif
        endif
    endif
    set CURE_Unit=id1
    set BECURE_Unit=id2
    set CURE_Damage=x
    return value
endfunction

function UnitCure_Drain takes unit N7v,real value,real tMv returns real
    local real tlv
    local real tLv
    local integer id1=CURE_Unit
    local integer id2=BECURE_Unit
    local real x=CURE_Damage
    set CURE_Unit=0
    set BECURE_Unit=GetUnitUserData(N7v)
    if UnitAlive(N7v)and GetUnitAbilityLevel(N7v,'A0FP')==0 then
        set value=(UnitBeCureRatio[(BECURE_Unit)])*value
        if GetUnitAbilityLevel(N7v,'BNss')>0 then
            set value=.6*value
        endif
        set CURE_Damage=value
        if UNIT_BE_CURE_EVENT[BECURE_Unit]>0 then
            call s__Trig_exewithp((UNIT_BE_CURE_EVENT[BECURE_Unit]),BECURE_Unit)
        endif
        set value=CURE_Damage
        set tlv=GetWidgetLife(N7v)
        set tLv=GetUnitState(N7v,UNIT_STATE_MAX_LIFE)-tlv
        if value>tLv then
            set value=tLv
        endif
        if value>tMv then
            set value=tMv
        endif
        call SetWidgetLife(N7v,tlv+value)
    endif
    set CURE_Unit=id1
    set BECURE_Unit=id2
    set CURE_Damage=x
    return value
endfunction

function unitstate__s0v takes nothing returns boolean
    local integer data
    if IsUnitInGroup(GetTriggerUnit(),h_v_Group)then
        set data=(GetUnitUserData((GetTriggerUnit())))
        call s__Trig_exewithp((UnitDeath_t[data]),data)
        if nC[(data)]then
            call sc___prototype111_evaluate(4,(Je[(data)]))
            call sc___prototype15_evaluate(1,data)
        endif
    endif
    return false
endfunction

function dvv takes nothing returns nothing
    call TriggerEvaluate(Damage_Xgv)
endfunction

function unitstate__Q3v takes integer data returns nothing
    set mB[data]=CreateTrigger()
    set Master[data]=data
    set UnitTypeId[data]=GetUnitTypeId(Je[data])
    set UnitMaxLife[data]=GetUnitState(Je[data],UNIT_STATE_MAX_LIFE)
    set UnitHitRate[data]=1.
    set UnitBeCureRatio[data]=1.
    set Unit_C_DMG[data]=1.
    set Unit_DOT[data]=1.
    set Unit_Fire_Damage[data]=1.
    set Unit_Frost_Damage[data]=1.
    set Unit_Gas_Damage[data]=1.
    set Unit_To_Damage[data]=1.
    set Unit_Lightning_Damage[data]=1.
    set Unit_Light_Damage[data]=1.
    set Unit_Dark_Damage[data]=1.
    call TriggerRegisterUnitEvent(mB[data],(Je[(data)]),EVENT_UNIT_DAMAGED)
    call TriggerAddCondition(mB[data],Filter(function dvv))
    call TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,Event_Enterworld_Id,UnitTypeId[data])))
endfunction

function unitstate__sav takes integer data returns nothing
    if Master_App[data]then
        call Unit_Cancel_Counter(363,Master[data])
        set Master_App[data]=false
    endif
    set Master[data]=0
    set UnitTypeId[data]=0
    set UnitArmor[data]=0
    set UnitAttack[data]=0
    set HeroStr[data]=0
    set HeroAgi[data]=0
    set HeroInt[data]=0
    set UnitAttackSpeed[data]=0
    set HeroStr_hp_regen[data]=0
    set HeroAgi_atk_speed[data]=0
    set HeroAgi_crit[data]=0
    set HeroInt_mp_regen[data]=0
    set UnitHP[data]=0
    set UnitHpRegen[data]=0
    set UnitMP[data]=0
    set UnitMpRegen[data]=0
    set PB[data]=false
    if pB[data]then
        set pB_v[data]=0
        set pB[data]=false
    endif
    set Unit_MATK[data]=.0
    set UnitCrit[data]=.0
    if UnitDodge_t[data]!=null then
        call s__unitseate_table_clear(UnitDodge_t[data])
        set UnitDodge_t[data]=0
    endif
    if UnitHitRate_t[data]!=null then
        call s__unitseate_table_clear(UnitHitRate_t[data])
        set UnitHitRate_t[data]=0
    endif
    if UnitMdef_t[data]!=null then
        call s__unitseate_table_clear(UnitMdef_t[data])
        set UnitMdef_t[data]=0
    endif
    if UnitAdef_t[data]!=null then
        call s__unitseate_table_clear(UnitAdef_t[data])
        set UnitAdef_t[data]=0
    endif
    if UnitBeCureRatio_t[data]!=null then
        call s__unitseate_table_clear(UnitBeCureRatio_t[data])
        set UnitBeCureRatio_t[data]=0
    endif
    if UnitBeRemove_t[data]!=0 then
        call s__Trig_clear((UnitBeRemove_t[data]))
        set UnitBeRemove_t[data]=0
    endif
    if DamageTransitions_t[data]!=0 then
        call s__Trig_clear((DamageTransitions_t[data]))
        set DamageTransitions_t[data]=0
    endif
    if UnitPAttack_t[data]!=0 then
        call s__Trig_clear((UnitPAttack_t[data]))
        set UnitPAttack_t[data]=0
    endif
    if UnitBeDamager_t[data]!=0 then
        call s__Trig_clear((UnitBeDamager_t[data]))
        set UnitBeDamager_t[data]=0
    endif
    if UnitDamager_t[data]!=0 then
        call s__Trig_clear((UnitDamager_t[data]))
        set UnitDamager_t[data]=0
    endif
    if UnitShield_t[data]!=0 then
        call s__Trig_clear((UnitShield_t[data]))
        set UnitShield_t[data]=0
    endif
    if UnitDeath_t[data]!=0 then
        call s__Trig_clear((UnitDeath_t[data]))
        set UnitDeath_t[data]=0
    endif
    if UNIT_CURE_EVENT[data]!=0 then
        call s__Trig_clear((UNIT_CURE_EVENT[data]))
        set UNIT_CURE_EVENT[data]=0
    endif
    if UNIT_BE_CURE_EVENT[data]!=0 then
        call s__Trig_clear((UNIT_BE_CURE_EVENT[data]))
        set UNIT_BE_CURE_EVENT[data]=0
    endif
    if UnitBePAttack_t[data]!=0 then
        call s__Trig_clear((UnitBePAttack_t[data]))
        set UnitBePAttack_t[data]=0
    endif
    call DestroyTrigger(mB[data])
    set mB[data]=null
endfunction

function unitstate__s3v takes nothing returns boolean
    set Hc[(le)]=true
    call unitstate__Q3v((le))
    return false
endfunction

function unitstate__s4v takes nothing returns boolean
    set Hc[(le)]=false
    call unitstate__sav((le))
    return false
endfunction

function unitstate__s1v takes nothing returns nothing
    set unitstate__qB=malloc()
    call SaveBoolean(BYHT,(unitstate__qB),'H001',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H008',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H00D',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H00E',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H00H',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H01H',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H01U',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H01V',true)
    call SaveBoolean(BYHT,(unitstate__qB),'H01W',true)
    call RegisterEvent(EVENT_PLAYER_UNIT_DEATH,function unitstate__s0v)
endfunction

function unitstate__s5v takes nothing returns nothing
    call h4v(Condition(function unitstate__s3v),bR)
    call h4v(Condition(function unitstate__s4v),BR)
endfunction

function unitstate_onInit takes nothing returns nothing
    call ExecuteFunc("unitstate__AbilityPreload")
    call ExecuteFunc("unitstate__kjv")
    call ExecuteFunc("unitstate__s1v")
    call ExecuteFunc("unitstate__s5v")
endfunction

function s__drops_tabale_getitemindex takes integer itemid returns integer
    if HaveSavedInteger(BYHT,Ur,-itemid)then
        return LoadInteger(BYHT,Ur,-itemid)
    endif
    set s__drops_tabale_tindex=s__drops_tabale_tindex+1
    call SaveInteger(BYHT,Ur,-itemid,s__drops_tabale_tindex)
    return s__drops_tabale_tindex
endfunction

function s__drops_tabale_func2 takes integer this returns nothing
    local integer i=s__drops_tabale_index[this]
    local integer j=s__drops_tabale_getitemindex(s__drops_tabale_tid[this])
    local integer tu
    local integer key
    loop
        exitwhen i==0
        set i=i-1
        set tu=LoadInteger(BYHT,Ur,s___drops_tabale_r_id[s__drops_tabale_r_id[this]+i])
        set key=tu*8192+j
        if HaveSavedInteger(BYHT,Ur,key)then
            set s___drops_tabale_r_v[s__drops_tabale_r_v[tu]+LoadInteger(BYHT,Ur,key)]=s___drops_tabale_r_v[s__drops_tabale_r_v[this]+i]*s__drops_tabale_r_a[this]
        endif
    endloop
endfunction

function s__drops_tabale_func1 takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if s__drops_tabale_r_a[this]<4. then
        set s__drops_tabale_r_a[this]=s__drops_tabale_r_a[this]+s__drops_tabale_r_up[this]
        call s__drops_tabale_func2(this)
    endif
endfunction

function s__drops_tabale_newitemdrop takes integer itemid,real timed,real up returns nothing
    local integer this
    if not HaveSavedInteger(BYHT,Ur,itemid)then
        set this=s__drops_tabale__allocate()
        set s__drops_tabale_tid[this]=itemid
        set s__drops_tabale_r_a[this]=1
        set s__drops_tabale_r_up[this]=up
        if timed>0 then
            call SaveReal(BYHT,(zr),itemid,timed)
        endif
        if up!=0 then
            call TimerStart(NewTimer(this),600,true,function s__drops_tabale_func1)
        endif
        call SaveInteger(BYHT,Ur,itemid,this)
    endif
endfunction

function s__drops_tabale_newunitdrop takes integer uid,integer mD returns nothing
    local integer this
    if not HaveSavedInteger(BYHT,Ur,uid)then
        set this=s__drops_tabale__allocate()
        set s__drops_tabale_max[this]=mD
        call SaveInteger(BYHT,Ur,uid,this)
    endif
endfunction

function s__drops_tabale_unitremovedroptiem takes integer uid,integer itemid returns nothing
    local integer this=LoadInteger(BYHT,Ur,uid)
    local integer key=this*8192+s__drops_tabale_getitemindex(itemid)
    local integer i=LoadInteger(BYHT,Ur,key)
    if s___drops_tabale_r_id[s__drops_tabale_r_id[this]+i]==itemid then
        call RemoveSavedInteger(BYHT,Ur,key)
        set s__drops_tabale_index[this]=s__drops_tabale_index[this]-1
        if s__drops_tabale_index[this]>0 then
            set s___drops_tabale_r_id[s__drops_tabale_r_id[this]+i]=s___drops_tabale_r_id[s__drops_tabale_r_id[this]+s__drops_tabale_index[this]]
            set s___drops_tabale_r_v[s__drops_tabale_r_v[this]+i]=s___drops_tabale_r_v[s__drops_tabale_r_v[this]+s__drops_tabale_index[this]]
            call SaveInteger(BYHT,Ur,this*8192+s__drops_tabale_getitemindex(s___drops_tabale_r_id[s__drops_tabale_r_id[this]+i]),i)
        endif
        set s___drops_tabale_r_id[s__drops_tabale_r_id[this]+s__drops_tabale_index[this]]=0
        set s___drops_tabale_r_v[s__drops_tabale_r_v[this]+s__drops_tabale_index[this]]=0
    endif
endfunction

function s__drops_tabale_unitadddroptiem takes integer uid,integer itemid,real value,boolean dRv returns nothing
    local integer this=LoadInteger(BYHT,Ur,uid)
    local integer dt
    if s__drops_tabale_index[this]<Tr then
        call SaveInteger(BYHT,Ur,this*8192+s__drops_tabale_getitemindex(itemid),s__drops_tabale_index[this])
        set s___drops_tabale_r_id[s__drops_tabale_r_id[this]+s__drops_tabale_index[this]]=itemid
        set s___drops_tabale_r_v[s__drops_tabale_r_v[this]+s__drops_tabale_index[this]]=value
        set s__drops_tabale_index[this]=s__drops_tabale_index[this]+1
        if dRv and HaveSavedInteger(BYHT,Ur,itemid)then
            set dt=LoadInteger(BYHT,Ur,itemid)
            set s___drops_tabale_r_id[s__drops_tabale_r_id[dt]+s__drops_tabale_index[dt]]=uid
            set s___drops_tabale_r_v[s__drops_tabale_r_v[dt]+s__drops_tabale_index[dt]]=value
            set s__drops_tabale_index[dt]=s__drops_tabale_index[dt]+1
        endif
    endif
endfunction

function ypv takes integer uid,integer yPv,integer rP returns nothing
    set ur=uid
    if(rP>0)then
        call SaveInteger(BYHT,Yr,uid,rP)
    endif
    if((1)>0)then
        call s__drops_tabale_newunitdrop(uid,yPv)
    endif
    call SaveBoolean(BYHT,(wr),uid,true)
endfunction

function yqv takes integer uid,integer g,integer e returns nothing
    call SaveInteger(BYHT,Wr,uid,g)
    call SaveInteger(BYHT,yr,uid,e)
endfunction

function AddDdrops takes integer itemid,real ysv returns nothing
    call s__drops_tabale_unitadddroptiem(ur,itemid,ysv,true)
endfunction

function NewItemDrops takes integer itemid,real timed,real up returns nothing
    call s__drops_tabale_newitemdrop(itemid,timed,up)
endfunction

 function ModifyDropsRateById takes integer uid,real t returns nothing
    local integer du=LoadInteger(BYHT,Ur,uid)
    local integer i=s__drops_tabale_index[du]
    loop
        exitwhen i==0
        set i=i-1
        set s___drops_tabale_r_v[s__drops_tabale_r_v[du]+i]=t*s___drops_tabale_r_v[s__drops_tabale_r_v[du]+i]
    endloop
 endfunction


 function ItemDrops___Init1 takes nothing returns nothing
    call s__drops_tabale_newitemdrop(('srrc'),((100)*1.),((.1)*1.))
    call s__drops_tabale_newitemdrop(('ankh'),((100)*1.),((.1)*1.))
    call s__drops_tabale_newitemdrop(('mnst'),((100)*1.),((.1)*1.))
    call s__drops_tabale_newitemdrop(('woms'),((100)*1.),((.1)*1.))
    call s__drops_tabale_newitemdrop(('gomn'),((100)*1.),((.1)*1.))
    call s__drops_tabale_newitemdrop(('pnvu'),((100)*1.),((.1)*1.))
    call yqv('h00T',0,$2EE0)
    call yqv('n01J',0,$4E20)
    call yqv('h014',0,$61A8)
    call yqv('h00Y',0,$7530)
    call yqv('h010',0,$9C40)
    call yqv('n038',0,$C350)
    call yqv('n03N',0,$EA60)
    call yqv('orai',5000,$AFC8)
    call yqv('oshm',$2710,80000)
    call yqv('n02Z',$30D4,$1ADB0)
    call yqv('n02L',$3A98,$1E848)
    call yqv('nnsw',$3A98,$1FBD0)
    call yqv('hmpr',$61A8,$249F0)
    call yqv('h018',$61A8,$249F0)
    call yqv('n01Y',$61A8,$249F0)
    call yqv('n02M',$61A8,$249F0)
    call yqv('n02N',$61A8,$249F0)
    call yqv('n02Y',$9C40,$2BF20)
    call yqv('n033',$9C40,$2BF20)
    call yqv('n02V',$9C40,$2BF20)
    call yqv('hpa3',$9C40,$2BF20)
    call yqv('h01K',$C350,$30D40)
    call yqv('n030',$C350,$30D40)
    call yqv('nzom',$C350,$30D40)
    call yqv('n035',$C350,$30D40)
    call yqv('n03B',$EA60,$493E0)
    call yqv('h00V',5000,$3A98)
    call yqv('n022',6000,$4650)
    call yqv('h01B',6000,$61A8)
    call yqv('n01W',6000,$61A8)
    call yqv('n01K',6000,$61A8)
    call yqv('n01O',6000,$61A8)
    call yqv('n01N',6000,$61A8)
    call yqv('n023',8000,$88B8)
    call yqv('n038',$2710,$C350)
    call yqv('h01F',$2710,$C350)
    call yqv('n03M',$2710,$4E20)
    call ypv('n005',0,$B)
    call ypv('n006',0,$B)
    call ypv('n008',3,25)
    call s__drops_tabale_unitadddroptiem(ur,('I00I'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00Q'),((5)*1.),true)
    call ypv('n004',0,$C)
    call ypv('n007',0,$C)
    call ypv('n009',5,50)
    call s__drops_tabale_unitadddroptiem(ur,('I00K'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00P'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00S'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00R'),((5)*1.),true)
    call ypv('n00A',3,30)
    call s__drops_tabale_unitadddroptiem(ur,('rre2'),(($A)*1.),true)
    call ypv('n00C',3,18)
    call s__drops_tabale_unitadddroptiem(ur,('I00T'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01F'),((5)*1.),true)
    call ypv('n00E',5,18)
    call s__drops_tabale_unitadddroptiem(ur,('I01B'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01C'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01D'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01E'),((5)*1.),true)
    call ypv('n00F',8,25)
    call s__drops_tabale_unitadddroptiem(ur,('I00U'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01G'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01K'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01J'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01J'),((9)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01H'),((9)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('lure'),((5)*1.),true)
    call ypv('n00D',2,$96)
    call s__drops_tabale_unitadddroptiem(ur,('I0AK'),((25)*1.),true)
    call ypv('n00G',4,25)
    call s__drops_tabale_unitadddroptiem(ur,('I01P'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01Q'),((5)*1.),true)
    call ypv('n00L',4,27)
    call s__drops_tabale_unitadddroptiem(ur,('I01L'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01M'),((5)*1.),true)
    call ypv('n00K',4,27)
    call s__drops_tabale_unitadddroptiem(ur,('I01N'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01O'),((5)*1.),true)
    call ypv('n00N',6,55)
    call s__drops_tabale_unitadddroptiem(ur,('I01X'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01Y'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I026'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I02F'),((5)*1.),true)
    call ypv('n00H',3,27)
    call s__drops_tabale_unitadddroptiem(ur,('I01V'),((5)*1.),true)
    call ypv('n00I',3,27)
    call s__drops_tabale_unitadddroptiem(ur,('I01W'),((5)*1.),true)
    call ypv('n00J',2,27)
    call s__drops_tabale_unitadddroptiem(ur,('I01R'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01S'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01T'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01U'),((5)*1.),true)
    call ypv('n049',2,27)
    call s__drops_tabale_unitadddroptiem(ur,('I0GQ'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GO'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GM'),((5)*1.),true)
    call ypv('n047',2,27)
    call s__drops_tabale_unitadddroptiem(ur,('I0GN'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GP'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GR'),((5)*1.),true)
    call ypv('n00M',7,55)
    call s__drops_tabale_unitadddroptiem(ur,('I01X'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I01Y'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I026'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I02F'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09C'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GA'),(($A)*1.),true)
    call ypv('n00O',7,96)
    call s__drops_tabale_unitadddroptiem(ur,('I02K'),(($C)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I02J'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I02G'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I02H'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I02I'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('hbth'),((5)*1.),true)
    call ypv('n048',7,100)
    call s__drops_tabale_unitadddroptiem(ur,('I0GH'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GB'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GI'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GL'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GC'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GG'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GF'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GJ'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GK'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GD'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GE'),((8)*1.),true)
    call ypv('n00Y',1,30)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),((1.1)*1.),true)
    call ypv('n00X',1,30)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),((1.1)*1.),true)
    call ypv('n00Z',1,30)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),((1.1)*1.),true)
    call ypv('n010',1,30)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),((1.1)*1.),true)
    call ypv('n011',1,30)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),((1.1)*1.),true)
    call ypv('n012',3,30)
    call s__drops_tabale_unitadddroptiem(ur,('I03C'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03D'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),((1.1)*1.),true)
    call ypv('n013',3,30)
    call s__drops_tabale_unitadddroptiem(ur,('I03B'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I039'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),((1.1)*1.),true)
    call ypv('n015',4,$F0)
    call s__drops_tabale_unitadddroptiem(ur,('I02L'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I02M'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I037'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I038'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03A'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09B'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('vddl'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GS'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('srrc'),(($A)*1.),true)
    call ypv('n018',2,30)
    call s__drops_tabale_unitadddroptiem(ur,('ankh'),((1.1)*1.),true)
    call ypv('n019',2,30)
    call s__drops_tabale_unitadddroptiem(ur,('ankh'),((1.1)*1.),true)
    call ypv('n01C',4,40)
    call s__drops_tabale_unitadddroptiem(ur,('I03I'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03F'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ankh'),((1.1)*1.),true)
    call ypv('n01E',7,90)
    call s__drops_tabale_unitadddroptiem(ur,('I03J'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03K'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03E'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03H'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09H'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GT'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rnsp'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ankh'),((1.5)*1.),true)
    call ypv('n01B',5,40)
    call s__drops_tabale_unitadddroptiem(ur,('I02Y'),((18)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03L'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03M'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03G'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ankh'),((1.25)*1.),true)
    call ypv('n01D',2,$F)
    call s__drops_tabale_unitadddroptiem(ur,('I030'),((100)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I031'),((50)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08O'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ankh'),((5)*1.),true)
    call ypv('n01F',3,30)
    call s__drops_tabale_unitadddroptiem(ur,('I05O'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05M'),((4)*1.),true)
    call ypv('n01G',3,30)
    call s__drops_tabale_unitadddroptiem(ur,('I05J'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I054'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GX'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('gomn'),((1.35)*1.),true)
    call ypv('n01H',3,30)
    call s__drops_tabale_unitadddroptiem(ur,('I03W'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I055'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09I'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('gomn'),((1.3)*1.),true)
    call ypv('n01I',4,30)
    call s__drops_tabale_unitadddroptiem(ur,('I03X'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05E'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05N'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('gomn'),((1.25)*1.),true)
    call ypv('e01B',5,30)
    call s__drops_tabale_unitadddroptiem(ur,('I03S'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09K'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03R'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GU'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.035)*1.),true)
    call ypv('h00P',2,30)
    call s__drops_tabale_unitadddroptiem(ur,('I03T'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.035)*1.),true)
    call ypv('h00R',4,30)
    call s__drops_tabale_unitadddroptiem(ur,('I03N'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03O'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03U'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.05)*1.),true)
    call ypv('h00S',4,120)
    call s__drops_tabale_unitadddroptiem(ur,('I035'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03Q'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03V'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I03P'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.1)*1.),true)
    call ypv('h01L',1,20)
    call s__drops_tabale_unitadddroptiem(ur,('I0A1'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A2'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.08)*1.),true)
    call ypv('h01M',1,20)
    call s__drops_tabale_unitadddroptiem(ur,('I0A3'),((2.5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A4'),((2.5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.08)*1.),true)
    call ypv('n036',1,90)
    call s__drops_tabale_unitadddroptiem(ur,('sor2'),((1.05)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.15)*1.),true)
    call ypv('n037',1,$96)
    call s__drops_tabale_unitadddroptiem(ur,('sora'),((1.05)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AB'),((1.05)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((1.15)*1.),true)
    call ypv('n038',2,600)
    call s__drops_tabale_unitadddroptiem(ur,('sor2'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('sora'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ram1'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('soul'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AA'),((7)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((40)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('wcyc'),((1.25)*1.),true)
    call ypv('n02H',1,30)
    call s__drops_tabale_unitadddroptiem(ur,('I0BW'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pnvu'),((1.12)*1.),true)
    call ypv('n02I',1,30)
    call s__drops_tabale_unitadddroptiem(ur,('I0BX'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pnvu'),((1.12)*1.),true)
    call ypv('n02J',2,35)
    call s__drops_tabale_unitadddroptiem(ur,('I0BU'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BV'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pnvu'),((1.12)*1.),true)
    call ypv('h014',5,600)
    call s__drops_tabale_unitadddroptiem(ur,('I0BL'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BM'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BN'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BP'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BO'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0H1'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BY'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BZ'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pnvu'),((40)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('gvsm'),((1.25)*1.),true)
    call ypv('n02A',6,25)
    call s__drops_tabale_unitadddroptiem(ur,('I05K'),((6)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05Q'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05P'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A1'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A2'),((2)*1.),true)
    call ypv('n02B',6,25)
    call s__drops_tabale_unitadddroptiem(ur,('I05K'),((8)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05Q'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05P'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A3'),((2.5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A4'),((2.5)*1.),true)
    
    //giant golem
    call ypv('h00Y',3,600)
    call s__drops_tabale_unitadddroptiem(ur,('I0A5'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A6'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A7'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A8'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0A9'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0H0'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AA'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AB'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('dtsb'),((0.25)*1.),true)
    
    call ypv('h00T',5,600)
    call s__drops_tabale_unitadddroptiem(ur,('I03Y'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I044'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I042'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I045'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I040'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I041'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I046'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I047'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I043'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09J'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GV'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('sor1'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnst'),((30)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('sand'),((0.25)*1.),true)
    
    //ragnaros
    call ypv('n01J',$A,900)
    call s__drops_tabale_unitadddroptiem(ur,('I048'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05C'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05B'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05D'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I049'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I059'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05F'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05G'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05A'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09L'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GW'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('dsum'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('gomn'),((40)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rhe2'),((50)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('nspi'),((0.25)*1.),true)
    
    //hydra
    call ypv('n022',$C,0)
    call s__drops_tabale_unitadddroptiem(ur,('I068'),((50)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06I'),((50)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06Y'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I070'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06Z'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I071'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09F'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I074'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I072'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I075'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I076'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I073'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0GY'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('oven'),((0.25)*1.),true)
    //gatekeeper
    call ypv('h00V',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0BJ'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pams'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('amrc'),((0.25)*1.),true)
    //count 
    call ypv('h00F',4,0)
    call s__drops_tabale_unitadddroptiem(ur,('I07I'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ajen'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07D'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07C'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07E'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07F'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07H'),(($F)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('tels'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07G'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shen'),((1.25)*1.),true)
    
    call ypv('n01W',4,0)
    call s__drops_tabale_unitadddroptiem(ur,('I07O'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07M'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AY'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('cnob'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I060'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('drph'),((0.25)*1.),true)
    
    call ypv('n01K',4,0)
    call s__drops_tabale_unitadddroptiem(ur,('I07R'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09S'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07T'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07U'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I07X'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06P'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06Q'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06O'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('oli2'),((0.25)*1.),true)
    //mage lord
    call ypv('h01B',4,0)
    call s__drops_tabale_unitadddroptiem(ur,('I083'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I084'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AZ'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I062'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06F'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('lnrn'),((0.25)*1.),true)
    call ypv('n01N',4,0)
    call s__drops_tabale_unitadddroptiem(ur,('I085'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I087'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I088'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I089'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06R'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06T'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AT'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('tmmt'),((0.25)*1.),true)
    //fallen angel
    call ypv('n01O',3,0)
    call s__drops_tabale_unitadddroptiem(ur,('I086'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08C'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09O'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0C4'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06S'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06U'),(($A)*1.),true)
    //call s__drops_tabale_unitadddroptiem(ur,(1227901008),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mnsf'),((0.25)*1.),true)
    call ypv('n023',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I08D'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08R'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08E'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rhth'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0D6'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shas'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I061'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06X'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06V'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('olig'),((0.25)*1.),true)
    call ypv('h01F',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I096'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I098'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I097'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I099'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('bspd'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I067'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06K'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I061'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('stre'),((0.25)*1.),true)
    call ypv('n01Y',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('ktrm'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ches'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('dphe'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('kysn'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08K'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06W'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('wswd'),((0.25)*1.),true)
    call ypv('h010',5,900)
    call s__drops_tabale_unitadddroptiem(ur,('I06E'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08X'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06D'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AV'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('woms'),((40)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('grsl'),((1.01)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('envl'),((0.25)*1.),true)
    call ypv('n030',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('pgin'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('srtl'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ofir'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shtm'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0D2'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pres'),((0.25)*1.),true)
    call ypv('n02M',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('odef'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('afac'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rag1'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('grsl'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ccmd'),((0.25)*1.),true)
    call ypv('orai',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('pmna'),((20)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('spsh'),((20)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ciri'),((20)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mort'),((20)*1.),true)
    call ypv('oshm',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('prvt'),((20)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('hval'),((20)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('lgdh'),((20)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ssil'),((20)*1.),true)
    call ypv('n02Z',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('bfhr'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('stwa'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('blba'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shcw'),(($A)*1.),true)
    call ypv('n02L',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0BQ'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0CB'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BR'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BS'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0BT'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0C3'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0FK'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I06J'),(($A)*1.),true)
    call ypv('hmpr',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('rin1'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('kpin'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('phlt'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mcou'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('evtl'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rnec'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rwiz'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('stpg'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rugt'),((0.25)*1.),true)
    call ypv('n02N',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0CA'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0C8'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0C6'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0C7'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('vamp'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rej1'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0CD'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0HE'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shdt'),((0.25)*1.),true)
    call ypv('h02P',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0CD'),((1.2)*1.),true)
    call ypv('h02O',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('rej1'),((1.2)*1.),true)
    call ypv('h018',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0CP'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0CR'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0CG'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('crdt'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('sror'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0CJ'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0CK'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('wshs'),((0.25)*1.),true)
    call ypv('n033',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('belv'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ledg'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('crys'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('stel'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0DG'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rde1'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08P'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pomn'),((0.25)*1.),true)
    call ypv('n02Y',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('bzbf'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shwd'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05H'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0AJ'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00A'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0H2'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('mcri'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I08N'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09N'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shar'),((0.25)*1.),true)
    call ypv('n02V',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('ratc'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rat6'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ward'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('penr'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rat9'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('gsou'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('nflg'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('fgrg'),((0.25)*1.),true)
    call ypv('hpa1',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I00D'),((4)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I009'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00E'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00B'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I00C'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I09E'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('fgsk'),((0.25)*1.),true)
    call ypv('nfgl',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0DR'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0DT'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0DV'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0DS'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05V'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I05W'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('wlsd'),((0.25)*1.),true)
    //death fiend
    call ypv('h01K',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0F1'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0EY'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0EX'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0EW'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0F4'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0F3'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0ER'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0EQ'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('infs'),((0.25)*1.),true)
    //df summons
    call ypv('h01P',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0ES'),((1.2)*1.),true)
    call ypv('h01S',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0EU'),((1.2)*1.),true)
    call ypv('h01R',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0ET'),((1.2)*1.),true)
    //sealed power of destruction
    call ypv('n03B',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0DZ'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0DX'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0DY'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0E1'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0E0'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0EG'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rej3'),((0.25)*1.),true)
    //santa
    call ypv('n03M',1,$5DC)
    call s__drops_tabale_unitadddroptiem(ur,('I0FH'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0FG'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0FF'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('tpow'),((2)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0FE'),((3)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('pams'),((40)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rej2'),((0.25)*1.),true)
    //evil roots
    call ypv('n03N',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('I0FM'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0FL'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0FO'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('I0FN'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('ssan'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('tgrh'),((0.25)*1.),true)
    //lord of illusions
    call ypv('n035',1,0)
    call s__drops_tabale_unitadddroptiem(ur,('wneu'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('silk'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('tret'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('shea'),((5)*1.),true)
    //siren
    call ypv('nnsw',2,0)
    call s__drops_tabale_unitadddroptiem(ur,('ocor'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('rots'),(($A)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('frhg'),((5)*1.),true)
    call ypv('n002',2,35)
    call s__drops_tabale_unitadddroptiem(ur,('I04W'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('woms'),((1.5)*1.),true)
    call ypv('n00B',2,35)
    call s__drops_tabale_unitadddroptiem(ur,('I04W'),((5)*1.),true)
    call s__drops_tabale_unitadddroptiem(ur,('woms'),((1.8)*1.),true)
    call ypv('n02T',2,45)
    call s__drops_tabale_unitadddroptiem(ur,('I04W'),((1)*1.),true)
    call ypv('n02U',2,45)
    call s__drops_tabale_unitadddroptiem(ur,('I04W'),((1.5)*1.),true)
    call ypv('n03O',1,25)
    call ypv('n03P',1,25)
 endfunction


function Yov takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:534")
    call CreateUnit(P[$C],EF[data],XF[data],OF[data],GetRandomInt(0,359))
    call Unit_Cancel_Counter(867,(data))
endfunction


function Yrv takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:535")
    local integer dt=LoadInteger(BYHT,Ur,id)
    local integer i=s__drops_tabale_index[dt]
    set s__drops_tabale_r_a[dt]=1.
    loop
        exitwhen i==0
        set i=i-1
        call s__drops_tabale_unitadddroptiem(s___drops_tabale_r_id[s__drops_tabale_r_id[dt]+i],id,s___drops_tabale_r_v[s__drops_tabale_r_v[dt]+i],false)
    endloop
endfunction

 //drop function

 function Yiv takes integer c, real eX, real eY, boolean Yav returns nothing
    local integer du=LoadInteger(BYHT,Ur,c)
    local integer dt
    local integer d=s__drops_tabale_max[du]
    local integer q=s__drops_tabale_index[du]
    local integer mod=q-1
    local integer i
    local integer j
    local integer id
    local string s=""
    local integer array v
    local real ran
    
    if c=='n02H' then
        set i=GetRandomInt(2,3)
        loop
            set i=i-1
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",CreateUnit(P[$C],'n02K',eX+GetRandomReal(-$96,$96),eY+GetRandomReal(-$96,$96),GetRandomInt(0,359)),"chest"))
            exitwhen i==0
        endloop
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",eX,eY))
    endif
    
    set j=q
    loop
        exitwhen(j<1)
        set j=j-1
        set v[j]=j
    endloop
    
    set j=q
    loop
        exitwhen(j<1)
        set j=j-1
        set i=GetRandomInt(0,mod)
        set id=v[j]
        set v[j]=v[i]
        set v[i]=id
    endloop
    
    loop
        exitwhen(d<1 or q<1)
        set q=q-1
        set i=v[q]
        set id=s___drops_tabale_r_id[s__drops_tabale_r_id[du]+i]
        set ran=Lucky+1
        if GetRandomReal(0.,100.)<=s___drops_tabale_r_v[s__drops_tabale_r_v[du]+i]*ran then
            set d=d-1
            call CreateItemG(id,eX,eY)
            
            if HaveSavedInteger(BYHT,Ur,id)then
                
                if s=="" then
                    set s=GetObjectName(id)
                else
                    set s=s+", "+GetObjectName(id)
                endif
                
                set dt=LoadInteger(BYHT,Ur,id)
                set s__drops_tabale_r_a[dt]=1.
                set j=s__drops_tabale_index[dt]
                
                loop
                    exitwhen j==0
                    set j=j-1
                    call s__drops_tabale_unitremovedroptiem(s___drops_tabale_r_id[s__drops_tabale_r_id[dt]+j],id)
                endloop
                
                if HaveSavedReal(BYHT,(zr),id)then
                    call TimerStart(NewTimer(id),LoadReal(BYHT,(zr),id),false,function Yrv)
                endif
                call PingMinimapEx(eX,eY,5,$9B,$9B,$FF,true)
                call Ltv(Lfv(LAv("ForestBolt.mdl",eX,eY,1.25),$FF,$FF,55,$CD))
                
            elseif Yav then
                
                if s=="" then
                    set s=GetObjectName(id)
                else
                    set s=s+", "+GetObjectName(id)
                endif
                
            endif
        endif
    endloop
    
    if s!="" then
        call thv(s+" |c00ffff80dropped!|r",eX,eY,25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((eX)*1.),((eY)*1.),0)
    endif
 endfunction
 

function YVv takes nothing returns nothing
    local integer data
    local integer p
    local unit u=GetTriggerUnit()
    if IsUnitInGroup(u,h_v_Group)then
        set data=(GetUnitUserData((u)))
        set IF=GetKillingUnit()
        call s__Trig_exe((Hero_Kill_t[(GetUnitUserData((IF)))]))
        if not IsUnitIllusion(Je[data])then
            set p=GetPlayerId(GetOwningPlayer(IF))
            if MV[p]!=null and IF!=MV[p]then
                set IF=MV[p]
                call s__Trig_exe((Hero_Kill_t[(GetUnitUserData((IF)))]))
            endif
            if VF[data]then
                if HaveSavedInteger(BYHT,Wr,EF[data])then
                    call sc___prototype202_evaluate(1,IF,GetUnitX(u),GetUnitY(u),LoadInteger(BYHT,Wr,EF[data]),LoadInteger(BYHT,yr,EF[data]))
                endif
                if IsUnitDrops[data]and GetUnitState(Je[data],UNIT_STATE_MAX_LIFE)>UnitMaxLife[data]/ 2 then
                    call Yiv(EF[data],GetUnitX(u),GetUnitY(u),(IsUnitType((u),UNIT_TYPE_GIANT)))
                endif
                if HaveSavedInteger(BYHT,Yr,EF[data])then
                    call TimerStart(NewTimer(data),LoadInteger(BYHT,Yr,EF[data]),false,function Yov)
                    call Unit_App_Counter(868,(data))
                endif
                set VF[data]=false
                set IsUnitDrops[data]=false
            endif
        endif
    endif
    set u=null
endfunction


function Yev takes unit u returns boolean
    return HaveSavedBoolean(BYHT,wr,GetUnitTypeId(u))and not IsUnitIllusion(u)
endfunction

function ItemDrops___YOv takes nothing returns nothing
    if RF and(Yev(Je[le]))then
        set VF[le]=true
        set IsUnitDrops[le]=true
        set EF[le]=GetUnitTypeId(Je[le])
        set XF[le]=GetUnitX(Je[le])
        set OF[le]=GetUnitY(Je[le])
    endif
endfunction

function ItemDrops___End takes nothing returns nothing
    if VF[le]then
        set VF[le]=false
        set IsUnitDrops[le]=false
    endif
endfunction

function ItemDrops___Init2 takes nothing returns nothing
    call h4v(Condition(function ItemDrops___YOv),bR)
    call h4v(Condition(function ItemDrops___End),BR)
    call RegisterEvent(EVENT_PLAYER_UNIT_DEATH,function YVv)
endfunction

function ItemDrops___onInit takes nothing returns nothing
    set Ur=malloc()
    set wr=malloc()
    set Wr=malloc()
    set yr=malloc()
    set Yr=malloc()
    set zr=malloc()
    call ExecuteFunc("ItemDrops___Init1")
    call ExecuteFunc("ItemDrops___Init2")
endfunction


 function YHe takes integer data,integer up returns integer
    local integer id=Master[data]
    local integer p=Kc[id]
    local integer max
    local integer i
    local integer j
    local integer k
    local integer l
    local integer m//max pages
    local item MFv
    local item array SoldItem
    local unit u
    local boolean b=Isaseniorbackpack(id)
    
    if b then
        set m=3
    else
        set m=2
    endif
    
    if up==0 then
        set up=-LoadInteger(BYHT,zI[id],-1)
    endif
    
    set up=ModuloInteger(up,m)
    if up==0 then
        return 0
    endif
    
    set u = Je[data]
    set l = LoadInteger(BYHT,zI[id],-1)//curent page
    call SaveInteger(BYHT,zI[id],-1,ModuloInteger(l+up,m))//save new page
    
    //remove all items from current page
    set max=UnitInventorySize(u)
    loop
        exitwhen max==0
        set max=max-1
        set SoldItem[max] = UnitItemInSlot(u,max)
        call SetItemPosition(SoldItem[max],iA[p],VA[p])
        call SetItemVisible(SoldItem[max],false)
    endloop
    
    //remove items from next page from memory
    //and store them into var
    set i=0
    loop
        set i=i+1
        exitwhen i==m
        set max=6
        set j=i-1
        loop
            exitwhen max==0
            set max=max-1
            set SoldItem[i*6+max]=ConvertVersion(LoadInteger(BYHT2,zI[id],j*6+max))
            call RemoveSavedInteger(BYHT2,(zI[id]),j*6+max)
        endloop
    endloop
    
    set i=LoadInteger(BYHT,zI[id],-1)
    
    //prepare next page inventory
    if 0==l then//if we are leaving page 1
        if UnitRemoveAbility(u,'A086')then
            call UnitAddAbility(u,'A08T')
            if b then
                call SetUnitAbilityLevel(u,'A08T',2)
            endif
        endif
    elseif 0==i then//if we going back to page one
        if UnitRemoveAbility(u,'A08T')then
            call UnitAddAbility(u,'A086')
        endif
    endif
    
    //add items from next page
    set i=up
    set j=0
    set max=UnitInventorySize(u)
    loop
        exitwhen max==0
        set max=max-1
        set MFv=SoldItem[i*6+max]
        if MFv!=null then
            set SoldItem[i*6+max]=null
            call UnitAddItem(u,MFv)
            call UnitDropItemSlot(u,MFv,max)
        endif
    endloop
    
    //add removed items to memory
    set j=0
    set l=m-1
    loop
        set i=i+1
        if i==m then
            set i=0
        endif
        set max=6
        loop
            exitwhen max==0
            set max=max-1
            set MFv=SoldItem[i*6+max]
            if MFv!=null then
                set SoldItem[i*6+max]=null
                call SaveInteger(BYHT2,zI[id],j*6+max,GetHandleId(MFv))
            endif
        endloop
        set j=j+1
        exitwhen j==l
    endloop
    set MFv=null
    return up
 endfunction
 
 //get page ?

 function MZv takes integer data returns integer
    //if backpack has inventory (with levels) A08T
    if GetUnitAbilityLevel((Je[YI[(data)]]),'A08T')>0 then
        return YHe(YI[data],0)
    endif
    return 0
 endfunction
  
 //call backpack

 function bagstate__M2v takes nothing returns nothing
    local integer CMv=GetPlayerId(GetOwningPlayer(GetTriggerUnit()))
    local integer NNv=(GetUnitUserData((MV[CMv])))
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",GetUnitX((Je[YI[(NNv)]])),GetUnitY((Je[YI[(NNv)]]))))
    call SetUnitX((Je[YI[(NNv)]]),iA[CMv])
    call SetUnitY((Je[YI[(NNv)]]),VA[CMv])
 endfunction


 function bagstate_switchpage takes nothing returns nothing
    call YHe((GetUnitUserData((GetTriggerUnit()))),1)
 endfunction


function bagstate__i3e takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:315")
    if GetLocalPlayer()==P[NNv]then
        call StartSound(Ca)
    endif
    call DisplayTimedTextToPlayer(P[NNv],0,0,3,"|c00dbb7b7The magic free cooling time ends")
    set oK[NNv]=null
endfunction


function bagstate__i4e takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:316")
    call SetUnitNocontrol((id),false)
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0J6','B039')
    call Unit_Cancel_Counter(364,id)
endfunction

function bagstate__i5e takes unit u returns nothing
    local integer NNv=GetPlayerId(GetOwningPlayer(u))
    if UnitAlive((Je[(vK[NNv])]))and oK[NNv]==null then
        set oK[NNv]=NewTimer(NNv)
        call SetUnitNocontrol((vK[NNv]),true)
        if GetUnitAbilityLevel((Je[(vK[NNv])]),'Avul')==0 then
            call SetUnitInvulnerable((Je[(vK[NNv])]),true)
            call SetUnitInvulnerable((Je[(vK[NNv])]),false)
        endif
        call UnitAddAbilityBY((Je[(vK[NNv])]),'A0J6')
        call NewTextTagInTarget_B((Je[(vK[NNv])]),"IMMUNITY",8,$CD,$FF,$B9)
        call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",(Je[(vK[NNv])]),"origin"))
        call TimerStart(NewTimer(vK[NNv]),1,false,function bagstate__i4e)
        call TimerStart(oK[NNv],20,false,function bagstate__i3e)
        call Unit_App_Counter(365,vK[NNv])
    endif
endfunction

function bagstate__M4v takes nothing returns boolean
    local unit Cqv=MV[GetPlayerId(GetTriggerPlayer())]
    local integer u=GetUnitUserData(Cqv)
    local real x=GetUnitX(Cqv)
    local real y=GetUnitY(Cqv)
    if Is_pvp[(GetPlayerId(GetTriggerPlayer()))]then
        call bagstate__i5e(Cqv)
    elseif IsPointInRect(x,y,gg_rct_FSZJ______________000)or IsPointInRect(x,y,gg_rct_PVP_PVP_______000)then
        call NewTextTagInTarget_B(Cqv,"A mysterious power is stopping you from summoning",8,$CD,$FF,$9B)
    else
        call SetUnitX((Je[YI[(u)]]),x)
        call SetUnitY((Je[YI[(u)]]),y)
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",GetUnitX((Je[YI[(u)]])),GetUnitY((Je[YI[(u)]]))))
    endif
    set Cqv=null
    return false
endfunction


 function CreateBag takes integer NNv,integer M6v returns nothing
    local integer CMv=GetPlayerId(GetOwningPlayer(Je[(NNv)]))
    local integer M7v=StringHash(StringCase(Game_PlayerName[CMv],false))
    local integer i=0
    local integer j=0
    local real sX=iA[CMv]
    local real sY=VA[CMv]
    local item array M1v
    local boolean b=false
    if UnitAlive((Je[YI[(NNv)]]))then
        set b=Isaseniorbackpack(NNv)
        call MZv(NNv)
        set sX=GetUnitX((Je[YI[(NNv)]]))
        set sY=GetUnitY((Je[YI[(NNv)]]))
        set i=UnitInventorySize((Je[(YI[NNv])]))
        loop
            exitwhen i==0
            set i=i-1
            set M1v[j]=UnitItemInSlot((Je[(YI[NNv])]),i)
            if GetWidgetLife(M1v[j])<.405 then
                set M1v[j]=CreateItemG('brac',0,0)
            else
                call UnitRemoveItem((Je[(YI[NNv])]),M1v[j])
            endif
            set j=j+1
        endloop
        set i=GetUnitTypeId((Je[YI[(NNv)]]))
        set Sg=null
        if HaveSavedInteger(BYHT,sg,i)then
            set Sg=CreateItemG(LoadInteger(BYHT,sg,i),iA[CMv],VA[CMv])
        endif
        if Sg!=null then
            call SetItemUserData(Sg,CMv+1)
        endif
        call Ltv(Lfv(LAv("AncientExplode.mdl",sX,sY,.5),0,0,0,$FF))
        call RemoveUnitBJ((Je[YI[(NNv)]]),38)
    elseif zI[NNv]==null then
        set zI[NNv]=malloc()
    endif
    if M6v!=0 then
        set YI[NNv]=(GetUnitUserData((CreateUnit(P[CMv],M6v,sX,sY,270))))
    elseif HaveSavedInteger(BYHT,Bag_Id_root,M7v)then
        set YI[NNv]=(GetUnitUserData((CreateUnit(P[CMv],LoadInteger(BYHT,Bag_Id_root,M7v),sX,sY,270))))
    else
        set YI[NNv]=(GetUnitUserData((CreateUnit(P[CMv],'e01Z',sX,sY,270))))
    endif
    set Master[YI[NNv]]=NNv
    set zI[YI[NNv]]=zI[NNv]
    call SetUnitNotSeckill((YI[NNv]),true)
    set M6v=GetUnitTypeId((Je[YI[(NNv)]]))
    if M6v=='e01O' then
        call SetUnitVertexColor((Je[YI[(NNv)]]),$CD,$9B,$CD,125)
    elseif M6v=='e023' then
        call sc___prototype111_evaluate(5,(Je[YI[(NNv)]]))
    endif
    if HaveSavedInteger(BYHT,sg,M6v)or HaveSavedBoolean(BYHT,(xA),M7v)then
        call UnitAddAbility((Je[YI[(NNv)]]),'A0LB')
    endif
    if HaveSavedString(BYHT,(Bag_wing),2*M7v)then
        call UnitAddAbility((Je[YI[(NNv)]]),'A0A5')
    endif
    if not Isaseniorbackpack(NNv)and b then
        set i=5
        loop
            if HaveSavedInteger(BYHT2,(zI[NNv]),i)then
                set M1v[7]=ConvertVersion(LoadInteger(BYHT2,(zI[NNv]),i))
                call RemoveSavedInteger(BYHT2,(zI[NNv]),i)
                if b then
                    set b=false
                    if GetLocalPlayer()==P[CMv]then
                        call PingMinimapEx(iA[CMv],VA[CMv],3,$FF,$FF,$80,true)
                    endif
                endif
                call DisplayTimedTextToPlayer(P[CMv],0,0,5,"|c00ffff80"+GetItemName(M1v[7])+" returned to the warehouse")
                call SetItemVisible(M1v[7],true)
            endif
            set i=i+1
            exitwhen i==$C
        endloop
        set b=true
        set M1v[7]=null
    endif
    if j>0 then
        loop
            exitwhen j==0
            set j=j-1
            call UnitAddItem((Je[YI[(NNv)]]),M1v[j])
            set M1v[j]=null
        endloop
        set i=UnitInventorySize((Je[YI[(NNv)]]))
        loop
            exitwhen i==0
            set i=i-1
            if GetItemTypeIdG(UnitItemInSlot((Je[YI[(NNv)]]),i))=='brac' then
                call RemoveItemG(UnitItemInSlot((Je[YI[(NNv)]]),i))
            endif
        endloop
        if Sg!=null then
            set i=UnitInventorySize((Je[YI[(NNv)]]))
            loop
                exitwhen i==0
                set i=i-1
                if UnitItemInSlot((Je[YI[(NNv)]]),i)==null then
                    call UnitAddItem((Je[YI[(NNv)]]),Sg)
                    set Sg=null
                    exitwhen true
                endif
            endloop
            if Sg!=null then
                set b=Isaseniorbackpack(NNv)
                if b then
                    set i=$C
                else
                    set i=5
                endif
                loop
                    exitwhen i==0
                    set i=i-1
                    if not HaveSavedInteger(BYHT2,(zI[NNv]),i)then
                        call SaveInteger(BYHT2,zI[NNv],i,GetHandleId(Sg))
                        set Sg=null
                        exitwhen true
                    endif
                endloop
                if Sg!=null then
                    call DisplayTimedTextToPlayer(P[CMv],0,0,5,"|c00ffff80"+GetItemName(Sg)+" token returned to the warehouse")
                    set Sg=null
                endif
            endif
        endif
    endif
 endfunction


function bagstate__M8v takes string n,integer i returns nothing
    local integer M9v=StringHash(StringCase(n,false))
    call SaveInteger(BYHT,Bag_Id_root,M9v,i)
    call SaveBoolean(BYHT,(Bag_Issenior),M9v,true)
endfunction

function bagstate__pvv takes string n,integer i returns nothing
    call bagstate__M8v(n,i)
    call SaveBoolean(BYHT,(xA),StringHash(StringCase(n,false)),true)
endfunction

function bagstate__pev takes string n,string s,string a returns nothing
    local integer M9v=StringHash(StringCase(n,false))
    call SaveStr(BYHT,(Bag_wing),2*M9v,s)
    call SaveStr(BYHT,(Bag_wing),2*M9v+1,a)
endfunction

function bagstate__pxv takes string n returns nothing
    call SaveBoolean(BYHT,(Bag_Issenior),StringHash(StringCase(n,false)),true)
endfunction

function bagstate__pov takes nothing returns boolean
    local integer data=GetUnitUserData(GetTriggerUnit())
    local integer i=6
    local integer j=0
    local integer itemid
    local item array M1v
    local real x
    local real y
    local real a
    if zI[data]==null then
        call IssueUnitStop_DisplayText(GetTriggerUnit(),"Wow, I'm going to be born!")
        return false
    endif
    set EA=malloc()
    call SaveBoolean(BYHT,EA,'I04W',true)
    call SaveBoolean(BYHT,EA,'I04U',true)
    call SaveBoolean(BYHT,EA,'I04V',true)
    call SaveBoolean(BYHT,EA,'I04X',true)
    call SaveBoolean(BYHT,EA,'I04Y',true)
    call SaveBoolean(BYHT,EA,'I019',true)
    call SaveBoolean(BYHT,EA,'I01A',true)
    call SaveBoolean(BYHT,EA,'I02Y',true)
    call SaveBoolean(BYHT,EA,'I035',true)
    call SaveBoolean(BYHT,EA,'I0DQ',true)
    loop
        set i=i-1
        if HaveSavedInteger(BYHT2,(zI[data]),i+6)then
            set M1v[j]=ConvertVersion(LoadInteger(BYHT2,(zI[data]),i+6))
            set itemid=GetItemTypeIdG(M1v[j])
            if HaveSavedBoolean(BYHT,EA,itemid)then
                set j=j+1
                call RemoveSavedInteger(BYHT2,(zI[data]),i+6)
            endif
        endif
        if HaveSavedInteger(BYHT2,(zI[data]),i)then
            set M1v[j]=ConvertVersion(LoadInteger(BYHT2,(zI[data]),i))
            set itemid=GetItemTypeIdG(M1v[j])
            if HaveSavedBoolean(BYHT,EA,itemid)then
                set j=j+1
                call RemoveSavedInteger(BYHT2,(zI[data]),i)
            endif
        endif
        set M1v[j]=UnitItemInSlot(GetTriggerUnit(),i)
        if UnitItemInSlot(GetTriggerUnit(),i)!=null then
            set itemid=GetItemTypeIdG(M1v[j])
            if HaveSavedBoolean(BYHT,EA,itemid)then
                call UnitRemoveItem(GetTriggerUnit(),M1v[j])
                set j=j+1
            endif
        endif
        exitwhen i==0
    endloop
    call free(EA)
    set M1v[j]=null
    if j>0 then
        set x=GetUnitX(GetTriggerUnit())
        set y=GetUnitY(GetTriggerUnit())
        set a=Lx/ j
        set i=32+32*j/ $A
        loop
            set j=j-1
            if a>=Lx then
                call SetItemPosition(M1v[j],x,y)
            else
                call SetItemPosition(M1v[j],x+i*Cos(j*a),y+i*Sin(j*a))
            endif
            set M1v[j]=null
            exitwhen j==0
        endloop
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Polymorph\\PolyMorphTarget.mdl",x,y))
    else
        call IssueUnitStop_DisplayText(GetTriggerUnit(),"Only after the powder into the backpack to experience this service")
    endif
    return false
endfunction

function bagstate__prv takes nothing returns boolean
    local item tI=GetFilterItem()
    local integer i
    local integer itemid
    local integer id
    local integer data
    if(Pow(GetItemX(tI)-IA,2)+Pow(GetItemY(tI)-AA,2))<(300*300)then
        set itemid=GetItemTypeIdG(tI)
        set id=LoadInteger(BYHT,EA,itemid)
        if id>0 then
            if XA[id]!=null or OA[0]>0 then
                if XA[id]==null then
                    set OA[0]=OA[0]-1
                    if LoadBoolean(BYHT,Item_save_Charges,itemid)then
                        set data=GetHandleId(tI)*$A
                        if HaveSavedInteger(BYHT,Item_save_Charges,data)==false then
                            call SaveInteger(BYHT,Item_save_Charges,data,GetItemChargesG(tI))
                        endif
                    endif
                    set XA[id]=tI
                    set tI=null
                    if(LoadInteger(BYHT,EA,OA[0]))<6 then
                        call UnitAddItem((Je[YI[(RA)]]),XA[id])
                    else
                        call SaveInteger(BYHT2,(zI[RA]),LoadInteger(BYHT,EA,OA[0])-6,GetHandleId(XA[id]))
                        call SetItemPosition(XA[id],iA[Kc[(RA)]],VA[Kc[(RA)]])
                        call SetItemVisible(XA[id],false)
                    endif
                else
                    set OA[id]=OA[id]+GetItemChargesG(tI)
                    if LoadBoolean(BYHT,Item_save_Charges,itemid)then
                        call ExtendsItemChargesG(XA[id],tI)
                    endif
                endif
                if tI!=null then
                    call RemoveItemG(tI)
                endif
            endif
        endif
    endif
    set tI=null
    return false
endfunction

function bagstate__piv takes nothing returns boolean
    local item tI
    local rect MXv
    local boolean pav
    local integer i
    local integer id
    set RA=(GetUnitUserData((MV[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))])))
    set EA=malloc()
    call SaveInteger(BYHT,EA,'I019',1)
    call SaveInteger(BYHT,EA,'I01A',2)
    call SaveInteger(BYHT,EA,'I02Y',3)
    call SaveInteger(BYHT,EA,'I035',4)
    call SaveInteger(BYHT,EA,'I04Y',5)
    call SaveInteger(BYHT,EA,'I04X',6)
    call SaveInteger(BYHT,EA,'I04W',7)
    call SaveInteger(BYHT,EA,'I04V',8)
    call SaveInteger(BYHT,EA,'I04U',9)
    call SaveInteger(BYHT,EA,'I030',$A)
    call SaveInteger(BYHT,EA,'I031',$B)
    call SaveInteger(BYHT,EA,'I0DQ',$C)
    set OA[0]=0
    set IA=GetUnitX((Je[YI[(RA)]]))
    set AA=GetUnitY((Je[YI[(RA)]]))
    set pav=Isaseniorbackpack(RA)or GetUnitAbilityLevel((Je[YI[(RA)]]),'A08T')>0
    set MXv=Rect(IA-300,AA-300,IA+300,AA+300)
    if Isaseniorbackpack(RA)then
        set i=$C
    elseif GetUnitAbilityLevel((Je[YI[(RA)]]),'A08T')>0 then
        set i=6
    else
        set i=5
    endif
    set OA[8191]=i
    loop
        set i=i-1
        set tI=ConvertVersion(LoadInteger(BYHT2,(zI[RA]),i))
        if tI==null then
            call SaveInteger(BYHT,EA,OA[0],i+6)
            set OA[0]=OA[0]+1
        else
            set id=LoadInteger(BYHT,EA,GetItemTypeIdG(tI))
            if id!=0 and XA[id]==null then
                set XA[id]=tI
            endif
        endif
        exitwhen i==0
    endloop
    set i=UnitInventorySize((Je[YI[(RA)]]))
    loop
        set i=i-1
        set tI=UnitItemInSlot((Je[YI[(RA)]]),i)
        if tI==null then
            call SaveInteger(BYHT,EA,OA[0],i)
            set OA[0]=OA[0]+1
        else
            set id=LoadInteger(BYHT,EA,GetItemTypeIdG(tI))
            if id!=0 and XA[id]==null then
                set XA[id]=tI
            endif
        endif
        exitwhen i==0
    endloop
    call EnumItemsInRect(MXv,Filter(function bagstate__prv),null)
    call RemoveRect(MXv)
    loop
        set i=i+1
        if XA[i]!=null then
            call SetItemChargesG(XA[i],GetItemChargesG(XA[i])+OA[i])
            set XA[i]=null
        endif
        set OA[i]=0
        exitwhen i==$C
    endloop
    call Ltv(LAv("Epicenter.mdx",IA,AA,1.25))
    call free(EA)
    set MXv=null
    set tI=null
    return false
endfunction

function bagstate__pnv takes nothing returns nothing
    local trigger gzv=CreateTrigger()
    local integer i=8
    local real x=GetRectCenterX(gg_rct_BBMD_______1_003)
    local real y=GetRectCenterY(gg_rct_BBMD_______1_003)
    local real r=512
    set iA[0]=x
    set VA[0]=y
    set iA[1]=x+r
    set VA[1]=y
    set iA[2]=x+r*2
    set VA[2]=y
    set iA[3]=x
    set VA[3]=y-r
    set iA[4]=x+r
    set VA[4]=y-r
    set iA[5]=x+r*2
    set VA[5]=y-r
    set iA[6]=x
    set VA[6]=y-r*2
    set iA[7]=x+r
    set VA[7]=y-r*2
    set Bag_Id_root=malloc()
    set Bag_Issenior=malloc()
    set Bag_wing=malloc()
    set xA=malloc()
    call bagstate__M8v("冰之玄月",'n03K')
    call bagstate__pev("冰之玄月","JDY.mdx","chest")
    call SaveBoolean(BYHT,(Bag_Issenior),StringHash(StringCase(("冰之玄月"),false)),true)
    call bagstate__pvv("夏洛提亚",'e029')
    call bagstate__pvv("找唐林",'n03K')
    call bagstate__pvv("伤心的蜡",'e00O')
    call bagstate__pvv("月坂",'e02E')
    call bagstate__pev("夏洛提亚","-amateras-.mdl","origin")
    call bagstate__pev("BCSG","s_holymagicprojectile.mdx","hand right")
    call bagstate__pev("冰牙丶","deathseal.mdx","origin")
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerEvent(gzv,P[i],EVENT_PLAYER_END_CINEMATIC)
        endif
        exitwhen i==0
    endloop
    call RegisterSpellEffectEvent('A091',function bagstate__M2v)
    call RegisterSpellEffectEvent('A085',function bagstate_switchpage)
    call RegisterSpellEffectEvent('A0H1',function bagstate__pov)
    call RegisterSpellEffectEvent('A0LB',function bagstate__piv)
    call TriggerAddCondition(gzv,Filter(function bagstate__M4v))
    if i==0 then
        if ReloadGameCachesFromDisk()then
            call EndGame(false)
        else
            call Preloader("BagSwap.mdx")
        endif
    endif
    set gzv=null
endfunction

function bagstate__Zxv takes nothing returns nothing
    local integer itemid=GetItemTypeIdG(GetManipulatedItem())
    if HaveSavedInteger(BYHT,sg,itemid)then
        call CreateBag((GetUnitUserData((GetTriggerUnit()))),LoadInteger(BYHT,sg,itemid))
    endif
endfunction

function bagstate__Zov takes nothing returns nothing
    call CreateBag((GetUnitUserData((MV[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))]))),0)
endfunction

function bagstate__Zrv takes integer itemid,integer Cjv returns nothing
    call SaveInteger(BYHT,sg,itemid,Cjv)
    call SaveInteger(BYHT,sg,Cjv,itemid)
endfunction

function bagstate__Ziv takes nothing returns nothing
    set sg=malloc()
    call bagstate__Zrv('I034','e00B')
    call bagstate__Zrv('I02E','e00N')
    call bagstate__Zrv('I02S','e00K')
    call bagstate__Zrv('I02T','e00U')
    call bagstate__Zrv('I033','e00W')
    call bagstate__Zrv('shdt','e01I')
    call bagstate__Zrv('tmmt','e01J')
    call bagstate__Zrv('oli2','e01K')
    call bagstate__Zrv('lnrn','e01L')
    call bagstate__Zrv('amrc','e01M')
    call bagstate__Zrv('shen','e01N')
    call bagstate__Zrv('ccmd','e01O')
    call bagstate__Zrv('dtsb','e01P')
    call bagstate__Zrv('olig','e01Q')
    call bagstate__Zrv('stre','e01R')
    call bagstate__Zrv('envl','e01S')
    call bagstate__Zrv('drph','e01T')
    call bagstate__Zrv('gvsm','e01U')
    call bagstate__Zrv('rugt','e01V')
    call bagstate__Zrv('mnsf','e01W')
    call bagstate__Zrv('oven','e01X')
    call bagstate__Zrv('nspi','e01Y')
    call bagstate__Zrv('wswd','e020')
    call bagstate__Zrv('wshs','e021')
    call bagstate__Zrv('fgrg','e022')
    call bagstate__Zrv('sand','e023')
    call bagstate__Zrv('shar','e024')
    call bagstate__Zrv('pomn','e025')
    call bagstate__Zrv('I036','e028')
    call bagstate__Zrv('I06C','e029')
    call bagstate__Zrv('I09R','e02B')
    call bagstate__Zrv('I02U','e02D')
    call bagstate__Zrv('I02V','e02E')
    call bagstate__Zrv('I02W','e02F')
    call bagstate__Zrv('I02X','e02L')
    call bagstate__Zrv('I02Z','e02K')
    call bagstate__Zrv('pres','e02X')
    call bagstate__Zrv('wcyc','e02Y')
    call bagstate__Zrv('infs','e02Z')
    call bagstate__Zrv('rej2','e032')
    call bagstate__Zrv('I032','n03K')
    call bagstate__Zrv('rej3','e03P')
    call bagstate__Zrv('fgsk','e03Q')
    call bagstate__Zrv('wlsd','e03S')
    call bagstate__Zrv('tgrh','e03R')
    call TriggerAddCondition(alloc__GX[(TRIGGER_USE)],(Condition((function bagstate__Zxv))))
    call RegisterSpellEffectEvent('A096',function bagstate__Zov)
endfunction

function bagstate__onInit takes nothing returns nothing
    call bagstate__pnv()
    call bagstate__Ziv()
endfunction

function DamageHiddenAttack takes unit s,unit t,real d,boolean a,attacktype aT,damagetype dT returns nothing
    set FF=false
    call UnitDamageTarget(s,t,d,false,a,aT,dT,null)
    set FF=true
endfunction

function damage___GetAttackDamageRate takes unit target,real amount returns real
    local trigger trig=CreateTrigger()
    local real life=GetWidgetLife(target)
    local boolean b=GetUnitState(target,UNIT_STATE_MAX_LIFE)<500
    call TriggerRegisterUnitEvent(trig,target,ConvertUnitEvent(52))
    call TriggerAddCondition(trig,Condition(function GetSpellDamage_func))
    set GetSpellDamageId=false
    set SpellDamage=0
    if b then
        call UnitAddAbility(target,'A090')
    endif
    if life<500 then
        call SetWidgetLife(target,500)
    endif
    if IsUnitType(target,UNIT_TYPE_ETHEREAL)then
        call DamageHiddenAttack(target,target,100,true,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_NORMAL)
    else
        call DamageHiddenAttack(target,target,100,true,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL)
    endif
    if b then
        call UnitRemoveAbility(target,'A090')
    endif
    call SetWidgetLife(target,life)
    if SpellDamage>0 then
        set amount=amount/ SpellDamage*100.
    else
        set amount=amount*100
    endif
    call DestroyTrigger(trig)
    set trig=null
    return amount
endfunction

function Dtv takes real Njv,real DTv returns real
    if DTv>=.0 then
        return Njv/(1.-((DTv*.02)/(1.+.02*DTv)))
    else
        return Njv/(2.-Pow(.98,-DTv))
    endif
endfunction

function Yqv takes real CWv returns nothing
    set KF[HF]=KF[HF]-CWv
endfunction

function DamageAmplify takes real CWv returns nothing
    if CWv>0 then
        if DAK_Adef[HF]then
            set KF[HF]=KF[HF]-(1.-GetUnitAdef((pF)))*CWv
        else
            set KF[HF]=KF[HF]-CWv
        endif
    endif
endfunction

function DamageAmplifyDis takes real CWv,real bav,string C4v returns nothing
    if .0023*bav>lF[HF]then
        set lF[HF]=.0023*bav
        set LF[HF]=C4v
    endif
    call DamageAmplify(CWv)
endfunction

function DamageMinus takes real CWv returns nothing
    if CWv>0 then
        set KF[HF]=KF[HF]+CWv
    endif
endfunction

function DamageRemove takes nothing returns nothing
    set KF[HF]=PF+1000000.
endfunction

function UnitDamageTargetBY takes unit C_v,unit to,real CWv,boolean isatk,boolean isdirect,boolean isfujia,boolean ismultistage,attacktype aT,damagetype dT,real bav,string C4v returns nothing
    set HF=HF+1
    set DAK_WHICH[HF]=C_v
    set DAK_TARGET[HF]=to
    set DAK_AMOUNT[HF]=CWv
    set DAK_ACTYPE[HF]=aT
    set DAK_DGTYPE[HF]=dT
    set JF[HF]=isatk
    set kF[HF]=isdirect
    set DAK_FuJia[HF]=isfujia
    set DAK_Multistage[HF]=ismultistage
    set lF[HF]=.0023*bav
    set LF[HF]=C4v
    call TriggerEvaluate(Damage_Xgv_v)
    set HF=HF-1
endfunction

function UnitDamageTargetBY_2 takes unit s,unit t,real d,boolean dB,attacktype aT,damagetype dT,real bav,string C4v returns nothing
    call UnitDamageTargetBY(s,t,d,false,dB,false,false,aT,dT,bav,C4v)
endfunction

function UnitDamageTargetBY_3 takes unit s,unit t,real d,boolean dB,attacktype aT,damagetype dT returns nothing
    call UnitDamageTargetBY(s,t,d,false,dB,false,false,aT,dT,.0,"")
endfunction

function UnitDamageTargetBY_fujia takes unit s,unit t,real d returns nothing
    call UnitDamageTargetBY(s,t,d,false,false,true,false,DAK_ACTYPE[HF],DAK_DGTYPE[HF],.0,"")
endfunction

function UnitDamageTargetBY_fujia2 takes unit s,unit t,real d,attacktype aT,damagetype dT returns nothing
    call UnitDamageTargetBY(s,t,d,false,false,true,false,aT,dT,.0,"")
endfunction

function UnitDamageTargetBY_duoduan takes unit s,unit t,real d,attacktype aT,damagetype dT returns nothing
    call UnitDamageTargetBY(s,t,d,true,false,false,true,aT,dT,.0,"")
endfunction

function UnitDamageTargetBY_MAGICNotDis takes unit s,unit t,real d returns nothing
    call UnitDamageTargetBY((s),(t),((d)*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
endfunction

function UnitDamageTargetBY_MAGICNotRanged takes unit s,unit t,real d returns nothing
    call UnitDamageTargetBY((s),(t),((d)*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
endfunction

function UnitDamageTargetBY_UniversalNotDis takes unit s,unit t,real d returns nothing
    call UnitDamageTargetBY((s),(t),((d)*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),.0,"")
endfunction

function UnitDamageTargetBY_NORMAL takes unit s,unit t,real d,boolean dB,damagetype dt,real bav,string C4v returns nothing
    call UnitDamageTargetBY((s),(t),((d)*1.),false,(dB),false,false,(ATTACK_TYPE_NORMAL),(dt),((bav)*1.),(C4v))
endfunction

function UnitDamageTargetBY_MAGIC takes unit s,unit t,real d,boolean dB,real bav,string C4v returns nothing
    call UnitDamageTargetBY((s),(t),((d)*1.),false,(dB),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((bav)*1.),(C4v))
endfunction

function UnitDamageTargetBY_Universal takes unit s,unit t,real d,real bav,string C4v returns nothing
    call UnitDamageTargetBY((s),(t),((d)*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((bav)*1.),(C4v))
endfunction

function IsDamageOfFujia takes nothing returns boolean
    return JF[HF]
endfunction

function IsDamageOfattack takes nothing returns boolean
    return JF[HF]
endfunction

function IsAttackOfMultistage takes nothing returns boolean
    return DAK_Multistage[HF]
endfunction

function IsDamageTypeOfUniversal takes nothing returns boolean
    return DAK_DGTYPE[HF]==DAMAGE_TYPE_UNIVERSAL
endfunction

function IsDamageTypeOfMagic takes nothing returns boolean
    return DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC
endfunction

function GetOriginalDamage takes nothing returns real
    return DAK_AMOUNT[HF]
endfunction

function GetDamage takes nothing returns real
    if PF<KF[HF]then
        return .0
    endif
    return PF-KF[HF]
endfunction

function GetDamageSource takes nothing returns unit
    return mF
endfunction

function GetDamageSourceId takes nothing returns integer
    return pF_v
endfunction

function GetAttackedUnit takes nothing returns unit
    return MF
endfunction

function GetAttackedUnitId takes nothing returns integer
    return pF
endfunction

function damage___Damage_Y5v takes nothing returns nothing
    call DestroyTrigger(widget_Trig)
    call UnitRemoveAbility(widget_Target,'A0A3')
    call SetWidgetLife(widget_Target,widget_HP)
    set widget_Trig=null
endfunction

function damage___Damage_Y6v_2 takes nothing returns nothing
    local integer Y7v
    local integer id
    set Y7v=GetUnitTypeId(mF)
    set tF=(MV[GetPlayerId(GetOwningPlayer(Je[(pF_v)]))])
    set id=GetUnitUserData(tF)
    set TF=(1.+Unit_MATK[id])*(1.-GetUnitMdef((pF)))
    if(IsUnitType((MF),UNIT_TYPE_GIANT))then
        set TF=.4*TF
    endif
    if Y7v=='nlv1' or Y7v=='osw1' then
        call DamageAmplify(TF*Unit_Fire_Damage[id]*2*GetHeroState3(tF,true))
    elseif Y7v=='n01X' then
        call DamageAmplify(TF*1.25*GetHeroState3(tF,true))
    elseif Y7v=='h00A' or Y7v=='h00B' or Y7v=='h00C' then
        if GetUnitAbilityLevel(mF,'B00S')==0 then
            call DamageAmplify(TF*1.25*GetHeroState3(tF,true))
        elseif GetRandomInt(1,8)==1 then
            call DamageAmplify(TF*$A*GetHeroState3(tF,true))
            call sc___prototype177_evaluate(1,mF,MF,GetDamage())
        else
            call DamageAmplify(TF*2.5*GetHeroState3(tF,true))
        endif
    elseif Y7v=='hwat' or Y7v=='osw2' then
        call DamageAmplify(TF*.425*GetHeroState3(tF,true))
    elseif Y7v=='hmil' or Y7v=='hfoo' or Y7v=='h01A' then
        call DamageAmplify(TF*GetHeroState3(tF,true))
    elseif Y7v=='hwt3' then
        call DamageAmplify(TF*.25*GetHeroState3(tF,true))
    elseif Y7v=='hphx' or Y7v=='h00L' then
        call DamageAmplify(TF*2*GetHeroState3(tF,true))
    elseif Y7v=='h01O' then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",MF,"chest"))
        call DamageAmplify(TF*2.5*GetHeroState3(tF,true))
    elseif Y7v=='h01J' then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",MF,"chest"))
        call DamageAmplify(TF*3*GetHeroState3(tF,true))
    elseif Y7v=='h00K' or Y7v=='h012' then
        call DamageAmplify(TF*2*GetHeroState3(tF,true))
    elseif Y7v=='hwt2' or Y7v=='osw3' then
        call DamageAmplify(TF*1.5*GetHeroState3(tF,true))
    elseif Y7v=='h013' then
        call DamageAmplify(TF*2.5*GetHeroState3(tF,true)*(1+.1*iMv[pF_v]))
    elseif Y7v=='nfgu' then
        call DamageAmplify(TF*GetHeroState3(tF,true)/ 3.)
    elseif Y7v=='npfl' or Y7v=='nvdw' then
        call DamageAmplify(TF*.25*GetHeroState3(tF,true))
    endif
endfunction

function damage___Damage_Y6v takes nothing returns nothing
    local integer Y7v=pF_v
    if not(DAK_DGTYPE[HF]==DAMAGE_TYPE_UNIVERSAL)then
        if JF[HF]then
            if GetRandomReal(.01,100)<(100-GetUnitDodge((pF)))*(UnitHitRate[(pF_v)])then
                if IsUnitType(mF,UNIT_TYPE_MECHANICAL)then
                    call damage___Damage_Y6v_2()
                endif
                if nC[(Y7v)]then
                    if GetRandomReal(1,100)<=(UnitCrit[(Y7v)])then
                        call DamageAmplifyDis(Unit_C_DMG[(Y7v)]*PF,$A,"|c00ff0000")
                        call s__Trig_exe((Hero_Crit_t[(Y7v)]))
                    endif
                endif
                call sc___prototype111_evaluate(6,mF)
                call s__Trig_exe((UnitPAttack_t[(Y7v)]))
                call s__Trig_exe((UnitBePAttack_t[(pF)]))
            else
                call thv("|c00ff0000MISS!",GetUnitX(mF),GetUnitY(mF),GetUnitFlyHeight(mF)+35,.035,.025,bj_PI/ 2,1,1.5)
                set KF[HF]=PF+1000000.
                return
            endif
        endif
        if(DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC)then
            set TF=1.+Unit_MATK[(Y7v)]
            set uF=1.-GetUnitMdef((pF))
            if GetUnitAbilityLevel(MF,'B01E')>0 then
                set uF=uF+.08
            endif
            if IsUnitType(mF,UNIT_TYPE_MECHANICAL)then
                set TF=(1+Unit_MATK[((GetUnitUserData(MV[GetPlayerId(GetOwningPlayer(Je[((Y7v))]))])))])*TF
            endif
            set KF[HF]=KF[HF]-(((TF*uF-1)*GetDamage())*1.)
            if kF[HF]and nC[(Y7v)]and not DAK_FuJia[HF]then
                call s__Trig_exe((Hero_Meleemagic_t[(Y7v)]))
            endif
        endif
    endif
    call sc___prototype111_evaluate(6,MF)
    set KF[HF]=KF[HF]-((-GetUnitAdef((pF))*GetDamage())*1.)
    set DAK_Adef[HF]=true
    if mF!=MF and not DAK_FuJia[HF]then
        call s__Trig_exe((UnitDamager_t[(Y7v)]))
    endif
    if UnitAlive(MF)and(PF>KF[HF])then
        call s__Trig_exe((UnitShield_t[(pF)]))
        call s__Trig_exe((UnitBeDamager_t[(pF)]))
    endif
    set DAK_Adef[HF]=false
endfunction

function damage___yLe_Damage takes nothing returns real
    local real damage
    call damage___Damage_Y6v()
    if GetDamage()>GetWidgetLife(MF)-.5 then
        if mF!=MF and GetPlayerState(GetOwningPlayer(MF),PLAYER_STATE_GIVES_BOUNTY)==1 then
            call SetPlayerStateS(GetOwningPlayer(mF))
        endif
    endif
    set damage=GetDamage()
    if lF[HF]>0 and damage>0 then
        call thv_v(LF[HF]+I2S(R2I(damage+.5))+"!",MF,1.6*lF[HF],lF[HF],.25*Lx,.75,1.2)
        set lF[HF]=0
    endif
    set damage=KF[HF]
    set KF[HF]=0
    return damage
endfunction

function damage___yLe_v takes nothing returns boolean
    local real damage=GetSpellDamage(DAK_WHICH[HF],DAK_TARGET[HF],DAK_AMOUNT[HF],false,true,DAK_ACTYPE[HF],DAK_DGTYPE[HF],null)
    local unit qF
    local unit QF
    local integer sF
    local integer dource
    local real SF
    if GetSpellDamageId and damage>0 then
        set qF=mF
        set QF=MF
        set sF=pF
        set dource=pF_v
        set SF=PF
        set mF=DAK_WHICH[HF]
        set MF=DAK_TARGET[HF]
        set pF=GetUnitUserData(MF)
        set pF_v=GetUnitUserData(mF)
        set PF=damage
        set damage=damage___yLe_Damage()
        if PF>damage then
            call DamageHiddenAttack(mF,MF,PF-damage,true,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_UNIVERSAL)
        endif
        set mF=qF
        set MF=QF
        set pF=sF
        set pF_v=dource
        set PF=SF
        return true
    endif
    return false
endfunction

function damage___yLe takes nothing returns nothing
    local real Y8v
    local unit qF
    local unit QF
    local integer sF
    local real SF
    local integer dource
    if FF then
        set Y8v=GetEventDamage()
        set qF=mF
        set QF=MF
        set sF=pF
        set dource=pF_v
        set SF=PF
        if GetUnitTypeId(GetEventDamageSource())=='uloc' then
            set mF=GetEventDamageSource()
            set MF=GetTriggerUnit()
            set pF=GetUnitUserData(MF)
            call TriggerEvaluate(Boss_DEATH_trig_Hpal)
        elseif Y8v>0 then
            set mF=GetEventDamageSource()
            set MF=GetTriggerUnit()
            set pF=GetUnitUserData(MF)
            set pF_v=GetUnitUserData(mF)
            set PF=Y8v
            if PF==1. then
                set DAK_AMOUNT[HF]=1
            else
                set DAK_AMOUNT[HF]=damage___GetAttackDamageRate(MF,PF)
                if IsUnitDrops[pF]and PF>$1E8480 then
                    set IsUnitDrops[pF]=false
                endif
            endif
            if UnitDamageType[pF_v]==null then
                set DAK_DGTYPE[HF]=DAMAGE_TYPE_NORMAL
            else
                set DAK_DGTYPE[HF]=UnitDamageType[pF_v]
            endif
            if DamageTransitions_t[pF_v]>0 then
                call s__Trig_exe((DamageTransitions_t[(pF_v)]))
            endif
            if GetDamage()>0 then
                if(DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC)then
                    set KF[HF]=KF[HF]-((GetSpellDamage(DAK_WHICH[HF],DAK_TARGET[HF],DAK_AMOUNT[HF],false,true,DAK_ACTYPE[HF],DAK_DGTYPE[HF],null)-PF)*1.)
                elseif(DAK_DGTYPE[HF]==DAMAGE_TYPE_UNIVERSAL)then
                    set KF[HF]=KF[HF]-((DAK_AMOUNT[HF]-PF)*1.)
                endif
                set Y8v=damage___yLe_Damage()
            else
                set Y8v=KF[HF]
                set KF[HF]=0
            endif
            if UnitAlive(MF)and GetUnitAbilityLevel(MF,'Avul')==0 then
                if Y8v>0 then
                    set uF=GetWidgetLife(MF)+RMinBJ(PF,Y8v)
                    if uF>GetUnitState(MF,UNIT_STATE_MAX_LIFE)then
                        set widget_HP=uF-PF
                        if GetUnitState(MF,UNIT_STATE_MAX_LIFE)<PF+64 then
                            call UnitAddAbility(MF,'A0A3')
                        endif
                        call SetWidgetLife(MF,uF)
                        set widget_Target=MF
                        if widget_Trig==null then
                            set widget_Trig=CreateTrigger()
                            call TriggerAddCondition(widget_Trig,Condition(function damage___Damage_Y5v))
                        endif
                        set Y8v=GetWidgetLife(MF)-PF
                        if Y8v<.405 then
                            set Y8v=.405
                        endif
                        call TriggerRegisterUnitStateEvent(widget_Trig,widget_Target,UNIT_STATE_LIFE,LESS_THAN,Y8v)
                        call TriggerRegisterUnitStateEvent(widget_Trig,widget_Target,UNIT_STATE_LIFE,GREATER_THAN,Y8v)
                    else
                        call SetWidgetLife(MF,uF)
                    endif
                elseif Y8v<0 then
                    call DamageHiddenAttack(mF,MF,-Y8v,true,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_UNIVERSAL)
                endif
            endif
        endif
        set mF=qF
        set MF=QF
        set pF=sF
        set pF_v=dource
        set PF=SF
    endif
endfunction

function damage___onInit takes nothing returns nothing
    set FF=true
    set DAK_ACTYPE[HF]=ATTACK_TYPE_MAGIC
    set DAK_DGTYPE[HF]=DAMAGE_TYPE_NORMAL
    set JF[HF]=true
    set kF[HF]=false
    set KF[HF]=0
    set lF[HF]=0
    set LF[HF]=""
    set Damage_Xgv=CreateTrigger()
    call TriggerAddCondition(Damage_Xgv,Condition(function damage___yLe))
    set Damage_Xgv_v=CreateTrigger()
    call TriggerAddCondition(Damage_Xgv_v,Condition(function damage___yLe_v))
endfunction

function GetHeroPlusStr takes integer id returns integer
    return Hero_Plus_Str[id]
endfunction

function GetHeroPlusAgi takes integer id returns integer
    return Hero_Plus_Agi[id]
endfunction

function GetHeroPlusInt takes integer id returns integer
    return Hero_Plus_Int[id]
endfunction

function herostate___vce takes integer Cjv returns nothing
    local unit u
    set CR=false
    set u=CreateUnit(P[$F],Cjv,0,0,0)
    set CR=true
    call SaveInteger(BYHT,herostate___TG,Cjv,GetHeroStr(u,false))
    call SaveInteger(BYHT,herostate___uG,Cjv,GetHeroAgi(u,false))
    call SaveInteger(BYHT,herostate___UG,Cjv,GetHeroInt(u,false))
    call RemoveUnitBJ(u,48)
    set u=null
endfunction

function vCe takes integer Cjv returns integer
    if not HaveSavedInteger(BYHT,herostate___TG,Cjv)then
        call herostate___vce(Cjv)
    endif
    return LoadInteger(BYHT,herostate___TG,Cjv)
endfunction

function vde takes integer Cjv returns integer
    if not HaveSavedInteger(BYHT,herostate___uG,Cjv)then
        call herostate___vce(Cjv)
    endif
    return LoadInteger(BYHT,herostate___uG,Cjv)
endfunction

function vDe takes integer Cjv returns integer
    if not HaveSavedInteger(BYHT,herostate___UG,Cjv)then
        call herostate___vce(Cjv)
    endif
    return LoadInteger(BYHT,herostate___UG,Cjv)
endfunction

function herostate___vfe takes nothing returns nothing
    set herostate___TG=malloc()
    set herostate___uG=malloc()
    set herostate___UG=malloc()
endfunction

function NewEquipSlot takes nothing returns integer
    local integer i=EquipSlot_V[0]
    if i==0 then
        set i=EquipSlot_I+1
        set EquipSlot_I=i
    else
        set EquipSlot_V[0]=EquipSlot_V[i]
    endif
    set EquipSlot_R[i]=malloc()
    set EquipSlot_id_f[i]=(i-1)*EquipSlot_id_z
    set EquipSlot_id[EquipSlot_id_f[i]]=0
    set EquipSlot_id[EquipSlot_id_f[i]+1]=0
    set EquipSlot_id[EquipSlot_id_f[i]+2]=0
    set EquipSlot_id[EquipSlot_id_f[i]+3]=0
    set EquipSlot_id[EquipSlot_id_f[i]+4]=0
    set EquipSlot_id[EquipSlot_id_f[i]+5]=0
    set EquipSlot_V[i]=-1
    return i
endfunction

function RemoveEquipSlot takes integer i returns nothing
    if i>0 and EquipSlot_V[i]==-1 then
        call free(EquipSlot_R[i])
        set EquipSlot_R[i]=0
        set EquipSlot_V[i]=EquipSlot_V[0]
        set EquipSlot_V[0]=i
    endif
endfunction

function HeroAppEffect takes integer data,boolean b returns nothing
    local integer key
    if b and HaveSavedString(BYHT,(Bag_wing),2*StringHash(StringCase(Game_PlayerName[Kc[data]],false)))then
        set key=2*StringHash(StringCase(Game_PlayerName[Kc[data]],false))
        set HeroEffectModel[data]=(s__Effect_build(AddSpecialEffectTarget((LoadStr(BYHT,(Bag_wing),key)),((Je[(data)])),(LoadStr(BYHT,(Bag_wing),key+1)))))
    elseif HeroEffectModel[data]!=null then
        call DestroyEffectBY(HeroEffectModel[data])
        set HeroEffectModel[data]=0
    endif
endfunction

function GetChangingHeroPrevOwner takes integer data returns player
    return P[Kc[data]]
endfunction

function GetPlayerDefaultName takes integer data returns string
    return Game_PlayerName[Kc[data]]
endfunction

function Sbv takes integer data returns integer
    return Kc[data]
endfunction

function SkillsRegisterSpellEffect takes integer id returns nothing
    call SaveBoolean(BYHT,HeroOnSpellEffect_t,id,true)
endfunction

function HeroAddSpellEffectTrig takes integer data,code c returns nothing
    if Hero_SpellEffect_t[data]==0 then
        set Hero_SpellEffect_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((Hero_SpellEffect_t[data]))],Filter((c)))
endfunction

function HeroAddSpellEffectTrigB takes integer data,code c returns integer
    if Hero_SpellEffect_t[data]==0 then
        set Hero_SpellEffect_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((Hero_SpellEffect_t[data]),c)
endfunction

function HeroAddSpellEffectTrigC takes integer data,boolexpr c returns integer
    if Hero_SpellEffect_t[data]==0 then
        set Hero_SpellEffect_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((Hero_SpellEffect_t[data]),c)
endfunction

function HeroAddCritTrig takes integer data,code c returns nothing
    if Hero_Crit_t[data]==0 then
        set Hero_Crit_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((Hero_Crit_t[data]))],Filter((c)))
endfunction

function HeroAddCritTrigB takes integer data,code c returns integer
    if Hero_Crit_t[data]==0 then
        set Hero_Crit_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((Hero_Crit_t[data]),c)
endfunction

function HeroAddCritTrigC takes integer data,boolexpr c returns integer
    if Hero_Crit_t[data]==0 then
        set Hero_Crit_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((Hero_Crit_t[data]),c)
endfunction

function HeroAddMeleemagicTrig takes integer data,code c returns integer
    if Hero_Meleemagic_t[data]==0 then
        set Hero_Meleemagic_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((Hero_Meleemagic_t[data]),c)
endfunction

function HeroAddMeleemagicTrigC takes integer data,boolexpr c returns integer
    if Hero_Meleemagic_t[data]==0 then
        set Hero_Meleemagic_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((Hero_Meleemagic_t[data]),c)
endfunction

function HeroAddKillTrig takes integer data,code c returns nothing
    if Hero_Kill_t[data]==0 then
        set Hero_Kill_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((Hero_Kill_t[data]))],Filter((c)))
endfunction

function HeroAddKillTrigB takes integer data,code c returns integer
    if Hero_Kill_t[data]==0 then
        set Hero_Kill_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((Hero_Kill_t[data]),c)
endfunction

function HeroAddKillTrigC takes integer data,boolexpr c returns integer
    if Hero_Kill_t[data]==0 then
        set Hero_Kill_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((Hero_Kill_t[data]),c)
endfunction

function HeroAddBeKillTrig takes integer data,code c returns nothing
    if Hero_Be_Kill_t[data]==0 then
        set Hero_Be_Kill_t[data]=s__Trig_new()
    endif
    call TriggerAddCondition(s__Trig_trig[((Hero_Be_Kill_t[data]))],Filter((c)))
endfunction

function HeroAddBeKillTrigB takes integer data,code c returns integer
    if Hero_Be_Kill_t[data]==0 then
        set Hero_Be_Kill_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((Hero_Be_Kill_t[data]),c)
endfunction

function HeroAddBeKillTrigC takes integer data,boolexpr c returns integer
    if Hero_Be_Kill_t[data]==0 then
        set Hero_Be_Kill_t[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((Hero_Be_Kill_t[data]),c)
endfunction

function ADD_HERO_REVIVE_EVENT takes integer data,code c returns integer
    if HERO_REVIVE_EVENT[data]==0 then
        set HERO_REVIVE_EVENT[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist((HERO_REVIVE_EVENT[data]),c)
endfunction

function ADD_HERO_REVIVE_EVENT_B takes integer data,boolexpr c returns integer
    if HERO_REVIVE_EVENT[data]==0 then
        set HERO_REVIVE_EVENT[data]=s__Trig_new()
    endif
    return s__Trig_addedtothelist_b((HERO_REVIVE_EVENT[data]),c)
endfunction

function Smv takes integer data returns nothing
    if Hero_SpellEffect_t[data]!=0 then
        call s__Trig_clear((Hero_SpellEffect_t[data]))
        set Hero_SpellEffect_t[data]=0
    endif
    if Hero_Crit_t[data]!=0 then
        call s__Trig_clear((Hero_Crit_t[data]))
        set Hero_Crit_t[data]=0
    endif
    if Hero_Meleemagic_t[data]!=0 then
        call s__Trig_clear((Hero_Meleemagic_t[data]))
        set Hero_Meleemagic_t[data]=0
    endif
    if Hero_Kill_t[data]!=0 then
        call s__Trig_clear((Hero_Kill_t[data]))
        set Hero_Kill_t[data]=0
    endif
    if Hero_Be_Kill_t[data]!=0 then
        call s__Trig_clear((Hero_Be_Kill_t[data]))
        set Hero_Be_Kill_t[data]=0
    endif
    if HERO_REVIVE_EVENT[data]!=0 then
        call s__Trig_clear((HERO_REVIVE_EVENT[data]))
        set HERO_REVIVE_EVENT[data]=0
    endif
    call HeroAppEffect(data,false)
    call ReleaseTimer(Hero_Revive_Timer[data],"[TimerUtils]Error:533")
    call MultiboardSetItemValueBY(TV,Kc[data]+1,4,"0")
    call RemoveEquipSlot(EquipSlot[data])
    call free(Hero_Skills_table[data])
    call free(Hero_Skills_Replace[data])
    set Hero_Percent_Str[data]=0
    set Hero_Percent_Agi[data]=0
    set Hero_Percent_Int[data]=0
    set Unit_Extra_Attack[data]=0
    set EquipSlot[data]=0
    set Hero_Skills_table[data]=0
    set MV[Kc[data]]=null
    set Hero_Revive_Timer[data]=null
endfunction

function IsUnitOfHero takes unit u returns boolean
    return IsUnitType(u,UNIT_TYPE_HERO)and pV[GetPlayerId(GetOwningPlayer(u))]
endfunction

function GetHeroStrNotExtra takes integer data returns integer
    return GetHeroState1((Je[(data)]),true)-Hero_Extra_Str[data]
endfunction

function GetHeroAgiNotExtra takes integer data returns integer
    return GetHeroState2((Je[(data)]),true)-Hero_Extra_Agi[data]
endfunction

function GetHeroIntNotExtra takes integer data returns integer
    return GetHeroState3((Je[(data)]),true)-Hero_Extra_Int[data]
endfunction

function ModifyHeroStr takes integer data,integer value returns nothing
    local integer v
    if value!=0 then
        set v=R2I((GetHeroStrNotExtra(data)+value)*Hero_Percent_Str_v[data])
        set Hero_Extra_Str[data]=Hero_Extra_Str[data]+v-Hero_Percent_Str[data]
        set value=value+v-Hero_Percent_Str[data]
        set Hero_Percent_Str[data]=v
        call ModifyHeroStrBy(data,value)
    endif
endfunction

function ModifyHeroAgi takes integer data,integer value returns nothing
    local integer v
    if value!=0 then
        set v=R2I((GetHeroAgiNotExtra(data)+value)*Hero_Percent_Agi_v[data])
        set Hero_Extra_Agi[data]=Hero_Extra_Agi[data]+v-Hero_Percent_Agi[data]
        set value=value+v-Hero_Percent_Agi[data]
        set Hero_Percent_Agi[data]=v
        call ModifyHeroAgiBy(data,value)
    endif
endfunction

function ModifyHeroInt takes integer data,integer value returns nothing
    local integer v
    if value!=0 then
        set v=R2I((GetHeroIntNotExtra(data)+value)*Hero_Percent_Int_v[data])
        set Hero_Extra_Int[data]=Hero_Extra_Int[data]+v-Hero_Percent_Int[data]
        set value=value+v-Hero_Percent_Int[data]
        set Hero_Percent_Int[data]=v
        call ModifyHeroIntBy(data,value)
    endif
endfunction

function HeroAddExtraStr takes integer data,integer v returns nothing
    set Hero_Extra_Str[data]=Hero_Extra_Str[data]+v
    call ModifyHeroStrBy((data),v)
endfunction

function HeroAddExtraAgi takes integer data,integer v returns nothing
    set Hero_Extra_Agi[data]=Hero_Extra_Agi[data]+v
    call ModifyHeroAgiBy((data),v)
endfunction

function HeroAddExtraInt takes integer data,integer v returns nothing
    set Hero_Extra_Int[data]=Hero_Extra_Int[data]+v
    call ModifyHeroIntBy((data),v)
endfunction

function RefreshHeroStr takes integer data returns nothing
    local integer v=R2I(GetHeroStrNotExtra(data)*Hero_Percent_Str_v[data])
    call HeroAddExtraStr(data,v-Hero_Percent_Str[data])
    set Hero_Percent_Str[data]=v
endfunction

function RefreshHeroAgi takes integer data returns nothing
    local integer v=R2I(GetHeroAgiNotExtra(data)*Hero_Percent_Agi_v[data])
    call HeroAddExtraAgi(data,v-Hero_Percent_Agi[data])
    set Hero_Percent_Agi[data]=v
endfunction

function RefreshHeroInt takes integer data returns nothing
    local integer v=R2I(GetHeroIntNotExtra(data)*Hero_Percent_Int_v[data])
    call HeroAddExtraInt(data,v-Hero_Percent_Int[data])
    set Hero_Percent_Int[data]=v
endfunction

function ModifyHeroStrPercent takes integer data,real v returns nothing
    set Hero_Percent_Str_v[data]=Hero_Percent_Str_v[data]+v
    call RefreshHeroStr(data)
endfunction

function ModifyHeroAgiPercent takes integer data,real v returns nothing
    set Hero_Percent_Agi_v[data]=Hero_Percent_Agi_v[data]+v
    call RefreshHeroAgi(data)
endfunction

function ModifyHeroIntPercent takes integer data,real v returns nothing
    set Hero_Percent_Int_v[data]=Hero_Percent_Int_v[data]+v
    call RefreshHeroInt(data)
endfunction

function GetHeroPropertiesByAll takes integer data returns integer
    local integer mS=LoadInteger(BYHT,hg,kc[(data)])
    if mS==1 then
        return GetHeroState1((Je[(data)]),true)
    elseif mS==2 then
        return GetHeroState2((Je[(data)]),true)
    else
        return GetHeroState3((Je[(data)]),true)
    endif
endfunction

function GetHeroNotExtraProperties takes integer data returns integer
    local integer mS=LoadInteger(BYHT,hg,kc[(data)])
    if mS==1 then
        return GetHeroStrNotExtra(data)
    elseif mS==2 then
        return GetHeroAgiNotExtra(data)
    else
        return GetHeroIntNotExtra(data)
    endif
endfunction

function ModifyHeroProperties takes integer data,integer value returns nothing
    local integer mS=LoadInteger(BYHT,hg,kc[(data)])
    if mS==1 then
        call ModifyHeroStr(data,value)
    elseif mS==2 then
        call ModifyHeroAgi(data,value)
    else
        call ModifyHeroInt(data,value)
    endif
endfunction

function HeroAddExtraProperties takes integer data,integer value returns nothing
    local integer mS=LoadInteger(BYHT,hg,kc[(data)])
    if mS==1 then
        call HeroAddExtraStr(data,value)
    elseif mS==2 then
        call HeroAddExtraAgi(data,value)
    else
        call HeroAddExtraInt(data,value)
    endif
endfunction

function ModifyHeroPropertiesPercent takes integer data,real value returns nothing
    local integer mS=LoadInteger(BYHT,hg,kc[(data)])
    if mS==1 then
        call ModifyHeroStrPercent(data,value)
    elseif mS==2 then
        call ModifyHeroAgiPercent(data,value)
    else
        call ModifyHeroIntPercent(data,value)
    endif
endfunction

function ModifyHeroAllStat takes integer data,integer value returns nothing
    call ModifyHeroStr(data,value)
    call ModifyHeroAgi(data,value)
    call ModifyHeroInt(data,value)
endfunction

function HeroAddExtraStatAll takes integer data,integer v returns nothing
    call HeroAddExtraStr(data,v)
    call HeroAddExtraAgi(data,v)
    call HeroAddExtraInt(data,v)
endfunction

function ModifyHeroAllStatPercent takes integer data,real value returns nothing
    call ModifyHeroStrPercent(data,value)
    call ModifyHeroAgiPercent(data,value)
    call ModifyHeroIntPercent(data,value)
endfunction

function UnitAddExtraHP takes integer data,integer v returns nothing
    set Unit_Extra_HP[data]=Unit_Extra_HP[data]+v
    call ModifyUnitHP((data),v)
endfunction

function GetHeroStateByMax takes unit u returns integer
    local integer value=GetHeroState1(u,true)
    if GetHeroState2(u,true)>value then
        set value=GetHeroState2(u,true)
    endif
    if GetHeroState3(u,true)>value then
        set value=GetHeroState3(u,true)
    endif
    return value
endfunction

function GetHeroAttack takes integer data returns integer
    return 2*GetHeroPropertiesByAll((data))+UnitAttack[(data)]
endfunction

function GetHeroAttackNotExtra takes integer data returns integer
    return GetHeroAttack((data))-Unit_Extra_Attack[data]
endfunction

function HeroAddExtraAttack takes integer data,integer v returns nothing
    set Unit_Extra_Attack[data]=Unit_Extra_Attack[data]+v
    call ModifyUnitAttack((data),v)
endfunction

function GetUnitNotExtraMaxLife takes integer data returns real
    return GetUnitMaxLifeById((data))-Unit_Extra_HP[data]
endfunction

function RefreshHandicapXP takes integer data returns nothing
    if Tc[data]>399 then
        set HandicapXP_Lv[data]=.3
    endif
    if Tc[data]<100 then
        call SetPlayerHandicapXP(P[Kc[data]],1.8*(1.+lV)*HandicapXP_Basis[data]*HandicapXP_Lv[data])
    elseif Tc[data]<$C8 then
        call SetPlayerHandicapXP(P[Kc[data]],1.2*(1.+lV)*HandicapXP_Basis[data]*HandicapXP_Lv[data])
    elseif Tc[data]<300 then
        call SetPlayerHandicapXP(P[Kc[data]],.6*(1.+lV)*HandicapXP_Basis[data]*HandicapXP_Lv[data])
    elseif Tc[data]<340 then
        call SetPlayerHandicapXP(P[Kc[data]],.5*(1.+lV)*HandicapXP_Basis[data]*HandicapXP_Lv[data])
    elseif Tc[data]<380 then
        call SetPlayerHandicapXP(P[Kc[data]],.4*(1.+lV)*HandicapXP_Basis[data]*HandicapXP_Lv[data])
    elseif Tc[data]<500 then
        call SetPlayerHandicapXP(P[Kc[data]],.3*(1.+lV)*HandicapXP_Basis[data]*HandicapXP_Lv[data])
    else
        call SuspendHeroXP((Je[(data)]),true)
    endif
endfunction

function SetHandicapXP takes integer data,real v returns nothing
    set HandicapXP_Basis[data]=HandicapXP_Basis[data]+.01*v
    call RefreshHandicapXP(data)
endfunction

function s__Skills_Replace_new takes nothing returns integer
    local integer this=s__Skills_Replace__allocate()
    set s__Skills_Replace_L[this]=this
    set s__Skills_Replace_R[this]=this
    return this
endfunction

function s__Skills_Replace_addfor takes integer this returns integer
    local integer re=s__Skills_Replace__allocate()
    set s__Skills_Replace_L[re]=this
    set s__Skills_Replace_R[re]=s__Skills_Replace_R[this]
    set s__Skills_Replace_L[s__Skills_Replace_R[this]]=re
    set s__Skills_Replace_R[this]=re
    return re
endfunction

function s__Skills_Replace_remove takes integer this returns integer
    local integer re
    if s__Skills_Replace_L[this]!=this then
        set re=s__Skills_Replace_L[this]
        set s__Skills_Replace_R[re]=s__Skills_Replace_R[this]
        set s__Skills_Replace_L[s__Skills_Replace_R[this]]=re
    else
        set re=0
    endif
    call s__Skills_Replace_deallocate(this)
    return re
endfunction

function s__Skills_Replace_clear takes integer this returns nothing
    local integer re=this
    loop
        set this=s__Skills_Replace_L[this]
        exitwhen this==re
        call s__Skills_Replace_deallocate(this)
    endloop
    call s__Skills_Replace_deallocate(this)
endfunction

function s__Skills_Replace_find takes integer this,integer id returns integer
    local integer t=this
    loop
        if s__Skills_Replace_id[t]==id then
            return t
        endif
        set t=s__Skills_Replace_R[t]
        exitwhen t==this
    endloop
    return 0
endfunction

function HeroSkillsreplace takes integer data,integer oldskell,integer newskell returns nothing
    local integer id
    local integer lv
    if HaveSavedInteger(BYHT,Hero_Skills_table[data],oldskell)then
        set id=LoadInteger(BYHT,Hero_Skills_table[data],oldskell)
        set lv=GetUnitAbilityLevel((Je[(data)]),oldskell)
        call SaveInteger(BYHT,Hero_Skills_table[data],id,newskell)
        call SaveInteger(BYHT,Hero_Skills_table[data],newskell,id)
        if LastSpellAbilityId[data]==oldskell then
            set LastSpellAbilityId[data]=0
        endif
        if lv>0 then
            call UnitRemoveAbilityBY((Je[(data)]),oldskell)
            call UnitAddAbilityLevelBY((Je[(data)]),newskell,lv)
        endif
        if oldskell!=id then
            call RemoveSavedInteger(BYHT,Hero_Skills_table[data],oldskell)
        endif
    endif
endfunction

function GetHeroSkillPoint takes integer data returns integer
    return(HeroSkillPoint[data])
endfunction

function ModifyHeroSkillPoint takes integer data,integer v returns nothing
    set HeroSkillPoint[data]=HeroSkillPoint[data]+v
    call MultiboardSetItemValueBY(TV,Kc[data]+1,3,I2S(HeroSkillPoint[data]))
endfunction

function SetItemDroppableTimedById takes integer data,integer dEv,real r returns nothing
    local item t=GetItemOfTypeFromUnit((Je[(data)]),dEv)
    if t!=null then
        call SetItemDroppableTimed(t,r)
        set t=null
    endif
endfunction

function IsHeroSleepRevive takes integer data returns boolean
    return IsSleepRevive[data]
endfunction

function StartHeroReveveTimer_c takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call ReviveHero((Je[(data)]),Hero_Revive_X[data],Hero_Revive_Y[data],true)
endfunction

function StartHeroReveveTimer takes integer data,real x,real y,real hp,real mp,real cyv returns nothing
    set Hero_Revive_X[data]=x
    set Hero_Revive_Y[data]=y
    set Hero_Revive_HP[data]=.01*hp
    set Hero_Revive_MP[data]=.01*mp
    call TimerStart(Hero_Revive_Timer[data],cyv,false,function StartHeroReveveTimer_c)
endfunction

function SleepReviveHero takes integer data,real hp,real mp,real cyv returns nothing
    if not IsSleepRevive[data]then
        set IsSleepRevive[data]=true
        call StartHeroReveveTimer(data,GetUnitX((Je[(data)])),GetUnitY((Je[(data)])),hp,mp,cyv)
        call NewTextTagInTarget_B((Je[(data)]),"|c00a3f7991 second before rebirth.|r",$A,$FF,$FF,$FF)
    endif
endfunction

function herostate___S1v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer data=(GetUnitUserData((u)))
    local integer lv
    local integer S2v
    local integer S3v
    if nC[data]then
        set S2v=GetHeroLevel((Je[(data)]))
        set lv=S2v-Tc[data]
        if jc[data]then
            if S2v>400 then
                if Tc[data]>400 then
                    call ModifyHeroSkillPoint(data,6*lv)
                    call NewTextTagInTarget_B((Je[(data)]),"|c00e8f5ba+"+I2S(6*lv)+" STAT POINTS",$A,$FF,$FF,$FF)
                else
                    call ModifyHeroSkillPoint(data,4*(400-Tc[data])+6*(S2v-400))
                    call NewTextTagInTarget_B((Je[(data)]),"|c00e8f5ba+"+I2S(4*(400-Tc[data])+6*(S2v-400))+" STAT POINTS",$A,$FF,$FF,$FF)
                endif
                call Ltv(Lfv(LAv("JudgementTarget.mdl",GetUnitX((Je[(data)])),GetUnitY((Je[(data)])),2.5),$9B,$9B,$9B,$FF))
            else
                call ModifyHeroSkillPoint(data,4*lv)
            endif
            if HeroSkillPoint[data]>=28 then
                call DisplayTimedText((Game_PlayerName[Kc[(data)]])+"|c00ff0000Quickly add stat points.",5)
            endif
        endif
        call ModifyUnitHP((data),25*lv)
        call ModifyUnitMP((data),$A*lv)
        call SetWidgetLife((Je[(data)]),GetWidgetLife((Je[(data)]))+GetUnitState((Je[(data)]),UNIT_STATE_MAX_LIFE)/ 3)
        call SetUnitState((Je[(data)]),UNIT_STATE_MANA,GetUnitState((Je[(data)]),UNIT_STATE_MANA)+GetUnitState((Je[(data)]),UNIT_STATE_MAX_MANA)/ 3)
        set Tc[data]=Tc[data]+lv
        if u==MV[Kc[data]]then
            call MultiboardSetItemValueBY(TV,Kc[data]+1,2,I2S(Tc[data]))
        endif
        if Tc[data]>=$F0 and GetUnitAbilityLevel((Je[(data)]),LoadInteger(BYHT,Hero_Skills_table[data],7))==0 then
            call UnitAddAbilityBY((Je[(data)]),LoadInteger(BYHT,Hero_Skills_table[data],7))
            call DisplayTimedTextToPlayer(P[Kc[data]],0,0,5,"|c00FF0000Ultimate:|r - |c00c71585"+GetObjectName(LoadInteger(BYHT,Hero_Skills_table[data],7)))
            if jc[data]then
                if GetLocalPlayer()==(P[Kc[(data)]])then
                    call StartSound(Ca)
                endif
            endif
        endif
        call RefreshHandicapXP(data)
        if Tc[data]>39 then
            set lv=1+Tc[data]/ 40
            set S3v=LoadInteger(BYHT,Hero_Skills_table[data],1)
            if lv>$A then
                set lv=$A
            endif
            if GetUnitAbilityLevel((Je[(data)]),S3v)<lv then
                if kc[data]=='H00J' then
                    call ModifyUnitMagicDamage((data),.5*(lv-GetUnitAbilityLevel((Je[(data)]),S3v)))
                elseif kc[data]=='Hblm' then
                    set Elemental_Force_Max_Charge[data]=(lv+1)/ 2
                elseif kc[data]=='H001' then
                    call UnitRemoveAbility((Je[(data)]),'BHbd')
                elseif kc[data]=='H00E' then
                    call UnitDodgeChange(data,HeroSkills_A02U_Dodge[data],$A+lv*3)
                endif
                call SetUnitAbilityLevel((Je[(data)]),S3v,lv)
                if kc[data]=='H00Z' then
                    call SetPlayerTechResearched(P[Kc[data]],'Rhri',lv)
                elseif kc[data]=='H015' then
                    call SetPlayerTechResearched(P[Kc[data]],'Rhcd',(lv+1)/ 2)
                endif
            endif
            if HaveSavedInteger(BYHT2,Event_HeroSkill_Id,S3v)then
                call TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_HeroSkill_Id),S3v)))
            endif
        endif
        if HeroSkillPoint[data]>39 then
            call sc___prototype8_evaluate(1,data,100)
        endif
    endif
    set u=null
endfunction

function herostate___S4v takes nothing returns nothing
    local integer data=(GetUnitUserData((MV[GetPlayerId(GetTriggerPlayer())])))
    local string DCv=GetEventPlayerChatString()
    local string S5v=SubString(DCv,0,4)
    local integer S6v
    if DCv=="-dhk" then
        call ShowInterface(false,0)
        call EnableUserControl(false)
        call EnableOcclusion(false)
        call ShowInterface(true,.5)
        call EnableUserControl(true)
        call EnableOcclusion(true)
        return
    endif
    if S5v=="-str" then
        set S6v=IMinBJ(HeroSkillPoint[data],IMinBJ(100,IMaxBJ(0,S2I(SubString(DCv,5,8)))))
        if(S6v>0)then
            call ModifyHeroSkillPoint(data,-S6v)
            call SetHeroState1((Je[(data)]),GetHeroState1((Je[(data)]),false)+S6v)
            call RefreshHeroStr(data)
            call RefreshUnitHpRegen(data)
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIsm\\AIsmTarget.mdl",(Je[(data)]),"origin"))
        endif
    elseif S5v=="-agi" then
        set S6v=IMinBJ(HeroSkillPoint[data],IMinBJ(100,IMaxBJ(0,S2I(SubString(DCv,5,8)))))
        if(S6v>0)then
            call ModifyHeroSkillPoint(data,-S6v)
            call SetHeroState2((Je[(data)]),GetHeroState2((Je[(data)]),false)+S6v)
            call RefreshHeroAgi(data)
            call RefreshUnitAttackSpeed((data))
            call RefreshUnitCrit((data))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIam\\AIamTarget.mdl",(Je[(data)]),"origin"))
        endif
    elseif S5v=="-int" then
        set S6v=IMinBJ(HeroSkillPoint[data],IMinBJ(100,IMaxBJ(0,S2I(SubString(DCv,5,8)))))
        if(S6v>0)then
            call ModifyHeroSkillPoint(data,-S6v)
            call SetHeroState3((Je[(data)]),GetHeroState3((Je[(data)]),false)+S6v)
            call RefreshHeroInt(data)
            call ModifyUnitMP((data),5*S6v)
            call RefreshUnitMpRegen(data)
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIlm\\AIlmTarget.mdl",(Je[(data)]),"origin"))
        endif
    endif
endfunction

function herostate___S7v takes nothing returns boolean
    local integer data=(GetUnitUserData((GetTriggerUnit())))
    local integer id=(LAST_SPELL_ABILITY_ID)
    if nC[data]then
        if HaveSavedInteger(BYHT,Hero_Skills_table[data],id)and not HaveSavedBoolean(BYHT,(Refresh_Not),id)then
            if id!='A10C' and LoadInteger(BYHT,Hero_Skills_table[data],id)!=7 then
                set LastSpellAbilityId[data]=id
            endif
            call s__Trig_exewithp((Hero_SpellEffect_t[data]),data)
        elseif HaveSavedBoolean(BYHT,(HeroOnSpellEffect_t),id)then
            call s__Trig_exewithp((Hero_SpellEffect_t[data]),data)
        endif
    endif
    return false
endfunction

function herostate___S8v takes nothing returns boolean
    local integer data=(GetUnitUserData((GetTriggerUnit())))
    local unit u=GetTriggerUnit()
    set IsSleepRevive[data]=false
    if GetLocalPlayer()==(P[Kc[(data)]])then
        call PanCameraToTimed(GetUnitX(u),GetUnitY(u),0)
    endif
    call PauseTimer(Hero_Revive_Timer[data])
    call PauseUnit(u,false)
    call SetUnitInvulnerable(u,false)
    call SetUnitFlyHeight(u,0,0)
    call SetWidgetLife(u,Hero_Revive_HP[data]*GetUnitMaxLifeById((data)))
    call SetUnitState(u,UNIT_STATE_MANA,Hero_Revive_MP[data]*GetUnitState(u,UNIT_STATE_MAX_MANA))
    if HERO_REVIVE_EVENT[data]>0 then
        call s__Trig_exewithp((HERO_REVIVE_EVENT[data]),data)
        if HERO_REVIVE_EVENT[data]==s__Trig_fl[(HERO_REVIVE_EVENT[data])]then
            call s__Trig_clear((HERO_REVIVE_EVENT[data]))
            set HERO_REVIVE_EVENT[data]=0
        endif
    endif
    set u=null
    return false
endfunction

function herostate___Sgv takes integer data returns nothing
    local integer MFv=1
    local integer SGv=GetUnitTypeId((Je[(data)]))
    local integer Shv=LoadInteger(BYHT,yA,SGv)
    set Kc[data]=GetPlayerId(GetOwningPlayer((Je[(data)])))
    set kc[data]=SGv
    set Tc[data]=1
    set HeroSkillPoint[data]=0
    set Hero_Plus_Str[data]=HeroStatStr[data]
    set Hero_Plus_Agi[data]=HeroStatAgi[data]
    set Hero_Plus_Int[data]=HeroStatInt[data]
    set Hero_Revive_Timer[data]=NewTimer(data)
    set jc[data]=true
    set Hero_Skills_Replace[data]=malloc()
    set Hero_Skills_table[data]=malloc()
    set HandicapXP_Basis[data]=1.
    set HandicapXP_Lv[data]=1.
    set EquipSlot[data]=NewEquipSlot()
    set qV[Kc[data]]=kc[data]
    loop
        set SGv=vN[7*Shv+MFv-1]
        if SGv!=0 then
            call SaveInteger(BYHT,Hero_Skills_table[data],MFv,SGv)
            call SaveInteger(BYHT,Hero_Skills_table[data],SGv,MFv)
        endif
        exitwhen MFv==7
        set MFv=MFv+1
    endloop
    call RefreshUnitHpRegen(data)
    call RefreshUnitMpRegen(data)
    call RefreshUnitAttackSpeed(data)
    call RefreshUnitCrit(data)
    call RefreshHandicapXP(data)
    call HeroAppEffect(data,true)
    call TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,Event_HeroInit_Id,kc[data])))
endfunction

function herostate___txv takes integer dhv returns nothing
    call SaveBoolean(BYHT,Refresh_Not,dhv,true)
endfunction

function RegisterEnterRect_Filter_Hero takes nothing returns boolean
    return nC[(GetUnitUserData((GetFilterUnit())))]
endfunction

function herostate___tov takes nothing returns nothing
    local trigger gzv=CreateTrigger()
    local integer i=8
    set Refresh_Not=malloc()
    set Hero_Arc=malloc()
    call SaveBoolean(BYHT,Refresh_Not,('A0JZ'),true)
    call SaveBoolean(BYHT,Refresh_Not,('A0PN'),true)
    call SaveStr(BYHT,Hero_Arc,'H000',"ReplaceableTextures\\CommandButtons\\BTNHeroKnight.blp")
    call SaveStr(BYHT,Hero_Arc,'H001',"ReplaceableTextures\\CommandButtons\\BTNSwordsman.blp")
    call SaveStr(BYHT,Hero_Arc,'H003',"ReplaceableTextures\\CommandButtons\\BTNPaladin.blp")
    call SaveStr(BYHT,Hero_Arc,'H004',"ReplaceableTextures\\CommandButtons\\BTNAssassin.blp")
    call SaveStr(BYHT,Hero_Arc,'H005',"ReplaceableTextures\\CommandButtons\\btnhuofa.blp")
    call SaveStr(BYHT,Hero_Arc,'H002',"ReplaceableTextures\\CommandButtons\\BTNWaterMage.blp")
    call SaveStr(BYHT,Hero_Arc,'H006',"ReplaceableTextures\\CommandButtons\\BTNArcaneMage.blp")
    call SaveStr(BYHT,Hero_Arc,'H01N',"Replaceabletextures\\Commandbuttons\\btntxff.blp")
    call SaveStr(BYHT,Hero_Arc,'H007',"Replaceabletextures\\Commandbuttons\\btntxms.blp")
    call SaveStr(BYHT,Hero_Arc,'H008',"ReplaceableTextures\\CommandButtons\\BTNSoulWeaver.blp")
    call SaveStr(BYHT,Hero_Arc,'H009',"ReplaceableTextures\\CommandButtons\\BTNElementalist.blp")
    call SaveStr(BYHT,Hero_Arc,'H00E',"ReplaceableTextures\\CommandButtons\\BTNyeyetoxiang.blp")
    call SaveStr(BYHT,Hero_Arc,'H00H',"ReplaceableTextures\\CommandButtons\\BTNBerserker.blp")
    call SaveStr(BYHT,Hero_Arc,'H00Z',"ReplaceableTextures\\CommandButtons\\BTNBowMaster.blp")
    call SaveStr(BYHT,Hero_Arc,'Hmkg',"ReplaceableTextures\\CommandButtons\\BTNDarkKnight.blp")
    call SaveStr(BYHT,Hero_Arc,'H00J',"ReplaceableTextures\\CommandButtons\\BTNWitch.blp")
    call SaveStr(BYHT,Hero_Arc,'H015',"ReplaceableTextures\\CommandButtons\\BTNSniper.blp")
    call SaveStr(BYHT,Hero_Arc,'Hblm',"ReplaceableTextures\\CommandButtons\\BTNLancer.blp")
    call SaveStr(BYHT,Hero_Arc,'H01H',"ReplaceableTextures\\CommandButtons\\BTNThunderer.blp")
    call SaveStr(BYHT,Hero_Arc,'H01I',"ReplaceableTextures\\CommandButtons\\BTNlianjss.blp")
    call SaveStr(BYHT,Hero_Arc,'H01U',"ReplaceableTextures\\CommandButtons\\btnwztx.blp")
    call SaveStr(BYHT,Hero_Arc,'H01V',"ReplaceableTextures\\CommandButtons\\BTNaysstx.blp")
    call SaveStr(BYHT,Hero_Arc,'H01W',"ReplaceableTextures\\CommandButtons\\BTNkuangsantoxiang.blp")
    call SaveStr(BYHT,Hero_Arc,'H01X',"ReplaceableTextures\\CommandButtons\\BTNyasha.blp")
    call SaveStr(BYHT,Hero_Arc,'H01Y',"ReplaceableTextures\\CommandButtons\\btnlftx.blp")
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-",false)
        endif
        exitwhen i==0
    endloop
    call TriggerAddAction(gzv,function herostate___S4v)
    call TriggerAddCondition(alloc__GX[(UNIT_SPELL_EFFECT)],(Condition((function herostate___S7v))))
    call RegisterEvent(EVENT_PLAYER_HERO_REVIVE_FINISH,function herostate___S8v)
    call RegisterEvent(EVENT_PLAYER_HERO_LEVEL,function herostate___S1v)
    call Preload("Abilities\\Spells\\Items\\AIsm\\AIsmTarget.mdl")
    call Preload("Abilities\\Spells\\Items\\AIam\\AIamTarget.mdl")
    call Preload("Abilities\\Spells\\Items\\AIlm\\AIlmTarget.mdl")
    set gzv=null
endfunction
//nc[] = hero state ?

function herostate___tav takes nothing returns boolean
    if IsUnitOfHero(Je[le])then
        set nC[(le)]=true
        call herostate___Sgv((le))
        call AddUnitDeathTrigB(le,Boss_func_h01K)
    endif
    return false
endfunction

function herostate___tnv takes nothing returns boolean
    if(nC[(le)])then
        set nC[(le)]=false
        call Smv((le))
    endif
    return false
endfunction

function herostate___tVv takes nothing returns nothing
    call h4v(Condition(function herostate___tav),bR)
    call h4v(Condition(function herostate___tnv),BR)
    set GroupEnumUnitsFilterHero=Condition(function RegisterEnterRect_Filter_Hero)
endfunction

function herostate_onInit takes nothing returns nothing
    call ExecuteFunc("herostate___tVv")
    call ExecuteFunc("herostate___tov")
    call ExecuteFunc("herostate___vfe")
endfunction


function StringHashBY takes string s returns integer
    local integer i=StringHash(s)
    local integer leg=StringLength(s)
    local string str
    loop
        exitwhen leg==0
        set leg=leg-1
        set str=SubString(s,leg,leg+1)
        if StringCase(str,false)!=str then
            set i=i*$83+StringAscii(str)
        endif
    endloop
    return i
endfunction

function playerinit__Piv takes nothing returns nothing
    local integer id=GetLearnedSkill()
    local integer lv
    local integer data
    if HaveSavedInteger(BYHT,yA,id)then
        set data=GetUnitUserData(GetTriggerUnit())
        set lv=GetUnitAbilityLevel(GetTriggerUnit(),id)
        set id=LoadInteger(BYHT,Hero_Skills_table[data],LoadInteger(BYHT,yA,id))
        if lv==1 then
            call UnitAddAbilityBY(GetTriggerUnit(),id)
        else
            call SetUnitAbilityLevel(GetTriggerUnit(),id,lv)
        endif
        if HaveSavedInteger(BYHT2,Event_HeroSkill_Id,id)then
            call TriggerEvaluate(ConvertVersion(LoadInteger(BYHT2,(Event_HeroSkill_Id),id)))
        endif
    endif
endfunction

function playerinit__Pav takes integer id returns nothing
    if not HaveSavedInteger(BYHT,yA,id)then
        set ZA=ZA+1
        set YA=ZA
        set WA[YA]=id
        call SaveInteger(BYHT,yA,id,YA)
    else
        set YA=LoadInteger(BYHT,yA,id)
    endif
endfunction

function playerinit__Prv takes integer NNv,integer MFv returns integer
    return vN[7*NNv+MFv-1]
endfunction

function playerinit__Pnv takes integer PVv returns nothing
    set vN[7*YA]=PVv
endfunction

function playerinit__PEv takes integer PVv returns nothing
    set vN[7*YA+6]=PVv
endfunction

function playerinit__PXv takes integer index,integer id1,integer id2 returns nothing
    set vN[7*YA-1+index]=id2
    call SaveInteger(BYHT,yA,id1,index)
endfunction

function playerinit__SetHeroText takes string text returns nothing
    call SaveStr(BYHT,yA,WA[YA],text)
endfunction

function playerinit__GetHeroText takes integer id returns string
    return LoadStr(BYHT,yA,id)
endfunction

function playerinit__PAv takes nothing returns nothing
    set yA=malloc()
    call playerinit__Pav('H001')
    set vN[7*YA]=('A000')
    call playerinit__PXv(2,'A0BI','A003')
    call playerinit__PXv(3,'A0BJ','A0BM')
    call playerinit__PXv(4,'A0BK','A0BL')
    call playerinit__PXv(5,'A0D9','A0C1')
    call playerinit__PXv(6,'A0DA','A0C2')
    set vN[7*YA+6]=('A0C4')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H004')
    set vN[7*YA]=('A05M')
    call playerinit__PXv(2,'A0DD','A05L')
    call playerinit__PXv(3,'A0DE','A05N')
    call playerinit__PXv(4,'A0DB','A05K')
    call playerinit__PXv(5,'A0DF','A05V')
    call playerinit__PXv(6,'A0DC','A06G')
    set vN[7*YA+6]=('A06E')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01H')
    set vN[7*YA]=('A0MS')
    call playerinit__PXv(2,'A0MU','A0MT')
    call playerinit__PXv(4,'A0N5','A0N4')
    call playerinit__PXv(5,'A0MW','A0MV')
    call playerinit__PXv(6,'A0MZ','A0N0')
    set vN[7*YA+6]=('A0N3')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H000')
    set vN[7*YA]=('A08U')
    call playerinit__PXv(2,'A0DZ','A01O')
    call playerinit__PXv(3,'A0E0','A00B')
    call playerinit__PXv(4,'A0E1','A019')
    call playerinit__PXv(5,'A00I','A00D')
    call playerinit__PXv(6,'A08X','A00N')
    set vN[7*YA+6]=('A00S')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H003')
    set vN[7*YA]=('Aspb')
    call playerinit__PXv(2,'A0E2','A02M')
    call playerinit__PXv(3,'A01F','A09L')
    call playerinit__PXv(4,'A0E5','A027')
    call playerinit__PXv(5,'A0E4','A09M')
    call playerinit__PXv(6,'A0E3','A09N')
    set vN[7*YA+6]=('A006')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H008')
    set vN[7*YA]=('A002')
    call playerinit__PXv(2,'A004','A00E')
    call playerinit__PXv(3,'A01V','A01U')
    call playerinit__PXv(4,'A00R','A0LE')
    call playerinit__PXv(5,'A01I','A00U')
    call playerinit__PXv(6,'A05F','A05I')
    set vN[7*YA+6]=('A04Q')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H00H')
    set vN[7*YA]=('A01K')
    call playerinit__PXv(2,'A0E6','A04S')
    call playerinit__PXv(3,'A0E9','A01B')
    call playerinit__PXv(4,'A0EA','A04U')
    call playerinit__PXv(5,'A0E7','A04W')
    call playerinit__PXv(6,'A0EB','A037')
    set vN[7*YA+6]=('A00A')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H007')
    set vN[7*YA]=('A01M')
    call playerinit__PXv(2,'A0EC','A01A')
    call playerinit__PXv(3,'A0ED','A01L')
    call playerinit__PXv(4,'A0EG','A092')
    call playerinit__PXv(5,'A0EF','A01E')
    call playerinit__PXv(6,'A0EE','A02F')
    set vN[7*YA+6]=('A02N')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H009')
    set vN[7*YA]=('A00T')
    call playerinit__PXv(2,'A0EJ','A01R')
    call playerinit__PXv(3,'A0EM','A02O')
    call playerinit__PXv(4,'A0EI','A03I')
    call playerinit__PXv(5,'A0EL','A03J')
    call playerinit__PXv(6,'A0EK','A089')
    set vN[7*YA+6]=('A08N')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('Hmkg')
    set vN[7*YA]=('A02X')
    call playerinit__PXv(2,'A0EN','A02Y')
    call playerinit__PXv(3,'A0D8','A02Z')
    call playerinit__PXv(4,'A0D7','A03E')
    call playerinit__PXv(5,'A0EO','A03F')
    call playerinit__PXv(6,'A0EQ','A03G')
    set vN[7*YA+6]=('A04R')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H00J')
    set vN[7*YA]=('A0CQ')
    call playerinit__PXv(2,'A0CP','A0CO')
    call playerinit__PXv(3,'A0FI','A0CR')
    call playerinit__PXv(4,'A0FL','A0CX')
    call playerinit__PXv(5,'A0CS','A0CU')
    call playerinit__PXv(6,'A0FM','A0CW')
    set vN[7*YA+6]=('A0CY')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('Hblm')
    set vN[7*YA]=('A0JZ')
    call playerinit__PXv(2,'A0KA','A0K9')
    call playerinit__PXv(3,'A0K7','A0K6')
    call playerinit__PXv(4,'A0K5','A0K4')
    call playerinit__PXv(5,'A0K2','A0K3')
    call playerinit__PXv(6,'A0KC','A0K8')
    set vN[7*YA+6]=('A0KE')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01I')
    set vN[7*YA]=('A0NE')
    call playerinit__PXv(2,'A0NF','A0ND')
    call playerinit__PXv(3,'A0NG','A0NK')
    call playerinit__PXv(4,'A0NH','A0NL')
    call playerinit__PXv(5,'A0NI','A0NM')
    call playerinit__PXv(6,'A0NJ','A0NN')
    set vN[7*YA+6]=('A0OC')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H00E')
    set vN[7*YA]=('A02U')
    set vN[7*YA+6]=('A01H')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H005')
    set vN[7*YA]=('A00K')
    call playerinit__PXv(2,'A075','A007')
    call playerinit__PXv(3,'A0EV','A00J')
    call playerinit__PXv(4,'A0ER','A015')
    call playerinit__PXv(5,'A0ET','A01J')
    call playerinit__PXv(6,'A0EU','A074')
    set vN[7*YA+6]=('A0FG')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H002')
    set vN[7*YA]=('A0ZJ')
    call playerinit__PXv(2,'A0DL','A00Z')
    call playerinit__PXv(3,'A0DN','A01D')
    call playerinit__PXv(4,'A0DM','A010')
    call playerinit__PXv(5,'A0DO','A017')
    call playerinit__PXv(6,'A014','A011')
    set vN[7*YA+6]=('A00L')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H006')
    set vN[7*YA]=('A00V')
    call playerinit__PXv(2,'A00X','A00W')
    call playerinit__PXv(3,'A016','A00Y')
    call playerinit__PXv(4,'A07H','A013')
    call playerinit__PXv(5,'A07D','A029')
    call playerinit__PXv(6,'A07L','A07J')
    set vN[7*YA+6]=('A07F')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01N')
    set vN[7*YA]=('A0N1')
    call playerinit__PXv(2,'A0AU','A0PN')
    call playerinit__PXv(3,'A0PQ','A0PS')
    call playerinit__PXv(4,'A0PR','A0PT')
    call playerinit__PXv(5,'A0PW','A0PZ')
    call playerinit__PXv(6,'A0PX','A0Q1')
    set vN[7*YA+6]=('A0PY')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H015')
    set vN[7*YA]=('A0GC')
    call playerinit__PXv(2,'A0GD','A0GE')
    call playerinit__PXv(3,'A0GI','A0GJ')
    call playerinit__PXv(4,'A0GK','A0GS')
    call playerinit__PXv(5,'A0GL','A0GN')
    call playerinit__PXv(6,'A0GM','A0GV')
    set vN[7*YA+6]=('A0GW')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H00Z')
    set vN[7*YA]=('A01N')
    call playerinit__PXv(2,'A0DI','A05W')
    call playerinit__PXv(3,'A0DG','A05Y')
    call playerinit__PXv(4,'A0DH','A060')
    call playerinit__PXv(5,'A0DJ','A061')
    call playerinit__PXv(6,'A0DK','A06A')
    set vN[7*YA+6]=('A06X')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01W')
    set vN[7*YA]=('A0XR')
    call playerinit__PXv(2,'A0YY','A0XS')
    call playerinit__PXv(3,'A0Z0','A0XT')
    call playerinit__PXv(4,'A0YS','A0XV')
    call playerinit__PXv(5,'A0ZC','A0XX')
    call playerinit__PXv(6,'A0Z7','A0XY')
    set vN[7*YA+6]=('A0XZ')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01V')
    set vN[7*YA]=('A100')
    call playerinit__PXv(2,'A0YW','A101')
    call playerinit__PXv(3,'A0YZ','A102')
    call playerinit__PXv(4,'A0Z4','A103')
    call playerinit__PXv(5,'A0ZD','A104')
    call playerinit__PXv(6,'A0Z8','A105')
    set vN[7*YA+6]=('A106')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01X')
    set vN[7*YA]=('A107')
    call playerinit__PXv(2,'A0YX','A108')
    call playerinit__PXv(3,'A0Z1','A109')
    call playerinit__PXv(4,'A0Z5','A10A')
    call playerinit__PXv(5,'A0ZB','A10B')
    call playerinit__PXv(6,'A0ZA','A10C')
    set vN[7*YA+6]=('A10D')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01Y')
    set vN[7*YA]=('A0Y6')
    call playerinit__PXv(2,'A0YQ','A0Y8')
    call playerinit__PXv(3,'A0YR','A0YA')
    call playerinit__PXv(4,'A0Z3','A0YE')
    call playerinit__PXv(5,'A0YT','A0YB')
    call playerinit__PXv(6,'A0YU','A0YC')
    set vN[7*YA+6]=('A0YF')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call playerinit__Pav('H01U')
    set vN[7*YA]=('A0YG')
    call playerinit__PXv(2,'A0YV','A0YH')
    call playerinit__PXv(3,'A0Z2','A0YI')
    call playerinit__PXv(4,'A0Z6','A0YJ')
    call playerinit__PXv(5,'A0ZE','A0YL')
    call playerinit__PXv(6,'A0Z9','A0YO')
    set vN[7*YA+6]=('A0YN')
    call SaveStr(BYHT,yA,WA[YA],(""))
    call RegisterEvent(EVENT_PLAYER_HERO_SKILL,function playerinit__Piv)
endfunction

function playerinit__PJv takes nothing returns nothing
    call ShowInterface(true,.75)
    call BJDebugMsg("|c00ffd700Double click to select Hero.")
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:313")
endfunction

function playerinit__Pkv takes string s returns nothing
    call SaveBoolean(BYHT,(BN),StringHashBY(s),true)
endfunction

function playerinit__PKv takes string s,string Plv returns nothing
    call SaveStr(BYHT,(cN),StringHashBY(s),Plv)
endfunction


function playerinit_PLv takes nothing returns nothing
    local integer i=16
    local integer j
    local boolean b=true
    set BN=malloc()
    set cN=malloc()
    call FogMaskEnable(true)
    call FogEnable(true)
    call SetFloatGameState(GAME_STATE_TIME_OF_DAY,3)
    call CameraSetSmoothingFactor(5)
    call SetPlayerHandicapXP(P[8],0)
    call SetPlayerHandicapXP(P[9],0)
    call SetPlayerHandicapXP(P[$A],0)
    call SetPlayerHandicapXP(P[$B],0)
    call ShowInterface(false,.1)
    call SaveBoolean(BYHT,(BN),StringHashBY(("放弃不在乎")),true)
    call SaveBoolean(BYHT,(BN),StringHashBY(("aa13016")),true)
    call SaveBoolean(BYHT,(BN),StringHashBY(("FFSJ_HBZY")),true)
    call SaveBoolean(BYHT,(BN),StringHashBY(("天地醉剑")),true)
    call SaveBoolean(BYHT,(BN),StringHashBY(("YUNA")),true)
    call SaveBoolean(BYHT,(BN),StringHashBY(("SunSSU")),true)
    call SaveBoolean(BYHT,(BN),StringHashBY(("Dynasty_Dark")),true)
    call playerinit__PKv("夏洛提亚","|cFF0099FF吓得我都飞了起来|r")
    call playerinit__PKv("Mr极光荣耀","|cFFFFFF00但求一睡君莫笑|r")
    call playerinit__PKv("黑色诡迹","|cFFFF0000圣灵第一|r")
    call playerinit__PKv("冰块的陷阱","|cFFFFFF00親愛なる主人|r")
    call playerinit__PKv("宛如青空灬","|cFFFF6633青空酱大胜利！|r")
    call playerinit__PKv("八云白莲","|cFFFF0000好棒！让我当你肉奴吧|r")
    call playerinit__PKv("孤城与王","|cFFCCCCCC脱非入欧|r")
    call playerinit__PKv("丶油水3000","|cFF993399我叫没的玩|r")
    call playerinit__PKv("lzx0601","|cFF000000孤独的封弊者|r")
    call playerinit__PKv("找唐林","|cFFFFFF33找不到唐林|r")
    call playerinit__PKv("孤独意志泪","|c00FF0000愚蠢的唐林|r")
    call playerinit__PKv("夜静待歌","|cFFFFFFFFTM熊的力量|r")
    call playerinit__PKv("往路丶","|cFFFFFFFF琪露诺最强|r")
    call playerinit__PKv("雨竹逸","|cFFFFFFFFTM鲸的力量|r")
    call playerinit__PKv("世界神054","|cFFFF0000补刀必黑|r")
    call playerinit__PKv("月神教教父","|cFFFFFF00点我ID充值鲸币|r")
    call playerinit__PKv("单车不迟到","|cFF9933FF骑车包邮，稳如泰山|r")
    call playerinit__PKv("DeachionGod","|cFFFFFF33Deach低调、奢华|r")
    //call playerinit__PKv("Wareditor","|cFFFFFF33Wareditor|r")
    call playerinit__PKv("q305395996","|cFFFF0000黑手大魔王|r")
    call playerinit__PKv("BCSG","|cFFFF0000撕逼旭你|r")
    call playerinit__PKv("666Crow666","|cFF009988ImmortalLegend|r")
    loop
        set i=i-1
        set P[i]=Player(i)
        set Game_PlayerName[i]=GetPlayerName(P[i])
        set Game_PlayerName[i+16]=""
        set j=StringHashBY(Game_PlayerName[i])
        if HaveSavedBoolean(BYHT,(BN),j)then
            call RemovePlayer(P[i],PLAYER_GAME_RESULT_DEFEAT)
        elseif GetPlayerSlotState(P[i])==PLAYER_SLOT_STATE_PLAYING and GetPlayerController(P[i])==MAP_CONTROL_USER then
            set b=i<8
            if b then
                set pV[i]=true
                set lV=lV+.025
                set Player_Count=Player_Count+1
                if HaveSavedString(BYHT,(cN),j)then
                    set Game_PlayerName[i+16]="|cffffffff["+LoadStr(BYHT,(cN),j)+"]|r"
                    call SetPlayerName(P[i],Game_PlayerName[i+16]+(system__kv[GetHandleId(GetPlayerColor((P[i])))])+Game_PlayerName[i]+"|r")
                endif
                call SetPlayerAlliance(P[i],P[8],ALLIANCE_PASSIVE,true)
                call SetPlayerAlliance(P[8],P[i],ALLIANCE_PASSIVE,true)
            endif
        elseif GetLocalPlayer()==P[i]then
            call FogMaskEnable(false)
            call FogEnable(false)
        endif
        exitwhen i==0
    endloop
    if b then
        call TimerStart((NewTimer(0)),3.5,false,function playerinit__PJv)
    endif
    call SetPlayerAlliance(P[8],P[$F],ALLIANCE_PASSIVE,true)
    call SetPlayerAlliance(P[$F],P[8],ALLIANCE_PASSIVE,true)
    call SetPlayerAlliance(P[$B],P[$C],ALLIANCE_PASSIVE,true)
    call SetPlayerAlliance(P[$C],P[$B],ALLIANCE_PASSIVE,true)
    call SetPlayerAlliance(P[$B],P[$F],ALLIANCE_PASSIVE,true)
    call SetPlayerAlliance(P[$F],P[$B],ALLIANCE_PASSIVE,true)
    call free(BN)
    call free(cN)
endfunction

function QJv takes integer i returns nothing
    set Bo[i]=null
    if mV[i]!=null then
        call DestroyFogModifier(mV[i])
        set mV[i]=null
        set mV[i+16]=null
    endif
endfunction

 //init hero

 function Qkv takes integer i returns nothing
    if GetLocalPlayer()==P[i]then
        call ResetToGameCamera(0)
        call SetCameraBoundsToRect(bj_mapInitialPlayableArea)
        call PanCameraToTimed(jV,JV,0)
        call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,$8CA,0)
        call ClearSelection()
        call SelectUnit(MV[i],true)
        call EnableDragSelect(true,true)
    endif
    if GetPlayerState(P[i],PLAYER_STATE_RESOURCE_GOLD)==0 then
        call SetPlayerStateG(P[i],PLAYER_STATE_RESOURCE_GOLD,100)
    endif
    call MultiboardSetItemValueBY(TV,i+1,1,GetUnitName(MV[i]))
    call MultiboardSetItemValueBY(TV,i+1,2,"1")
    call MultiboardSetItemStyleBY(TV,i+1,1,true,true)
    call MultiboardSetItemIconBY(TV,i+1,1,LoadStr(BYHT,Hero_Arc,kc[(GetUnitUserData((MV[i])))]))
    call MultiboardSetItemValueBY(TV,i+1,2,I2S(Tc[(GetUnitUserData((MV[i])))]))
    if HaveSavedInteger(BYHT,sg,(QV[i]))then
        call CreateBag(((GetUnitUserData((MV[i])))),QV[i])
    else
        call CreateBag(((GetUnitUserData((MV[i])))),0)
    endif
    call SetUnitState(MV[i],UNIT_STATE_MANA,GetUnitState(MV[i],UNIT_STATE_MAX_MANA))
    call SetPlayerAlliance(P[$F],P[i],ALLIANCE_SHARED_VISION,false)
    call DestroyFogModifier(mV[i])
    set mV[i+16]=CreateFogModifierRect(P[i],FOG_OF_WAR_VISIBLE,gg_rct_XSC___________000,false,false)
    set mV[i+32]=CreateFogModifierRect(P[i],FOG_OF_WAR_VISIBLE,gg_rct_BBMD______________000,false,false)
    call FogModifierStart(mV[i+16])
    call FogModifierStart(mV[i+32])
    set PlayerGameTimed[i+16]=R2I((100000.-TimerGetRemaining(GameTimer)))
    call QJv(i)
    set PV[i]=true
    set mV[i]=null
 endfunction


function QKv takes nothing returns nothing
    local integer i=8
    loop
        set i=i-1
        call QJv(i)
        call SetPlayerAlliance(P[$F],P[i],ALLIANCE_SHARED_VISION,false)
        exitwhen i==0
    endloop
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:314")
    call DestroyTimerDialog(bo)
    call DestroyTrigger(No)
    set No=null
    set bo=null
endfunction

 //create hero

 function Qlv takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local player p=GetTriggerPlayer()
    local integer i=GetPlayerId(p)
    local integer id
    local string n
    if IsPointInRect(GetUnitX(u),GetUnitY(u),gg_rct_YXMD_000)and not PV[i]then
        set id=GetUnitTypeId(u)
        if(100000.-TimerGetRemaining(GameTimer))>=Select_cd[i]then
            set Bo[i]=null
            set Select_cd[i]=(100000.-TimerGetRemaining(GameTimer))+.2
        endif
        if Bo[i]!=u then
            set Bo[i]=u
            if GetLocalPlayer()==p then
                call ClearTextMessages()
            endif
            if(LoadStr(BYHT,yA,(id)))!=null then
                call DisplayTimedTextToPlayer(p,0,0,$A,(LoadStr(BYHT,yA,(id))))
            endif
        else
            set MV[i]=CreateUnit(p,id,jV,JV,$E1)
            call DisplayTimedText("|c00ffff00"+GetPlayerName(p)+"|r|c006495ed: chose -|r "+GetUnitName(u),$A)
            call Qkv(i)
        endif
    endif
    set u=null
    set p=null
    return false
 endfunction


function QLv takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),300,false,function QKv)
    set bo=CreateTimerDialog(GetExpiredTimer())
    call TimerDialogSetTitle(bo,"New Hero")
    call TimerDialogDisplay(bo,true)
endfunction

function Mzv takes integer NNv returns nothing
    local integer i=6
    if Isaseniorbackpack(NNv)then
        set i=$C
    endif
    loop
        set i=i-1
        if HaveSavedInteger(BYHT2,(zI[NNv]),i)then
            call RemoveItemG(ConvertVersion(LoadInteger(BYHT2,(zI[NNv]),i)))
        endif
        exitwhen i==0
    endloop
    call RemoveUnitBJ((Je[YI[(NNv)]]),34)
    call free(zI[NNv])
    set zI[NNv]=0
    set YI[NNv]=0
endfunction

function Qmv takes nothing returns boolean
    local unit u=MV[GetPlayerId(GetTriggerPlayer())]
    local integer MFv
    if Player_Count>0 then
        set Player_Count=Player_Count-1
    endif
    if u!=null then
        set MFv=UnitInventorySize(u)
        set lV=lV-.025
        call MultiboardSetItemIconBY(TV,GetPlayerId(GetTriggerPlayer())+1,0,"|c00808080Left|r")
        loop
            exitwhen MFv==0
            set MFv=MFv-1
            if UnitItemInSlot(u,MFv)!=null then
                call RemoveItemG(UnitItemInSlot(u,MFv))
            endif
        endloop
        set MFv=8
        loop
            set MFv=MFv-1
            if MV[MFv]!=null then
                call RefreshHandicapXP(GetUnitUserData(MV[MFv]))
            endif
            exitwhen MFv==0
        endloop
        call GroupEnumUnitsOfPlayer(G3,GetOwningPlayer(u),null)
        call GroupRemoveUnit(G3,u)
        call Mzv(GetUnitUserData(u))
        call RemoveUnitBJ(u,35)
        loop
            set u=FirstOfGroup(G3)
            exitwhen u==null
            call GroupRemoveUnit(G3,u)
            if IsUnitType(u,UNIT_TYPE_MECHANICAL)then
                call KillUnit(u)
            endif
        endloop
    endif
    return false
endfunction

function QSv takes nothing returns nothing
    local trigger gzv=CreateTrigger()
    local integer i=8
    call TimerStart((NewTimer(0)),.0,false,function QLv)
    loop
        set i=i-1
        if pV[i]then
            set mV[i]=CreateFogModifierRect(P[i],FOG_OF_WAR_VISIBLE,gg_rct_YXMD_000,true,false)
            call TriggerRegisterPlayerUnitEvent(No,P[i],EVENT_PLAYER_UNIT_SELECTED,null)
            call TriggerRegisterPlayerEvent(gzv,P[i],EVENT_PLAYER_LEAVE)
            call FogModifierStart(mV[i])
        endif
        exitwhen i==0
    endloop
    call FogMaskEnable(true)
    call FogEnable(true)
    call EnableDragSelect(false,true)
    call SetMapFlag(MAP_FOG_HIDE_TERRAIN,true)
    call PanCameraToTimed(GetRectCenterX(gg_rct_YXMD_000),GetRectCenterY(gg_rct_YXMD_000),0)
    call TriggerAddCondition(gzv,Filter(function Qmv))
    call TriggerAddCondition(No,Filter(function Qlv))
    set gzv=null
endfunction

function GetPlayerName2 takes player p returns string
    local integer i=GetPlayerId(p)
    return Game_PlayerName[i+16]+(system__kv[GetHandleId(GetPlayerColor((p)))])+Game_PlayerName[i]+"|r"
endfunction

function PlayerChatEvent_2 takes nothing returns boolean
    local integer id=GetPlayerId(GetTriggerPlayer())
    local string s=GetEventPlayerChatString()
    if DisplayChatopen[id]then
        if s=="-ofopen" then
            set DisplayChatopen[id]=false
        endif
    else
        if s=="-open" then
            set DisplayChatopen[id]=true
        endif
    endif
    if DisplayChatopen[GetPlayerId(GetLocalPlayer())]then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,$A,GetPlayerName2(GetTriggerPlayer())+": "+s)
    endif
    return false
endfunction

function PlayerChatEvent_1 takes nothing returns nothing
    local integer i=0
    local trigger trig=CreateTrigger()
    loop
        call TriggerRegisterPlayerChatEvent(trig,Player(i),"",false)
        set i=i+1
        exitwhen i>$B
    endloop
    call TriggerAddCondition(trig,Condition(function PlayerChatEvent_2))
endfunction

function playerinit_onInit takes nothing returns nothing
    call ExecuteFunc("playerinit_PLv")
    call playerinit__PAv()
    call QSv()
    call PlayerChatEvent_1()
endfunction

function CMe takes nothing returns integer
    local integer this=wt[0]
    if(this==0)then
        set Ut=Ut+1
        set this=Ut
    else
        set wt[0]=wt[this]
    endif
    return this
endfunction

function Cpe takes unit u,integer Bcv returns nothing
    local integer NNv=LoadInteger(BYHT,Yt,Bcv)
    if NNv!=0 and jc[(GetUnitUserData((u)))]and HaveSavedString(BYHT,(Wt[NNv]),kc[(GetUnitUserData((u)))])then
        call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,$A,"
        "+GetUnitName(u)+"|c00ffff80 exclusive effect - "+LoadStr(BYHT,(Wt[NNv]),kc[(GetUnitUserData((u)))]))

        call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",u,"origin"))
    endif
endfunction

function CPe takes integer Cqe returns nothing
    set vT=Cqe
endfunction

function SetExclusiveName takes string text returns nothing
    set ExclusiveName="|c00abfcda"+text+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

endfunction

function SetExclusiveNameByCustom takes string text returns nothing
    set ExclusiveName=text
endfunction

function WriteExclusiveTip takes string text returns nothing
    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+text+"|r
    "

endfunction

function EndExclusiveTip takes nothing returns nothing
    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
endfunction

function StartExclusiveTip takes integer Bcv returns nothing
    if HaveSavedInteger(BYHT,Yt,Bcv)then
        set zt=LoadInteger(BYHT,Yt,Bcv)
    else
        set zt=CMe()
        set Wt[zt]=malloc()
        set yt[zt]=Bcv
        call SaveInteger(BYHT,Yt,Bcv,zt)
    endif
    set ExclusiveName=""
    set ExclusiveTip=""
endfunction

function zhuanshu__Init2 takes nothing returns nothing
    set Yt=malloc()
    set vT=('H000')
    call StartExclusiveTip('sbch')
    set ExclusiveName="|c00abfcda"+("魔力护盾 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("魔力护盾破碎时会清除周围敌对单位的护盾效果并给与周围队友单位额外的25%生命值恢复效果.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('Hmkg')
    call StartExclusiveTip('I0D9')
    set ExclusiveName="|c00abfcda"+("死亡凋零 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("持续性伤害 20%, 魔法防御力减少数值 4% 提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H003')
    call StartExclusiveTip('afac')
    set ExclusiveName="|c00abfcda"+("创世纪 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("持续时间 1秒增加, 每次闪光几率给予敌人造成额外伤害.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    call StartExclusiveTip('cnhn')
    set ExclusiveName="|c00abfcda"+("创世纪 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("持续时间 1秒增加, 每道波几率给予敌人造成额外伤害.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('Hblm')
    call StartExclusiveTip('hcun')
    set ExclusiveName="|c00abfcda"+("元素之力 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("元素之力加成的全属性和攻击力提高 50% 其他相关技能也得到增幅")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H001')
    call StartExclusiveTip('penr')
    set ExclusiveName="|c00abfcda"+("恩赐解脱 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("连续使用次数 1次提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H004')
    call StartExclusiveTip('kpin')
    set ExclusiveName="|c00abfcda"+("伏击 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("若在施法时当前生命值低于20%，那么将获得最到生命值15%的生命恢复")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("强化BUFF，普攻增加12%额外伤害，持续时间内技能伤害提高6%.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H004')
    call StartExclusiveTip('penr')
    set ExclusiveName="|c00abfcda"+("暗影风暴 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("增加一个暗影风暴区域.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00E')
    call StartExclusiveTip('clsd')
    set ExclusiveName="|c00abfcda"+("超越·风之信仰 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("持续时间内免疫部分秒杀效果，并且自身所受所有伤害-20%.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00E')
    call StartExclusiveTip('I0D4')
    set ExclusiveName="|c00abfcda"+("超越极限 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("超越·风之信仰 持续时间增加1秒.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00E')
    call StartExclusiveTip('sor5')
    set ExclusiveName="|c00abfcda"+("超越极限Lv.2 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("超越·风之信仰 持续时间增加2秒.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00Z')
    call StartExclusiveTip('rin1')
    set ExclusiveName="|c00abfcda"+("流星箭雨 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("施法时召唤4支箭矢轰击目标.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00Z')
    call StartExclusiveTip('rde2')
    set ExclusiveName="|c00abfcda"+("心有灵犀 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("流星箭雨技能增强.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00Z')
    call StartExclusiveTip('bspd')
    set ExclusiveName="|c00abfcda"+("凛冰散射 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("连续施法时 召唤强力的冰冻箭矢.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00Z')
    call StartExclusiveTip('tkno')
    set ExclusiveName="|c00abfcda"+("凛冰散射 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("连续施法时 召唤极强力的冰冻箭矢.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00Z')
    call StartExclusiveTip('sbok')
    set ExclusiveName="|c00abfcda"+("苍天神佑 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("缩短自然庇佑和风暴之力CD.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H015')
    call StartExclusiveTip('sor9')
    set ExclusiveName="|c00abfcda"+("诅咒之箭 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("狙击手的绝命狙击伤害15%提高，命中目标后给予目标4秒沉默阻止施法.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H015')
    call StartExclusiveTip('I0CU')
    set ExclusiveName="|c00abfcda"+("爆炎 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("爆裂箭矢强化：充能次数额外加1，持续时间内移动速度上升")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("泯灭·血海轮回强化：攻击释放箭矢增加3")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H015')
    call StartExclusiveTip('I0E6')
    set ExclusiveName="|c00abfcda"+("爆炎LV2 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00abfcda爆裂箭矢|r 强化")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("爆裂箭矢填充数量+2")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00abfcda绝命狙击|r 强化")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("绝命狙击附加爆裂箭矢时伤害+10% ")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H007')
    call StartExclusiveTip('rej5')
    set ExclusiveName="|c00abfcda"+("深渊庇佑 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("释放技能和治疗时增强盟军给予深渊之力暗属性，")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("同时增强召唤物，使下次攻击附加深渊之力暗属性.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H007')
    call StartExclusiveTip('I0ED')
    set ExclusiveName="|c00abfcda"+("圣光的祝福 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00abfcda神圣之光|r 强化")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("使用神圣之光对敌人造成伤害时额外附加1秒的眩晕效果")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00abfcda咏叹·天神领域|r 强化")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("咏叹·天神领域效果范围增加30%持续时间+5秒")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H008')
    call StartExclusiveTip('rwiz')
    set ExclusiveName="|c00abfcda"+("咆哮的灵魂 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("激活亚马罗斯的技能-咆哮的灵魂.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H002')
    call StartExclusiveTip('I0B4')
    set ExclusiveName="|c00abfcda"+("冰川护甲 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("冰川护甲爆炸半径增加，并给予智力x40的追加伤害.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H002')
    call StartExclusiveTip('I0D1')
    set ExclusiveName="|c00abfcda"+("冰霜之手 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("冰霜碎片: 如果该单位被冻结，则受到的伤害 350%-500%提高")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("冰霜新星: 如果该单位被减速，所受伤害100%提高。若单位被冻结，冻结时间提高0.5秒")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("永恒·冰河世纪: 冰冻后的伤害提高15%-20%")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H002')
    call StartExclusiveTip('dkfw')
    set ExclusiveName="|c00abfcda"+("永恒冻结")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00abfcda冰河宝珠|r 强化 |c00ffff80激活|r")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("冰河宝珠减速范围+30% 击碎冰河宝珠是伤害+30% ")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00abfcda永恒·冰河世纪|r 强化")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("释放永恒·冰河世纪 是冻结持续时间+3秒 并增加自身1000点智力 持续5秒")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H006')
    call StartExclusiveTip('lhst')
    set ExclusiveName="|c00abfcda"+("月神赐福 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("施法后5秒内提高技能伤害10%、每秒生命恢复速度+100（可叠加）.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H006')
    call StartExclusiveTip('k3m3')
    set ExclusiveName="|c00abfcda"+("天谴·祈愿流星 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("伤害提高8%，持续时间提高2秒.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01N')
    call StartExclusiveTip('odef')
    set ExclusiveName="|c00abfcda"+("温顺驭风术 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("风神祝福/风神挽歌精灵生成概率5% 提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01N')
    call StartExclusiveTip('rej6')
    set ExclusiveName="|c00abfcda"+("风的呐喊 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("风神祝福/风神挽歌精灵生成概率5% 提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01N')
    call StartExclusiveTip('lhst')
    set ExclusiveName="|c00abfcda"+("仙女祝福 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("释放抃风儛润技能时触发 最多生命值15%恢复.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H009')
    call StartExclusiveTip('odef')
    set ExclusiveName="|c00abfcda"+("温顺驭风术 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("风神祝福/风神挽歌精灵生成概率5% 提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H009')
    call StartExclusiveTip('rej6')
    set ExclusiveName="|c00abfcda"+("温顺驭风术 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("风神祝福/风神挽歌精灵生成概率5% 提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00J')
    call StartExclusiveTip('bzbe')
    set ExclusiveName="|c00abfcda"+("魔力溢满 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("增加巫术师魔法恢复速度 50%, [释放：恶魔之书]: 技能伤害50% 提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01I')
    call StartExclusiveTip('I0CG')
    set ExclusiveName="|c00abfcda"+("药剂炼制 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("各药剂生成概率 3%的提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01I')
    call StartExclusiveTip('evtl')
    set ExclusiveName="|c00abfcda"+("鹰之炼金 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("当使用个元素之力时各药剂生成概率 10%的提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01I')
    call StartExclusiveTip('I082')
    set ExclusiveName="|c00abfcda"+("熔岩傀儡 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("熔岩傀儡增大, 生命值和魔法值15%同时提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01I')
    call StartExclusiveTip('I0DH')
    set ExclusiveName="|c00abfcda"+("熔岩傀儡 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("熔岩傀儡增大, 生命值和魔法值5000 + 15%同时提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H01I')
    call StartExclusiveTip('I0DI')
    set ExclusiveName="|c00abfcda"+("熔岩傀儡 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("熔岩傀儡增大, 生命值和魔法值7500 + 20%同时提升. 给予熔岩傀儡周围友军恢复速度提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H005')
    call StartExclusiveTip('srtl')
    set ExclusiveName="|c00abfcda"+("火焰增幅 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("释放圣炎球时伤害 75%提升.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00H')
    call StartExclusiveTip('I0C9')
    set ExclusiveName="|c00abfcda"+("狂暴 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("狂暴持续时间内免疫秒杀伤害.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H00H')
    call StartExclusiveTip('I0FC')
    set ExclusiveName="|c00abfcda"+("狂暴Lv2 强化 |c00ffff80激活|r")+"|r |c00ffff80激活|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("狂暴持续时间内免疫秒杀伤害持续时间内额外增加自身15%技能伤害.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H005')
    call StartExclusiveTip('I0DR')
    set ExclusiveName=("|c00abfcda陨石碎片 强化|r |c00ffff80激活|r
    ")

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("释放陨石碎片时碎片数量+3并增加5%伤害.")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00abfcda降临·圣焱劫星|r 强化|r |c00ffff80激活|r")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("降临·圣焱劫星陨石爆炸时伤害10%并增加300码的范围.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
endfunction

function zhuanshu__kFv takes integer c,integer id returns nothing
    call SaveInteger(BYHT,kR,id,c)
endfunction

function zhuanshu__Init1 takes nothing returns nothing
    set kR=malloc()
    call zhuanshu__kFv(1,'I01X')
    call zhuanshu__kFv(1,'I0GE')
    call zhuanshu__kFv(1,'I02L')
    call zhuanshu__kFv(1,'I03J')
    call zhuanshu__kFv(1,'I03N')
    call zhuanshu__kFv(1,'I03W')
    call zhuanshu__kFv(1,'I03Y')
    call zhuanshu__kFv(1,'I048')
    call zhuanshu__kFv(1,'I06Y')
    call zhuanshu__kFv(1,'I077')
    call zhuanshu__kFv(1,'I0A5')
    call zhuanshu__kFv(1,'I0BL')
    call zhuanshu__kFv(1,'I0H8')
    call zhuanshu__kFv(2,'I0GF')
    call zhuanshu__kFv(2,'I026')
    call zhuanshu__kFv(2,'I037')
    call zhuanshu__kFv(2,'I03E')
    call zhuanshu__kFv(2,'I03S')
    call zhuanshu__kFv(2,'I05O')
    call zhuanshu__kFv(2,'I042')
    call zhuanshu__kFv(2,'I05B')
    call zhuanshu__kFv(2,'I06Z')
    call zhuanshu__kFv(2,'I079')
    call zhuanshu__kFv(2,'I0A6')
    call zhuanshu__kFv(2,'I0BM')
    call zhuanshu__kFv(2,'I0GF')
    call zhuanshu__kFv(2,'I0CH')
    call zhuanshu__kFv(2,'I0BM')
    call zhuanshu__kFv(2,'I0FP')
    call zhuanshu__kFv(3,'I07B')
    call zhuanshu__kFv(3,'I07I')
    call zhuanshu__kFv(3,'I07J')
    call zhuanshu__kFv(3,'I080')
    call zhuanshu__kFv(3,'I086')
    call zhuanshu__kFv(3,'I08H')
    call zhuanshu__kFv(3,'I0CN')
    call zhuanshu__kFv(3,'kpin')
    call zhuanshu__kFv(3,'gobm')
    call zhuanshu__kFv(3,'gopr')
    call zhuanshu__kFv(3,'rat3')
    call zhuanshu__kFv(3,'sor3')
    call zhuanshu__kFv(4,'I0GC')
    call zhuanshu__kFv(4,'I01Y')
    call zhuanshu__kFv(4,'I02M')
    call zhuanshu__kFv(4,'I03K')
    call zhuanshu__kFv(4,'I03O')
    call zhuanshu__kFv(4,'I055')
    call zhuanshu__kFv(4,'I044')
    call zhuanshu__kFv(4,'I05C')
    call zhuanshu__kFv(4,'I070')
    call zhuanshu__kFv(4,'I078')
    call zhuanshu__kFv(4,'I07R')
    call zhuanshu__kFv(4,'I07S')
    call zhuanshu__kFv(4,'I081')
    call zhuanshu__kFv(4,'I085')
    call zhuanshu__kFv(4,'I08G')
    call zhuanshu__kFv(4,'I0A7')
    call zhuanshu__kFv(4,'I0BN')
    call zhuanshu__kFv(4,'I0C9')
    call zhuanshu__kFv(4,'afac')
    call zhuanshu__kFv(4,'ajen')
    call zhuanshu__kFv(4,'bgst')
    call zhuanshu__kFv(4,'ckng')
    call zhuanshu__kFv(4,'cnhn')
    call zhuanshu__kFv(4,'gmfr')
    call zhuanshu__kFv(4,'hcun')
    call zhuanshu__kFv(4,'pgin')
    call zhuanshu__kFv(4,'phlt')
    call zhuanshu__kFv(4,'rhth')
    call zhuanshu__kFv(4,'sehr')
    call zhuanshu__kFv(4,'shcw')
    call zhuanshu__kFv(4,'sorf')
    call zhuanshu__kFv(4,'thle')
    call zhuanshu__kFv(4,'I00E')
    call zhuanshu__kFv(4,'I0DU')
    call zhuanshu__kFv(4,'I0DV')
    call zhuanshu__kFv(4,'I0DZ')
    call zhuanshu__kFv(4,'I0FC')
    call zhuanshu__kFv(5,'spsh')
    call zhuanshu__kFv(5,'lgdh')
    call zhuanshu__kFv(5,'I0GI')
    call zhuanshu__kFv(5,'I0GK')
    call zhuanshu__kFv(5,'I02G')
    call zhuanshu__kFv(5,'I03B')
    call zhuanshu__kFv(5,'I03I')
    call zhuanshu__kFv(5,'I03R')
    call zhuanshu__kFv(5,'I03X')
    call zhuanshu__kFv(5,'I040')
    call zhuanshu__kFv(5,'I049')
    call zhuanshu__kFv(5,'I074')
    call zhuanshu__kFv(5,'I07D')
    call zhuanshu__kFv(5,'I07K')
    call zhuanshu__kFv(5,'I07U')
    call zhuanshu__kFv(5,'I07W')
    call zhuanshu__kFv(5,'I088')
    call zhuanshu__kFv(5,'I08C')
    call zhuanshu__kFv(5,'I02H')
    call zhuanshu__kFv(5,'I03C')
    call zhuanshu__kFv(5,'I03L')
    call zhuanshu__kFv(5,'I03U')
    call zhuanshu__kFv(5,'I054')
    call zhuanshu__kFv(5,'I046')
    call zhuanshu__kFv(5,'I05F')
    call zhuanshu__kFv(5,'I075')
    call zhuanshu__kFv(5,'I07E')
    call zhuanshu__kFv(5,'I07O')
    call zhuanshu__kFv(5,'I07N')
    call zhuanshu__kFv(5,'I07X')
    call zhuanshu__kFv(5,'I07Y')
    call zhuanshu__kFv(5,'I089')
    call zhuanshu__kFv(5,'I08R')
    call zhuanshu__kFv(5,'I0A1')
    call zhuanshu__kFv(5,'I0A3')
    call zhuanshu__kFv(5,'I0AD')
    call zhuanshu__kFv(5,'I08X')
    call zhuanshu__kFv(5,'I06D')
    call zhuanshu__kFv(5,'I0BU')
    call zhuanshu__kFv(5,'I0BW')
    call zhuanshu__kFv(5,'I0C0')
    call zhuanshu__kFv(5,'I0C4')
    call zhuanshu__kFv(5,'I0C6')
    call zhuanshu__kFv(5,'I0CO')
    call zhuanshu__kFv(5,'I0CP')
    call zhuanshu__kFv(5,'I0CR')
    call zhuanshu__kFv(5,'azhr')
    call zhuanshu__kFv(5,'clsd')
    call zhuanshu__kFv(5,'dthb')
    call zhuanshu__kFv(5,'esaz')
    call zhuanshu__kFv(5,'jpnt')
    call zhuanshu__kFv(5,'k3m1')
    call zhuanshu__kFv(5,'ktrm')
    call zhuanshu__kFv(5,'rde3')
    call zhuanshu__kFv(5,'sbch')
    call zhuanshu__kFv(5,'I00C')
    call zhuanshu__kFv(5,'sor5')
    call zhuanshu__kFv(5,'I0E0')
    call zhuanshu__kFv(5,'I0E1')
    call zhuanshu__kFv(5,'I0F9')
    call zhuanshu__kFv(5,'moon')
    call zhuanshu__kFv(5,'pinv')
    call zhuanshu__kFv(6,'I02F')
    call zhuanshu__kFv(6,'I038')
    call zhuanshu__kFv(6,'I03H')
    call zhuanshu__kFv(6,'I03T')
    call zhuanshu__kFv(6,'I05J')
    call zhuanshu__kFv(6,'I045')
    call zhuanshu__kFv(6,'I05D')
    call zhuanshu__kFv(6,'I071')
    call zhuanshu__kFv(6,'I07A')
    call zhuanshu__kFv(6,'I07T')
    call zhuanshu__kFv(6,'I07Q')
    call zhuanshu__kFv(6,'I082')
    call zhuanshu__kFv(6,'I087')
    call zhuanshu__kFv(6,'I08I')
    call zhuanshu__kFv(6,'I08M')
    call zhuanshu__kFv(6,'I096')
    call zhuanshu__kFv(6,'I0A2')
    call zhuanshu__kFv(6,'I0A8')
    call zhuanshu__kFv(6,'I0AJ')
    call zhuanshu__kFv(6,'I0BP')
    call zhuanshu__kFv(6,'I0CA')
    call zhuanshu__kFv(6,'I0CC')
    call zhuanshu__kFv(6,'I0CM')
    call zhuanshu__kFv(6,'I0DH')
    call zhuanshu__kFv(6,'I0DI')
    call zhuanshu__kFv(6,'belv')
    call zhuanshu__kFv(6,'kybl')
    call zhuanshu__kFv(6,'sksh')
    call zhuanshu__kFv(6,'ram4')
    call zhuanshu__kFv(6,'ratf')
    call zhuanshu__kFv(6,'rat6')
    call zhuanshu__kFv(6,'rde4')
    call zhuanshu__kFv(6,'rej4')
    call zhuanshu__kFv(6,'rej5')
    call zhuanshu__kFv(6,'rwiz')
    call zhuanshu__kFv(6,'hval')
    call zhuanshu__kFv(6,'I02J')
    call zhuanshu__kFv(6,'I0GB')
    call zhuanshu__kFv(6,'I0GH')
    call zhuanshu__kFv(6,'I0GJ')
    call zhuanshu__kFv(6,'I039')
    call zhuanshu__kFv(6,'I03F')
    call zhuanshu__kFv(6,'I03Q')
    call zhuanshu__kFv(6,'I05E')
    call zhuanshu__kFv(6,'I041')
    call zhuanshu__kFv(6,'I059')
    call zhuanshu__kFv(6,'I072')
    call zhuanshu__kFv(6,'I07C')
    call zhuanshu__kFv(6,'I07L')
    call zhuanshu__kFv(6,'I083')
    call zhuanshu__kFv(6,'I08D')
    call zhuanshu__kFv(6,'I02I')
    call zhuanshu__kFv(6,'I03D')
    call zhuanshu__kFv(6,'I03M')
    call zhuanshu__kFv(6,'I03V')
    call zhuanshu__kFv(6,'I05M')
    call zhuanshu__kFv(6,'I047')
    call zhuanshu__kFv(6,'I05G')
    call zhuanshu__kFv(6,'I076')
    call zhuanshu__kFv(6,'I07F')
    call zhuanshu__kFv(6,'I07M')
    call zhuanshu__kFv(6,'I07P')
    call zhuanshu__kFv(6,'I084')
    call zhuanshu__kFv(6,'I08E')
    call zhuanshu__kFv(6,'I0A4')
    call zhuanshu__kFv(6,'I0AE')
    call zhuanshu__kFv(6,'I0AV')
    call zhuanshu__kFv(6,'I0BV')
    call zhuanshu__kFv(6,'I0BX')
    call zhuanshu__kFv(6,'I0CL')
    call zhuanshu__kFv(6,'I0CS')
    call zhuanshu__kFv(6,'ches')
    call zhuanshu__kFv(6,'dkfw')
    call zhuanshu__kFv(6,'lhst')
    call zhuanshu__kFv(6,'rump')
    call zhuanshu__kFv(6,'sor6')
    call zhuanshu__kFv(6,'sor7')
    call zhuanshu__kFv(6,'sor8')
    call zhuanshu__kFv(6,'ward')
    call zhuanshu__kFv(6,'will')
    call zhuanshu__kFv(6,'wtlg')
    call zhuanshu__kFv(6,'I009')
    call zhuanshu__kFv(6,'I00D')
    call zhuanshu__kFv(6,'I0DR')
    call zhuanshu__kFv(6,'I0FA')
    call zhuanshu__kFv(6,'I0F8')
    call zhuanshu__kFv(6,'I0E9')
    call zhuanshu__kFv(6,'I0F3')
    call zhuanshu__kFv(6,'I0E4')
    call zhuanshu__kFv(6,'I0FL')
    call zhuanshu__kFv(6,'tret')
    call zhuanshu__kFv(7,'prvt')
    call zhuanshu__kFv(7,'I09C')
    call zhuanshu__kFv(7,'I0GD')
    call zhuanshu__kFv(7,'I09B')
    call zhuanshu__kFv(7,'I09H')
    call zhuanshu__kFv(7,'I09K')
    call zhuanshu__kFv(7,'I09J')
    call zhuanshu__kFv(7,'I09I')
    call zhuanshu__kFv(7,'I09L')
    call zhuanshu__kFv(7,'I09E')
    call zhuanshu__kFv(7,'I09F')
    call zhuanshu__kFv(7,'I09D')
    call zhuanshu__kFv(7,'I09M')
    call zhuanshu__kFv(7,'I09O')
    call zhuanshu__kFv(7,'I09Q')
    call zhuanshu__kFv(7,'I09P')
    call zhuanshu__kFv(7,'I09S')
    call zhuanshu__kFv(7,'I09T')
    call zhuanshu__kFv(7,'I0A9')
    call zhuanshu__kFv(7,'I0BO')
    call zhuanshu__kFv(7,'I0CU')
    call zhuanshu__kFv(7,'I0D6')
    call zhuanshu__kFv(7,'bspd')
    call zhuanshu__kFv(7,'rde2')
    call zhuanshu__kFv(7,'rin1')
    call zhuanshu__kFv(7,'sbok')
    call zhuanshu__kFv(7,'skrt')
    call zhuanshu__kFv(7,'sor9')
    call zhuanshu__kFv(7,'tkno')
    call zhuanshu__kFv(7,'I05H')
    call zhuanshu__kFv(7,'I0E5')
    call zhuanshu__kFv(7,'I0EC')
    call zhuanshu__kFv(7,'I0F7')
    call zhuanshu__kFv(8,'I067')
    call zhuanshu__kFv(8,'I08L')
    call zhuanshu__kFv(8,'I05U')
    call zhuanshu__kFv(8,'I098')
    call zhuanshu__kFv(8,'I0BQ')
    call zhuanshu__kFv(8,'I0C1')
    call zhuanshu__kFv(8,'I0C9')
    call zhuanshu__kFv(8,'kysn')
    call zhuanshu__kFv(8,'pmna')
    call zhuanshu__kFv(8,'ratc')
    call zhuanshu__kFv(8,'tgxp')
    call zhuanshu__kFv(8,'I0DT')
    call zhuanshu__kFv(8,'I0DX')
    call zhuanshu__kFv(8,'I0E2')
    call zhuanshu__kFv(8,'I0E7')
    call zhuanshu__kFv(8,'I0EV')
    call zhuanshu__kFv(8,'I0EW')
    call zhuanshu__kFv(8,'I0FM')
    call zhuanshu__kFv(8,'I0HO')
    call zhuanshu__kFv(8,'I0CT')
    call zhuanshu__kFv(8,'I0H8')
    call zhuanshu__kFv(9,'odef')
    call zhuanshu__kFv(9,'rej6')
    call zhuanshu__kFv(9,'I0HP')
    call zhuanshu__kFv($A,'I0H0')
    call zhuanshu__kFv($A,'I0H1')
    call zhuanshu__kFv($A,'I0GY')
    call zhuanshu__kFv($A,'I0HO')
    call zhuanshu__kFv($A,'I0GZ')
    call zhuanshu__kFv($A,'I0GT')
    call zhuanshu__kFv($A,'I0GU')
    call zhuanshu__kFv($A,'I0GA')
    call zhuanshu__kFv($A,'I0GG')
    call zhuanshu__kFv($A,'I0GS')
    call zhuanshu__kFv($A,'I0GX')
    call zhuanshu__kFv($A,'I0GW')
    call zhuanshu__kFv($A,'I0GV')
    call zhuanshu__kFv($A,'skul')
    call zhuanshu__kFv($A,'tcas')
    call zhuanshu__kFv($A,'tsct')
    call zhuanshu__kFv($A,'plcl')
    call zhuanshu__kFv($A,'vamp')
    call zhuanshu__kFv($A,'shas')
    call zhuanshu__kFv($A,'rnec')
    call zhuanshu__kFv($A,'I0H2')
    call zhuanshu__kFv($B,'I0CB')
endfunction

function kGv takes integer khv,integer kHv returns boolean
    local integer i
    local integer k
    if HaveSavedInteger(BYHT,kR,kHv)then
        set i=LoadInteger(BYHT,kR,kHv)
        if HaveSavedInteger(BYHT,kR_v,khv)then
            set k=LoadInteger(BYHT,kR_v,khv)
            return ModuloInteger(k/ Pow2n[i],2)==1
        endif
    endif
    return true
endfunction

function zhuanshu__Init3 takes nothing returns nothing
    set kR_v=malloc()
    call SaveInteger(BYHT,kR_v,'H000',Pow2n[4]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H001',Pow2n[1]+Pow2n[3]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H002',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H003',Pow2n[4]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H004',Pow2n[1]+Pow2n[3]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H005',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H006',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H007',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H008',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H009',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H00E',Pow2n[2]+Pow2n[3]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H00H',Pow2n[4]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H00J',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H00Z',Pow2n[5]+Pow2n[7]+Pow2n[9]+Pow2n[$B])
    call SaveInteger(BYHT,kR_v,'H015',Pow2n[5]+Pow2n[7]+Pow2n[9]+Pow2n[$B])
    call SaveInteger(BYHT,kR_v,'H01H',Pow2n[1]+Pow2n[3]+Pow2n[4]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H01I',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H01N',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H01U',Pow2n[2]+Pow2n[3]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H01V',Pow2n[1]+Pow2n[3]+Pow2n[4]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H01W',Pow2n[5]+Pow2n[$A]+Pow2n[$B]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H01X',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'H01Y',Pow2n[6]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'Hblm',Pow2n[4]+Pow2n[5]+Pow2n[8]+Pow2n[9])
    call SaveInteger(BYHT,kR_v,'Hmkg',Pow2n[4]+Pow2n[5]+Pow2n[8]+Pow2n[9])
endfunction

function zhuanshu__onInit takes nothing returns nothing
    call zhuanshu__Init1()
    call zhuanshu__Init2()
    call zhuanshu__Init3()
endfunction

function GetEquipType takes integer itemid returns integer
    return LoadInteger(BYHT,Equip_Type_t,itemid)
endfunction

function GetEquipModelName takes integer itemid returns string
    return LoadStr(BYHT,(Equip_Mode_t),2*itemid)
endfunction

function GetEquipModelAddName takes integer itemid returns string
    return LoadStr(BYHT,(Equip_Mode_t),2*itemid+1)
endfunction

function IsEquipLv takes integer itemid,integer lv returns boolean
    return lv>=(LoadInteger(BYHT,Equip_Lv_t,itemid))
endfunction

function EquipAppModel takes integer u,integer itemid,boolean b returns nothing
    local integer slot=EquipSlot[u]
    local integer typeid
    local integer key
    local string s
    local string a
    if slot==null then
        return
    endif
    set typeid=LoadInteger(BYHT,Equip_Type_t,itemid)
    set key=EquipSlot_id_f[slot]+typeid
    if EquipModel[key]!=0 then
        call DestroyEffectBY(EquipModel[key])
        set EquipModel[key]=0
    endif
    if EquipSlot_Use[key]and b then
        set s=(LoadStr(BYHT,(Equip_Mode_t),2*(itemid)))
        set a=(LoadStr(BYHT,(Equip_Mode_t),2*(itemid)+1))
        set EquipModel[key]=(s__Effect_build(AddSpecialEffectTarget((s),((Je[(u)])),(a))))
    endif
endfunction

function IsEquipSlotUse takes integer data,integer itemid,boolean SDv returns boolean
    local integer slot=EquipSlot[data]
    local integer key=EquipSlot_id_f[slot]+LoadInteger(BYHT,Equip_Type_t,itemid)
    local boolean b=EquipSlot_Use[key]
    if SDv!=b then
        if SDv then
            set EquipSlot_id[key]=itemid
            call SaveBoolean(BYHT,EquipSlot_R[slot],itemid,true)
            call SaveInteger(BYHT2,EquipSlot_R[slot],itemid,GetHandleId(LasManipulatedEquip))
        else
            if EquipSlot_id[key]==itemid then
                set EquipSlot_id[key]=0
                call RemoveSavedBoolean(BYHT,EquipSlot_R[slot],itemid)
                call RemoveSavedInteger(BYHT2,EquipSlot_R[slot],itemid)
            else
                return false
            endif
        endif
        set EquipSlot_Use[key]=SDv
    endif
    return b
endfunction

function GetHeroEquipSlot takes integer id,integer i returns integer
    local integer slot=EquipSlot[id]
    if slot==0 or i<0 or i>=EquipSlot_id_z then
        return 0
    endif
    return EquipSlot_id[EquipSlot_id_f[slot]+i]
endfunction

function HeroHasEquipOfType takes integer data,integer itemid returns boolean
    return LoadBoolean(BYHT,EquipSlot_R[EquipSlot[data]],itemid)
endfunction

function GetEquipOfTypeFromHero takes integer data,integer itemid returns item
    return ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[data]],itemid))
endfunction

function UnitDiscardeditems takes unit u,item i returns nothing
    set sr=false
    call UnitRemoveItem(u,i)
    set sr=true
endfunction

function IsChargedItem takes unit u,item s returns nothing
    local integer MFv=UnitInventorySize(u)
    local integer i=GetItemTypeIdG(s)
    local item mkv
    local integer yav
    local integer data
    loop
        set MFv=MFv-1
        set mkv=UnitItemInSlot(u,MFv)
        if GetItemTypeIdG(mkv)==i and mkv!=s then
            call SetItemChargesG(mkv,GetItemChargesG(mkv)+GetItemChargesG(s))
            if LoadBoolean(BYHT,Item_save_Charges,i)then
                call ExtendsItemChargesG(mkv,s)
            endif
            call RemoveItemG(s)
            set mkv=null
            return
        endif
        exitwhen MFv==0
    endloop
    if GetUnitAbilityLevel(u,'A04P')>0 then
        set yav=(GetUnitUserData((MV[GetPlayerId(GetOwningPlayer(u))])))
        if Isaseniorbackpack(yav)then
            set MFv=$C
        else
            set MFv=6
        endif
        loop
            set MFv=MFv-1
            if HaveSavedInteger(BYHT2,(zI[yav]),MFv)then
                set mkv=ConvertVersion(LoadInteger(BYHT2,(zI[yav]),MFv))
                if GetItemTypeIdG(mkv)==i then
                    call ttv((Je[(YI[yav])]),GetItemName(mkv)+"|c00ffff80Was placed in another backpack slot.")
                    call SetItemChargesG(mkv,GetItemChargesG(mkv)+GetItemChargesG(s))
                    if LoadBoolean(BYHT,Item_save_Charges,i)then
                        call ExtendsItemChargesG(mkv,s)
                    endif
                    call RemoveItemG(s)
                    set mkv=null
                    return
                endif
            endif
            exitwhen MFv==0
        endloop
    endif
    if LoadBoolean(BYHT,Item_save_Charges,i)then
        set data=GetHandleId(s)*$A
        if HaveSavedInteger(BYHT,Item_save_Charges,data)==false then
            call SaveInteger(BYHT,Item_save_Charges,data,GetItemChargesG(s))
        endif
    endif
    set mkv=null
endfunction

function EquipState__ynv takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer itemid
    local integer d
    local integer h
    local integer lastype=LasManipulatedEquipTypeId
    set LasManipulatedEquip=GetManipulatedItem()
    set LasManipulatedEquipTypeId=GetItemTypeIdG(LasManipulatedEquip)
    set itemid=LasManipulatedEquipTypeId
    if itemid!=GetItemTypeId(LasManipulatedEquip)or itemid==0 then
        set sr=false
        call RemoveItemG(LasManipulatedEquip)
        set sr=true
        set LasManipulatedEquipTypeId=lastype
        return false
    endif
    set d=GetItemUserData(LasManipulatedEquip)
    if d!=0 then
        if d!=$F and d!=GetPlayerId(GetOwningPlayer((Je[(id)])))+1 then
            call DisplayTimedTextToPlayer(GetOwningPlayer((Je[(id)])),0,0,5,"This equipment|c00FF0000 bound|r to other players")
            call UnitDiscardeditems((Je[(id)]),LasManipulatedEquip)
            set LasManipulatedEquipTypeId=lastype
            return false
        endif
    endif
    if not HaveSavedInteger(BYHT,Equip_Type_t,itemid)then
        if GetItemChargesG(LasManipulatedEquip)>0 then
            call IsChargedItem((Je[(id)]),LasManipulatedEquip)
        endif
    else
        if EquipSlot[id]!=null then
            if kGv(kc[(id)],itemid)then
                if GetHeroLevel((Je[(id)]))>=LoadInteger(BYHT,Equip_Lv_t,itemid)then
                    if IsEquipSlotUse((id),itemid,true)then
                        call UnitDiscardeditems((Je[(id)]),LasManipulatedEquip)
                        set LasManipulatedEquipTypeId=lastype
                        return false
                    endif
                    if d==0 and GetItemType(LasManipulatedEquip)==ITEM_TYPE_ARTIFACT then
                        call SetItemUserData(LasManipulatedEquip,Kc[(id)]+1)
                    endif
                    call ModifyHeroProperties((id),LoadInteger(BYHT,Equip_zhushuxing_t,itemid))
                    call ModifyUnitAttack((id),LoadInteger(BYHT,Equip_Attack_t,itemid))
                    call ModifyUnitArmor((id),LoadInteger(BYHT,Equip_Armor_t,itemid))
                    call ModifyHeroStr((id),LoadInteger(BYHT,Equip_Str_t,itemid))
                    call ModifyHeroAgi((id),LoadInteger(BYHT,Equip_Agi_t,itemid))
                    call ModifyHeroInt((id),LoadInteger(BYHT,Equip_Int_t,itemid))
                    call ModifyUnitAttackSpeed((id),LoadInteger(BYHT,Equip_ASPD_t,itemid))
                    call ModifyUnitHP((id),LoadInteger(BYHT,Equip_HP_t,itemid))
                    call ModifyUnitMP((id),LoadInteger(BYHT,Equip_MP_t,itemid))
                    call ModifyUnitHpRegen((id),LoadReal(BYHT,(Equip_HpRegen_t),itemid))
                    call ModifyUnitMpRegen((id),LoadReal(BYHT,(Equip_MpRegen_t),itemid))
                    if HaveSavedReal(BYHT,(Equip_MDG_t),itemid)then
                        call ModifyUnitMagicDamage((id),LoadReal(BYHT,(Equip_MDG_t),itemid))
                        call ModifyUnitCrit((id),LoadReal(BYHT,(Equip_Crit_t),itemid))
                        call ModifyUnitCritDamage((id),LoadReal(BYHT,(Equip_CDG_t),itemid))
                        call ModifyUnitPersistentDamage((id),LoadReal(BYHT,(Equip_DOT_t),itemid))
                        if HaveSavedReal(BYHT,(Equip_MDEF_t),itemid)then
                            call SaveInteger(BYHT,Equip_MDEF_t,GetHandleId(LasManipulatedEquip),ModifyUnitMdef((id),LoadReal(BYHT,(Equip_MDEF_t),itemid)))
                        endif
                        if HaveSavedReal(BYHT,(Equip_Dodge_t),itemid)then
                            call SaveInteger(BYHT,Equip_Dodge_t,GetHandleId(LasManipulatedEquip),ModifyUnitDodge((id),LoadReal(BYHT,(Equip_Dodge_t),itemid)))
                        endif
                        if HaveSavedReal(BYHT,(Equip_ADEF_t),itemid)then
                            call SaveInteger(BYHT,Equip_ADEF_t,GetHandleId(LasManipulatedEquip),ModifyUnitAdef((id),LoadReal(BYHT,(Equip_ADEF_t),itemid)))
                        endif
                        if HaveSavedReal(BYHT,(Equip_BCR_t),itemid)then
                            call SaveInteger(BYHT,Equip_BCR_t,GetHandleId(LasManipulatedEquip),ModifyUnitBeCureRatio((id),LoadReal(BYHT,(Equip_BCR_t),itemid)))
                        endif
                    endif
                    if HaveSavedReal(BYHT,(Equip_Property_Damage_t),7*itemid)then
                        call ModifyUnitFireDamage((id),LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid))
                        call ModifyUnitFrostDamage((id),LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+1))
                        call ModifyUnitGasDamage((id),LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+2))
                        call ModifyUnitToDamage((id),LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+3))
                        call ModifyUnitLightningDamage((id),LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+4))
                        call ModifyUnitLightDamage((id),LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+5))
                        call ModifyUnitDarkdamage((id),LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+6))
                    endif
                    if HaveSavedString(BYHT,(Equip_Mode_t),2*itemid)then
                        call EquipAppModel((id),itemid,true)
                    endif
                    call sc___prototype100_evaluate(1,(Je[(id)]),itemid)
                    call sc___prototype246_evaluate(1,id,LasManipulatedEquip,itemid)
                else
                    call DisplayTimedTextToPlayer(P[Kc[(id)]],0,0,5,"|cFFFFCC00insufficient level.")
                    call UnitDiscardeditems((Je[(id)]),LasManipulatedEquip)
                endif
            else
                call DisplayTimedTextToPlayer(P[Kc[(id)]],0,0,5,"|c0052E252It cannot be worn|r by your character.")
                call UnitDiscardeditems((Je[(id)]),LasManipulatedEquip)
            endif
        endif
    endif
    set LasManipulatedEquipTypeId=lastype
    return false
endfunction

function EquipState__yVv takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer item_hi
    local integer itemid
    local integer lastype
    local boolean b=false
    if sr then
        set lastype=LasManipulatedEquipTypeId
        set LasManipulatedEquip=GetManipulatedItem()
        set LasManipulatedEquipTypeId=GetItemTypeIdG(LasManipulatedEquip)
        set itemid=LasManipulatedEquipTypeId
        set item_hi=GetHandleId(LasManipulatedEquip)
        if itemid!=GetItemTypeId(LasManipulatedEquip)or itemid==0 then
            set b=true
        endif
        if EquipSlot[id]!=null and itemid>0 then
            if HaveSavedInteger(BYHT,Equip_Type_t,itemid)and IsEquipSlotUse((id),itemid,false)then
                call sc___prototype246_evaluate(2,id,LasManipulatedEquip,itemid)
                call EquipAppModel((id),itemid,false)
                call ModifyHeroProperties((id),-LoadInteger(BYHT,Equip_zhushuxing_t,itemid))
                call ModifyUnitAttack((id),-LoadInteger(BYHT,Equip_Attack_t,itemid))
                call ModifyUnitArmor((id),-LoadInteger(BYHT,Equip_Armor_t,itemid))
                call ModifyHeroStr((id),-LoadInteger(BYHT,Equip_Str_t,itemid))
                call ModifyHeroAgi((id),-LoadInteger(BYHT,Equip_Agi_t,itemid))
                call ModifyHeroInt((id),-LoadInteger(BYHT,Equip_Int_t,itemid))
                call ModifyUnitHP((id),-LoadInteger(BYHT,Equip_HP_t,itemid))
                call ModifyUnitMP((id),-LoadInteger(BYHT,Equip_MP_t,itemid))
                call ModifyUnitAttackSpeed((id),-LoadInteger(BYHT,Equip_ASPD_t,itemid))
                call ModifyUnitHpRegen((id),-LoadReal(BYHT,(Equip_HpRegen_t),itemid))
                call ModifyUnitMpRegen((id),-LoadReal(BYHT,(Equip_MpRegen_t),itemid))
                if HaveSavedReal(BYHT,(Equip_MDG_t),itemid)then
                    call ModifyUnitMagicDamage((id),-LoadReal(BYHT,(Equip_MDG_t),itemid))
                    call ModifyUnitCrit((id),-LoadReal(BYHT,(Equip_Crit_t),itemid))
                    call ModifyUnitCritDamage((id),-LoadReal(BYHT,(Equip_CDG_t),itemid))
                    call ModifyUnitPersistentDamage((id),-LoadReal(BYHT,(Equip_DOT_t),itemid))
                    if HaveSavedInteger(BYHT,Equip_MDEF_t,item_hi)then
                        call DeUnitMdef((id),LoadInteger(BYHT,Equip_MDEF_t,item_hi))
                    endif
                    if HaveSavedInteger(BYHT,Equip_Dodge_t,item_hi)then
                        call DeUnitDodge((id),LoadInteger(BYHT,Equip_Dodge_t,item_hi))
                    endif
                    if HaveSavedInteger(BYHT,Equip_ADEF_t,item_hi)then
                        call DeUnitAdef((id),LoadInteger(BYHT,Equip_ADEF_t,item_hi))
                    endif
                    if HaveSavedInteger(BYHT,Equip_BCR_t,item_hi)then
                        call DeUnitBeCureRatio((id),LoadInteger(BYHT,Equip_BCR_t,item_hi))
                    endif
                endif
                if HaveSavedReal(BYHT,(Equip_Property_Damage_t),7*itemid)then
                    call ModifyUnitFireDamage((id),-LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid))
                    call ModifyUnitFrostDamage((id),-LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+1))
                    call ModifyUnitGasDamage((id),-LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+2))
                    call ModifyUnitToDamage((id),-LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+3))
                    call ModifyUnitLightningDamage((id),-LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+4))
                    call ModifyUnitLightDamage((id),-LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+5))
                    call ModifyUnitDarkdamage((id),-LoadReal(BYHT,(Equip_Property_Damage_t),7*itemid+6))
                endif
            endif
        endif
        if b then
            set sr=false
            call RemoveItemG(LasManipulatedEquip)
            set sr=true
        endif
        set LasManipulatedEquipTypeId=lastype
    endif
    return false
endfunction


 function Equipment_to_build_A takes integer itemid,integer yOv,integer yRv,integer yIv,integer yAv,integer yNv,integer ybv,integer yBv,integer ycv,integer yCv,real ydv,real yDv,integer yfv returns integer
    set LasBuildEquipId=itemid
    call SaveInteger(BYHT,Equip_Type_t,itemid,yOv)
    call SaveInteger(BYHT,Equip_Attack_t,itemid,yRv)
    call SaveInteger(BYHT,Equip_Armor_t,itemid,yIv)
    call SaveInteger(BYHT,Equip_Str_t,itemid,yAv)
    call SaveInteger(BYHT,Equip_Agi_t,itemid,yNv)
    call SaveInteger(BYHT,Equip_Int_t,itemid,ybv)
    call SaveInteger(BYHT,Equip_ASPD_t,itemid,yBv)
    call SaveInteger(BYHT,Equip_HP_t,itemid,ycv)
    call SaveInteger(BYHT,Equip_MP_t,itemid,yCv)
    call SaveReal(BYHT,(Equip_HpRegen_t),itemid,ydv)
    call SaveReal(BYHT,(Equip_MpRegen_t),itemid,yDv)
    call SaveInteger(BYHT,Equip_Lv_t,itemid,yfv)
    return itemid
 endfunction


function Equipment_to_build_Zsx takes integer itemid,integer zsx returns integer
    call SaveInteger(BYHT,Equip_zhushuxing_t,itemid,zsx)
    return itemid
endfunction

function AddUnitPickupOrDropItemById takes integer id,code func returns nothing
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,id,GetHandleId(Filter(func)))
endfunction

function Equipment_to_build_TrigSlot takes integer id,integer TrigSlotId,integer f,code func returns nothing
    call SaveInteger(BYHT,TrigSlotId,id,f)
    call SaveInteger(BYHT2,TrigSlotId,id,GetHandleId(Filter(func)))
endfunction

function Equipment_to_build_B takes real matk,real mdef,real catk,real critv,real dodge,real adef returns nothing
    call SaveReal(BYHT,(Equip_MDG_t),LasBuildEquipId,matk)
    call SaveReal(BYHT,(Equip_Crit_t),LasBuildEquipId,catk)
    call SaveReal(BYHT,(Equip_CDG_t),LasBuildEquipId,critv)
    if mdef>0 then
        call SaveReal(BYHT,(Equip_MDEF_t),LasBuildEquipId,mdef)
    endif
    if dodge>0 then
        call SaveReal(BYHT,(Equip_Dodge_t),LasBuildEquipId,dodge)
    endif
    if adef!=0 then
        call SaveReal(BYHT,(Equip_ADEF_t),LasBuildEquipId,adef)
    endif
endfunction

function Equipment_to_build_C takes real matk,real mdef,real catk,real critv,real dodge,real adef,real dot,real bcr returns nothing
    call SaveReal(BYHT,(Equip_MDG_t),LasBuildEquipId,matk)
    call SaveReal(BYHT,(Equip_Crit_t),LasBuildEquipId,catk)
    call SaveReal(BYHT,(Equip_CDG_t),LasBuildEquipId,critv)
    call SaveReal(BYHT,(Equip_DOT_t),LasBuildEquipId,dot)
    if mdef>0 then
        call SaveReal(BYHT,(Equip_MDEF_t),LasBuildEquipId,mdef)
    endif
    if dodge>0 then
        call SaveReal(BYHT,(Equip_Dodge_t),LasBuildEquipId,dodge)
    endif
    if adef!=0 then
        call SaveReal(BYHT,(Equip_ADEF_t),LasBuildEquipId,adef)
    endif
    if bcr!=0 then
        call SaveReal(BYHT,(Equip_BCR_t),LasBuildEquipId,bcr)
    endif
endfunction

function Equipment_to_build_D takes real nF,real nI,real nW,real nE,real nA,real nL,real nD returns nothing
    call SaveReal(BYHT,(Equip_Property_Damage_t),7*LasBuildEquipId,nF)
    call SaveReal(BYHT,(Equip_Property_Damage_t),7*LasBuildEquipId+1,nI)
    call SaveReal(BYHT,(Equip_Property_Damage_t),7*LasBuildEquipId+2,nW)
    call SaveReal(BYHT,(Equip_Property_Damage_t),7*LasBuildEquipId+3,nE)
    call SaveReal(BYHT,(Equip_Property_Damage_t),7*LasBuildEquipId+4,nA)
    call SaveReal(BYHT,(Equip_Property_Damage_t),7*LasBuildEquipId+5,nL)
    call SaveReal(BYHT,(Equip_Property_Damage_t),7*LasBuildEquipId+6,nD)
endfunction

function Equipment_to_build_Mode takes string mP,string mA returns nothing
    call SaveStr(BYHT,(Equip_Mode_t),2*LasBuildEquipId,mP)
    call SaveStr(BYHT,(Equip_Mode_t),2*LasBuildEquipId+1,mA)
endfunction

function s__suit_new takes code c returns integer
    local integer this=s__suit_Index
    set s__suit_vessel[this]=malloc()
    set s__suit_func[this]=Filter(c)
    set s__suit_num[this]=0
    set s__suit_Index=s__suit_Index+1
    return this
endfunction

function s__suit_add takes integer this,integer id returns integer
    local integer p
    local integer i
    call SaveInteger(BYHT,s__suit_vessel[this],s__suit_num[this],id)
    set s__suit_num[this]=s__suit_num[this]+1
    if HaveSavedInteger(BYHT,s__suit_V,id)then
        set p=LoadInteger(BYHT,s__suit_V,id)
    else
        set p=malloc()
        call SaveInteger(BYHT,s__suit_V,id,p)
    endif
    set i=LoadInteger(BYHT,p,0)+1
    call SaveInteger(BYHT,p,0,i)
    call SaveInteger(BYHT,p,i,this)
    return this
endfunction

function s__suit_activate takes integer data,integer id,boolean b returns nothing
    local integer this
    local integer p
    local integer i
    local integer v
    if HaveSavedInteger(BYHT,s__suit_V,id)then
        set i=le
        set le=data
        set s__suit_IsActivate=b
        set p=LoadInteger(BYHT,s__suit_V,id)
        set v=LoadInteger(BYHT,p,0)
        loop
            exitwhen v==0
            set this=LoadInteger(BYHT,p,v)
            set s__suit_Activated=LoadInteger(BYHT,p,v)
            call GameExecuteFunc(s__suit_func[s__suit_Activated])
            set v=v-1
        endloop
        set le=i
    endif
endfunction

function ymv takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call alloc__hPv(GetHandleId((GetExpiredTimer())),(i+1))
    if i==0 then
        call Equipment_to_build_A('I00I',1,16,0,0,0,0,0,0,0,0,0,1)
        call Equipment_to_build_A('I00Q',1,$A,0,0,0,4,0,0,0,0,0,1)
        call Equipment_to_build_A('I00K',2,0,8,0,0,0,0,50,0,0,0,1)
        call Equipment_to_build_A('I00P',2,0,5,0,0,3,0,0,0,0,0,1)
        call Equipment_to_build_A('I00S',3,0,4,0,0,0,0,0,0,0,0,1)
        call Equipment_to_build_A('I00R',3,0,3,0,0,1,0,0,0,0,0,1)
        call Equipment_to_build_A('I00T',1,24,0,0,0,0,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01F',1,$E,0,0,0,7,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01B',2,0,$E,0,0,0,0,100,0,0,0,$A)
        call Equipment_to_build_A('I01C',2,0,9,0,0,5,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01D',3,0,7,0,0,0,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01E',3,0,5,0,0,3,0,0,0,0,0,$A)
    elseif i==1 then
        call Equipment_to_build_A('I00U',1,34,0,0,0,0,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01G',1,20,0,0,0,$B,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01K',2,0,17,0,0,0,0,$96,0,0,0,$A)
        call Equipment_to_build_A('I01J',2,0,$B,0,0,7,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01I',3,0,$A,0,0,0,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01H',3,0,6,0,0,5,0,0,0,0,0,$A)
        call Equipment_to_build_A('I0AK',4,0,0,$A,$A,$A,0,0,0,0,0,$A)
        call Equipment_to_build_A('I01P',1,50,0,0,0,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I01Q',1,30,0,0,0,18,0,0,0,0,0,30)
        call Equipment_to_build_A('I01L',2,0,22,0,0,0,0,300,0,0,0,30)
        call Equipment_to_build_A('I01M',2,0,$F,0,0,$C,0,0,0,0,0,30)
        call Equipment_to_build_A('I01N',3,0,$E,0,0,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I01O',3,0,8,0,0,7,0,0,0,0,0,30)
        call Equipment_to_build_A('I01V',1,72,0,0,0,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I01W',1,48,0,0,0,22,0,0,0,0,0,30)
        call Equipment_to_build_A('I01R',2,0,30,0,0,0,0,500,0,0,0,30)
        call Equipment_to_build_A('I01S',2,0,21,0,0,$F,0,0,0,0,0,30)
        call Equipment_to_build_A('I01T',3,0,20,0,0,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I01U',3,0,$B,0,0,$A,0,0,0,0,0,30)
    elseif i==2 then
        call Equipment_to_build_A('I026',1,88,0,0,42,0,$F,0,0,0,0,30)
        call Equipment_to_build_A('I01X',1,120,0,0,32,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I01Y',1,$B4,0,30,0,0,-25,0,0,0,0,30)
        call Equipment_to_build_A('I02F',1,90,0,0,0,48,0,0,0,0,0,30)
        call Equipment_to_build_A('I02G',2,0,48,16,16,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I02J',2,0,30,0,0,30,0,0,0,0,0,30)
        call Equipment_to_build_A('I02H',3,0,30,0,0,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I02I',3,0,17,0,0,$F,0,0,0,0,0,30)
        call Equipment_to_build_A('I02K',4,0,0,24,24,24,0,800,800,0,0,30)
        call Equipment_to_build_A('I037',1,$96,0,0,60,0,20,0,0,0,0,80)
        call Equipment_to_build_A('I02L',1,$C8,0,0,50,0,0,0,0,0,0,80)
        call Equipment_to_build_A('I02M',1,260,0,42,0,0,-25,0,0,0,0,80)
        call Equipment_to_build_A('I038',1,$9A,0,0,0,72,0,0,0,0,0,80)
        call Equipment_to_build_A('I03B',2,0,65,24,24,0,0,0,0,0,0,80)
        call Equipment_to_build_A('I039',2,0,42,0,0,48,0,0,0,0,0,80)
        call Equipment_to_build_A('I03C',3,0,40,0,0,0,0,0,0,0,0,80)
        call Equipment_to_build_A('I03A',4,0,0,60,60,60,0,800,800,0,0,80)
        call Equipment_to_build_A('I03D',3,0,26,0,0,24,0,0,0,0,0,80)
    elseif i==3 then
        call Equipment_to_build_A('I03E',1,$DC,0,0,84,0,20,0,0,0,0,120)
        call Equipment_to_build_A('I03J',1,300,0,0,74,0,0,0,0,0,0,120)
        call Equipment_to_build_A('I03K',1,380,0,64,0,0,-25,0,0,0,0,120)
        call Equipment_to_build_A('I03H',1,$D2,0,0,0,100,0,0,0,0,0,120)
        call Equipment_to_build_A('I03I',2,0,85,36,36,0,0,800,0,0,0,120)
        call Equipment_to_build_A('I03F',2,0,62,0,0,70,0,$3E8,0,0,0,120)
        call Equipment_to_build_A('I03L',3,0,58,0,0,0,0,0,0,0,0,120)
        call Equipment_to_build_A('I03M',3,0,40,0,0,32,0,0,0,0,0,120)
        call Equipment_to_build_A('I03G',4,0,0,48,48,48,0,$708,$708,0,0,120)
        call Equipment_to_build_A('I03S',1,400,0,0,122,0,20,0,0,0,0,$A0)
        call Equipment_to_build_A('I03N',1,460,0,0,112,0,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I03O',1,600,0,92,0,0,-25,0,0,0,0,$A0)
        call Equipment_to_build_A('I03T',1,380,0,0,0,$8E,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I03R',2,0,$82,48,48,0,0,$5DC,0,0,0,$A0)
        call Equipment_to_build_A('I03Q',2,0,90,0,0,100,0,$5DC,0,0,0,$A0)
        call Equipment_to_build_A('I03U',3,0,84,0,0,0,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I03V',3,0,62,0,0,50,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I03P',4,0,0,60,60,60,0,$9C4,$9C4,0,0,$A0)
    elseif i==4 then
        call Equipment_to_build_A('I05O',1,550,0,0,$A,0,20,0,0,0,0,$C8)
        call Equipment_to_build_A('I03W',1,650,0,0,$96,0,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I055',1,900,0,120,0,0,-25,0,0,0,0,$C8)
        call Equipment_to_build_A('I05J',1,480,0,0,0,$B4,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I03X',2,0,$B4,60,60,0,0,$7D0,0,0,0,$C8)
        call Equipment_to_build_A('I05E',2,0,120,0,0,$8E,0,$7D0,0,0,0,$C8)
        call Equipment_to_build_A('I054',3,0,115,0,0,0,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I05M',3,0,84,0,0,70,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I05N',4,0,0,80,80,80,0,$ED8,$ED8,0,0,$C8)
        call Equipment_to_build_A('I042',1,700,0,0,$DC,0,20,0,0,0,0,$A0)
        call Equipment_to_build_A('I03Y',1,900,0,0,$C8,0,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I044',1,$578,0,$9B,0,0,-25,0,0,0,0,$A0)
        call Equipment_to_build_A('I045',1,650,0,0,0,$F0,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I040',2,0,$E1,75,75,0,0,$7D0,0,0,0,$A0)
        call Equipment_to_build_A('I041',2,0,$A5,0,0,$B4,0,$7D0,0,0,0,$A0)
        call Equipment_to_build_A('I046',3,0,$9B,0,0,0,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I047',3,0,105,0,0,90,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I043',4,0,0,95,95,95,0,4200,4200,0,0,$A0)
    elseif i==5 then
        call Equipment_to_build_A('I05B',1,900,0,0,$FA,0,20,0,0,0,0,$C8)
        call Equipment_to_build_A('I048',1,$514,0,0,$F0,0,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I05C',1,$708,0,$B4,0,0,-25,0,0,0,0,$C8)
        call Equipment_to_build_A('I05D',1,800,0,0,0,300,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I049',2,0,300,90,90,0,0,$9C4,0,0,0,$C8)
        call Equipment_to_build_A('I059',2,0,$D2,0,0,$C8,0,$9C4,0,0,0,$C8)
        call Equipment_to_build_A('I05F',3,0,$B4,0,0,0,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I05G',3,0,120,0,0,110,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I05A',4,0,0,110,110,110,0,4600,4600,0,0,$C8)
        call Equipment_to_build_A('dsum',5,0,0,$82,100,100,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I06Z',1,$5DC,0,0,350,0,0,0,0,0,0,$96)
        call Equipment_to_build_A('I06Y',1,$898,0,0,330,0,0,0,0,0,0,$96)
        call Equipment_to_build_A('I070',1,$BB8,0,$F0,0,0,0,0,0,0,0,$96)
        call Equipment_to_build_A('I071',1,$578,0,0,0,400,0,0,0,0,0,$96)
        call Equipment_to_build_A('I074',2,0,360,105,105,0,0,$BB8,0,0,0,$96)
        call Equipment_to_build_A('I072',2,0,$E6,0,0,$FA,0,$7D0,0,0,0,$96)
        call Equipment_to_build_A('I075',3,0,$C8,0,0,0,0,$3E8,0,0,0,$96)
        call Equipment_to_build_A('I076',3,0,$8C,0,0,125,0,$3E8,0,0,0,$96)
        call Equipment_to_build_A('I073',4,0,0,125,125,125,0,5000,5000,0,0,$96)
    elseif i==6 then
        call Equipment_to_build_A('I079',1,$708,0,0,380,0,0,0,0,0,0,$B4)
        call Equipment_to_build_A('I077',1,$A28,0,0,360,0,0,0,0,0,0,$B4)
        call Equipment_to_build_A('I078',1,$D48,0,270,0,0,0,0,0,0,0,$B4)
        call Equipment_to_build_A('I07A',1,$6A4,0,0,0,440,0,0,0,0,0,$B4)
        call Equipment_to_build_A('I07B',1,4900,0,0,440,0,0,0,0,0,0,260)
        call Equipment_to_build_A('I07D',2,0,390,$96,$96,0,0,$DAC,0,0,0,$C8)
        call Equipment_to_build_A('I07K',2,0,420,$B4,$B4,0,$FA0,0,0,0,0,$C8)
        call Equipment_to_build_A('I07C',2,0,$FA,0,0,300,0,$DAC,0,0,0,$C8)
        call Equipment_to_build_A('I07L',2,0,290,0,0,350,0,$FA0,0,0,0,$C8)
        call Equipment_to_build_A('I07E',3,0,$D2,0,0,0,0,$5DC,0,0,0,$C8)
        call Equipment_to_build_A('I07F',3,0,$96,0,0,$91,0,$5DC,0,0,0,$C8)
        call Equipment_to_build_A('I07H',4,0,0,$8C,$8C,$8C,0,5600,5600,0,0,$C8)
        call Equipment_to_build_A('I081',1,8500,0,700,0,0,0,0,0,0,0,300)
        call Equipment_to_build_A('I080',1,7500,0,0,800,0,0,0,0,0,0,300)
        call Equipment_to_build_A('I09M',1,9000,0,0,650,0,25,0,0,0,0,300)
        call Equipment_to_build_A('I082',1,6000,0,0,0,900,0,0,0,0,0,300)
        call Equipment_to_build_A('I0DH',1,$3D54,0,410,0,$5E6,0,0,0,80,0,340)
        call Equipment_to_build_A('I0DI',1,$6B08,0,500,0,$956,0,0,0,125,0,380)
    elseif i==7 then
        call Equipment_to_build_A('I086',1,$3264,0,0,$41A,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I05H',1,$6B6C,0,725,$866,0,0,0,0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I09O',1,$34BC,0,0,$44C,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I08C',2,0,400,500,500,0,0,0,0,0,0,340)
        call Equipment_to_build_B(2.5,0,0,0,0,0)
        call Equipment_to_build_A('I0B2',2,0,340,0,860,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0C4',3,0,260,110,330,0,0,0,0,0,0,340)
        call Equipment_to_build_B(3,0,0,0,0,0)
        call Equipment_to_build_A('I08H',1,$3E80,0,0,$578,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I09Q',1,$4074,0,0,$5AA,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I0AY',1,$DAC,0,0,0,500,25,0,0,0,0,260)
        call Equipment_to_build_A('rde4',1,$30D4,0,0,0,$5AA,0,0,0,0,0,340)
        call Equipment_to_build_D(5,0,0,0,0,0,0)
        call Equipment_to_build_A('I07O',3,0,$C8,75,100,0,0,0,0,0,0,260)
        call Equipment_to_build_B(0,0,0,0,$C,0)
        call Equipment_to_build_A('I07N',3,0,$FA,100,125,0,0,0,0,0,0,260)
        call Equipment_to_build_B(0,0,0,0,$F,0)
        call Equipment_to_build_A('I07M',3,0,$AA,0,0,$AF,0,0,0,0,0,260)
        call Equipment_to_build_B(0,0,0,0,$C,0)
        call Equipment_to_build_A('I07P',3,0,$BE,0,0,$D2,0,0,0,0,0,260)
        call Equipment_to_build_B(0,0,0,0,$F,0)
        call Equipment_to_build_A('I07V',4,0,0,0,0,400,0,5000,$2710,0,50,260)
        call Equipment_to_build_A('I07Z',4,0,0,0,0,600,0,7000,$36B0,0,75,300)
        call Equipment_to_build_A('I08F',4,0,0,0,0,900,0,$2710,$4E20,0,100,340)
        call Equipment_to_build_A('I08A',4,0,0,500,500,500,0,0,0,0,0,340)
        call Equipment_to_build_A('I0E8',4,0,0,$6E0,$6E0,$6E0,0,0,0,0,0,400)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I08B',4,0,0,550,550,550,0,0,0,0,0,340)
        call Equipment_to_build_B(4,0,0,0,0,0)
        call Equipment_to_build_A('I08J',4,0,0,970,970,970,0,0,0,0,0,360)
        call Equipment_to_build_B(9,0,0,0,0,0)
        call Equipment_to_build_A('rhth',1,$34BC,0,$4E2,0,0,0,0,0,0,0,340)
        call Equipment_to_build_B(0,0,0,$F,0,0)
        call Equipment_to_build_A('I0D6',1,$34BC,0,0,$55F,0,0,0,0,0,0,340)
        call Equipment_to_build_D(0,5,0,0,0,0,0)
        call Equipment_to_build_A('I08D',2,0,450,0,0,750,0,0,0,0,0,340)
        call Equipment_to_build_A('I0B4',2,0,580,0,0,940,0,0,0,0,0,360)
        call Equipment_to_build_B(5,5,0,0,0,0)
        call Equipment_to_build_A('I08R',3,0,430,$96,$AF,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I08E',3,0,310,0,0,300,0,0,0,0,0,340)
        call Equipment_to_build_A('I085',1,$34BC,0,$41A,0,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I08G',1,$4074,0,$4E2,0,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I087',1,$3200,0,0,0,$4E2,0,0,0,0,0,340)
        call Equipment_to_build_A('I08I',1,$3CF0,0,0,0,$640,0,0,0,0,0,340)
        call Equipment_to_build_A('I088',2,0,520,400,400,0,0,0,0,0,0,340)
        call Equipment_to_build_A('I0B3',2,0,760,750,320,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I089',3,0,380,320,$BE,0,0,0,0,75,0,340)
        call Equipment_to_build_A('I0AD',3,0,560,680,300,0,0,0,0,0,0,360)
        call Equipment_to_build_A('I0E0',3,0,650,$406,550,0,0,0,0,0,0,390)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0BJ',4,0,$8C,400,320,0,0,0,0,80,0,340)
        call Equipment_to_build_B(0,$A,0,0,0,0)
        call Equipment_to_build_A('I0BK',4,0,$C8,780,650,0,0,0,0,$8C,0,340)
        call Equipment_to_build_B(0,$F,0,0,0,0)
    elseif i==8 then
        call Equipment_to_build_A('I07R',1,6000,0,400,0,0,0,0,0,0,0,260)
        call Equipment_to_build_A('I07S',1,7500,0,550,0,0,0,0,0,0,0,300)
        call Equipment_to_build_A('I09S',1,6750,0,0,350,0,0,0,0,0,0,260)
        call Equipment_to_build_A('I09T',1,8250,0,0,500,0,0,0,0,0,0,300)
        call Equipment_to_build_A('I07T',1,$FA0,0,0,0,600,0,0,0,0,0,260)
        call Equipment_to_build_A('I07Q',1,5000,0,0,0,750,0,0,0,0,0,300)
        call Equipment_to_build_A('I07U',2,0,560,$C8,$C8,0,0,0,0,40,0,260)
        call Equipment_to_build_A('I07W',2,0,730,$FA,$FA,0,0,0,0,60,0,300)
        call Equipment_to_build_A('I07X',3,0,290,0,0,0,0,0,0,0,0,260)
        call Equipment_to_build_B(0,7.5,0,0,0,0)
        call Equipment_to_build_A('I07Y',3,0,400,0,0,0,0,0,0,0,0,300)
        call Equipment_to_build_B(0,1,0,0,0,0)
        call Equipment_to_build_A('ajen',1,$FA0,0,450,0,0,$A,0,0,0,0,260)
        call Equipment_to_build_A('I07I',1,5000,0,0,500,0,0,0,0,0,0,260)
        call Equipment_to_build_A('bgst',1,6500,0,590,0,0,$F,0,0,0,0,300)
        call Equipment_to_build_A('I07J',1,7000,0,0,650,0,0,0,0,0,0,300)
        call Equipment_to_build_A('I03Z',4,0,0,300,300,300,0,5000,5000,0,0,260)
        call Equipment_to_build_A('I08L',1,$5C30,0,$5AA,$5AA,0,0,0,0,0,0,360)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,500)
        call Equipment_to_build_A('I0DX',1,$9E34,0,$992,$960,0,0,0,0,0,0,390)
        call Equipment_to_build_B(0,0,0,25,0,0)
        call Equipment_to_build_A('I09P',1,$5DC0,0,$44C,$73A,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I08M',1,$4268,0,0,0,$866,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I083',2,0,320,0,0,500,0,0,0,0,0,300)
        call Equipment_to_build_A('I084',3,0,$DC,0,0,$E6,0,0,0,0,0,300)
        call Equipment_to_build_A('I0AE',3,0,420,0,0,745,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0AZ',4,0,0,280,280,280,0,0,0,0,50,300)
        call Equipment_to_build_B(-5,0,0,0,0,0)
        call Equipment_to_build_A('I0B0',4,0,0,490,490,490,0,0,0,0,90,340)
        call Equipment_to_build_B(-5,0,0,0,0,0)
        call Equipment_to_build_A('I067',1,$4268,0,$5DC,$5DC,0,0,0,0,0,0,350)
        call Equipment_to_build_A('I0E2',1,$74CC,0,$992,$960,0,0,0,0,0,0,390)
        call Equipment_to_build_B(0,$F,0,0,0,0)
        call Equipment_to_build_A('I0E7',1,$927C,0,$992,$92E,0,0,0,0,0,0,400)
        call Equipment_to_build_B(0,0,0,45,0,0)
        call Equipment_to_build_A('I00E',1,$733C,0,$79E,0,$5C8,0,0,0,0,0,370)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('I098',1,$4A38,0,$5AA,0,0,-50,0,0,0,0,350)
        call Equipment_to_build_B(0,0,$A,0,0,0)
        call Equipment_to_build_A('bspd',1,$4074,0,900,$640,0,0,0,0,0,0,350)
        call Equipment_to_build_B(3,0,0,0,0,0)
        call Equipment_to_build_A('I096',1,$30D4,0,0,0,$690,0,$BB8,0,0,0,350)
        call Equipment_to_build_D(0,3,0,0,0,0,0)
        call Equipment_to_build_A('I0CM',1,$4E20,0,0,0,$866,0,5000,0,0,0,360)
        call Equipment_to_build_D(0,5,0,0,0,0,0)
        call Equipment_to_build_A('I097',4,0,$96,0,0,700,0,$9C4,0,0,0,350)
        call Equipment_to_build_D(0,3,0,0,0,0,0)
        call Equipment_to_build_A('I099',4,0,0,0,700,0,0,$9C4,0,0,0,350)
        call Equipment_to_build_A('I09A',4,0,0,625,625,625,0,0,0,0,0,350)
        call Equipment_to_build_B(5,0,0,0,0,5)
        call Equipment_to_build_A('I007',5,0,0,$46F,$46F,$46F,0,0,0,0,0,380)
        call Equipment_to_build_B(0,$F,0,0,0,0)
        call Equipment_to_build_Mode("gaiawings1.mdx","chest")
        call Equipment_to_build_A('I093',5,0,0,790,790,790,0,0,0,0,0,360)
        call Equipment_to_build_B(0,$A,0,0,0,0)
        call Equipment_to_build_Mode("Shiva'sWings.mdx","origin")
    elseif i==9 then
        call Equipment_to_build_A('I09C',1,$87,0,0,22,0,0,0,0,0,0,30)
        call Equipment_to_build_A('I09B',1,$FA,0,0,38,0,0,0,0,0,0,80)
        call Equipment_to_build_A('I09H',1,340,0,0,65,0,0,0,0,0,0,120)
        call Equipment_to_build_A('I09K',1,550,0,0,105,0,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I09J',1,$4B0,0,0,$B4,0,0,0,0,0,0,$A0)
        call Equipment_to_build_A('I09I',1,800,0,0,$8C,0,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I09L',1,$640,0,0,$D2,0,0,0,0,0,0,$C8)
        call Equipment_to_build_A('I09F',1,$A8C,0,0,270,0,0,0,0,0,0,$96)
        call Equipment_to_build_A('I09D',1,$C1C,0,0,300,0,0,0,0,0,0,$B4)
        call Equipment_to_build_A('I0A6',1,$8FC,0,0,410,0,0,0,0,0,0,280)
        call Equipment_to_build_A('I0A5',1,$A28,0,0,380,0,0,0,0,0,0,280)
        call Equipment_to_build_A('I0A9',1,$BB8,0,0,310,0,0,0,0,0,0,280)
        call Equipment_to_build_A('I0A7',1,$D7A,0,280,0,0,0,0,0,0,0,280)
        call Equipment_to_build_A('I0A8',1,$640,0,0,0,440,0,0,0,0,0,280)
        call Equipment_to_build_A('I0A3',2,0,$E6,80,80,0,0,$9C4,0,0,0,280)
        call Equipment_to_build_A('I0A4',2,0,$A0,0,0,$C8,0,$9C4,0,0,0,280)
        call Equipment_to_build_A('I0A1',3,0,$9B,0,0,0,0,$5DC,0,0,0,280)
        call Equipment_to_build_A('I0A2',3,0,110,0,0,100,0,0,0,0,0,280)
        call Equipment_to_build_A('I0AA',4,0,0,380,380,380,0,0,0,100,40,280)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('sor5',5,$3E80,0,825,825,825,0,0,0,$E1,100,370)
        call Equipment_to_build_B($C,0,0,0,0,0)
        call Equipment_to_build_Mode("FWIND.MDX","chest")
        call Equipment_to_build_A('I0AC',5,0,0,425,425,425,0,0,0,$96,60,300)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_Mode("LichWing Blue.mdx","chest")
        call Equipment_to_build_A('I0B5',5,0,0,860,405,405,0,0,0,-$AF,0,360)
        call Equipment_to_build_B(0,$A,0,0,0,0)
        call Equipment_to_build_Mode("HLY.mdx","chest")
        call Equipment_to_build_A('I0AN',4,0,0,$465,$465,$465,0,0,0,0,0,360)
        call Equipment_to_build_B($C,0,0,0,0,0)
        call Equipment_to_build_A('I05R',4,0,0,$5F5,$5F5,$5F5,0,0,0,0,0,380)
        call Equipment_to_build_B($F,0,0,0,0,0)
        call Equipment_to_build_A('I05I',4,0,0,$465,$465,$465,0,0,0,120,120,380)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I00B',4,0,0,$3FC,$3FC,$3FC,0,0,0,0,0,370)
        call Equipment_to_build_B($A,$A,0,0,0,0)
        call Equipment_to_build_A('I05S',0,0,0,0,0,0,0,0,0,0,0,400)
        call Equipment_to_build_A('I0AL',4,0,0,$67C,$67C,$67C,0,0,0,0,0,400)
        call Equipment_to_build_B($F,0,0,0,0,0)
        call Equipment_to_build_A('I0AU',5,0,0,$618,$618,$618,0,0,0,800,800,400)
        call Equipment_to_build_C(20,25,0,0,0,0,45,0)
        call Equipment_to_build_Mode("Archangel wing.mdx","chest")
        call Equipment_to_build_A('ofro',5,0,0,475,425,0,0,0,0,0,0,260)
        call Equipment_to_build_B(0,0,0,0,1,0)
        call Equipment_to_build_Mode("HHY.mdx","chest")
        call Equipment_to_build_A('modt',5,0,0,0,0,425,0,$7D0,0,0,0,260)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_Mode("EWING.mdx","chest")
        call Equipment_to_build_A('rlif',5,0,0,$550,0,$550,0,0,0,0,0,380)
        call Equipment_to_build_B(0,20,0,0,0,35)
        call Equipment_to_build_Mode("xnzh.mdx","chest")
        call Equipment_to_build_A('I0BH',5,0,0,0,0,715,0,4000,7500,0,0,360)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_Mode("JDY.mdx","chest")
        call Equipment_to_build_A('I0ED',5,0,0,0,0,$546,0,8000,$38A4,0,0,370)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_Mode("jdy_golden .mdx","chest")
    elseif i==$A then
        call Equipment_to_build_A('cnob',4,0,0,$E1,$E1,$E1,0,$9C4,0,0,0,260)
        call Equipment_to_build_A('shhn',4,0,0,550,550,550,0,5000,0,0,0,260)
        call Equipment_to_build_A('I08X',2,0,640,650,$FA,0,0,0,0,0,0,350)
        call Equipment_to_build_A('I06D',2,0,480,$FA,700,0,0,0,0,0,0,350)
        call Equipment_to_build_A('I0AV',2,0,450,0,0,900,0,5000,0,0,0,350)
        call Equipment_to_build_A('I06E',4,0,0,675,675,675,0,0,0,0,0,350)
        call Equipment_to_build_A('I0EA',4,0,0,810,810,810,0,0,0,0,0,360)
        call Equipment_to_build_B(0,$A,0,0,0,0)
        call Equipment_to_build_A('I0E1',2,0,650,750,$546,0,0,0,0,0,0,390)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0DS',4,0,0,0,0,0,0,0,0,0,0,380)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_D(5,0,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,$5AA)
        call Equipment_to_build_A('I0E3',4,0,0,0,0,0,0,0,0,0,0,380)
        call Equipment_to_build_B($F,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,$5AA)
        call Equipment_to_build_A('I0DY',4,0,0,$5F5,$5F5,$5F5,0,0,0,500,0,390)
        call Equipment_to_build_A('kysn',1,$4844,0,$546,$640,0,0,0,0,0,0,360)
        call Equipment_to_build_B(0,0,0,25,0,0)
        call Equipment_to_build_A('tgxp',1,$87F0,0,$618,$8CA,0,0,0,0,0,0,380)
        call Equipment_to_build_B(0,0,0,35,0,0)
        call Equipment_to_build_A('I0DT',1,$733C,0,$60E,$8CA,0,0,0,0,0,0,380)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('ches',3,0,333,0,0,666,0,0,0,0,0,360)
        call Equipment_to_build_A('ktrm',3,0,410,340,380,0,0,0,0,0,0,360)
        call Equipment_to_build_B(0,0,0,0,0,7.5)
        call Equipment_to_build_A('kymn',3,0,480,460,780,0,0,5000,0,0,0,370)
        call Equipment_to_build_B(7,0,0,0,0,0)
        call Equipment_to_build_A('I0B6',3,0,320,460,630,0,0,0,0,0,0,360)
        call Equipment_to_build_B(6,0,0,0,0,6)
        call Equipment_to_build_A('dphe',5,0,0,350,700,0,0,0,0,0,0,360)
        call Equipment_to_build_B(7.5,0,0,20,0,0)
        call Equipment_to_build_Mode("DevilAura.mdx","origin")
    elseif i==$B then
        call Equipment_to_build_A('pmna',1,450,80,70,75,0,0,0,0,0,0,100)
        call Equipment_to_build_A('spsh',2,0,$8C,0,0,0,0,5000,0,0,0,100)
        call Equipment_to_build_A('ciri',4,0,0,85,85,85,0,0,0,0,7.5,100)
        call Equipment_to_build_A('mort',5,0,0,60,60,60,0,0,0,0,0,100)
        call Equipment_to_build_A('prvt',1,$76C,0,0,$A0,0,20,0,0,0,0,$96)
        call Equipment_to_build_A('hval',2,0,110,0,0,$F0,0,0,0,0,0,$96)
        call Equipment_to_build_B(3,0,0,0,0,0)
        call Equipment_to_build_A('lgdh',3,0,$B4,100,85,0,0,0,0,0,0,$96)
        call Equipment_to_build_A('ssil',4,0,0,0,0,$D2,0,$7D0,0,0,0,$96)
        call Equipment_to_build_B(4,0,0,0,0,0)
        call Equipment_to_build_A('phlt',1,$5DC0,0,$6D6,0,0,20,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('kpin',1,$6590,0,0,$6A4,0,20,0,0,0,0,360)
        call Equipment_to_build_B(5,0,5,0,0,0)
        call Equipment_to_build_A('rin1',1,$6D60,0,0,$6C2,0,-25,0,0,0,0,360)
        call Equipment_to_build_B(0,0,7.5,0,0,0)
        call Equipment_to_build_A('rwiz',1,$5208,0,0,0,$802,25,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('mcou',4,0,0,950,0,850,0,0,0,0,0,360)
        call Equipment_to_build_B(7.5,0,0,0,0,0)
        call Equipment_to_build_A('evtl',4,0,0,825,825,825,0,0,0,$AF,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('rst1',4,0,0,620,0,$401,0,0,0,$96,0,360)
        call Equipment_to_build_B(6,6,0,0,0,0)
        call Equipment_to_build_A('I092',4,0,0,0,0,$401,0,$2710,0,0,0,360)
    elseif i==$C then
        call Equipment_to_build_A('I0BM',1,$708,0,0,360,0,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0BL',1,$834,0,0,330,0,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0BO',1,$A28,0,0,290,0,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0BN',1,$C1C,0,260,0,0,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0BP',1,$514,0,0,0,400,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0C1',1,$ED8,120,320,380,0,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0CC',1,$CE4,0,0,0,490,0,0,0,0,0,$F0)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('I0BU',2,0,$C8,65,65,0,0,$9C4,0,0,0,$F0)
        call Equipment_to_build_A('I0BV',2,0,$82,0,0,$A0,0,$9C4,0,50,0,$F0)
        call Equipment_to_build_A('I0C0',2,0,380,450,0,0,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0BW',3,0,$82,0,0,0,0,$4B0,0,0,0,$F0)
        call Equipment_to_build_A('I0BX',3,0,95,0,0,80,0,0,0,0,0,$F0)
        call Equipment_to_build_A('I0BZ',4,0,0,270,270,270,0,$9C4,$9C4,0,0,$F0)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0C2',4,0,0,490,490,490,0,$DAC,$DAC,0,0,280)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_A('I0BQ',1,9000,0,0,0,0,25,0,0,0,0,$F0)
        call Equipment_to_build_B(0,0,0,$F,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,690)
        call Equipment_to_build_A('I0CB',1,9400,0,0,0,0,$F,0,0,0,0,$F0)
        call Equipment_to_build_B(4,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,690)
        call Equipment_to_build_A('I0BR',1,0,0,0,0,800,0,6000,0,0,0,$F0)
        call Equipment_to_build_B(4,0,0,0,0,0)
        call Equipment_to_build_A('I0BS',2,0,260,0,0,0,0,0,0,0,0,$F0)
        call Equipment_to_build_B(3,0,3,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,410)
        call Equipment_to_build_A('I0C3',3,0,$C8,0,0,0,0,$7D0,0,0,0,$F0)
        call Equipment_to_build_B(4,0,0,0,0,-6)
        call Equipment_to_build_Zsx(LasBuildEquipId,120)
        call Equipment_to_build_A('I05T',3,0,650,960,790,0,0,8000,0,0,0,380)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_A('I0BT',4,0,0,0,380,430,$F,0,0,0,0,$F0)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0C5',4,0,0,0,860,$401,20,0,0,$C8,100,340)
        call Equipment_to_build_B($A,0,0,0,0,0)
    elseif i==$D then
        call Equipment_to_build_A('I0C9',1,$7724,0,$79E,0,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0DU',1,$9664,0,$992,0,0,0,0,0,0,0,380)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_A('ratf',1,$6F54,0,0,0,$9BA,0,5000,0,0,0,380)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_A('sor4',1,$6784,0,0,0,$834,0,$DAC,0,0,0,360)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('I0CA',1,$5FB4,0,0,0,$802,0,0,0,0,75,360)
        call Equipment_to_build_A('I0AJ',1,$639C,0,0,0,$866,0,6000,0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I009',1,$6784,0,0,0,$8CA,0,0,6000,0,100,370)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_A('I00D',1,$639C,0,0,0,$7D0,0,0,$FA0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0CU',1,$6B6C,0,620,$73A,0,0,0,0,0,75,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0E6',1,$7EF4,0,960,$910,0,0,0,0,0,75,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0EC',1,$8E94,0,$73A,$992,0,0,0,0,0,0,400)
        call Equipment_to_build_B(20,0,0,0,0,0)
        call Equipment_to_build_A('I0C6',2,0,620,720,380,0,0,0,0,0,0,360)
        call Equipment_to_build_B(0,0,0,0,0,$A)
        call Equipment_to_build_A('I09G',3,0,690,840,840,$99C,0,0,0,0,0,400)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_D(20,0,0,0,0,0,0)
        call Equipment_to_build_A('I0C7',3,0,400,410,410,410,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_D(6,0,0,0,0,0,0)
        call Equipment_to_build_A('I0C8',4,0,0,925,720,0,0,0,0,0,0,360)
        call Equipment_to_build_C(0,0,0,0,0,0,25,-25)
        call Equipment_to_build_A('I0CE',5,0,0,775,725,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_Mode("JHY.mdx","chest")
        call Equipment_to_build_A('I0CR',2,0,410,0,680,0,0,0,0,0,0,300)
        call Equipment_to_build_B(7,0,0,0,0,0)
        call Equipment_to_build_A('I0CP',3,0,460,490,0,0,0,0,0,0,0,360)
        call Equipment_to_build_B(0,0,0,0,0,$A)
        call Equipment_to_build_A('I0CG',4,0,0,760,760,760,0,0,$FA0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('crdt',4,0,0,890,890,890,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0CN',1,$445C,0,0,$6CC,0,$F,0,0,0,0,360)
        call Equipment_to_build_A('I0CO',2,0,540,720,0,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0CS',2,0,390,0,0,680,0,0,0,0,60,360)
        call Equipment_to_build_B(3,0,0,0,$F,0)
        call Equipment_to_build_A('I0CQ',4,0,$96,845,845,845,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,$A)
        call Equipment_to_build_A('srbd',4,0,300,$47E,$47E,$47E,0,0,0,0,0,370)
        call Equipment_to_build_B(8,0,0,0,0,$F)
    elseif i==$E then
        call Equipment_to_build_A('I0B1',4,0,0,825,825,825,0,0,0,0,125,360)
        call Equipment_to_build_B(4,0,0,0,0,0)
        call Equipment_to_build_A('gobm',1,$59D8,0,580,$73A,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I05U',1,$6B6C,0,$5B4,$924,0,0,0,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('hcun',1,$6AA4,0,$758,0,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,$A,0,0,0)
        call Equipment_to_build_A('I0DV',1,$6BD0,0,$802,0,0,0,0,0,0,0,380)
        call Equipment_to_build_B(0,0,0,0,0,-100)
        call Equipment_to_build_A('I0DZ',1,$7EF4,0,$9F6,0,0,0,0,0,0,0,390)
        call Equipment_to_build_B($A,0,0,45,0,0)
        call Equipment_to_build_A('rump',3,0,444,0,0,777,0,0,0,0,0,360)
        call Equipment_to_build_B(0,5,0,0,0,0)
        call Equipment_to_build_A('I0E4',3,0,666,0,0,999,0,0,0,0,0,380)
        call Equipment_to_build_B(0,$A,0,0,0,0)
        call Equipment_to_build_A('afac',1,$61A8,0,$79E,0,0,0,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('odef',1,$4E20,0,$514,$514,$514,$F,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I00A',1,$6F54,0,$5AA,$5AA,$5AA,-50,0,0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('rag1',3,0,450,410,410,410,0,0,0,0,0,360)
        call Equipment_to_build_B(0,0,6,0,0,0)
        call Equipment_to_build_A('sbch',2,0,720,800,330,0,0,0,0,0,0,360)
        call Equipment_to_build_B(0,8,0,0,0,0)
        call Equipment_to_build_A('clsd',2,0,580,300,850,0,0,0,0,0,0,360)
        call Equipment_to_build_B(0,5,0,0,0,0)
        call Equipment_to_build_A('lhst',2,0,480,0,0,$41A,0,7000,0,0,0,360)
        call Equipment_to_build_A('ratc',1,$8020,0,$73A,$708,0,0,0,0,0,0,370)
        call Equipment_to_build_B(0,0,0,20,0,0)
        call Equipment_to_build_A('rat6',1,$5FB4,0,0,0,$92E,0,0,7500,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('ward',2,0,520,0,0,$4E2,0,0,0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0DR',2,0,660,0,0,$532,0,0,8000,0,0,380)
        call Equipment_to_build_D($A,0,0,0,0,0,0)
        call Equipment_to_build_A('rat9',4,0,0,$47E,$47E,$47E,$F,0,0,0,0,370)
        call Equipment_to_build_A('penr',4,0,0,0,0,0,0,0,0,0,0,370)
        call Equipment_to_build_B($D,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,$5AA)
        call Equipment_to_build_A('k3m3',5,0,0,825,825,825,0,0,0,$E1,100,370)
        call Equipment_to_build_B($C,0,0,0,0,0)
        call Equipment_to_build_Mode("LichWing Yellow.mdx","chest")
    elseif i==$F then
        call Equipment_to_build_A('belv',1,$6978,0,0,0,$898,0,0,0,0,0,370)
        call Equipment_to_build_C(0,$A,0,0,0,0,20,0)
        call Equipment_to_build_A('I0E9',1,$733C,0,0,0,$924,0,0,5500,0,0,380)
        call Equipment_to_build_B($A,$A,0,0,0,0)
        call Equipment_to_build_A('crys',3,0,480,0,700,700,0,5000,0,0,0,370)
        call Equipment_to_build_A('stel',5,0,0,0,0,0,0,5000,0,0,0,370)
        call Equipment_to_build_B(0,0,0,0,0,$A)
        call Equipment_to_build_Zsx(LasBuildEquipId,$438)
        call Equipment_to_build_A('shcw',1,$2E18,0,760,0,0,0,0,0,0,0,260)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('bfhr',3,0,$E6,100,100,100,0,0,0,0,0,260)
        call Equipment_to_build_Zsx(LasBuildEquipId,260)
        call Equipment_to_build_A('blba',4,0,0,500,475,0,0,0,0,0,0,260)
        call Equipment_to_build_B(0,0,0,20,0,0)
        call Equipment_to_build_A('stwa',4,0,0,525,0,600,0,0,0,0,0,260)
        call Equipment_to_build_A('lure',4,0,0,20,20,20,$F,$3E8,0,0,0,20)
        call Equipment_to_build_A('hbth',5,0,0,25,25,25,0,0,0,0,0,40)
        call Equipment_to_build_A('vddl',5,0,50,0,0,0,0,$7D0,0,50,0,80)
        call Equipment_to_build_A('I0D1',5,0,0,0,0,$546,0,5000,$30D4,0,0,370)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_Mode("JDY2.mdx","chest")
        call Equipment_to_build_A('I0D2',5,0,0,$41A,0,$41A,0,0,0,275,0,380)
        call Equipment_to_build_C(0,$F,0,0,0,0,0,$F)
        call Equipment_to_build_Mode("GaiaWings.mdx","origin")
        call Equipment_to_build_A('pgin',1,$5014,$AF,$73A,0,0,0,0,0,0,0,380)
        call Equipment_to_build_B(0,0,0,0,0,$A)
        call Equipment_to_build_A('sbok',1,$639C,0,0,$73A,0,0,0,0,0,0,360)
        call Equipment_to_build_B(0,0,0,25,0,0)
        call Equipment_to_build_A('I0E5',1,$6D2E,0,0,$8FC,0,0,0,0,0,0,380)
        call Equipment_to_build_B(5,0,0,25,0,0)
        call Equipment_to_build_A('rej6',1,$5460,0,$618,$618,$618,18,0,0,0,0,370)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('srtl',4,0,0,$438,$438,$438,0,0,0,0,0,380)
        call Equipment_to_build_A('I0EB',4,0,0,$546,$546,$546,0,0,0,0,0,380)
        call Equipment_to_build_A('clfm',4,0,0,980,980,980,0,$30D4,0,0,0,360)
        call Equipment_to_build_C(0,0,0,0,0,0,0,$F)
        call Equipment_to_build_A('sor1',3,0,$F,85,85,85,0,0,0,0,25,$C8)
        call Equipment_to_build_A('rnsp',5,0,0,50,50,50,0,0,0,0,0,124)
        call Equipment_to_build_B(5,0,0,0,0,0)
    elseif i==16 then
        call Equipment_to_build_A('I0D4',5,7000,0,425,730,0,0,0,0,0,0,360)
        call Equipment_to_build_B(7,0,0,20,0,7)
        call Equipment_to_build_Mode("IllidanWings.mdx","chest")
        call Equipment_to_build_A('I0D5',4,0,0,$438,$438,0,0,0,0,0,0,360)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0D8',4,0,0,0,0,$4C9,0,$30D4,0,0,0,370)
        call Equipment_to_build_A('I0D9',2,0,830,$50A,540,0,-25,0,0,0,0,380)
        call Equipment_to_build_A('I00C',2,0,670,870,350,0,0,0,0,0,0,370)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('gmfr',1,$30D4,0,950,0,0,-$F,0,0,0,0,320)
        call Equipment_to_build_B(4,0,0,0,0,0)
        call Equipment_to_build_A('sehr',1,$4D58,0,$5C3,0,0,-20,0,0,0,0,340)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('cnhn',1,$6784,0,$974,0,0,-25,0,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('ckng',1,$2AF8,0,$4C9,0,0,0,0,0,0,0,340)
        call Equipment_to_build_C(5,0,0,0,0,0,$F,0)
        call Equipment_to_build_A('gopr',1,$2CEC,0,0,$4FB,0,0,$9C4,0,0,0,340)
        call Equipment_to_build_B(0,0,0,20,0,0)
        call Equipment_to_build_A('sorf',1,$5014,0,$6A4,0,940,-50,0,0,0,0,360)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('thle',1,$6F54,0,$8E8,0,$5AA,-50,0,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('sksh',1,6300,0,0,0,940,0,$7D0,0,0,0,260)
        call Equipment_to_build_A('ram4',1,$300C,0,0,0,$5D2,0,$9C4,0,0,0,300)
        call Equipment_to_build_A('rej5',1,$5208,0,0,0,$97E,0,5000,0,0,0,380)
        call Equipment_to_build_A('will',2,0,$E6,0,0,330,0,$7D0,0,0,0,260)
        call Equipment_to_build_B(5,0,0,0,0,0)
    elseif i==17 then
        call Equipment_to_build_A('skrt',1,$4074,0,0,$5AA,0,0,0,0,0,0,340)
        call Equipment_to_build_D(0,7.5,0,0,0,0,0)
        call Equipment_to_build_A('tkno',1,$86C4,0,$47E,$92E,0,0,0,0,0,0,380)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_D(0,$A,0,0,0,0,0)
        call Equipment_to_build_A('k3m1',3,0,290,0,330,0,0,$5DC,0,0,0,280)
        call Equipment_to_build_B(4.5,0,0,0,0,0)
        call Equipment_to_build_A('dthb',3,0,380,0,580,0,0,$9C4,0,0,0,340)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('sor6',3,0,260,$C8,0,340,0,0,0,0,0,280)
        call Equipment_to_build_A('sor7',3,0,340,310,0,590,0,0,0,0,0,340)
        call Equipment_to_build_A('stel',5,0,0,0,0,0,0,5000,0,0,0,370)
        call Equipment_to_build_B(0,0,0,0,0,$A)
        call Equipment_to_build_Zsx(LasBuildEquipId,$564)
        call Equipment_to_build_Mode("ShroudOfPersevarance.mdl","chest")
        call Equipment_to_build_A('rde2',1,$84D0,0,0,$8CA,0,0,$9C4,0,0,0,380)
        call Equipment_to_build_B($A,0,$A,0,0,0)
        call Equipment_to_build_A('rej4',1,$6338,0,0,0,$8CA,0,5000,0,0,0,380)
        call Equipment_to_build_B(0,0,$A,0,0,0)
        call Equipment_to_build_A('jpnt',2,0,450,490,$4BA,0,0,0,0,0,0,380)
        call Equipment_to_build_B($A,0,$A,0,0,0)
        call Equipment_to_build_A('sor8',2,0,590,380,0,$564,0,0,0,0,80,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('sclp',4,0,0,0,0,$438,0,$FA0,0,0,0,380)
        call Equipment_to_build_D(0,$A,0,0,0,0,0)
        call Equipment_to_build_A('bzbe',5,0,0,720,0,$5B4,0,0,0,0,0,380)
        call Equipment_to_build_B(8,8,0,0,0,0)
        call Equipment_to_build_Mode("BlackChakra.mdl","origin")
        call Equipment_to_build_A('rat3',1,$6C98,0,$41A,$938,0,0,0,0,0,0,380)
        call Equipment_to_build_B($A,0,$A,0,0,0)
        call Equipment_to_build_A('kybl',1,$7468,0,0,0,$94C,0,0,0,0,0,380)
        call Equipment_to_build_D($A,0,0,0,0,0,0)
        call Equipment_to_build_A('gcel',0,0,0,980,980,980,0,5000,0,0,0,380)
        call Equipment_to_build_A('I0EE',0,0,0,0,0,0,0,0,0,0,0,400)
        call Equipment_to_build_A('I0EF',0,0,0,0,0,0,0,0,0,0,0,400)
        call Equipment_to_build_A('I0DW',0,0,0,$67C,$67C,$67C,0,5000,0,0,0,400)
        call Equipment_to_build_D($A,0,0,0,0,0,0)
    elseif i==18 then
        call Equipment_to_build_A('bzbf',2,0,600,0,0,0,0,5000,5000,0,0,370)
        call Equipment_to_build_Zsx(LasBuildEquipId,790)
        call Equipment_to_build_A('shwd',4,0,0,990,975,975,0,0,0,0,0,370)
        call Equipment_to_build_B(6,6,0,25,0,0)
        call Equipment_to_build_A('esaz',3,0,590,975,350,0,0,0,0,0,0,380)
        call Equipment_to_build_B(0,0,0,0,0,$F)
        call Equipment_to_build_A('rde3',3,0,490,430,910,0,0,0,0,0,0,380)
        call Equipment_to_build_B($A,0,$A,0,0,0)
        call Equipment_to_build_A('wtlg',3,0,490,0,0,940,0,0,6000,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('k3m2',4,0,0,$5F5,$591,0,0,0,0,0,0,380)
        call Equipment_to_build_C(0,0,0,0,0,0,35,-35)
        call Equipment_to_build_A('sor3',1,$86C4,0,0,$8FC,0,0,5000,0,0,0,380)
        call Equipment_to_build_B(0,0,0,30,0,0)
        call Equipment_to_build_A('sor9',1,$6978,0,0,$8CA,0,0,0,0,0,0,380)
        call Equipment_to_build_B($A,$A,0,0,0,0)
        call Equipment_to_build_A('glsk',5,0,0,$4D8,540,540,0,0,0,-$E1,0,380)
        call Equipment_to_build_B(0,$F,0,0,0,0)
        call Equipment_to_build_Mode("purple abyss wing.mdl","chest")
        call Equipment_to_build_A('azhr',2,0,900,$47E,405,0,0,0,0,0,0,380)
        call Equipment_to_build_B(0,0,0,0,0,$A)
        call Equipment_to_build_A('dkfw',2,0,590,0,0,$564,0,0,8000,0,0,380)
        call Equipment_to_build_D(0,$B,0,0,0,0,0)
        call Equipment_to_build_A('I0F0',3,0,640,790,790,790,0,0,0,0,0,380)
        call Equipment_to_build_B(7.5,0,0,0,0,0)
        call Equipment_to_build_D(0,7.5,0,0,0,0,0)
        call Equipment_to_build_A('I0F1',2,0,740,0,0,0,0,0,$2710,0,0,380)
        call Equipment_to_build_C(0,0,0,0,0,0,0,-20)
        call Equipment_to_build_Zsx(LasBuildEquipId,$442)
        call Equipment_to_build_A('I0EX',5,0,0,0,0,0,0,5000,0,0,0,380)
        call Equipment_to_build_B(7,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,$67C)
        call Equipment_to_build_Mode("cb6.mdl","chest")
        call Equipment_to_build_A('I0EZ',5,0,0,510,510,0,0,0,0,0,0,380)
        call Equipment_to_build_Zsx(LasBuildEquipId,$406)
        call Equipment_to_build_B(0,0,0,30,0,0)
        call Equipment_to_build_Mode("yh1.mdl","chest")
        call Equipment_to_build_A('I0EY',1,$6784,0,0,$870,0,0,0,0,0,0,380)
        call Equipment_to_build_B(8,0,0,25,0,0)
        call Equipment_to_build_A('I0F3',3,0,560,0,0,920,0,0,0,0,0,380)
        call Equipment_to_build_B(5,$A,0,0,0,0)
        call Equipment_to_build_A('rre2',4,0,0,$A,$A,$A,0,0,0,0,0,$A)
        call Equipment_to_build_A('I0F2',1,$765C,0,$9A6,0,0,0,0,0,0,0,380)
        call Equipment_to_build_B(8,0,20,0,0,0)
        call Equipment_to_build_A('I0EW',1,$927C,0,$79E,$76C,0,0,0,0,0,0,380)
        call Equipment_to_build_B(8,0,0,0,0,0)
        call Equipment_to_build_A('I0F8',1,$53FC,0,0,0,$99C,0,0,0,0,0,380)
        call Equipment_to_build_B($F,0,0,0,0,0)
        call Equipment_to_build_A('I0FA',1,$57E4,0,0,0,$99C,25,0,0,0,0,380)
        call Equipment_to_build_C(5,0,0,0,0,0,$A,0)
        call Equipment_to_build_A('I0FB',1,$67E8,0,$744,$744,$744,25,0,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0F7',1,$7AA8,0,980,$992,0,0,0,0,0,0,380)
        call Equipment_to_build_B($F,0,0,0,0,0)
        call Equipment_to_build_A('I0EV',1,$8E94,0,$802,$802,0,0,0,0,0,0,380)
        call Equipment_to_build_Zsx(LasBuildEquipId,500)
        call Equipment_to_build_B($F,0,0,0,0,0)
        call Equipment_to_build_A('I0CH',1,$59D8,0,$44C,$578,0,0,6500,0,0,0,360)
        call Equipment_to_build_B(0,$A,0,0,0,0)
        call Equipment_to_build_A('I0F9',3,0,320,610,945,0,0,0,0,0,0,380)
        call Equipment_to_build_B($F,0,0,0,0,8)
        call Equipment_to_build_A('I0F6',4,0,380,$659,$546,0,0,0,0,0,0,380)
        call Equipment_to_build_B(0,0,0,0,0,$F)
        call Equipment_to_build_A('I0F5',3,0,570,760,760,760,0,0,0,0,0,380)
        call Equipment_to_build_B(0,0,7.5,0,0,0)
        call Equipment_to_build_D(0,0,$A,0,0,0,0)
        call Equipment_to_build_A('I0FD',4,0,0,$62C,$62C,$62C,0,0,$3E8,0,0,380)
        call Equipment_to_build_A('I0F4',1,$A924,0,0,0,0,0,0,0,0,0,380)
        call Equipment_to_build_Zsx(LasBuildEquipId,$B22)
        call Equipment_to_build_A('I0FC',1,$A9EC,0,$A5A,0,0,0,0,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0ES',4,0,0,$60E,0,0,0,$2710,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0EU',4,0,0,0,$60E,0,0,$2710,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('I0ET',4,0,0,0,0,$60E,0,$2710,0,0,0,380)
        call Equipment_to_build_B($A,0,0,0,0,0)
        call Equipment_to_build_A('rma2',2,0,0,0,0,0,0,5000,0,0,0,380)
        call Equipment_to_build_Zsx(LasBuildEquipId,860)
        call Equipment_to_build_A('I0FG',0,0,0,0,0,0,0,5000,5000,0,0,1)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,400)
        call Equipment_to_build_A('I0FF',0,0,0,$C8,$C8,$C8,0,5000,5000,0,0,1)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0FH',0,0,120,$B4,$B4,$B4,0,0,0,0,0,1)
        call Equipment_to_build_B(5,5,0,0,$F,0)
        call Equipment_to_build_A('I0FK',5,0,0,320,320,320,0,$BB8,$BB8,0,0,$F0)
        call Equipment_to_build_B(2,0,0,0,0,0)
        call Equipment_to_build_A('I0D7',3,0,670,$41A,620,0,0,0,0,0,0,380)
        call Equipment_to_build_A('I0FL',3,0,350,0,0,730,0,0,0,0,0,370)
        call Equipment_to_build_B(7,0,0,0,0,0)
        call Equipment_to_build_A('I0FO',4,0,0,710,710,710,0,0,0,0,0,370)
        call Equipment_to_build_B(7.5,0,0,0,0,0)
        call Equipment_to_build_A('I0FN',0,0,0,760,760,760,0,0,0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_A('I0FM',1,$67E8,0,$4E2,$73A,0,0,0,0,0,0,370)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_A('I0FP',1,$9470,0,$60E,$9F6,0,0,0,0,0,0,390)
        call Equipment_to_build_B(0,0,100,20,0,0)
        call Equipment_to_build_A('I09Y',5,0,0,250,250,250,0,0,0,100,0,240)
        call Equipment_to_build_Mode("BloodyWings.mdx","Chest")
        call Equipment_to_build_A('I0CT',1,25000,0,750,1900,0,0,0,0,0,0,240)
        call Equipment_to_build_B(7,0,0,0,0,0)
        call Equipment_to_build_A('I0H8',1,12000,0,500,500,0,0,0,0,0,0,300)
        call Equipment_to_build_B(2,0,0,0,50,0)
        call Equipment_to_build_A('I0HB',0,0,0,800,800,800,0,0,0,0,0,370)
        call Equipment_to_build_B(6,0,0,0,0,0)
        call Equipment_to_build_D(0,0,0,0,0,0,20)
        call Equipment_to_build_A('I0HD',4,0,0,666,666,666,0,0,0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_D(5,0,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,666)
        call Equipment_to_build_A('I0HE',0,0,0,750,750,750,0,0,0,0,0,370)
        call Equipment_to_build_B(5,0,0,0,0,0)
        call Equipment_to_build_D(3,0,0,0,0,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,300)
        call Equipment_to_build_A('I0HF',0,200,0,300,300,300,0,0,0,0,0,300)
        call Equipment_to_build_B(0,5,0,0,0,0)
        call Equipment_to_build_A('I0HF',0,300,0,600,600,600,0,0,0,0,0,360)
        call Equipment_to_build_B(4,10,0,0,0,0)
        call Equipment_to_build_A('I0HH',0,300,0,700,700,700,0,0,0,0,0,360)
        call Equipment_to_build_B(5,5,0,0,0,0)
        call Equipment_to_build_D(0,0,0,0,0,0,5)
        call Equipment_to_build_A('I0HI',5,100,0,150,150,150,0,0,0,0,0,250)
        call Equipment_to_build_B(3,0,0,0,0,0)
        call Equipment_to_build_A('I0HO',1,11000,0,500,900,0,0,0,0,0,0,350)
        call Equipment_to_build_B(0,0,5,20,0,0)
        call Equipment_to_build_A('I0HP',1,13000,0,0,0,0,0,0,0,0,0,350)
        call Equipment_to_build_B(0,0,5,10,0,0)
        call Equipment_to_build_Zsx(LasBuildEquipId,1000)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:640")
    endif
endfunction

function EquipState_onInit takes nothing returns nothing
    set Equip_Mode_t=malloc()
    set Equip_Type_t=malloc()
    set Equip_Attack_t=malloc()
    set Equip_Armor_t=malloc()
    set Equip_Str_t=malloc()
    set Equip_Agi_t=malloc()
    set Equip_Int_t=malloc()
    set Equip_ASPD_t=malloc()
    set Equip_HP_t=malloc()
    set Equip_MP_t=malloc()
    set Equip_HpRegen_t=malloc()
    set Equip_MpRegen_t=malloc()
    set Equip_MDG_t=malloc()
    set Equip_MDEF_t=malloc()
    set Equip_Crit_t=malloc()
    set Equip_CDG_t=malloc()
    set Equip_Dodge_t=malloc()
    set Equip_ADEF_t=malloc()
    set Equip_BCR_t=malloc()
    set Equip_DOT_t=malloc()
    set Equip_Property_Damage_t=malloc()
    set Equip_Lv_t=malloc()
    set Equip_zhushuxing_t=malloc()
    set Item_PickupOrDrop_event=malloc()
    set s__suit_V=malloc()
    call TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function EquipState__ynv))))
    call TriggerAddCondition(alloc__GX[(TRIGGER_DROP)],(Condition((function EquipState__yVv))))
    call TimerStart((NewTimer(0)),.03125,true,function ymv)
    call ExecuteFunc("EquipTrigger_onInit")
endfunction

function CameraSetupApplyForceDurationBJ takes camerasetup whichSetup,boolean doPan,real forceDuration returns nothing
    if not SHOWINTERFACE then
        call CameraSetupApplyForceDuration(whichSetup,doPan,forceDuration)
    endif
endfunction

function Boss_Spell_allocate takes nothing returns integer
    local integer this=Boss_Spell_v[0]
    if this>0 then
        set Boss_Spell_v[0]=Boss_Spell_v[this]
    else
        set Boss_Spell_i=Boss_Spell_i+1
        set this=Boss_Spell_i
    endif
    set Boss_Spell_v[this]=-1
    return this
endfunction

function Boss_Spell_deallocate takes integer this returns nothing
    if this>0 and Boss_Spell_v[this]==-1 then
        set Boss_Spell_v[this]=Boss_Spell_v[0]
        set Boss_Spell_v[0]=this
    endif
endfunction

function A9v takes nothing returns boolean
    local real dx=GetDestructableX(GetFilterDestructable())-A3v
    local real dy=GetDestructableY(GetFilterDestructable())-A4v
    return(dx*dx+dy*dy<=bj_enumDestructableRadius)
endfunction

function Nvv takes itemtype Nev,integer Nxv returns nothing
    local group g
    set bj_stockPickedItemType=Nev
    set bj_stockPickedItemLevel=Nxv
    set g=CreateGroup()
    call GroupEnumUnitsOfType(g,"marketplace",A7v)
    call ForGroup(g,function UpdateEachStockBuildingEnum)
    call DestroyGroup(g)
    set g=null
endfunction

function Nov takes nothing returns nothing
    local integer pickedItemId
    local itemtype Nrv
    local integer Niv=0
    local integer Nav=0
    local integer Nxv
    set Nxv=1
    loop
        if(bj_stockAllowedPermanent[Nxv])then
            set Nav=Nav+1
            if(GetRandomInt(1,Nav)==1)then
                set Nrv=ITEM_TYPE_PERMANENT
                set Niv=Nxv
            endif
        endif
        if(bj_stockAllowedCharged[Nxv])then
            set Nav=Nav+1
            if(GetRandomInt(1,Nav)==1)then
                set Nrv=ITEM_TYPE_CHARGED
                set Niv=Nxv
            endif
        endif
        if(bj_stockAllowedArtifact[Nxv])then
            set Nav=Nav+1
            if(GetRandomInt(1,Nav)==1)then
                set Nrv=ITEM_TYPE_ARTIFACT
                set Niv=Nxv
            endif
        endif
        set Nxv=Nxv+1
        exitwhen Nxv>$A
    endloop
    if(Nav==0)then
        set Nrv=null
        return
    endif
    call Nvv(Nrv,Niv)
    set Nrv=null
endfunction

function Nnv takes nothing returns nothing
    call Nov()
    call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INTERVAL,true,function Nov)
endfunction

function NEv takes nothing returns boolean
    return true
endfunction

function NIv takes nothing returns integer
    call TriggerEvaluate(ADv)
    return Ayv
endfunction

function NAv takes integer NNv,integer Nbv returns nothing
    set Eev[Evv[NNv]]=Nbv
    set Evv[Nbv]=Evv[NNv]
    set Evv[NNv]=Nbv
    set Eev[Nbv]=NNv
endfunction

function NBv takes nothing returns integer
    call TriggerEvaluate(AFv)
    return Ayv
endfunction

function Ncv takes integer NNv returns nothing
    set AWv=NNv
    call TriggerEvaluate(Agv)
endfunction

function NCv takes integer NNv returns nothing
    set AWv=NNv
    call TriggerEvaluate(AGv)
endfunction

function BVv takes nothing returns nothing
    call TriggerEvaluate(RSv)
endfunction

function BEv takes unit u,real x,real y,real z,unit t,real d,string fx,real sc,real sp,real ac returns nothing
    set Asv=u
    set Akv=x
    set AKv=y
    set Alv=z
    set ASv=t
    set ALv=d
    set AQv=fx
    set Amv=sc
    set AMv=sp
    set Apv=ac
    call TriggerEvaluate(Rtv)
endfunction

function BXv takes nothing returns nothing
    call TriggerEvaluate(Rqv)
endfunction

function BOv takes integer NNv returns nothing
    set Ahv=NNv
    call TriggerEvaluate(RQv)
endfunction

function BRv takes real sX,real sY,real sZ,real tZ,real di,real a,real BIv,real ar,real cv returns integer
    set Akv=sX
    set AKv=sY
    set Alv=sZ
    set ALv=tZ
    set Amv=di
    set AMv=a
    set Apv=BIv
    set APv=ar
    set Aqv=cv
    call TriggerEvaluate(Rsv)
    return Ayv
endfunction

function BNv takes integer NNv returns boolean
    set AWv=NNv
    call TriggerEvaluate(RPv)
    return AZv
endfunction

function BCv takes integer NNv returns nothing
    set qt[NNv]=0
    set Qt[NNv]=0
endfunction

function Bdv takes integer NNv,real BDv,real Bfv returns nothing
    set AWv=NNv
    set Akv=BDv
    set AKv=Bfv
    call TriggerEvaluate(RLv)
endfunction

function BFv takes integer NNv returns nothing
    set AWv=NNv
    call TriggerEvaluate(RJv)
endfunction

function Bgv takes integer NNv returns nothing
    set AWv=NNv
    call TriggerEvaluate(Rkv)
endfunction

function BGv takes string Bhv,unit s,unit t returns integer
    set AQv=Bhv
    set Asv=s
    set ASv=t
    call TriggerEvaluate(RKv)
    return Ayv
endfunction

function Bmv takes nothing returns nothing
    call TriggerEvaluate(Rfv)
endfunction

function BMv takes nothing returns nothing
    call TriggerEvaluate(RDv)
endfunction

function Bpv takes nothing returns nothing
    call TriggerEvaluate(Rdv)
endfunction

function BPv takes nothing returns nothing
    call TriggerEvaluate(RBv)
endfunction

function Bqv takes nothing returns nothing
    call TriggerEvaluate(Rcv)
endfunction

function BQv takes nothing returns nothing
    call TriggerEvaluate(RCv)
endfunction

function Bsv takes nothing returns nothing
    call TriggerEvaluate(Rbv)
endfunction

function BSv takes integer NNv returns boolean
    set AWv=NNv
    call TriggerEvaluate(RAv)
    return AZv
endfunction

function Btv takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(RNv)
endfunction

function Buv takes nothing returns nothing
    call TriggerEvaluate(RIv)
endfunction

function BUv takes nothing returns nothing
    call TriggerEvaluate(ROv)
endfunction

function Bwv takes nothing returns nothing
    call TriggerEvaluate(RXv)
endfunction

function BWv takes integer Byv,integer BYv returns nothing
    set Ahv=Byv
    set AHv=BYv
    call TriggerEvaluate(Rnv)
endfunction

function Bzv takes nothing returns nothing
    call TriggerEvaluate(RVv)
endfunction

function BZv takes nothing returns nothing
    call TriggerEvaluate(REv)
endfunction

function B_v takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Riv)
endfunction

function B0v takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Rav)
endfunction

function B1v takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Rrv)
endfunction

function B2v takes nothing returns nothing
    call TriggerEvaluate(Rov)
endfunction

function B3v takes integer NNv returns unit
    set AWv=NNv
    call TriggerEvaluate(Rev)
    return AYv
endfunction

function B5v takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Rvv)
endfunction

function B6v takes unit NZv,unit N7v,integer B7v returns nothing
    set Asv=NZv
    set ASv=N7v
    set Ahv=B7v
    call TriggerEvaluate(O8v)
endfunction

function B9v takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(O7v)
endfunction

function cvv takes nothing returns nothing
    call TriggerEvaluate(O4v)
endfunction

function cev takes real cxv returns nothing
    set Akv=cxv
    call TriggerEvaluate(O5v)
endfunction

function cov takes nothing returns nothing
    call TriggerEvaluate(O6v)
endfunction

function crv takes nothing returns nothing
    call TriggerEvaluate(O3v)
endfunction

function civ takes integer NNv returns unit
    set AWv=NNv
    call TriggerEvaluate(O1v)
    return AYv
endfunction

function cav takes nothing returns nothing
    call TriggerEvaluate(O2v)
endfunction

function cnv takes nothing returns nothing
    call TriggerEvaluate(O0v)
endfunction

function cVv takes nothing returns nothing
    call TriggerEvaluate(O_v)
endfunction

function cEv takes nothing returns nothing
    call TriggerEvaluate(OZv)
endfunction

function cXv takes real x,real y returns nothing
    set Akv=x
    set AKv=y
    call TriggerEvaluate(Ozv)
endfunction

function cOv takes integer NNv returns unit
    set AWv=NNv
    call TriggerEvaluate(OYv)
    return AYv
endfunction

function cRv takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Oyv)
endfunction

function cIv takes unit c returns nothing
    set Asv=c
    call TriggerEvaluate(OWv)
endfunction

function cAv takes nothing returns nothing
    call TriggerEvaluate(OUv)
endfunction

function cNv takes integer NNv returns nothing
    set Ahv=NNv
    call TriggerEvaluate(Owv)
endfunction

function cbv takes nothing returns nothing
    call TriggerEvaluate(Ouv)
endfunction

function cBv takes nothing returns nothing
    call TriggerEvaluate(OTv)
endfunction

function ccv takes nothing returns nothing
    call TriggerEvaluate(OSv)
endfunction

function cCv takes nothing returns nothing
    call TriggerEvaluate(Otv)
endfunction

function cgv takes unit s,unit t,real Njv returns nothing
    set Asv=s
    set ASv=t
    set Akv=Njv
    call TriggerEvaluate(OPv)
endfunction

function cGv takes real x,real y returns nothing
    set Akv=x
    set AKv=y
    call TriggerEvaluate(Opv)
endfunction

function chv takes nothing returns nothing
    call TriggerEvaluate(OMv)
endfunction

function cHv takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Omv)
endfunction

function cjv takes nothing returns nothing
    call TriggerEvaluate(Olv)
endfunction

function cJv takes unit ckv returns nothing
    set Asv=ckv
    call TriggerEvaluate(OLv)
endfunction

function cKv takes real x,real y returns nothing
    set Akv=x
    set AKv=y
    call TriggerEvaluate(OKv)
endfunction

function clv takes real x,real y returns nothing
    set Akv=x
    set AKv=y
    call TriggerEvaluate(Okv)
endfunction

function cLv takes integer NNv returns boolean
    set AWv=NNv
    call TriggerEvaluate(OJv)
    return AZv
endfunction

function cmv takes nothing returns nothing
    call TriggerEvaluate(OHv)
endfunction

function cMv takes real x,real y returns nothing
    set Akv=x
    set AKv=y
    call TriggerEvaluate(Ojv)
endfunction

function cpv takes nothing returns nothing
    call TriggerEvaluate(Ohv)
endfunction

function cPv takes unit ckv returns nothing
    set Asv=ckv
    call TriggerEvaluate(OGv)
endfunction

function cqv takes nothing returns nothing
    call TriggerEvaluate(Ogv)
endfunction

function cSv takes integer NNv returns unit
    set AWv=NNv
    call TriggerEvaluate(ODv)
    return AYv
endfunction

function ctv takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Ofv)
endfunction

function cuv takes nothing returns nothing
    call TriggerEvaluate(Odv)
endfunction

function cUv takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(OBv)
endfunction

function cwv takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(Ocv)
endfunction

function cZv takes nothing returns nothing
    call TriggerEvaluate(OAv)
endfunction

function c4v takes integer NNv returns unit
    set AWv=NNv
    call TriggerEvaluate(Onv)
    return AYv
endfunction

function Cgv takes integer NNv returns unit
    set AWv=NNv
    call TriggerEvaluate(XQv)
    return AYv
endfunction

function CKv takes unit u returns nothing
    set Asv=u
    call TriggerEvaluate(XMv)
endfunction

function Clv takes nothing returns nothing
    call TriggerEvaluate(Xmv)
endfunction

function Cpv takes integer NNv,integer v returns nothing
    set AWv=NNv
    set Ahv=v
    call TriggerEvaluate(XKv)
endfunction

function Csv takes player p returns integer
    return GetPlayerId(p)
endfunction

function CSv takes integer NNv,real Ctv,real cyv returns nothing
    set AWv=NNv
    set Akv=Ctv
    set AKv=cyv
    call TriggerEvaluate(Xhv)
endfunction

function CTv takes real Cuv,real cyv,real x,real y,real r returns nothing
    set Akv=Cuv
    set AKv=cyv
    set Alv=x
    set ALv=y
    set Amv=r
    call TriggerEvaluate(XHv)
endfunction

function CUv takes integer NNv,integer r,integer g,integer b,real cyv returns nothing
    set AWv=NNv
    set Ahv=r
    set AHv=g
    set Ajv=b
    set Akv=cyv
    call TriggerEvaluate(Xjv)
endfunction

function dev takes unit u,integer a,integer b,real cyv returns boolean
    set Asv=u
    set Ahv=a
    set AHv=b
    set Akv=cyv
    call TriggerEvaluate(XEv)
    return AZv
endfunction

function dxv takes unit u,boolean i returns nothing
    set Asv=u
    set ATv=i
    call TriggerEvaluate(XVv)
endfunction

function dJv takes integer NNv returns player
    return P[Kc[NNv]]
endfunction

function dKv takes integer NNv returns integer
    set AWv=NNv
    call TriggerEvaluate(Ezv)
    return Ayv
endfunction

function dmv takes integer NNv returns integer
    set AWv=NNv
    call TriggerEvaluate(Edv)
    return Ayv
endfunction

function dMv takes integer NNv,real v returns nothing
    set AWv=NNv
    set Akv=v
    call TriggerEvaluate(EDv)
endfunction

function dQv takes integer NNv returns boolean
    return PB[NNv]
endfunction

function s__PlayerColorString___S__allocate takes nothing returns integer
    local integer NNv=hX
    if(NNv!=0)then
        set hX=jX[NNv]
    else
        set HX=HX+1
        set NNv=HX
    endif
    if(NNv>8190)then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Unable to allocate id for an object of type: PlayerColorString___S")
        return 0
    endif
    set jX[NNv]=-1
    return NNv
endfunction

function Dwv takes code DWv returns nothing
    call TriggerAddCondition(DX,Filter(DWv))
endfunction

function Dzv takes nothing returns boolean
    local integer id=GetHandleId(GetTriggerEventId())-261
    set CX=GetPlayerId(GetTriggerPlayer())
    set bX=id/ 2
    set BX=bX*2==id
    set FX[CX+bX*$C]=BX
    return false
endfunction

function DZv takes nothing returns nothing
    local player p
    local integer i=$C
    local trigger t=DX
    loop
        set i=i-1
        set p=Player(i)
        if GetPlayerSlotState(p)==PLAYER_SLOT_STATE_PLAYING and GetPlayerController(p)==MAP_CONTROL_USER then
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_LEFT_DOWN)
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_LEFT_UP)
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_RIGHT_DOWN)
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_RIGHT_UP)
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_DOWN_DOWN)
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_DOWN_UP)
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_UP_DOWN)
            call TriggerRegisterPlayerEvent(t,p,EVENT_PLAYER_ARROW_UP_UP)
        endif
        exitwhen i==0
    endloop
    call TriggerAddCondition(DX,Filter((function Dzv)))
    set p=null
    set t=null
endfunction

function D_v takes code DWv returns nothing
    call TriggerAddCondition(DX,Filter((DWv)))
endfunction

function D0v takes nothing returns integer
    return CX
endfunction

function D1v takes nothing returns integer
    return bX
endfunction

function IsEventArrowKeyPressed takes nothing returns boolean
    return BX
endfunction

function fiv takes boolean b returns nothing
    local integer i=8
    set av=b
    if not SHOWINTERFACE then
        loop
            set i=i-1
            if MV[i]!=null then
                call SetUnitInvulnerable(MV[i],b)
                call PauseUnit(MV[i],b)
            endif
            exitwhen i==0
        endloop
        if b then
            if not bj_cineModeAlreadyIn then
                set bj_cineModeAlreadyIn=true
                set bj_cineModePriorFogSetting=IsFogEnabled()
                set bj_cineModePriorMaskSetting=IsFogMaskEnabled()
                set bj_cineModePriorDawnDusk=IsDawnDuskEnabled()
            endif
            call ClearTextMessages()
            call ShowInterface(false,bj_CINEMODE_INTERFACEFADE)
            call EnableUserControl(false)
            call EnableOcclusion(false)
            call SetCineModeVolumeGroupsBJ()
            call FogMaskEnable(false)
            call FogEnable(false)
            call EnableDawnDusk(false)
            call CinematicFadeBJ(2,1.,"ReplaceableTextures\\CameraMasks\\Black_mask.blp",0,0,0,0)
        else
            set bj_cineModeAlreadyIn=false
            set i=8
            call ShowInterface(true,bj_CINEMODE_INTERFACEFADE)
            call EnableUserControl(true)
            call EnableOcclusion(true)
            call VolumeGroupReset()
            call EndThematicMusic()
            call FogMaskEnable(bj_cineModePriorMaskSetting)
            call FogEnable(bj_cineModePriorFogSetting)
            call EnableDawnDusk(bj_cineModePriorDawnDusk)
            call ResetToGameCamera(0)
            loop
                set i=i-1
                if Gg[(i)]!=0 then
                    if GetLocalPlayer()==P[i]then
                        call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,Gg[(i)],0)
                    endif
                endif
                exitwhen i==0
            endloop
        endif
    endif
endfunction

function Gov takes nothing returns boolean
    if GetWidgetLife(GetFilterItem())<.405 then
        set IO[AO]=GetFilterItem()
        set AO=AO+1
    endif
    return false
endfunction

function Grv takes nothing returns nothing
    call EnumItemsInRect(WorldBounds,RO,null)
    if AO>0 then
        loop
            set AO=AO-1
            call SetWidgetLife(IO[AO],1)
            call RemoveItemG(IO[AO])
            set IO[AO]=null
            exitwhen AO==0
        endloop
    endif
endfunction

function Giv takes nothing returns nothing
    set RO=Filter(function Gov)
    call TimerStart(OO,$F,true,function Grv)
endfunction

function Globals_Shield_Remove takes integer id returns boolean
    if Globals_Shield_Timer[id]!=null then
        call ReleaseTimer(Globals_Shield_Timer[id],"[TimerUtils]Error:1")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),Globals_Shield_af[id],Globals_Shield_bf[id])
        call s__Trig_remove((Globals_Shield_Trig[id]))
        call Unit_Cancel_Counter(1,(id))
        set Globals_Shield_Timer[id]=null
        return true
    endif
    return false
endfunction

function Globals_Shield_Func takes nothing returns nothing
    local integer id=(pF)
    if Globals_Shield_Life[id]>GetDamage()then
        set Globals_Shield_Life[id]=Globals_Shield_Life[id]-GetDamage()
        set KF[HF]=PF+1000000.
    else
        call DamageMinus(Globals_Shield_Life[id])
        call Globals_Shield_Remove(id)
    endif
endfunction

function Globals_Shield_Expired takes nothing returns nothing
    call Globals_Shield_Remove(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function Globals_Shield_Add takes unit u,real h,real time,integer af,integer bf returns nothing
    local integer id=(GetUnitUserData((u)))
    if Globals_Shield_Timer[id]==null then
        set Globals_Shield_Timer[id]=NewTimer(id)
        set Globals_Shield_Trig[id]=UnitAddShieldTrigB((id),function Globals_Shield_Func)
        call UnitAddAbilityBY(u,af)
        set Globals_Shield_af[id]=af
        set Globals_Shield_bf[id]=bf
        call Unit_App_Counter(2,(id))
    else
        if af!=Globals_Shield_af[id]then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),Globals_Shield_af[id],Globals_Shield_bf[id])
            call UnitAddAbilityBY(u,af)
            set Globals_Shield_af[id]=af
            set Globals_Shield_bf[id]=bf
        endif
    endif
    set Globals_Shield_Life[id]=h
    call TimerStart(Globals_Shield_Timer[id],time,false,function Globals_Shield_Expired)
endfunction

function GDv takes nothing returns integer
    return D9v(kO)
endfunction

function Gfv takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function GFv_v takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer data
    if gO_3[id]>0 then
        set gO_3[id]=0
        set data=J[kO]
        loop
            exitwhen data==0
            if gO_2[data]==id then
                if GO[data]!=null then
                    call DestroyEffect(GO[data])
                    set GO[data]=null
                endif
                set gO_2[data]=0
                set gO[data]=null
                set JO[data]=0
                call fvv((data))
            endif
            set data=K[data]
        endloop
    endif
endfunction

function GFv takes nothing returns boolean
    local integer NNv=J[kO]
    local real x
    local real y
    loop
        exitwhen 0==NNv
        set hO[NNv]=hO[NNv]-1
        if MB[(GetUnitUserData((gO[NNv])))]then
            set hO[NNv]=0
        else
            if JO[NNv]>0 then
                set x=GetUnitX(gO[NNv])+JO[NNv]*HO[NNv]
                set y=GetUnitY(gO[NNv])+JO[NNv]*jO[NNv]
                set JO[NNv]=.8*JO[NNv]-.125
            else
                set x=GetUnitX(gO[NNv])+HO[NNv]
                set y=GetUnitY(gO[NNv])+jO[NNv]
            endif
            if IsTerrainWalkable(x,y)then
                call SetUnitX(gO[NNv],x)
                call SetUnitY(gO[NNv],y)
            endif
        endif
        if hO[NNv]<=0 then
            if GO[NNv]!=null then
                call DestroyEffect(GO[NNv])
                set GO[NNv]=null
            endif
            set gO_3[gO_2[NNv]]=gO_3[gO_2[NNv]]-1
            set gO_2[NNv]=0
            set gO[NNv]=null
            set JO[NNv]=0
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function Ggv takes nothing returns nothing
    set kO=fxv(function GFv)
endfunction

function GGv takes unit nU,real nD,real a,real Ghv returns nothing
    local integer NNv
    local real p
    local integer id=(GetUnitUserData((nU)))
    if not MB[id]and GetUnitMoveSpeed(nU)>0 then
        set NNv=(D9v(kO))
        set gO_3[id]=gO_3[id]+1
        set gO_2[NNv]=id
        set gO[NNv]=nU
        set hO[NNv]=R2I(32*Ghv)
        set p=nD/ hO[NNv]
        set HO[NNv]=p*Cos(a)
        set jO[NNv]=p*Sin(a)
    endif
endfunction

function GHv takes unit nU,real nD,real a,real Ghv,string sf returns nothing
    local integer NNv
    local real p
    local integer id=(GetUnitUserData((nU)))
    if not MB[id]and GetUnitMoveSpeed(nU)>0 then
        set NNv=(D9v(kO))
        set gO_3[id]=gO_3[id]+1
        set gO_2[NNv]=id
        set gO[NNv]=nU
        set GO[NNv]=AddSpecialEffectTarget(sf,nU,"origin")
        set hO[NNv]=R2I(32*Ghv)
        if hO[NNv]<1 then
            set hO[NNv]=1
        endif
        set p=nD/ hO[NNv]
        set HO[NNv]=p*Cos(a)
        set jO[NNv]=p*Sin(a)
    endif
endfunction

function Gjv takes unit nU,real s,real a,real Ghv,string sf returns nothing
    local integer NNv
    local real p
    local integer id=(GetUnitUserData((nU)))
    if not MB[id]and GetUnitMoveSpeed(nU)>0 then
        set NNv=(D9v(kO))
        set gO_3[id]=gO_3[id]+1
        set gO_2[NNv]=id
        set gO[NNv]=nU
        set GO[NNv]=AddSpecialEffectTarget(sf,nU,"origin")
        set hO[NNv]=R2I(32*Ghv)
        if hO[NNv]<1 then
            set hO[NNv]=1
        endif
        set JO[NNv]=s
        set HO[NNv]=Cos(a)
        set jO[NNv]=Sin(a)
    endif
endfunction

function GJv takes unit nU,real px,real py,real Ghv returns nothing
    local integer NNv
    local real p
    local real dx
    local real dy
    local real a
    local integer id=(GetUnitUserData((nU)))
    if not MB[id]and GetUnitMoveSpeed(nU)>0 then
        set NNv=(D9v(kO))
        set dx=px-GetUnitX(nU)
        set dy=py-GetUnitY(nU)
        set a=Atan2(dy,dx)
        set gO_3[id]=gO_3[id]+1
        set gO_2[NNv]=id
        set gO[NNv]=nU
        set hO[NNv]=R2I(32*Ghv)
        if hO[NNv]<1 then
            set hO[NNv]=1
        endif
        set p=SquareRoot(dx*dx+dy*dy)/ hO[NNv]
        set HO[NNv]=p*Cos(a)
        set jO[NNv]=p*Sin(a)
    endif
endfunction

function UnitMoveToADistanceByTarget takes unit nU,real px,real py,real nD returns nothing
    local real x
    local real y
    local real dx
    local real dy
    local real a
    if not MB[(GetUnitUserData((nU)))]and GetUnitMoveSpeed(nU)>0 then
        set x=GetUnitX(nU)
        set y=GetUnitY(nU)
        set dx=px-x
        set dy=py-y
        set a=SquareRoot(dx*dx+dy*dy)
        if a<nD then
            set x=px
            set y=py
        elseif a!=0 then
            set a=nD/ a
            set x=x+dx*a
            set y=y+dy*a
        else
            set a=GetRandomReal(0,6.28319)
            set x=x+nD*Cos(a)
            set y=y+nD*Sin(a)
        endif
        if not IsTerrainWalkable(x,y)then
            set x=IsTerrainWalkable_X
            set y=IsTerrainWalkable_Y
        endif
        call SetUnitX(nU,x)
        call SetUnitY(nU,y)
    endif
endfunction

function GKv takes unit nU,real x,real y returns nothing
    if not MB[(GetUnitUserData((nU)))]and GetUnitMoveSpeed(nU)>0 then
        if not IsTerrainWalkable(x,y)then
            set x=IsTerrainWalkable_X
            set y=IsTerrainWalkable_Y
        endif
        call SetUnitX(nU,x)
        call SetUnitY(nU,y)
    endif
endfunction

function Lwv takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:2")
    call RemoveUnitBJ(Bx,1)
    set Bx=null
endfunction

function Luv takes integer LUv returns nothing
    if Bx==null then
        set CR=false
        set Bx=CreateUnit(Player($F),'e001',0,0,0)
        set CR=true
        call TimerStart((NewTimer(0)),.0,false,function Lwv)
    endif
    call UnitAddAbility(Bx,LUv)
endfunction

function mYv takes real r returns string
    local string s=R2S(r)
    return SubString(s,0,StringLength(s)-2)
endfunction

function mVv takes nothing returns integer
    return D9v(SI)
endfunction

function mEv takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function mXv takes nothing returns boolean
    local integer NNv=J[SI]
    loop
        exitwhen 0==NNv
        set QI[NNv]=QI[NNv]-8
        call Lfv(qI[NNv],$AF,$AF,$AF,QI[NNv])
        if QI[NNv]<1 then
            call LTv(qI[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function mOv takes nothing returns nothing
    set SI=fxv(function mXv)
endfunction

function CreatePhantom takes integer Cjv,integer an,real x,real y,real a returns integer
    local integer NNv=(D9v(SI))
    set qI[NNv]=LVv(Cjv,x,y,a)
    set QI[NNv]=$A0
    call SetUnitAnimationByIndex(II[qI[NNv]],an)
    call Lfv(qI[NNv],$AF,$AF,$AF,$9B)
    return qI[NNv]
endfunction

function mAv takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:3")
    call UnitRemoveAbility((Je[(i)]),Control_bfid[i])
    set Control_Timer[i]=null
    set Control_use[i]=false
    set Control_abid[i]=0
    set Control_bfid[i]=0
endfunction

function UnitCloseControl takes integer i returns nothing
    call ReleaseTimer(Control_Timer[i],"[TimerUtils]Error:4")
    call UnitRemoveAbility((Je[(i)]),Control_bfid[i])
    set Control_Timer[i]=null
    set Control_use[i]=false
    set Control_abid[i]=0
    set Control_bfid[i]=0
endfunction

function UnitOpenControl takes integer i,integer abid,integer bfid,real timed returns nothing
    if Control_Timer[i]==null then
        set Control_Timer[i]=NewTimer(i)
    endif
    set Control_use[i]=true
    set Control_abid[i]=abid
    set Control_bfid[i]=bfid
    call Auxiliary_TargetOrder((abid),null,1,$D0107,(Je[(i)]))
    call TimerStart(Control_Timer[i],timed,false,function mAv)
endfunction

function IsUnitBeControlled takes integer i returns boolean
    return Control_use[i]
endfunction

function GetControllTypePriority takes integer i returns integer
    if HaveSavedInteger(BYHT,Control_priority,i)then
        return LoadInteger(BYHT,Control_priority,i)
    endif
    return $F
endfunction

function SetControllTypePriority takes integer i,integer lv returns nothing
    call SaveInteger(BYHT,Control_priority,i,lv)
endfunction

function GetUnitBeControlType takes integer i returns integer
    return Control_abid[i]
endfunction

function mIv takes unit u returns integer
    return Control_abid[(GetUnitUserData((u)))]
endfunction

function mNv takes nothing returns boolean
    local integer i
    if IsUnitInGroup(GetTriggerUnit(),h_v_Group)then
        set i=(GetUnitUserData((GetTriggerUnit())))
        if((Control_use[(i)]))then
            call UnitCloseControl(i)
        endif
    endif
    return false
endfunction

function mbv takes nothing returns boolean
    set Control_Timer[(le)]=NewTimer((le))
    return false
endfunction

function mBv takes nothing returns boolean
    if Control_Timer[(le)]!=null then
        call ReleaseTimer(Control_Timer[(le)],"[TimerUtils]Error:5")
        set Control_Timer[(le)]=null
        set Control_use[(le)]=false
        set Control_abid[(le)]=0
        set Control_bfid[(le)]=0
    endif
    return false
endfunction

function mcv takes nothing returns nothing
    set Control_priority=malloc()
    call h4v(Condition(function mBv),BR)
    call RegisterEvent(EVENT_PLAYER_UNIT_DEATH,function mNv)
    call SaveInteger(BYHT,Control_priority,('ACfb'),(0))
    call SaveInteger(BYHT,Control_priority,('A00P'),(1))
endfunction

function mCv takes unit u returns boolean
    return Control_use[(GetUnitUserData((u)))]
endfunction

function mdv takes unit u returns real
    local integer i=(GetUnitUserData((u)))
    if((Je[(i)])!=u)then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"STUN ERROR: INVALID UNIT")
        return .0
    endif
    if(Control_use[i])then
        return TimerGetRemaining(Control_Timer[i])
    endif
    return .0
endfunction

function mDv takes unit u,real cxv returns nothing
    local integer i=(GetUnitUserData((u)))
    if((Je[(i)])!=u)then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"STUN ERROR: INVALID UNIT")
        return
    endif
    if(Control_use[i])then
        set cxv=cxv+TimerGetRemaining(Control_Timer[i])
        call TimerStart(Control_Timer[i],cxv,false,function mAv)
    else
        call UnitOpenControl(i,'A500','B500',cxv)
    endif
endfunction

function mfv takes unit u,real cxv,integer af,integer bf returns boolean
    local integer i=(GetUnitUserData((u)))
    if(cxv<0)then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"STUN ERROR: INVALID TIME")
        return false
    endif
    if((Je[(i)])!=u)then
        call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,"STUN ERROR: INVALID UNIT")
        return false
    endif
    if GetUnitTypeId(u)=='ushd' and bf!='Bfrz' then
        set cxv=0
    endif
    if cxv>0 then
        call UnitOpenControl(i,af,bf,cxv)
    elseif Control_use[i]then
        call UnitCloseControl(i)
    endif
    return Control_use[i]
endfunction

function mFv takes unit u returns nothing
    call TimerStart(Control_Timer[(GetUnitUserData((u)))],.25,false,function mAv)
endfunction

function mzv takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:6")
    call PauseUnit((Je[(id)]),false)
    call Unit_Cancel_Counter(3,id)
endfunction

function mZv takes unit u,string st,real d returns nothing
    local integer id=(GetUnitUserData((u)))
    call PauseUnit(u,true)
    call SetUnitAnimation(u,st)
    call QueueUnitAnimation(u,"stand")
    call TimerStart(NewTimer(id),d,false,function mzv)
    call Unit_App_Counter(4,id)
endfunction

function m_v takes unit u,boolean d returns nothing
    call SetUnitPathing(u,not d)
    call PauseUnit(u,d)
    call SetUnitInvulnerable(u,d)
endfunction

function m1v takes unit u,real cxv returns boolean
    local integer mmv=(GetUnitUserData((u)))
    if UnitAlive(u)and Hc[mmv]then
        if IsUnitType(u,UNIT_TYPE_GIANT)or IsUnitType(u,UNIT_TYPE_HERO)then
            set cxv=.3*cxv
        endif
        if not(PB[(mmv)])and not MB[mmv]and GetControllTypePriority((Control_abid[(mmv)]))>=$F and cxv>mdv(u)then
            return mfv(u,cxv,'A500','B500')
        endif
    endif
    return false
endfunction

function m2v takes unit u,real timed,integer a,integer b,boolean r returns boolean
    local integer mmv=(GetUnitUserData((u)))
    if UnitAlive(u)and Hc[mmv]then
        if not r then
            if IsUnitType(u,UNIT_TYPE_GIANT)or IsUnitType(u,UNIT_TYPE_HERO)then
                set timed=.3*timed
            endif
        endif
        if not(PB[(mmv)])and not MB[mmv]and GetControllTypePriority((Control_abid[(mmv)]))>=GetControllTypePriority(a)and timed>mdv(u)then
            return mfv(u,timed,a,b)
        endif
    endif
    return false
endfunction

function m3v takes unit u,real timed,integer a,integer b returns boolean
    local integer mmv=(GetUnitUserData((u)))
    if UnitAlive(u)and Hc[mmv]then
        if not(PB[(mmv)])and GetControllTypePriority((Control_abid[(mmv)]))>=GetControllTypePriority(a)and timed>mdv(u)then
            return mfv(u,timed,a,b)
        endif
    endif
    return false
endfunction

function mgv takes nothing returns integer
    return D9v(yI)
endfunction

function mGv takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function mhv takes nothing returns boolean
    local integer NNv=J[yI]
    local integer fx
    local integer i
    local real pX
    local real pY
    local real a
    loop
        exitwhen 0==NNv
        set i=$A
        if wI[NNv]>hx then
            set wI[NNv]=wI[NNv]-Jx
            set WI[NNv]=WI[NNv]-.125
            loop
                set i=i-1
                set a=WI[NNv]-i*bj_PI/ 5
                set fx=LoadInteger(BYHT,TI[NNv],i)
                set pX=uI[NNv]+wI[NNv]*Cos(a)
                set pY=UI[NNv]+wI[NNv]*Sin(a)
                call SetUnitFacing(II[(fx)],((Atan2(pY-(GetUnitY(II[(fx)])),pX-(GetUnitX(II[(fx)]))))*1.)*bj_RADTODEG)
                call LKv(fx,pX)
                call Llv(fx,pY)
                call SetUnitFlyHeight(II[(fx)],(((GetUnitFlyHeight(II[(fx)]))-kx)*1.),0)
                exitwhen i==0
            endloop
        else
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Items\\AIvi\\AIviTarget.mdl",uI[NNv],UI[NNv]))
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,TI[NNv],i)))
                exitwhen i==0
            endloop
            call free(TI[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function mHv takes nothing returns nothing
    set yI=fxv(function mhv)
endfunction

function mjv takes real pX,real pY,real sA returns nothing
    local integer NNv=(D9v(yI))
    local integer i=$A
    local integer fx
    local real a
    set TI[NNv]=malloc()
    set uI[NNv]=pX
    set UI[NNv]=pY
    set wI[NNv]=Gx
    set WI[NNv]=sA
    loop
        set i=i-1
        set a=WI[NNv]-i*bj_PI/ 5
        set fx=Lnv(pX+wI[NNv]*Cos(a),pY+wI[NNv]*Sin(a),a+bj_PI/ 2)
        call LMv(fx,"Abilities\\Spells\\Other\\Tornado\\Tornado_Target.mdl")
        call SetUnitScale(II[(fx)],((2.5)*1.),0,0)
        call SetUnitFlyHeight(II[(fx)],((Hx)*1.),0)
        call LHv(fx,Kx)
        call SaveInteger(BYHT,TI[NNv],i,fx)
        exitwhen i==0
    endloop
endfunction

function m4v_func takes nothing returns nothing
    call PauseUnit((Je[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:7"))]),true)
endfunction

function m4v takes unit c returns nothing
    call TimerStart(NewTimer((GetUnitUserData((c)))),0,false,function m4v_func)
endfunction

function m5v takes real m6v,real m7v,real m8v,real m9v returns nothing
    local rect r=Rect(m6v,m7v,m8v,m9v)
    call FogModifierStart(CreateFogModifierRect(P[0],FOG_OF_WAR_VISIBLE,r,true,false))
    call RemoveRect(r)
    set r=null
endfunction

function Mvv takes unit s,unit t returns real
    return Atan2(GetUnitY(t)-GetUnitY(s),GetUnitX(t)-GetUnitX(s))
endfunction

function Mev takes unit s,unit t returns real
    local real dX=GetUnitX(t)-GetUnitX(s)
    local real dY=GetUnitY(t)-GetUnitY(s)
    return SquareRoot(dX*dX+dY*dY)
endfunction

function Mxv takes real dX,real dY returns real
    return SquareRoot(dX*dX+dY*dY)
endfunction

function ParabolicBY takes real x,real d,real h returns real
    return 4*h*x*(d-x)/(d*d)
endfunction

function ParabolicBYRatio takes real h,real t returns real
    return 4*h*t*(1-t)
endfunction

function BezierCurveBYQuadratic takes real a,real b,real c,real t returns real
    return a+(2*(b-a)+(a-2*b+c)*t)*t
endfunction

function BezierCurveBYCube takes real a,real b,real c,real d,real t returns real
    return a+(3*(b-a)+(3*(a-2*b+c)+(3*(b-c)+d-a)*t)*t)*t
endfunction

function Mav takes real a,real b,real o returns boolean
    return Cos(a-b)>=Cos(o)
endfunction

function MBv takes real px,real py,real cx,real cy,real ax,real ay,real bx,real by returns boolean
    local real Mcv=(px-cx)*(ax-cx)+(py-cy)*(ay-cy)
    local real MCv=(ax-cx)*(ax-cx)+(ay-cy)*(ay-cy)
    local real Mdv=(px-cx)*(bx-cx)+(py-cy)*(by-cy)
    local real MDv=(bx-cx)*(bx-cx)+(by-cy)*(by-cy)
    return Mcv>=0 and Mcv<=MCv and Mdv>=0 and Mdv<=MDv
endfunction

function AddSpecialEffectByAnnulus takes string s,real x,real y,real sc,real d,integer c returns nothing
    local real m
    local real px
    local real py
    local real tx
    local real ty
    local real vx
    local real vy
    if c>0 then
        set m=Lx/ c
        set vx=Cos(m)
        set vy=Sin(m)
        set tx=d
        set ty=0
        loop
            exitwhen c==0
            set c=c-1
            set px=tx
            set py=ty
            set tx=px*vx-py*vy
            set ty=py*vx+px*vy
            call Ltv(LAv(s,x+px,y+py,sc))
        endloop
    endif
endfunction

function pVv takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function pEv takes integer NNv returns nothing
    if GA[NNv]then
        set hA[HA[NNv]]=hA[NNv]
        set HA[hA[NNv]]=HA[NNv]
        set GA[NNv]=false
        if HA[(0)]==0 then
            call frv(jA)
        endif
        call Unit_Cancel_Counter(5,(NNv))
    endif
endfunction

function pXv takes nothing returns boolean
    local integer NNv=HA[(0)]
    loop
        exitwhen NNv==0
        if GetUnitCurrentOrder((Je[((NNv))]))==dA[NNv]then
            if CA[NNv]!="" then
                call SetUnitAnimation((Je[((NNv))]),CA[NNv])
                set CA[NNv]=""
            endif
            if bA[NNv]!="" then
                set DA[NNv]=DA[NNv]-1
                if DA[NNv]<=0 then
                    set DA[NNv]=FA[NNv]
                    call DestroyEffect(AddSpecialEffectTarget(bA[NNv],(Je[((NNv))]),BA[NNv]))
                endif
            endif
        else
            set dA[NNv]=0
            if gA[NNv]!=0 then
                call UnitAddAbilityBY((Je[((NNv))]),gA[NNv])
                set gA[NNv]=0
            endif
            call SetUnitTimeScale((Je[((NNv))]),1)
            call DestroyEffectBY(NA[NNv])
            call pEv(NNv)
        endif
        set NNv=HA[NNv]
    endloop
    return false
endfunction

function pOv takes integer NNv returns boolean
    if not GA[NNv]then
        if HA[(0)]==0 then
            if jA==0 then
                set jA=fxv(function pXv)
            endif
            call fov(jA)
        endif
        set HA[NNv]=HA[(0)]
        set hA[HA[(0)]]=NNv
        set HA[(0)]=NNv
        set hA[NNv]=0
        set GA[NNv]=true
        call Unit_App_Counter(6,(NNv))
        return true
    endif
    return false
endfunction

function UnitAnimationAddEffect takes integer NNv,string s,string a returns integer
    call s__Effect_connect((NA[NNv]),(s__Effect_build(AddSpecialEffectTarget(((s)),(((Je[((NNv))]))),((a))))))
    return NNv
endfunction

function UnitAnimationSetName takes integer NNv,string s returns integer
    set CA[NNv]=s
    return NNv
endfunction

function UnitAnimationSetTimeScale takes integer NNv,real v returns integer
    call SetUnitTimeScale((Je[((NNv))]),v)
    return NNv
endfunction

function UnitAnimationSetLoopEffect takes integer NNv,string s,string a,real cy returns integer
    set bA[NNv]=s
    set BA[NNv]=a
    set FA[NNv]=R2I(cy/ .03125)
    set DA[NNv]=FA[NNv]
    return NNv
endfunction

function UnitAppAnimation takes unit u returns integer
    local integer NNv=(GetUnitUserData((u)))
    if pOv(NNv)then
        set NA[NNv]=CreateEffectFor()
    endif
    set dA[NNv]=GetUnitCurrentOrder(u)
    set bA[NNv]=""
    set BA[NNv]=""
    return NNv
endfunction

function phv takes integer NNv returns nothing
    if QA[NNv]!=null then
        if(Control_abid[((NNv))])=='A00P' then
            call TimerStart(Control_Timer[(GetUnitUserData((((Je[(NNv)])))))],.25,false,function mAv)
        endif
        call ReleaseTimer(QA[NNv],"[TimerUtils]Error:8")
        call s__Trig_remove((qA[NNv]))
        call Unit_Cancel_Counter(7,(NNv))
        set QA[NNv]=null
        if UnitAlive((Je[(NNv)]))and SA[NNv]>1 then
            if not(IsUnitType(((Je[(NNv)])),UNIT_TYPE_GIANT))then
                call UnitDamageTargetBY((((Je[(PA[NNv])]))),(((Je[(NNv)]))),((((.5*Unit_Frost_Damage[(PA[NNv])]*SA[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((25)*1.))*1.),(("|c007387ff")))
            elseif UnitHasItemOfType((Je[(PA[NNv])]),'I0D1')then
                call UnitDamageTargetBY((((Je[(PA[NNv])]))),(((Je[(NNv)]))),((((.2*Unit_Frost_Damage[(PA[NNv])]*SA[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((30)*1.))*1.),(("|c007387ff")))
            else
                call UnitDamageTargetBY((((Je[(PA[NNv])]))),(((Je[(NNv)]))),((((.15*Unit_Frost_Damage[(PA[NNv])]*SA[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((25)*1.))*1.),(("|c007387ff")))
            endif
            call Ltv(LAv("FrostNova.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),1.25))
            call Lqv(LAv("Shiva'sWrath.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),1.5),1.5)
        endif
    endif
endfunction

function pHv takes nothing returns nothing
    call phv(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function pjv takes nothing returns boolean
    set SA[(NX[s__Trig_Index])]=SA[(NX[s__Trig_Index])]+GetDamage()
    return false
endfunction

function pJv takes integer c,unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    local real timed
    if QA[NNv]==null then
        if(Is_pvp[(GetPlayerId(GetOwningPlayer((u))))])then
            set timed=3
        else
            set timed=$A
        endif
        if m3v((Je[(NNv)]),timed,'A00P','Bfrz')then
            set PA[NNv]=c
            set qA[NNv]=UnitAddBeDamagerTrigB((NNv),function pjv)
            set NX[qA[NNv]]=NNv
            set QA[NNv]=NewTimer(NNv)
            set SA[NNv]=0
            call TimerStart(QA[NNv],timed,false,function pHv)
            call Unit_App_Counter(8,(NNv))
        endif
    endif
endfunction

function pkv takes integer NNv returns nothing
    if uA[NNv]!=null then
        call ReleaseTimer(uA[NNv],"[TimerUtils]Error:9")
        call UnitRemoveAbility((Je[(NNv)]),'Bfro')
        call DeUnitAdef((NNv),TA[NNv])
        call Unit_Cancel_Counter(9,(NNv))
        set uA[NNv]=null
    endif
endfunction

function pKv takes nothing returns nothing
    call pkv(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function plv takes unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if uA[NNv]==null then
        set uA[NNv]=NewTimer(NNv)
        set TA[NNv]=ModifyUnitAdef((NNv),-$C)
        call Unit_App_Counter($A,(NNv))
    endif
    call TimerStart(uA[NNv],6,false,function pKv)
endfunction

function pmv takes unit u,real cyv returns nothing
    if(Is_pvp[(GetPlayerId(GetOwningPlayer((u))))])then
        call m3v(u,.3*cyv,'A04T','Bfrz')
    else
        call m3v(u,cyv,'A04T','Bfrz')
    endif
endfunction

function pMv takes unit u,boolean ppv returns boolean
    local integer id=(GetUnitUserData((u)))
    if(PB[(id)])then
        return true
    endif
    if GetUnitAbilityLevel(u,'Bfrz')>0 then
        if ppv and(Control_use[(id)])and(Control_abid[(id)])!='A00P' then
            call UnitCloseControl(id)
        endif
        return true
    endif
    return false
endfunction

function Ppv takes nothing returns integer
    return D9v(LN)
endfunction

function PPv takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Pqv takes nothing returns boolean
    local integer NNv=J[LN]
    loop
        exitwhen 0==NNv
        set gN[NNv]=gN[NNv]-1
        set KN[NNv]=KN[NNv]+lN[NNv]
        if GetUnitTypeId((DN[NNv]))!=0 then
            set GN[NNv]=GetUnitX((DN[NNv]))
            set hN[NNv]=GetUnitY((DN[NNv]))
            set HN[NNv]=GetUnitFlyHeight((DN[NNv]))+LightningEffect_AZ[NNv]
        endif
        if GetUnitTypeId((fN[NNv]))!=0 then
            set jN[NNv]=GetUnitX((fN[NNv]))
            set JN[NNv]=GetUnitY((fN[NNv]))
            set kN[NNv]=GetUnitFlyHeight((fN[NNv]))+LightningEffect_BZ[NNv]
        endif
        call MoveLightningEx(FN[NNv],true,GN[NNv],hN[NNv],GetPointZ(GN[NNv],hN[NNv])+HN[NNv],jN[NNv],JN[NNv],GetPointZ(jN[NNv],JN[NNv])+kN[NNv])
        call SetLightningColor(FN[NNv],1,1,1,KN[NNv])
        if gN[NNv]<1 then
            if DN[NNv]!=null then
                set DN[NNv]=null
            endif
            if fN[NNv]!=null then
                set fN[NNv]=null
            endif
            call DestroyLightning(FN[NNv])
            call fvv((NNv))
            set FN[NNv]=null
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function PQv takes nothing returns nothing
    set LN=fxv(function Pqv)
endfunction

function Psv takes string DCv,real x,real y,real z,unit t,real cxv,real PSv,real Ptv returns nothing
    local integer NNv=(D9v(LN))
    set GN[NNv]=x
    set hN[NNv]=y
    set HN[NNv]=z
    set jN[NNv]=GetUnitX(t)
    set JN[NNv]=GetUnitY(t)
    set LightningEffect_BZ[NNv]=60
    set kN[NNv]=GetUnitFlyHeight(t)+LightningEffect_BZ[NNv]
    set FN[NNv]=AddLightningEx(DCv,true,GN[NNv],hN[NNv],GetPointZ(GN[NNv],hN[NNv])+HN[NNv],jN[NNv],JN[NNv],GetPointZ(jN[NNv],JN[NNv])+kN[NNv])
    set fN[NNv]=(t)
    set gN[NNv]=R2I(32.*cxv)
    set KN[NNv]=PSv
    set lN[NNv]=(Ptv-PSv)/ gN[NNv]
endfunction

function PTv takes string DCv,real x,real y,real z,real x2,real y2,real z2,real cxv,real PSv,real Ptv returns nothing
    local integer NNv=(D9v(LN))
    set GN[NNv]=x
    set hN[NNv]=y
    set HN[NNv]=z
    set jN[NNv]=x2
    set JN[NNv]=y2
    set kN[NNv]=z2
    set FN[NNv]=AddLightningEx(DCv,true,GN[NNv],hN[NNv],GetPointZ(GN[NNv],hN[NNv])+HN[NNv],jN[NNv],JN[NNv],GetPointZ(jN[NNv],JN[NNv])+kN[NNv])
    set gN[NNv]=R2I(32.*cxv)
    set KN[NNv]=PSv
    set lN[NNv]=(Ptv-PSv)/ gN[NNv]
endfunction

function Puv takes string DCv,unit s,unit t,real cxv,real PSv,real Ptv returns nothing
    local integer NNv=(D9v(LN))
    set GN[NNv]=GetUnitX(s)
    set hN[NNv]=GetUnitY(s)
    set LightningEffect_AZ[NNv]=60
    set HN[NNv]=GetUnitFlyHeight(s)+LightningEffect_AZ[NNv]
    set jN[NNv]=GetUnitX(t)
    set JN[NNv]=GetUnitY(t)
    set LightningEffect_BZ[NNv]=60
    set kN[NNv]=GetUnitFlyHeight(t)+LightningEffect_BZ[NNv]
    set FN[NNv]=AddLightningEx(DCv,true,GN[NNv],hN[NNv],GetPointZ(GN[NNv],hN[NNv])+HN[NNv],jN[NNv],JN[NNv],GetPointZ(jN[NNv],JN[NNv])+kN[NNv])
    set DN[NNv]=(s)
    set fN[NNv]=(t)
    set gN[NNv]=R2I(32.*cxv)
    set KN[NNv]=PSv
    set lN[NNv]=(Ptv-PSv)/ gN[NNv]
endfunction

function NeWLightningEffectTypeA takes string DCv,real x,real y,real z,unit t,real tz,real cxv,real PSv,real Ptv returns nothing
    local integer NNv=(D9v(LN))
    set GN[NNv]=x
    set hN[NNv]=y
    set HN[NNv]=z
    set jN[NNv]=GetUnitX(t)
    set JN[NNv]=GetUnitY(t)
    set LightningEffect_BZ[NNv]=tz
    set kN[NNv]=GetUnitFlyHeight(t)+LightningEffect_BZ[NNv]
    set FN[NNv]=AddLightningEx(DCv,true,GN[NNv],hN[NNv],GetPointZ(GN[NNv],hN[NNv])+HN[NNv],jN[NNv],JN[NNv],GetPointZ(jN[NNv],JN[NNv])+kN[NNv])
    set fN[NNv]=(t)
    set gN[NNv]=R2I(32.*cxv)
    set KN[NNv]=PSv
    set lN[NNv]=(Ptv-PSv)/ gN[NNv]
endfunction

function NeWLightningEffectTypeD takes string DCv,unit s,unit t,real z1,real z2,real cxv,real PSv,real Ptv returns nothing
    local integer NNv=(D9v(LN))
    set GN[NNv]=GetUnitX(s)
    set hN[NNv]=GetUnitY(s)
    set LightningEffect_AZ[NNv]=z1
    set HN[NNv]=GetUnitFlyHeight(s)+LightningEffect_AZ[NNv]
    set jN[NNv]=GetUnitX(t)
    set JN[NNv]=GetUnitY(t)
    set LightningEffect_BZ[NNv]=z2
    set kN[NNv]=GetUnitFlyHeight(t)+LightningEffect_BZ[NNv]
    set FN[NNv]=AddLightningEx(DCv,true,GN[NNv],hN[NNv],GetPointZ(GN[NNv],hN[NNv])+HN[NNv],jN[NNv],JN[NNv],GetPointZ(jN[NNv],JN[NNv])+kN[NNv])
    set DN[NNv]=(s)
    set fN[NNv]=(t)
    set gN[NNv]=R2I(32.*cxv)
    set KN[NNv]=PSv
    set lN[NNv]=(Ptv-PSv)/ gN[NNv]
endfunction

function Qrv takes integer NNv returns nothing
    if JB[NNv]then
        set kB[KB[NNv]]=kB[NNv]
        set KB[kB[NNv]]=KB[NNv]
        set JB[NNv]=false
        if KB[(0)]==0 then
            call frv(lB)
        endif
        call Unit_Cancel_Counter($B,(NNv))
    endif
endfunction

function Qiv takes nothing returns boolean
    local integer NNv=KB[(0)]
    local integer Nbv
    local unit u
    local real x
    local real y
    local real d
    local real lS
    loop
        exitwhen NNv==0
        set hB[NNv]=hB[NNv]+1
        set Nbv=Eev[GB[NNv]]
        if not UnitAlive((Je[(NNv)]))or Nbv==GB[NNv]then
            call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A08F','B02S')
            call Unit_Cancel_Counter($C,gB[NNv])
            call NCv(GB[NNv])
            call Qrv(NNv)
            set HB[NNv]=0
        elseif ModuloInteger(hB[NNv],16)==0 then
            set lS=0
            set d=HB[NNv]
            loop
                set Eov[Nbv]=Eov[Nbv]-1
                if Eiv[Nbv]>lS then
                    set lS=Eiv[Nbv]
                endif
                if Eov[Nbv]<1 then
                    set HB[NNv]=HB[NNv]-Erv[Nbv]
                    call Ncv(Nbv)
                endif
                set Nbv=Eev[Nbv]
                exitwhen Nbv==GB[NNv]
            endloop
            if GetUnitAbilityLevel((Je[(NNv)]),'A0KK')==0 then
                call UnitDamageTargetBY((((Je[(gB[NNv])]))),(((Je[(NNv)]))),((((Unit_DOT[(gB[NNv])]*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            else
                call UnitDamageTargetBY((((Je[(gB[NNv])]))),(((Je[(NNv)]))),((((2*Unit_Fire_Damage[(gB[NNv])]*Unit_DOT[(gB[NNv])]*d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((lS)*1.))*1.),(("|c00ff8080")))
            endif
        endif
        set NNv=KB[NNv]
    endloop
    return false
endfunction

function Qav takes integer NNv returns boolean
    if not JB[NNv]then
        if KB[(0)]==0 then
            if lB==0 then
                set lB=fxv(function Qiv)
            endif
            call fov(lB)
        endif
        set KB[NNv]=KB[(0)]
        set kB[KB[(0)]]=NNv
        set KB[(0)]=NNv
        set kB[NNv]=0
        set JB[NNv]=true
        call Unit_App_Counter($D,(NNv))
        return true
    endif
    return false
endfunction

function Qnv takes unit s,unit t,real d,integer nT,real bav returns nothing
    local integer NNv
    local integer QVv
    if UnitAlive(t)then
        set NNv=(GetUnitUserData((t)))
        set QVv=NIv()
        set Eov[QVv]=nT
        set Erv[QVv]=Unit_Fire_Damage[(GetUnitUserData((s)))]*d
        set Eiv[QVv]=bav
        if Qav(NNv)then
            set GB[NNv]=NBv()
            set gB[NNv]=(GetUnitUserData((s)))
            set hB[NNv]=0
            set HB[NNv]=0
            call UnitAddAbilityBY((Je[(NNv)]),'A08F')
            call Unit_App_Counter($E,gB[NNv])
        endif
        set HB[NNv]=HB[NNv]+Erv[QVv]
        call NAv(GB[NNv],QVv)
    endif
endfunction

function RemoveHeroReviveBuff takes integer id,integer lv returns nothing
    if SummonedUnitSkills_A048_Timer[id]!=null and(lv==0 or lv==1)then
        call ReleaseTimer(SummonedUnitSkills_A048_Timer[id],"[TimerUtils]Error:10")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A072','B02T')
        call Unit_Cancel_Counter($F,(id))
        set SummonedUnitSkills_A048_Timer[id]=null
    endif
    if Item_I0E9_timer[id]!=null and(lv==0 or lv==2)then
        call ReleaseTimer(Item_I0E9_timer[id],"[TimerUtils]Error:11")
        call DeUnitMdef(id,Item_I0E9_mdef[id])
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TQ','B07C')
        call Unit_Cancel_Counter(16,id)
        set Item_I0E9_timer[id]=null
    endif
endfunction


 function tEv takes unit u,real x,real y,integer tXv returns boolean
    local integer id=(GetUnitUserData((u)))
    local player p = GetOwningPlayer(u)
    if u==(Je[(id)])and nC[id]then
        if GetHeroLevel(u)>=tXv then
            
            call SetUnitPosition(u,x,y)
            
            if GetLocalPlayer()==p then
                if not IsUnitSelected(u,p) then
                    call ClearSelection()
                    call SelectUnit(u,true)
                endif
                call PanCameraToTimed(x,y,0)
            endif
            
            return true
        else
            call DisplayTimedTextToPlayer(p,0,0,5,"Required level: |cffffcc00"+I2S(tXv))
        endif
    endif
    return false
 endfunction


function tOv takes unit u,real x,real y,integer tXv returns boolean
    if nC[(GetUnitUserData((u)))]and GetHeroLevel(u)>=tXv and dev(u,'A0J0','B037',60)then
        return tEv(u,x,y,tXv)
    endif
    return false
endfunction

function addUnitdefbuff_end takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:12")
    call ModifyUnitArmor(id,defbuff_def[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),defbuff_abid[id],defbuff_bfid[id])
    call Unit_Cancel_Counter(17,id)
    set defbuff_tm[id]=null
    set defbuff_def[id]=0
endfunction

function addUnitdefbuff takes unit u,integer abid,integer bfid,real t,real s returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer i
    if UnitAlive(u)and u==(Je[(id)])then
        if defbuff_tm[id]==null then
            set defbuff_tm[id]=NewTimer(id)
            set defbuff_def[id]=0
            call UnitAddAbilityBY(u,abid)
            call Unit_App_Counter(18,id)
        else
            if abid!=defbuff_bfid[id]then
                call UnitRemoveAbilityandBuffBY(u,defbuff_abid[id],defbuff_bfid[id])
                call UnitAddAbilityBY(u,abid)
            endif
        endif
        set defbuff_abid[id]=abid
        set defbuff_bfid[id]=bfid
        set i=R2I(t*GetUnitDefaultArmor(id))
        call ModifyUnitArmor(id,defbuff_def[id]-i)
        call TimerStart(defbuff_tm[id],s,false,function addUnitdefbuff_end)
        set defbuff_def[id]=i
    endif
endfunction

function tpv takes player p,integer tPv,integer pav returns nothing
    local unit u=MV[GetPlayerId(p)]
    set pav=R2I((1+lV)*pav*HandicapXP_Lv[(GetUnitUserData((u)))]+.5)
    if pav>0 then
        set pav=R2I(HandicapXP_Basis[(GetUnitUserData((u)))]*pav)
        if GetHeroLevel(u)>=350 then
            set pav=R2I(.4*pav)
        endif
        call AddHeroXP(u,pav,true)
    endif
    if tPv>0 then
        call AdjustPlayerStateG(p,PLAYER_STATE_RESOURCE_GOLD,tPv)
    endif
    if pav>0 and tPv>0 then
        call thv("|c00ffff00Gold +"+I2S(tPv)+"|n|c0080ffffExp +"+I2S(pav),GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+25,.0325,.025,bj_PI/ 2,1.5,2)
    elseif pav>0 and tPv==0 then
        call thv("|c0080ffffExp +"+I2S(pav),GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+25,.0325,.025,bj_PI/ 2,1.5,2)
    elseif pav==0 and tPv>0 then
        call thv("|c00ffff00Gold +"+I2S(tPv),GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u)+25,.0325,.025,bj_PI/ 2,1.5,2)
    endif
    set u=null
endfunction

function tqv takes unit u,real x,real y,integer g,integer e returns nothing
    local integer CMv=GetPlayerId(GetOwningPlayer(u))
    local integer tQv=0
    local integer tsv
    if CMv<8 then
        set tQv=GetHeroLevel(MV[CMv])
        call tpv(P[CMv],g,e)
    endif
    call GroupEnumUnitsInRange(G,x,y,900+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,900)then
            set tsv=GetPlayerId(GetOwningPlayer(u))
            if nC[(GetUnitUserData((u)))]and tsv!=CMv then
                if tQv==0 or IAbsBJ(tQv-GetHeroLevel(u))<40 then
                    call tpv(P[tsv],g,e)
                endif
            endif
        endif
    endloop
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Transmute\\PileofGold.mdl",x,y,5),$FF,$FF,125,$FF))
    call Ltv(Lfv(LAv("ForestBolt.mdl",x,y,4.5),$FF,$FF,0,$FF))
endfunction

function tuv takes unit u,real value returns nothing
    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Items\\AIhe\\AIheTarget.mdl",u,"origin",1.75)
    call UnitCureTaret(null,u,value)
endfunction

function tUv takes unit u,real value returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIma\\AImaTarget.mdl",u,"origin"))
    call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MANA)+value)
endfunction

//uncle's pumpkin effect

function twv takes nothing returns nothing
    call tuv(GetTriggerUnit(),.4*GetUnitState(GetTriggerUnit(),UNIT_STATE_MAX_LIFE))
    call tUv(GetTriggerUnit(),.4*GetUnitState(GetTriggerUnit(),UNIT_STATE_MAX_MANA))
endfunction


function tWv takes nothing returns nothing
    call tuv(GetTriggerUnit(),.25*GetUnitState(GetTriggerUnit(),UNIT_STATE_MAX_LIFE))
    call UnitRemoveControl((GetUnitUserData((GetTriggerUnit()))))
endfunction


function tyv takes nothing returns nothing
    call tuv(GetTriggerUnit(),20)
endfunction

function tYv takes nothing returns nothing
    call tuv(GetTriggerUnit(),50)
endfunction

function tzv takes nothing returns nothing
    call tuv(GetTriggerUnit(),100)
endfunction

function tZv takes nothing returns nothing
    call tUv(GetTriggerUnit(),100)
endfunction

function t_v takes nothing returns nothing
    call tuv(GetTriggerUnit(),$FA)
endfunction

function t0v takes nothing returns nothing
    call tuv(GetTriggerUnit(),400)
endfunction

function t1v takes nothing returns nothing
    call tuv(GetTriggerUnit(),600)
endfunction

function t2v takes nothing returns nothing
    call tuv(GetTriggerUnit(),$3E8)
endfunction

function t3v takes nothing returns nothing
    call tUv(GetTriggerUnit(),$FA)
endfunction

function t4v takes nothing returns nothing
    call tUv(GetTriggerUnit(),400)
endfunction

function t5v takes nothing returns nothing
    call tUv(GetTriggerUnit(),$3E8)
endfunction

function t6v takes nothing returns nothing
    call Cpv(((GetUnitUserData((GetTriggerUnit())))),100)
endfunction

function t7v takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:13")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A06V','BNba')
    call ModifyHeroStr((NNv),-50)
    call Unit_Cancel_Counter(19,(NNv))
    set GC[NNv]=null
endfunction

function t8v takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:14")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A06W','BCbf')
    call ModifyHeroAgi((NNv),-50)
    call Unit_Cancel_Counter(20,(NNv))
    set hC[NNv]=null
endfunction

function t9v takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:15")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A07A','BNbf')
    call ModifyHeroInt((NNv),-50)
    call Unit_Cancel_Counter(21,(NNv))
    set HC[NNv]=null
endfunction

function Tvv takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:16")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A083','BNsi')
    call SetHandicapXP((NNv),-$A)
    call Unit_Cancel_Counter(22,(NNv))
    set jC[NNv]=null
endfunction

function Tev takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:17")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0FY','BEsh')
    call SetHandicapXP((NNv),-$F)
    call Unit_Cancel_Counter(23,(NNv))
    set JC[NNv]=null
endfunction

function Txv takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:18")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0FZ','BEst')
    call Unit_Cancel_Counter(24,(NNv))
    set kC[NNv]=null
endfunction

function Tov takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:19")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0LS','B04C')
    call ModifyHeroStr((NNv),-pC[NNv])
    call Unit_Cancel_Counter(25,(NNv))
    set KC[NNv]=null
endfunction

function Trv takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:20")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0LT','B04D')
    call ModifyHeroAgi((NNv),-PC[NNv])
    call Unit_Cancel_Counter(26,(NNv))
    set LC[NNv]=null
endfunction

function Tiv takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:21")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0LU','B04E')
    call ModifyHeroInt((NNv),-qC[NNv])
    call Unit_Cancel_Counter(27,(NNv))
    set MC[NNv]=null
endfunction

function Tav takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer NNv=ReleaseTimer(t,"[TimerUtils]Error:22")
    if t==QC[NNv]then
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0OJ','B059')
        call DeUnitAdef((NNv),uC[NNv])
        set QC[NNv]=null
    elseif t==sC[NNv]then
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0OH','B056')
        call HeroAddExtraProperties((NNv),-UC[NNv])
        set sC[NNv]=null
    elseif t==SC[NNv]then
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0OI','B057')
        call ModifyUnitCrit((NNv),-5)
        call ModifyUnitCritDamage((NNv),-25)
        set SC[NNv]=null
    elseif t==TC[NNv]then
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0OK','B058')
        call ModifyUnitMagicDamage((NNv),-7.5)
        set TC[NNv]=null
    endif
    set t=null
endfunction

function Tnv takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(NNv)]))then
        set WC[NNv]=WC[NNv]-1
        call tuv((Je[(NNv)]),$640+.05*GetUnitState((Je[(NNv)]),UNIT_STATE_MAX_LIFE))
    else
        set WC[NNv]=0
    endif
    if WC[NNv]<0 then
        call ReleaseTimer(wC[NNv],"[TimerUtils]Error:23")
        set wC[NNv]=null
    endif
endfunction

function TVv takes integer NNv returns nothing
    if wC[NNv]==null then
        set wC[NNv]=NewTimer(NNv)
    endif
    set WC[NNv]=5
    call TimerStart(wC[NNv],.8,true,function Tnv)
endfunction

 //item effects ?
 //NNv = unit id 
 //i = index of itemm ?
 //call Lfv -> vertex coloring 

 function TEv takes integer NNv,integer i returns nothing
    local integer fx
    local integer iS
    
    if i<5 then
        set fx=LAv("Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),1.5)
    elseif i>=$A and i<=$D then
        set fx=LAv("ForestBolt.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),1.5)
    else
        set fx=LAv("ForestBolt.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),1.5)
    endif
    
    if i==1 then
        if GC[NNv]==null then
            set GC[NNv]=NewTimer(NNv)
            call ModifyHeroStr((NNv),50)
            call UnitAddAbilityBY((Je[(NNv)]),'A06V')
            call Unit_App_Counter(28,(NNv))
        endif
        call Lfv(fx,$FF,0,0,$FF)
        call TimerStart(GC[NNv],$708,false,function t7v)
    elseif i==2 then
        if hC[NNv]==null then
            set hC[NNv]=NewTimer(NNv)
            call ModifyHeroAgi((NNv),50)
            call UnitAddAbilityBY((Je[(NNv)]),'A06W')
            call Unit_App_Counter(29,(NNv))
        endif
        call Lfv(fx,0,$9B,$FF,$FF)
        call TimerStart(hC[NNv],$708,false,function t8v)
    elseif i==3 then
        if HC[NNv]==null then
            set HC[NNv]=NewTimer(NNv)
            call ModifyHeroInt((NNv),50)
            call UnitAddAbilityBY((Je[(NNv)]),'A07A')
            call Unit_App_Counter(30,(NNv))
        endif
        call Lfv(fx,$FF,125,$FF,$FF)
        call TimerStart(HC[NNv],$708,false,function t9v)
    elseif i==4 then
        if jC[NNv]==null then
            set jC[NNv]=NewTimer(NNv)
            call SetHandicapXP((NNv),$A)
            call UnitAddAbilityBY((Je[(NNv)]),'A083')
            call Unit_App_Counter(31,(NNv))
        endif
        call Lfv(fx,$FF,$FF,0,$FF)
        call TimerStart(jC[NNv],$708,false,function Tvv)
    elseif i==5 then
        if JC[NNv]==null then
            set JC[NNv]=NewTimer(NNv)
            call SetHandicapXP((NNv),$F)
            call UnitAddAbilityBY((Je[(NNv)]),'A0FY')
            call Unit_App_Counter(32,(NNv))
        endif
        call Lfv(fx,0,$FF,$FF,$FF)
        call TimerStart(JC[NNv],600,false,function Tev)
    elseif i==6 then//uncle's carrot
        if kC[NNv]==null then
            set kC[NNv]=NewTimer(NNv)
            call UnitAddAbilityBY((Je[(NNv)]),'A0FZ')
            call Unit_App_Counter(33,(NNv))
        endif
        call Lfv(fx,$FF,$FF,0,$FF)
        call TimerStart(kC[NNv],300,false,function Txv)
    elseif i==7 then
        if KC[NNv]==null then
            set KC[NNv]=NewTimer(NNv)
            set pC[NNv]=0
            call UnitAddAbilityBY((Je[(NNv)]),'A0LS')
            call Unit_App_Counter(34,(NNv))
        endif
        set iS=50+GetHeroLevel((Je[(NNv)]))/ 2
        call TVv(NNv)
        call Lfv(fx,$FF,0,0,$FF)
        call ModifyHeroStr((NNv),iS-pC[NNv])
        call TimerStart(KC[NNv],900,false,function Tov)
        set pC[NNv]=iS
    elseif i==8 then
        if LC[NNv]==null then
            set LC[NNv]=NewTimer(NNv)
            set PC[NNv]=0
            call UnitAddAbilityBY((Je[(NNv)]),'A0LT')
            call Unit_App_Counter(35,(NNv))
        endif
        set iS=50+GetHeroLevel((Je[(NNv)]))/ 2
        call TVv(NNv)
        call Lfv(fx,0,$9B,$FF,$FF)
        call ModifyHeroAgi((NNv),iS-PC[NNv])
        call TimerStart(LC[NNv],900,false,function Trv)
        set PC[NNv]=iS
    elseif i==9 then
        if MC[NNv]==null then
            set MC[NNv]=NewTimer(NNv)
            set qC[NNv]=0
            call UnitAddAbilityBY((Je[(NNv)]),'A0LU')
            call Unit_App_Counter(36,(NNv))
        endif
        set iS=50+GetHeroLevel((Je[(NNv)]))/ 2
        call TVv(NNv)
        call Lfv(fx,$FF,125,$FF,$FF)
        call ModifyHeroInt((NNv),iS-qC[NNv])
        call TimerStart(MC[NNv],900,false,function Tiv)
        set qC[NNv]=iS
    elseif i==$A then
        if QC[NNv]==null then
            set QC[NNv]=NewTimer(NNv)
            set uC[NNv]=ModifyUnitAdef((NNv),25)
            call UnitAddAbilityBY((Je[(NNv)]),'A0OJ')
            call Unit_App_Counter(37,(NNv))
        endif
        call TimerStart(QC[NNv],60,false,function Tav)
    elseif i==$B then
        if sC[NNv]==null then
            set sC[NNv]=NewTimer(NNv)
            set UC[NNv]=0
            call UnitAddAbilityBY((Je[(NNv)]),'A0OH')
            call Unit_App_Counter(38,(NNv))
        endif
        set iS=R2I(.12*GetHeroNotExtraProperties((NNv)))
        call HeroAddExtraProperties((NNv),iS-UC[NNv])
        call TimerStart(sC[NNv],75,false,function Tav)
        set UC[NNv]=iS
    elseif i==$C then
        if SC[NNv]==null then
            set SC[NNv]=NewTimer(NNv)
            call UnitAddAbilityBY((Je[(NNv)]),'A0OI')
            call ModifyUnitCrit((NNv),5)
            call ModifyUnitCritDamage((NNv),25)
            call Unit_App_Counter(39,(NNv))
        endif
        call TimerStart(SC[NNv],90,false,function Tav)
    elseif i==$D then
        if TC[NNv]==null then
            set TC[NNv]=NewTimer(NNv)
            call UnitAddAbilityBY((Je[(NNv)]),'A0OK')
            call ModifyUnitMagicDamage((NNv),7.5)
            call Unit_App_Counter(40,(NNv))
        endif
        call TimerStart(TC[NNv],120,false,function Tav)
    endif
    call Ltv(fx)
 endfunction


function TXv takes nothing returns nothing
    call CKv(GetTriggerUnit())
endfunction

function TOv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),1)
endfunction

function TRv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),2)
endfunction

function TIv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),3)
endfunction

function TAv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),4)
endfunction

function TNv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),5)
endfunction

function Tbv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),6)
endfunction

 //uncle's carrot

 function TBv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),7)
 endfunction


function Tcv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),8)
endfunction

function TCv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),9)
endfunction

function Tdv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),$A)
endfunction

function TDv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),$B)
endfunction

function Tfv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),$C)
endfunction

function TFv takes nothing returns nothing
    call TEv(((GetUnitUserData((GetTriggerUnit())))),$D)
endfunction

function Tgv takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:24")
    call SetUnitPosition((Je[(id)]),GetUnitX((Je[(id)])),GetUnitY((Je[(id)])))
    call m_v((Je[(id)]),false)
endfunction

function TGv takes nothing returns nothing
    local unit u=GetBuyingUnit()
    if nC[(GetUnitUserData((u)))]then
        call UnitCureTaret(null,u,GetUnitState(u,UNIT_STATE_MAX_LIFE))
        call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MAX_MANA))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Sleep\\SleepSpecialArt.mdl",u,"origin"))
        call TimerStart(NewTimer((GetUnitUserData((u)))),5,false,function Tgv)
        call RemoveItemG(GetSoldItem())
        call m_v(u,true)
    endif
    set u=null
endfunction

function Thv takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer Cjv=qV[GetPlayerId(GetOwningPlayer(u))]
    call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",u,"origin"))
    if Cjv=='H000' or Cjv=='H00H' or Cjv=='H003' or Cjv=='Hmkg' or Cjv=='Hblm' or Cjv=='H01V' then
        call UnitAddItem(u,CreateItemG('I081',GetUnitX(u),GetUnitY(u)))
    elseif Cjv=='H001' or Cjv=='H004' or Cjv=='H00E' or Cjv=='Hamg' or Cjv=='H01H' or Cjv=='H01U' then
        call UnitAddItem(u,CreateItemG('I080',GetUnitX(u),GetUnitY(u)))
    elseif Cjv=='H00Z' or Cjv=='H015' then
        call UnitAddItem(u,CreateItemG('I09M',GetUnitX(u),GetUnitY(u)))
    elseif Cjv=='H01N' or Cjv=='H01I' or Cjv=='H002' or Cjv=='H005' or Cjv=='H006' or Cjv=='H007' or Cjv=='H008' or Cjv=='H009' or Cjv=='H00J' or Cjv=='H01Y' or Cjv=='H01X' then
        call UnitAddItem(u,CreateItemG('I082',GetUnitX(u),GetUnitY(u)))
    elseif Cjv=='H01W' then
        call UnitAddItem(u,CreateItemG('plcl',GetUnitX(u),GetUnitY(u)))
    endif
    set u=null
endfunction

function T10v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('grsl',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("cenarionfury.mdx",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Spirit orb |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I04W',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("cenarionfury.mdx",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=70.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($EA60)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("ancientexplode.mdx",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T11v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('sror',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("enchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Mark of Storm |c00ffff80created|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('I0CJ',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("enchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Pure Steel |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1.5 then
        call SetItemUserData(CreateItemG('I0CK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("enchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Mana Orb |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I04V',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("enchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($EA60)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("aquaspike.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T12v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('stpg',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Essence of Corruption |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=70.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($EA60)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("acid ex.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T13v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I06W',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ChaosExplosion.mdx",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Dark matter |c00ffff80created|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('I08K',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ChaosExplosion.mdx",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Dark Wings |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20 then
        call SetItemUserData(CreateItemG('I04X',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ChaosExplosion.mdx",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50 then
        call UnitDamageTargetBY(((u)),((u)),(((($EA60)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("bloodwave.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T14v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I0CD',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ChaosExplosion.mdx",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Essence of Anger |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('rej1',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ChaosExplosion.mdx",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Spirit of Nightmare |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20. then
        call SetItemUserData(CreateItemG('I04X',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ChaosExplosion.mdx",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50. then
        call UnitDamageTargetBY(((u)),((u)),(((($EA60)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("BloodWave.mdx",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T15v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I08N',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("shadowassault.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Anti-matter |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('I09N',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("shadowassault.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Frozen Debris |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1.5 then
        call SetItemUserData(CreateItemG('mcri',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("shadowassault.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Essence of Darkness |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("shadowassault.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($186A0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("shadowwave.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T16v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I09E',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Demon soul |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=70.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($186A0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("desecrategreen.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T17v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I08P',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Dark crystal |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('rde1',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Heart of Fire |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1.5 then
        call SetItemUserData(CreateItemG('I0DG',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Claws of Undead |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("greenenchantment.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($186A0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("acid ex.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T18v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('gsou',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darkpillar.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Spirit of abyss |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('nflg',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darkpillar.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Orb of oblivion |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20. then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darkpillar.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50. then
        call UnitDamageTargetBY(((u)),((u)),(((($186A0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("shadowwave.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T19v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('shtm',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ancientexplode.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Fragment of the wind |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('ofir',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ancientexplode.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Purefied water of nature |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20. then
        call SetItemUserData(CreateItemG('I04W',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("ancientexplode.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50. then
        call UnitDamageTargetBY(((u)),((u)),(((($249F0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("naturewave.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T20v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I05V',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("flame piercing.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Hell magic stone |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('I05W',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("flame piercing.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Blazing core |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20. then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("flame piercing.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50. then
        call UnitDamageTargetBY(((u)),((u)),(((($249F0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("firegold.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T21v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I0EQ',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darkpillar.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Fragment of Chaos |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=1. then
        call SetItemUserData(CreateItemG('I0ER',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darkpillar.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Spearhead of Death |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20. then
        call SetItemUserData(CreateItemG('I04X',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darkpillar.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=50. then
        call UnitDamageTargetBY(((u)),((u)),(((($249F0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("shadowwave.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T22v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('shea',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("acid ex.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Decay Nature |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("acid ex.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=70.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($249F0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("earthnova.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T23v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('I0EG',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darknessexplosion.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Ancient forgotten magic stone |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("darknessexplosion.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=70.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($30D40)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("firenova2.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function T24v takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real r=GetRandomReal(0,100)
    if r<=.5 then
        call SetItemUserData(CreateItemG('shea',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("blizzarderuption.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call thv("Soul fragments |c00ffff80created!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
        call PlaySoundAtPoint_BJ((sn),(($7F)*1.),((GetUnitX(u))*1.),((GetUnitY(u))*1.),0)
    elseif r<=20.5 then
        call SetItemUserData(CreateItemG('I0DK',GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
        call Ltv(LAv("blizzarderuption.mdl",GetUnitX(u),GetUnitY(u),1.5))
    elseif r<=70.5 then
        call UnitDamageTargetBY(((u)),((u)),(((($30D40)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,u)
    endif
    call Ltv(LAv("frostnova.mdl",GetUnitX(u),GetUnitY(u),1.5))
    set u=null
endfunction

function Tkv takes nothing returns nothing
    local unit u=GetTriggerUnit()
    call thv("|c00eef3b1"+Game_PlayerName[GetPlayerId(GetOwningPlayer(u))]+" received the gift!",GetUnitX(u),GetUnitY(u),10,.1,.075,bj_PI/ 2,3,5)
    call Ltv(LAv("Abilities\\Spells\\Other\\Transmute\\PileofGold.mdl",GetUnitX(u),GetUnitY(u),2.5))
    set u=null
endfunction

function Tlv takes nothing returns nothing
    call AddUnitSellItemById('I006',function TGv)
    call AddUnitUseItemById('I003',function tyv)
    call AddUnitUseItemById('I004',function tYv)
    call AddUnitUseItemById('I005',function tzv)
    call AddUnitUseItemById('I027',function tZv)
    call AddUnitUseItemById('I028',function t_v)
    call AddUnitUseItemById('I029',function t0v)
    call AddUnitUseItemById('I02A',function t1v)
    call AddUnitUseItemById('I02B',function t2v)
    call AddUnitUseItemById('I06F',function Thv)
    call AddUnitUseItemById('I06H',function t3v)
    call AddUnitUseItemById('I0AW',function t4v)
    call AddUnitUseItemById('I0AX',function t5v)
    call AddUnitUseItemById('fgdg',function TIv)
    call AddUnitUseItemById('fgfh',function TXv)
    call AddUnitUseItemById('fgrd',function t6v)
    call AddUnitUseItemById('pdiv',function TAv)
    call AddUnitUseItemById('pghe',function TRv)
    call AddUnitUseItemById('pgma',function TOv)
    call AddUnitUseItemById('sor8',function Tkv)
    call AddUnitUseItemById('sres',function TCv)
    call AddUnitUseItemById('totw',function Tcv)
    call AddUnitUseItemById('wild',function TBv)
    call AddUnitUseItemById('I0B9',function TNv)
    //
    call AddUnitUseItemById('I0BB',function twv)
    call AddUnitUseItemById('I0BC',function Tbv)
    call AddUnitUseItemById('I0DB',function tWv)
    call AddUnitUseItemById('I0DC',function Tdv)
    call AddUnitUseItemById('I0DD',function Tfv)
    call AddUnitUseItemById('I0DE',function TFv)
    call AddUnitUseItemById('I0DF',function TDv)
    call AddUnitUseItemById('sreg',function T10v)
    call AddUnitUseItemById('spro',function T11v)
    call AddUnitUseItemById('guvi',function T12v)
    call AddUnitUseItemById('lmbr',function T13v)
    call AddUnitUseItemById('stwp',function T14v)
    call AddUnitUseItemById('pman',function T15v)
    call AddUnitUseItemById('rspd',function T16v)
    call AddUnitUseItemById('pnvl',function T17v)
    call AddUnitUseItemById('sman',function T18v)
    call AddUnitUseItemById('rdis',function T19v)
    call AddUnitUseItemById('gold',function T20v)
    call AddUnitUseItemById('rhe1',function T21v)
    call AddUnitUseItemById('rspl',function T22v)
    call AddUnitUseItemById('tin2',function T23v)
    call AddUnitUseItemById('rre1',function T24v)
endfunction

function Creep__n02YOnAttack takes nothing returns boolean
    local integer id=(pF)
    if GetUnitAbilityLevel((MF),'B043')==0 then
        set vi[id]=1
    elseif vi[id]<5 then
        set vi[id]=vi[id]+1
    endif
    call UnitAppBuffByLevel((pF),'A0L5',$D006B,vi[id])
    return false
endfunction

function yzv takes nothing returns boolean
    local integer ysv=GetRandomInt(1,8)
    if ysv==1 then
        call UnitAppBuff((pF),'ACfn',$D0102)
        call UnitDamageTargetBY((((mF))),(((MF))),((((500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",(MF),"origin"))
    elseif ysv==2 then
        call UnitDamageTargetBY((((mF))),(((MF))),(((($5DC)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",(MF),"origin"))
    endif
    return false
endfunction

function yZv takes nothing returns nothing
    local integer NOv=(alloc__hpv(GetHandleId((ei))))
    if GetUnitAbilityLevel((Je[(NOv)]),'Bcrs')==0 then
        call ReleaseTimer(ei,"[TimerUtils]Error:25")
        call ModifyUnitAttack((NOv),-$9C4*xi)
        call ModifyUnitAttackSpeed((NOv),-$A*xi)
        call Unit_Cancel_Counter(41,NOv)
        set ei=null
    endif
endfunction

function y_v takes nothing returns boolean
    local integer NOv
    local unit u
    local real x
    local real y
    if GetUnitAbilityLevel((mF),'Bcrs')==1 then
        set NOv=(pF_v)
        if ei==null then
            set ei=NewTimer(NOv)
            set xi=0
            call TimerStart(ei,.03125,true,function yZv)
            call Unit_App_Counter(42,NOv)
        endif
        if xi<20 then
            set xi=xi+1
            call ModifyUnitAttack((NOv),$9C4)
            call ModifyUnitAttackSpeed((NOv),$A)
        endif
    endif
    if GetRandomInt(1,$A)==1 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,2.75))
        call GroupEnumUnitsInRange(G,x,y,375,null)
        call GroupRemoveUnit(G,(MF))
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)and IsUnitAliveAndEnemy(u,(mF))then
                call UnitDamageTargetBY((((mF))),((u)),((((GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            endif
        endloop
    endif
    return false
endfunction

function y0v takes nothing returns boolean
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local unit u
    call Ltv(LAv("CenarionFury.mdl",x,y,2.75))
    call GroupEnumUnitsInRange(G,x,y,475,null)
    call GroupRemoveUnit(G,(MF))
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)and IsUnitAliveAndEnemy(u,(mF))then
            call UnitDamageTargetBY(((mF)),(u),(((DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
        endif
    endloop
    return false
endfunction

function y2v takes nothing returns boolean
    if GetDamage()>$2710 then
        call UnitDamageTargetBY((((MF))),(((mF))),(((($9C4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    else
        call UnitDamageTargetBY((((MF))),(((mF))),((((.25*GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    endif
    return false
endfunction

function y3v takes nothing returns boolean
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local unit u
    call CTv(40,.3,x,y,750)
    call Ltv(LAv("Epicenter.mdl",x,y,3))
    call GroupEnumUnitsInRange(G,x,y,825,null)
    call GroupRemoveUnit(G,(MF))
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitAliveAndEnemy(u,(mF))and IsUnitInRangeXY(u,x,y,750)then
            call UnitDamageTargetBY(((mF)),(u),(((DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
        endif
    endloop
    return false
endfunction

function y4v takes nothing returns boolean
    call UnitAppBuffByLevel((pF),'ACsw',$D006B,3)
    return false
endfunction

function y5v takes nothing returns boolean
    call UnitDamageTargetBY((((mF))),(((MF))),(((($5DC)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    call dxv((MF),true)
    return false
endfunction

function y6v takes nothing returns boolean
    local integer id=(pF_v)
    local unit u
    local integer i
    local real x
    local real y
    set Zr[id]=Zr[id]+1
    if Zr[id]==3 then
        set Zr[id]=0
        set i=2
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call DamageAmplify(2*GetDamage())
        call Ltv(LAv("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",x,y,1.5))
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,.6),125,$9B,125,55))
        call GroupEnumUnitsInRange(G,x,y,575,null)
        call GroupRemoveUnit(G,(MF))
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,500)and IsUnitAliveAndEnemy(u,(mF))then
                set i=i-1
                call BEv((mF),x,y,GetUnitFlyHeight(u)+60,u,GetDamage(),"Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl",1,30,$A)
                exitwhen i==0
            endif
        endloop
        set u=null
    endif
    return false
endfunction

function y7v takes nothing returns boolean
    if GetUnitTypeId((MF))=='n02U' and GetWidgetLife((MF))<$1EA50 then
        call cUv((MF))
    endif
    return false
endfunction

function y8v takes nothing returns boolean
    local real x
    local real y
    local real a
    if GetUnitAbilityLevel((mF),'B01V')>0 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set a=Atan2(GetUnitY((mF))-y,GetUnitX((mF))-x)
        call UnitCureTaret((mF),(mF),$C350+2*GetDamage())
        call GJv((MF),x+100*Cos(a),y+100*Sin(a),.25)
        call DestroyEffect(AddSpecialEffectTarget("VampiricAuraTarget.mdx",(mF),"chest"))
    endif
    return false
endfunction

function y9v takes nothing returns boolean
    if GetUnitState((MF),UNIT_STATE_MANA)>=GetUnitState((MF),UNIT_STATE_MAX_MANA)and GetRandomInt(1,5)<3 then
        call SetUnitState((MF),UNIT_STATE_MANA,0)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\SpellShieldAmulet\\SpellShieldCaster.mdl",(MF),"chest"))
        set KF[HF]=PF+1000000.
    endif
    return false
endfunction

function Yvv takes nothing returns boolean
    if GetUnitTypeId((MF))=='n038' and not IsUnitIllusion((MF))then
        call cPv((MF))
    endif
    if GetUnitAbilityLevel((MF),'B05D')==1 or IsUnitPaused((MF))then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\MirrorImage\\MirrorImageCaster.mdl",(MF),"origin"))
        set KF[HF]=PF+1000000.
    elseif GetRandomInt(1,4)==1 then
        call IssueImmediateOrderById((MF),$D0084)
    endif
    return false
endfunction

function UnitInitAI takes nothing returns nothing
    local integer data=(le)
    local integer tpid=UnitTypeId[data]
    if tpid=='n02M' then
        call cwv((Je[(data)]))
    elseif tpid=='n02U' then
        call UnitAddPAttackTrig((data),function y6v)
        call UnitAddShieldTrig((data),function y7v)
    elseif tpid=='h01L' or tpid=='n037' or tpid=='n038' then
        call UnitAddShieldTrig((data),function Yvv)
    elseif tpid=='h010' then
        call UnitAddPAttackTrig((data),function y0v)
    elseif tpid=='n01Y' then
        call UnitAddPAttackTrig((data),function y_v)
    elseif tpid=='oshm' then
        call UnitAddPAttackTrig((data),function y3v)
    elseif tpid=='n02I' then
        call UnitAddPAttackTrig((data),function y4v)
    elseif tpid=='n02L' then
        call UnitAddPAttackTrig((data),function y8v)
    elseif tpid=='n02T' then
        call UnitAddPAttackTrig((data),function y5v)
    elseif tpid=='h01B' then
        call UnitAddPAttackTrig((data),function yzv)
    elseif tpid=='n00B' then
        call UnitAddBePAttackTrig((data),function y2v)
    elseif tpid=='n02J' then
        call UnitAddShieldTrig((data),function y9v)
    endif
endfunction

function YEv takes nothing returns nothing
    call RegisterEnterworldEvent('n02M',function UnitInitAI)
    call RegisterEnterworldEvent('n02U',function UnitInitAI)
    call RegisterEnterworldEvent('h01L',function UnitInitAI)
    call RegisterEnterworldEvent('n037',function UnitInitAI)
    call RegisterEnterworldEvent('n038',function UnitInitAI)
    call RegisterEnterworldEvent('h010',function UnitInitAI)
    call RegisterEnterworldEvent('n01Y',function UnitInitAI)
    call RegisterEnterworldEvent('oshm',function UnitInitAI)
    call RegisterEnterworldEvent('n02I',function UnitInitAI)
    call RegisterEnterworldEvent('n02L',function UnitInitAI)
    call RegisterEnterworldEvent('n02T',function UnitInitAI)
    call RegisterEnterworldEvent('h01B',function UnitInitAI)
    call RegisterEnterworldEvent('n00B',function UnitInitAI)
    call RegisterEnterworldEvent('n02J',function UnitInitAI)
endfunction

function YFv takes nothing returns nothing
    local unit u
    local real p
    if UnitAlive(oi)then
        set p=.05-.025*GetWidgetLife(oi)/ GetUnitState(oi,UNIT_STATE_MAX_LIFE)
        call GroupEnumUnitsInRect(G,ri,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitAliveAndEnemyNotAvul(u,oi)and not UnitHasItemOfType(u,'I09Z')then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",u,"origin"))
                call UnitDamageTargetBY(((oi)),((u)),(((($FA+p*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            endif
        endloop
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:26")
    endif
endfunction

function Ygv takes nothing returns nothing
    set oi=gg_unit_h01F_0728
    set ri=gg_rct_BSDX______________001
    set ii[0]=$44A7
    set ai[0]=-$4AC4
    set ii[1]=$48A8
    set ai[1]=-$45EC
    set ii[2]=$4D58
    set ai[2]=-$4556
    set ii[3]=$50AA
    set ai[3]=-$4790
    set ii[4]=$5190
    set ai[4]=-$4F60
    call SetHeroLevel(oi,$FA,false)
    call SetUnitInvulnerable(oi,true)
    call TimerStart((NewTimer(0)),2.5,true,function YFv)
endfunction

function Passive_Skill_SpiriBreath_RemoveBuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:27")
    if AF[id]!=0 then
        call DeUnitMdef((id),AF[id])
        set AF[id]=0
    endif
    if bF[id]then
        call ModifyUnitArmor((id),50*BF[id])
    else
        call ModifyUnitArmor((id),$F*BF[id])
    endif
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09T','B02Z')
    call Unit_Cancel_Counter(43,(id))
    set NF[id]=null
endfunction

function Passive_Skill_SpiriBreath_Addbuff takes unit u,boolean i returns nothing
    local integer id=(GetUnitUserData((u)))
    if NF[id]==null then
        set NF[id]=NewTimer(id)
        set bF[id]=i
        set BF[id]=0
        if i then
            set AF[id]=ModifyUnitMdef((id),0)
        endif
        call UnitAddAbilityBY(u,'A09T')
        call Unit_App_Counter(44,(id))
    endif
    if BF[id]<5 then
        set BF[id]=BF[id]+1
        if bF[id]then
            call UnitMdefChange((id),AF[id],-3*BF[id])
            call ModifyUnitArmor((id),-50)
        else
            call ModifyUnitArmor((id),-$F)
        endif
    endif
    call TimerStart(NF[id],6,false,function Passive_Skill_SpiriBreath_RemoveBuff)
endfunction

function YKv takes nothing returns integer
    local integer NNv
    if(CF[(0)]==0)then
        set cF=cF+1
        set NNv=cF
    else
        set NNv=CF[(0)]
        set CF[(0)]=CF[CF[(0)]]
    endif
    return NNv
endfunction

function Ylv takes integer NNv returns nothing
    set CF[NNv]=CF[(0)]
    set CF[(0)]=NNv
endfunction

function YLv takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:28")
    call UnitRemoveAbilityandBuffBY((Je[(dF[NNv])]),DF[NNv],fF[NNv])
    call Unit_Cancel_Counter(45,dF[NNv])
    call Ylv(NNv)
endfunction

function Ymv takes unit u,integer a,integer b,real cyv returns boolean
    local integer NNv
    if GetUnitAbilityLevel(u,a)==0 then
        set NNv=YKv()
        set dF[NNv]=(GetUnitUserData((u)))
        set DF[NNv]=a
        set fF[NNv]=b
        call UnitAddAbilityBY(u,a)
        call TimerStart(NewTimer(NNv),cyv,false,function YLv)
        call Unit_App_Counter(46,dF[NNv])
        return true
    endif
    return false
endfunction

function BrokenShield_A takes unit u returns boolean
    if GetUnitAbilityLevel(u,'B00W')>0 then
        call UnitRemoveAbility(u,'B00W')
        return true
    elseif GetUnitAbilityLevel(u,'B01U')>0 then
        call UnitRemoveAbility(u,'B01U')
        return true
    elseif UnitRemoveAbility(u,'B09I')then
        return true
    elseif cLv(((GetUnitUserData((u)))))then
        return true
    elseif BSv(((GetUnitUserData((u)))))then
        return true
    endif
    return false
endfunction

function ziv takes nothing returns boolean
    if IsUnitAliveAndAlly(GetTriggerUnit(),GetAttacker())then
        if IsUnitOwnedByPlayer(GetAttacker(),Player($F))==FALSE then
            call IssueImmediateOrderById(GetAttacker(),$D0004)
        endif
    endif
    return false
endfunction

function zav takes nothing returns boolean
    if GetIssuedOrderId()==$D0016 then
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    endif
    return false
endfunction

function zGv takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:29")
    if GetLocalPlayer()==P[i]then
        call CameraSetSourceNoise(0,0)
        call CameraSetTargetNoise(0,0)
    endif
    set gg[i]=null
endfunction

function zhv takes integer i,real Ctv,real timed returns nothing
    if timed>0 then
        if GetLocalPlayer()==P[i]then
            call CameraSetTargetNoiseEx(2*Ctv,Ctv*$186A0,true)
            call CameraSetSourceNoiseEx(2*Ctv,Ctv*$186A0,true)
        endif
        if gg[i]==null then
            set gg[i]=NewTimer(i)
            call TimerStart(gg[i],timed,false,function zGv)
        else
            if TimerGetRemaining(gg[i])<timed then
                call TimerStart(gg[i],timed,false,function zGv)
            endif
        endif
    endif
endfunction

function zHv takes real Cuv,real cyv,real x,real y,real r returns nothing
    local unit u
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            if IsUnitType(u,UNIT_TYPE_HERO)then
                call zhv((GetPlayerId((GetOwningPlayer(u)))),Cuv,cyv)
            endif
        endif
    endloop
endfunction

function zjv takes integer Ctv,real cyv returns nothing
    local integer NNv=8
    loop
        set NNv=NNv-1
        if pV[NNv]then
            call zhv(NNv,Ctv,cyv)
        endif
        exitwhen NNv==0
    endloop
endfunction

function zJv takes integer NNv returns nothing
    if Dg[NNv]!=null then
        call ReleaseTimer(Dg[NNv],"[TimerUtils]Error:30")
        if GetLocalPlayer()==P[NNv]then
            call ResetTerrainFog()
        endif
        set Dg[NNv]=null
        set Fg[NNv]=false
    endif
endfunction

function zkv takes nothing returns nothing
    call zJv(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function zKv takes integer NNv,integer r,integer g,integer b,real cyv returns nothing
    if Dg[NNv]==null then
        set Fg[NNv]=true
        set Dg[NNv]=NewTimer(NNv)
    endif
    if GetLocalPlayer()==P[NNv]then
        call SetTerrainFogEx(0,100,5000,$A,r/ 255.,g/ 255.,b/ 255.)
    endif
    call TimerStart(Dg[NNv],cyv,false,function zkv)
endfunction

function zlv takes integer r,integer g,integer b,real cyv returns nothing
    local integer NNv=8
    loop
        set NNv=NNv-1
        if pV[NNv]then
            call zKv(NNv,r,g,b,cyv)
        endif
        exitwhen NNv==0
    endloop
endfunction

function zLv takes nothing returns boolean
    local integer l=StringLength(GetEventPlayerChatStringMatched())
    local integer i=S2I(SubString(GetEventPlayerChatString(),l,l+3))
    local integer NNv
    if i>=50 and i<=500 then
        set NNv=GetPlayerId(GetTriggerPlayer())
        set Gg[NNv]=16*i
        set Gg[NNv+$C]=.6
        if GetLocalPlayer()==P[NNv]then
            call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,Gg[NNv],.6)
        endif
    endif
    return false
endfunction

function zmv takes nothing returns boolean
    local integer NNv=GetPlayerId(GetTriggerPlayer())
    set fg[NNv]=true
    if Gg[NNv]==0 then
        set Gg[NNv]=$8CA
        set Gg[NNv+$C]=.6
    endif
    return false
endfunction

function zMv takes nothing returns boolean
    set fg[(GetPlayerId((GetTriggerPlayer())))]=false
    return false
endfunction

function zpv takes nothing returns nothing
    local integer NNv=8
    loop
        set NNv=NNv-1
        if fg[NNv]then
            if Gg[NNv+$C]>0 then
                set Gg[NNv+$C]=Gg[NNv+$C]-.1
            endif
            if GetLocalPlayer()==P[NNv]then
                call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,Gg[NNv],Gg[NNv+$C])
            endif
        endif
        exitwhen NNv==0
    endloop
endfunction

function zPv takes nothing returns nothing
    local trigger gzv=CreateTrigger()
    local trigger zqv=CreateTrigger()
    local trigger zQv=CreateTrigger()
    local integer i=8
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-tldi ",false)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-sight ",false)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-cam ",false)
            call TriggerRegisterPlayerChatEvent(zqv,P[i],"-rhwjd",true)
            call TriggerRegisterPlayerChatEvent(zqv,P[i],"-hold",true)
            call TriggerRegisterPlayerChatEvent(zqv,P[i],"-camhold",true)
            call TriggerRegisterPlayerChatEvent(zqv,P[i],"-cam hold",true)
            call TriggerRegisterPlayerChatEvent(zQv,P[i],"-rhwjdgowp",true)
            call TriggerRegisterPlayerChatEvent(zQv,P[i],"-hold off",true)
            call TriggerRegisterPlayerChatEvent(zQv,P[i],"-camhold off",true)
            call TriggerRegisterPlayerChatEvent(zQv,P[i],"-cam hold off",true)
        endif
        exitwhen i<=0
    endloop
    call TimerStart((NewTimer(0)),.1,true,function zpv)
    call TriggerAddCondition(gzv,Condition(function zLv))
    call TriggerAddCondition(zqv,Condition(function zmv))
    call TriggerAddCondition(zQv,Condition(function zMv))
    set gzv=null
    set zqv=null
    set zQv=null
endfunction

function zsv takes nothing returns boolean
    call DisplayTimedText("|c0052E252"+Game_PlayerName[GetPlayerId(GetTriggerPlayer())]+"'s|r rolled |cffffcc00'"+I2S(GetRandomInt(1,201))+"|r !",$A)
    return false
endfunction

function zSv takes nothing returns boolean
    set Jg=false
    call KillUnit(MV[GetPlayerId(GetTriggerPlayer())])
    set Jg=true
    return false
endfunction

function ztv takes nothing returns boolean
    if GetLocalPlayer()==GetTriggerPlayer()then
        call ClearTextMessages()
    endif
    return false
endfunction

function zTv takes nothing returns nothing
    local item i=GetEnumItem()
    local real x=GetItemX(i)
    local real y=GetItemY(i)
    if IsItemVisible(i)and not(IsPointInRect(x,y,gg_rct_XSC___________000)or IsPointInRect(x,y,gg_rct_FSZJ______________000)or IsPointInRect(x,y,gg_rct_BBMD______________000))then
        call RemoveItemG(i)
    endif
    set i=null
endfunction

function zuv takes nothing returns nothing
    if wV!=null then
        call ReleaseTimer(wV,"[TimerUtils]Error:31")
        call ReleaseTimer(WV,"[TimerUtils]Error:32")
        call DestroyTimerDialog(yV)
        set wV=null
        set WV=null
        set yV=null
    endif
endfunction

function zUv takes nothing returns nothing
    call zuv()
    call EnumItemsInRect(WorldBounds,null,function zTv)
endfunction

function zwv takes nothing returns nothing
    call DisplayTimedText("|cffffcc0010Seconds|r before map will be |c0052E252cleaned|r.",$A)
endfunction

function zWv takes nothing returns boolean
    if wV==null then
        set wV=(NewTimer(0))
        set WV=(NewTimer(0))
        set yV=CreateTimerDialog(wV)
        call DisplayTimedText("|cffffcc002minutes|r before map will be |c0052E252cleaned|r.",$F)
        call TimerStart(wV,120,false,function zUv)
        call TimerStart(WV,110,false,function zwv)
        call TimerDialogSetTitle(yV,"|c0080ffffMap cleaning")
        call TimerDialogDisplay(yV,true)
    else
        call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,5,"Cleaning work has been arranged(?/?/?/?).")
    endif
    return false
endfunction

function zyv takes nothing returns boolean
    if wV==null then
        call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,5,"Cleaning work is not scheduled(?/?/?/?).")
    else
        call DisplayTimedText("|c0052E252Cleaning was canceled.|r",5)
        call zuv()
    endif
    return false
endfunction

function zYv takes nothing returns nothing
    set hg=malloc()
    call SaveInteger(BYHT,hg,'Hblm',1)
    call SaveInteger(BYHT,hg,'H000',1)
    call SaveInteger(BYHT,hg,'H003',1)
    call SaveInteger(BYHT,hg,'H00H',1)
    call SaveInteger(BYHT,hg,'Hmkg',1)
    call SaveInteger(BYHT,hg,'H01V',1)
    call SaveInteger(BYHT,hg,'H001',2)
    call SaveInteger(BYHT,hg,'H001',2)
    call SaveInteger(BYHT,hg,'H004',2)
    call SaveInteger(BYHT,hg,'H00E',2)
    call SaveInteger(BYHT,hg,'H00Z',2)
    call SaveInteger(BYHT,hg,'Hamg',2)
    call SaveInteger(BYHT,hg,'H015',2)
    call SaveInteger(BYHT,hg,'H01H',2)
    call SaveInteger(BYHT,hg,'H01U',2)
    call SaveInteger(BYHT,hg,'H01W',2)
    call SaveInteger(BYHT,hg,'H002',3)
    call SaveInteger(BYHT,hg,'H005',3)
    call SaveInteger(BYHT,hg,'H006',3)
    call SaveInteger(BYHT,hg,'H007',3)
    call SaveInteger(BYHT,hg,'H008',3)
    call SaveInteger(BYHT,hg,'H009',3)
    call SaveInteger(BYHT,hg,'H00J',3)
    call SaveInteger(BYHT,hg,'H01I',3)
    call SaveInteger(BYHT,hg,'H01N',3)
    call SaveInteger(BYHT,hg,'H01X',3)
    call SaveInteger(BYHT,hg,'H01Y',3)
endfunction

function zzv takes nothing returns nothing
    set YV[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:33")]=false
endfunction

function zZv takes integer NNv returns boolean
    return UnitHasItemOfType((Je[(NNv)]),'I06E')and not Hg[NNv]
endfunction

function z_v takes nothing returns nothing
    set Hg[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:34"))]=false
endfunction

function z0v takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer NNv=(alloc__hpv(GetHandleId((t))))
    set jg[NNv]=jg[NNv]-1
    if jg[NNv]>0 then
        call Ltv(LAv("NatureExplosion.mdl",Hero_Revive_X[(NNv)],Hero_Revive_Y[(NNv)],.75))
    else
        call SetItemDroppableTimedById((NNv),'I06E',$B4)
        call Ltv(LAv("NatureExplosion.mdl",Hero_Revive_X[(NNv)],Hero_Revive_Y[(NNv)],2))
        call TimerStart(t,$B4,false,function z_v)
    endif
    set t=null
endfunction

function z1v takes integer NNv returns nothing
    set Hg[NNv]=true
    set jg[NNv]=3
    call Ltv(LAv("NatureExplosion.mdl",Hero_Revive_X[(NNv)],Hero_Revive_Y[(NNv)],.75))
    call TimerStart(NewTimer(NNv),.66666,true,function z0v)
endfunction

function z2v takes integer NNv returns nothing
    set mg[NNv]=0
    call MultiboardSetItemValueBY(TV,Kc[(NNv)]+1,4,"0")
    call SetTextTagLifespan(Kg[NNv],2.5)
    call SetTextTagFadepoint(Kg[NNv],2)
    call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",(GetUnitX(II[(kg[NNv])])),(GetUnitY(II[(kg[NNv])])),1.5))
    call LTv(kg[NNv])
    set Kg[NNv]=null
endfunction

function z3v takes integer NNv returns nothing
    if Kg[NNv]!=null then
        call DestroyTextTag(Kg[NNv])
    endif
    set Kg[NNv]=CreateTextTag()
    call SetTextTagText(Kg[NNv],"|c00ff0000"+I2S(lg[NNv])+" + "+I2S(Lg[NNv])+" = ?",.025)
    call SetTextTagPos(Kg[NNv],(GetUnitX(II[(kg[NNv])])),(GetUnitY(II[(kg[NNv])])),50)
    call SetTextTagVisibility(Kg[NNv],true)
    call SetTextTagPermanent(Kg[NNv],false)
endfunction

function z5v takes integer NNv returns nothing
    if pg[NNv]then
        set Pg[qg[NNv]]=Pg[NNv]
        set qg[Pg[NNv]]=qg[NNv]
        set pg[NNv]=false
        if qg[(0)]==0 then
            call frv(Qg)
        endif
        call z2v(NNv)
        call Unit_Cancel_Counter(47,(NNv))
    endif
endfunction

function z6v takes nothing returns boolean
    local integer NNv=qg[(0)]
    local real s
    local real x
    local real y
    local real a
    loop
        exitwhen NNv==0
        set a=bj_DEGTORAD*GetUnitFacing((Je[(NNv)]))
        set s=(1.-Mg[NNv]/ 19200.)
        set x=GetUnitX((Je[(NNv)]))-(100-75*s)*Cos(a)
        set y=GetUnitY((Je[(NNv)]))-(100-75*s)*Sin(a)
        call LKv(kg[NNv],x)
        call Llv(kg[NNv],y)
        call SetUnitFacing(II[(kg[NNv])],((a)*1.)*bj_RADTODEG)
        if Mg[NNv]>1 then
            set Mg[NNv]=Mg[NNv]-1
            if ModuloInteger(Mg[NNv],$780)==0 then
                call z3v(NNv)
            endif
            call Lfv(kg[NNv],$FF,$FF,$FF,R2I(105+$96*s))
            call SetTextTagPos(Kg[NNv],x,y,50)
        else
            call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),2))
            call thv("|c00ff0000Raped!|r",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),GetUnitFlyHeight((Je[(NNv)]))+25,.05,.04,bj_PI/ 2,3,3.5)
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)]))))
            call RemoveUnitBJ((Je[(NNv)]),2)
            call z5v(NNv)
        endif
        set NNv=qg[NNv]
    endloop
    return false
endfunction

function z7v takes integer NNv returns boolean
    if not pg[NNv]then
        if qg[(0)]==0 then
            if Qg==0 then
                set Qg=fxv(function z6v)
            endif
            call fov(Qg)
        endif
        set qg[NNv]=qg[(0)]
        set Pg[qg[(0)]]=NNv
        set qg[(0)]=NNv
        set Pg[NNv]=0
        set pg[NNv]=true
        call Unit_App_Counter(48,(NNv))
        return true
    endif
    return false
endfunction

function z8v takes nothing returns boolean
    local integer NNv=(GetUnitUserData((MV[GetPlayerId(GetTriggerPlayer())])))
    local integer a
    if pg[NNv]then
        set a=S2I(SubString(GetEventPlayerChatString(),1,5))
        if a>0 then
            if a==lg[NNv]+Lg[NNv]then
                call z5v(NNv)
            else
                set Mg[NNv]=Mg[NNv]-$F00
                call z3v(NNv)
                call LFv(kg[NNv],"Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl")
                call zhv((Kc[(NNv)]),75,1)
                call PlaySoundOnUnit_BJ((Za),((100)*1.),((Je[(NNv)])))
            endif
        endif
    endif
    return false
endfunction

function z9v takes nothing returns nothing
    local trigger gzv=CreateTrigger()
    local integer i=8
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-",false)
        endif
        exitwhen i==0
    endloop
    call TriggerAddCondition(gzv,Filter(function z8v))
    set gzv=null
endfunction

function ZEv takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=(GetUnitX(II[(ug[NNv])]))
    local real y=(GetUnitY(II[(ug[NNv])]))
    local real a=bj_DEGTORAD*(GetUnitFacing(II[(ug[NNv])]))
    local integer ZXv=CreateBarrageTypeD(x,y-400*Sin(a),600,x,y,0)
    call LKv(ug[NNv],x+100*Cos(a))
    call Llv(ug[NNv],y+100*Sin(a))
    set Ug[NNv]=Ug[NNv]-1
    set s__barrage_speed[ZXv]=0
    set s__barrage_acceleration[ZXv]=.3
    call LMv(s__barrage_model[ZXv],"OrbOfCorruption.mdl")
    call SetUnitScale(II[(s__barrage_model[ZXv])],((1.5)*1.),0,0)
    call LFv(s__barrage_model[ZXv],"Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl")
    call BOv(ZXv)
    if Ug[NNv]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:35")
        call Unit_Cancel_Counter(49,(NNv))
        call Ltv(ug[NNv])
    endif
endfunction

function ZOv takes nothing returns nothing
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local real a=bj_DEGTORAD*GetUnitFacing((Je[(NNv)]))
    set ug[NNv]=Lnv(GetUnitX((Je[(NNv)]))-500*Cos(a),GetUnitY((Je[(NNv)]))-500*Sin(a),a)
    set Ug[NNv]=$A
    call zKv((GetPlayerId((GetOwningPlayer((Je[(NNv)]))))),$80,0,$FF,1)
    call TimerStart(NewTimer(NNv),.1,true,function ZEv)
    call Unit_App_Counter(50,(NNv))
endfunction

function ZRv takes nothing returns nothing
    call PauseUnit((Je[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:36"))]),false)
endfunction

function ZIv takes nothing returns boolean
    local unit u=GetTriggerUnit()
    call thv("|c000080ffStop killing me!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!|r",GetUnitX(u),GetUnitY(u),50,.075,.05,bj_PI/ 2,2,2.5)
    call PlaySoundOnUnit_BJ((Jn),((100)*1.),(u))
    call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",GetUnitX(u),GetUnitY(u),2.5))
    call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",GetUnitX(u),GetUnitY(u),2.5))
    call zhv((GetPlayerId((GetOwningPlayer(u)))),40,1)
    call PauseUnit(u,true)
    call SetUnitAnimation(u,"death")
    call TimerStart(NewTimer((GetUnitUserData((u)))),2.5,false,function ZRv)
    set u=null
    return false
endfunction

function ZAv takes integer NNv returns boolean
    call Ltv(LAv("Acid Ex.mdx",s__locationez_X[s__barrage_p2[NNv]],s__locationez_Y[s__barrage_p2[NNv]],.75))
    call Ltv(LAv("Abilities\\Weapons\\ChimaeraAcidMissile\\ChimaeraAcidMissile.mdl",s__locationez_X[s__barrage_p2[NNv]],s__locationez_Y[s__barrage_p2[NNv]],.75))
    return true
endfunction

function ZNv takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function Zbv takes nothing returns boolean
    local integer NNv=s__barrage_FR[wg]
    local unit u
    if NNv!=wg then
        call UseBarrage(wg)
        loop
            exitwhen NNv==wg
            if(s__barrage_outside[(NNv)])then
                call ZAv(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if ZAv(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[wg]then
        set s__barrage_InOperation[wg]=false
        call TriggerEvaluate(Xmv)
    endif
    return false
endfunction

function ZBv takes nothing returns nothing
    call fov(Wg)
endfunction

function s__PoisonBlast_stop takes nothing returns nothing
    call frv(Wg)
endfunction

function Zcv takes nothing returns nothing
    set Wg=fxv(function Zbv)
    call fov(Wg)
endfunction

function ZCv takes integer NNv returns nothing
    call s__barrage_Filling((wg),(NNv))
    if not s__barrage_InOperation[wg]then
        set s__barrage_InOperation[wg]=true
        call fov(Wg)
    endif
endfunction

function Zdv takes nothing returns nothing
    set wg=NewLauncher()
    set s__barrage_InOperation[wg]=true
endfunction

function ZDv takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer i=8
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real tX=GetSpellTargetX()
    local real tY=GetSpellTargetY()
    local real a=Atan2(tY-y,tX-x)
    local real d
    local integer NNv
    set x=x+25*Cos(a)
    set y=y+25*Sin(a)
    call Ltv(LIv("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",x,y,50,.5,a,0))
    loop
        set i=i-1
        set d=GetRandomReal(0,$FA)
        set a=GetRandomReal(0,Lx)
        set NNv=CreateBarrageTypeD(x,y,25,tX+d*Cos(a),tY+d*Sin(a),0)
        call LMv(s__barrage_model[NNv],"OrbOfVenom.mdx")
        call SetUnitScale(II[(s__barrage_model[NNv])],((GetRandomReal(.75,1))*1.),0,0)
        set s__barrage_speed[NNv]=GetRandomReal($F,35)
        set s__barrage_acceleration[NNv]=GetRandomReal(.1,.3)
        call SetBarrageFlightRadian(NNv,GetRandomReal(-.3,.3))
        call SetBarrageFlightRadianEZ(NNv,GetRandomReal(.3,.6))
        call ZCv(NNv)
        exitwhen i==0
    endloop
    set u=null
    return false
endfunction

function Zfv takes nothing returns nothing
    call RegisterSpellEffectEvent('A0KX',function ZDv)
endfunction

function ZFv takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function Zgv takes integer NNv returns nothing
    if zg[NNv]then
        set Zg[vG[NNv]]=Zg[NNv]
        set vG[Zg[NNv]]=vG[NNv]
        set zg[NNv]=false
        if vG[(0)]==0 then
            call frv(eG)
        endif
        call Unit_Cancel_Counter(51,(NNv))
    endif
endfunction

function ZGv takes nothing returns boolean
    local integer NNv=vG[(0)]
    local integer Zhv
    local real x
    local real y
    local real a
    local real zA
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            set Yg[NNv]=Yg[NNv]-1
            if ModuloInteger(Yg[NNv],4)==0 then
                set x=(GetUnitX(II[(yg[NNv])]))
                set y=(GetUnitY(II[(yg[NNv])]))
                set a=GetRandomReal(0,Lx)
                set zA=GetRandomReal(0,Lx/ 2.)
                set Zhv=CreateBarrageTypeD(x+(400-$C8*Yg[NNv]/ 128.)*Cos(a)*Sin(zA),y+(400-$C8*Yg[NNv]/ 128.)*Sin(a)*Sin(zA),50+50*Cos(zA),x,y,50)
                call SetBarrageFlightRadian(Zhv,.3)
                set s__barrage_speed[Zhv]=5
                set s__barrage_acceleration[Zhv]=1.-.5*Yg[NNv]/ 128.
                call LMv(s__barrage_model[Zhv],"Objects\\InventoryItems\\CrystalShard\\CrystalShard.mdl")
                call SetUnitScale(II[(s__barrage_model[Zhv])],((2.-Yg[NNv]/ 128.)*1.),0,0)
                if ModuloInteger(Yg[NNv],32)==0 then
                    if Yg[NNv]<1 then
                        call CreateItemG('fgfh',x,y)
                        call Ltv(LAv("ShadowAssault.mdl",x,y,1.25))
                        call PauseUnit((Je[((NNv))]),false)
                        call SetUnitTimeScale((Je[((NNv))]),1)
                        call Ltv(yg[NNv])
                        call Zgv(NNv)
                    endif
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DeathPact\\DeathPactTarget.mdl",x,y,.75),$FF,0,0,$FF))
                endif
                call Lfv(s__barrage_model[Zhv],$9B,$9B,$9B,$9B)
                call BOv(Zhv)
            endif
        else
            call Ltv(yg[NNv])
            call Zgv(NNv)
        endif
        set NNv=vG[NNv]
    endloop
    return false
endfunction

function ZHv takes integer NNv returns integer
    if not zg[NNv]then
        if vG[(0)]==0 then
            if eG==0 then
                set eG=fxv(function ZGv)
            endif
            call fov(eG)
        endif
        set vG[NNv]=vG[(0)]
        set Zg[vG[(0)]]=NNv
        set vG[(0)]=NNv
        set Zg[NNv]=0
        set zg[NNv]=true
        call Unit_App_Counter(52,(NNv))
    endif
    return NNv
endfunction

function Zjv takes unit u returns integer
    return ZHv((GetUnitUserData((u))))
endfunction

function ZJv takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:37")
    call Ltv(LNv("firegold.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),900,1.5))
    call KillUnit((Je[(id)]))
    call PauseUnit((Je[(id)]),false)
    call zhv((Kc[(id)]),75,1)
    call Unit_Cancel_Counter(53,id)
endfunction

function Zkv takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))then
        if UnitAddAbility((Je[(id)]),'Amrf')then
            call UnitRemoveAbility((Je[(id)]),'Amrf')
        endif
        call zKv((Kc[(id)]),$FF,125,125,2)
        call Ltv(Lbv(LVv('e003',GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),0),2,.5))
        call PlaySoundOnUnit_BJ((Mn),(($7F)*1.),((Je[(id)])))
        call SetUnitFlyHeight((Je[(id)]),900,600)
        call TimerStart(GetExpiredTimer(),2,false,function ZJv)
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:38")
        call PauseUnit((Je[(id)]),false)
        call Unit_Cancel_Counter(54,id)
    endif
endfunction

function ZKv takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    call PauseUnit(u,true)
    call TimerStart(NewTimer(id),2,false,function Zkv)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",GetUnitX(u),GetUnitY(u),1.25),$FF,0,0,$FF))
    call Unit_App_Counter(55,id)
endfunction

function Zlv takes nothing returns boolean
    local integer NNv=(ZHv((GetUnitUserData(((GetTriggerUnit()))))))
    set yg[NNv]=Lfv(LAv("VoidDrown.mdl",GetSpellTargetX(),GetSpellTargetY(),.5),$FF,25,25,$FF)
    call SetUnitFlyHeight(II[(yg[NNv])],((50)*1.),0)
    set Yg[NNv]=$80
    call PauseUnit((Je[((NNv))]),true)
    call SetUnitTimeScale((Je[((NNv))]),.25)
    call SetUnitAnimation((Je[((NNv))]),"attack")
    call QueueUnitAnimation((Je[((NNv))]),"stand")
    call Lfv(yg[NNv],$FF,125,125,$FF)
    return false
endfunction

function ZLv takes nothing returns nothing
    call RegisterSpellEffectEvent('A0L0',function Zlv)
endfunction

function Zmv takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:39")
    local integer i=6
    local real x=(GetUnitX(II[(xG[NNv])]))
    local real y=(GetUnitY(II[(xG[NNv])]))
    local real a
    local real c
    local real s
    local unit u
    loop
        set i=i-1
        set a=Lx*i/ 6.
        set c=62.5*Cos(a)
        set s=62.5*Sin(a)
        call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+1.5*c,y+1.5*s,.625),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
        call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+3*c,y+3*s,.625),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,300+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,300)then
            if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndAlly(u,(Je[(NNv)]))then
                call zKv((GetPlayerId((GetOwningPlayer(u)))),$FF,$9B,$FF,.5)
                call sc___prototype200_evaluate(1,u,true)
            endif
        endif
    endloop
    call PlaySoundAtPoint_BJ((Fn),((100)*1.),((x)*1.),((y)*1.),0)
    call Ltv(LAv("AquaSpike.mdl",x,y,1.5))
    call Unit_Cancel_Counter(56,(NNv))
    call Ltv(xG[NNv])
endfunction

function ZMv takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local integer i=6
    local real x=GetUnitX((Je[(NNv)]))
    local real y=GetUnitY((Je[(NNv)]))
    local unit u
    set xG[NNv]=LAv("Whirlpool.mdl",x,y,.25)
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAliveAndAlly(u,(Je[(NNv)]))then
                call UnitAppBuff((GetUnitUserData((u))),'A0GA',$D006B)
            endif
        endif
    endloop
    loop
        set i=i-1
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+100*Cos(Lx*i/ 6.),y+100*Sin(Lx*i/ 6.),.5))
        exitwhen i==0
    endloop
    call TimerStart(NewTimer(NNv),1.5,false,function Zmv)
    call Lqv(LAv("Abilities\\Spells\\Human\\CloudOfFog\\CloudOfFog.mdl",x,y,.75),1.5)
    call Unit_App_Counter(57,(NNv))
    return false
endfunction

function Zpv takes nothing returns nothing
    call RegisterSpellEffectEvent('A0L3',function ZMv)
endfunction

function ZPv takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function Zqv takes integer NNv returns nothing
    if VG[NNv]then
        set EG[XG[NNv]]=EG[NNv]
        set XG[EG[NNv]]=XG[NNv]
        set VG[NNv]=false
        if XG[(0)]==0 then
            call frv(OG)
        endif
        call Unit_Cancel_Counter(58,(NNv))
    endif
endfunction

function ZQv takes nothing returns boolean
    local integer NNv=XG[(0)]
    local integer fx
    local integer i
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen NNv==0
        set i=rG[NNv]
        if UnitAlive((Je[((NNv))]))then
            set iG[NNv]=iG[NNv]+1
            set x=GetUnitX((Je[((NNv))]))
            set y=GetUnitY((Je[((NNv))]))
            if iG[NNv]>31 then
                set iG[NNv]=0
            endif
            loop
                exitwhen i==0
                set i=i-1
                set fx=LoadInteger(BYHT,oG[NNv],i)
                if Mxv((GetUnitX(II[(fx)]))-x,(GetUnitY(II[(fx)]))-y)>$3E8 then
                    set a=GetRandomReal(0,Lx)
                    set d=GetRandomReal(75,125)
                    call LKv(fx,x+d*Cos(a))
                    call Llv(fx,y+d*Sin(a))
                    call IssueImmediateOrderById(II[fx],$D0004)
                    call LFv(fx,"Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl")
                elseif iG[NNv]==0 and GetUnitCurrentOrder(II[fx])==0 then
                    set a=GetRandomReal(0,Lx)
                    set d=GetRandomReal(50,100)
                    call IssuePointOrderById(II[fx],$D000F,x+d*Cos(a),y+d*Sin(a))
                endif
            endloop
        else
            loop
                exitwhen i==0
                set i=i-1
                call LSv((LoadInteger(BYHT,oG[NNv],i)),$FF,$C8,$C8,$FF,2)
            endloop
            call free(oG[NNv])
            call Zqv(NNv)
        endif
        set NNv=XG[NNv]
    endloop
    return false
endfunction

function Zsv takes integer NNv returns integer
    if not VG[NNv]then
        if XG[(0)]==0 then
            if OG==0 then
                set OG=fxv(function ZQv)
            endif
            call fov(OG)
        endif
        set XG[NNv]=XG[(0)]
        set EG[XG[(0)]]=NNv
        set XG[(0)]=NNv
        set EG[NNv]=0
        set VG[NNv]=true
        call Unit_App_Counter(59,(NNv))
    endif
    return NNv
endfunction

function ZSv takes unit u returns integer
    return Zsv((GetUnitUserData((u))))
endfunction

function Ztv takes unit u returns nothing
    local integer NNv=(Zsv((GetUnitUserData(((u))))))
    local integer i=2
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    set oG[NNv]=malloc()
    set rG[NNv]=i
    loop
        set i=i-1
        call SaveInteger(BYHT,oG[NNv],i,LVv('e026',x+GetRandomReal(-$96,$96),y+GetRandomReal(-$96,$96),GetRandomInt(0,359)))
        exitwhen i==0
    endloop
endfunction

function ZTv takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:40")
    local integer i
    if UnitAlive((Je[((NNv))]))then
        if aG[NNv]==1 then
            if rG[NNv]>3 then
                call NewTextTagInTarget_B(II[(LoadInteger(BYHT,oG[NNv],0))],"?? ??? ???? ??, ?? ?",9,125,125,125)
            else
                call SaveInteger(BYHT,oG[NNv],rG[NNv],LFv(LVv('e026',GetUnitX((Je[((NNv))]))+GetRandomReal(-$96,$96),GetUnitY((Je[((NNv))]))+GetRandomReal(-$96,$96),GetRandomInt(0,359)),"Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl"))
                set rG[NNv]=rG[NNv]+1
                call NewTextTagInTarget_B(II[(LoadInteger(BYHT,oG[NNv],0))],"??? ??? ????.",9,125,125,125)
            endif
        elseif aG[NNv]==2 then
            if rG[NNv]==1 then
                call NewTextTagInTarget_B(II[(LoadInteger(BYHT,oG[NNv],0))],"??? ??? ?? ???? ?",9,125,125,125)
            else
                set rG[NNv]=rG[NNv]-1
                call NewTextTagInTarget_B(II[(LoadInteger(BYHT,oG[NNv],rG[NNv]))],"?? ????. ??.",9,125,125,125)
                call SetUnitAnimation(II[(LoadInteger(BYHT,oG[NNv],rG[NNv]))],"death")
                call LSv((LoadInteger(BYHT,oG[NNv],rG[NNv])),$FF,$C8,$C8,$FF,2)
            endif
        elseif aG[NNv]==3 then
            call NewTextTagInTarget_B((Je[((NNv))]),"(???]",9,125,125,125)
        endif
    endif
    call Unit_Cancel_Counter(60,(NNv))
endfunction

function Zuv takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    set aG[NNv]=GetRandomInt(1,3)
    if aG[NNv]==1 then
        set i=GetRandomInt(1,4)
        if i==1 then
            call NewTextTagInTarget_B((Je[((NNv))]),"???",9,125,125,125)
        elseif i==2 then
            call NewTextTagInTarget_B((Je[((NNv))]),"??",9,125,125,125)
        elseif i==3 then
            call NewTextTagInTarget_B((Je[((NNv))]),"??????? ?? ????.",9,125,125,125)
        else
            call NewTextTagInTarget_B((Je[((NNv))]),"????? ???? ???.",9,125,125,125)
        endif
    elseif aG[NNv]==2 then
        set i=GetRandomInt(1,3)
        if i==1 then
            call NewTextTagInTarget_B((Je[((NNv))]),"????",9,125,125,125)
        elseif i==2 then
            call NewTextTagInTarget_B((Je[((NNv))]),"????",9,125,125,125)
        else
            call NewTextTagInTarget_B((Je[((NNv))]),"?? ????? ??",9,125,125,125)
        endif
    elseif aG[NNv]==3 then
        set i=GetRandomInt(1,4)
        if i==1 then
            call NewTextTagInTarget_B((Je[((NNv))]),"??",9,125,125,125)
        elseif i==2 then
            call NewTextTagInTarget_B((Je[((NNv))]),"????",9,125,125,125)
        elseif i==3 then
            call NewTextTagInTarget_B((Je[((NNv))]),"???.",9,125,125,125)
        else
            call NewTextTagInTarget_B((Je[((NNv))]),"?? !",9,125,125,125)
        endif
    endif
    if aG[NNv]==3 and i==3 then
        call PlaySoundOnUnit_BJ((Pn),((100)*1.),((Je[((NNv))])))
        call DestroyEffect(AddSpecialEffectTarget("BlackChakraExplosion.mdl",(Je[((NNv))]),"origin"))
    else
        call PlaySoundOnUnit_BJ((pn),((100)*1.),((Je[((NNv))])))
        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("DarkSilence.mdx"),((Je[((NNv))])),("origin")))),1.5)
    endif
    call TimerStart(NewTimer(NNv),3,false,function ZTv)
    call Unit_App_Counter(61,(NNv))
    return false
endfunction

function ZUv takes nothing returns nothing
    call RegisterSpellEffectEvent('A0LA',function Zuv)
endfunction

function Zwv takes nothing returns integer
    return D9v(AG)
endfunction

function ZWv takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Zyv takes nothing returns boolean
    local integer NNv=J[AG]
    loop
        exitwhen 0==NNv
        if UnitAlive((Je[(RG[NNv])]))then
            set IG[NNv]=IG[NNv]-1
            call SetUnitVertexColor((Je[(RG[NNv])]),GetRandomInt(1,$FF),GetRandomInt(1,$FF),GetRandomInt(1,$FF),$CD)
        else
            set IG[NNv]=0
        endif
        if IG[NNv]<1 then
            call SetUnitScale((Je[(RG[NNv])]),2.5,2.5,2.5)
            call SetUnitVertexColor((Je[(RG[NNv])]),$FF,$FF,$FF,$FF)
            call Unit_Cancel_Counter(62,RG[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function ZYv takes nothing returns nothing
    set AG=fxv(function Zyv)
endfunction

function Zzv takes nothing returns boolean
    local integer NNv=(D9v(AG))
    set RG[NNv]=(GetUnitUserData((GetTriggerUnit())))
    set IG[NNv]=$C0
    call Ltv(Lfv(LAv("AncientExplode.mdx",GetUnitX((Je[(RG[NNv])])),GetUnitY((Je[(RG[NNv])])),1.5),$FF,125,125,$FF))
    call SetUnitScale((Je[(RG[NNv])]),5,5,5)
    call Unit_App_Counter(63,RG[NNv])
    return false
endfunction

function ZZv takes nothing returns nothing
    call RegisterSpellEffectEvent('A0LD',function Zzv)
endfunction

function Z_v takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function Z0v takes integer NNv returns nothing
    if DG[NNv]then
        set fG[FG[NNv]]=fG[NNv]
        set FG[fG[NNv]]=FG[NNv]
        set DG[NNv]=false
        if FG[(0)]==0 then
            call frv(gG)
        endif
        call Unit_Cancel_Counter(64,(NNv))
    endif
endfunction

function Z1v takes nothing returns boolean
    local integer NNv=FG[(0)]
    local integer Z2v
    local integer cFv
    local unit u
    local boolean Z3v
    local integer i
    local real x
    local real y
    local real a
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            set CG[NNv]=CG[NNv]-1
            set i=4
            set x=GetUnitX((Je[((NNv))]))
            set y=GetUnitY((Je[((NNv))]))
            set a=bj_DEGTORAD*GetUnitFacing((Je[((NNv))]))
            set Z3v=IsUnitInRangeXY(II[bG[NNv]],x,y,.1)
            call LKv(bG[NNv],x)
            call Llv(bG[NNv],y)
            loop
                set i=i-1
                set cFv=LoadInteger(BYHT,NG[NNv],3*i)
                if Z3v then
                    if not BG[NNv]then
                        call SetUnitAnimation(II[cFv],"stand")
                    endif
                    if ModuloInteger(CG[NNv]+2*i,8)==0 then
                        set u=PickRandomHeroInRange((Je[((NNv))]),x,y,750)
                        if u!=null then
                            set Z2v=CreateBarrageTypeA(II[cFv],u)
                            call LMv(s__barrage_model[Z2v],"Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl")
                            call SetUnitScale(II[(s__barrage_model[Z2v])],((.5)*1.),0,0)
                            set s__barrage_speed[Z2v]=.03125*1200.
                            call SetBarrageFlightRadianEZ(Z2v,.1)
                            call SetUnitFacingTimed(II[cFv],bj_RADTODEG*Atan2(GetUnitY(u)-(GetUnitY(II[(cFv)])),GetUnitX(u)-(GetUnitX(II[(cFv)]))),0)
                            call SetUnitAnimation(II[cFv],"attack")
                            call QueueUnitAnimation(II[cFv],"stand")
                            call BOv(Z2v)
                            set u=null
                        endif
                    endif
                else
                    call LKv(cFv,x+LoadReal(BYHT,(NG[NNv]),3*i+1))
                    call Llv(cFv,y+LoadReal(BYHT,(NG[NNv]),3*i+2))
                    call SetUnitFacing(II[(cFv)],((a)*1.)*bj_RADTODEG)
                    if BG[NNv]then
                        call SetUnitAnimation(II[cFv],"walk")
                    endif
                endif
                exitwhen i==0
            endloop
            set BG[NNv]=Z3v
        else
            set CG[NNv]=0
        endif
        if CG[NNv]<1 then
            set i=4
            loop
                set i=i-1
                set cFv=LoadInteger(BYHT,NG[NNv],3*i)
                call SetUnitAnimation(II[cFv],"death")
                call Lsv(cFv,.5)
                exitwhen i==0
            endloop
            call free(NG[NNv])
            call Lsv(bG[NNv],.5)
            call Z0v(NNv)
        endif
        set NNv=FG[NNv]
    endloop
    return false
endfunction

function Z4v takes integer NNv returns integer
    if not DG[NNv]then
        if FG[(0)]==0 then
            if gG==0 then
                set gG=fxv(function Z1v)
            endif
            call fov(gG)
        endif
        set FG[NNv]=FG[(0)]
        set fG[FG[(0)]]=NNv
        set FG[(0)]=NNv
        set fG[NNv]=0
        set DG[NNv]=true
        call Unit_App_Counter(65,(NNv))
    endif
    return NNv
endfunction

function Z5v takes unit u returns integer
    return Z4v((GetUnitUserData((u))))
endfunction

function Z6v takes nothing returns boolean
    local integer NNv=(Z4v((GetUnitUserData(((GetTriggerUnit()))))))
    local integer i=4
    local real x=GetUnitX((Je[((NNv))]))
    local real y=GetUnitY((Je[((NNv))]))
    local real fA=bj_DEGTORAD*GetUnitFacing((Je[((NNv))]))
    local real a
    local integer cFv
    set NG[NNv]=malloc()
    set bG[NNv]=LAv("Abilities\\Spells\\NightElf\\TargetArtLumber\\TargetArtLumber.mdl",x,y,.875)
    set BG[NNv]=true
    set CG[NNv]=640
    loop
        set i=i-1
        set a=fA+i*Lx/ 4.
        call SaveReal(BYHT,(NG[NNv]),3*i+1,dG*Cos(a))
        call SaveReal(BYHT,(NG[NNv]),3*i+2,dG*Sin(a))
        set cFv=LVv('e031',x+LoadReal(BYHT,(NG[NNv]),3*i+1),y+LoadReal(BYHT,(NG[NNv]),3*i+2),bj_RADTODEG*a)
        call SaveInteger(BYHT,NG[NNv],3*i,cFv)
        call SetUnitTimeScale(II[cFv],2)
        call SetUnitAnimation(II[cFv],"stand")
        exitwhen i==0
    endloop
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2),125,$FF,125,$FF))
    return false
endfunction

function Z7v takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PC',function Z6v)
endfunction

function Z8v takes nothing returns integer
    return D9v(lG)
endfunction

function Z9v takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function vve takes nothing returns boolean
    local integer NNv=J[lG]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==NNv
        set KG[NNv]=KG[NNv]-1
        if kG[NNv]==0 then
            call SetUnitScale(II[(JG[NNv])],((GG-(GG-.5)*KG[NNv]/(32*hG))*1.),0,0)
        elseif kG[NNv]==1 then
            if ModuloInteger(KG[NNv],R2I(32*.5))==0 then
                set x=(GetUnitX(II[(JG[NNv])]))
                set y=(GetUnitY(II[(JG[NNv])]))
                call GroupEnumUnitsInRange(G,x,y,550.+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,550.)then
                        if IsUnitAllyNotbag(u,(Je[(jG[NNv])]))and GetUnitFlyHeight(u)<500 then
                            call sc___prototype205_evaluate(1,u,77.5,-$A)
                        endif
                    endif
                endloop
                call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.75),55,55,$FF,$CD))
            endif
        endif
        if KG[NNv]<1 then
            if kG[NNv]==0 then
                set kG[NNv]=1
                set KG[NNv]=R2I(32*HG)
            else
                call Unit_Cancel_Counter(66,jG[NNv])
                call Ltv(JG[NNv])
                call fvv((NNv))
            endif
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function vee takes nothing returns nothing
    set lG=fxv(function vve)
endfunction

function vxe takes nothing returns boolean
    local integer NNv=(D9v(lG))
    set jG[NNv]=(GetUnitUserData((GetTriggerUnit())))
    set JG[NNv]=LAv("Abilities\\Spells\\Undead\\UnholyFrenzy\\UnholyFrenzyTarget.mdl",GetSpellTargetX(),GetSpellTargetY(),2.5)
    call SetUnitScale(II[(JG[NNv])],((.5)*1.),0,0)
    set kG[NNv]=0
    set KG[NNv]=R2I(32*hG)
    call NewTextTagInTarget_B((Je[(jG[NNv])]),"?? ?? ??~",$C,$FF,$FF,$FF)
    call Unit_App_Counter(67,jG[NNv])
    return false
endfunction

function voe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0QZ',function vxe)
endfunction

function vre takes nothing returns boolean
    local integer NNv=(GetUnitUserData((MV[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))])))
    call HeroAppEffect(NNv,EquipModel_wings_Off[NNv])
    set EquipModel_wings_Off[NNv]=not EquipModel_wings_Off[NNv]
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(Je[(NNv)]),"origin"))
    if EquipModel_wings_Off[NNv]then
        call DisplayTimedTextToPlayer((P[Kc[((NNv))]]),0,0,5,"|c00ffff80Additional effects are off.")
    else
        call DisplayTimedTextToPlayer((P[Kc[((NNv))]]),0,0,5,"|c00ffff80Additional effects activation.")
    endif
    return false
endfunction

function vie takes nothing returns nothing
    call RegisterSpellEffectEvent('A0A5',function vre)
endfunction

function vGe_4 takes nothing returns nothing
    call RemoveItemG(GetSoldItem())
    call UnitAddItemByIdG(GetBuyingUnit(),'I08Q')
endfunction

function vGe_3 takes nothing returns nothing
    call RemoveItemG(GetSoldItem())
    call UnitAddItemByIdG(GetBuyingUnit(),'I002')
endfunction

function vwe takes nothing returns nothing
    call AddUnitSellItemById('I0FT',function vGe_3)
    call AddUnitSellItemById('I0FS',function vGe_4)
endfunction

function vWe takes nothing returns nothing
    set Eh=malloc()
    call SaveInteger(BYHT,Eh,'I0B8','I028')
    call SaveInteger(BYHT,Eh,'I0BG','I0B9')
    call SaveInteger(BYHT,Eh,'I0BD','I0BC')
    call SaveInteger(BYHT,Eh,'I0BE','I0BA')
    call SaveInteger(BYHT,Eh,'I0BF','I0BB')
endfunction

function xoe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer i=8
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a
    local real d
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        set d=GetRandomReal($C8,600)
        call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x+d*Cos(a),y+d*Sin(a),2))
        exitwhen i==0
    endloop
    call Lqv(LAv("Abilities\\Spells\\Orc\\EarthQuake\\EarthQuakeTarget.mdl",x,y,2.5),3)
    set u=null
    return false
endfunction

function xre takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    call GroupEnumUnitsInRange(G,x,y,550+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,550)then
            if IsUnitAliveAndAlly(u,c)then
                call UnitCureTaret(c,u,.2*GetUnitMaxLifeById((GetUnitUserData((u)))))
                call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MANA)+.25*GetUnitState(u,UNIT_STATE_MAX_MANA))
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Invisibility\\InvisibilityTarget.mdl",u,"chest"))
                call Auxiliary_TargetOrder(('A066'),null,1,$D0085,u)
            endif
        endif
    endloop
    call Ltv(LAv("Units\\NightElf\\Wisp\\WispExplode.mdl",x,y,3.5))
    call SetItemDroppableTimedById((GetUnitUserData((c))),'I09M',50)
    set c=null
    return false
endfunction

function s__FrostBarrage_Damage takes integer this returns nothing
    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__FrostBarrage_damage[this])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c007387ff")))
endfunction

function s__FrostBarrage_Impact takes integer this returns nothing
    call s__FrostBarrage_Damage(this)
    call RemoveBarrage(this)
endfunction

function s__FrostBarrage_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__FrostBarrage_launcher]
    local unit u
    if this!=s__FrostBarrage_launcher then
        call UseBarrage(s__FrostBarrage_launcher)
        loop
            exitwhen this==s__FrostBarrage_launcher
            if(s__barrage_outside[(this)])or(s__barrage_finish[(this)])then
                call s__FrostBarrage_Impact(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__FrostBarrage_launcher]then
        set s__barrage_InOperation[s__FrostBarrage_launcher]=false
        call frv(s__FrostBarrage_func)
    endif
endfunction

function s__FrostBarrage_Fired takes integer this returns nothing
    if s__FrostBarrage_launcher==null then
        set s__FrostBarrage_func=fxv(function s__FrostBarrage_start)
        set s__FrostBarrage_launcher=NewLauncher()
    endif
    if not s__barrage_InOperation[s__FrostBarrage_launcher]then
        set s__barrage_InOperation[s__FrostBarrage_launcher]=true
        call fov(s__FrostBarrage_func)
    endif
    call s__barrage_Filling((s__FrostBarrage_launcher),(this))
endfunction

function xme takes unit s,real sX,real sY returns nothing
    local integer i=8
    local integer b
    local unit xMe
    local real d
    local real a
    loop
        set i=i-1
        set xMe=PickRandomUnitInRange(s,sX,sY,375)
        if xMe!=null then
            set a=i*Lx/ 8.
            set d=GetRandomReal(500,750)
            set b=CreateBarrageTypeC(sX+d*Cos(a),sY+d*Sin(a),100,xMe)
            set s__barrage_atkunit[b]=s
            call LMv(s__barrage_model[b],"Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[b])],((2.25)*1.),0,0)
            set s__barrage_speed[b]=.0
            set s__barrage_acceleration[b]=.03125*.03125*GetRandomReal($4E2,$6D6)
            call SetBarrageFlightRadian(b,GetRandomReal(.5,.75))
            set s__FrostBarrage_damage[b]=GetRandomReal(5,7.5)*GetHeroState2(s,true)
            call s__FrostBarrage_Fired(b)
        endif
        exitwhen i==0
    endloop
    set xMe=null
endfunction

function iLe takes integer NNv returns nothing
    set sk[Sk[NNv]]=sk[NNv]
    set Sk[sk[NNv]]=Sk[NNv]
    if tk[NNv]!=0 then
        call Ltv(tk[NNv])
        set tk[NNv]=0
    endif
    if IsUnitPaused((Je[(NNv)]))then
        call PauseUnit((Je[(NNv)]),false)
    endif
    call SetUnitVertexColor((Je[(NNv)]),$FF,$FF,$FF,$FF)
    call Unit_Cancel_Counter(68,(NNv))
endfunction

function ime takes nothing returns boolean
    local integer NNv=Sk[(0)]
    local real x
    local real y
    loop
        exitwhen 0==NNv
        if UnitAlive((Je[(NNv)]))then
            if Tk[NNv]then
                set uk[NNv]=uk[NNv]+1
                if uk[NNv]<51 then
                    call SetUnitVertexColor((Je[(NNv)]),$FF,$FF,$FF,5*uk[NNv])
                elseif uk[NNv]==51 then
                    call PauseUnit((Je[(NNv)]),false)
                elseif Mev((Je[(NNv)]),II[tk[NNv]])<=64 then
                    if GetLocalPlayer()==GetOwningPlayer((Je[(NNv)]))then
                        call PanCameraToTimed(Uk[NNv],wk[NNv],0)
                    endif
                    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",(GetUnitX(II[(tk[NNv])])),(GetUnitY(II[(tk[NNv])]))))
                    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",Uk[NNv],wk[NNv]))
                    call DestroyEffect(AddSpecialEffect("Enchantment.mdl",Uk[NNv],wk[NNv]))
                    call SetUnitPosition((Je[(NNv)]),Uk[NNv],wk[NNv])
                    call iLe(NNv)
                elseif uk[NNv]>=$F33 then
                    call iLe(NNv)
                endif
            else
                set uk[NNv]=uk[NNv]-5
                call SetUnitVertexColor((Je[(NNv)]),$FF,$FF,$FF,uk[NNv])
                if uk[NNv]<=0 then
                    set x=GetRectCenterX(gg_rct_HCD_004)
                    set y=GetRectCenterY(gg_rct_HCD_004)
                    set tk[NNv]=LAv("Gravitone.mdl",GetRectCenterX(gg_rct_HCFHD_004),GetRectCenterY(gg_rct_HCFHD_004),1.25)
                    set Tk[NNv]=true
                    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",Uk[NNv],wk[NNv]))
                    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",x,y))
                    call DestroyEffect(AddSpecialEffect("Enchantment.mdl",x,y))
                    call SetUnitPosition((Je[(NNv)]),x,y)
                    if GetLocalPlayer()==GetOwningPlayer((Je[(NNv)]))then
                        call PanCameraToTimed(x,y,0)
                    endif
                elseif ModuloInteger(uk[NNv],17)==0 then
                    call mjv(Uk[NNv],wk[NNv],0)
                endif
            endif
        else
            call iLe(NNv)
        endif
        set NNv=Sk[NNv]
    endloop
    return false
endfunction

function iMe takes nothing returns nothing
    call fov(Wk)
endfunction

function s__WindPassage_stop takes nothing returns nothing
    call frv(Wk)
endfunction

function ipe takes nothing returns nothing
    set Wk=fxv(function ime)
    call fov(Wk)
endfunction

function iPe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer NNv=(GetUnitUserData((u)))
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if Off_A098[NNv]or(Is_pvp[(GetPlayerId(GetOwningPlayer((u))))])or IsPointInRect(x,y,gg_rct_BSJL_____________001)then
        if Off_A098[NNv]then
            if Off_A098_id[NNv]==1 then
                call NewTextTagInTarget_B(u,"People are watching the day, please do not run away alone!",8,$CD,$FF,$9B)
            elseif Off_A098_id[NNv]==2 then
                call NewTextTagInTarget_B(u,"Either protect the earth or lie out!",8,$CD,$FF,$9B)
            else
                call NewTextTagInTarget_B(u,"This area can not be used",8,$CD,$FF,$9B)
            endif
        else
            call NewTextTagInTarget_B(u,"This area can not be used",8,$CD,$FF,$9B)
        endif
        call IssueImmediateOrderById(u,$D0004)
    else
        set Sk[NNv]=Sk[(0)]
        set sk[NNv]=0
        set sk[Sk[(0)]]=NNv
        set Sk[(0)]=NNv
        set Tk[NNv]=false
        set uk[NNv]=$FF
        set Uk[NNv]=GetUnitX(u)
        set wk[NNv]=GetUnitY(u)
        call PauseUnit(u,true)
        call Unit_App_Counter(69,(NNv))
    endif
    set u=null
    return false
endfunction

function iqe takes nothing returns nothing
    call RegisterSpellEffectEvent('A098',function iPe)
endfunction

function iTe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer r=GetRandomInt(1,100)
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRect(x,y,gg_rct_WKQY______________000)then
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",x,y))
        if r<$E then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c00959595Iron ore|r !")
            call CreateItemG('I05K',x,y)
        elseif r<21 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c00c0c0c0Silver ore|r !")
            call CreateItemG('I05Q',x,y)
        elseif r<22 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c00ffd700Gold ore|r !")
            call CreateItemG('I05P',x,y)
        endif
    endif
    set u=null
    return false
endfunction

function iue takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer r=GetRandomInt(1,100)
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRect(x,y,gg_rct_WKQY______________000)then
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",x,y))
        if r<$A then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffMinor magic stone|r !")
            call CreateItemG('I019',x,y)
        elseif r<18 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffLesser magic stone|r !")
            call CreateItemG('I01A',x,y)
        endif
    endif
    set u=null
    return false
endfunction

function iUe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer r=GetRandomInt(1,100)
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRect(x,y,gg_rct_WKQY______________000)then
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",x,y))
        if r<$A then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffMedium magic stone|r !")
            call CreateItemG('I02Y',x,y)
        elseif r<18 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffGreater magic stone|r !")
            call CreateItemG('I035',x,y)
        elseif r<20 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffBright magic stone !")
            call CreateItemG('I0DQ',x,y)
        endif
    endif
    set u=null
    return false
endfunction

function iwe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer r=GetRandomInt(1,100)
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRect(x,y,gg_rct_WKQY______________000)then
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",x,y))
        if r<7 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffMinor magic stone|r !")
            call CreateItemG('I019',x,y)
        elseif r<$E then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffLesser magic stone|r !")
            call CreateItemG('I01A',x,y)
        elseif r<17 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffMedium magic stone|r !")
            call CreateItemG('I02Y',x,y)
        elseif r<20 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffGreater magic stone|r !")
            call CreateItemG('I035',x,y)
        elseif r<23 then
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"|c001e90ffBright magic stone !")
            call CreateItemG('I0DQ',x,y)
        endif
    endif
    set u=null
    return false
endfunction

function iWe takes nothing returns nothing
    local unit u=GetEnumUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if GetUnitTypeId(u)==0 or not IsPointInRect(x,y,gg_rct_RYHS______________000)then
        call GroupRemoveUnit(Zk,u)
    elseif UnitAlive(u)and IsUnitHidden(u)==false and GetUnitAbilityLevel(u,'Avul')==0 and GetPointZ(x,y)<=-50 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",u,"origin"))
        call UnitDamageTargetBY(((u)),((u)),((((.25*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    endif
    set u=null
endfunction

function iye takes nothing returns nothing
    call ForGroup(Zk,function iWe)
endfunction

function iYe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    if CR and IsUnitAlive(u)and not IsUnitInGroup(u,Zk)and GetUnitAbilityLevel(u,'Aloc')==0 then
        call GroupAddUnit(Zk,u)
    endif
    set u=null
    return false
endfunction

function ize_TimerFunc takes nothing returns nothing
    loop
        exitwhen Quest_I064_index==0
        set Quest_I064_index=Quest_I064_index-1
        if(Je[((GetUnitUserData((Quest_I064_unit[Quest_I064_index]))))])==Quest_I064_unit[Quest_I064_index]then
            set Jg=false
            call KillUnit(Quest_I064_unit[Quest_I064_index])
            call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX(Quest_I064_unit[Quest_I064_index]),GetUnitY(Quest_I064_unit[Quest_I064_index]),2.5),$FF,0,0,$FF))
            call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX(Quest_I064_unit[Quest_I064_index]),GetUnitY(Quest_I064_unit[Quest_I064_index]),3.5),$FF,0,0,$FF))
            call Lqv(LAv("MagmaBurst.mdl",$4D58,-660,4),2)
            call Lqv(LAv("MagmaBurst.mdl",$4FB0,-660,4),2)
            call Lqv(LAv("MagmaBurst.mdl",$5208,-660,4),2)
            call zhv((GetPlayerId((GetOwningPlayer(Quest_I064_unit[Quest_I064_index])))),50,.5)
            set Jg=true
        endif
        set Quest_I064_unit[Quest_I064_index]=null
    endloop
endfunction

function ize takes nothing returns boolean
    local unit u
    if Quest_I064_On==false then
        return false
    endif
    set u=GetTriggerUnit()
    if CR and IsUnitHidden(u)==false and IsUnitAlive(u)and GetUnitAbilityLevel(u,'Aloc')==0 and GetUnitAbilityLevel(u,'A0H1')==0 then
        set Quest_I064_unit[Quest_I064_index]=u
        set Quest_I064_index=Quest_I064_index+1
        if Quest_I064_index==1 then
            call TimerStart(Quest_I064_Timer,0,false,function ize_TimerFunc)
        endif
    endif
    set u=null
    return false
endfunction

function iZe takes nothing returns nothing
    local trigger trig=CreateTrigger()
    set Zk=CreateGroup()
    call TimerStart((NewTimer(0)),1,true,function iye)
    set bj_lastCreatedRegion=CreateRegion()
    call RegionAddRect(bj_lastCreatedRegion,gg_rct_RYHS______________000)
    call TriggerRegisterEnterRegion(trig,bj_lastCreatedRegion,null)
    call TriggerAddCondition(trig,Filter(function iYe))
    set trig=CreateTrigger()
    set bj_lastCreatedRegion=CreateRegion()
    call RegisterEnterRect_V($58A0,-6208,$6360,-$FA0)
    call TriggerRegisterEnterRegion(trig,bj_lastCreatedRegion,null)
    call TriggerAddCondition(trig,Filter(function ize))
    set Quest_I064_Timer=CreateTimer()
    set trig=null
endfunction

function i0e takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:41")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0J7','B03A')
    call ModifyUnitMagicDamage((id),-50)
    call Unit_Cancel_Counter(70,id)
    set nK[id]=null
endfunction

function i1e takes nothing returns boolean
    local integer id
    local integer i
    if GetWidgetLife((MF))>1.5 then
        set KF[HF]=PF+1000000.
        call SetWidgetLife((MF),GetWidgetLife((MF))-1)
    else
        set i=GetRandomInt(1,5)
        if i==1 then
            call NewTextTagInTarget_B((mF),"SIGHT",$C,$9B,$9B,$9B)
            call Auxiliary_ImmediateOrder(('AOfs'),GetOwningPlayer((mF)),1,$D009A,GetUnitX((mF)),GetUnitY((mF)))
        elseif i==2 then
            set id=(pF_v)
            if nK[id]==null then
                set nK[id]=NewTimer(id)
                call UnitAddAbilityBY((mF),'A0J7')
                call ModifyUnitMagicDamage((id),50)
                call Unit_App_Counter(71,id)
            endif
            call NewTextTagInTarget_B((mF),"DAMAGE",$C,$FF,$9B,$9B)
            call TimerStart(nK[id],5,false,function i0e)
        elseif i==3 then
            call UnitCure_Drain((mF),$F423F,.3*GetUnitState((mF),UNIT_STATE_MAX_LIFE))
            call tUv((mF),.5*GetUnitState((mF),UNIT_STATE_MAX_MANA))
            call NewTextTagInTarget_B((mF),"HEAL",$C,$9B,$FF,$FF)
        elseif i==4 then
            set id=(GetUnitUserData(MV[GetPlayerId(GetOwningPlayer(Je[((pF_v))]))]))
            set i=2
            loop
                call UnitResetCooldownById((Je[(id)]),LoadInteger(BYHT,Hero_Skills_table[(id)],i))
                exitwhen i==6
                set i=i+1
            endloop
            call NewTextTagInTarget_B((mF),"REFRESH",$C,105,$9B,$FF)
        elseif i==5 then
            call Auxiliary_TargetOrder(('A0J8'),null,1,$D0085,(mF))
            call NewTextTagInTarget_B((mF),"SPEED",$C,$FF,$FF,$80)
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",(mF),"origin"))
    endif
    return false
endfunction

function i2e takes nothing returns nothing
    local integer i=3
    local unit u
    loop
        set i=i-1
        set u=CreateUnit(P[$C],'nhea',GetRandomReal(GetRectMinX(gg_rct_PVP_PVP_______000),GetRectMaxX(gg_rct_PVP_PVP_______000)),GetRandomReal(GetRectMinY(gg_rct_PVP_PVP_______000),GetRectMaxY(gg_rct_PVP_PVP_______000)),270)
        call UnitAddShieldTrig((GetUnitUserData((u))),function i1e)
        call SetUnitVertexColor(u,GetRandomInt($9B,$FF),GetRandomInt($9B,$FF),GetRandomInt($9B,$FF),$FF)
        call UnitApplyTimedLife(u,'BTLF',5)
        exitwhen i==0
    endloop
    set u=null
endfunction

function i6e takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX((Je[(vK[NNv])]))
    local real y=GetUnitY((Je[(vK[NNv])]))
    local integer i
    if not UnitAlive((Je[(vK[NNv])]))or not IsPointInRectB(x,y,GetRectMinX(gg_rct_PVP_PVP_______000),GetRectMinY(gg_rct_PVP_PVP_______000),GetRectMaxX(gg_rct_PVP_PVP_______000),GetRectMaxY(gg_rct_PVP_PVP_______000))then
        set aK=aK-1
        set i=8
        set Is_pvp[NNv]=false
        loop
            set i=i-1
            if i!=NNv and Is_pvp[i]then
                call SetPlayerAlliance(P[i],P[NNv],ALLIANCE_PASSIVE,true)
                call SetPlayerAlliance(P[NNv],P[i],ALLIANCE_PASSIVE,true)
            endif
            exitwhen i==0
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:42")
        call DeUnitAdef((vK[NNv]),eK[NNv])
        call DeUnitBeCureRatio((vK[NNv]),xK[NNv])
        call Unit_Cancel_Counter(72,vK[NNv])
        if oK[NNv]!=null then
            call ReleaseTimer(oK[NNv],"[TimerUtils]Error:43")
            set oK[NNv]=null
        endif
        if aK==0 and iK!=null then
            call ReleaseTimer(iK,"[TimerUtils]Error:44")
            set iK=null
        endif
    endif
endfunction

function i7e takes unit u returns nothing
    local integer NNv=GetPlayerId(GetOwningPlayer(u))
    local integer i=8
    loop
        set i=i-1
        if i!=NNv and Is_pvp[i]then
            call SetPlayerAlliance(P[i],P[NNv],ALLIANCE_PASSIVE,false)
            call SetPlayerAlliance(P[NNv],P[i],ALLIANCE_PASSIVE,false)
        endif
        exitwhen i==0
    endloop
    if not Is_pvp[NNv]then
        set Is_pvp[NNv]=true
        set vK[NNv]=(GetUnitUserData((MV[NNv])))
        set eK[NNv]=ModifyUnitAdef((vK[NNv]),99)
        set xK[NNv]=ModifyUnitBeCureRatio((vK[NNv]),-70)
        set aK=aK+1
        if aK==1 and iK==null then
            set iK=(NewTimer(0))
            call TimerStart(iK,5,true,function i2e)
        endif
        call TimerStart(NewTimer(NNv),.03125,true,function i6e)
        call Unit_App_Counter(73,vK[NNv])
    endif
endfunction


 function aie takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:45")
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,750+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,750)then
            if UnitAlive(u)and nC[(GetUnitUserData((u)))]then
                call KillUnit(u)
            endif
        endif
    endloop
    call PauseUnit((Je[(id)]),false)
    call PlaySoundAtPoint_BJ((Dn),(($96)*1.),((x)*1.),((y)*1.),0)
    call Ltv(LAv("Desecrate.mdl",x,y,2.5))
    call Ltv(LAv("DarkWave.mdl",x,y,4))
    call Unit_Cancel_Counter(74,id)
 endfunction

 //kill

 function WJe takes integer id returns boolean
    local integer i=GetRandomInt(1,3)
    if i==1 then
        call zhv((GetPlayerId((GetOwningPlayer((Je[(id)]))))),50,.5)
        call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),3.5),$FF,$FF,0,$FF))
        call Ltv(Lfv(LAv("Great Lightning.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2.5),$9B,$9B,0,$FF))
        call KillUnit((Je[(id)]))
    elseif i==2 then
        call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2))
        call KillUnit((Je[(id)]))
    else
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(Je[(id)]),"origin"))
        call PauseUnit((Je[(id)]),true)
        call TimerStart(NewTimer(id),1.5,false,function aie)
        call Unit_App_Counter(75,id)
    endif
    return true
 endfunction
 

 function yrv takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:46")
    set tr[id]=false
    call Unit_Cancel_Counter(76,id)
 endfunction

 //uncle's fruit kill
 // ioba 1227899457 = true melon
 // iobe 1227899461 = fake melon

 function vTe_v takes nothing returns nothing
    local integer itemid=GetItemTypeIdG(LastManipulatedItem)
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if itemid=='I0BA' and IsUnitType((Je[(id)]),UNIT_TYPE_HERO) then
        call RemoveItemG(LastManipulatedItem)
        call WJe(id)
    else
        if HaveSavedInteger(BYHT,Eh,itemid)then
            call RemoveItemG(LastManipulatedItem)
            if itemid=='I0BG' or itemid=='I0BD' or itemid=='I0BE' or itemid=='I0BF' then
                if IsUnitType((Je[(id)]),UNIT_TYPE_HERO)then
                    if GetHeroLevel((Je[(id)]))>299 or tr[id]then
                        call WJe(id)
                    else
                        set tr[id]=true
                        set tr[id]=false
                        call TimerStart(NewTimer(id),900,false,function yrv)
                        call Unit_App_Counter(77,id)
                    endif
                endif
            endif
            call UnitAddItemByIdG((Je[(id)]),LoadInteger(BYHT,Eh,itemid))
        endif
    endif
 endfunction


function aee takes nothing returns nothing
    local item i=GetEnumItem()
    local real x
    local real y
    if GetItemTypeIdG(i)==EK[IK]then
        set RK=RK+1
        set x=GetItemX(i)
        set y=GetItemY(i)
        set AK=AK or(x<cK+$96 and x>cK-$96)
        set NK=NK or(y<CK+$96 and y>CK-$96)
        set bK=bK+(x-dK)
        set BK=BK+(y-DK)
    endif
    set i=null
endfunction

function axe takes nothing returns nothing
    local real x
    local real y
    local real m8v
    local real m9v
    set IK=OK
    loop
        exitwhen IK==0
        set IK=IK-1
        set RK=0
        set AK=false
        set NK=false
        set bK=0
        set BK=0
        set dK=GetRectMinX(VK[IK])
        set m8v=GetRectMaxX(VK[IK])
        set DK=GetRectMinY(VK[IK])
        set m9v=GetRectMaxY(VK[IK])
        set cK=(dK+m8v)/ 2.
        set CK=(DK+m9v)/ 2.
        call EnumItemsInRect(VK[IK],null,function aee)
        if RK<XK[IK]then
            if RK==0 then
                set x=GetRandomReal(dK+75,m8v-75)
                set y=GetRandomReal(DK+75,m9v-75)
            else
                set bK=m8v-bK/ RK
                set BK=m9v-BK/ RK
                if AK and bK>cK-125 and bK<cK+125 then
                    if GetRandomInt(1,2)==1 then
                        set x=GetRandomReal(dK+75,cK-$AF)
                    else
                        set x=GetRandomReal(cK+$AF,m8v-75)
                    endif
                else
                    set x=bK+GetRandomReal(-75,75)
                    if x<dK then
                        set x=dK+GetRandomReal(75,$96)
                    elseif x>m8v then
                        set x=m8v-GetRandomReal(75,$96)
                    endif
                endif
                if NK and BK>CK-60 and BK<CK+60 then
                    if GetRandomInt(1,2)==1 then
                        set y=GetRandomReal(DK+30,CK-90)
                    else
                        set y=GetRandomReal(CK+90,m9v-30)
                    endif
                else
                    set y=BK+GetRandomReal(-30,30)
                    if y<DK then
                        set y=DK+GetRandomReal(75,$96)
                    elseif y>m9v then
                        set y=m9v-GetRandomReal(75,$96)
                    endif
                endif
            endif
            call CreateItemG(EK[IK],x,y)
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Other\\ToonBoom\\ToonBoom.mdl",x,y))
        endif
    endloop
endfunction

function aoe takes real m6v,real m7v,real m8v,real m9v,integer iI,integer c returns nothing
    set VK[OK]=Rect(m6v,m7v,m8v,m9v)
    set EK[OK]=iI
    set XK[OK]=c
    set OK=OK+1
endfunction

function are takes nothing returns nothing
    call aoe(-$D00,$6D80,-$900,$7080,'I0BF',6)
    call aoe(-$C80,$6860,-$800,$6B00,'I0BG',8)
    call aoe(-$6A0,$6860,-736,$6B00,'I0BE',5)
    call aoe(-$6A0,$6D80,-736,$70A0,'I0BD',5)
    call TimerStart((NewTimer(0)),$F,true,function axe)
    call TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function vTe_v))))
endfunction

 //item tp

 function aae takes nothing returns boolean
    local integer itemid=GetItemTypeIdG(GetManipulatedItem())
    if itemid=='I094' then//sq
        call tEv(GetTriggerUnit(),14720,-($5B40+$5A60)*.5,300)
    elseif itemid=='I02R' then
        call tEv(GetTriggerUnit(),(($4C40)+($4C60))*.5,((5472)+(5504))*.5,350)
    elseif itemid=='I0FQ' then
        call tEv(GetTriggerUnit(),8264,$3C60,370)
    endif
    return false
 endfunction


function aKe_v takes nothing returns nothing
    if(GetDestructableTypeId(GetEnumDestructable())=='YTpc')then
        call KillDestructable(GetEnumDestructable())
    endif
endfunction

function aKe takes nothing returns boolean
    call KillDestructable(gg_dest_B00C_1557)
    call SetDestructableAnimation(gg_dest_B00C_1557,"death alternate")
    call EnumDestructablesInRect(gg_rct_TSRK_003,null,function aKe_v)
    set xE=true
    set UV=null
    return false
endfunction

function ale takes nothing returns boolean
    call tEv(GetBuyingUnit(),-$49BB,-$33F4,$C8)
    return false
endfunction

function aLe takes nothing returns boolean
    if xE then
        call tEv(GetTriggerUnit(),-$5246,-$A64,0)
    endif
    return false
endfunction

function aPe takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:47")
    call fiv(false)
    call SetUnitPosition((Je[(id)]),$5D86,$4C88)
endfunction

function aqe takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call StartSound(Ja)
    call SetUnitAnimation((Je[(id)]),"attack swim")
    call QueueUnitAnimation((Je[(id)]),"stand")
    call zjv(30,1)
    call TimerStart(GetExpiredTimer(),2.5,false,function aPe)
endfunction

function aQe takes nothing returns nothing
    local integer id=(GetUnitUserData((CreateUnit(P[$C],'n022',$628E,$4A80,$D2))))
    call TimerStart(GetExpiredTimer(),1,false,function aqe)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),(id))
    call Unit_App_Counter(78,id)
endfunction

function ase takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.5,false,function aQe)
endfunction

function aSe takes nothing returns boolean
    if not av and not oE and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04U'),3)then
        set av=true
        set oE=true
        call DisplayTimedText("|c00AFAFAFWhite powder|r disappeared, leaving a hazy light",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04U'),3)
        call TimerStart((NewTimer(0)),3,false,function ase)
    endif
    return false
endfunction

function ate takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:48")
    call fiv(false)
endfunction

function aTe takes nothing returns nothing
    call Playlines("Count of Wallachia","Let the nightmare reign!")
    call TimerStart(GetExpiredTimer(),1.5,false,function ate)
endfunction

function aue takes nothing returns nothing
    call Playlines("Count of Wallachia","All the little minions are here, our party is about to begin.")
    call TimerStart(GetExpiredTimer(),2,false,function aTe)
endfunction

function aUe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call SetUnitFlyHeight(lastspeaker,0,6000)
    call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",GetUnitX(lastspeaker),GetUnitY(lastspeaker),4))
    call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdx",GetUnitX(lastspeaker),GetUnitY(lastspeaker),1.5))
    call zjv(60,.5)
    call TimerStart(GetExpiredTimer(),.5,false,function aue)
endfunction

function awe takes nothing returns nothing
    set lastspeaker=CreateUnit(P[$C],'h00F',$330A,-$7215,$B4)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),((GetUnitUserData((lastspeaker)))))
    if UnitAddAbility(lastspeaker,'Amrf')then
        call UnitRemoveAbility(lastspeaker,'Amrf')
        call SetUnitFlyHeight(lastspeaker,$3E8,0)
    endif
    call Playlines("Count of Wallachia","Finally you are here! I have awaited too long!!")
    call TimerStart(GetExpiredTimer(),2,false,function aUe)
endfunction

function aWe takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.5,false,function awe)
endfunction

function aye takes nothing returns boolean
    if not av and not rE and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),3)then
        set av=true
        set rE=true
        call DisplayTimedText("|c00FF0000Red powder|r disappeared leaving bloody light.",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),3)
        call TimerStart((NewTimer(0)),3,false,function aWe)
    endif
    return false
endfunction

function aYe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:49")
    call SetUnitInvulnerable(lastspeaker,false)
    call fiv(false)
endfunction

function aze takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call AddSpecialEffectByAnnulus("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX(lastspeaker),GetUnitY(lastspeaker),2.5,400,8)
    call SetUnitAnimation(lastspeaker,"Spell Throw")
    call StartSound(Ga)
    call TimerStart(GetExpiredTimer(),2,false,function aYe)
endfunction

function aZe takes nothing returns nothing
    set aE=aE-1
    if aE>2 then
        call StartSound(Ha)
        call zjv(30,.8)
        call TimerStart(GetExpiredTimer(),1.75,false,function aZe)
    elseif aE>=0 then
        call StartSound(Ha)
        call zjv(30,.8)
        if aE>0 then
            call TimerStart(GetExpiredTimer(),1,false,function aZe)
        else
            call TimerStart(GetExpiredTimer(),1,false,function aze)
        endif
    endif
endfunction

function a_e takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call RemoveGuardPosition(lastspeaker)
    call IssuePointOrderById(lastspeaker,$D0012,$5DE8,-6780)
    call StartSound(Ha)
    call zjv(40,.8)
    call TimerStart(GetExpiredTimer(),2,false,function aZe)
endfunction

function a0e takes nothing returns nothing
    call StartSound(ga)
    call TimerStart(GetExpiredTimer(),1,false,function a_e)
endfunction

function a1e takes nothing returns nothing
    set lastspeaker=CreateUnit(P[$B],'n01K',$5DE8,-6780,270)
    call SetUnitPosition(lastspeaker,$5DE8,-5400)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),((GetUnitUserData((lastspeaker)))))
    call SetUnitInvulnerable(lastspeaker,true)
    call SetUnitAnimation(lastspeaker,"Morph Alternate")
    call SetUnitPathing(lastspeaker,false)
    call TimerStart(GetExpiredTimer(),1.5,false,function a0e)
endfunction

function a2e takes nothing returns nothing
    call StartSound(ha)
    call TimerStart(GetExpiredTimer(),1,false,function a1e)
endfunction

function a3e takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.5,false,function a2e)
endfunction

function a4e takes nothing returns boolean
    if not av and not iE and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04W'),5)then
        set av=true
        set iE=true
        call DisplayTimedText("|c0080ff80Green powder|r disappeared leaving green light",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04W'),5)
        call TimerStart((NewTimer(0)),3,false,function a3e)
    endif
    return false
endfunction

function a5e takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:50")
    call fiv(false)
endfunction

function a6e takes nothing returns nothing
    set lastspeaker=CreateUnit(P[$B],'n01W',-$4597,$5D2E,270)
    call Playlines("Jack","Halloween ~ Halloween ~ Happy Halloween ....")
    call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",-$4597,$5D2E,2.75))
    call Ltv(LAv("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",-$4597,$5D2E,3))
    call TimerStart(GetExpiredTimer(),2.5,false,function a5e)
endfunction

function a7e takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),1,false,function a6e)
endfunction

function a8e takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.5,false,function a7e)
endfunction

function a9e takes nothing returns boolean
    if not av and not VE and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),5)then
        set av=true
        set VE=true
        call DisplayTimedText("|c00FF0000Red powder|r disappeared leaving a beam of red light.",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),5)
        call TimerStart((NewTimer(0)),3,false,function a8e)
    endif
    return false
endfunction

function nve takes nothing returns nothing
    set LV=true
endfunction

function nee takes nothing returns nothing
    local integer u=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:51")
    call m_v(ConvertVersion(u),false)
    call fiv(false)
endfunction

function nxe takes nothing returns nothing
    local integer u=GetHandleId(CreateUnit(P[$C],'h01B',$6653,-$744F,270))
    call Playlines("Jaina","Something, what what unable to translate...")
    call SetUnitAnimation(ConvertVersion(u),"spell")
    call QueueUnitAnimation(ConvertVersion(u),"stand")
    call m_v(ConvertVersion(u),true)
    call StartSound(ja)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),(u))
    call TimerStart(GetExpiredTimer(),2.5,false,function nee)
endfunction

function noe takes nothing returns nothing
    call Playlines("Jaina","His power is not something that ordinary people can resist.")
    call TimerStart(GetExpiredTimer(),3,false,function nxe)
endfunction

function nre takes nothing returns nothing
    set lastspeaker=gg_unit_n01T_0423
    call Playlines("Jaina","I feel a powerful evil force, is he back?...")
    call TimerStart(GetExpiredTimer(),2,false,function noe)
endfunction

function nie takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),1,false,function nre)
endfunction

function nae takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),1,false,function nie)
endfunction

function nne takes nothing returns boolean
    if not av and not EE and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),5)then
        set av=true
        set EE=true
        call DisplayTimedText("|c00FF0000Red powder|r disappeared leaving a dark red light",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),5)
        call TimerStart((NewTimer(0)),3,false,function nae)
    endif
    return false
endfunction

function nVe takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:52")
    call fiv(false)
endfunction

function nEe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call SetUnitAnimation(lastspeaker,"Spell")
    call QueueUnitAnimation(lastspeaker,"Stand")
    call StartSound(La)
    call Ltv(LAv("Shiva'sWrath.mdl",5275,6775,4.))
    call Lqv(LAv("Doodads\\Cinematic\\FrostTrapUp\\FrostTrapUp.mdl",5275,6775,7.),1)
    call AddSpecialEffectByAnnulus("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",GetUnitX(lastspeaker),GetUnitY(lastspeaker),2.5,350,8)
    call TimerStart(GetExpiredTimer(),1.25,false,function nVe)
endfunction

function nXe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call Playlines("Lord of Everfrost","Are you mad? You better not to let me down, fool!")
    call StartSound(la)
    call TimerStart(GetExpiredTimer(),3,false,function nEe)
endfunction

function nOe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call Playlines("Lord of Everfrost","Did you wake me up from my slumber?")
    call StartSound(Ka)
    call TimerStart(GetExpiredTimer(),2.5,false,function nXe)
endfunction

function nRe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call Playlines("Lord of Everfrost","How long have I slept?")
    call StartSound(ka)
    call TimerStart(GetExpiredTimer(),2.5,false,function nOe)
endfunction

function nIe takes nothing returns nothing
    set OE=OE-1
    call StartSound(La)
    call Ltv(LAv("Shiva'sWrath.mdl",$3F23,-$6D85,4))
    call Lqv(LAv("Doodads\\Cinematic\\FrostTrapUp\\FrostTrapUp.mdl",5275,6775,7),1)
    if OE>0 then
        call TimerStart(GetExpiredTimer(),.8,false,function nIe)
    else
        set lastspeaker=CreateUnit(P[$C],'n023',$3F23,-$6D85,270)
        call alloc__hPv(GetHandleId((GetExpiredTimer())),((GetUnitUserData((lastspeaker)))))
        call TimerStart(GetExpiredTimer(),.8,false,function nRe)
    endif
endfunction

function nAe takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),.4,false,function nIe)
endfunction

function nNe takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.8,false,function nAe)
endfunction

function nbe takes nothing returns boolean
    if not av and not XE and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04V'),$A)then
        set av=true
        set XE=true
        call DisplayTimedText("|c002040f0Blue powder|r disappeared leaving a beam of icy light|r",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04V'),$A)
        call TimerStart((NewTimer(0)),3,false,function nNe)
    endif
    return false
endfunction

function nBe takes nothing returns nothing
    local integer nce=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(nce)]))then
        set x=GetUnitX((Je[(nce)]))
        set y=GetUnitY((Je[(nce)]))
        call GroupEnumUnitsInRange(G,x,y,$80+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$80)then
                exitwhen IsUnitAliveAndEnemyNotAvul(u,(Je[(nce)]))
            endif
        endloop
        if u==null then
            call SetWidgetLife((Je[(nce)]),MaxR(.5,GetWidgetLife((Je[(nce)]))-250./ 32.))
        else
            call GroupEnumUnitsInRange(G,x,y,256+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,256)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(nce)]))then
                        call DestroyEffect(AddSpecialEffectTarget("AcidMissile.mdl",u,"chest"))
                        call UnitDamageTargetBY((((Je[(nce)]))),((u)),(((($30D4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y,2.25))
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaBlood\\NagaBloodWindserpent.mdl",x,y,2.5))
            call KillUnit((Je[(nce)]))
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:53")
            call Unit_Cancel_Counter(79,nce)
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:54")
        call Unit_Cancel_Counter(80,nce)
    endif
endfunction

function nCe takes nothing returns nothing
    local integer i=8
    local integer nce
    local real x
    local real y
    set cE=cE-1
    loop
        set i=i-1
        set x=GetRandomReal($4E00-$A0,$4E00)
        set y=GetRandomReal(-$5B60,-$58E0)
        if GetRandomInt(1,2)==1 then
            call IssuePointOrderById(CreateUnit(P[$B],'n014',x,y,GetRandomReal($B4,$C8)),$D000F,$38F5,-$5ACD)
        elseif GetRandomInt(1,4)==1 then
            set nce=(GetUnitUserData((CreateUnit(P[$B],'n02C',x,y,GetRandomReal($B4,$C8)))))
            call IssuePointOrderById((Je[(nce)]),$D000F,$38F5,-$5ACD)
            call TimerStart(NewTimer(nce),.03125,true,function nBe)
            call Unit_App_Counter(81,nce)
        else
            call IssuePointOrderById(CreateUnit(P[$B],'n028',x,y,GetRandomReal($B4,$C8)),$D000F,$38F5,-$5ACD)
        endif
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",x,y))
        exitwhen i==0
    endloop
    if cE==0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:55")
    endif
endfunction

function nde takes nothing returns boolean
    local unit u=GetTriggerUnit()
    if nC[(GetUnitUserData((u)))]then
        call SetUnitPosition(u,($4300+$43C0)/ 2.,(-$4E00-$4BA0)/ 2.)
        if GetLocalPlayer()==GetOwningPlayer(u)then
            call PanCameraToTimed(GetUnitX(u),GetUnitY(u),0)
        endif
    endif
    set u=null
    return false
endfunction

function nDe takes nothing returns nothing
    call ReleaseTimer(bE,"[TimerUtils]Error:56")
    call DestroyTimerDialog(BE)
    set bE=null
    set BE=null
endfunction

function nfe takes nothing returns nothing
    call DisplayTimedText("|c000080ffSeal on the cave is cleared",$A)
    call RegisterEnterRect($4E40,-$5B60,$4EE0,-$58C0,function nde)
    call DestroyEffect(AddSpecialEffect("AncientExplode.mdl",$4E40,-($5B60+$58C0)*.5))
    call KillDestructable(NE)
    call SetUnitInvulnerable(oi,false)
    call nDe()
    set NE=null
endfunction

function nFe takes nothing returns nothing
    set bE=(NewTimer(0))
    set BE=CreateTimerDialog(bE)
    call TimerStart((NewTimer(0)),IE,true,function nCe)
    call TimerStart(bE,RE,false,function nfe)
    call TimerDialogSetTitle(BE,"|c0080ffffSeal of the spiders cave")
    call TimerDialogDisplay(BE,true)
    call nCe()
endfunction

function nge takes nothing returns boolean
    if bE!=null then
        call DisplayTimedText("|c00e43434Can not see spider queen.",$A)
        call nDe()
        call DestroyTrigger(GetTriggeringTrigger())
    endif
    return false
endfunction

function nGe takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:57")
    call fiv(false)
endfunction

function nhe takes nothing returns nothing
    call nFe()
    call TimerStart(GetExpiredTimer(),1,false,function nGe)
endfunction

function nHe takes nothing returns nothing
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetRectCenterX(gg_rct_ZHIZHUZHD_________________002),GetRectCenterY(gg_rct_ZHIZHUZHD_________________002),3))
    call Ltv(LAv("Abilities\\Spells\\Undead\\ReplenishMana\\ReplenishManaCasterOverhead.mdl",GetRectCenterX(gg_rct_ZHIZHUZHD_________________002),GetRectCenterY(gg_rct_ZHIZHUZHD_________________002),1.5))
    call TimerStart(GetExpiredTimer(),1,false,function nhe)
endfunction

function nje takes nothing returns nothing
    call Playlines("Prius's magician","Please protect us, we will continue to remove seal")
    call TimerStart(GetExpiredTimer(),2,false,function nHe)
endfunction

function nJe takes nothing returns nothing
    local integer i=3
    set lastspeaker=AE[0]
    loop
        set i=i-1
        call SetUnitAnimation(AE[i],"Stand Channel")
        call SetUnitInvulnerable(AE[i],false)
        exitwhen i==0
    endloop
    call Playlines("Prius's magician","I felt an evil atmosphere in that cave...")
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetRectCenterX(gg_rct_ZHIZHUZHD_________________002),GetRectCenterY(gg_rct_ZHIZHUZHD_________________002),3))
    call Ltv(LAv("Abilities\\Spells\\Undead\\ReplenishMana\\ReplenishManaCasterOverhead.mdl",GetRectCenterX(gg_rct_ZHIZHUZHD_________________002),GetRectCenterY(gg_rct_ZHIZHUZHD_________________002),1.5))
    call TimerStart(GetExpiredTimer(),2,false,function nje)
endfunction

function nke takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),.4,false,function nJe)
endfunction

function nKe takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.8,false,function nke)
endfunction

function nle takes nothing returns boolean
    if not CE and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04V'),$B)then
        set av=true
        set CE=true
        call DisplayTimedText("|c002040f0Blue powder|r disappeared leaving a beam of cold light",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04V'),$B)
        call TimerStart((NewTimer(0)),3,false,function nKe)
    endif
    return false
endfunction

function nLe takes nothing returns nothing
    call ReleaseTimer(jE,"[TimerUtils]Error:58")
    call DestroyTimerDialog(JE)
    call DestroyTrigger(hE)
    set JE=null
    set hE=null
endfunction

function nme takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:59")
    call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",-$47F9,-$ABE,5))
    call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",-$47F9,-$ABE,5))
    call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",-$47F9,-$ABE,5))
    call PauseUnit(lastspeaker,false)
    call SetUnitPosition(lastspeaker,$48E6,-$72C2)
    call AddWeatherEffect(WorldBounds,'MEds')
    call fiv(false)
endfunction

function nMe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call Playlines("Beriel(Campbell)","Everyone should be purified by me in the name of the Lord.")
    call TimerStart(GetExpiredTimer(),2.5,false,function nme)
endfunction

function npe takes nothing returns nothing
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call Playlines("Beriel(Campbell)","Purification time has come...")
    call TimerStart(GetExpiredTimer(),2.5,false,function nMe)
endfunction

function nPe takes nothing returns nothing
    set HE=HE-1
    set lastspeaker=(Je[((alloc__hpv(GetHandleId((GetExpiredTimer())))))])
    call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",-$47F9,-$ABE,7.5))
    call SetUnitVertexColor(lastspeaker,$FF,$FF,$FF,$FF-R2I($FF/ 4*HE))
    if HE>0 then
        call TimerStart(GetExpiredTimer(),1,false,function nPe)
    else
        call TimerStart(GetExpiredTimer(),2,false,function npe)
    endif
endfunction

function nqe takes nothing returns nothing
    set lastspeaker=CreateUnit(P[$C],'n01P',-$47F9,-$ABE,270)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),((GetUnitUserData((lastspeaker)))))
    set HE=4
    call PauseUnit(lastspeaker,true)
    call SetUnitVertexColor(lastspeaker,$FF,$FF,$FF,0)
    call TimerStart(GetExpiredTimer(),3,false,function nPe)
endfunction

function nQe takes nothing returns nothing
    set HE=HE-1
    call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",-$47F9,-$ABE,7.5))
    if HE>0 then
        call TimerStart(GetExpiredTimer(),1,false,function nQe)
    else
        call TimerStart(GetExpiredTimer(),3,false,function nqe)
    endif
endfunction

function nse takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),2,false,function nQe)
endfunction

function nSe takes nothing returns nothing
    set HE=6
    call fiv(true)
    call nLe()
    call TimerStart((NewTimer(0)),.5,false,function nse)
endfunction

function nte takes nothing returns nothing
    set jE=(NewTimer(0))
    set JE=CreateTimerDialog(jE)
    call TimerStart(jE,GE,false,function nSe)
    call TimerDialogSetTitle(JE,"Archangel's come time")
    call TimerDialogSetTitleColor(JE,0,$FF,0,$FF)
    call TimerDialogDisplay(JE,true)
endfunction

function nTe takes nothing returns boolean
    set HE=HE-1
    if HE==0 then
        call nLe()
    endif
    return false
endfunction

function nue takes nothing returns nothing
    call DisplayTimedText("|c008B008BFallen Angel came back to take revenge|r!!",$F)
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:60")
    call CreateUnit(P[$C],'n01O',$5036,-$7099,$B4)
    call PingMinimapEx($5036,-$7099,5,$FF,0,0,false)
    call DestroyTimerDialog(gE)
    set gE=null
endfunction

function nUe takes nothing returns nothing
    local timer t=GetExpiredTimer()
    set gE=CreateTimerDialog(t)
    call fiv(false)
    call CreateUnit(P[$F],'n01A',-$3FBA,$414B,270)
    call PingMinimapEx(-$3FBA,$414B,5,$FF,$FF,0,true)
    call DisplayTimedText("|c00FFFF00Avalon Castle|r arrived!",$F)
    call TimerStart(t,dE,false,function nue)
    call TimerDialogSetTitle(gE,"Fallen angel")
    call TimerDialogSetTitleColor(gE,$8B,0,$8B,$FF)
    call TimerDialogDisplay(gE,true)
    call nte()
    set t=null
endfunction


 function nwe takes nothing returns nothing
    local integer i=3
    set lastspeaker=DE[1]
    call Playlines("Angel","Mankind your end is here!")
    loop
        set i=i-1
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",DE[i],"origin"))
        call SetUnitInvulnerable(DE[i],false)
        call PauseUnit(DE[i],false)
        call SetUnitInvulnerable(UV,false)
        call PauseUnit(UV,false)
        set DE[i]=null
        exitwhen i==0
    endloop
    call TimerStart(GetExpiredTimer(),2.5,false,function nUe)
 endfunction


function nWe takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),2,false,function nwe)
endfunction

function nye takes nothing returns nothing
    set lastspeaker=DE[0]
    call Playlines("Angel","Archangel Kamael is about to come and purify the world")
    call SetUnitAnimation(lastspeaker,"Stand Channel")
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",lastspeaker,"origin"))
    call DestroyEffect(fE[0])
    call TimerStart(GetExpiredTimer(),2.5,false,function nWe)
endfunction

function nYe takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),2,false,function nye)
endfunction

function nze takes nothing returns nothing
    set lastspeaker=DE[2]
    call Playlines("Angel","Then we can no longer continue to rest.")
    call SetUnitAnimation(lastspeaker,"Stand Channel")
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",lastspeaker,"origin"))
    call DestroyEffect(fE[2])
    call TimerStart(GetExpiredTimer(),2.5,false,function nYe)
endfunction

function nZe takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),2,false,function nze)
endfunction

function n_e takes nothing returns nothing
    set lastspeaker=DE[1]
    call Playlines("Angel","We have observed humanity for a long time, they have only endless greed, corruption and ugliness.")
    call SetUnitAnimation(lastspeaker,"Stand Channel")
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",lastspeaker,"origin"))
    call DestroyEffect(fE[1])
    call TimerStart(GetExpiredTimer(),2.5,false,function nZe)
endfunction

function n0e takes nothing returns nothing
    call StartSound(ma)
    call TimerStart(GetExpiredTimer(),2,false,function n_e)
endfunction

function n1e takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.5,false,function n0e)
endfunction

function n2e takes nothing returns boolean
    if not nv and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04Y'),5)then
        set nv=true
        call DisplayTimedText("|c00FFFF00Holy powder|r disappeared leaving a beam of dazzling light.",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04Y'),5)
        call TimerStart((NewTimer(0)),3,false,function n1e)
    endif
    return false
endfunction

function n3e takes nothing returns nothing
    local integer i=4
    local real x
    local real y
    local real x2=GetRectCenterX(gg_rct_EM02______________003)
    local real y2=GetRectCenterY(gg_rct_EM02______________003)
    loop
        set x=GetRandomReal(GetRectMinX(gg_rct_EM03_________________003),GetRectMaxX(gg_rct_EM03_________________003))
        set y=GetRandomReal(GetRectMinY(gg_rct_EM03_________________003),GetRectMaxY(gg_rct_EM03_________________003))
        call IssuePointOrderById(CreateUnit(P[8],'h00M',x,y,90),$D000F,x2,y2)
        call IssuePointOrderById(CreateUnit(P[8],'e019',x,y,90),$D000F,x2,y2)
        if ModuloInteger(i,4)==0 then
            call IssuePointOrderById(CreateUnit(P[8],'h00N',x,y,90),$D000F,x2,y2)
            call IssuePointOrderById(CreateUnit(P[8],'e01A',x,y,90),$D000F,x2,y2)
        endif
        set i=i-1
        exitwhen i==0
    endloop
    call IssuePointOrderById(gg_unit_H00G_0758,$D000F,GetRectCenterX(gg_rct_EM02______________003),GetRectCenterY(gg_rct_EM02______________003))
endfunction

function n4e takes integer i returns nothing
    local unit u
    local real x
    local real y
    loop
        set x=GetRandomReal(GetRectMinX(gg_rct_EM02______________003),GetRectMaxX(gg_rct_EM02______________003))
        set y=GetRandomReal(GetRectMinY(gg_rct_EM02______________003),GetRectMaxY(gg_rct_EM02______________003))
        set u=CreateUnit(P[$B],'h01C',x,y,90)
        if ModuloInteger(i,2)==0 then
            call CreateUnit(P[$B],'h01D',x,y,90)
        endif
        if ModuloInteger(i,6)==0 then
            set u=CreateUnit(P[$B],'h01E',x,y,90)
        endif
        call IssuePointOrderById(u,$D000F,GetUnitX(gg_unit_H00Q_0724),GetUnitY(gg_unit_H00Q_0724))
        set i=i-1
        exitwhen i==0
    endloop
endfunction

function n5e takes nothing returns nothing
    if lE>0 then
        call RemoveUnitBJ((Je[(lE)]),3)
        set lE=0
    endif
    if pE!=null then
        call ReleaseTimer(ME,"[TimerUtils]Error:61")
        call DestroyTimerDialog(pE)
        set pE=null
    endif
endfunction

function n6e takes nothing returns boolean
    if LE!=null then
        set av=false
        call n5e()
        call ReleaseTimer(mE,"[TimerUtils]Error:62")
        call DestroyTrigger(LE)
        if IsUnitPaused(gg_unit_n027_0834)then
            call PauseUnit(gg_unit_n027_0834,false)
            call PauseUnit(gg_unit_n00S_0365,false)
        endif
        set LE=null
        return true
    endif
    return false
endfunction

function n7e takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:63")
    call DisplayTimedText("|c00FF0000Demon Lord|r !!",$F)
    call PauseUnit((Je[(id)]),false)
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",-4768,-$F00,5))
    call PingMinimapEx(GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),5,$FF,0,0,false)
    call fiv(false)
endfunction

function n8e takes nothing returns nothing
    call Playlines("Demon Lord","This is the start of my conquest!")
    call TimerStart(GetExpiredTimer(),2.5,false,function n7e)
endfunction

function n9e takes nothing returns nothing
    call Playlines("Demon Lord","Even if you succeeded a thousand years ago, you only delayed the inevitable!")
    call TimerStart(GetExpiredTimer(),2.5,false,function n8e)
endfunction

function Vve takes nothing returns nothing
    call Playlines("Demon Lord","I said I will be back! did you think you could seal me for eternity?")
    call TimerStart(GetExpiredTimer(),2.5,false,function n9e)
endfunction

 function Vee takes nothing returns nothing
    local integer i=8
    local integer mC=-1
    loop
        set i=i-1
        if MV[i]!=null then
            if GetHeroLevel(MV[i])>=320 then
                set mC=mC+1
                exitwhen mC==3
            endif
        endif
        exitwhen i==0
    endloop
    set lastspeaker=CreateUnit(P[$B],'n01Y',GetRectCenterX(gg_rct_EM02______________003),GetRectCenterY(gg_rct_EM02______________003),90)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),((GetUnitUserData((lastspeaker)))))
    if mC>0 then
        call ModifyDropsRateById('n01Y',(1.+mC/ 3.))
        call ModifyUnitMagicDamage((GetUnitUserData((lastspeaker))),$F*mC)
        call ModifyUnitHpRegen((GetUnitUserData((lastspeaker))),750*mC)
        call ModifyUnitAttackSpeed((GetUnitUserData((lastspeaker))),25*mC)
        call ModifyUnitArmor((GetUnitUserData((lastspeaker))),100*mC)
    endif
    call PauseUnit(lastspeaker,true)
    call PauseUnit(gg_unit_n027_0834,true)
    call PauseUnit(gg_unit_n00S_0365,true)
    call SetUnitInvulnerable(gg_unit_H00Q_0724,true)
    call TriggerRegisterUnitEvent(LE,lastspeaker,EVENT_UNIT_DEATH)
    call TimerStart(GetExpiredTimer(),2,false,function Vve)
 endfunction


function Vxe takes nothing returns nothing
    set PE=PE-1
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",-4768,-$F00,5))
    if PE>0 then
        call TimerStart(GetExpiredTimer(),1,false,function Vxe)
    else
        call TimerStart(GetExpiredTimer(),3,false,function Vee)
    endif
endfunction

function Voe takes nothing returns nothing
    set PE=3
    call TimerStart(GetExpiredTimer(),1,false,function Vxe)
endfunction

function Vre takes nothing returns nothing
    call fiv(true)
    call n5e()
    call TimerStart((NewTimer(0)),.5,false,function Voe)
endfunction

function Vie takes nothing returns nothing
    if PE>0 then
        set PE=PE-1
        call n3e()
        call n4e(6)
    endif
endfunction

function Vae takes nothing returns nothing
    set av=true
    set mE=(NewTimer(0))
    set ME=(NewTimer(0))
    set pE=CreateTimerDialog(ME)
    call SetUnitInvulnerable((Je[(lE)]),false)
    call TimerStart(mE,KE,true,function Vie)
    call TimerStart(ME,kE,false,function Vre)
    call TimerDialogSetTitle(pE,"Demon Lord")
    call TimerDialogSetTitleColor(pE,$FF,0,0,$FF)
    call TimerDialogDisplay(pE,true)
endfunction

function Vne takes nothing returns boolean
    if n6e()then
        if GetTriggerUnit()==gg_unit_H00Q_0724 then
            call DisplayTimedText("Prius King|c00FF0000Demon Lord's|r invasion ended.",$A)
        else
            call DisplayTimedText("|c00FF0000Devil Lord was sealed again!!|r",$A)
        endif
    endif
    return false
endfunction

function VVe takes nothing returns nothing
    set lE=(GetUnitUserData((CreateUnit(P[$B],'n01Z',GetRectCenterX(gg_rct_EM02______________003),GetRectCenterY(gg_rct_EM02______________003),90))))
    set LE=CreateTrigger()
    call SetUnitInvulnerable((Je[(lE)]),true)
    call SetUnitInvulnerable(gg_unit_H00Q_0724,false)
    call TriggerRegisterUnitEvent(LE,gg_unit_H00Q_0724,EVENT_UNIT_DEATH)
    call TriggerRegisterUnitEvent(LE,(Je[(lE)]),EVENT_UNIT_DEATH)
    call TriggerAddCondition(LE,Condition(function Vne))
endfunction

function VEe takes nothing returns nothing
    call DisplayTimedText("|c00FF0000Hell Gate|r is opened!!",$F)
    call fiv(false)
    call Vae()
    call PingMinimapEx(GetRectCenterX(gg_rct_EM02______________003),GetRectCenterY(gg_rct_EM02______________003),5,$FF,0,0,false)
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:64")
endfunction

function VXe takes nothing returns nothing
    local unit u
    call Ltv(LAv("Abilities\\Spells\\NightElf\\BattleRoar\\RoarCaster.mdl",GetUnitX(gg_unit_h00N_0748),GetUnitY(gg_unit_h00N_0748),1.5))
    call PlaySoundOnUnit_BJ((Wa),((100)*1.),(gg_unit_h00N_0748))
    set lastspeaker=gg_unit_h00M_0750
    call Playlines("Soldier","Rush !!")
    call GroupEnumUnitsInRect(G,gg_rct_EM03_________________003,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if UnitAlive(u)then
            call IssuePointOrderById(u,$D000F,GetRectCenterX(gg_rct_EM02______________003),GetRectCenterY(gg_rct_EM02______________003))
        endif
    endloop
    call TimerStart(GetExpiredTimer(),2.5,false,function VEe)
endfunction

function VOe takes nothing returns nothing
    local unit u
    set lastspeaker=gg_unit_H00G_0758
    call IssuePointOrderById(lastspeaker,$D000F,GetRectCenterX(gg_rct_EM02______________003),GetRectCenterY(gg_rct_EM02______________003))
    set lastspeaker=gg_unit_h00N_0748
    call Playlines("Commander","Something good that need to be translate!!")
    call GroupEnumUnitsInRect(G,gg_rct_EM03_________________003,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if UnitAlive(u)then
            call SetUnitAnimation(u,"Stand Victory")
        endif
    endloop
    call TimerStart(GetExpiredTimer(),2.5,false,function VXe)
endfunction

function VRe takes nothing returns nothing
    set lastspeaker=gg_unit_H00G_0758
    call Playlines("General Prius","Kill them!!")
    call SetUnitAnimation(lastspeaker,"Spell")
    call QueueUnitAnimation(lastspeaker,"Stand")
    call PlaySoundOnUnit_BJ((ya),((100)*1.),(lastspeaker))
    call TimerStart(GetExpiredTimer(),2.75,false,function VOe)
endfunction

function VIe takes nothing returns nothing
    set lastspeaker=gg_unit_H00G_0758
    call Playlines("General Prius","All the troops pick up your weapons and follow me! Sign guards to defence our capital!!")
    call TimerStart(GetExpiredTimer(),2.75,false,function VRe)
endfunction

function VAe takes nothing returns nothing
    set lastspeaker=gg_unit_H00G_0758
    call Playlines("General Prius","Oh no, my god, what are these ghosts, how did they get into our territory?!!")
    call TimerStart(GetExpiredTimer(),2.5,false,function VIe)
endfunction

function VNe takes nothing returns nothing
    call TimerStart(GetExpiredTimer(),.3,false,function VAe)
endfunction

function Vbe takes nothing returns nothing
    call n4e(5)
    call TimerStart(GetExpiredTimer(),2,false,function VNe)
endfunction

function VBe takes nothing returns nothing
    call VVe()
    call TimerStart(GetExpiredTimer(),2,false,function Vbe)
endfunction

function Vce takes nothing returns nothing
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",-$41E0,$F00,5))
    call TimerStart(GetExpiredTimer(),.25,false,function VBe)
endfunction

function VCe takes nothing returns nothing
    call StartSound(ma)
    call TimerStart(GetExpiredTimer(),1,false,function Vce)
endfunction

function Vde takes nothing returns nothing
    call fiv(true)
    call TimerStart(GetExpiredTimer(),.5,false,function VCe)
endfunction

function VDe takes nothing returns boolean
    if not av and lE==-1 and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),$C)then
        set av=true
        set lE=0
        call DisplayTimedText("|c00FF0000Red powder|r disappeared leaving a bunch of red light",5)
        call UnitShareVision(gg_unit_H00Q_0724,P[$C],true)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),$C)
        call TimerStart((NewTimer(0)),3,false,function Vde)
    endif
    return false
endfunction

function Vfe takes nothing returns nothing
    local integer fx=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set gK=gK-1
    if gK<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:65")
        call Ltv(LAv("AquaSpike.mdl",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),2))
        call SetUnitTimeScale((Je[(FK)]),1)
        call SetUnitPathing((Je[(FK)]),true)
        call SetUnitInvulnerable((Je[(FK)]),false)
        call PauseUnit((Je[(FK)]),false)
        call SetUnitVertexColor((Je[(FK)]),$FF,125,125,$FF)
        call Unit_Cancel_Counter(82,FK)
        call Ltv(fx)
    elseif gK<=96 and ModuloInteger(gK,4)==0 then
        if gK==96 then
            set FK=(GetUnitUserData((CreateUnit(P[$C],'orai',(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),GetRandomReal(0,359)))))
            call SetUnitTimeScale((Je[(FK)]),1./ 3.)
            call SetUnitAnimation((Je[(FK)]),"Spell")
            call QueueUnitAnimation((Je[(FK)]),"Stand")
            call SetUnitPathing((Je[(FK)]),false)
            call SetUnitInvulnerable((Je[(FK)]),true)
            call PauseUnit((Je[(FK)]),true)
            call Unit_App_Counter(83,FK)
        endif
        call SetUnitVertexColor((Je[(FK)]),$FF,125,125,R2I($FF-255./ 96.*gK))
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",(GetUnitX(II[(fx)]))+GetRandomReal(-$FA,$FA),(GetUnitY(II[(fx)]))+GetRandomReal(-$FA,$FA),.5))
    endif
endfunction

function VFe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRect(x,y,gg_rct_YRST______________000)then
        if gK==0 then
            call GroupEnumUnitsOfPlayer(G,P[$C],null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                exitwhen UnitAlive(u)and GetUnitTypeId(u)=='orai'
            endloop
            if u==null then
                set gK=$80
                call StartSound(Nn)
                call TimerStart(NewTimer(LAv("Whirlpool.mdl",x,y,.375)),.03125,true,function Vfe)
            else
                call NewTextTagInTarget_B(GetTriggerUnit(),"Lobster has been summoned",8,$CD,$FF,$9B)
                if GetLocalPlayer()==GetOwningPlayer(GetTriggerUnit())then
                    call PingMinimapEx(GetUnitX(u),GetUnitY(u),2,$FF,125,$FF,false)
                endif
                call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
            endif
        else
            call NewTextTagInTarget_B(u,"Calling",8,$CD,$FF,$9B)
            call IssueImmediateOrderById(u,$D0004)
        endif
    else
        call NewTextTagInTarget_B(u,"You can not use it here",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(u,$D0004)
    endif
    set u=null
    return false
endfunction

function VGe takes nothing returns nothing
    local integer fx=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set hK=hK-1
    if hK<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:66")
        call Ltv(LAv("FrostNova.mdx",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),1.25))
        call SetUnitTimeScale((Je[(GK)]),1)
        call SetUnitPathing((Je[(GK)]),true)
        call SetUnitInvulnerable((Je[(GK)]),false)
        call PauseUnit((Je[(GK)]),false)
        call SetUnitVertexColor((Je[(GK)]),$B9,$B9,$FF,$FF)
        call Unit_Cancel_Counter(84,GK)
        call Ltv(fx)
    elseif hK<=96 and ModuloInteger(hK,4)==0 then
        if hK==96 then
            set GK=(GetUnitUserData((CreateUnit(P[$C],'oshm',(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),GetRandomReal(0,359)))))
            call SetUnitTimeScale((Je[(GK)]),1./ 3.)
            call SetUnitAnimation((Je[(GK)]),"Spell")
            call QueueUnitAnimation((Je[(GK)]),"Stand")
            call SetUnitPathing((Je[(GK)]),false)
            call SetUnitInvulnerable((Je[(GK)]),true)
            call PauseUnit((Je[(GK)]),true)
            call Unit_App_Counter(85,GK)
        endif
        call SetUnitVertexColor((Je[(GK)]),$B9,$B9,$FF,R2I($FF-255./ 96.*hK))
        call Lqv(LAv("AuraOfChilliness.mdl",(GetUnitX(II[(fx)]))+GetRandomReal(-$FA,$FA),(GetUnitY(II[(fx)]))+GetRandomReal(-$FA,$FA),1),1)
    endif
endfunction

function Vhe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRect(x,y,gg_rct_BSXS______________000)then
        if hK==0 then
            call GroupEnumUnitsOfPlayer(G,P[$C],null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                exitwhen UnitAlive(u)and GetUnitTypeId(u)=='oshm'
            endloop
            if u==null then
                set hK=$80
                call StartSound(Nn)
                call TimerStart(NewTimer(LAv("FreezingPrison.mdl",x,y,4)),.03125,true,function VGe)
            else
                call NewTextTagInTarget_B(GetTriggerUnit(),"Mammoth has been summoned",8,$CD,$FF,$9B)
                if GetLocalPlayer()==GetOwningPlayer(GetTriggerUnit())then
                    call PingMinimapEx(GetUnitX(u),GetUnitY(u),2,$FF,125,$FF,false)
                endif
                call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
            endif
        else
            call NewTextTagInTarget_B(u,"Calling",8,$CD,$FF,$9B)
            call IssueImmediateOrderById(u,$D0004)
        endif
    else
        call NewTextTagInTarget_B(u,"You can not use it here",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(u,$D0004)
    endif
    set u=null
    return false
endfunction

function VHe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0C8',function Vhe)
endfunction

function Vje takes nothing returns nothing
    local integer fx=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set jK=jK-1
    if jK<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:67")
        call SetUnitTimeScale((Je[(HK)]),1)
        call SetUnitPathing((Je[(HK)]),true)
        call SetUnitInvulnerable((Je[(HK)]),false)
        call PauseUnit((Je[(HK)]),false)
        call SetUnitVertexColor((Je[(HK)]),$9B,$F,$F,$FF)
        call Unit_Cancel_Counter(86,HK)
        call Ltv(fx)
    elseif jK<=96 and ModuloInteger(jK,4)==0 then
        if jK==96 then
            set HK=(GetUnitUserData((CreateUnit(P[$C],'n02L',(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),GetRandomReal(0,359)))))
            call SetUnitTimeScale((Je[(HK)]),1./ 3.)
            call SetUnitAnimation((Je[(HK)]),"Spell")
            call QueueUnitAnimation((Je[(HK)]),"Stand")
            call SetUnitPathing((Je[(HK)]),false)
            call SetUnitInvulnerable((Je[(HK)]),true)
            call PauseUnit((Je[(HK)]),true)
            call Unit_App_Counter(87,HK)
        endif
        call SetUnitVertexColor((Je[(HK)]),$9B,$F,$F,R2I($FF-255./ 96.*jK))
        call Ltv(LAv("blood.mdx",(GetUnitX(II[(fx)]))+GetRandomReal(-$FA,$FA),(GetUnitY(II[(fx)]))+GetRandomReal(-$FA,$FA),2))
        call Ltv(LAv("blood.mdx",(GetUnitX(II[(fx)]))+GetRandomReal(-$FA,$FA),(GetUnitY(II[(fx)]))+GetRandomReal(-$FA,$FA),2))
    endif
endfunction

function VJe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRect(x,y,gg_rct_DGFX______________000)then
        if jK==0 then
            call GroupEnumUnitsOfPlayer(G,P[$C],null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                exitwhen UnitAlive(u)and GetUnitTypeId(u)=='n02L'
            endloop
            if u==null then
                set jK=$80
                call StartSound(gn)
                call TimerStart(NewTimer(LAv("DeathSeal.mdl",x,y,1.5)),.03125,true,function Vje)
            else
                call NewTextTagInTarget_B(GetTriggerUnit(),"Blood Wraith has been summoned",8,$CD,$FF,$9B)
                call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
            endif
        else
            call NewTextTagInTarget_B(u,"Calling",8,$CD,$FF,$9B)
            if GetLocalPlayer()==GetOwningPlayer(GetTriggerUnit())then
                call PingMinimapEx(GetUnitX(u),GetUnitY(u),2,$FF,125,$FF,false)
            endif
            call IssueImmediateOrderById(u,$D0004)
        endif
    else
        call NewTextTagInTarget_B(u,"You can not use it here",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(u,$D0004)
    endif
    set u=null
    return false
endfunction

function Vke takes nothing returns nothing
    call RegisterSpellEffectEvent('A0H2',function VJe)
endfunction

function VKe takes integer NNv returns boolean
    local real x=s__barrage_X[NNv]
    local real y=s__barrage_Y[NNv]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitOfPlayerNotseckill(u)then
                call KillUnitBJ(u)
            endif
        endif
    endloop
    call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.5),$FF,25,25,$FF))
    call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,1.5))
    return true
endfunction

function Vle takes integer NNv,unit u returns boolean
    return IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])and GetUnitAbilityLevel(u,'Avul')==0
endfunction

function VLe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function Vme takes nothing returns boolean
    local integer NNv=s__barrage_FR[QK]
    local unit u
    if NNv!=QK then
        call UseBarrage(QK)
        loop
            exitwhen NNv==QK
            if(s__barrage_outside[(NNv)])then
                call VKe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if VKe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            else
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and Vle(NNv,u)then
                                    set u=null
                                    call VKe(NNv)
                                    call RemoveBarrage((NNv))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[QK]then
        set s__barrage_InOperation[QK]=false
        call TriggerEvaluate(OAv)
    endif
    return false
endfunction

function VMe takes nothing returns nothing
    call fov(sK)
endfunction

function s__EvilLavaSpawn_stop takes nothing returns nothing
    call frv(sK)
endfunction

function Vpe takes nothing returns nothing
    set sK=fxv(function Vme)
    call fov(sK)
endfunction

function VPe takes integer NNv returns nothing
    call s__barrage_Filling((QK),(NNv))
    if not s__barrage_InOperation[QK]then
        set s__barrage_InOperation[QK]=true
        call fov(sK)
    endif
endfunction

function Vqe takes nothing returns nothing
    set QK=NewLauncher()
    set s__barrage_InOperation[QK]=true
endfunction

function VQe takes nothing returns nothing
    local integer Vse
    local integer rM
    local integer i
    local real mH
    local real cL
    local real x
    local real y
    local real a
    if UnitAlive(JK)then
        set cL=GetWidgetLife(JK)
        set mH=GetUnitState(JK,UNIT_STATE_MAX_LIFE)
        set x=GetUnitX(JK)
        set y=GetUnitY(JK)
        if GetUnitAbilityLevel(JK,'B04A')==1 then
            set LK=ModuloInteger(LK+1,R2I(16+16*cL/ mH))
            call SetUnitVertexColor(JK,GetRandomInt(0,$FF),GetRandomInt(0,$FF),GetRandomInt(0,$FF),$FF)
        else
            set LK=ModuloInteger(LK+1,R2I(32+32*cL/ mH))
            call SetUnitVertexColor(JK,$9B,$F,$F,$FF)
        endif
        if LK==0 then
            call cMv(x,y)
        endif
        if mK>0 then
            set mK=mK-1
        endif
        if pK>0 then
            set qK=qK+1
            set Vse=MK[pK-1]
            call SetUnitScale(II[(Vse)],((1.+.125*qK)*1.),0,0)
            if IsUnitPaused(JK)then
                call PauseUnit(JK,false)
                call SetUnitInvulnerable(JK,false)
            endif
            if qK==$C then
                set qK=0
                set pK=pK-1
                set a=pK*Lx/ 16.
                set rM=CreateBarrageTypeE(Vse,x+$4E2*Cos(a),y+$4E2*Sin(a),(GetUnitFlyHeight(II[(Vse)])))
                set s__barrage_atkunit[rM]=JK
                set s__barrage_speed[rM]=.03125*250.
                set s__barrage_acceleration[rM]=.03125*.03125*1250.
                set s__barrage_CollisionRange[rM]=175.
                call LFv(Lfv(Vse,$FF,25,25,$FF),"Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl")
                call VPe(rM)
            else
                call Lfv(Vse,GetRandomInt(0,$FF),GetRandomInt(0,$FF),GetRandomInt(0,$FF),$FF)
            endif
            set i=pK
            loop
                exitwhen i==0
                set i=i-1
                set a=i*Lx/ 16.
                set Vse=MK[i]
                call LKv(Vse,x+$FA*Cos(a))
                call Llv(Vse,y+$FA*Sin(a))
            endloop
        elseif cL<(.25*PK-.05)*mH then
            set PK=PK-1
            set qK=0
            loop
                set a=pK*Lx/ 16.
                set Vse=Lfv(Lnv(x+$FA*Cos(a),y+$FA*Sin(a),a),$FF,25,25,$FF)
                call LMv(Vse,"Abilities\\Spells\\Undead\\OrbOfDeath\\AnnihilationMissile.mdl")
                call SetUnitFlyHeight(II[(Vse)],((75)*1.),0)
                set MK[pK]=Vse
                set pK=pK+1
                exitwhen pK==16
            endloop
            call NewTextTagInTarget_B(JK,"Sample death by it!!!",$F,$FF,55,55)
            call PauseUnit(JK,true)
            call SetUnitInvulnerable(JK,true)
            call SetUnitAnimation(JK,"spell")
            call QueueUnitAnimation(JK,"stand")
            call zlv($FF,125,125,.27)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,3),$FF,25,25,$FF))
        elseif cL>(.25+.25*PK)*mH then
            set PK=PK+1
        endif
        if GetPointZ(x,y)<=35 then
            if lK<480 then
                set lK=lK+1
                if ModuloInteger(lK,48)==0 then
                    call ModifyUnitHP((GetUnitUserData((JK))),$249F0)
                    call ModifyUnitHpRegen((GetUnitUserData((JK))),$9C4)
                    call ModifyUnitAttack((GetUnitUserData((JK))),$5DC)
                    call Ltv(LAv("ChaosExplosion.mdx",x,y,1.25))
                endif
            endif
            if GetUnitAbilityLevel(JK,'A0LO')==0 then
                if pK==0 then
                    call NewTextTagInTarget_B(JK,"This energy is really good!!",$F,$FF,55,55)
                endif
                call UnitAddAbilityBY(JK,'A0LO')
                call ModifyUnitHpRegen((GetUnitUserData((JK))),$C350)
            endif
        elseif GetUnitAbilityLevel(JK,'A0LO')==1 then
            call UnitRemoveAbilityandBuffBY(JK,'A0LO','B049')
            call ModifyUnitHpRegen((GetUnitUserData((JK))),-$C350)
        endif
    else
        loop
            exitwhen pK==0
            set pK=pK-1
            call Ltv(MK[pK])
        endloop
        call ReleaseTimer(kK,"[TimerUtils]Error:68")
        set kK=null
    endif
endfunction

function VSe takes nothing returns nothing
    call NewTextTagInTarget_B(JK,"Give you a big meal to taste!!",18,$FF,55,55)
    call PauseUnit(JK,false)
    call SetUnitInvulnerable(JK,false)
    call SetUnitPathing(JK,true)
    call SetUnitVertexColor(JK,$9B,$F,$F,$FF)
    call RemoveGuardPosition(JK)
    call TimerStart(kK,.03125,true,function VQe)
    call PlaySoundOnUnit_BJ((qn),((125)*1.),(JK))
    call Ltv(LAv("ChaosExplosion.mdx",(GetUnitX(II[(KK)])),(GetUnitY(II[(KK)])),2.5))
    call zlv($FF,125,125,.75)
    call zjv(40,.75)
    call Ltv(KK)
    set KK=0
endfunction

function Vte takes nothing returns nothing
    call NewTextTagInTarget_B(JK,"You are too weak, do not be overconfident..",18,$FF,55,55)
    call SetUnitVertexColor(JK,$9B,$F,$F,125)
    call TimerStart(kK,3.25,true,function VSe)
endfunction

function VTe takes nothing returns boolean
    if GetUnitAbilityLevel(JK,'B04A')==1 and mK==0 then
        set mK=32
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",JK,"chest"))
        call Lqv(LAv("DarkLightningNova.mdx",GetUnitX(JK),GetUnitY(JK),1.5),2)
        call Gjv(JK,$FA,GetRandomReal(0,Lx),1,"KnockbackDust.mdx")
    endif
    return false
endfunction

function Vue takes nothing returns nothing
    set JK=CreateUnit(P[$B],'n02Z',(GetUnitX(II[(KK)])),(GetUnitY(II[(KK)])),270)
    call UnitAddShieldTrig((GetUnitUserData((JK))),function VTe)
    call PauseUnit(JK,true)
    call SetUnitInvulnerable(JK,true)
    call SetUnitPathing(JK,false)
    call SetUnitVertexColor(JK,$9B,$F,$F,55)
    call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",(GetUnitX(II[(KK)])),(GetUnitY(II[(KK)])),2))
    call TimerStart(kK,3,false,function Vte)
endfunction

function VUe takes unit u,real x,real y returns nothing
    if UnitAlive(JK)then
        call IssueUnitStop_DisplayText(u,"Calling")
    elseif KK!=0 then
        call IssueUnitStop_DisplayText(u,"Has been summoned successfull")
    else
        if kK==null then
            set kK=(NewTimer(0))
        endif
        set KK=LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",x,y,1.25)
        call TimerStart(kK,1.5,false,function Vue)
        call Ltv(LAv("MagmaBurst.mdx",x,y,1.5))
        call PlaySoundAtPoint_BJ((Gn),((125)*1.),((x)*1.),((y)*1.),0)
    endif
endfunction

function Vwe takes nothing returns boolean
    call NewTextTagInTarget_B(JK,"Come to hug, haha !! !!",$F,$FF,55,55)
    call PlaySoundOnUnit_BJ((Qn),((100)*1.),(JK))
    return false
endfunction

function VWe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0LP',function Vwe)
endfunction

function Vye_v takes nothing returns nothing
    call KillUnit((Je[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:69"))]))
endfunction

function Vye takes boolean VYe returns nothing
    local unit u
    if not fK then
        return
    endif
    if UnitAlive(TK)then
        call SetUnitInvulnerable(TK,true)
        call PauseUnit(TK,true)
        if VYe then
            set fK=FALSE
            call UnitAddAbility(TK,'Aloc')
            call TimerStart(NewTimer((GetUnitUserData((TK)))),0,false,function Vye_v)
        endif
    endif
    call GroupEnumUnitsInRect(YK,yK,null)
    loop
        set u=FirstOfGroup(YK)
        exitwhen u==null
        call GroupRemoveUnit(YK,u)
        if GetUnitTypeId(u)=='odoc' then
            call KillUnit(u)
        endif
    endloop
    if SK>0 and UnitAlive((Je[(SK)]))then
        call KillUnit((Je[(SK)]))
    endif
    call TriggerEvaluate(OSv)
    call RecycleGroup(YK)
    call ReleaseTimer(uK,"[TimerUtils]Error:70")
    call RemoveRect(yK)
    set TK=null
    set yK=null
    set uK=null
    set YK=null
endfunction

function Vze takes nothing returns nothing
    local unit u
    local boolean VZe
    local real sc
    if not(Control_use[((GetUnitUserData((TK))))])then
        set VZe=false
        set UK=UK+1
        set sc=.7+.01*UK
        if sc>1.5 then
            set sc=1.5
        endif
        call Ltv(LAv("EarthNova.mdl",GetUnitX(TK),GetUnitY(TK),sc))
        call GroupEnumUnitsInRect(YK,yK,null)
        loop
            set u=FirstOfGroup(YK)
            exitwhen u==null
            call GroupRemoveUnit(YK,u)
            if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,TK)then
                set VZe=true
                call UnitDamageTargetBY(((TK)),((u)),(((($5DC+100*UK)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\ManaBurn\\ManaBurnTarget.mdl",u,"origin"))
            endif
        endloop
        if GetUnitAbilityLevel(TK,'Avul')>0 then
            call SetUnitAnimation(TK,"Spell")
        endif
        if VZe then
            set zK=0
        else
            set zK=zK+1
            if zK>$C then
                call Vye(false)
            endif
        endif
    endif
endfunction

function V_e takes nothing returns nothing
    local real x=GetUnitX(TK)
    local real y=GetUnitY(TK)
    local unit u
    call PauseUnit(TK,false)
    call SetUnitTimeScale(TK,1)
    call Ltv(LAv("Acid Ex.mdl",x,y,5))
    call Lqv(LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",x,y,5),1)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,6.5),55,$FF,55,$CD))
    call zjv(50,.5)
    call GroupEnumUnitsInRect(YK,yK,null)
    loop
        set u=FirstOfGroup(YK)
        exitwhen u==null
        call GroupRemoveUnit(YK,u)
        if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,TK)then
            call m1v(u,1.5)
            call UnitDamageTargetBY(((TK)),((u)),((((.5*GetUnitState(u,UNIT_STATE_MAX_LIFE))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call DestroyEffect(AddSpecialEffectTarget("CurseBoltGreen.mdl",u,"chest"))
        endif
    endloop
endfunction

function V0e takes nothing returns nothing
    local real x=GetUnitX((Je[(SK)]))
    local real y=GetUnitY((Je[(SK)]))
    local unit u
    if UnitAlive((Je[(SK)]))then
        if WK<$FF then
            set WK=WK+4
            if WK>=$FF then
                set WK=$FF
                call SetUnitPathing((Je[(SK)]),true)
                call SetUnitInvulnerable((Je[(SK)]),false)
                call PauseUnit((Je[(SK)]),false)
            endif
            call SetUnitVertexColor((Je[(SK)]),55,125,55,R2I(WK))
        else
            call ModifyUnitAttackSpeed((SK),-ZK)
            set ZK=R2I($96-$96*GetWidgetLife((Je[(SK)]))/ GetUnitState((Je[(SK)]),UNIT_STATE_MAX_LIFE))
            call ModifyUnitAttackSpeed((SK),ZK)
            call SetUnitVertexColor((Je[(SK)]),55-R2I(ZK/ 4),125-R2I(ZK/ 2),55-R2I(ZK/ 4),$FF)
            call GroupEnumUnitsInRange(G,x,y,325+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,325)then
                    if IsUnitAliveAndEnemy(u,TK)then
                        call UnitDamageTargetBY(((TK)),((u)),((((125)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
        endif
    else
        if UnitAlive(TK)and uK!=null and wK!=4 then
            set UK=0
            call m1v(TK,$A)
            call PauseUnit(TK,false)
            call SetUnitInvulnerable(TK,false)
            call SetUnitTimeScale(TK,1)
            call SetUnitAnimation(TK,"Death")
            call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetUnitX(TK),GetUnitY(TK),5),0,$FF,0,$FF))
            call TimerStart(uK,3,true,function Vze)
        endif
        call GroupEnumUnitsInRange(G,x,y,500+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,500)then
                if IsUnitAliveAndEnemy(u,TK)then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    call UnitDamageTargetBY(((TK)),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,2.5)
                endif
            endif
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:71")
        call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y,5),0,$FF,0,$CD))
        call Unit_Cancel_Counter(88,SK)
        set SK=0
    endif
endfunction

function V1e takes nothing returns boolean
    local real x=GetUnitX((Je[(SK)]))
    local real y=GetUnitY((Je[(SK)]))
    local real a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
    local unit u
    set x=x-96*Cos(a)
    set y=y-96*Sin(a)
    if not IsUnitType((MF),UNIT_TYPE_HERO)then
        call DamageAmplify(2*GetDamage())
    endif
    call GroupEnumUnitsInRange(YK,x,y,450,null)
    call GroupRemoveUnit(YK,(MF))
    loop
        set u=FirstOfGroup(YK)
        exitwhen u==null
        call GroupRemoveUnit(YK,u)
        if IsUnitInRangeXY(u,x,y,300)and IsUnitAliveAndEnemy(u,TK)then
            if(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((a)*1.))>=Cos(((1.7)*1.)))then
                if IsUnitType((MF),UNIT_TYPE_HERO)then
                    call UnitDamageTargetBY(((Je[(SK)])),(u),(((DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
                else
                    call UnitDamageTargetBY(((Je[(SK)])),(u),((3*(DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
                endif
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"chest"))
                call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"chest"))
            endif
        endif
    endloop
    return false
endfunction

function V2e takes nothing returns boolean
    if GetRandomInt(1,20)==1 then
        call IssuePointOrderById((MF),$D009D,GetUnitX((mF)),GetUnitY((MF)))
    endif
    return false
endfunction

function V3e takes nothing returns boolean
    local unit u
    local real x
    local real y
    if UnitAlive((MF))and GetWidgetLife((MF))-GetDamage()<=.405 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call KillUnit((MF))
        call Ltv(LAv("ToxicField.mdl",x,y,.9))
        call GroupEnumUnitsInRange(YK,x,y,375,null)
        loop
            set u=FirstOfGroup(YK)
            exitwhen u==null
            call GroupRemoveUnit(YK,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemy(u,TK)then
                    call UnitDamageTargetBY(((TK)),((u)),(((($BB8+.1*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                    call UnitAppBuff((GetUnitUserData((u))),'Aslo',$D006B)
                elseif u==(Je[(SK)])then
                    call SetWidgetLife(u,GetWidgetLife(u)+$7A120)
                endif
            endif
        endloop
    endif
    return false
endfunction

function V4e takes nothing returns nothing
    local unit u
    call NewTextTagInTarget_A(TK,"How dare you?",55,$FF,55)
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:72")
    call Ltv(Lfv(LAv("AncientExplode.mdl",GetUnitX(TK),GetUnitY(TK),2.5),0,$9B,0,$CD))
    call SetUnitVertexColor(TK,25,75,25,$FF)
    call PauseUnit(TK,false)
    call SetUnitInvulnerable(TK,false)
    call GroupEnumUnitsInRect(YK,yK,null)
    call GroupRemoveUnit(YK,TK)
    loop
        set u=FirstOfGroup(YK)
        exitwhen u==null
        call GroupRemoveUnit(YK,u)
        if IsUnitAliveAndAlly(u,TK)and GetUnitMoveSpeed(u)>0 then
            call Auxiliary_TargetOrder(('A0BV'),null,1,$D0085,u)
        endif
    endloop
endfunction

function V5e takes nothing returns boolean
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real pX
    local real pY
    local real a
    if yK==null and not IsUnitDeadBJ(TK)then
        set yK=Rect(GetRectMinX(gg_rct_DLZ________001),GetRectMinY(gg_rct_DLZ________001),GetRectMaxX(gg_rct_DLZ________001),GetRectMaxY(gg_rct_DLZ________001))
        set YK=NewGroup()
        set uK=(NewTimer(0))
        set wK=1
        set UK=0
        set fK=true
        call NewTextTagInTarget_A(TK,"Humans... Come to your death.",55,$FF,55)
        call EnableWeatherEffect(AddWeatherEffect(yK,'RAhr'),true)
        call StartSound(Rn)
        call SetUnitAnimation(TK,"Spell")
        call QueueUnitAnimation(TK,"Stand")
        call SetUnitTimeScale(TK,.5)
        call TimerStart((NewTimer(0)),3,false,function V_e)
        call TimerStart(uK,3,true,function Vze)
        call TriggerEvaluate(Otv)
    endif
    if wK<4 and GetWidgetLife(TK)-GetDamage()<=(1-.25*wK)*GetUnitMaxLifeById((GetUnitUserData((TK))))then
        set wK=wK+1
        set WK=0
        set ZK=0
        set x=GetUnitX(TK)
        set y=GetUnitY(TK)
        set tK=Lfv(LAv("DesecrateGreen.mdx",$406D,$2812,2.5),$9B,$FF,$9B,$CD)
        set SK=(GetUnitUserData((CreateUnit(P[$B],'ohun',$406D,$2812,270))))
        if wK>2 then
            set i=8
            loop
                set i=i-1
                set a=i*Lx/ 8
                set pX=x+$FA*Cos(a)
                set pY=y+$FA*Sin(a)
                if not IsTerrainWalkable(pX,pY)then
                    set pX=IsTerrainWalkable_X
                    set pY=IsTerrainWalkable_Y
                endif
                call UnitAddShieldTrig((GetUnitUserData((CreateUnit(P[$B],'odoc',pX,pY,bj_RADTODEG*a)))),function V3e)
                call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",pX,pY,1.5),0,$FF,0,$CD))
                exitwhen i==0
            endloop
            if wK==4 then
                call TimerStart((NewTimer(0)),6,false,function V4e)
            endif
        endif
        call NewTextTagInTarget_A(TK,"Come out fat!!!",55,$FF,55)
        call UnitAddPAttackTrig((SK),function V1e)
        call UnitAddShieldTrig((SK),function V2e)
        call SetUnitVertexColor((Je[(SK)]),55,125,55,0)
        call SetUnitPathing((Je[(SK)]),false)
        call SetUnitAnimation((Je[(SK)]),"Stand Channel")
        call SetUnitInvulnerable((Je[(SK)]),true)
        call PauseUnit((Je[(SK)]),true)
        call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",-$2A00,-$6740,5),0,$FF,0,$CD))
        call Ltv(LAv("DesecrateGreen.mdx",x,y,2))
        call Ltv(LAv("EarthNova.mdl",x,y,2))
        call TimerStart(uK,1.5,true,function Vze)
        call PauseUnit(TK,true)
        call SetUnitInvulnerable(TK,true)
        call SetUnitAnimation(TK,"Spell")
        call SetUnitTimeScale(TK,.7)
        call SetWidgetLife(TK,(1.25-.25*wK)*GetUnitMaxLifeById((GetUnitUserData((TK)))))
        call TimerStart((NewTimer(0)),.03125,true,function V0e)
        call Unit_App_Counter(89,SK)
    elseif GetWidgetLife(TK)-GetDamage()<=.405 then
        call Vye(true)
    endif
    return false
endfunction

function V6e takes nothing returns nothing
    local unit u
    local integer i
    local real x
    local real y
    local real pX
    local real pY
    if UnitAlive((Je[(SK)]))and el>0 then
        set el=el-1
        set xl=xl-bj_PI/ 24
        if ModuloInteger(el,2)==0 then
            set i=$A
            set x=GetUnitX((Je[(SK)]))
            set y=GetUnitY((Je[(SK)]))
            loop
                set i=i-1
                set pX=x+65*i*Cos(xl)
                set pY=y+65*i*Sin(xl)
                call GroupEnumUnitsInRange(G,pX,pY,48+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,pX,pY,48)then
                        if not IsUnitInGroup(u,vl)and IsUnitAliveAndEnemy(u,TK)then
                            call GroupAddUnit(vl,u)
                            call UnitDamageTargetBY(((TK)),((u)),((((9000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A0BU',$D00B5)
                        endif
                    endif
                endloop
                call Ltv(LAv("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",pX,pY,1.25))
                exitwhen i==0
            endloop
        endif
        call SetUnitTimeScale((Je[(SK)]),2)
        call SetUnitFacingTimed((Je[(SK)]),bj_RADTODEG*xl,0)
        call TimerStart(GetExpiredTimer(),.03125,false,function V6e)
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:73")
        call SetUnitTimeScale((Je[(SK)]),1)
        call PauseUnit((Je[(SK)]),false)
        call RecycleGroup(vl)
        set vl=null
    endif
endfunction

function V7e takes nothing returns nothing
    call IssueImmediateOrderById((Je[(SK)]),$D0004)
    call PauseUnit((Je[(SK)]),true)
    call SetUnitAnimation((Je[(SK)]),"Stand Channel")
    call SetUnitTimeScale((Je[(SK)]),.2)
    call TimerStart(GetExpiredTimer(),1.1,false,function V6e)
endfunction

function V8e takes nothing returns boolean
    local integer i=$A
    local real x=GetUnitX((Je[(SK)]))
    local real y=GetUnitY((Je[(SK)]))
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)+bj_PI/ 3
    local real sA=a-2*bj_PI/ 3
    local real d
    set vl=NewGroup()
    set el=17
    set xl=a+bj_PI/ 24
    loop
        set i=i-1
        set d=65*i
        call Lqv(LAv("Doodads\\Cinematic\\GlowingRunes\\GlowingRunes6.mdl",x+d*Cos(a),y+d*Sin(a),1.1),1.25)
        call Lqv(LAv("Doodads\\Cinematic\\GlowingRunes\\GlowingRunes6.mdl",x+d*Cos(sA),y+d*Sin(sA),1.1),1.25)
        exitwhen i==0
    endloop
    call SetUnitAnimation((Je[(SK)]),"Stand Channel")
    call SetUnitTimeScale((Je[(SK)]),.25)
    call SetUnitFacingTimed((Je[(SK)]),bj_RADTODEG*a,0)
    call TimerStart((NewTimer(0)),0,false,function V7e)
    return false
endfunction

function V9e takes nothing returns nothing
    set TK=gg_unit_hmpr_0313
    call PauseUnit(TK,true)
    call UnitAddShieldTrig((GetUnitUserData((TK))),function V5e)
    call RegisterSpellEffectEvent('A0BT',function V8e)
endfunction

function ENe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsPointInRangeXY(x,y,$55C0,-$2D60,$C8)then
        if not sc___prototype89_evaluate(1,u)then
            call VUe(u,x,y)
        endif
    else
        call NewTextTagInTarget_B(u,"You can not use it here",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(u,$D0004)
    endif
    set u=null
    return false
endfunction

function Ebe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0IB',function ENe)
endfunction

function EBe takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:74")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0J2','B038')
    call DeUnitAdef((NNv),Ql[NNv])
    call Unit_Cancel_Counter(90,(NNv))
    set sl[NNv]=null
endfunction

function Ece takes unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if sl[NNv]==null then
        set sl[NNv]=NewTimer(NNv)
        set Ql[NNv]=ModifyUnitAdef((NNv),80)
        call UnitAddAbilityBY((Je[(NNv)]),'A0J2')
        call Unit_App_Counter(91,(NNv))
    endif
    call TimerStart(sl[NNv],1,false,function EBe)
endfunction

function ECe takes nothing returns nothing
    local real x=GetUnitX(Sl)
    local real y=GetUnitY(Sl)
    local unit u
    local boolean b
    if UnitAlive(Sl)then
        set Ul=Ul+1
        if wl>0 then
            set wl=wl-1
            if wl>895 then
                if ModuloInteger(wl-896,48)==0 then
                    set u=PickRandomUnitInUnitRange(Sl,800)
                    call UnitRemoveAbility(Sl,'A0J3')
                    call UnitAddAbility(Sl,'A0J3')
                    call Ltv(Lfv(LAv("EarthNova.mdl",x,y,1.25),125,125,125,125))
                    if u!=null then
                        call IssuePointOrderById(Sl,$D024B,GetUnitX(u),GetUnitY(u))
                        set u=null
                    endif
                endif
                if wl==896 then
                    call SetUnitVertexColor(Sl,$CD,$9B,$CD,125)
                    call DestroyEffectBY(tl)
                    call SetUnitNocontrol((GetUnitUserData((Sl))),false)
                    set tl=0
                endif
            endif
        endif
        if Ul==16 then
            set Ul=0
            set u=Sl
            set b=false
            if GetUnitAbilityLevel(Sl,'Bakb')==0 or GetUnitAbilityLevel(Sl,'B03V')==0 then
                call GroupEnumUnitsInRange(G,x,y,600+75,null)
                call GroupRemoveUnit(G,u)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,600)then
                        if IsUnitAliveAndAlly(u,Sl)and GetUnitAbilityLevel(u,'Avul')==0 then
                            set b=true
                            call Ece(u)
                        endif
                    endif
                endloop
            endif
            if ul and not b then
                set ul=false
                call UnitRemoveAbilityandBuffBY(Sl,'A0J2','B038')
                call ModifyUnitHpRegen((GetUnitUserData((Sl))),-75000)
            elseif not ul and b then
                set ul=true
                call UnitAddAbilityBY(Sl,'A0J2')
                call ModifyUnitHpRegen((GetUnitUserData((Sl))),75000)
            endif
        endif
    else
        if tl!=0 then
            call SetUnitVertexColor(Sl,$CD,$9B,$CD,125)
            call DestroyEffectBY(tl)
            set tl=0
        endif
        call Ltv(LAv("NatureExplosion.mdl",x,y,5))
        call Ltv(LAv("NatureExplosion.mdl",x,y,5))
        call SetItemChargesG(CreateItemG('I04W',x,y),2)
        call SetItemChargesG(CreateItemG('I04U',x,y),2)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:75")
        set Sl=null
    endif
endfunction

function Ede takes nothing returns boolean
    if not Tl then
        set Tl=true
        set Wl=.5*GetUnitState((MF),UNIT_STATE_MAX_LIFE)
        call NewTextTagInTarget_B((MF),"You are not welcomed here... I will not let u go... I will destroy you!",18,$9B,$FF,$9B)
        call PlaySoundOnUnit_BJ((Kn),((125)*1.),((MF)))
        call Ltv(LAv("NatureWave.mdl",GetUnitX((MF)),GetUnitY((MF)),3))
        call zHv(50,1,GetUnitX((MF)),GetUnitY((MF)),900)
        call TimerStart((NewTimer(0)),.03125,true,function ECe)
    elseif wl==0 and GetUnitState((MF),UNIT_STATE_LIFE)<Wl then
        call SetUnitNocontrol((pF),true)
        set tl=(s__Effect_build(AddSpecialEffectTarget(("SpiralAura.mdl"),((MF)),("origin"))))
        set wl=$500
        call NewTextTagInTarget_B((MF),"I will not fall so easily!!",18,$9B,$FF,$9B)
        call StartSound(Za)
        call SetUnitVertexColor((MF),$CD,$9B,$CD,$CD)
        call PlaySoundOnUnit_BJ((Qa),(($7F)*1.),((MF)))
        call Ltv(LAv("NatureWave.mdl",GetUnitX((MF)),GetUnitY((MF)),5))
        call Ltv(LAv("Abilities\\Spells\\NightElf\\ReviveNightElf\\ReviveNightElf",GetUnitX((MF)),GetUnitY((MF)),5))
        call zHv(75,1.25,GetUnitX((MF)),GetUnitY((MF)),$41A)
    endif
    return false
endfunction

function EDe takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(id)]))then
        set yl[id]=yl[id]-1
        call SetUnitVertexColor((Je[(id)]),GetRandomInt(0,$FF),GetRandomInt(0,$FF),GetRandomInt(0,$FF),$FF)
    else
        set yl[id]=0
    endif
    if yl[id]<0 then
        if UnitAlive((Je[(id)]))then
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            call GroupEnumUnitsInRange(G,x,y,300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,300)then
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call Gjv(u,$87,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),1,"KnockbackDust.mdl")
                        call m1v(u,1)
                    endif
                endif
            endloop
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.25),105,105,105,105))
            call KillUnit((Je[(id)]))
        endif
        call SetUnitVertexColor((Je[(id)]),125,$FF,105,$FF)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:76")
        call Unit_Cancel_Counter(92,id)
    endif
endfunction

function Efe takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    set yl[id]=64
    call PauseUnit(u,true)
    call SetUnitTimeScale(u,.5)
    call SetUnitAnimation(u,"Spell")
    call TimerStart(NewTimer(id),.03125,true,function EDe)
    call DestroyEffect(AddSpecialEffectTarget("SuperShinyThingy.mdl",u,"chest"))
    call PlaySoundOnUnit_BJ((Qa),(($7F)*1.),(u))
    call Unit_App_Counter(93,id)
endfunction

function EFe takes unit u returns nothing
    set Sl=u
    call SetUnitVertexColor(u,$CD,$9B,$CD,125)
    call UnitAddShieldTrig((GetUnitUserData((u))),function Ede)
endfunction

function Ege takes nothing returns nothing
    local integer i=4
    local integer cFv
    local unit u
    local real l
    local real x
    local real y
    local real a
    local real fA
    local real tA
    if UnitAlive(Yl)then
        set vL=ModuloInteger(vL+1,$A0)
        set x=GetUnitX(Yl)
        set y=GetUnitY(Yl)
        set l=GetWidgetLife(Yl)
        if xL>0 then
            set xL=xL-1
        endif
        if GetUnitAbilityLevel(Yl,'A0IO')>0 then
            if eL>0 then
                set eL=eL-1
            endif
            if l>.4*oL and eL==0 then
                call UnitRemoveAbilityandBuffBY(Yl,'A0IO','B01X')
                call ModifyUnitHpRegen((GetUnitUserData((Yl))),-$C8*100)
            else
                call SetUnitState(Yl,UNIT_STATE_MANA,GetUnitState(Yl,UNIT_STATE_MANA)+.01875)
            endif
        elseif l<.4*oL then
            set eL=640
            call ModifyUnitHpRegen((GetUnitUserData((Yl))),$C8*100)
            call UnitAddAbilityBY(Yl,'A0IO')
        endif
        if Yl_MpRegen>0 then
            call SetUnitState(Yl,UNIT_STATE_MANA,GetUnitState(Yl,UNIT_STATE_MANA)+Yl_MpRegen/ 32)
            set Yl_MpRegen=Yl_MpRegen-.03125
        endif
        if GetUnitState(Yl,UNIT_STATE_MANA)>=GetUnitState(Yl,UNIT_STATE_MAX_MANA)then
            call TriggerEvaluate(OMv)
            call SetUnitState(Yl,UNIT_STATE_MANA,0)
        endif
        if Zl>0 and l<.25*Zl*oL then
            set Zl=Zl-1
            call GroupEnumUnitsInRange(G,x,y,800+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,800)then
                    if IsUnitAliveAndEnemy(u,Yl)then
                        call UnitAppBuff((GetUnitUserData((u))),'A0GA',$D006B)
                    endif
                endif
            endloop
            call StartSound(Nn)
            call Lsv(LAv("Whirlpool.mdl",x,y,1.25),3)
            call zlv($B9,$CD,$CD,3)
            call cGv(x,y)
        elseif l>(.25*Zl+.35)*oL then
            set Zl=Zl+1
        endif
        set fA=bj_DEGTORAD*GetUnitFacing(Yl)
        set x=x-90*Cos(fA)
        set y=y-90*Sin(fA)
        set fA=fA+Lx/ 4.
        set tA=vL*Lx/ 32.
        loop
            set i=i-1
            set a=fA+i*Lx/ 4.
            set tA=tA+Lx/ 4.
            call LKv(zl[i],x+(275*Cos(tA))*Cos(a))
            call Llv(zl[i],y+(275*Cos(tA))*Sin(a))
            call SetUnitFlyHeight(II[(zl[i])],(($FA+275*Sin(tA))*1.),0)
            exitwhen i==0
        endloop
    else
        loop
            set i=i-1
            call Ltv(zl[i])
            exitwhen i==0
        endloop
        call PlaySoundOnUnit_BJ((Jn),((125)*1.),(Yl))
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",GetUnitX(Yl),GetUnitY(Yl),7.5))
        call Unit_Cancel_Counter(94,((GetUnitUserData((Yl)))))
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:77")
    endif
endfunction

function EGe takes nothing returns boolean
    local unit u
    if xL==0 then
        set u=PickRandomVisibleHeroInRange(Yl,GetUnitX(Yl),GetUnitY(Yl),$6D6)
        if u!=null then
            call cHv(u)
            set u=null
            set xL=32-16*GetUnitAbilityLevel(Yl,'A0IO')
        endif
    endif
    set Yl_MpRegen=1
    return false
endfunction

function Ehe takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:78")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0IH','B01C')
    call ModifyUnitArmor((NNv),50*EL[NNv])
    call Unit_Cancel_Counter(95,(NNv))
    set VL[NNv]=null
    set EL[NNv]=0
endfunction

function EHe takes nothing returns boolean
    local integer NNv=(pF)
    if EL[NNv]==0 then
        set VL[NNv]=NewTimer(NNv)
        set EL[NNv]=0
        call UnitAddAbilityBY((MF),'A0IH')
        call Unit_App_Counter(96,(NNv))
    endif
    if EL[NNv]<37 then
        set EL[NNv]=EL[NNv]+1
        call ModifyUnitArmor((NNv),-50)
    endif
    if EL[NNv]>9 then
        call zKv((Kc[(NNv)]),$9B,55,55,.05*EL[NNv])
    endif
    call NewTextTagInTarget_B((MF),"|c00ff0000-"+I2S(50*EL[NNv]),8+.5*EL[NNv],$FF,$FF,$FF)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",(MF),"chest"))
    call TimerStart(VL[NNv],8,false,function Ehe)
    return false
endfunction

function Eje takes nothing returns nothing
    local integer id=(GetUnitUserData((Yl)))
    local integer i=4
    set Zl=3
    set vL=0
    set eL=0
    set xL=0
    set oL=GetUnitMaxLifeById((GetUnitUserData((Yl))))
    loop
        set i=i-1
        set zl[i]=Lnv(0,0,0)
        call LMv(zl[i],"OrbOfSeas.mdx")
        exitwhen i==0
    endloop
    call SetUnitVertexColor(Yl,90,125,$C3,$FF)
    call SetUnitInvulnerable(Yl,false)
    call SetUnitPathing(Yl,true)
    call PauseUnit(Yl,false)
    call SetUnitNocontrol(id,true)
    call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",rL,aL,7.5))
    call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",rL,aL,7.5))
    call UnitAddPAttackTrig((id),function EHe)
    call UnitAddShieldTrig((id),function EGe)
    call TimerStart((NewTimer(0)),.03125,true,function Ege)
    call Unit_App_Counter(97,(id))
endfunction

function EJe takes nothing returns nothing
    local unit u
    set XL=XL+1
    if XL<$A then
        if XL==5 then
            set Yl=CreateUnit(P[$B],'h018',rL,aL,$B4)
            call PauseUnit(Yl,true)
            call SetUnitInvulnerable(Yl,true)
            call SetUnitPathing(Yl,false)
            call SetUnitVertexColor(Yl,90,125,$C3,25)
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",rL,aL,7.5))
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",rL,aL,7.5))
            call zjv(30,.75)
        elseif UnitAlive(Yl)then
            call SetUnitVertexColor(Yl,90,125,$C3,25+30*(XL-5))
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",rL,aL,7.5))
        endif
        call thv("|c000080ff"+I2S($A*XL)+"%..",rL,aL,50,.06,.04,bj_PI/ 2,1,1.5)
        call Lqv(LAv("Geiser.mdl",rL,aL,5.+.5*XL),2)
        call PlaySoundAtPoint_BJ((jn),((125)*1.),((rL)*1.),((aL)*1.),0)
    else
        call Ltv((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:79")))
        call Eje()
    endif
endfunction

function Eke takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if IsUnitInRangeXY(u,rL,aL,300)then
        if IsItemCharges(GetItemOfTypeFromUnit(u,'I04V'),$C)then
            call DisplayTimedText("|c002040f0Blue powder|r disappeared leaving a trail of dark light",5)
            call PlaySoundAtPoint_BJ((jn),((125)*1.),((rL)*1.),((aL)*1.),0)
            call RemoveItemByCharges(GetItemOfTypeFromUnit(u,'I04V'),$C)
            call TimerStart(NewTimer(LAv("HealingWater.mdl",rL,aL,3)),.75,true,function EJe)
        elseif not sc___prototype23_evaluate(1)then
            call NewTextTagInTarget_B(u,"No time yet...",8,$CD,$FF,$9B)
            call IssueImmediateOrderById(u,$D0004)
        endif
    else
        call NewTextTagInTarget_B(u,"You can not use it here",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(u,$D0004)
    endif
    set u=null
    return false
endfunction

function EKe takes nothing returns nothing
    call RegisterSpellEffectEvent('A03W',function Eke)
endfunction

function Ele takes nothing returns nothing
    local unit u
    local integer i
    local real mH
    local real cL
    local real x
    local real y
    local real m
    if UnitAlive(OL)then
        set cL=GetWidgetLife(OL)
        set mH=GetUnitState(OL,UNIT_STATE_MAX_LIFE)
        if fL>0 then
            set fL=fL-1
        endif
        if DL>0 then
            set DL=DL-1
            if ModuloInteger(DL,32)==0 then
                set i=3
                set x=GetUnitX(OL)
                set y=GetUnitY(OL)
                call GroupEnumUnitsInRange(G,x,y,$4B0+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$4B0)then
                        if not IsUnitInRangeXY(u,x,y,600)and IsUnitOfPlayerNotseckill(u)then
                            if nC[(GetUnitUserData((u)))]then
                                call zKv((GetPlayerId((GetOwningPlayer(u)))),55,55,$FF,.27)
                            endif
                            call Puv("CLPB",OL,u,.75,1,0)
                            call Ltv(LAv("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",GetUnitX(u),GetUnitY(u),2.5))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",u,"origin"))
                            call KillUnitBJ(u)
                        endif
                    endif
                endloop
                if DL<1 then
                    call SetUnitNocontrol((GetUnitUserData((OL))),GetUnitAbilityLevel(OL,'A0M3')==1)
                    call SetUnitOwner(RL,P[$B],true)
                    call UnitRemoveAbilityandBuffBY(OL,'A0M7','B04L')
                endif
            endif
        elseif cL<.33*BL*mH then
            set BL=BL-1
            set DL=320
            set x=GetUnitX(OL)
            set y=GetUnitY(OL)
            call SetUnitNocontrol((IL),true)
            call GroupEnumUnitsInRange(G,x,y,600+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600)then
                    if IsUnitAliveAndEnemyNotAvul(u,OL)then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",u,"origin"))
                        call m2v(u,3,'A500','B500',true)
                        call UnitDamageTargetBY(((OL)),((u)),((((.8*GetWidgetLife(u))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            call NewTextTagInTarget_B(OL,"Unfortunately, you met me ! !",18,$9B,$FF,$9B)
            call SetUnitOwner(RL,P[$C],true)
            call UnitAddAbilityBY(OL,'A0M7')
            call cIv(OL)
            call zlv(125,125,$FF,.5)
            call PlaySoundOnUnit_BJ((tn),(($7F)*1.),(OL))
            call Ltv(LAv("LightningWrath.mdl",x,y,2.5))
            call Lqv(LAv("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl",x,y,4),1.5)
        elseif cL>(.5+.33*BL)*mH then
            set BL=BL+1
        endif
        if bL then
            if CL>0 then
                set CL=CL-1
                if CL<1 then
                    set AL=ModifyUnitAdef((IL),60)
                    set u=PickRandomUnitInUnitRange(OL,$5DC)
                    set dL=640
                    if u==null then
                        call clv(GetUnitX(OL)+GetRandomReal(-$96,$96),GetUnitY(OL)+GetRandomReal(-$96,$96))
                    else
                        call clv(GetUnitX(u),GetUnitY(u))
                        set u=null
                    endif
                    call UnitAddAbilityBY(OL,'A0M3')
                    call PauseUnit(OL,false)
                    call UnitAddAbility(OL,'A0M9')
                    call UnitRemoveAbility(OL,'A0M9')
                    call SetUnitPropWindow(OL,0)
                endif
            else
                set dL=dL-1
                if ModuloInteger(dL,32)==0 then
                    set x=GetUnitX(OL)
                    set y=GetUnitY(OL)
                    call GroupEnumUnitsInRange(G,x,y,750+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,750)then
                            if IsUnitAliveAndAlly(u,OL)then
                                call UnitCureTaret(OL,u,$3D090)
                            endif
                        endif
                    endloop
                endif
                call SetUnitState(OL,UNIT_STATE_MANA,150.*dL/ 640.)
                if dL<1 then
                    set bL=false
                    set CL=48
                    call PauseUnit(OL,true)
                    call SetUnitAnimation(OL,"morph alternate")
                endif
            endif
        elseif CL>0 then
            set CL=CL-1
            if CL<1 then
                call SetUnitNocontrol((IL),DL>0)
                call DeUnitAdef((IL),AL)
                call UnitRemoveAbilityandBuffBY(OL,'A0M3','B04K')
                call PauseUnit(OL,false)
                call UnitAddAbility(OL,'A0MA')
                call UnitRemoveAbility(OL,'A0MA')
                call SetUnitPropWindow(OL,bj_DEGTORAD*GetUnitDefaultPropWindow(OL))
                set AL=0
            endif
        else
            if dL>0 then
                set dL=dL-1
                set m=GetUnitState(OL,UNIT_STATE_MANA)+.046875
            else
                set m=GetUnitState(OL,UNIT_STATE_MANA)-.03125
            endif
            if m>=149.5 then
                set bL=true
                set CL=48
                call SetUnitNocontrol((IL),true)
                call NewTextTagInTarget_B(OL,"Natural chant!!.",18,$9B,$FF,$9B)
                call PauseUnit(OL,true)
                call SetUnitAnimation(OL,"morph")
                call SetUnitState(OL,UNIT_STATE_MANA,$96)
            else
                call SetUnitState(OL,UNIT_STATE_MANA,m)
            endif
        endif
    else
        if AL!=0 then
            call DeUnitAdef((IL),AL)
            set AL=0
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:80")
        call KillUnit(RL)
        call Unit_Cancel_Counter(98,IL)
        set RL=null
    endif
endfunction

function ELe takes nothing returns boolean
    if not bL then
        set dL=96
    endif
    if fL==0 then
        set fL=640+GetRandomInt(-64,64)
        call clv(GetUnitX(OL),GetUnitY(OL))
    endif
    if(mF)!=OL and GetUnitAbilityLevel(OL,'A0M7')==1 and Ymv((mF),'A0M8','B04M',1)then
        if nC[(pF_v)]then
            call zKv((GetPlayerId((GetOwningPlayer((mF))))),55,55,$FF,.27)
            call zhv((GetPlayerId((GetOwningPlayer((mF))))),50,.27)
        endif
        call NewTextTagInTarget_B((mF),"|c0067afebThunder and lightning ("+I2S(R2I(.25*GetDamage()))+")",$A,$FF,$FF,$FF)
        call UnitDamageTargetBY(((OL)),(((mF))),((((.15*GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call Ltv(LAv("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",GetUnitX((mF)),GetUnitY((mF)),2.5))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",(mF),"origin"))
    endif
    return false
endfunction

function Eme takes nothing returns nothing
    local real nZ=GetUnitFlyHeight(OL)-hL
    local unit u
    set hL=hL+2.
    if nZ>0 then
        call SetUnitFlyHeight(OL,nZ,0)
    else
        call NewTextTagInTarget_B(OL,"Let me feel your strength ..",18,$9B,$FF,$9B)
        call GroupEnumUnitsInRange(G,FL,gL,900+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,FL,gL,900)then
                if IsUnitAliveAndEnemyNotAvul(u,OL)then
                    call UnitDamageTargetBY(((OL)),((u)),(((($30D4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call Gjv(u,75,Atan2(GetUnitY(u)-gL,GetUnitX(u)-FL),1,"KnockbackDust.mdx")
                    call m2v(u,1,'A500','B500',true)
                endif
            endif
        endloop
        call SetUnitFlyHeight(OL,0,0)
        call m_v(OL,false)
        call PlaySoundOnUnit_BJ((Sn),(($7F)*1.),(OL))
        call Ltv(Lfv(LAv("AncientExplode.mdl",FL,gL,3),0,$9B,0,$FF))
        call Ltv(LAv("NewDirtEXNofire.mdx",FL,gL,2.5))
        call zHv(90,.5,FL,gL,$3E8)
        call TimerStart(GetExpiredTimer(),.03125,true,function Ele)
    endif
endfunction

function EMe takes nothing returns nothing
    local integer PVv
    local integer i
    local real a
    local real r
    set dL=dL-1
    call SetUnitVertexColor(OL,125,$CD,125,R2I(255.-200.*dL/ 96.))
    if dL>=16 then
        set r=(dL-16.)/ 80.
        set i=R2I(3.-2.*r)
        loop
            exitwhen i==0
            set i=i-1
            set a=GetRandomReal(0,Lx)
            set PVv=CreateBarrageTypeC(FL+($FA+375*r)*Cos(a),gL+($FA+375*r)*Sin(a),GL,OL)
            set s__barrage_speed[PVv]=2.5
            set s__barrage_acceleration[PVv]=3.75+2.5*r
            call SetBarrageFlightRadian(PVv,.3+.15*r)
            if GetRandomInt(1,2)==1 then
                call LMv(s__barrage_model[PVv],"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
                call SetUnitScale(II[(s__barrage_model[PVv])],((3-2*r)*1.),0,0)
            else
                call LMv(s__barrage_model[PVv],"Abilities\\Spells\\Other\\Tornado\\Tornado_Target.mdl")
                call SetUnitScale(II[(s__barrage_model[PVv])],((6-4*r)*1.),0,0)
            endif
            call Lfv(s__barrage_model[PVv],105,$FF,105,105)
            call BOv(PVv)
        endloop
    elseif dL<1 then
        call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",FL,gL,1.5),1.5)
        call TimerStart(GetExpiredTimer(),.03125,true,function Eme)
    endif
endfunction

function Epe takes nothing returns nothing
    local unit u
    set dL=96
    call NewTextTagInTarget_B(OL,"Who unlocked my seal?! !!",18,$9B,$FF,$9B)
    call GroupEnumUnitsInRange(G,FL,gL,900+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,FL,gL,900)then
            if IsUnitAliveAndEnemyNotAvul(u,OL)then
                call UnitAppBuffByLevel((GetUnitUserData((u))),'A0M1',$D00CB,2)
            endif
        endif
    endloop
    call PlaySoundAtPoint_BJ((Qn),(($7F)*1.),((FL)*1.),((gL)*1.),0)
    call Lqv(LAv("Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl",FL,gL,3),3)
    call TimerStart(GetExpiredTimer(),.03125,true,function EMe)
endfunction

function EPe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    if not NL and UnitHasItemOfType(u,'woms')and IsItemCharges(GetItemOfTypeFromUnit(u,'I04W'),21)then
        set NL=true
        set OL=CreateUnit(P[$B],'n030',FL,gL,270)
        set RL=CreateUnit(P[$B],'e02A',EntireMapMaxX,EntireMapMaxY,0)
        set IL=(GetUnitUserData((OL)))
        if UnitAddAbility(OL,'Amrf')then
            call UnitRemoveAbility(OL,'Amrf')
        endif
        call m_v(OL,true)
        call UnitAddShieldTrig((IL),function ELe)
        call Ltv(LAv("NatureExplosion.mdl",GetUnitX(u),GetUnitY(u),1.5))
        call Ltv(LNv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",FL,gL,GL,3))
        call SetUnitFlyHeight(OL,GL,0)
        call SetUnitVertexColor(OL,125,$CD,125,55)
        call RemoveItemG(GetItemOfTypeFromUnit(u,'woms'))
        call RemoveItemByCharges(GetItemOfTypeFromUnit(u,'I04W'),21)
        call TimerStart((NewTimer(0)),1,false,function Epe)
        call Unit_App_Counter(99,IL)
    endif
    set u=null
    return false
endfunction

function Eqe takes nothing returns nothing
    call RegisterEnterRect($6840,$301C,$6900,$3480,function EPe)
endfunction

function EQe takes integer NNv returns boolean
    if JL[NNv]!=null then
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0JD','B03F')
        call DeUnitAdef((NNv),HL[NNv])
        call Unit_Cancel_Counter(100,(NNv))
        set JL[NNv]=null
        return true
    endif
    return false
endfunction

function Ese takes nothing returns nothing
    call EQe(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function ESe takes unit u returns boolean
    return EQe(((GetUnitUserData((u)))))
endfunction

function Ete takes unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if JL[NNv]==null then
        set JL[NNv]=NewTimer(NNv)
        set HL[NNv]=ModifyUnitAdef((NNv),-$A)
        set jL[NNv]=1
        call UnitAddAbilityBY((Je[(NNv)]),'A0JD')
        call Unit_App_Counter(101,(NNv))
    else
        set jL[NNv]=jL[NNv]+1
        call NewTextTagInTarget_B(u,"+"+I2S($A*jL[NNv])+"% Damage reduction",8,$80,$80,$C0)
        call UnitAdefChange((NNv),HL[NNv],-$A*jL[NNv])
    endif
    call TimerStart(JL[NNv],30,false,function Ese)
endfunction

function ETe takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:81")
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0JA','B03D')
    call ModifyUnitHpRegen((NNv),400*kL[NNv])
    call ModifyUnitArmor((NNv),300*kL[NNv])
    call Unit_Cancel_Counter(102,(NNv))
    set KL[NNv]=null
endfunction

function Eue takes unit u,integer mkv returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if KL[NNv]==null then
        set KL[NNv]=NewTimer(NNv)
        set kL[NNv]=mkv
        call ModifyUnitHpRegen((NNv),-400*kL[NNv])
        call ModifyUnitArmor((NNv),-300*kL[NNv])
        call UnitAddAbilityBY((Je[(NNv)]),'A0JA')
        call Unit_App_Counter(103,(NNv))
    elseif mkv>kL[NNv]then
        call ModifyUnitHpRegen((NNv),-400*(mkv-kL[NNv]))
        call ModifyUnitArmor((NNv),-300*(mkv-kL[NNv]))
        set kL[NNv]=mkv
    endif
    call TimerStart(KL[NNv],1,false,function ETe)
endfunction

function EUe takes unit u returns nothing
    if IsUnitInGroup(u,mL)then
        call GroupRemoveUnit(mL,u)
        call ModifyUnitHP((GetUnitUserData((u))),UL*uL[(GetUnitUserData((u)))])
        set uL[(GetUnitUserData((u)))]=0
    endif
endfunction

function Ewe takes unit u,integer c returns nothing
    if GetUnitState(u,UNIT_STATE_MAX_LIFE)<UL*c then
        call KillUnit(u)
    else
        if not IsUnitInGroup(u,mL)then
            call GroupAddUnit(mL,u)
        endif
        set uL[(GetUnitUserData((u)))]=uL[(GetUnitUserData((u)))]+c
        call NewTextTagInTarget_B(u,"-"+I2S(UL*c),$C,$80,$80,$C0)
        call ModifyUnitHP((GetUnitUserData((u))),-UL*c)
    endif
endfunction

function EWe takes nothing returns nothing
    local unit u
    local integer i
    local real x
    local real y
    local real r
    if GetUnitTypeId(LL)==null then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:82")
        call Unit_Cancel_Counter(104,lL)
        set i=8
        loop
            set i=i+1
            if MV[i]!=null and Off_A098_id[(GetUnitUserData((MV[i])))]=='n02V' then
                set Off_A098[(GetUnitUserData((MV[i])))]=false
                set Off_A098_id[(GetUnitUserData((MV[i])))]=0
            endif
            exitwhen i==0
        endloop
    elseif UnitAlive(LL)then
        set pL=pL+1
        set QL=QL+1
        if QL>575 then
            set QL=0
            set i=6
            call GroupEnumUnitsInRect(G,TL[0],null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if UnitAlive(u)and GetUnitTypeId(u)=='h00W' then
                    set i=i-1
                endif
            endloop
            if i>2 then
                set i=2
            endif
            loop
                exitwhen i==0
                set i=i-1
                call cXv(GetRandomReal(GetRectMinX(TL[i])+50,GetRectMaxX(TL[i])-50),GetRandomReal(GetRectMinY(TL[i])+50,GetRectMaxY(TL[i])-50))
            endloop
        endif
        if PL>$9F then
            set PL=PL+1
            if PL==320 then
                call thv("|c008080c00%",GetUnitX(LL),GetUnitY(LL),$96,.075,.05,bj_PI/ 2,2,2.5)
                call SetUnitNocontrol((lL),false)
                set PL=0
            endif
        elseif(Control_use[((GetUnitUserData((LL))))])or GetUnitAbilityLevel(LL,'BUdd')>0 or GetUnitAbilityLevel(LL,'B01N')>0 or GetUnitAbilityLevel(LL,'B06P')>0 then
            set PL=PL+1
            set qL=32
            if ModuloInteger(PL,32)==0 then
                if PL==$A0 then
                    call SetUnitNocontrol((lL),true)
                endif
                call thv("|c008080c0"+I2S(R2I(100.*PL/ 160.))+"%",GetUnitX(LL),GetUnitY(LL),$96,.075,.05,bj_PI/ 2,2,2.5)
            endif
        elseif PL>0 then
            set qL=qL-1
            if qL<1 then
                set PL=0
            endif
        endif
        if ModuloInteger(pL,4)==0 then
            set x=GetRectCenterX(TL[0])
            set y=GetRectCenterY(TL[0])
            set r=(GetRectMaxX(TL[0])-GetRectMinX(TL[0]))/ 2
            call GroupEnumUnitsInRange(G,x,y,r,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,LL)and not IsUnitInRangeXY(u,x,y,$640)then
                    call cRv(u)
                endif
            endloop
            if ModuloInteger(pL,16)==0 then
                set x=GetUnitX(LL)
                set y=GetUnitY(LL)
                call GroupEnumUnitsInRect(G,TL[0],null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,LL)then
                        call Eue(u,ML)
                    endif
                endloop
                if pL==$E0 then
                    set pL=0
                    call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,$3E8)then
                            if GetUnitAbilityLevel(u,'Avul')==0 and GetUnitAbilityLevel(u,'B00W')==0 and IsUnitAliveAndEnemy(u,LL)then
                                call Ete(u)
                            endif
                        endif
                    endloop
                    call Ltv(LAv("DarkWave.mdl",x,y,7.5))
                endif
            endif
        endif
    else
        call FinishingGroup(mL)
        loop
            set u=FirstOfGroup(mL)
            exitwhen u==null
            call GroupRemoveUnit(mL,u)
            call ModifyUnitHP((GetUnitUserData((u))),UL*uL[(GetUnitUserData((u)))])
        endloop
    endif
    set u=null
endfunction

function Eye takes nothing returns boolean
    local unit u
    local real x
    local real y
    if sL>0 and GetUnitState(LL,UNIT_STATE_LIFE)-GetDamage()<.25*sL*SL then
        set sL=sL-1
        set x=GetUnitX(LL)
        set y=GetUnitY(LL)
        call GroupEnumUnitsInRange(G,x,y,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,600)then
                if IsUnitOfPlayerNotseckill(u)then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    call KillUnitBJ(u)
                endif
            endif
        endloop
        call NewTextTagInTarget_B(LL,"This is strength! Overwhelming power!!",18,$80,0,$CD)
        call Ltv(LAv("ShadowSlam.mdx",x,y,3.5))
        call Ltv(LAv("DarkPillar.mdl",x,y,5))
        if sL==1 then
            set ML=2
        endif
    endif
    return false
endfunction

function SkeletalKing_initialize takes nothing returns nothing
    local integer i=3
    loop
        set i=i-1
        call RemoveDestructable(tL[i])
        set tL[i]=null
        exitwhen i==0
    endloop
    set lL=(GetUnitUserData((LL)))
    set mL=NewGroup()
    set SL=GetUnitState(LL,UNIT_STATE_MAX_LIFE)
    call KillUnit(gg_unit_h00N_0558)
    call SetUnitInvulnerable(LL,false)
    call PauseUnit(LL,false)
    call IssuePointOrderById(LL,$D000F,-$C80,-$3C00)
    call TimerStart(GetExpiredTimer(),.03125,true,function EWe)
    call Lqv(LAv("LightStrikeArray.mdx",-$C80,-$3C00,4),1.27)
    call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",-$C80,-$3C00,5))
    call UnitAddBeDamagerTrig((lL),function Eye)
    call Unit_App_Counter(105,lL)
endfunction

function EYe takes nothing returns nothing
    local integer i=4
    set LL=gg_unit_n02V_0560
    set tL[0]=gg_dest_B006_19850
    set TL[0]=gg_rct_WLZS3_______________001
    set TL[1]=gg_rct_WLZS4_______________001
    call SetUnitInvulnerable(LL,true)
    call PauseUnit(LL,true)
endfunction

function Eze takes integer NNv returns nothing
    local integer EZe=R2I(4*ZL[NNv])
    if WL[NNv]<EZe then
        loop
            exitwhen WL[NNv]>=EZe
            call SaveInteger(BYHT,wL[NNv],WL[NNv],LNv("OrbOfCorruption.mdl",GetUnitX(cSv(NNv)),GetUnitY(cSv(NNv)),100,2.5))
            set WL[NNv]=WL[NNv]+1
        endloop
    elseif WL[NNv]>EZe then
        loop
            exitwhen WL[NNv]<=EZe
            set WL[NNv]=WL[NNv]-1
            call Ltv((LoadInteger(BYHT,wL[NNv],WL[NNv])))
        endloop
    endif
endfunction

function E_e takes integer NNv,real eoe returns nothing
    local unit u
    local real x
    local real y
    if yL[NNv]==0 then
        set ZL[NNv]=MinR(ZL[NNv]+eoe,1.)
        if ZL[NNv]>=1 then
            call SetUnitNocontrol((NNv),true)
            set yL[NNv]=320
            set x=GetUnitX((MF))
            set y=GetUnitY((MF))
            call GroupEnumUnitsInRange(G,x,y,600+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600)then
                    if IsUnitOfPlayerNotseckill(u)then
                        call KillUnitBJ(u)
                    endif
                endif
            endloop
            call UnitAddAbilityBY(cSv(NNv),'A0OV')
            call UnitCureTaret(cSv(NNv),cSv(NNv),.25*GetUnitMaxLifeById((NNv)))
            call zHv(50,1,x,y,$4B0)
        endif
    endif
endfunction

function E0e takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function E1e takes integer NNv returns nothing
    if rm[NNv]then
        set im[am[NNv]]=im[NNv]
        set am[im[NNv]]=am[NNv]
        set rm[NNv]=false
        if am[(0)]==0 then
            call frv(nm)
        endif
        call Unit_Cancel_Counter(106,(NNv))
    endif
endfunction

function E2e takes nothing returns boolean
    local integer NNv=am[(0)]
    local integer fx
    local integer i
    local integer cR
    local real x
    local real y
    local real a
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            set zL[NNv]=ModuloInteger(zL[NNv]+1,32)
            set x=GetUnitX((Je[((NNv))]))
            set y=GetUnitY((Je[((NNv))]))
            if yL[NNv]>0 then
                set yL[NNv]=yL[NNv]-1
                if yL[NNv]==0 then
                    call SetUnitNocontrol((NNv),false)
                    set ZL[NNv]=0
                    call UnitRemoveAbilityandBuffBY((Je[((NNv))]),'A0OV','B05G')
                endif
            else
                set ZL[NNv]=MaxR(ZL[NNv]-1./ 1600.,0)
            endif
            if YL[NNv]>0 then
                set YL[NNv]=YL[NNv]-1
                if YL[NNv]==16 then
                    call PauseUnit((Je[((NNv))]),false)
                    call SetUnitPathing((Je[((NNv))]),true)
                    call SetUnitTimeScale((Je[((NNv))]),1)
                    call SetUnitPosition((Je[((NNv))]),em[NNv],xm[NNv])
                    call SetUnitFacingTimed((Je[((NNv))]),vm[NNv],0)
                    call SetUnitVertexColor((Je[((NNv))]),35,35,45,$FF)
                endif
            endif
            call Eze(NNv)
            set i=WL[NNv]
            loop
                exitwhen i==0
                set i=i-1
                set a=(I2R(i)/ WL[NNv]+.03125*zL[NNv])*Lx
                set fx=LoadInteger(BYHT,wL[NNv],i)
                call LKv(fx,x+om*Cos(a))
                call Llv(fx,y+om*Sin(a))
                call SetUnitFacing(II[(fx)],((a+.25*Lx)*1.)*bj_RADTODEG)
                call Lfv(fx,R2I($FF*ZL[NNv]),0,0,$FF)
            endloop
        else
            loop
                exitwhen WL[NNv]==0
                set WL[NNv]=WL[NNv]-1
                call Ltv((LoadInteger(BYHT,wL[NNv],WL[NNv])))
            endloop
            call free(wL[NNv])
            call E1e(NNv)
        endif
        set NNv=am[NNv]
    endloop
    return false
endfunction

function E3e takes integer NNv returns integer
    if not rm[NNv]then
        if am[(0)]==0 then
            if nm==0 then
                set nm=fxv(function E2e)
            endif
            call fov(nm)
        endif
        set am[NNv]=am[(0)]
        set im[am[(0)]]=NNv
        set am[(0)]=NNv
        set im[NNv]=0
        set rm[NNv]=true
        call Unit_App_Counter(107,(NNv))
    endif
    return NNv
endfunction

function E4e takes unit u returns integer
    return E3e((GetUnitUserData((u))))
endfunction

function E5e takes nothing returns boolean
    local integer NNv=(pF_v)
    if Vm!=(MF)then
        call ModifyUnitAttack((NNv),-$9C4*Em)
        call ModifyUnitAttackSpeed((NNv),-5*Em)
        set Vm=(MF)
        set Em=0
    elseif Em<20 then
        set Em=Em+1
        call ModifyUnitAttack((NNv),$9C4)
        call ModifyUnitAttackSpeed((NNv),5)
    endif
    call DestroyEffect(AddSpecialEffectTarget("VampiricAuraTarget.mdl",(Je[((NNv))]),"origin"))
    call UnitCureTaret((mF),(mF),(DAK_AMOUNT[HF]))
    return false
endfunction

function E6e takes nothing returns nothing
    local integer NNv=(pF)
    local real E7e=.15*GetUnitMaxLifeById((NNv))
    local real x
    local real y
    local real a
    local unit u
    if yL[NNv]>0 then
        if yL[NNv]<288 and YL[NNv]==0 and IsUnitInRange((mF),(MF),$5DC)then
            set YL[NNv]=48
            set em[NNv]=GetUnitX((Je[((NNv))]))
            set xm[NNv]=GetUnitY((Je[((NNv))]))
            set vm[NNv]=GetUnitFacing((Je[((NNv))]))
            set x=GetUnitX((mF))
            set y=GetUnitY((mF))
            set a=Atan2(xm[NNv]-y,em[NNv]-x)
            call GroupEnumUnitsInRange(G,x,y,300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,300)then
                    if IsUnitAliveAndEnemy(u,(Je[((NNv))]))then
                        call UnitDamageTargetBY((((Je[((NNv))]))),((u)),((((75000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                        call Gjv(u,275,GetRandomReal(0,Lx),.75,"KnockbackDust.mdx")
                        call zhv((GetPlayerId((GetOwningPlayer((mF))))),50,.75)
                        call zKv((GetPlayerId((GetOwningPlayer((mF))))),$FF,55,55,.75)
                    endif
                endif
            endloop
            call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",x,y,2.5),$FF,55,55,125))
            call Ltv(Lfv(LIv("Units\\Undead\\Abomination\\AbominationExplosion.mdl",x,y,50,1.5,a,30),$9B,0,25,$FF))
            call SetUnitVertexColor((Je[((NNv))]),0,0,0,$9B)
            call PauseUnit((Je[((NNv))]),true)
            call SetUnitPathing((Je[((NNv))]),false)
            call SetUnitX((Je[((NNv))]),x-$E0*Cos(a))
            call SetUnitY((Je[((NNv))]),y-$E0*Sin(a))
            call SetUnitFacingTimed((Je[((NNv))]),bj_RADTODEG*a,0)
            call SetUnitTimeScale((Je[((NNv))]),2)
            call SetUnitAnimation((Je[((NNv))]),"attack")
            call QueueUnitAnimation((Je[((NNv))]),"stand")
        endif
        call DamageMinus(.8*GetDamage())
    elseif GetUnitAbilityLevel((Je[((NNv))]),'Bfrz')==0 then
        call E_e(NNv,GetDamage()/ E7e)
    else
        call E_e(NNv,.5*GetDamage()/ E7e)
    endif
endfunction

function E8e takes unit u returns nothing
    local integer NNv=(E3e((GetUnitUserData(((u))))))
    set wL[NNv]=malloc()
    set zL[NNv]=0
    set yL[NNv]=0
    set YL[NNv]=0
    set ZL[NNv]=0
    call UnitAddPAttackTrig((NNv),function E5e)
    call UnitAddBeDamagerTrig((NNv),function E6e)
endfunction

function NPCAI takes unit csv returns nothing
    local integer id
    local integer klv
    local integer i
    local real l
    if IsUnitType(csv,UNIT_TYPE_GIANT)then
        set klv=GetUnitCurrentOrder(csv)
        if klv==0 or klv==$D0006 or($D000E<klv and klv<$D0013)then
            set i=GetRandomInt(1,100)
            if(mF)==csv then
                set Xm=(MF)
            else
                set Xm=(mF)
            endif
            if i>25 then
                set id=GetUnitTypeId(csv)
                set l=GetWidgetLife(csv)/ GetUnitMaxLifeById((GetUnitUserData((csv))))
                if id=='h00T' then
                    if i>90 and l<=.96 then
                        call IssueImmediateOrderById(csv,$D0081)
                    elseif i>80 and l<=.92 then
                        call IssueTargetOrderById(csv,$D0097,Xm)
                    elseif i>70 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    endif
                elseif id=='n01J' then
                    if i>90 and l<=.96 then
                        call IssueImmediateOrderById(csv,$D0081)
                    elseif i>80 and l<=.8 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>70 and l<=.5 then
                        call IssueImmediateOrderById(csv,$D0084)
                    endif
                elseif id=='n022' then
                    if i>95 then
                        call IssueImmediateOrderById(csv,$D0080)
                    elseif i>90 and l<=.96 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>80 and l<=.92 then
                        call IssueTargetOrderById(csv,$D007F,Xm)
                    endif
                elseif id=='h00F' or id=='h00U' then
                    if i>90 and l<=.96 then
                        call IssueTargetOrderById(csv,$D007F,Xm)
                    elseif i>85 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>80 and l<=.7 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif id=='h00F' and i>75 and l<=.65 then
                        call IssueImmediateOrderById(csv,$D00D4)
                    endif
                elseif id=='h00V' then
                    if i>95 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='n01K' then
                    if i>90 then
                        call IssueImmediateOrderById(csv,$D0080)
                    elseif i>85 and l<=.96 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>80 and l<=.92 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>70 and l<=.5 then
                        call IssueImmediateOrderById(csv,$D0076)
                    endif
                elseif id=='n01W' then
                    if i>90 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>85 and l<=.96 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='h00Y' then
                    if i>96 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>92 and l<=.96 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='h01B' then
                    if i>95 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>90 and l<=.96 then
                        call IssuePointOrderById(csv,$D0079,GetUnitX(Xm),GetUnitY(Xm))
                    endif
                elseif id=='n01N' then
                    if i>90 then
                        call IssueTargetOrderById(csv,$D0097,Xm)
                    elseif i>85 and l<=.96 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>80 and l<=.92 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>70 and l<=.88 then
                        call IssueImmediateOrderById(csv,$D0076)
                    endif
                elseif id=='n01O' then
                    if i>90 then
                        call IssueTargetOrderById(csv,$D007F,Xm)
                    elseif i>85 and l<=.96 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>80 and l<=.92 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>70 and l<=.88 then
                        call IssueImmediateOrderById(csv,$D0084)
                    endif
                elseif id=='n023' then
                    if i>90 and l<=.96 then
                        call IssueImmediateOrderById(csv,$D0081)
                    elseif i>85 then
                        call IssueTargetOrderById(csv,$D0102,Xm)
                    elseif i>80 and l<=.96 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>75 then
                        call IssueTargetOrderById(csv,$D0101,csv)
                    endif
                elseif id=='n01Y' then
                    if i>95 then
                        call IssueImmediateOrderById(csv,$D0048)
                    elseif i>90 and l<=.9 then
                        set Xm=PickRandomUnitInUnitRange(csv,850)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D0270,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    elseif i>30 and l<=.6 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='h01F' then
                    if i>90 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>85 and l<=.96 then
                        call IssueTargetOrderById(csv,$D008A,PickRandomUnitInUnitRange(csv,750))
                    elseif i>80 and l<=.88 then
                        call IssueImmediateOrderById(csv,$D0081)
                    endif
                elseif id=='h010' then
                    if GetUnitState(csv,UNIT_STATE_MANA)>=100 then
                        call IssueImmediateOrderById(csv,$D00D8)
                    elseif i>90 then
                        set Xm=PickRandomUnitInUnitRange(csv,750)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D024B,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    elseif i>85 and l<=.9 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='n02M' then
                    if i>85 and l<=.95 then
                        set Xm=PickRandomUnitInUnitRange(csv,800)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D024B,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    elseif i>75 and l<=.9 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>65 and l<=.85 then
                        call IssueImmediateOrderById(csv,$D0081)
                    elseif i>55 and l<=.8 then
                        call IssueImmediateOrderById(csv,$D00D8)
                    endif
                elseif id=='orai' then
                    if GetUnitAbilityLevel(csv,'Brpm')==0 and i>94 then
                        if i>97 then
                            call IssueTargetOrderById(csv,$D0097,Xm)
                        elseif i>94 and l<=.9 then
                            call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    elseif i<95 and i>92 then
                        call IssueImmediateOrderById(csv,$D0084)
                    endif
                elseif id=='oshm' then
                    if i>97 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>94 and l<=.7 then
                        call IssueImmediateOrderById(csv,$D0048)
                    endif
                elseif id=='hmpr' then
                    if i>97 and l<=.96 then
                        call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>94 and l<=.88 then
                        call IssueImmediateOrderById(csv,$D00D8)
                    elseif i>91 and wK>2 then
                        call IssueTargetOrderById(csv,$D0097,PickRandomVisibleHeroInRange2(csv,$5DC))
                    endif
                elseif id=='h014' then
                    if i>95 then
                        call IssuePointOrderById(csv,$D024B,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>90 and l<=.9 then
                        call IssueImmediateOrderById(csv,$D00D8)
                    endif
                elseif id=='n02L' then
                    if i>95 then
                        call IssuePointOrderById(csv,$D024B,GetUnitX(Xm),GetUnitY(Xm))
                    elseif i>90 and l<=.9 then
                        call IssueImmediateOrderById(csv,$D0084)
                    elseif i>86 and l<=.85 then
                        call IssueImmediateOrderById(csv,$D00D8)
                    elseif i>83 and l<=.65 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='n02V' then
                    if i>90 then
                        set Xm=PickRandomUnitInUnitRange(csv,$3E8)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D024B,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    elseif i>80 and l<=.92 then
                        set Xm=PickRandomUnitInUnitRange(csv,$4B0)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    elseif i>70 and l<=.88 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>60 and l<=.6 then
                        call IssueImmediateOrderById(csv,$D0081)
                    endif
                elseif id=='n02Z' then
                    if i>90 and l<=.95 then
                        set Xm=PickRandomUnitInUnitRange(csv,900)
                        if Xm!=null then
                            call IssueTargetOrderById(csv,$D02BC,Xm)
                        endif
                    elseif i>85 and l<=.8 then
                        call IssueImmediateOrderById(csv,$D0084)
                    endif
                elseif id=='n030' then
                    if i>90 and l<=.94 then
                        call IssueImmediateOrderById(csv,$D0081)
                    elseif i>80 and l<=.9 then
                        call IssueTargetOrderById(csv,$D022F,PickRandomVisibleHeroInRange2(csv,900))
                    elseif i>70 and l<=.86 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='n036' then
                    if i>90 and l<=.96 then
                        set Xm=PickRandomUnitInUnitRange(csv,$96)
                        if Xm!=null and not(PB[((GetUnitUserData((Xm))))])then
                            call IssueTargetOrderById(csv,$D02BC,Xm)
                        endif
                    endif
                elseif id=='n037' then
                    if i>85 and l<=.8 then
                        call IssueImmediateOrderById(csv,$D0048)
                    endif
                elseif id=='n038' then
                    if i>90 and l<=.95 then
                        call IssueImmediateOrderById(csv,$D009F)
                    elseif i>80 and l<=.85 then
                        set Xm=PickRandomUnitInUnitRange(csv,800)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    endif
                elseif id=='h01K' then
                    if i>90 and l<=.9 then
                        call IssueTargetOrderById(csv,$D0097,PickRandomUnitInUnitRange(csv,900))
                    elseif i>80 and l<=.8 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='n033' then
                    if i>90 and l<=.85 then
                        call IssueImmediateOrderById(csv,$D0080)
                    elseif i>80 and l<=.7 then
                        call IssueImmediateOrderById(csv,$D009F)
                    endif
                elseif id=='n02Y' then
                    if i>=90 and l<.95 then
                        set Xm=PickRandomUnitInUnitRange(csv,$4B0)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    elseif i>=85 and l<.9 then
                        set Xm=PickRandomVisibleHeroInRange2(csv,900)
                        if Xm!=null then
                            call IssueTargetOrderById(csv,$D0103,Xm)
                        endif
                    elseif i>=75 and l<.85 then
                        call IssueImmediateOrderById(csv,$D00D8)
                    elseif i>=65 and l<.8 then
                        set Xm=PickRandomVisibleHeroInRange2(csv,$4B0)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D0270,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    endif
                elseif id=='n01Q' then
                    if i>=90 and l<.95 then
                        set Xm=PickRandomUnitInUnitRange(csv,$4B0)
                        if Xm!=null then
                            call IssuePointOrderById(csv,$D009D,GetUnitX(Xm),GetUnitY(Xm))
                        endif
                    endif
                endif
            elseif IsUnitVisible(Xm,GetOwningPlayer(csv))then
                call IssueImmediateOrderById(csv,$D00A0)
            endif
        endif
    endif
endfunction

function Xve takes nothing returns boolean
    call Auxiliary_TargetOrder(('ACam'),null,1,$D00DA,GetTriggerUnit())
    return false
endfunction

function Xee takes nothing returns nothing
    call RegisterSpellEffectEvent('A0LQ',function Xve)
    call RegisterSpellEffectEvent('A0LX',function Xve)
    call RegisterSpellEffectEvent('A0LY',function Xve)
endfunction

function Xxe takes nothing returns integer
    return D9v(Nm)
endfunction

function Xoe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Xre takes nothing returns boolean
    local integer NNv=J[Nm]
    local unit u
    local real x
    local real y
    local real z
    local real dX
    local real dY
    local real p8v
    loop
        exitwhen 0==NNv
        if(GetUnitFlyHeight(II[(Rm[NNv])]))<Am[NNv]then
            set z=(GetUnitFlyHeight(II[(Rm[NNv])]))+.02*Am[NNv]
            call SetUnitFlyHeight(II[(Rm[NNv])],((z)*1.),0)
            call Lfv(Rm[NNv],$FF,$FF,0,R2I(55+z))
            if z>=Am[NNv]then
                if(IsUnitType(((Je[(Om[NNv])])),UNIT_TYPE_GIANT))then
                    call SetUnitScale(II[(Rm[NNv])],((1.25)*1.),0,0)
                else
                    call SetUnitScale(II[(Rm[NNv])],((.5)*1.),0,0)
                endif
                call LMv(Rm[NNv],"Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl")
                call Ltv(LIv("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",(GetUnitX(II[(Rm[NNv])])),(GetUnitY(II[(Rm[NNv])])),z,1.5,0,90))
            endif
        else
            set x=(GetUnitX(II[(Rm[NNv])]))
            set y=(GetUnitY(II[(Rm[NNv])]))
            set dX=GetUnitX((Je[(Om[NNv])]))-x
            set dY=GetUnitY((Je[(Om[NNv])]))-y
            if(IsUnitType(((Je[(Om[NNv])])),UNIT_TYPE_GIANT))then
                call GroupEnumUnitsInRange(G,x,y,96+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,96)then
                        exitwhen GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,(Je[(Om[NNv])]))
                    endif
                endloop
            else
                call GroupEnumUnitsInRange(G,x,y,64+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,64)then
                        exitwhen nC[(GetUnitUserData((u)))]and IsUnitAliveAndAlly(u,(Je[(Om[NNv])]))
                    endif
                endloop
            endif
            if dX*dX+dY*dY<=$510 or u!=null then
                if u==null then
                    call SetUnitState((Je[(Om[NNv])]),UNIT_STATE_MANA,GetUnitState((Je[(Om[NNv])]),UNIT_STATE_MANA)+2.5)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",(Je[(Om[NNv])]),"chest"))
                    if GetUnitTypeId((Je[(Om[NNv])]))=='h010' then
                        call UnitCureTaret((Je[(Om[NNv])]),(Je[(Om[NNv])]),$186A0)
                    elseif GetUnitTypeId((Je[(Om[NNv])]))=='n02M' then
                        call UnitCureTaret((Je[(Om[NNv])]),(Je[(Om[NNv])]),$61A80)
                    elseif GetUnitTypeId((Je[(Om[NNv])]))=='n030' or GetUnitTypeId((Je[(Om[NNv])]))=='n032' then
                        call UnitCureTaret((Je[(Om[NNv])]),(Je[(Om[NNv])]),$AAE60)
                    elseif GetUnitState((Je[(Om[NNv])]),UNIT_STATE_MANA)>=100 then
                        call SetUnitState((Je[(Om[NNv])]),UNIT_STATE_MANA,0)
                        call PlaySoundOnUnit_BJ((Qa),((100)*1.),((Je[(Om[NNv])])))
                        call NewTextTagInTarget_A((Je[(Om[NNv])]),"All over to enlarge(26368) ",$9B,$FF,$9B)
                        call Ltv(Lfv(LAv("AncientExplode.mdl",GetUnitX((Je[(Om[NNv])])),GetUnitY((Je[(Om[NNv])])),1.25),55,55,$FF,$FF))
                        call zHv(40,.5,GetUnitX((Je[(Om[NNv])])),GetUnitY((Je[(Om[NNv])])),600)
                    endif
                else
                    if GetUnitTypeId((Je[(Om[NNv])]))=='h010' then
                        call UnitDamageTargetBY((((Je[(Om[NNv])]))),((u)),(((($BB8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    elseif GetUnitTypeId((Je[(Om[NNv])]))=='n02M' then
                        call UnitDamageTargetBY((((Je[(Om[NNv])]))),((u)),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    elseif GetUnitTypeId((Je[(Om[NNv])]))=='n030' or GetUnitTypeId((Je[(Om[NNv])]))=='n032' then
                        call UnitAppBuff((GetUnitUserData((u))),'A0M1',$D00CB)
                        call UnitDamageTargetBY((((Je[(Om[NNv])]))),((u)),(((($2710)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    else
                        call UnitCureTaret(null,u,$A)
                    endif
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",u,"chest"))
                endif
                call Ltv(Rm[NNv])
                call fvv((NNv))
            else
                if(IsUnitType(((Je[(Om[NNv])])),UNIT_TYPE_GIANT))then
                    set Im[NNv]=Im[NNv]+.05
                else
                    set Im[NNv]=Im[NNv]+.025
                endif
                set p8v=Atan2(dY,dX)
                call LKv(Rm[NNv],x+Im[NNv]*Cos(p8v))
                call Llv(Rm[NNv],y+Im[NNv]*Sin(p8v))
                call SetUnitFacing(II[(Rm[NNv])],((p8v)*1.)*bj_RADTODEG)
            endif
        endif
        set NNv=K[NNv]
    endloop
    set u=null
    return false
endfunction

function Xie takes nothing returns nothing
    set Nm=fxv(function Xre)
endfunction

function Xae takes integer c,real a returns nothing
    local integer NNv=(D9v(Nm))
    local real pwv
    if(IsUnitType(((Je[(c)])),UNIT_TYPE_GIANT))then
        set pwv=GetRandomReal(750,900)
        set Im[NNv]=6
        set Am[NNv]=$C8
    else
        set pwv=GetRandomReal(300,450)
        set Im[NNv]=4
        set Am[NNv]=75
    endif
    set Om[NNv]=c
    set Rm[NNv]=Lnv(GetUnitX((Je[(c)]))+pwv*Cos(a),GetUnitY((Je[(c)]))+pwv*Sin(a),0)
    call LMv(Rm[NNv],"Abilities\\Weapons\\SpiritOfVengeanceMissile\\SpiritOfVengeanceMissile.mdl")
    if(IsUnitType(((Je[(c)])),UNIT_TYPE_GIANT))then
        call SetUnitScale(II[(Rm[NNv])],((5)*1.),0,0)
    else
        call SetUnitScale(II[(Rm[NNv])],((2)*1.),0,0)
    endif
    call Lfv(Rm[NNv],$FF,$FF,$9B,$9B)
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",(GetUnitX(II[(Rm[NNv])])),(GetUnitY(II[(Rm[NNv])]))))
endfunction

function Xne takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Bm[NNv]=Bm[NNv]-1
    call Xae(NNv,Bm[NNv]*Lx/ bm[NNv]+GetRandomReal(-bj_PI/ bm[NNv],bj_PI/ bm[NNv]))
    if Bm[NNv]>0 then
        call TimerStart(GetExpiredTimer(),.075+.00625*Bm[NNv],false,function Xne)
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:83")
        call Unit_Cancel_Counter(108,(NNv))
    endif
endfunction

function XVe takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(NNv)]))
    local real y=GetUnitY((Je[(NNv)]))
    local unit u
    if(IsUnitType(((Je[(NNv)])),UNIT_TYPE_GIANT))then
        set bm[NNv]=6
        call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$3E8)then
                if IsUnitType(u,UNIT_TYPE_HERO)then
                    set bm[NNv]=bm[NNv]+2
                    exitwhen bm[NNv]>=16
                endif
            endif
        endloop
        call SetUnitState((Je[(NNv)]),UNIT_STATE_MANA,GetUnitState((Je[(NNv)]),UNIT_STATE_MANA)+25)
        set u=null
    else
        set bm[NNv]=8
    endif
    call TimerStart(NewTimer(NNv),1./ bm[NNv],false,function Xne)
    call Unit_App_Counter(109,(NNv))
    set Bm[NNv]=bm[NNv]
    return false
endfunction

function XEe takes nothing returns nothing
    call RegisterSpellEffectEvent('A07W',function XVe)
    call RegisterSpellEffectEvent('A0L2',function XVe)
endfunction

function XXe takes nothing returns integer
    return D9v(Hm)
endfunction

function XOe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function XRe takes nothing returns boolean
    local integer NNv=J[Hm]
    local unit u
    loop
        exitwhen 0==NNv
        set Dm[NNv]=Dm[NNv]-1
        if ModuloInteger(Dm[NNv],3)==0 then
            set fm[NNv]=fm[NNv]+gm[NNv]
            set Fm[NNv]=Fm[NNv]+Gm[NNv]
            call GroupEnumUnitsInRange(G,fm[NNv],Fm[NNv],300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,fm[NNv],Fm[NNv],300)then
                    if not IsUnitInGroup(u,Cm[NNv])and IsUnitAliveAndEnemy(u,(Je[(cm[NNv])]))then
                        call GroupAddUnit(Cm[NNv],u)
                        call UnitDamageTargetBY((((Je[(cm[NNv])]))),((u)),((((hm[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",fm[NNv],Fm[NNv],3.25))
        endif
        if Dm[NNv]<1 then
            call RecycleGroup(Cm[NNv])
            call Unit_Cancel_Counter(110,cm[NNv])
            call fvv((NNv))
            set Cm[NNv]=null
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function XIe takes nothing returns nothing
    set Hm=fxv(function XRe)
endfunction

function XAe takes nothing returns boolean
    local integer NNv=(D9v(Hm))
    local real a
    set cm[NNv]=(GetUnitUserData((GetTriggerUnit())))
    set Cm[NNv]=NewGroup()
    set Dm[NNv]=18
    set fm[NNv]=GetUnitX((Je[(cm[NNv])]))
    set Fm[NNv]=GetUnitY((Je[(cm[NNv])]))
    set a=Atan2(GetSpellTargetY()-Fm[NNv],GetSpellTargetX()-fm[NNv])
    set gm[NNv]=$E1*Cos(a)
    set Gm[NNv]=$E1*Sin(a)
    if GetUnitTypeId((Je[(cm[NNv])]))=='h00T' then
        set hm[NNv]=5000
    elseif GetUnitTypeId((Je[(cm[NNv])]))=='n038' then
        set hm[NNv]=$3A98
    else
        set hm[NNv]=$88B8
    endif
    call Unit_App_Counter(111,cm[NNv])
    return false
endfunction

function XNe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Dark Impact",0,$FF,0)
    return false
endfunction

function Xbe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PH',function XAe)
    call RegisterSpellChannelEvent('A0PH',function XNe)
endfunction

function XBe takes integer NNv,unit u returns boolean
    if IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[NNv])then
        call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),((((.25*GetUnitMaxLifeById((GetUnitUserData((u))))+7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call UnitAppBuff((GetUnitUserData((u))),'Aenr',$D00CB)
    endif
    return false
endfunction

function Xce takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function XCe takes nothing returns boolean
    local integer NNv=s__barrage_FR[jm]
    local unit u
    if NNv!=jm then
        call UseBarrage(jm)
        loop
            exitwhen NNv==jm
            if(s__barrage_outside[(NNv)])then
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                call RemoveBarrage((NNv))
            else
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and XBe(NNv,u)then
                                    set u=null
                                    call RemoveBarrage((NNv))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[jm]then
        set s__barrage_InOperation[jm]=false
        call TriggerEvaluate(Ogv)
    endif
    return false
endfunction

function Xde takes nothing returns nothing
    call fov(Jm)
endfunction

function s__MHMissile_stop takes nothing returns nothing
    call frv(Jm)
endfunction

function XDe takes nothing returns nothing
    set Jm=fxv(function XCe)
    call fov(Jm)
endfunction

function Xfe takes integer NNv returns nothing
    call s__barrage_Filling((jm),(NNv))
    if not s__barrage_InOperation[jm]then
        set s__barrage_InOperation[jm]=true
        call fov(Jm)
    endif
endfunction

function XFe takes nothing returns nothing
    set jm=NewLauncher()
    set s__barrage_InOperation[jm]=true
endfunction

function Xge takes unit ckv,real x,real y,real tX,real tY returns nothing
    local integer i=2
    local real dX=tX-x
    local real dY=tY-y
    local real a=Atan2(dY,dX)
    local real pwv=SquareRoot(dX*dX+dY*dY)
    local real aA
    local integer NNv
    if pwv<800 then
        set pwv=800
    endif
    loop
        set i=i-1
        set aA=a+Lx*i/ 11.
        set NNv=CreateBarrageTypeD(x,y,75,x+pwv*Cos(aA),y+pwv*Sin(aA),75)
        set s__barrage_atkunit[NNv]=ckv
        set s__barrage_speed[NNv]=.03125*250.
        set s__barrage_acceleration[NNv]=.03125*.03125*1750.
        call LMv(s__barrage_model[NNv],"OrbOfCorruption.mdl")
        set s__barrage_CollisionRange[NNv]=275
        call SetUnitScale(II[(s__barrage_model[NNv])],((4.75)*1.),0,0)
        call Xfe(NNv)
        exitwhen i==-1
    endloop
    call Ltv(LIv("DarkNova.mdl",x+50*Cos(a),y+50*Sin(a),125,1,a,0))
    call PlaySoundAtPoint_BJ((rn),(($7F)*1.),((x)*1.),((y)*1.),0)
endfunction

function XGe takes nothing returns integer
    return D9v(Lm)
endfunction

function Xhe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function XHe takes nothing returns boolean
    local integer NNv=J[Lm]
    local unit u
    local integer Xje
    local real x
    local real y
    local real tX
    local real tY
    loop
        exitwhen 0==NNv
        set lm[NNv]=lm[NNv]-1
        if lm[NNv]>64 then
            set Xje=32
        else
            set Xje=8
        endif
        if ModuloInteger(lm[NNv],Xje)==0 then
            set x=(GetUnitX(II[(Km[NNv])]))
            set y=(GetUnitY(II[(Km[NNv])]))
            call GroupEnumUnitsInRange(G,x,y,325+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,325)then
                    if IsUnitAliveAndEnemy(u,(Je[(km[NNv])]))then
                        if nC[(GetUnitUserData((u)))]then
                            call zhv((GetPlayerId((GetOwningPlayer(u)))),30,.5)
                            call SetUnitAnimation(u,"death")
                        endif
                        call UnitDamageTargetBY((((Je[(km[NNv])]))),((u)),(((($7D0+.1*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m2v(u,.5,'A500','B500',true)
                    endif
                endif
            endloop
            if UnitAlive((Je[(km[NNv])]))and IsUnitInRangeXY((Je[(km[NNv])]),x,y,275)and not IsUnitPaused((Je[(km[NNv])]))then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(Je[(km[NNv])]),"origin"))
                call UnitCureTaret(null,(Je[(km[NNv])]),.025*GetUnitMaxLifeById((km[NNv])))
            endif
            call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\HowlOfTerror\\HowlCaster.mdl",x,y,2.125),$FF,25,$FF,$FF))
        endif
        if lm[NNv]<1 then
            if UnitAlive((Je[(km[NNv])]))and not IsUnitPaused((Je[(km[NNv])]))and not IsUnitInRangeXY((Je[(km[NNv])]),x,y,275)then
                set tX=GetUnitX((Je[(km[NNv])]))
                set tY=GetUnitY((Je[(km[NNv])]))
                call SetUnitPosition((Je[(km[NNv])]),x,y)
                call SetUnitFacingTimed((Je[(km[NNv])]),bj_RADTODEG*Atan2(tY-y,tX-x),0)
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportCaster.mdl",(Je[(km[NNv])]),"origin"))
                call mZv((Je[(km[NNv])]),"attack",1)
                call NewTextTagInTarget_A((Je[(km[NNv])]),"So many people here! ..",$9B,25,2)
                call Xge((Je[(km[NNv])]),x,y,tX,tY)
            endif
            call Unit_Cancel_Counter(112,km[NNv])
            call Lsv(Km[NNv],.5)
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function XJe takes nothing returns nothing
    set Lm=fxv(function XHe)
endfunction

function Xke takes nothing returns boolean
    local integer NNv=(D9v(Lm))
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    set km[NNv]=(GetUnitUserData((u)))
    if GetRandomInt(1,2)==1 then
        set u=PickRandomVisibleHeroInRange(u,x,y,$4B0)
        if u!=null then
            set x=GetUnitX(u)
            set y=GetUnitY(u)
        endif
    endif
    set Km[NNv]=Lfv(LAv("Abilities\\Spells\\Undead\\VampiricAura\\VampiricAura.mdl",x,y,4),$FF,25,$FF,$FF)
    set lm[NNv]=$C0
    call NewTextTagInTarget_A((Je[(km[NNv])]),"Come and dance with me!",$9B,25,2)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,5),$FF,25,$FF,$FF))
    call Unit_App_Counter(113,km[NNv])
    set u=null
    return false
endfunction

function XKe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PF',function Xke)
endfunction

function Xle takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function XLe takes integer NNv returns nothing
    if Sm[NNv]then
        set tm[Tm[NNv]]=tm[NNv]
        set Tm[tm[NNv]]=Tm[NNv]
        set Sm[NNv]=false
        if Tm[(0)]==0 then
            call frv(um)
        endif
        call Unit_Cancel_Counter(114,(NNv))
    endif
endfunction

function Xme takes nothing returns boolean
    local integer NNv=Tm[(0)]
    local integer cFv
    local unit u
    local lightning l
    local boolean b
    local integer i
    local integer iI
    local real x
    local real y
    local real a
    local real pX
    local real pY
    local real r
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            set pm[NNv]=pm[NNv]-1
            set x=GetUnitX((Je[((NNv))]))
            set y=GetUnitY((Je[((NNv))]))
            call LKv(Mm[NNv],x)
            call Llv(Mm[NNv],y)
            if pm[NNv]<=384 and pm[NNv]>0 and ModuloInteger(pm[NNv],48)==0 then
                if Pm[NNv]==0 then
                    set Pm[NNv]=GetRandomInt(1,2)
                    set iI=4+4*Pm[NNv]
                    set r=sm*Pm[NNv]/ 3.
                else
                    call GroupEnumUnitsInRange(G,x,y,sm+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,sm)then
                            if IsUnitAliveAndEnemyNotAvul(u,(Je[((NNv))]))then
                                if Pm[NNv]==1 then
                                    set b=IsUnitInRangeXY(u,x,y,.5*sm)
                                else
                                    set b=not IsUnitInRangeXY(u,x,y,.5*sm)
                                endif
                                if b then
                                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                                    call m2v(u,3,'A500','B500',true)
                                endif
                            endif
                        endif
                    endloop
                    set iI=4+4*Pm[NNv]
                    set r=Pm[NNv]*sm/ 3.
                    set Pm[NNv]=0
                endif
                set i=iI
                loop
                    set i=i-1
                    set a=i*Lx/ iI
                    if Pm[NNv]>0 then
                        call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x+r*Cos(a),y+r*Sin(a),2.5))
                    else
                        call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+r*Cos(a),y+r*Sin(a),5))
                    endif
                    exitwhen i==0
                endloop
            endif
            if pm[NNv]<384 then
                set r=1
                set b=true
                set qm[NNv]=qm[NNv]+Lx/ 576.
                if ModuloInteger(pm[NNv],16)==0 then
                    call GroupEnumUnitsInRange(G,x,y,$708+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,$708)then
                            if IsUnitAliveAndEnemy(u,(Je[((NNv))]))and GetUnitAbilityLevel(u,'A04P')==0 then
                                set b=false
                                if not IsUnitInRangeXY(u,x,y,sm)and IsUnitAliveAndEnemyNotAvul(u,(Je[((NNv))]))then
                                    set a=GetRandomReal(0,Lx)
                                    if nC[(GetUnitUserData((u)))]then
                                        call zKv((GetPlayerId((GetOwningPlayer(u)))),$FF,27,27,.27)
                                    endif
                                    call SetUnitPosition(u,x+$A0*Cos(a),y+$A0*Sin(a))
                                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportCaster.mdl",u,"origin"))
                                    call m2v(u,1,'A500','B500',true)
                                endif
                            endif
                        endif
                    endloop
                    if b then
                        call SetUnitState((Je[((NNv))]),UNIT_STATE_MANA,GetUnitState((Je[((NNv))]),UNIT_STATE_MANA)+2)
                    endif
                endif
            else
                set r=1.-(pm[NNv]-384.)/ 96.
                if pm[NNv]==384 then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(Je[((NNv))]),"origin"))
                    call NewTextTagInTarget_A((Je[((NNv))]),"Wheel of despair !",$9B,25,2)
                endif
            endif
            set i=5
            loop
                set i=i-1
                set a=qm[NNv]+i*Lx/ 5.
                set l=ConvertVersion(LoadInteger(BYHT2,(mm[NNv]),2*i))
                set cFv=LoadInteger(BYHT,mm[NNv],2*i+1)
                set pX=x+sm*r*Cos(a)
                set pY=y+sm*r*Sin(a)
                call LKv(cFv,pX)
                call Llv(cFv,pY)
                if r==1 then
                    call SetUnitFacing(II[(cFv)],((a+.25*Lx)*1.)*bj_RADTODEG)
                    call p2v(Qm,x,y,pX,pY,64)
                    loop
                        set u=FirstOfGroup(Qm)
                        exitwhen u==null
                        call GroupRemoveUnit(Qm,u)
                        if IsUnitOfPlayerNotseckill(u)then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"chest"))
                            call KillUnitBJ(u)
                        endif
                    endloop
                endif
                call SetLightningColor(l,1,.5,.5,r)
                call MoveLightningEx(l,false,x,y,60,pX,pY,60)
                exitwhen i==0
            endloop
        else
            set pm[NNv]=0
        endif
        if pm[NNv]<1 then
            set i=5
            loop
                set i=i-1
                call DestroyLightning(ConvertVersion(LoadInteger(BYHT2,(mm[NNv]),2*i)))
                call Ltv((LoadInteger(BYHT,mm[NNv],2*i+1)))
                exitwhen i==0
            endloop
            call PauseUnit((Je[((NNv))]),false)
            call SetUnitTimeScale((Je[((NNv))]),1)
            call Lsv(Mm[NNv],1)
            call free(mm[NNv])
            call XLe(NNv)
        endif
        set NNv=Tm[NNv]
    endloop
    return false
endfunction

function XMe takes integer NNv returns boolean
    if not Sm[NNv]then
        if Tm[(0)]==0 then
            if um==0 then
                set um=fxv(function Xme)
            endif
            call fov(um)
        endif
        set Tm[NNv]=Tm[(0)]
        set tm[Tm[(0)]]=NNv
        set Tm[(0)]=NNv
        set tm[NNv]=0
        set Sm[NNv]=true
        call Unit_App_Counter(115,(NNv))
        return true
    endif
    return false
endfunction

function Xpe takes unit ckv returns nothing
    local integer NNv=(GetUnitUserData((ckv)))
    local integer i=5
    local integer cFv
    local lightning l
    local unit u
    local real x
    local real y
    local real a
    if GetWidgetLife(ckv)/ GetUnitMaxLifeById((NNv))<.5 and GetUnitState(ckv,UNIT_STATE_MANA)==50 and XMe(NNv)then
        if Qm==null then
            set Qm=CreateGroup()
        endif
        set mm[NNv]=malloc()
        set x=GetUnitX((Je[((NNv))]))
        set y=GetUnitY((Je[((NNv))]))
        set Mm[NNv]=Lfv(LAv("Abilities\\Spells\\Undead\\UnholyAura\\UnholyAura.mdl",x,y,$C),$FF,0,0,$CD)
        set pm[NNv]=480
        set Pm[NNv]=0
        set qm[NNv]=0
        set MB[(NNv)]=true
        loop
            set i=i-1
            set a=i*Lx/ 5.
            set l=AddLightningEx("AFOD",false,x,y,60,x,y,60)
            set cFv=Lnv(x,y,a)
            call LMv(cFv,"Dark Malice.mdl")
            call SetUnitScale(II[(cFv)],((3)*1.),0,0)
            call SetUnitFlyHeight(II[(cFv)],((100)*1.),0)
            call SaveInteger(BYHT2,(mm[NNv]),2*i,GetHandleId(l))
            call SaveInteger(BYHT,mm[NNv],2*i+1,cFv)
            call SetLightningColor(l,1,.5,.5,0)
            call Lfv(cFv,55,25,25,$FF)
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,$708+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$708)then
                if IsUnitAliveAndEnemyNotAvul(u,(Je[((NNv))]))then
                    set a=GetRandomReal(0,Lx)
                    if nC[(GetUnitUserData((u)))]then
                        call zKv((GetPlayerId((GetOwningPlayer(u)))),$FF,27,27,.27)
                    endif
                    call SetUnitPosition(u,x+$A0*Cos(a),y+$A0*Sin(a))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportCaster.mdl",u,"origin"))
                    call m2v(u,1,'A500','B500',true)
                endif
            endif
        endloop
        call NewTextTagInTarget_A((Je[((NNv))]),"Wheel of your destiny! !",$9B,25,2)
        call PlaySoundOnUnit_BJ((Za),(($7F)*1.),((Je[((NNv))])))
        call SetUnitState((Je[((NNv))]),UNIT_STATE_MANA,0)
        call PauseUnit((Je[((NNv))]),true)
        call SetUnitTimeScale((Je[((NNv))]),.1)
        call SetUnitAnimation((Je[((NNv))]),"attack")
        call QueueUnitAnimation((Je[((NNv))]),"stand")
        set l=null
    endif
endfunction

function XPe takes integer NNv returns boolean
    local real x=s__barrage_X[NNv]
    local real y=s__barrage_Y[NNv]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])then
                call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),((((7500+.375*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call Gjv(u,125,GetRandomReal(0,Lx),1,"KnockbackDust.mdx")
                call UnitAppBuff((GetUnitUserData((u))),'A0OY',$D006B)
            endif
        endif
    endloop
    call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,.875),125,0,0,$FF))
    call Ltv(LAv("uberdarkwave.mdl",x,y,.375))
    return true
endfunction

function Xqe takes integer NNv,unit u returns boolean
    return IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])
endfunction

function XQe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function Xse takes nothing returns boolean
    local integer NNv=s__barrage_FR[Um]
    local unit u
    if NNv!=Um then
        call UseBarrage(Um)
        loop
            exitwhen NNv==Um
            if(s__barrage_outside[(NNv)])then
                call XPe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if XPe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            else
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and Xqe(NNv,u)then
                                    set u=null
                                    call XPe(NNv)
                                    call RemoveBarrage((NNv))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[Um]then
        set s__barrage_InOperation[Um]=false
        call TriggerEvaluate(Ohv)
    endif
    return false
endfunction

function XSe takes nothing returns nothing
    call fov(wm)
endfunction

function s__GoTMissile_stop takes nothing returns nothing
    call frv(wm)
endfunction

function Xte takes nothing returns nothing
    set wm=fxv(function Xse)
    call fov(wm)
endfunction

function XTe takes integer NNv returns nothing
    call s__barrage_Filling((Um),(NNv))
    if not s__barrage_InOperation[Um]then
        set s__barrage_InOperation[Um]=true
        call fov(wm)
    endif
endfunction

function Xue takes nothing returns nothing
    set Um=NewLauncher()
    set s__barrage_InOperation[Um]=true
endfunction

function XUe takes integer c,integer fx,real x,real y returns nothing
    local integer NNv=CreateBarrageTypeE(fx,x,y,75)
    set s__barrage_atkunit[NNv]=(Je[(c)])
    set s__barrage_CollisionRange[NNv]=$9C
    set s__barrage_speed[NNv]=.03125*$FA
    set s__barrage_acceleration[NNv]=.03125*.03125*750
    call XTe(NNv)
endfunction

function Xwe takes nothing returns integer
    return D9v(xM)
endfunction

function XWe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Xye takes nothing returns boolean
    local integer NNv=J[xM]
    local real x
    local real y
    loop
        exitwhen 0==NNv
        set Zm[NNv]=Zm[NNv]-1
        set vM[NNv]=vM[NNv]+Lx/ 128.
        set x=GetUnitX((Je[(ym[NNv])]))
        set y=GetUnitY((Je[(ym[NNv])]))
        call LKv(Ym[NNv],x+eM*Cos(vM[NNv]))
        call Llv(Ym[NNv],y+eM*Sin(vM[NNv]))
        call LKv(zm[NNv],x-eM*Cos(vM[NNv]))
        call Llv(zm[NNv],y-eM*Sin(vM[NNv]))
        if Zm[NNv]<1 then
            call XUe(Wm[NNv],Ym[NNv],x,y)
            call XUe(Wm[NNv],zm[NNv],x,y)
            call Unit_Cancel_Counter(116,Wm[NNv])
            call Unit_Cancel_Counter(117,ym[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function XYe takes nothing returns nothing
    set xM=fxv(function Xye)
endfunction

function Xze takes nothing returns boolean
    local integer NNv=(D9v(xM))
    local real x
    local real y
    set Wm[NNv]=(GetUnitUserData((GetTriggerUnit())))
    set ym[NNv]=(GetUnitUserData((GetSpellTargetUnit())))
    set x=GetUnitX((Je[(ym[NNv])]))
    set y=GetUnitY((Je[(ym[NNv])]))
    set vM[NNv]=Mvv((Je[(Wm[NNv])]),(Je[(ym[NNv])]))+.25*Lx
    set Ym[NNv]=Lfv(LNv("Evil Bomb.mdx",x+eM*Cos(vM[NNv]),y+eM*Sin(vM[NNv]),75,2.5),$9B,25,25,$FF)
    set zm[NNv]=Lfv(LNv("Evil Bomb.mdx",x-eM*Cos(vM[NNv]),y-eM*Sin(vM[NNv]),75,2.5),$9B,25,25,$FF)
    set Zm[NNv]=48+GetRandomInt(0,$80)
    call m1v((Je[(ym[NNv])]),1)
    call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,2.5))
    call LFv(Ym[NNv],"Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl")
    call LFv(zm[NNv],"Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl")
    call Unit_App_Counter(118,Wm[NNv])
    call Unit_App_Counter(119,ym[NNv])
    return false
endfunction

function XZe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0OU',function Xze)
endfunction

function X_e takes nothing returns integer
    return D9v(XM)
endfunction

function X0e takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function X1e takes nothing returns boolean
    local integer NNv=J[XM]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==NNv
        if aM[NNv]==0 then
            if UnitAlive((Je[(iM[NNv])]))then
                set nM[NNv]=nM[NNv]-1
                if nM[NNv]>32 then
                    set VM[NNv]=GetUnitX((Je[(iM[NNv])]))
                    set EM[NNv]=GetUnitY((Je[(iM[NNv])]))
                endif
            else
                set nM[NNv]=0
            endif
            if ModuloInteger(nM[NNv],16)==0 then
                set x=VM[NNv]
                set y=EM[NNv]
                call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,2))
                if nM[NNv]<1 then
                    set aM[NNv]=Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",x,y,2.75),$FF,25,25,$FF)
                    set nM[NNv]=480
                    call GroupEnumUnitsInRange(G,x,y,325+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,325)then
                            if IsUnitAliveAndEnemy(u,(Je[(oM[NNv])]))then
                                call UnitDamageTargetBY((((Je[(oM[NNv])]))),((u)),((((5000+.75*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                call m1v(u,2.5)
                            endif
                        endif
                    endloop
                    call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",x,y,3),$FF,25,25,125))
                    call LQv(Lbv(LVv('e02W',x,y,0),5,1.5),1.25)
                    call Unit_Cancel_Counter(120,iM[NNv])
                endif
            endif
        else
            set nM[NNv]=nM[NNv]-1
            if ModuloInteger(nM[NNv],32)==0 then
                set x=(GetUnitX(II[(aM[NNv])]))
                set y=(GetUnitY(II[(aM[NNv])]))
                call GroupEnumUnitsInRange(G,x,y,300+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,300)then
                        if IsUnitAliveAndEnemy(u,(Je[(oM[NNv])]))then
                            call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedDamage.mdl",u,"chest",1)
                            call UnitDamageTargetBY((((Je[(oM[NNv])]))),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,.5)
                        elseif u==(Je[(oM[NNv])])and UnitAlive(u)then
                            call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedDamage.mdl",u,"chest",1)
                            call E_e((oM[NNv]),.075)
                        endif
                    endif
                endloop
                if nM[NNv]<1 then
                    call Unit_Cancel_Counter(121,oM[NNv])
                    call Ltv(aM[NNv])
                    call fvv((NNv))
                endif
            endif
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function X2e takes nothing returns nothing
    set XM=fxv(function X1e)
endfunction

function X3e takes integer ckv,unit u,integer h returns nothing
    local integer NNv=(D9v(XM))
    set oM[NNv]=ckv
    set iM[NNv]=(GetUnitUserData((u)))
    set aM[NNv]=0
    set nM[NNv]=48*(h+1)
    set VM[NNv]=GetUnitX((Je[(iM[NNv])]))
    set EM[NNv]=GetUnitY((Je[(iM[NNv])]))
    call NewTextTagInTarget_B(u,"-"+I2S(h)+"-",18,$FF,55,55)
    call Unit_App_Counter(122,oM[NNv])
    call Unit_App_Counter(123,iM[NNv])
endfunction

function X4e takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:84")
    local unit c=(Je[(NNv)])
    local unit u
    local integer i=$C
    local integer VZe=0
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local integer id
    if UnitAlive(c)then
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                if IsUnitAliveAndEnemy(u,c)then
                    set id=(GetUnitUserData((u)))
                    call Globals_Shield_Remove((id))
                    call sc___prototype15_evaluate(2,(id))
                    call sc___prototype15_evaluate(3,(id))
                    call UnitDamageTargetBY(((c)),((u)),((((1.25*GetWidgetLife(u))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                    if UnitAlive(u)and nC[(GetUnitUserData((u)))]then
                        set VZe=VZe+1
                    endif
                endif
            endif
        endloop
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0OX','B05H')
        call Ltv(LAv("DeathBladeRegeneration.mdx",x,y,5))
        call LQv(LAv("DarkLightningNova.mdx",x,y,5),2.5)
        call Ltv(LAv("Grin Curse.mdx",x,y,3))
        if VZe<2 then
            call StartSound(Za)
            call ModifyUnitMagicDamage((NNv),25)
            call ModifyUnitAdef((NNv),12.5)
            call E_e((NNv),.75)
            call NewTextTagInTarget_B(c,"This...We are successful! !",$C,$FF,105,105)
            call Ltv(LAv("BloodWave.mdx",x,y,3))
        endif
        set VZe=0
        call GroupEnumUnitsInRange(G,x,y,$4B0+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$4B0)then
                if nC[(GetUnitUserData((u)))]and IsUnitAliveAndEnemy(u,c)then
                    set VZe=VZe+1
                    call X3e(NNv,u,VZe)
                    exitwhen VZe==3
                endif
            endif
        endloop
    endif
    set c=null
endfunction

function X5e takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(NNv)]))
    local real y=GetUnitY((Je[(NNv)]))
    call UnitAddAbilityBY((Je[(NNv)]),'A0OX')
    call Ltv(LAv("BlackChakraExplosion.mdx",x,y,3))
    call LQv(LAv("DarkLightningNova.mdx",x,y,3),2.5)
    call Ltv(LAv("Grin Curse.mdx",x,y,1.5))
    call TimerStart(NewTimer(NNv),3,false,function X4e)
    call NewTextTagInTarget_B((Je[(NNv)]),"This road nowhere, you will hang up ~ !",$C,$FF,105,105)
    return false
endfunction

function X6e takes nothing returns nothing
    call RegisterSpellEffectEvent('A0OW',function X5e)
endfunction

function X7e takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u=c
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    call GroupEnumUnitsInRange(G,x,y,550+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,550)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),((((.75*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call Gjv(u,$AF,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),1.25,"KnockbackDust.mdl")
                call zhv((GetPlayerId((GetOwningPlayer(u)))),50,.5)
                call zKv((GetPlayerId((GetOwningPlayer(u)))),$7F,$7F,$7F,.5)
            endif
        endif
    endloop
    call Ltv(LAv("uberdarkwave.mdl",x,y,.8))
    set c=null
    return false
endfunction

function X8e takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer NNv=(alloc__hpv(GetHandleId((t))))
    if UnitAlive((Je[(NNv)]))and UnitAlive((Je[(OM[NNv])]))and not(Control_use[((NNv))])and(Control_use[((OM[NNv]))])then
        set RM[NNv]=RM[NNv]+1
        if RM[NNv]==16 then
            set RM[NNv]=0
            call NewTextTagInTarget_B((Je[(NNv)]),"|c007387ffI tear you!!",$C,$FF,$FF,$FF)
            call SetUnitAnimation((Je[(NNv)]),"death")
            call UnitDamageTargetBY((((Je[(NNv)]))),(((Je[(OM[NNv])]))),((((.05*GetUnitState((Je[(OM[NNv])]),UNIT_STATE_MAX_LIFE))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",(Je[(OM[NNv])]),"chest"))
            call PlaySoundOnUnit_BJ((En),((100)*1.),((Je[(OM[NNv])])))
        endif
    else
        if UnitAlive((Je[(NNv)]))then
            call QueueUnitAnimation((Je[(NNv)]),"Stand")
        endif
        call ReleaseTimer(t,"[TimerUtils]Error:85")
        if(Control_abid[(OM[NNv])])=='A500' then
            call UnitCloseControl(OM[NNv])
        endif
        call PauseUnit((Je[(NNv)]),false)
        call Unit_Cancel_Counter(124,(NNv))
        call Unit_Cancel_Counter(125,OM[NNv])
    endif
    set t=null
endfunction

function X9e takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local real a=bj_DEGTORAD*GetUnitFacing((Je[(NNv)]))
    set OM[NNv]=(GetUnitUserData((GetSpellTargetUnit())))
    set RM[NNv]=0
    call m1v((Je[(OM[NNv])]),120)
    call PauseUnit((Je[(NNv)]),true)
    call GJv((Je[(OM[NNv])]),GetUnitX((Je[(NNv)]))+80*Cos(a),GetUnitY((Je[(NNv)]))+80*Sin(a),.125)
    call TimerStart(NewTimer(NNv),.03125,true,function X8e)
    call Unit_App_Counter($7E,(NNv))
    call Unit_App_Counter($7F,OM[NNv])
    return false
endfunction

function Ove takes nothing returns boolean
    if GetUnitTypeId(GetSpellTargetUnit())=='n01Y' then
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    else
        call DestroyEffect(AddSpecialEffectTarget("SuperShinyThingy.mdl",GetTriggerUnit(),"hand right"))
        call DestroyEffect(AddSpecialEffectTarget("SuperShinyThingy.mdl",GetTriggerUnit(),"hand left"))
    endif
    return false
endfunction

function Oee takes nothing returns nothing
    call RegisterSpellEffectEvent('A0B2',function X9e)
    call RegisterSpellChannelEvent('A0B2',function Ove)
endfunction

function Oxe takes nothing returns nothing
    local real eoe=.25+.75*(80.-NM)/ 80.
    local real x=(GetUnitX(II[(AM)]))+eoe*bM
    local real y=(GetUnitY(II[(AM)]))+eoe*BM
    local real r=$C8+$C8*eoe
    local real a=300*eoe
    local real d=6000*eoe
    local unit u
    call LKv(AM,x)
    call Llv(AM,y)
    call SetUnitScale(II[(AM)],((2*eoe)*1.),0,0)
    set NM=NM-1
    if ModuloInteger(NM,4)==0 then
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+GetRandomReal(-a,a),y+GetRandomReal(-a,a),1.25*eoe))
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+GetRandomReal(-a,a),y+GetRandomReal(-a,a),1.25*eoe))
    endif
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            if not IsUnitInGroup(u,cM)and IsUnitAliveAndEnemy(u,(Je[(IM)]))then
                call GroupAddUnit(cM,u)
                call DestroyEffect(AddSpecialEffectTarget("AquaSpike.mdl",u,"origin"))
                call UnitDamageTargetBY((((Je[(IM)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    if NM<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:86")
        call RecycleGroup(cM)
        call Unit_Cancel_Counter($80,IM)
        call Ltv(AM)
        set cM=null
    endif
endfunction

function Ooe takes nothing returns boolean
    local real a
    set IM=(GetUnitUserData((GetTriggerUnit())))
    set a=bj_DEGTORAD*GetUnitFacing((Je[(IM)]))
    set cM=NewGroup()
    set NM=80
    set bM=40*Cos(a)
    set BM=40*Sin(a)
    set AM=Lnv(GetUnitX((Je[(IM)]))-20*bM,GetUnitY((Je[(IM)]))-20*BM,a)
    call LMv(AM,"Abilities\\Spells\\Other\\CrushingWave\\CrushingWaveMissile.mdl")
    call SetUnitScale(II[(AM)],((.5)*1.),0,0)
    call TimerStart((NewTimer(0)),.03125,true,function Oxe)
    call Unit_App_Counter($81,IM)
    return false
endfunction

function Ore takes nothing returns boolean
    call Ltv(LAv("Abilities\\Spells\\Undead\\ReplenishMana\\ReplenishManaCaster.mdl",GetSpellTargetX(),GetSpellTargetY(),4))
    call NewTextTagInTarget_A(GetTriggerUnit(),"MRGLMRGL",0,$FF,0)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",GetTriggerUnit(),"origin"))
    call PlaySoundOnUnit_BJ((Xn),((125)*1.),(GetTriggerUnit()))
    return false
endfunction

function Oie takes nothing returns nothing
    call RegisterSpellEffectEvent('A0BA',function Ooe)
    call RegisterSpellChannelEvent('A0BA',function Ore)
endfunction

function Oae takes nothing returns nothing
    local integer r=R2I(255.*DM/ 288.)
    local integer g=R2I(155.*DM/ 288.)
    local integer b=R2I(155.*DM/ 288.)
    if r<55 then
        set r=55
    endif
    if g<55 then
        set g=55
    endif
    if b<0 then
        set b=0
    endif
    set DM=DM-1
    call SetUnitVertexColor((Je[(CM)]),r,g,b,$FF)
    if not UnitAlive((Je[(CM)]))or DM<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:87")
        call UnitRemoveAbility((Je[(CM)]),'Rspm')
        call SetUnitVertexColor((Je[(CM)]),$FF,$9B,$9B,$FF)
        call s__Trig_remove((dM))
        call Unit_Cancel_Counter($82,CM)
    endif
endfunction

function One takes nothing returns boolean
    local real r=(288.-DM)/ 96.
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local integer fx=Lnv(x,y,Atan2(GetUnitY((mF))-y,GetUnitX((mF))-x))
    call LMv(fx,"Royal Guard.mdl")
    call SetUnitScale(II[(fx)],((1.5)*1.),0,0)
    if r>.75 then
        set r=.75
    endif
    if GetRandomInt(1,8)==1 then
        call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdl",(mF),"chest"))
    else
        call DestroyEffect(AddSpecialEffectTarget("blood damage impact.mdl",(mF),"chest"))
    endif
    call zhv((GetPlayerId((GetOwningPlayer((mF))))),$F,.25)
    call UnitDamageTargetBY((((MF))),(((mF))),((((r*GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    call DamageMinus(r*GetDamage())
    call Ltv(Lfv(fx,$FF,$FF,125,$CD))
    return false
endfunction

function OVe takes nothing returns boolean
    local real a
    set CM=(GetUnitUserData((GetTriggerUnit())))
    set dM=UnitAddShieldTrigB((CM),function One)
    set DM=288
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Avatar\\AvatarCaster.mdl",(Je[(CM)]),"chest"))
    call TimerStart((NewTimer(0)),.03125,true,function Oae)
    call Unit_App_Counter($83,CM)
    return false
endfunction

function OEe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0BB',function OVe)
endfunction

function OXe takes integer NNv returns boolean
    if GetUnitAbilityLevel(JK,'B04A')==1 then
        call Lfv(s__barrage_model[NNv],GetRandomInt(0,$FF),GetRandomInt(0,$FF),GetRandomInt(0,$FF),$FF)
    else
        call Lfv(s__barrage_model[NNv],$FF,55,55,$FF)
    endif
    return false
endfunction

function OOe takes integer NNv returns boolean
    local real x=s__barrage_X[NNv]
    local real y=s__barrage_Y[NNv]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$AF+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$AF)then
            if IsUnitAliveAndEnemy(u,JK)then
                call UnitDamageTargetBY(((JK)),((u)),(((($FA0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                if GetUnitAbilityLevel(JK,'B04A')==1 then
                    call Gjv(u,62.5,GetRandomReal(0,Lx),.375,"KnockbackDust.mdx")
                    call m2v(u,.375,'A500','B500',true)
                else
                    call m2v(u,.25,'A500','B500',true)
                endif
            endif
        endif
    endloop
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.5),$9B,$9B,$9B,$9B))
    call LTv(fM[NNv])
    return true
endfunction

function ORe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function OIe takes nothing returns boolean
    local integer NNv=s__barrage_FR[FM]
    local unit u
    if NNv!=FM then
        call UseBarrage(FM)
        loop
            exitwhen NNv==FM
            if(s__barrage_outside[(NNv)])then
                call OOe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if OOe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            else
                if OXe(NNv)then
                    call RemoveBarrage((NNv))
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[FM]then
        set s__barrage_InOperation[FM]=false
        call TriggerEvaluate(OHv)
    endif
    return false
endfunction

function OAe takes nothing returns nothing
    call fov(gM)
endfunction

function s__FlamingWrath_stop takes nothing returns nothing
    call frv(gM)
endfunction

function ONe takes nothing returns nothing
    set gM=fxv(function OIe)
    call fov(gM)
endfunction

function Obe takes integer NNv returns nothing
    call s__barrage_Filling((FM),(NNv))
    if not s__barrage_InOperation[FM]then
        set s__barrage_InOperation[FM]=true
        call fov(gM)
    endif
endfunction

function OBe takes nothing returns nothing
    set FM=NewLauncher()
    set s__barrage_InOperation[FM]=true
endfunction

function Oce takes nothing returns nothing
    local integer i=$A
    local unit u
    local real a
    loop
        set i=i-1
        set a=i*Lx/ 10.
        call Ltv(LAv("EarthSlam.mdl",hM+750*Cos(a),HM+750*Sin(a),1.25))
        call Lqv(LAv("KnockbackDust.mdx",hM+750*Cos(a),HM+750*Sin(a),5),1.5)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,hM,HM,975+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,hM,HM,975)then
            if not IsUnitInRangeXY(u,hM,HM,575)and not IsUnitInGroup(u,GM)and IsUnitAliveAndEnemyNotAvul(u,OL)then
                call GroupAddUnit(GM,u)
                call UnitDamageTargetBY(((OL)),((u)),(((($7530+1.1*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call sc___prototype200_evaluate(1,u,true)
            endif
        endif
    endloop
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:88")
    call RecycleGroup(GM)
    set GM=null
endfunction

function OCe takes nothing returns nothing
    local integer i=6
    local unit u
    local real a
    loop
        set i=i-1
        set a=i*Lx/ 6.
        call Ltv(LAv("EarthSlam.mdl",hM+450*Cos(a),HM+450*Sin(a),1.25))
        call Lqv(LAv("KnockbackDust.mdx",hM+450*Cos(a),HM+450*Sin(a),5),1.5)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,hM,HM,650+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,hM,HM,650)then
            if not IsUnitInRangeXY(u,hM,HM,275)and not IsUnitInGroup(u,GM)and IsUnitAliveAndEnemyNotAvul(u,OL)then
                call GroupAddUnit(GM,u)
                call UnitDamageTargetBY(((OL)),((u)),(((($7530+1.1*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call sc___prototype200_evaluate(1,u,true)
            endif
        endif
    endloop
    call TimerStart(GetExpiredTimer(),.875,false,function Oce)
endfunction

function Ode takes nothing returns nothing
    local unit u
    call GroupEnumUnitsInRange(G,hM,HM,325+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,hM,HM,325)then
            if not IsUnitInGroup(u,GM)and IsUnitAliveAndEnemyNotAvul(u,OL)then
                call GroupAddUnit(GM,u)
                call UnitDamageTargetBY(((OL)),((u)),(((($7530+1.1*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call sc___prototype200_evaluate(1,u,true)
            endif
        endif
    endloop
    call Ltv(Lfv(Lbv(LVv('e005',hM,HM,0),5,.5),$9B,$FF,$9B,$FF))
    call Ltv(Lfv(LAv("NewDirtEXNofire.mdl",hM,HM,3),55,$FF,125,$CD))
    call Ltv(LAv("EarthSlam.mdl",hM,HM,2.25))
    call zHv(75,1.25,hM,HM,900)
    call TimerStart(GetExpiredTimer(),1.25,false,function OCe)
endfunction

function ODe takes nothing returns boolean
    set GM=NewGroup()
    set hM=GetUnitX(OL)
    set HM=GetUnitY(OL)
    call Ltv(LAv("NatureWave.mdl",hM,HM,2.5))
    call TimerStart((NewTimer(0)),.75,false,function Ode)
    return false
endfunction

function Ofe takes nothing returns boolean
    call NewTextTagInTarget_B(OL,"Natural hug!!",18,$9B,$FF,$9B)
    return false
endfunction

function OFe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0LZ',function Ofe)
    call RegisterSpellEffectEvent('A0LZ',function ODe)
endfunction

function Oge takes nothing returns integer
    return D9v(LM)
endfunction

function OGe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Ohe takes nothing returns boolean
    local integer NNv=J[LM]
    local integer id
    local unit u
    local integer i
    local real x
    local real y
    local real d
    loop
        exitwhen 0==NNv
        if UnitAlive((Je[(jM[NNv])]))then
            call LKv(JM[NNv],GetUnitX((Je[(jM[NNv])])))
            call Llv(JM[NNv],GetUnitY((Je[(jM[NNv])])))
        endif
        if UnitAlive(OL)then
            set kM[NNv]=kM[NNv]-1
            call SetUnitFlyHeight(II[(JM[NNv])],((750.*kM[NNv]/ lM)*1.),0)
            if ModuloInteger(kM[NNv],32)==0 then
                set i=0
                set x=(GetUnitX(II[(JM[NNv])]))
                set y=(GetUnitY(II[(JM[NNv])]))
                call FinishingGroup(KM)
                call GroupEnumUnitsInRange(G,x,y,400+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,400)then
                        if IsUnitAliveAndEnemyNotAvul(u,OL)then
                            set id=(GetUnitUserData((u)))
                            if Globals_Shield_Remove((id))or sc___prototype15_evaluate(2,(id))or sc___prototype15_evaluate(3,(id))or sc___prototype15_evaluate(4,(id))then
                                call NewTextTagInTarget_B(u,"|c00a8e4fAll over to enlarge!",8,$FF,$FF,$FF)
                                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathPact\\DeathPactTarget.mdl",u,"origin"))
                            endif
                            if not IsUnitType(u,UNIT_TYPE_SUMMONED)then
                                set i=i+1
                                if kM[NNv]<1 then
                                    call GroupAddUnit(KM,u)
                                endif
                            elseif kM[NNv]<1 and not pB[(id)]then
                                call KillUnitBJ(u)
                            endif
                        endif
                    endif
                endloop
                if i>0 then
                    set d=175000./ i
                    if kM[NNv]>0 then
                        call NewTextTagInTarget_B(II[JM[NNv]],I2S(i)+" X "+I2S(R2I(d)),$E,55,$FF,55)
                    else
                        loop
                            set u=FirstOfGroup(KM)
                            exitwhen u==null
                            call GroupRemoveUnit(KM,u)
                            call UnitDamageTargetBY(((OL)),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c0080ff80")))
                            call Gjv(u,75,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),.5,"KnockbackDust.mdx")
                            call m2v(u,.5,'A500','B500',true)
                        endloop
                        call zHv(50,.75,x,y,600)
                        call Ltv(LAv("Explosion.mdl",x,y,2.25))
                        call Ltv(LAv("CenarionFury.mdl",x,y,2.25))
                    endif
                endif
            endif
        else
            set kM[NNv]=0
        endif
        if kM[NNv]<1 then
            call Unit_Cancel_Counter($84,jM[NNv])
            call LQv(JM[NNv],.75)
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function OHe takes nothing returns nothing
    set LM=fxv(function Ohe)
endfunction

function Oje takes nothing returns boolean
    local integer NNv=(D9v(LM))
    set jM[NNv]=(GetUnitUserData((GetSpellTargetUnit())))
    set JM[NNv]=LNv("EmeraldCore.mdl",GetUnitX((Je[(jM[NNv])])),GetUnitY((Je[(jM[NNv])])),750.,2.5)
    set kM[NNv]=lM
    call NewTextTagInTarget_B((Je[(jM[NNv])]),"|c00dbfabe"+(Game_PlayerName[Kc[((jM[NNv]))]])+" |c002c8b10Be ruled",$F,$FF,$FF,$FF)
    call zKv((Kc[(jM[NNv])]),55,$FF,55,.27)
    call StartSound(Za)
    call Unit_App_Counter($85,jM[NNv])
    return false
endfunction

function OJe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0M4',function Oje)
endfunction

function Oke takes integer NNv returns boolean
    if mM[NNv]!=null then
        call ReleaseTimer(mM[NNv],"[TimerUtils]Error:89")
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0M2','B04J')
        call DeUnitMdef((NNv),MM[NNv])
        call ModifyUnitArmor((NNv),-500)
        call Unit_Cancel_Counter($86,(NNv))
        set mM[NNv]=null
        return true
    endif
    return false
endfunction

function OKe takes nothing returns nothing
    call Oke(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function Ole takes nothing returns boolean
    local real x=GetUnitX(OL)
    local real y=GetUnitY(OL)
    local integer NNv
    local unit u
    call GroupEnumUnitsInRange(G,x,y,375+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,375)then
            if IsUnitAliveAndAlly(u,OL)then
                set NNv=(GetUnitUserData((u)))
                if mM[NNv]==null then
                    set mM[NNv]=NewTimer(NNv)
                    set MM[NNv]=ModifyUnitMdef((NNv),40)
                    call UnitAddAbilityBY(u,'A0M2')
                    call ModifyUnitArmor((NNv),500)
                    call Unit_App_Counter($87,(NNv))
                endif
                call TimerStart(mM[NNv],20,false,function OKe)
            endif
        endif
    endloop
    call NewTextTagInTarget_B(OL,"Natural shield ! !",18,$9B,$FF,$9B)
    call Ltv(LAv("Explosion.mdl",x,y,2))
    return false
endfunction

function OLe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0JY',function Ole)
endfunction

function Ome takes nothing returns integer
    return D9v(sM)
endfunction

function OMe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Ope takes nothing returns boolean
    local integer NNv=J[sM]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==NNv
        if UnitAlive(OL)then
            set QM[NNv]=QM[NNv]-1
            if bL and CL==0 then
                if ModuloInteger(QM[NNv],$A0)==0 then
                    call cKv((GetUnitX(II[(pM[NNv])])),(GetUnitY(II[(pM[NNv])])))
                endif
            elseif ModuloInteger(QM[NNv],qM[NNv])==0 then
                call cKv((GetUnitX(II[(pM[NNv])])),(GetUnitY(II[(pM[NNv])])))
            endif
        else
            set QM[NNv]=0
        endif
        if QM[NNv]<1 then
            call DestroyEffectBY(PM[NNv])
            call Ltv(pM[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function OPe takes nothing returns nothing
    set sM=fxv(function Ope)
endfunction

function OQe takes integer NNv returns nothing
    if TM[NNv]then
        set uM[UM[NNv]]=uM[NNv]
        set UM[uM[NNv]]=UM[NNv]
        set TM[NNv]=false
        if UM[(0)]==0 then
            call frv(wM)
        endif
        call Unit_Cancel_Counter($88,(NNv))
    endif
endfunction

function Ose takes nothing returns boolean
    local integer NNv=UM[(0)]
    loop
        exitwhen NNv==0
        if not UnitAlive((Je[(NNv)]))or not UnitAlive(OL)then
            set SM[NNv]=0
        elseif not pMv((Je[(NNv)]),false)then
            set SM[NNv]=SM[NNv]-1
            call SetUnitScale((Je[(NNv)]),1.25-.5*SM[NNv]/ 1920.,1,1)
            if SM[NNv]<1 then
                call cJv((Je[(NNv)]))
            elseif ModuloInteger(SM[NNv],$F0)==0 then
                if SM[NNv]==$F0 then
                    call SetUnitVertexColor((Je[(NNv)]),55,$FF,55,$FF)
                endif
                call ModifyUnitHP((NNv),$3D090)
                call ModifyUnitHpRegen((NNv),$9C4)
                call ModifyUnitArmor((NNv),75)
            endif
        endif
        if SM[NNv]<1 then
            call DestroyEffect(AddSpecialEffect("NatureExplosion.mdx",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)]))))
            call KillUnit((Je[(NNv)]))
            call OQe(NNv)
        endif
        set NNv=UM[NNv]
    endloop
    return false
endfunction

function OSe takes integer NNv returns integer
    if not TM[NNv]then
        if UM[(0)]==0 then
            if wM==0 then
                set wM=fxv(function Ose)
            endif
            call fov(wM)
        endif
        set UM[NNv]=UM[(0)]
        set uM[UM[(0)]]=NNv
        set UM[(0)]=NNv
        set uM[NNv]=0
        set TM[NNv]=true
        call Unit_App_Counter($89,(NNv))
    endif
    return NNv
endfunction

function Ote takes unit u returns integer
    return OSe((GetUnitUserData((u))))
endfunction

function OTe takes nothing returns boolean
    if GetRandomInt(1,$A)==$A then
        call UnitDamageTargetBY((((mF))),(((MF))),((((.2*GetUnitState((MF),UNIT_STATE_LIFE))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call UnitAppBuff((pF),'A0M1',$D00CB)
    endif
    return false
endfunction

function Oue takes nothing returns boolean
    local integer NNv=(OSe((GetUnitUserData(((GetSummonedUnit()))))))
    set SM[NNv]=$5A0
    call UnitAddPAttackTrig((NNv),function OTe)
    return false
endfunction

function OUe takes nothing returns nothing
    call RegisterSummonEvent('n031',function Oue)
endfunction

function Owe takes integer NNv returns boolean
    if UnitAlive(s__barrage_target[NNv])then
        call UnitCureTaret(s__barrage_target[NNv],s__barrage_target[NNv],.15*GetUnitState(s__barrage_target[NNv],UNIT_STATE_MAX_LIFE))
        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Orc\\HealingWave\\HealingWaveTarget.mdl"),(s__barrage_target[NNv]),("origin")))),1.5)
    endif
    return true
endfunction

function OWe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function Oye takes nothing returns boolean
    local integer NNv=s__barrage_FR[WM]
    local unit u
    if NNv!=WM then
        call UseBarrage(WM)
        loop
            exitwhen NNv==WM
            if(s__barrage_outside[(NNv)])then
                call Owe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if Owe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[WM]then
        set s__barrage_InOperation[WM]=false
        call TriggerEvaluate(Olv)
    endif
    return false
endfunction

function OYe takes nothing returns nothing
    call fov(yM)
endfunction

function s__HealingMissile_stop takes nothing returns nothing
    call frv(yM)
endfunction

function Oze takes nothing returns nothing
    set yM=fxv(function Oye)
    call fov(yM)
endfunction

function OZe takes integer NNv returns nothing
    call s__barrage_Filling((WM),(NNv))
    if not s__barrage_InOperation[WM]then
        set s__barrage_InOperation[WM]=true
        call fov(yM)
    endif
endfunction

function O_e takes nothing returns nothing
    set WM=NewLauncher()
    set s__barrage_InOperation[WM]=true
endfunction

function O0e takes unit ckv returns nothing
    local integer NNv=CreateBarrageTypeC(GetUnitX(ckv),GetUnitY(ckv),GetUnitFlyHeight(ckv),OL)
    set s__barrage_speed[NNv]=.03125*250.
    set s__barrage_acceleration[NNv]=.03125*.03125*750.
    call LMv(s__barrage_model[NNv],"Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[NNv])],((5.)*1.),0,0)
    call OZe(NNv)
endfunction

function O1e takes unit u returns nothing
    if KillUnitBJ(u)then
        if IsUnitType(u,UNIT_TYPE_HERO)then
            call zKv((GetPlayerId((GetOwningPlayer(u)))),$FF,$9B,$FF,.5)
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",YM,"origin"))
        call sc___prototype200_evaluate(1,u,true)
    endif
endfunction

function O2e takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:90")
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local real a
    local real c
    local real s
    local integer i
    local integer iI
    local unit u
    if zM<6 then
        set iI=$C-4*ModuloInteger(zM,2)
        set i=iI
        loop
            set i=i-1
            set a=Lx*i/ iI
            set c=100*Cos(a)
            set s=100*Sin(a)
            if iI==8 then
                call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+1.5*c,y+1.5*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
                call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+3*c,y+3*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
            else
                call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+5*c,y+5*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
                call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+7*c,y+7*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
            endif
            exitwhen i==0
        endloop
        if iI==8 then
            call GroupEnumUnitsInRange(G,x,y,400+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,400)then
                    if IsUnitOfPlayerNotseckill(u)then
                        call O1e(u)
                    endif
                endif
            endloop
        else
            call GroupEnumUnitsInRange(G,x,y,800+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,800)then
                    if not IsUnitInRangeXY(u,x,y,400)and IsUnitOfPlayerNotseckill(u)then
                        call O1e(u)
                    endif
                endif
            endloop
        endif
    else
        set zM=0
        set i=$C
        loop
            set i=i-1
            set a=Lx*i/ 12.
            set c=187.5*Cos(a)
            set s=187.5*Sin(a)
            call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+c,y+s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
            call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+2*c,y+2*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
            call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+3*c,y+3*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
            call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+4*c,y+4*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,800+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,800)then
                if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAlive(u)then
                    call O1e(u)
                endif
            endif
        endloop
    endif
    call PlaySoundAtPoint_BJ((Fn),(($C8)*1.),((x)*1.),((y)*1.),0)
    call Ltv(LAv("AquaSpike.mdl",x,y,2.5))
    call Ltv(fx)
endfunction

function O3e takes nothing returns boolean
    local unit u
    local integer i
    local real x
    local real y
    local real d
    set YM=GetTriggerUnit()
    set zM=R2I(GetUnitState(YM,UNIT_STATE_MANA)+1)
    set x=GetUnitX(YM)
    set y=GetUnitY(YM)
    call GroupEnumUnitsInRange(G,x,y,800+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,800)then
            if IsUnitAliveAndEnemy(u,YM)then
                call UnitDamageTargetBY(((YM)),((u)),(((($7D0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'A0GA',$D006B)
            endif
        endif
    endloop
    if zM==6 then
        call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x,y,7.5))
        call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x,y,7.5))
        call TimerStart(NewTimer(LAv("Whirlpool.mdl",x,y,.75)),2,false,function O2e)
        call SetUnitState(YM,UNIT_STATE_MANA,0)
    else
        set i=$C
        set d=600-300*ModuloInteger(zM,2)
        loop
            set i=i-1
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+d*Cos(Lx*i/ $C),y+d*Sin(Lx*i/ $C),1.25))
            exitwhen i==0
        endloop
        call TimerStart(NewTimer(LAv("Whirlpool.mdl",x,y,.5)),1.5,false,function O2e)
        call SetUnitState(YM,UNIT_STATE_MANA,zM)
    endif
    call Lqv(LAv("Abilities\\Spells\\Human\\CloudOfFog\\CloudOfFog.mdl",x,y,1.75),1.5)
    return false
endfunction

function O4e takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:91")
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$9C+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$9C)then
            if IsUnitAliveAndEnemy(u,YM)then
                call UnitDamageTargetBY(((YM)),((u)),(((($DAC)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,1)
            endif
        endif
    endloop
    call LQv(LVv('e011',x,y,0),1)
    call Ltv(LAv("BloodySplat Missile.mdl",x,y,3.75))
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\RaiseSkeletonWarrior\\RaiseSkeleton.mdl",x,y,3),$9B,0,$9B,$FF))
    call Ltv(fx)
endfunction

function O5e takes nothing returns boolean
    set YM=GetTriggerUnit()
    call TimerStart(NewTimer(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",GetSpellTargetX(),GetSpellTargetY(),2),$FF,0,$FF,$FF)),1.,false,function O4e)
    return false
endfunction

function O6e takes nothing returns nothing
    call RegisterSpellEffectEvent('A0G8',function O5e)
    call RegisterSpellEffectEvent('A0G9',function O3e)
endfunction

function O7e takes nothing returns integer
    return D9v(Xp)
endfunction

function O8e takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function O9e takes nothing returns boolean
    local integer NNv=J[Xp]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==NNv
        call LKv(ZM[NNv],BezierCurveBYCube(ep[NNv],op[NNv],ip[NNv],ap[NNv],Ep[NNv]))
        call Llv(ZM[NNv],BezierCurveBYCube(xp[NNv],rp[NNv],np[NNv],Vp[NNv],Ep[NNv]))
        call SetUnitFlyHeight(II[(ZM[NNv])],((BezierCurveBYCube(400,$5DC,500,0,Ep[NNv]))*1.),0)
        set Ep[NNv]=Ep[NNv]+.008
        if Ep[NNv]>=1 then
            set x=(GetUnitX(II[(ZM[NNv])]))
            set y=(GetUnitY(II[(ZM[NNv])]))
            call GroupEnumUnitsInRange(G,x,y,275+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,275)then
                    if IsUnitAliveAndEnemyNotAvul(u,Yl)and GetUnitFlyHeight(u)<100 then
                        call DestroyEffect(AddSpecialEffectTarget("WaterNovaTarget.mdl",u,"chest"))
                        call UnitDamageTargetBY(((Yl)),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            call Ltv(LAv("AquaSpike.mdl",x,y,2.25))
            call DestroyEffectBY(vp[NNv])
            call LTv(ZM[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function Rve takes nothing returns nothing
    set Xp=fxv(function O9e)
endfunction

function Ree takes unit u returns nothing
    local integer NNv=(D9v(Xp))
    local integer m=R2I(GetUnitState(Yl,UNIT_STATE_MANA))
    local real fA=bj_DEGTORAD*GetUnitFacing(Yl)
    local real x=GetUnitX(Yl)-$FA*Cos(fA)
    local real y=GetUnitY(Yl)-$FA*Sin(fA)
    local real d=GetRandomReal(25,$AF)
    local real a=GetRandomReal(0,Lx)
    local real tX=GetUnitX(u)+d*Cos(a)
    local real tY=GetUnitY(u)+d*Sin(a)
    local real dX=tX-x
    local real dY=tY-y
    set d=1.5*SquareRoot(dX*dX+dY*dY)
    set a=Atan2(dY,dX)
    set ep[NNv]=x
    set xp[NNv]=y
    set op[NNv]=x-$FA*Cos(fA)
    set rp[NNv]=y-$FA*Sin(fA)
    set ip[NNv]=x+d*Cos(a)
    set np[NNv]=y+d*Sin(a)
    set ap[NNv]=tX
    set Vp[NNv]=tY
    set Ep[NNv]=0
    set ZM[NNv]=Lnv(x,y,0)
    call LMv(ZM[NNv],"Abilities\\Weapons\\SpiritOfVengeanceMissile\\SpiritOfVengeanceMissile.mdl")
    call SetUnitScale(II[(ZM[NNv])],((4)*1.),0,0)
    call SetUnitFlyHeight(II[(ZM[NNv])],((400)*1.),0)
    set vp[NNv]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Weapons\\SpiritOfVengeanceMissile\\SpiritOfVengeanceMissile.mdl"),(II[ZM[NNv]]),("origin"))))
    call Ltv(LIv("FreezingRing.mdl",x,y,300,2.25,fA,120))
    call PlaySoundAtPoint_BJ((vn),((100)*1.),((x)*1.),((y)*1.),0)
endfunction

function Rxe takes nothing returns nothing
    local integer s=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX((Je[(s)]))
    local real y=GetUnitY((Je[(s)]))
    local unit u
    if not UnitAlive((Je[(s)]))then
        call GroupEnumUnitsInRange(G,x,y,500+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,500)then
                if IsUnitAliveAndEnemy(u,Yl)then
                    call UnitDamageTargetBY(((Yl)),((u)),((((.4*GetUnitMaxLifeById((GetUnitUserData((u))))+5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call Gjv(u,$AF,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),1.5,"KnockbackDust.mdx")
                    call UnitAppBuff((GetUnitUserData((u))),'A0GA',$D006B)
                endif
            endif
        endloop
        call Lqv(LAv("AquaSpike.mdl",x,y,3.5),2.5)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:92")
        call Unit_Cancel_Counter($8A,s)
    elseif not UnitAlive(Yl)then
        call KillUnit((Je[(s)]))
    elseif IsUnitInRangeXY(Yl,x,y,$FA)then
        call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Items\\AIhe\\AIheTarget.mdl",Yl,"origin",1.75)
        call UnitCureTaret(null,Yl,$3567E0)
        call KillUnit((Je[(s)]))
    elseif IsUnitNotAfrz((Je[(s)]))then
        set Op=ModuloInteger(Op+1,$C)
        if Op==0 then
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(s)]))then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"chest"))
                        call Gjv(u,75,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),.375,"KnockbackDust.mdx")
                    endif
                endif
            endloop
            call Ltv(LAv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y,2.25))
        endif
        call IssuePointOrderById((Je[(s)]),$D0012,GetUnitX(Yl),GetUnitY(Yl))
    else
        set Op=0
    endif
endfunction

function Wae_6 takes nothing returns nothing
    local integer t=s__MissileTypeA_Last_Missile
    local boolean b=false
    local real x=s__barrage_X[t]
    local real y=s__barrage_Y[t]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$C8,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,100)then
            if IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[t])then
                call DestroyEffect(AddSpecialEffectTarget("waternovatarget.mdl",u,"origin"))
                call UnitDamageTargetBY(((s__barrage_atkunit[t])),((u)),((((7000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                set u=null
                set b=true
                exitwhen true
            endif
        endif
    endloop
    if(not b)and UnitAlive(Yl)and IsUnitInRangeXY(Yl,x,y,$96)then
        call DestroyEffect(AddSpecialEffectTarget("waternovatarget.mdl",Yl,"chest"))
        call UnitCureTaret(s__barrage_atkunit[t],Yl,$249F0)
        set b=true
    endif
    if(not(s__barrage_finish[(t)]))and((s__barrage_outside[(t)])or b)then
        call s__MissileTypeA_stop(t)
    endif
endfunction

function Wae_5 takes unit u,real x,real y,real z,real tx,real ty,real tz returns nothing
    local integer t=CreateBarrageTypeD(x,y,z,tx,ty,tz)
    set s__barrage_speed[t]=.03125*800
    set s__barrage_atkunit[t]=u
    set s__MissileTypeA_f1[t]=Filter(function Wae_6)
    set s__MissileTypeA_f2[t]=s__MissileTypeA_f1[t]
    set s__MissileTypeA_f3[t]=s__MissileTypeA_f1[t]
    call LMv(s__barrage_model[t],"Abilities\\Weapons\\WaterElementalMissile\\WaterElementalMissile.mdl")
    call SetBarrageFlightRadianEZ(t,20*bj_DEGTORAD)
    call s__MissileTypeA_fired(t)
endfunction

function Wae_4 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX(Boss_Spell_unit2[data])
    local real y=GetUnitY(Boss_Spell_unit2[data])
    local real a=Boss_Spell_Z[data]
    local integer ord=GetUnitCurrentOrder(Boss_Spell_unit2[data])
    if Boss_Spell_data1[data]==0 then
        set Boss_Spell_data1[data]=1
        call m_v(Boss_Spell_unit2[data],false)
        call SetUnitTimeScale(Boss_Spell_unit2[data],5)
        call UnitApplyTimedLife(Boss_Spell_unit2[data],'BHwe',80)
        call TimerStart(GetExpiredTimer(),.15,true,function Wae_4)
    endif
    if UnitAlive(Boss_Spell_unit2[data])then
        if IsUnitPaused(Boss_Spell_unit2[data])==false and ord!=$D0005 then
            set Boss_Spell_Z[data]=a+360/ 8*.15
            call SetUnitAnimation(Boss_Spell_unit2[data],"attack")
            call SetUnitFacing(Boss_Spell_unit2[data],Boss_Spell_Z[data])
            set a=a*bj_DEGTORAD
            call Wae_5(Boss_Spell_unit2[data],x+Cos(a)*50,y+Cos(a)*50,$96,x+Cos(a)*$4B0,y+Sin(a)*$4B0,0)
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:93")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function Wae_3 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer b=Boss_Spell_data2[data]
    local real t=RMinBJ(1,Boss_Spell_X[data]+(.03125/ 2))
    local real x=s__BezierCurve_getx(b,t)
    local real y=s__BezierCurve_gety(b,t)
    local real z=s__BezierCurve_getz(b,t)
    local unit u
    call LKv(Boss_Spell_data3[data],x)
    call Llv(Boss_Spell_data3[data],y)
    call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],((z)*1.),0)
    set Boss_Spell_X[data]=t
    if t>=1 then
        call s__BezierCurve_deallocate(b)
        call Ltv(Boss_Spell_data3[data])
        call LTv(LAv("aquaspike.mdl",x,y,2))
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                if IsUnitAliveAndEnemyNotAvul(u,Yl)then
                    call DestroyEffect(AddSpecialEffectTarget("waternovatarget.mdl",u,"chest"))
                    call Gjv(u,75,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),.375,"KnockbackDust.mdx")
                    call UnitDamageTargetBY(((Yl)),((u)),(((($2710)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        set Boss_Spell_Z[data]=GetRandomReal(1,360)
        set Boss_Spell_unit2[data]=CreateUnit(P[$B],'h01Z',x,y,Boss_Spell_Z[data])
        call m_v(Boss_Spell_unit2[data],true)
        call SetUnitXBJ(Boss_Spell_unit2[data],x)
        call SetUnitYBJ(Boss_Spell_unit2[data],y)
        call ModifyUnitMdef((GetUnitUserData((Boss_Spell_unit2[data]))),40)
        call SetUnitAnimation(Boss_Spell_unit2[data],"birth")
        call TimerStart(GetExpiredTimer(),1,false,function Wae_4)
    endif
endfunction

function Wae_2 takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local real a=bj_DEGTORAD*GetUnitFacing(Yl)
    local real x=GetUnitX(Yl)-Cos($FA)
    local real y=GetUnitY(Yl)-Sin($FA)
    local real z=GetUnitFlyHeight(Yl)+300
    local integer i=0
    local integer id=0
    local unit target=null
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$5DC+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$5DC)then
            if nC[(GetUnitUserData((u)))]then
                set i=i+1
                if GetRandomInt(1,i)==1 then
                    set target=u
                endif
            endif
        endif
    endloop
    if target==null then
        set Boss_x[4]=GetRandomReal(0,3.28)
        set Boss_y[4]=GetRandomReal($96,300)
        set Boss_x[3]=GetUnitX(Yl)-Cos(Boss_x[4])*Boss_y[4]
        set Boss_y[3]=GetUnitX(Yl)-Sin(Boss_x[4])*Boss_y[4]
        set Boss_z[3]=0
    else
        set Boss_x[3]=GetUnitX(target)
        set Boss_y[3]=GetUnitY(target)
        set Boss_z[3]=0
        set target=null
    endif
    set Boss_x[4]=(Boss_x[3]-x)
    set Boss_y[4]=(Boss_y[3]-y)
    set Boss_z[4]=SquareRoot(Boss_x[4]*Boss_x[4]+Boss_y[4]*Boss_y[4])
    set Boss_x[2]=x+(Boss_x[4])*.75
    set Boss_y[2]=y+(Boss_y[4])*.75
    set Boss_z[2]=Boss_z[4]/ 3+GetRandomReal(500,800)
    set Boss_x[1]=x-(Boss_x[4]/(Boss_z[4]+1))*$FA
    set Boss_y[1]=y-(Boss_y[4]/(Boss_z[4]+1))*$FA
    set Boss_z[1]=$5DC
    set Boss_Spell_data1[data]=0
    set Boss_Spell_data2[data]=s__BezierCurve_Power3(x,y,z,Boss_x[1],Boss_y[1],Boss_z[1],Boss_x[2],Boss_y[2],Boss_z[2],Boss_x[3],Boss_y[3],Boss_z[3])
    set Boss_Spell_data3[data]=LNv("waterarmor.mdl",x,y,z,.8)
    set Boss_Spell_X[data]=0
    call Ltv(LIv("FreezingRing.mdl",x,y,300,2.25,a,120))
    call PlaySoundAtPoint_BJ((vn),((100)*1.),((x)*1.),((y)*1.),0)
    call TimerStart(NewTimer(data),.03125,true,function Wae_3)
endfunction

function s__HealingTurtle_activate takes nothing returns nothing
    local integer s
    if GetRandomInt(1,2)==1 then
        set s=(GetUnitUserData((CreateUnit(P[$B],'hpxe',-5350,-$3723,0))))
    else
        set s=(GetUnitUserData((CreateUnit(P[$B],'hpxe',$785,-$3723,$B4))))
    endif
    call StartSound(Za)
    call PingMinimapEx(GetUnitX((Je[(s)])),GetUnitY((Je[(s)])),2,$FF,0,0,false)
    call TimerStart(NewTimer(s),.25,true,function Rxe)
    call Unit_App_Counter($8B,s)
endfunction

function Roe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function Rre takes integer NNv returns nothing
    if Bp[NNv]then
        set cp[Cp[NNv]]=cp[NNv]
        set Cp[cp[NNv]]=Cp[NNv]
        set Bp[NNv]=false
        if Cp[(0)]==0 then
            call frv(dp)
        endif
        call Unit_Cancel_Counter($8C,(NNv))
    endif
endfunction

function Rie takes nothing returns boolean
    local integer NNv=Cp[(0)]
    local boolean Rae=false
    local unit u
    local real x
    local real y
    local real z
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            if Rp[NNv]then
                if Ip[NNv]>0 then
                    set Ip[NNv]=Ip[NNv]-1
                    if Ip[NNv]==0 then
                        call Ltv(LNv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",GetUnitX((Je[((NNv))])),GetUnitY((Je[((NNv))])),GetUnitFlyHeight((Je[((NNv))])),2.5))
                    endif
                else
                    set Ap[NNv]=Ap[NNv]+2
                    set z=MaxR(0,GetUnitFlyHeight((Je[((NNv))]))-Ap[NNv])
                    if z==0 then
                        set Rp[NNv]=false
                        set x=GetUnitX((Je[((NNv))]))
                        set y=GetUnitY((Je[((NNv))]))
                        call GroupEnumUnitsInRange(G,x,y,325+75,null)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,325)then
                                if IsUnitAliveAndEnemy(u,(Je[((NNv))]))then
                                    call UnitDamageTargetBY((((Je[((NNv))]))),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                    call m2v(u,1,'A500','B500',true)
                                endif
                            endif
                        endloop
                        call Lqv(LAv("GroundExplosion2.mdl",x,y,.75),.375)
                        call Ltv(Lbv(LVv('e004',x,y,0),1.75,.5))
                        call zHv(35,.5,x,y,600)
                        call m_v((Je[((NNv))]),false)
                        call UnitApplyTimedLife((Je[((NNv))]),'BTLF',120)
                    endif
                    call SetUnitFacingTimed((Je[((NNv))]),GetUnitFacing((Je[((NNv))]))+.03125*360,0)
                    call SetUnitFlyHeight((Je[((NNv))]),z,0)
                endif
            endif
            set Rae=true
        else
            call Rre(NNv)
        endif
        set NNv=Cp[NNv]
    endloop
    return false
endfunction

function Rne takes integer NNv returns integer
    if not Bp[NNv]then
        if Cp[(0)]==0 then
            if dp==0 then
                set dp=fxv(function Rie)
            endif
            call fov(dp)
        endif
        set Cp[NNv]=Cp[(0)]
        set cp[Cp[(0)]]=NNv
        set Cp[(0)]=NNv
        set cp[NNv]=0
        set Bp[NNv]=true
        call Unit_App_Counter($8D,(NNv))
    endif
    return NNv
endfunction

function RVe takes unit u returns integer
    return Rne((GetUnitUserData((u))))
endfunction

function REe takes nothing returns boolean
    local unit u
    local real x
    local real y
    if GetRandomInt(1,2)==1 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)then
                if IsUnitAliveAndEnemyNotAvul(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),(((($9C4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call pmv(u,1.5)
                endif
            endif
        endloop
        call DestroyEffect(AddSpecialEffectTarget("WaterNovaTarget.mdl",(MF),"chest"))
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,.625),25,25,$FF,$9B))
    endif
    return false
endfunction

function RXe takes nothing returns boolean
    if GetRandomReal(1,2)==1 then
        if nC[(pF_v)]then
            call zKv((GetPlayerId((GetOwningPlayer((mF))))),$FF,27,27,.27)
            call zhv((GetPlayerId((GetOwningPlayer((mF))))),25,.27)
        endif
        call DestroyEffect(AddSpecialEffectTarget("blood.mdl",(mF),"chest"))
        call UnitDamageTargetBY((((MF))),(((mF))),((((MinR(.5*(DAK_AMOUNT[HF]),.125*GetUnitMaxLifeById((pF_v))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    endif
    return false
endfunction

function ROe takes real x,real y,integer dl,boolean RRe returns nothing
    local integer NNv=(Rne((GetUnitUserData(((CreateUnit(P[$B],'n02R',x,y,bj_RADTODEG*Atan2(GetUnitY(Yl)-y,GetUnitX(Yl)-x))))))))
    set Rp[NNv]=true
    set Ip[NNv]=dl
    set Ap[NNv]=0
    set Np=(GetUnitUserData((Yl)))
    if RRe then
        call UnitAddPAttackTrig((NNv),function REe)
    else
        call UnitAddBePAttackTrig((NNv),function RXe)
        call ModifyUnitHP((NNv),R2I(GetUnitMaxLifeById((NNv))))
        call ModifyUnitArmor((NNv),500)
        call SetUnitVertexColor((Je[((NNv))]),45,45,35,$FF)
        call SetUnitScale((Je[((NNv))]),1.25,1.25,1.25)
    endif
    call m_v((Je[((NNv))]),true)
    call SetUnitPosition((Je[((NNv))]),x,y)
    call UnitAddAbility((Je[((NNv))]),'Amrf')
    call UnitRemoveAbility((Je[((NNv))]),'Amrf')
    call SetUnitFlyHeight((Je[((NNv))]),800,0)
endfunction

function RIe takes integer NNv,unit s,unit t returns nothing
    if Fp[NNv]!=0 then
        call Unit_Cancel_Counter($8E,Fp[NNv])
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",t,"origin"))
        call Puv("AFOD",s,t,1,1,0)
        call UnitDamageTargetBY((((Je[(Dp[NNv])]))),((t)),((((jp[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    endif
    set Fp[NNv]=(GetUnitUserData((t)))
    call GroupAddUnit(gp[NNv],t)
    call Unit_App_Counter($8F,Fp[NNv])
endfunction

function RAe takes nothing returns integer
    return D9v(Jp)
endfunction

function RNe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Rbe takes nothing returns boolean
    local integer NNv=J[Jp]
    local unit u
    loop
        exitwhen 0==NNv
        set Hp[NNv]=Hp[NNv]+1
        if Hp[NNv]>5 then
            set Hp[NNv]=0
            set u=GroupPickRandomHeroInRange((Je[(Dp[NNv])]),GetUnitX((Je[(Dp[NNv])])),GetUnitY((Je[(Dp[NNv])])),$3E8,gp[NNv])
            if Gp[NNv]<1 or u==null then
                call RecycleGroup(gp[NNv])
                call Unit_Cancel_Counter($90,Dp[NNv])
                call Unit_Cancel_Counter($91,Fp[NNv])
                call fvv((NNv))
                set gp[NNv]=null
                set Fp[NNv]=0
            else
                set Gp[NNv]=Gp[NNv]-1
                call RIe(NNv,(Je[(Fp[NNv])]),u)
            endif
        endif
        set NNv=K[NNv]
    endloop
    set u=null
    return false
endfunction

function RBe takes nothing returns nothing
    set Jp=fxv(function Rbe)
endfunction

function Rce takes unit s,unit t,real Njv returns nothing
    local integer NNv=(D9v(Jp))
    set Dp[NNv]=(GetUnitUserData((s)))
    set gp[NNv]=NewGroup()
    set Gp[NNv]=2
    set Hp[NNv]=0
    set jp[NNv]=Njv
    call RIe(NNv,s,t)
    call Unit_App_Counter($92,Dp[NNv])
endfunction

function RMe takes nothing returns boolean
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl",(MF),"chest"))
    call UnitAppBuff((pF),'AUfn',$D0102)
    return false
endfunction

function Rpe takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:94")
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local unit u
    if aP[fx]then
        set u=CreateUnit(P[$C],'otau',x,y,bj_RADTODEG*Atan2(GetUnitY((Je[(oP)]))-y,GetUnitX((Je[(oP)]))-x))
        call UnitAddPAttackTrig((GetUnitUserData((u))),function RMe)
        call SetUnitVertexColor(u,$FF,$FF,$FF,$CD)
        call UnitApplyTimedLife(u,'Bply',30)
    endif
    call GroupEnumUnitsInRange(G,x,y,$A4+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$A4)then
            if IsUnitAliveAndEnemy(u,(Je[(oP)]))then
                call UnitDamageTargetBY((((Je[(oP)]))),((u)),(((($5DC)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'ACfn',$D0102)
            endif
        endif
    endloop
    call Ltv(LAv("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",x,y,1.25))
    call Ltv(fx)
endfunction

function RPe takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:95")
    call SetUnitTimeScale((Je[(oP)]),1)
    call PauseUnit((Je[(oP)]),false)
    call Unit_Cancel_Counter($93,oP)
endfunction

function Rqe takes nothing returns nothing
    local integer fx
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(oP)]))and iP>0 then
        set x=GetUnitX((Je[(oP)]))
        set y=GetUnitY((Je[(oP)]))
        set fx=LAv("SnowyBlizzardTarget.mdl",x+GetRandomReal(-900,900),y+GetRandomReal(-900,900),1.5)
        set aP[fx]=ModuloInteger(iP,8)==0
        set iP=iP-1
        if ModuloInteger(iP,4)==0 then
            if ModuloInteger(iP,16)==0 then
                call GroupEnumUnitsInRange(G,x,y,600+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,600)then
                        if IsUnitAliveAndEnemy(u,(Je[(oP)]))then
                            call UnitDamageTargetBY((((Je[(oP)]))),((u)),(((($4B0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
                call Lqv(LAv("Shiva'sWrath.mdl",x,y,7.5),1.75)
            endif
            call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x+GetRandomReal(-700,700),y+GetRandomReal(-700,700),1.75),1.25)
        endif
        call TimerStart(NewTimer(fx),1,false,function Rpe)
    elseif UnitAlive((Je[(oP)]))then
        call QueueUnitAnimation((Je[(oP)]),"Stand")
        call TimerStart(GetExpiredTimer(),.5,false,function RPe)
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:96")
        call Unit_Cancel_Counter($94,oP)
    endif
endfunction

function RQe takes nothing returns nothing
    call PauseUnit((Je[(oP)]),true)
    call SetUnitTimeScale((Je[(oP)]),.2)
    call SetUnitAnimation((Je[(oP)]),"Spell")
    call TimerStart(GetExpiredTimer(),.0625,true,function Rqe)
endfunction

function Rse takes nothing returns boolean
    set oP=(GetUnitUserData((GetTriggerUnit())))
    set iP=80
    call TimerStart((NewTimer(0)),0,false,function RQe)
    call Unit_App_Counter($95,oP)
    return false
endfunction

function RSe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0BD',function Rse)
endfunction

function Rte takes nothing returns nothing
    local real x
    local real y
    local unit u
    set XP=XP-1
    if XP>0 then
        set x=(GetUnitX(II[(VP)]))+RP
        set y=(GetUnitY(II[(VP)]))+IP
        call LKv(VP,x)
        call Llv(VP,y)
        if ModuloInteger(XP,2)==0 then
            call Lqv(LAv("BlizzardEruption.mdl",x+GetRandomReal(-500,500),y+GetRandomReal(-500,500),1.25),1.5)
            call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x+GetRandomReal(-500,500),y+GetRandomReal(-500,500),1.5),1.25)
            call Lqv(LAv("KnockbackDust.mdl",x+AP,y+NP,2.4),.85)
            call Lqv(LAv("KnockbackDust.mdl",x-AP,y-NP,2.4),.85)
            if ModuloInteger(XP,8)==0 then
                call Ltv(LIv("IceNova.mdl",x+1.5*RP,y+1.5*IP,$FA,3,OP+bj_PI,0))
            endif
        endif
        call GroupEnumUnitsInRange(G,x,y,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)then
                if not IsUnitInGroup(u,EP)and IsUnitAliveAndEnemy(u,(Je[(nP)]))then
                    call GroupAddUnit(EP,u)
                    call UnitDamageTargetBY((((Je[(nP)]))),((u)),(((($2710)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,2)
                    if(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((OP+.25*Lx)*1.))>=Cos(((.25*Lx)*1.)))then
                        call Gjv(u,25,OP+.25*Lx,.75,"KnockbackDust.mdl")
                    else
                        call Gjv(u,25,OP-.25*Lx,.75,"KnockbackDust.mdl")
                    endif
                endif
            endif
        endloop
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:97")
        call RecycleGroup(EP)
        call SetUnitDecay(II[VP],105,105,$FF,125,.75)
        call LQv(VP,.75)
        call Unit_Cancel_Counter($96,nP)
        set EP=null
    endif
endfunction

function RTe takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:98")
    call SetUnitTimeScale((Je[(nP)]),1)
    call PauseUnit((Je[(nP)]),false)
endfunction

function Rue takes nothing returns nothing
    if UnitAlive((Je[(nP)]))then
        set VP=LVv('e002',GetUnitX((Je[(nP)])),GetUnitY((Je[(nP)])),bj_RADTODEG*OP)
        set EP=NewGroup()
        set XP=40
        set RP=40*Cos(OP)
        set IP=40*Sin(OP)
        set AP=$80*Cos(OP+.25*Lx)
        set NP=$80*Sin(OP+.25*Lx)
        call Lfv(VP,105,105,$FF,125)
        call SetUnitAnimationByIndex(II[VP],3)
        call QueueUnitAnimation((Je[(nP)]),"Stand")
        call TimerStart(GetExpiredTimer(),.03125,true,function Rte)
        call TimerStart((NewTimer(0)),.6,false,function RTe)
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:99")
        call Unit_Cancel_Counter($97,nP)
    endif
endfunction

function RUe takes nothing returns boolean
    set nP=(GetUnitUserData((GetTriggerUnit())))
    set OP=Atan2(GetSpellTargetY()-GetUnitY((Je[(nP)])),GetSpellTargetX()-GetUnitX((Je[(nP)])))
    call PauseUnit((Je[(nP)]),true)
    call SetUnitFacing((Je[(nP)]),bj_RADTODEG*OP)
    call SetUnitTimeScale((Je[(nP)]),.8)
    call SetUnitAnimation((Je[(nP)]),"Spell")
    call TimerStart((NewTimer(0)),1.1,false,function Rue)
    call Unit_App_Counter($98,nP)
    return false
endfunction

function Rwe takes nothing returns boolean
    call PlaySoundOnUnit_BJ((On),((125)*1.),(GetTriggerUnit()))
    return false
endfunction

function RWe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0BE',function Rwe)
    call RegisterSpellEffectEvent('A0BE',function RUe)
endfunction

function Rye takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:100")
    local integer i=8
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local real tX
    local real tY
    local real a
    local real d
    local unit u
    call GroupEnumUnitsInRange(G,x,y,275+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,275)then
            if IsUnitAliveAndEnemy(u,(Je[(qE)]))then
                call UnitDamageTargetBY((((Je[(qE)]))),((u)),(((($FA0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'A0H7',$D006B)
            endif
        endif
    endloop
    loop
        set i=i-1
        set a=i*Lx/ 8.+GetRandomReal(-.15,.15)
        set d=GetRandomReal(75,$AF)
        set tX=x+d*Cos(a)
        set tY=y+d*Sin(a)
        if ModuloInteger(i,4)==0 then
            call UnitApplyTimedLife(CreateUnit(GetOwningPlayer((Je[(qE)])),'h017',tX,tY,GetRandomReal(0,359)),'BTLF',60)
            call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Human\\HumanLargeDeathExplode\\HumanLargeDeathExplode.mdl",tX,tY,2.5),$FF,0,0,$FF))
            call Ltv(LAv("ChaosExplosion.mdx",tX,tY,.75))
        else
            call Ltv(LAv("Objects\\Spawnmodels\\Human\\HumanLargeDeathExplode\\HumanLargeDeathExplode.mdl",tX,tY,1.5))
        endif
        exitwhen i==0
    endloop
    call Unit_Cancel_Counter($99,qE)
    call Ltv(fx)
endfunction

function RYe takes nothing returns boolean
    set qE=(GetUnitUserData((GetTriggerUnit())))
    call NewTextTagInTarget_A((Je[(qE)]),"The chance to have a good meal is here!!",$FF,0,0)
    call TimerStart(NewTimer(LAv("BloodSlam.mdl",GetSpellTargetX(),GetSpellTargetY(),.875)),1,false,function Rye)
    call Unit_App_Counter($9A,qE)
    return false
endfunction

function Rze takes nothing returns nothing
    local integer i=6
    if UnitAlive((Je[(bP)]))then
        call PauseUnit((Je[(bP)]),false)
        call QueueUnitAnimation((Je[(bP)]),"stand")
    endif
    loop
        set i=i-1
        call Ltv(BP[i])
        exitwhen i==0
    endloop
endfunction

function RZe takes nothing returns nothing
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real d
    if UnitAlive((Je[(bP)]))then
        set cP=cP-1
        if CP==0 then
            if cP<=0 then
                set CP=1
                set cP=32
            endif
        elseif CP==1 or CP==3 then
            set i=6
            if CP==1 then
                set d=30
            else
                set d=-40
            endif
            loop
                set i=i-1
                set x=(GetUnitX(II[(BP[i])]))
                set y=(GetUnitY(II[(BP[i])]))
                set a=Atan2(y-DP,x-dP)
                set x=x+d*Cos(a)
                set y=y+d*Sin(a)
                call LKv(BP[i],x)
                call Llv(BP[i],y)
                call GroupEnumUnitsInRange(G,x,y,$9C+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$9C)then
                        if IsUnitOfPlayerNotseckill(u)then
                            if nC[(GetUnitUserData((u)))]and KillUnitBJ(u)then
                                call UnitCureTaret((Je[(bP)]),(Je[(bP)]),$186A0)
                            endif
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",u,"origin"))
                        endif
                    endif
                endloop
                exitwhen i==0
            endloop
            if cP<=0 then
                if CP==1 then
                    set CP=2
                    set cP=16
                else
                    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:101")
                    call Rze()
                endif
            endif
        elseif CP==2 then
            set i=6
            loop
                set i=i-1
                set a=fP+(i/ 6.+1./ 12.-cP/ 192.)*Lx
                set x=dP+960*Cos(a)
                set y=DP+960*Sin(a)
                call LKv(BP[i],x)
                call Llv(BP[i],y)
                call SetUnitFacing(II[(BP[i])],((a)*1.)*bj_RADTODEG)
                call GroupEnumUnitsInRange(G,x,y,$9C+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$9C)then
                        if IsUnitOfPlayerNotseckill(u)then
                            call KillUnitBJ(u)
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",u,"origin"))
                        endif
                    endif
                endloop
                exitwhen i==0
            endloop
            if cP<=0 then
                set CP=3
                set cP=24
            endif
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:102")
        call Rze()
    endif
endfunction

function R_e takes nothing returns boolean
    local integer i=6
    local real a
    set bP=(GetUnitUserData((GetTriggerUnit())))
    set CP=0
    set cP=40
    set dP=GetUnitX((Je[(bP)]))
    set DP=GetUnitY((Je[(bP)]))
    set fP=GetRandomReal(0,Lx)
    loop
        set i=i-1
        set a=fP+i*Lx/ 6.
        set BP[i]=Lnv(dP+96*Cos(a),DP+96*Sin(a),a)
        call LMv(BP[i],"BloodySplat Missile.mdx")
        call SetUnitScale(II[(BP[i])],((3)*1.),0,0)
        call SetUnitFlyHeight(II[(BP[i])],((37.5)*1.),0)
        call LFv(BP[i],"Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl")
        exitwhen i==0
    endloop
    call PauseUnit((Je[(bP)]),true)
    call TimerStart((NewTimer(0)),.03125,true,function RZe)
    call Ltv(LAv("BloodWave.mdx",dP,DP,1.5))
    call Unit_App_Counter($9B,bP)
    return false
endfunction

function R0e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"All over to enlarge(29008)! ",$FF,0,0)
    return false
endfunction

function R1e takes nothing returns nothing
    call RegisterSpellChannelEvent('A0H5',function R0e)
    call RegisterSpellEffectEvent('A0H5',function R_e)
endfunction

function R2e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Stop running! ",$FF,0,0)
    call DestroyEffect(AddSpecialEffectTarget("ChaosExplosion.mdx",GetTriggerUnit(),"origin"))
    return false
endfunction

function R3e takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local unit t
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    call GroupEnumUnitsInRange(G,x,y,900+75,null)
    loop
        set t=FirstOfGroup(G)
        exitwhen t==null
        call GroupRemoveUnit(G,t)
        if IsUnitInRangeXY(t,x,y,900)then
            if IsUnitAliveAndEnemy(t,u)then
                call UnitDamageTargetBY(((u)),((t)),(((($3A98)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(t,1.5)
            endif
        endif
    endloop
    call ModifyUnitHP((GetUnitUserData((u))),$3D090)
    call ModifyUnitHpRegen((GetUnitUserData((u))),$3E8)
    call ModifyUnitAttack((GetUnitUserData((u))),5000)
    call ModifyUnitArmor((GetUnitUserData((u))),50)
    call PlaySoundOnUnit_BJ((fa),((100)*1.),(u))
    call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdx",x,y,5))
    call Ltv(LAv("dragonslayve.mdl",x,y,4))
    call UnitCureTaret(u,u,$7A120)
    set u=null
    return false
endfunction

function R4e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Do not disturb me!!I need to exercise my muscles!",$FF,0,0)
    return false
endfunction

function R5e takes nothing returns nothing
    local unit u
    call GroupEnumUnitsInRect(YK,yK,null)
    loop
        set u=FirstOfGroup(YK)
        exitwhen u==null
        call GroupRemoveUnit(YK,u)
        if IsUnitAliveAndEnemyNotAvul(u,TK)then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
            call UnitDamageTargetBY(((TK)),((u)),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
    endloop
endfunction

function R6e takes nothing returns nothing
    set hP=hP-1
    call SetWidgetLife(FP,(1-hP/ 640.)*GetUnitState(FP,UNIT_STATE_MAX_LIFE))
    if hP<1 then
        if HP==2 then
            call SetUnitColor(FP,PLAYER_COLOR_RED)
            call TimerStart(GP,5,true,function R5e)
        else
            call SetUnitInvulnerable(FP,false)
            call PauseTimer(GP)
        endif
    endif
endfunction

function R7e takes nothing returns nothing
    local unit u
    set hP=hP-1
    call GroupEnumUnitsInRect(YK,yK,null)
    loop
        set u=FirstOfGroup(YK)
        exitwhen u==null
        call GroupRemoveUnit(YK,u)
        if IsUnitAliveAndEnemy(u,FP)then
            call SetWidgetLife(u,GetWidgetLife(u)+$BB8)
        endif
    endloop
    if hP<1 then
        call SetUnitVertexColor(FP,$FF-100*HP,$FF-100*HP,$FF-100*HP,$FF-100*HP)
        call UnitRemoveAbility(FP,'ACac')
        call TimerStart(GP,.03125,true,function R6e)
        call Ltv(gP)
        set hP=640
        set gP=0
    endif
endfunction

function R8e takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:103")
    call SetWidgetLife(FP,1)
endfunction

function R9e takes nothing returns boolean
    if hP==0 and GetWidgetLife(FP)-GetDamage()<=.405 then
        set gP=LAv("Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl",GetUnitX(FP),GetUnitY(FP),3)
        set hP=36
        set HP=HP+1
        set KF[HF]=PF+1000000.
        call SetUnitInvulnerable(FP,true)
        call UnitAddAbility(FP,'ACac')
        call UnitRemoveAbility(FP,'A0BG')
        call SetUnitVertexColor(FP,$FF,$FF,$FF,$FF)
        call TimerStart((NewTimer(0)),0,false,function R8e)
        call TimerStart(GP,.5,true,function R7e)
    endif
    return false
endfunction

function s__LifeOrb_cleanUp takes nothing returns nothing
    if gP!=0 then
        call Ltv(gP)
        set gP=0
    endif
    call Ltv(LAv("NatureExplosion.mdl",GetUnitX(FP),GetUnitY(FP),3))
    call RemoveUnitBJ(FP,4)
    call ReleaseTimer(GP,"[TimerUtils]Error:104")
    set FP=null
    set GP=null
endfunction

function s__LifeOrb_initialize takes nothing returns nothing
    set GP=(NewTimer(0))
    call UnitAddAbility(FP,'A0BG')
    call UnitAddAbility(FP,'Amrf')
    call UnitRemoveAbility(FP,'Amrf')
    call SetUnitFlyHeight(FP,$C8,0)
    call SetUnitInvulnerable(FP,false)
    call UnitAddBeDamagerTrig((GetUnitUserData((FP))),function R9e)
endfunction

function Ive takes nothing returns nothing
    set FP=gg_unit_hsor_0314
    call SetUnitInvulnerable(FP,true)
endfunction

function Iee takes integer NNv returns nothing
    if jP[NNv]!=0 then
        call DestroyEffectBY(jP[NNv])
        set jP[NNv]=0
    endif
endfunction

function Ixe takes integer NNv returns boolean
    local unit u
    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],275+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],275)then
            if IsUnitAliveAndEnemy(u,TK)then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                call UnitDamageTargetBY(((TK)),((u)),((((6000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,2.5)
            endif
        endif
    endloop
    call Lqv(LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",s__barrage_X[NNv],s__barrage_Y[NNv],2),1)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",s__barrage_X[NNv],s__barrage_Y[NNv],2.25),55,$FF,55,$CD))
    return true
endfunction

function Ioe takes integer NNv,unit u returns boolean
    return IsUnitAliveAndEnemy(u,TK)and GetUnitAbilityLevel(u,'Avul')==0
endfunction

function Ire takes integer NNv returns boolean
    set JP[NNv]=JP[NNv]+1
    if not UnitAlive(TK)then
        return true
    elseif JP[NNv]>32 then
        set s__barrage_speed[NNv]=40.-10.*JP[NNv]/ 32.
        if ModuloInteger(JP[NNv],4)==0 then
            call LFv(s__barrage_model[NNv],"Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl")
        endif
    else
        if JP[NNv]==32 then
            set jP[NNv]=(s__Effect_build(AddSpecialEffectTarget(("EvilMissileofShadowyDOOMV2.mdl"),(II[s__barrage_model[NNv]]),("origin"))))
            set s__barrage_speed[NNv]=30
            set s__barrage_CollisionRange[NNv]=$80
        endif
        call Lfv(s__barrage_model[NNv],$9B,$FF,$9B,55+R2I((2-JP[NNv]/ 32)*$CD))
    endif
    return false
endfunction

function Iie takes integer NNv returns nothing
    call Iee(NNv)
    call RemoveBarrage(NNv)
endfunction

function Iae takes nothing returns boolean
    local integer NNv=s__barrage_FR[kP]
    local unit u
    if NNv!=kP then
        call UseBarrage(kP)
        loop
            exitwhen NNv==kP
            if(s__barrage_outside[(NNv)])then
                call Ixe(NNv)
                call Iie(NNv)
            elseif(s__barrage_finish[(NNv)])then
                if Ixe(NNv)then
                    call Iie(NNv)
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            else
                if Ire(NNv)then
                    call Iie(NNv)
                endif
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and Ioe(NNv,u)then
                                    set u=null
                                    call Ixe(NNv)
                                    call Iie(NNv)
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[kP]then
        set s__barrage_InOperation[kP]=false
        call TriggerEvaluate(OTv)
    endif
    return false
endfunction

function Ine takes nothing returns nothing
    call fov(KP)
endfunction

function s__DeathCoil___Coil_stop takes nothing returns nothing
    call frv(KP)
endfunction

function IVe takes nothing returns nothing
    set KP=fxv(function Iae)
    call fov(KP)
endfunction

function IEe takes integer NNv returns nothing
    call s__barrage_Filling((kP),(NNv))
    if not s__barrage_InOperation[kP]then
        set s__barrage_InOperation[kP]=true
        call fov(KP)
    endif
endfunction

function IXe takes nothing returns nothing
    set kP=NewLauncher()
    set s__barrage_InOperation[kP]=true
endfunction

function IOe takes real x,real y,real a returns nothing
    local integer NNv=CreateBarrageTypeD(x,y,75,x+$500*Cos(a),y+$500*Sin(a),75)
    set s__barrage_speed[NNv]=0
    call LMv(s__barrage_model[NNv],"Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[NNv])],((1.5)*1.),0,0)
    call SetUnitFlyHeight(II[(s__barrage_model[NNv])],((75)*1.),0)
    set JP[NNv]=0
    call Lfv(s__barrage_model[NNv],$9B,$FF,$9B,55)
    call IEe(NNv)
endfunction

function IRe takes nothing returns nothing
    local unit u
    local integer i
    local real a
    call LKv(lP,BezierCurveBYCube(pP,sP,SP,qP,uP))
    call Llv(lP,BezierCurveBYCube(PP,tP,TP,QP,uP))
    call SetUnitFlyHeight(II[(lP)],((BezierCurveBYCube(750,550,$C8,0,uP))*1.),0)
    set uP=uP+.03125
    if uP>=1 then
        set i=8
        loop
            set i=i-1
            set a=i*Lx/ 8
            if wK>2 then
                call IOe(qP+$E1*Cos(a),QP+$E1*Sin(a),a)
            endif
            call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",qP+$E1*Cos(a),QP+$E1*Sin(a),1.5),$9B,$FF,0,$FF))
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,qP,QP,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,qP,QP,325)then
                if IsUnitAliveAndEnemy(u,TK)then
                    call UnitDamageTargetBY(((TK)),((u)),(((($2710+.2*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    call Gjv(u,25,Atan2(GetUnitY(u)-QP,GetUnitX(u)-qP),.5,"KnockbackDust.mdl")
                    call m1v(u,.625)
                endif
            endif
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:105")
        call Ltv(LAv("Acid Ex.mdl",qP,QP,2.25))
        call Ltv(lP)
        call Ltv(LP)
    endif
endfunction

function IIe takes nothing returns nothing
    set MP=MP+1
    call Lfv(LP,0,$FF,0,R2I(255./ 16.*MP))
    if MP>=16 then
        call TimerStart(GetExpiredTimer(),.03125,true,function IRe)
    endif
endfunction

function IAe takes nothing returns boolean
    local real rA=GetRandomReal(-.15,.15)
    local real a
    set pP=GetUnitX(TK)
    set PP=GetUnitY(TK)
    set qP=GetSpellTargetX()
    set QP=GetSpellTargetY()
    set a=Atan2(QP-PP,qP-pP)
    set lP=Lnv(pP,PP,a)
    call LMv(lP,"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
    call SetUnitScale(II[(lP)],((5)*1.),0,0)
    call SetUnitFlyHeight(II[(lP)],((750)*1.),0)
    set LP=Lfv(LAv("VoidDrown.mdl",qP,QP,1.75),0,$FF,0,0)
    set sP=pP+$FA*Cos(a+rA)
    set tP=PP+$FA*Sin(a+rA)
    set SP=qP+$C8*Cos(a+bj_PI-rA)
    set TP=QP+$C8*Sin(a+bj_PI-rA)
    set MP=0
    set uP=0
    call TimerStart((NewTimer(0)),.03125,true,function IIe)
    return false
endfunction

function INe takes nothing returns boolean
    call NewTextTagInTarget_A(TK,"Death Coil",55,$FF,55)
    call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Gravitone.mdl"),(TK),("origin")))),.75)
    return false
endfunction

function Ibe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0BQ',function INe)
    call RegisterSpellEffectEvent('A0BQ',function IAe)
endfunction

function IBe takes nothing returns nothing
    local integer NNv=WP[(0)]
    local unit u
    local real x
    local real y
    loop
        exitwhen NNv==0
        set yP[NNv]=yP[NNv]-1
        if not UnitAlive(TK)or yP[NNv]<1 then
            set wP[WP[NNv]]=wP[NNv]
            set WP[wP[NNv]]=WP[NNv]
            if WP[(0)]==0 then
                set YP=false
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:106")
            endif
            call Ltv((NNv))
            call LTv(UP[NNv])
        elseif yP[NNv]<$A1 then
            set x=(GetUnitX(II[((NNv))]))
            set y=(GetUnitY(II[((NNv))]))
            call GroupEnumUnitsInRange(G,x,y,$C4+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$C4)then
                    if not IsUnitInGroup(u,YK)and IsUnitAliveAndEnemy(u,TK)then
                        call GroupAddUnit(YK,u)
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",u,"chest"))
                        call UnitDamageTargetBY(((TK)),((u)),((((.0375*GetUnitMaxLifeById((GetUnitUserData((u))))+625)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
        endif
        set NNv=WP[NNv]
    endloop
    call GroupClear(YK)
endfunction

function Ice takes real x,real y returns nothing
    local integer NNv=LAv("Poison_Pool.mdl",x,y,1.1)
    set WP[NNv]=WP[(0)]
    set wP[NNv]=0
    set wP[WP[(0)]]=NNv
    set WP[(0)]=NNv
    set UP[NNv]=Lfv(LAv("Abilities\\Spells\\NightElf\\TrueshotAura\\TrueshotAura.mdl",x,y,1.75),0,$FF,0,$CD)
    set yP[NNv]=$A8
    call Lfv((NNv),$FF,$FF,$FF,$CD)
    call Ltv(LAv("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",x,y,1.25))
    call Ltv(LAv("CenarionFury.mdl",x,y,.75))
    if not YP then
        set YP=true
        call TimerStart((NewTimer(0)),.25,true,function IBe)
    endif
endfunction

function ICe takes nothing returns nothing
    set ZP=ZP-1
    if UnitAlive((Je[(zP)]))and UnitAlive(TK)and ZP>0 then
        call UnitDamageTargetBY(((TK)),(((Je[(zP)]))),(((($C8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        if ModuloInteger(ZP,4)==0 then
            call Ice(GetUnitX((Je[(zP)])),GetUnitY((Je[(zP)])))
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:107")
        call UnitRemoveAbilityandBuffBY((Je[(zP)]),'A0BP','Broa')
        call SetUnitVertexColor((Je[(zP)]),$FF,$FF,$FF,$FF)
        call Unit_Cancel_Counter($9C,zP)
    endif
endfunction

function Ide takes nothing returns nothing
    local unit u=(Je[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:108"))])
    call DestroyEffect(AddSpecialEffectTarget("WaterBlast.mdx",u,"head"))
    call NewTextTagInTarget_B(u,"The sun shines!",7.5,125,125,125)
    set u=null
endfunction

function IDe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    if(IsUnitType((u),UNIT_TYPE_GIANT))then
        call GroupEnumUnitsInRange(G,x,y,750+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,750)then
                if IsUnitAliveAndEnemy(u,TK)then
                    call Ltv(LAv("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",GetUnitX(u),GetUnitY(u),1.25))
                    call UnitDamageTargetBY(((TK)),((u)),((((5000+.25*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        set u=PickRandomVisibleHeroInRange(TK,x,y,750)
        if u!=null then
            set zP=(GetUnitUserData((u)))
            set ZP=60
            call NewTextTagInTarget_B(u,"|c0095caff"+(Game_PlayerName[Kc[((GetUnitUserData((u))))]])+" |c002c8b10",$F,$FF,$FF,$FF)
            call StartSound(Za)
            call UnitAddAbilityBY(u,'A0BP')
            call Ltv(LAv("CenarionFury.mdl",GetUnitX(u),GetUnitY(u),.5))
            call SetUnitVertexColor(u,125,$FF,125,$E1)
            call TimerStart((NewTimer(0)),.3,true,function ICe)
            call Unit_App_Counter($9D,zP)
            set u=null
        endif
        call Ltv(LAv("Acid Ex.mdl",x,y,5))
        call Lqv(LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",x,y,5),1)
        call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,6.5),55,$FF,55,$CD))
        call zHv(50,.5,x,y,750)
    else
        call NewTextTagInTarget_B(u,"|c0095caff"+GetUnitName(u)+" |c002c8b10!",9,$FF,$FF,$FF)
        call Ltv(LAv("CenarionFury.mdl",GetUnitX(u),GetUnitY(u),.25))
        call Ltv(LAv("Acid Ex.mdl",x,y,1.25))
        call Lqv(LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",x,y,1.25),1)
        call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,1.5),55,$FF,55,$CD))
        call TimerStart(NewTimer((GetUnitUserData((u)))),1.5,true,function Ide)
        call zhv((GetPlayerId((GetOwningPlayer(u)))),30,.5)
    endif
    set u=null
    return false
endfunction

function Ife takes nothing returns boolean
    if(IsUnitType((GetTriggerUnit()),UNIT_TYPE_GIANT))then
        call NewTextTagInTarget_A(TK,"Struggling in the plague !",55,$FF,55)
    else
        call NewTextTagInTarget_A(TK,"Struggling in the plague !",55,$FF,55)
    endif
    return false
endfunction

function IFe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0BO',function Ife)
    call RegisterSpellChannelEvent('A0KZ',function Ife)
    call RegisterSpellEffectEvent('A0BO',function IDe)
    call RegisterSpellEffectEvent('A0KZ',function IDe)
endfunction

function Ige takes nothing returns nothing
    if xq!=0 then
        call Ltv(xq)
        set xq=0
    endif
    if oq!=0 then
        call Ltv(oq)
        set oq=0
    endif
    call DestroyLightning(rq)
    call Unit_Cancel_Counter($9E,vq)
    call Unit_Cancel_Counter($9F,eq)
    set rq=null
endfunction

function IGe takes nothing returns nothing
    local unit u
    local real x
    local real y
    local real z
    local real fX
    local real fY
    local real tX
    local real tY
    local real tZ
    local real dX
    local real dY
    local real a
    local real r
    if UnitAlive((Je[(vq)]))and UnitAlive((Je[(eq)]))and UnitAlive(TK)then
        set x=GetUnitX((Je[(vq)]))
        set y=GetUnitY((Je[(vq)]))
        set tX=GetUnitX((Je[(eq)]))
        set tY=GetUnitY((Je[(eq)]))
        set dX=tX-x
        set dY=tY-y
        set r=SquareRoot(dX*dX+dY*dY)
        if r>$FA0 then
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:109")
            call Ige()
        else
            set iq=iq-1
            set z=60+GetUnitFlyHeight((Je[(vq)]))
            set tZ=60+GetUnitFlyHeight((Je[(eq)]))
            call MoveLightningEx(rq,true,x,y,z+GetPointZ(x,y),tX,tY,tZ+GetPointZ(tX,tY))
            if aq==0 then
                set a=I2R(iq)/ I2R(QE)
                call LKv(xq,x+dX*a)
                call Llv(xq,y+dY*a)
                call SetUnitFlyHeight(II[(xq)],((z+(tZ-z)*a)*1.),0)
                call LKv(oq,tX-dX*a)
                call Llv(oq,tY-dY*a)
                call SetUnitFlyHeight(II[(oq)],((tZ-(tZ-z)*a)*1.),0)
                if iq<1 then
                    call SetUnitPosition((Je[(eq)]),x+.5*dX,y+.5*dY)
                    call SetUnitPosition((Je[(vq)]),tX,tY)
                    call SetUnitPosition((Je[(eq)]),x,y)
                    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y))
                    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",tX,tY))
                    call Ltv(LAv("DesecrateGreen.mdx",x,y,.625))
                    call Ltv(LAv("DesecrateGreen.mdx",tX,tY,.625))
                    call UnitDamageTargetBY(((TK)),(((Je[(vq)]))),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitDamageTargetBY(((TK)),(((Je[(eq)]))),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v((Je[(vq)]),.5)
                    call m1v((Je[(eq)]),.5)
                    call zhv((GetPlayerId((GetOwningPlayer((Je[(vq)]))))),40,.5)
                    call zhv((GetPlayerId((GetOwningPlayer((Je[(eq)]))))),40,.5)
                    call Ltv(xq)
                    call Ltv(oq)
                    call GroupEnumUnitsInRange(G,x,y,350+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,350)then
                            if u!=(Je[(eq)])and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,TK)then
                                call DestroyEffect(AddSpecialEffectTarget("EvilMissileofShadowyDOOMV2.mdl",u,"chest"))
                                call KillUnit(u)
                            endif
                        endif
                    endloop
                    call GroupEnumUnitsInRange(G,tX,tY,350+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,tX,tY,350)then
                            if u!=(Je[(vq)])and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,TK)then
                                call DestroyEffect(AddSpecialEffectTarget("EvilMissileofShadowyDOOMV2.mdl",u,"chest"))
                                call KillUnit(u)
                            endif
                        endif
                    endloop
                    set aq=1
                    set iq=16
                    set xq=0
                    set oq=0
                elseif ModuloInteger(iq,8)==0 then
                    set a=Atan2(dY,dX)+.5*bj_PI
                    set r=.5*r
                    set dX=x+.5*dX
                    set dY=y+.5*dY
                    set x=x-32*Cos(a)
                    set y=y-32*Sin(a)
                    set fX=x+64*Cos(a)
                    set fY=y+64*Sin(a)
                    set tX=tX-32*Cos(a)
                    set tY=tY-32*Sin(a)
                    call GroupEnumUnitsInRange(G,dX,dY,r+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,dX,dY,r)then
                            if u!=(Je[(vq)])and u!=(Je[(eq)])and IsUnitAliveAndEnemyNotAvul(u,TK)and MBv(GetUnitX(u),GetUnitY(u),x,y,tX,tY,fX,fY)then
                                call UnitDamageTargetBY(((TK)),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                call DestroyEffect(AddSpecialEffectTarget("EvilMissileofShadowyDOOMV2.mdl",u,"chest"))
                            endif
                        endif
                    endloop
                endif
            else
                call SetLightningColor(rq,1,1,1,iq/ 16)
                if iq<1 then
                    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:110")
                    call Ige()
                endif
            endif
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:111")
        call Ige()
    endif
endfunction

function Ihe takes nothing returns boolean
    local unit t=GetSpellTargetUnit()
    local unit u
    local real x
    local real y
    local real z
    local real tX
    local real tY
    local real tZ
    call GroupEnumUnitsInRect(YK,yK,null)
    call GroupRemoveUnit(YK,t)
    loop
        set u=FirstOfGroup(YK)
        exitwhen u==null
        call GroupRemoveUnit(YK,u)
        exitwhen nC[(GetUnitUserData((u)))]and IsUnitVisible(u,GetOwningPlayer(TK))
    endloop
    if u==null then
        call UnitDamageTargetBY(((TK)),((t)),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call m1v(t,2.5)
        call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\RaiseSkeletonWarrior\\RaiseSkeleton.mdl",GetUnitX(t),GetUnitY(t),2.25),105,$FF,105,$FF),1.5)
    else
        set vq=(GetUnitUserData((t)))
        set eq=(GetUnitUserData((u)))
        set x=GetUnitX(t)
        set y=GetUnitY(t)
        set z=GetPointZ(x,y)
        set tX=GetUnitX(u)
        set tY=GetUnitY(u)
        set tZ=GetPointZ(tX,tY)
        set rq=AddLightningEx("DRAL",true,x,y,z+GetUnitFlyHeight(t),tX,tY,tZ+GetUnitFlyHeight(u))
        set xq=LNv("Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl",x,y,z,1.5)
        call SetUnitScale(II[(xq)],((.75)*1.),0,0)
        set oq=LNv("Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl",tX,tY,tZ,1.5)
        call SetUnitScale(II[(oq)],((.75)*1.),0,0)
        set iq=QE
        set aq=0
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",u,"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",u,"origin"))
        call TimerStart((NewTimer(0)),.03125,true,function IGe)
        call Unit_App_Counter($A0,vq)
        call Unit_App_Counter($A1,eq)
        set u=null
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",t,"origin"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",t,"origin"))
    set t=null
    return false
endfunction

function IHe takes nothing returns boolean
    call NewTextTagInTarget_A(TK,"I wish you happiness!",55,$FF,55)
    return false
endfunction

function Ije takes nothing returns nothing
    call RegisterSpellChannelEvent('A0BH',function IHe)
    call RegisterSpellEffectEvent('A0BH',function Ihe)
endfunction

function IJe takes integer NNv returns boolean
    if UnitAlive(s__barrage_target[NNv])then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",s__barrage_target[NNv],"origin"))
        call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((s__barrage_target[NNv])),(((($9C4)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call m2v(s__barrage_target[NNv],2.5,'A500','B500',true)
    endif
    return true
endfunction

function Ike takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function IKe takes nothing returns boolean
    local integer NNv=s__barrage_FR[nq]
    local unit u
    if NNv!=nq then
        call UseBarrage(nq)
        loop
            exitwhen NNv==nq
            if(s__barrage_outside[(NNv)])then
                call IJe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if IJe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[nq]then
        set s__barrage_InOperation[nq]=false
        call TriggerEvaluate(Ouv)
    endif
    return false
endfunction

function Ile takes nothing returns nothing
    call fov(Vq)
endfunction

function s__DeathFinger_stop takes nothing returns nothing
    call frv(Vq)
endfunction

function ILe takes nothing returns nothing
    set Vq=fxv(function IKe)
    call fov(Vq)
endfunction

function Ime takes integer NNv returns nothing
    call s__barrage_Filling((nq),(NNv))
    if not s__barrage_InOperation[nq]then
        set s__barrage_InOperation[nq]=true
        call fov(Vq)
    endif
endfunction

function IMe takes nothing returns nothing
    set nq=NewLauncher()
    set s__barrage_InOperation[nq]=true
endfunction

function Ipe takes nothing returns boolean
    local integer NNv=CreateBarrageTypeA(GetTriggerUnit(),GetSpellTargetUnit())
    set s__barrage_speed[NNv]=.03125*900.
    set s__barrage_acceleration[NNv]=.03125*.03125*1800.
    call LMv(s__barrage_model[NNv],"Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[NNv])],((2.25)*1.),0,0)
    call NewTextTagInTarget_A(s__barrage_atkunit[NNv],"Sample run?",0,$FF,0)
    call Ime(NNv)
    return false
endfunction

function IPe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0MM',function Ipe)
endfunction

function Iqe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Hey!!Stop running!!",0,$FF,0)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",GetTriggerUnit(),"origin"))
    return false
endfunction

function IQe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Come out!Slaves!!",$FF,0,0)
    return false
endfunction

function Ise takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Kill will be funny!!!",$FF,0,0)
    return false
endfunction

function ISe takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local boolean Ite=(IsUnitType((c),UNIT_TYPE_GIANT))
    local integer i=8
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        if Ite then
            call Ltv(Lbv(LVv('e00A',x+600*Cos(a),y+600*Sin(a),0),8,.5))
        else
            call Ltv(Lbv(LVv('e00A',x+$C8*Cos(a),y+$C8*Sin(a),0),1.25,.5))
        endif
        exitwhen i==0
    endloop
    if Ite then
        call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$3E8)then
                if IsUnitAliveAndEnemy(u,c)then
                    call UnitDamageTargetBY(((c)),((u)),(((($3A98)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,.5)
                endif
            endif
        endloop
    endif
    set c=null
    return false
endfunction

function ITe takes nothing returns boolean
    if(IsUnitType((GetTriggerUnit()),UNIT_TYPE_GIANT))then
        call NewTextTagInTarget_A(GetTriggerUnit(),"Hellfire!!!",$FF,0,0)
    else
        call NewTextTagInTarget_A(GetTriggerUnit(),"It's you again?!",$FF,0,0)
    endif
    return false
endfunction

function Iue takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer NNv=(alloc__hpv(GetHandleId((t))))
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(NNv)]))then
        set x=GetUnitX((Je[(NNv)]))
        set y=GetUnitY((Je[(NNv)]))
        if Oq[NNv]>0 then
            set Oq[NNv]=Oq[NNv]-1
            set x=x+Rq[NNv]
            set y=y+Iq[NNv]
            call SetUnitX((Je[(NNv)]),x)
            call SetUnitY((Je[(NNv)]),y)
            if Xq[NNv]then
                if ModuloInteger(Oq[NNv],2)==0 then
                    call Ltv(LAv("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",x,y,3))
                endif
                call GroupEnumUnitsInRange(G,x,y,275+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,275)then
                        if IsUnitOfPlayerNotseckill(u)then
                            call KillUnitBJ(u)
                        endif
                    endif
                endloop
            elseif ModuloInteger(Oq[NNv],3)==0 then
                call Ltv(LAv("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",x,y,.75))
            endif
        else
            if Xq[NNv]then
                call GroupEnumUnitsInRange(G,x,y,650+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,650)then
                        if IsUnitOfPlayerNotseckill(u)then
                            call KillUnitBJ(u)
                        endif
                    endif
                endloop
                call Lqv(LAv("Abilities\\Spells\\Orc\\EarthQuake\\EarthQuakeTarget.mdl",x,y,3),3)
                call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,5))
                call Ltv(LAv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y,5))
                call m1v((Je[(NNv)]),$A)
            else
                call Lqv(LAv("Abilities\\Spells\\Orc\\EarthQuake\\EarthQuakeTarget.mdl",x,y,.75),3)
                call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,.75))
                call Ltv(LAv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y,.75))
            endif
            call ReleaseTimer(t,"[TimerUtils]Error:112")
            call PauseUnit((Je[(NNv)]),false)
            call SetUnitPathing((Je[(NNv)]),true)
            call SetUnitAnimationByIndex((Je[(NNv)]),3)
            call Unit_Cancel_Counter($A2,(NNv))
            call LTv(Eq[NNv])
        endif
    else
        call ReleaseTimer(t,"[TimerUtils]Error:113")
        call Unit_Cancel_Counter($A3,(NNv))
        call LTv(Eq[NNv])
    endif
    set t=null
endfunction

function IUe takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer NNv=(alloc__hpv(GetHandleId((t))))
    if UnitAlive((Je[(NNv)]))then
        call SetUnitAnimationByIndex((Je[(NNv)]),8)
        call TimerStart(t,.03125,true,function Iue)
    else
        call ReleaseTimer(t,"[TimerUtils]Error:114")
        call Unit_Cancel_Counter($A4,(NNv))
        call LTv(Eq[NNv])
    endif
    set t=null
endfunction

function Iwe takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(NNv)]))
    local real y=GetUnitY((Je[(NNv)]))
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Xq[NNv]=(IsUnitType(((Je[(NNv)])),UNIT_TYPE_GIANT))
    set Oq[NNv]=0
    if Xq[NNv]then
        set Rq[NNv]=55*Cos(a)
        set Iq[NNv]=55*Sin(a)
    else
        set Rq[NNv]=30*Cos(a)
        set Iq[NNv]=30*Sin(a)
    endif
    loop
        set x=x+Rq[NNv]
        set y=y+Iq[NNv]
        exitwhen Oq[NNv]==18 or not IsTerrainWalkable(x,y)
        set Oq[NNv]=Oq[NNv]+1
    endloop
    if Xq[NNv]then
        set Eq[NNv]=LAv("Abilities\\Spells\\NightElf\\TrueshotAura\\TrueshotAura.mdl",x,y,4.5)
    else
        set Eq[NNv]=LAv("Abilities\\Spells\\NightElf\\TrueshotAura\\TrueshotAura.mdl",x,y,.875)
    endif
    call PauseUnit((Je[(NNv)]),true)
    call SetUnitPathing((Je[(NNv)]),false)
    call SetUnitFacingTimed((Je[(NNv)]),bj_RADTODEG*a,0)
    call TimerStart(NewTimer(NNv),2.25,false,function IUe)
    call Unit_App_Counter($A5,(NNv))
    return false
endfunction

function IWe takes nothing returns boolean
    if(IsUnitType((GetTriggerUnit()),UNIT_TYPE_GIANT))then
        call NewTextTagInTarget_A(GetTriggerUnit(),"Nothing can't stop me !",0,0,$FF)
        call PlaySoundAtPoint_BJ((Ua),((125)*1.),((GetUnitX(GetTriggerUnit()))*1.),((GetUnitY(GetTriggerUnit()))*1.),0)
    else
        call NewTextTagInTarget_A(GetTriggerUnit(),"This can not stop me !",0,0,$FF)
        call PlaySoundAtPoint_BJ((Ua),((75)*1.),((GetUnitX(GetTriggerUnit()))*1.),((GetUnitY(GetTriggerUnit()))*1.),0)
    endif
    return false
endfunction

function Iye takes nothing returns nothing
    call RegisterSpellEffectEvent('A008',function Iwe)
    call RegisterSpellEffectEvent('A0L1',function Iwe)
    call RegisterSpellChannelEvent('A008',function IWe)
    call RegisterSpellChannelEvent('A0L1',function IWe)
endfunction

function IYe takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local integer i=8
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a
    local real d
    call Lqv(LAv("Abilities\\Spells\\Orc\\EarthQuake\\EarthQuakeTarget.mdl",x,y,2.5),3)
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        set d=GetRandomReal($C8,600)
        call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x+d*Cos(a),y+d*Sin(a),2))
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,500+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,500)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),((((7500+GetWidgetLife(u)*.25)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,5)
            endif
        endif
    endloop
    set c=null
    return false
endfunction

function Ize takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"All over to enlarge! ",0,0,$FF)
    return false
endfunction

function IZe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Trample crazy!!!",0,$FF,0)
    return false
endfunction

function I_e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"All over to enlarge! ",0,$FF,0)
    return false
endfunction

function I0e takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real a=GetUnitFacing(u)*bj_DEGTORAD
    call GJv(GetSpellTargetUnit(),GetUnitX(u)+100*Cos(a),GetUnitY(u)+100*Sin(a),.25)
    set u=null
    return false
endfunction

function I1e takes nothing returns nothing
    local real x=(GetUnitX(II[(SE)]))+uE
    local real y=(GetUnitY(II[(SE)]))+UE
    local unit u
    call LKv(SE,x)
    call Llv(SE,y)
    set TE=TE-1
    call GroupEnumUnitsInRange(G,x,y,300+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,300)then
            if not IsUnitInGroup(u,tE)and IsUnitAliveAndEnemy(u,(Je[(sE)]))then
                call GroupAddUnit(tE,u)
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                call UnitDamageTargetBY((((Je[(sE)]))),((u)),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    if TE<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:115")
        call RecycleGroup(tE)
        call Ltv(SE)
        set tE=null
    endif
endfunction

function I2e takes nothing returns boolean
    local real x
    local real y
    local real a
    set sE=(GetUnitUserData((GetTriggerUnit())))
    set tE=NewGroup()
    set x=GetUnitX((Je[(sE)]))
    set y=GetUnitY((Je[(sE)]))
    set a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set SE=Lnv(x,y,a)
    call LMv(SE,"Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl")
    call SetUnitScale(II[(SE)],((2.5)*1.),0,0)
    call SetUnitFlyHeight(II[(SE)],((50)*1.),0)
    set TE=30
    set uE=50*Cos(a)
    set UE=50*Sin(a)
    call TimerStart((NewTimer(0)),.03125,true,function I1e)
    return false
endfunction

function I3e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Jack impact",0,$FF,0)
    return false
endfunction

function I4e takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    call GroupEnumUnitsInRange(G,x,y,900+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,900)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),(((($C350)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    call Ltv(LAv("AncientExplode.mdl",x,y,3.5))
    set c=null
    return false
endfunction

function I5e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Happy Halloween!",0,$FF,0)
    return false
endfunction

function I6e takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    if(IsUnitType((c),UNIT_TYPE_GIANT))then
        call GroupEnumUnitsInRange(G,x,y,$4B0+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$4B0)then
                if IsUnitAliveAndEnemy(u,c)then
                    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",u,"origin",1.5)
                    call UnitDamageTargetBY(((c)),((u)),(((($C350)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,.25)
                endif
            endif
        endloop
    else
        call Ltv(Lfv(LAv("DarkStar.mdl",x,y,.5),125,$FF,125,$FF))
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,.625),125,$FF,125,$FF))
    endif
    set c=null
    return false
endfunction

function I7e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Stars shine!",0,$FF,0)
    return false
endfunction

function I8e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Blizzard!!",0,$FF,0)
    return false
endfunction

function I9e takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real a=GetUnitFacing(u)*bj_DEGTORAD
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",GetSpellTargetUnit(),"chest"))
    call GJv(GetSpellTargetUnit(),GetUnitX(u)+100*Cos(a),GetUnitY(u)+100*Sin(a),.25)
    set u=null
    return false
endfunction

function Ave takes nothing returns integer
    return D9v(dq)
endfunction

function Aee takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Axe takes nothing returns boolean
    local integer NNv=J[dq]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==NNv
        set Bq[NNv]=Bq[NNv]-1
        set x=(GetUnitX(II[(Nq[NNv])]))+cq[NNv]
        set y=(GetUnitY(II[(Nq[NNv])]))+Cq[NNv]
        call LKv(Nq[NNv],x)
        call Llv(Nq[NNv],y)
        if bq[NNv]!=null then
            if ModuloInteger(Bq[NNv],2)==0 then
                call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdx",x,y,.5))
            endif
            call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$C8)then
                    if not IsUnitInGroup(u,bq[NNv])and IsUnitAliveAndEnemy(u,(Je[(Aq[NNv])]))then
                        call GroupAddUnit(bq[NNv],u)
                        call UnitDamageTargetBY((((Je[(Aq[NNv])]))),((u)),((((6000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
        elseif ModuloInteger(Bq[NNv],3)==0 then
            call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdx",x,y,.25))
        endif
        if Bq[NNv]<1 then
            if bq[NNv]!=null then
                call RecycleGroup(bq[NNv])
                set bq[NNv]=null
            endif
            call Unit_Cancel_Counter($A6,Aq[NNv])
            call LSv(Nq[NNv],0,0,0,$FF,1)
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function Aoe takes nothing returns nothing
    set dq=fxv(function Axe)
endfunction

function Are takes nothing returns boolean
    local integer NNv=(D9v(dq))
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Aq[NNv]=(GetUnitUserData((GetTriggerUnit())))
    set Nq[NNv]=LVv('e00C',x,y,bj_RADTODEG*a)
    set Bq[NNv]=20
    if(IsUnitType(((Je[(Aq[NNv])])),UNIT_TYPE_GIANT))then
        set bq[NNv]=NewGroup()
        set cq[NNv]=50*Cos(a)
        set Cq[NNv]=50*Sin(a)
    else
        call SetUnitScale(II[(Nq[NNv])],((1)*1.),0,0)
        set cq[NNv]=35*Cos(a)
        set Cq[NNv]=35*Sin(a)
    endif
    call SetUnitAnimation(II[Nq[NNv]],"Attack Slam")
    call Unit_App_Counter($A7,Aq[NNv])
    return false
endfunction

function Aie takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Close the door!!Put the dog!!",$FF,0,0)
    return false
endfunction

function Aae takes nothing returns nothing
    call RegisterSpellEffectEvent('A03M',function Are)
    call RegisterSpellEffectEvent('A0KR',function Are)
    call RegisterSpellChannelEvent('A03M',function Aie)
    call RegisterSpellChannelEvent('A0KR',function Aie)
endfunction

function Ane takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local unit t
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
    loop
        set t=FirstOfGroup(G)
        exitwhen t==null
        call GroupRemoveUnit(G,t)
        if IsUnitInRangeXY(t,x,y,$3E8)then
            if IsUnitAliveAndEnemy(t,u)then
                call UnitDamageTargetBY(((u)),((t)),(((($7530)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    call PlaySoundOnUnit_BJ((fa),((100)*1.),(u))
    call Ltv(LAv("dragonslayve.mdl",GetUnitX(u),GetUnitY(u),4.5))
    set u=null
    return false
endfunction

function AVe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"A town soul!",$FF,0,0)
    return false
endfunction

function AEe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local integer fx=LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX(u),GetUnitY(u),3)
    call PlaySoundOnUnit_BJ((Da),((100)*1.),(u))
    call LFv(fx,"Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl")
    call Ltv(fx)
    set u=null
    return false
endfunction

function AXe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Spring comes!",$FF,0,0)
    return false
endfunction

function AOe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local unit t
    local boolean Ite=(IsUnitType((u),UNIT_TYPE_GIANT))
    local integer i=8
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        if Ite then
            call Ltv(Lbv(LVv('e00A',x+600*Cos(a),y+600*Sin(a),0),5,.5))
        else
            call Ltv(Lbv(LVv('e00A',x+$AF*Cos(a),y+$AF*Sin(a),0),1,.5))
        endif
        exitwhen i==0
    endloop
    if Ite then
        call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
        loop
            set t=FirstOfGroup(G)
            exitwhen t==null
            call GroupRemoveUnit(G,t)
            if IsUnitInRangeXY(t,x,y,$3E8)then
                if IsUnitAliveAndEnemy(t,u)then
                    call UnitDamageTargetBY(((u)),((t)),(((($4E20)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
    endif
    set u=null
    return false
endfunction

function ARe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Hellfire",$FF,0,0)
    return false
endfunction

function AIe takes nothing returns nothing
    local unit u
    set Fq=Fq-1
    set gq=gq+hq
    set Gq=Gq+Hq
    call GroupEnumUnitsInRange(G,gq,Gq,500+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,gq,Gq,500)then
            if not IsUnitInGroup(u,fq)and IsUnitAliveAndEnemy(u,Dq)then
                call GroupAddUnit(fq,u)
                call UnitDamageTargetBY(((Dq)),((u)),(((($61A8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",gq,Gq,4.5))
    if Fq<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:116")
        call RecycleGroup(fq)
        set Dq=null
        set fq=null
    endif
endfunction

function AAe takes nothing returns boolean
    local real a
    set Dq=GetTriggerUnit()
    set fq=NewGroup()
    set Fq=6
    set gq=GetUnitX(Dq)
    set Gq=GetUnitY(Dq)
    set a=Atan2(GetSpellTargetY()-Gq,GetSpellTargetX()-gq)
    set hq=$C8*Cos(a)
    set Hq=$C8*Sin(a)
    call Lqv(LIv("PinkRedLaser.mdl",gq+.25*hq,Gq+.25*Hq,0,1.5,a,90),1.5)
    call PlaySoundOnUnit_BJ((Fa),((100)*1.),(Dq))
    call TimerStart((NewTimer(0)),.05,true,function AIe)
    return false
endfunction

function ANe takes nothing returns nothing
    call RegisterSpellEffectEvent('A03N',function AAe)
endfunction

function Abe takes nothing returns nothing
    set Jq=Jq-1
    if Jq<=0 or not UnitAlive(jq)then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:117")
        call SetUnitFlyHeight(jq,0,400)
        set jq=null
    elseif GetUnitAbilityLevel(jq,'Avul')==0 and GetUnitFlyHeight(jq)<700 then
        call SetUnitFlyHeight(jq,700,400)
    endif
endfunction

function ABe takes nothing returns boolean
    set jq=GetTriggerUnit()
    set Jq=600
    if UnitAddAbility(jq,'Amrf')then
        call UnitRemoveAbility(jq,'Amrf')
    endif
    call SetUnitFlyHeight(jq,700,400)
    call PlaySoundOnUnit_BJ((dn),((100)*1.),(jq))
    call TimerStart((NewTimer(0)),.05,true,function Abe)
    return false
endfunction

function Ace takes nothing returns nothing
    call RegisterSpellEffectEvent('A0AG',function ABe)
endfunction

function ACe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local unit t
    local boolean Ite=(IsUnitType((u),UNIT_TYPE_GIANT))
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a
    local real d
    local integer i
    if Ite then
        set i=24
        call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
        loop
            set t=FirstOfGroup(G)
            exitwhen t==null
            call GroupRemoveUnit(G,t)
            if IsUnitInRangeXY(t,x,y,$3E8)then
                if IsUnitAliveAndEnemy(t,u)then
                    call UnitDamageTargetBY(((u)),((t)),(((($7530)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
    else
        set i=$C
    endif
    loop
        set i=i-1
        set a=GetRandomReal(0,Lx)
        if Ite then
            set d=GetRandomReal(0,800)
        else
            set d=GetRandomReal(0,400)
        endif
        call Ltv(Lbv(LVv('e003',x+d*Cos(a),y+d*Sin(a),0),1.25,.75))
        exitwhen i==0
    endloop
    set u=null
    return false
endfunction

function Ade takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Shine!My sword!",0,$FF,0)
    return false
endfunction

function ADe takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit t=GetSpellTargetUnit()
    local real a
    call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",GetUnitX(t),GetUnitY(t),1.5))
    call UnitDamageTargetBY(((c)),((t)),(((($2710)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    if UnitAlive(t)then
        set a=GetUnitFacing(c)*bj_DEGTORAD
        call m2v(t,3,'A500','B500',true)
        call GJv(t,GetUnitX(c)+100*Cos(a),GetUnitY(c)+100*Sin(a),.25)
    endif
    set c=null
    set t=null
    return false
endfunction

function Afe takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:118")
    if UnitAlive((Je[(id)]))then
        call PauseUnit((Je[(id)]),false)
    endif
    call Unit_Cancel_Counter($A8,id)
endfunction

function AFe takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    local boolean Ite=(IsUnitType(((Je[(id)])),UNIT_TYPE_GIANT))
    local group g
    local unit c
    local unit u
    local integer i
    local real x
    local real y
    local real a
    if UnitAlive((Je[(id)]))then
        set c=(Je[(id)])
        set x=GetUnitX(c)
        set y=GetUnitY(c)
        set a=bj_DEGTORAD*GetUnitFacing(c)
        if Ite then
            set g=NewGroup()
            set i=5
            call Lqv(LIv("Abilities\\Spells\\Human\\ReviveHuman\\ReviveHuman.mdl",x+75*Cos(a),y+75*Sin(a),25,6.5,a,0),1.5)
            loop
                set i=i-1
                set x=x+$AF*Cos(a)
                set y=y+$AF*Sin(a)
                call GroupEnumUnitsInRange(G,x,y,300+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,300)then
                        if not IsUnitInGroup(u,g)and IsUnitAliveAndEnemy(u,c)then
                            call GroupAddUnit(g,u)
                            call UnitDamageTargetBY(((c)),((u)),(((($9C40)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
                exitwhen i==0
            endloop
            call RecycleGroup(g)
        else
            call Lqv(LIv("Abilities\\Spells\\Human\\ReviveHuman\\ReviveHuman.mdl",x+50*Cos(a),y+50*Sin(a),25,2.5,a,0),1.5)
        endif
        call SetUnitAnimation(c,"Spell")
        call QueueUnitAnimation(c,"Stand")
        call TimerStart(t,.75,false,function Afe)
        set c=null
    else
        call ReleaseTimer(t,"[TimerUtils]Error:119")
        call Unit_Cancel_Counter($A9,id)
    endif
    set t=null
endfunction

function Age takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call NewTextTagInTarget_A((Je[(id)]),"The punishment of divine light(not judgement?)",$FF,0,0)
    call PauseUnit((Je[(id)]),true)
    call SetUnitAnimation((Je[(id)]),"Stand Channel")
    call TimerStart(NewTimer(id),2.6,false,function AFe)
    call Unit_App_Counter($AA,id)
    return false
endfunction

function AGe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local unit t
    local integer i=$C
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a
    call GroupEnumUnitsInRange(G,x,y,$4B0+75,null)
    loop
        set t=FirstOfGroup(G)
        exitwhen t==null
        call GroupRemoveUnit(G,t)
        if IsUnitInRangeXY(t,x,y,$4B0)then
            if IsUnitAliveAndEnemy(t,u)then
                call UnitDamageTargetBY(((u)),((t)),(((($186A0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    loop
        set i=i-1
        set a=bj_PI*i/ 6
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x+500*Cos(a),y+500*Sin(a),7))
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",x+500*Cos(a),y+500*Sin(a),7))
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x+$3E8*Cos(a),y+$3E8*Sin(a),7))
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",x+$3E8*Cos(a),y+$3E8*Sin(a),7))
        exitwhen i==0
    endloop
    set u=null
    return false
endfunction

function Ahe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Light trial",$FF,0,0)
    return false
endfunction

function AHe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Spring comes!!",$FF,0,0)
    return false
endfunction

function Aje takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local real a=GetUnitFacing(u)*bj_DEGTORAD
    call GJv(GetSpellTargetUnit(),GetUnitX(u)+100*Cos(a),GetUnitY(u)+100*Sin(a),.25)
    set u=null
    return false
endfunction

function AJe takes nothing returns boolean
    local unit u=GetTriggerUnit()
    local unit t
    local integer i=$C
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a
    call GroupEnumUnitsInRange(G,x,y,$4B0+75,null)
    loop
        set t=FirstOfGroup(G)
        exitwhen t==null
        call GroupRemoveUnit(G,t)
        if IsUnitInRangeXY(t,x,y,$4B0)then
            if IsUnitAliveAndEnemy(t,u)then
                call UnitDamageTargetBY(((u)),((t)),(((($186A0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    loop
        set i=i-1
        set a=bj_PI*i/ 6
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+$4B0*Cos(a),y+$4B0*Sin(a),7))
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+900*Cos(a),y+900*Sin(a),7))
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+600*Cos(a),y+600*Sin(a),7))
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+300*Cos(a),y+300*Sin(a),7))
        exitwhen i==0
    endloop
    set u=null
    return false
endfunction

function Ake takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Dark trial",0,$FF,0)
    return false
endfunction

function AKe takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"My Kirin arm has another attack!!",0,$FF,0)
    return false
endfunction

function Ale takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Come out my slave!",0,0,$FF)
    return false
endfunction

function ALe takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local real x=GetUnitX(GetSpellTargetUnit())
    local real y=GetUnitY(GetSpellTargetUnit())
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),(((($AFC8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    set c=null
    return false
endfunction

function Ame takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Frost Nova!",0,0,$FF)
    return false
endfunction

function AMe takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local boolean Ite=(IsUnitType((c),UNIT_TYPE_GIANT))
    local integer i=8
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a
    if Ite then
        call GroupEnumUnitsInRange(G,x,y,$4B0+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$4B0)then
                if IsUnitAliveAndEnemy(u,c)then
                    call UnitDamageTargetBY(((c)),((u)),(((($186A0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call Ltv(LAv("Shiva'sWrath.mdl",x,y,4))
    else
        call Ltv(LAv("Shiva'sWrath.mdl",x,y,1.5))
    endif
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        if Ite then
            call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x+600*Cos(a),y+600*Sin(a),5.5),1.5)
            call Lqv(LAv("Doodads\\Cinematic\\FrostTrapUp\\FrostTrapUp.mdl",x+800*Cos(a),y+800*Sin(a),4.5),1)
        else
            call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x+$96*Cos(a),y+$96*Sin(a),.75),1.5)
            call Lqv(LAv("Doodads\\Cinematic\\FrostTrapUp\\FrostTrapUp.mdl",x+$C8*Cos(a),y+$C8*Sin(a),1),1)
        endif
        exitwhen i==0
    endloop
    set c=null
    return false
endfunction

function Ape takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"Frozen you a king eight lambs!",0,0,$FF)
    return false
endfunction

function APe takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:120")
    call SetUnitVertexColor((Je[(id)]),75,25,25,$FF)
    call PauseUnit((Je[(id)]),false)
    call Unit_Cancel_Counter($AB,id)
    set wE=0
endfunction

function Aqe takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local unit c=(Je[((alloc__hpv(GetHandleId((t)))))])
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real fYv
    local real fzv
    local integer i
    if UnitAlive(c)then
        if wE<20 then
            set wE=wE+1
            set i=$C8-$A*wE
            call Ltv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,2+.1*wE),$FF,i,i,$FF))
            call SetUnitVertexColor(c,R2I(75.-75.*wE/ 20.),R2I(25.-25.*wE/ 20.),R2I(25.-25.*wE/ 20.),$FF)
            call TimerStart(t,.27-.01*wE,false,function Aqe)
        else
            set x=GetUnitX(c)
            set y=GetUnitY(c)
            set i=16
            loop
                set i=i-1
                set fYv=400*Cos(i*Lx/ 16)
                set fzv=400*Sin(i*Lx/ 16)
                call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+fYv,y+fzv,2))
                call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+2*fYv,y+2*fzv,2))
                call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+3*fYv,y+3*fzv,2))
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,$4B0+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$4B0)then
                    if IsUnitAliveAndEnemy(u,c)then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"chest"))
                        call UnitDamageTargetBY(((c)),((u)),((((GetWidgetLife(u)-1)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                    endif
                endif
            endloop
            call m1v(c,12.5)
            call zjv(100,1)
            call Ltv(LAv("Desecrate.mdl",x,y,3))
            call Ltv(LAv("Desecrate.mdl",x,y,3))
            call SetUnitAnimation(c,"Spell")
            call QueueUnitAnimation(c,"Stand")
            call TimerStart(t,1,false,function APe)
            call Unit_App_Counter($AC,((GetUnitUserData((c)))))
        endif
    else
        call ReleaseTimer(t,"[TimerUtils]Error:121")
    endif
    set t=null
    set c=null
endfunction

function AQe takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local real s=1.05+.5*wE
    local real x
    local real y
    local integer r
    local integer i
    if(IsUnitType((c),UNIT_TYPE_GIANT))then
        set wE=wE+1
        if wE<3 then
            set r=GetRandomInt(1,3)
            set i=8
            set x=GetUnitX(c)
            set y=GetUnitY(c)
            call GroupEnumUnitsInRange(G,x,y,400*s+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,400*s)then
                    if IsUnitAliveAndEnemy(u,c)then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"chest"))
                        call UnitDamageTargetBY(((c)),((u)),(((($9C4+(.25+.25*wE)*GetUnitState(u,UNIT_STATE_LIFE))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                    endif
                endif
            endloop
            loop
                set i=i-1
                call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+325*s*Cos(i*Lx/ 8),y+325*s*Sin(i*Lx/ 8),2*s),$FF,105,105,$FF))
                exitwhen i==0
            endloop
            call zjv(50,.75)
            call Ltv(LAv("Desecrate.mdl",x,y,1.5*s))
            if r==1 then
                call NewTextTagInTarget_A(c,"Boring fight quickly over it  !",$FF,0,0)
            elseif r==2 then
                call NewTextTagInTarget_A(c,"Hallelujah.Haha",$FF,0,0)
            elseif r==3 then
                call NewTextTagInTarget_A(c,"Waiting for you will be the power of destruction !",$FF,0,0)
            endif
        else
            call NewTextTagInTarget_A(c,"Fast!All come!!Get close to me!",$FF,0,0)
            call PauseUnit(c,true)
            call TimerStart(NewTimer((GetUnitUserData((c)))),.24,true,function Aqe)
        endif
    else
        set r=GetRandomInt(1,3)
        set i=8
        set x=GetUnitX(c)
        set y=GetUnitY(c)
        loop
            set i=i-1
            call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+$96*Cos(i*Lx/ 8),y+$96*Sin(i*Lx/ 8),.75),$FF,105,105,$FF))
            exitwhen i==0
        endloop
        if r==1 then
            call NewTextTagInTarget_A(c,"Boring battle is always the ending !",$FF,0,0)
        elseif r==2 then
            call NewTextTagInTarget_A(c,"Continue arrogant ah!",$FF,0,0)
        elseif r==3 then
            call NewTextTagInTarget_A(c,"Waiting for you will be the power of destruction !",$FF,0,0)
        endif
        call zhv((GetPlayerId((GetOwningPlayer(c)))),40,.5)
        call Ltv(LAv("Desecrate.mdl",x,y,.875))
    endif
    set c=null
    return false
endfunction

function Ase takes nothing returns nothing
    local unit u
    call GroupEnumUnitsInRange(G,Kq,lq,325+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,Kq,lq,325)then
            if IsUnitAliveAndEnemy(u,(Je[(kq)]))then
                call UnitDamageTargetBY((((Je[(kq)]))),((u)),(((($61A8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,2.5)
            endif
        endif
    endloop
    call DestroyEffect(AddSpecialEffect("firegold.mdl",Kq,lq))
    call Auxiliary_PointOrder(('A07S'),P[$B],1,$D0108,Kq,lq)
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:122")
endfunction

function ASe takes nothing returns boolean
    local integer i=30
    set kq=(GetUnitUserData((GetTriggerUnit())))
    set Kq=GetSpellTargetX()
    set lq=GetSpellTargetY()
    loop
        set i=i-1
        call Lqv(LAv("Environment\\SmallBuildingFire\\SmallBuildingFire2.mdl",Kq+350*Cos(i*Lx/ 30),lq+350*Sin(i*Lx/ 30),1.25),1.75)
        exitwhen i==0
    endloop
    call Lqv(LAv("ChaosMeteorV3.mdl",Kq,lq,1.5),2.5)
    call TimerStart((NewTimer(0)),1.95,false,function Ase)
    return false
endfunction

function Ate takes nothing returns nothing
    local integer s=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(s)]))then
        set x=GetUnitX((Je[(s)]))
        set y=GetUnitY((Je[(s)]))
        call GroupEnumUnitsInRange(G,x,y,350+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if IsUnitAliveAndEnemy(u,(Je[(s)]))then
                    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedDamage.mdl",u,"chest",1)
                    call UnitDamageTargetBY((((Je[(s)]))),((u)),(((($BB8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:123")
        call Unit_Cancel_Counter($AD,s)
    endif
endfunction

function ATe takes nothing returns boolean
    local integer id=(GetUnitUserData((GetSummonedUnit())))
    call SetUnitVertexColor((Je[(id)]),$FF,25,25,$CD)
    call TimerStart(NewTimer(id),1,true,function Ate)
    call Unit_App_Counter($AE,id)
    return false
endfunction

function Aue takes nothing returns nothing
    call RegisterSpellEffectEvent('A07T',function ASe)
    call RegisterSummonEvent('n026',function ATe)
endfunction

function AUe takes nothing returns nothing
    local integer Zhv
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real zA
    local real d
    local real l
    local real fYv
    local real fzv
    if UnitAlive((Je[(Lq)]))then
        set Mq=Mq+1
        set x=GetUnitX((Je[(Lq)]))
        set y=GetUnitY((Je[(Lq)]))
        call LKv(mq,x)
        call Llv(mq,y)
        if Mq>64 then
            set a=Lx*(Mq+GetRandomInt(-1,1))/ 3+GetRandomReal(-1,1)
            set d=GetRandomReal(50,400)
            call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+d*Cos(a),y+d*Sin(a),1.5))
            if ModuloInteger(Mq,32)==0 then
                set i=5
                set a=(Mq-64.)*Lx/ 256.
                set fYv=$C8*Cos(a)
                set fzv=$C8*Sin(a)
                loop
                    set i=i-1
                    set x=x+fYv
                    set y=y+fzv
                    call GroupEnumUnitsInRange(G,x,y,256+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,256)then
                            if IsUnitOfPlayerNotseckill(u)then
                                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"chest"))
                                call KillUnitBJ(u)
                            endif
                        endif
                    endloop
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y,4),$FF,0,0,$FF))
                    call Ltv(LAv("firegold.mdl",x,y,1.25))
                    call Ltv(LAv("Desecrate.mdl",x,y,.75))
                    exitwhen i==0
                endloop
                call zjv(40,1)
                if Mq>=320 then
                    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:124")
                    call SetUnitDecay(II[mq],$FF,0,0,$FF,1.5)
                    call LQv(mq,1.5)
                    call Unit_Cancel_Counter($AF,Lq)
                endif
            endif
        else
            set a=GetRandomReal(0,Lx)
            set zA=GetRandomReal(0,Lx/ 2.)
            set Zhv=CreateBarrageTypeC(x+(450.+450.*Mq/ 64.)*Cos(a)*Sin(zA),y+(450.+450.*Mq/ 64.)*Sin(a)*Sin(zA),300+300*Cos(zA),(Je[(Lq)]))
            call SetBarrageFlightRadian(Zhv,.3)
            set s__barrage_speed[Zhv]=$A
            set s__barrage_acceleration[Zhv]=2.5+5.*Mq/ 64.
            set s__barrage_impact_z[Zhv]=300
            call LMv(s__barrage_model[Zhv],"CurseBolt.mdl")
            call SetUnitScale(II[(s__barrage_model[Zhv])],((2.+Mq/ 32.)*1.),0,0)
            call Lfv(s__barrage_model[Zhv],$9B,$9B,$9B,$9B)
            call BOv(Zhv)
            if Mq==64 then
                call NewTextTagInTarget_A((Je[(Lq)]),"I will give you one of the most brutal ways of death !!",$FF,0,0)
                call PauseUnit((Je[(Lq)]),false)
                call LFv(mq,"ChaosExplosion.mdl")
                call Lfv(mq,$FF,0,0,$FF)
            endif
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:125")
        call SetUnitDecay(II[mq],$FF,0,0,$FF,1.5)
        call LQv(mq,1.5)
        call Unit_Cancel_Counter($B0,Lq)
    endif
endfunction

function Awe takes nothing returns boolean
    set Lq=(GetUnitUserData((GetTriggerUnit())))
    set mq=LAv("Abilities\\Spells\\Undead\\UnholyAura\\UnholyAura.mdl",GetUnitX((Je[(Lq)])),GetUnitY((Je[(Lq)])),5)
    set Mq=0
    call NewTextTagInTarget_A(GetTriggerUnit(),"Your end is coming! See the king of Hades!!",$FF,0,0)
    call zjv(60,2)
    call zlv($FF,125,125,.75)
    call TimerStart(NewTimer((GetUnitUserData((((Je[(Lq)])))))),0,false,function m4v_func)
    call TimerStart((NewTimer(0)),.03125,true,function AUe)
    call Unit_App_Counter($B1,Lq)
    return false
endfunction

function AWe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0A9',function Awe)
endfunction

function Aye takes nothing returns integer
    return D9v(Qq)
endfunction

function AYe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function Aze takes nothing returns boolean
    local integer NNv=J[Qq]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==NNv
        if UnitAlive((Je[(pq[NNv])]))then
            set x=GetUnitX((Je[(pq[NNv])]))
            set y=GetUnitY((Je[(pq[NNv])]))
            call GroupEnumUnitsInRange(G,x,y,$80+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$80)then
                    exitwhen IsUnitAliveAndEnemyNotAvul(u,(Je[(pq[NNv])]))
                endif
            endloop
            if u==null then
                call SetWidgetLife((Je[(pq[NNv])]),MaxR(.5,GetWidgetLife((Je[(pq[NNv])]))-2500./ 32.))
            else
                call GroupEnumUnitsInRange(G,x,y,275+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,275)then
                        if IsUnitAliveAndEnemyNotAvul(u,(Je[(pq[NNv])]))then
                            call UnitDamageTargetBY((((Je[(pq[NNv])]))),((u)),((((GetUnitMaxLifeById((GetUnitUserData((u))))/ 3)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
                call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y,2.25))
                call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaBlood\\NagaBloodWindserpent.mdl",x,y,2.5))
                call KillUnit((Je[(pq[NNv])]))
                call Unit_Cancel_Counter($B2,pq[NNv])
                call fvv((NNv))
            endif
        else
            call Unit_Cancel_Counter($B3,pq[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function AZe takes nothing returns nothing
    set Qq=fxv(function Aze)
endfunction

function A_e takes nothing returns nothing
    local integer NNv
    local integer i
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:126")
    if UnitAlive(oi)then
        set i=5
        loop
            set i=i-1
            set NNv=(D9v(Qq))
            set pq[NNv]=(GetUnitUserData((CreateUnit(P[$C],'n021',ii[i],ai[i],0))))
            call IssuePointOrderById((Je[(pq[NNv])]),$D0012,Pq,qq)
            call DestroyEffect(AddSpecialEffect("Doodads\\Dungeon\\Terrain\\EggSack\\EggSack0.mdl",ii[i],ai[i]))
            call Unit_App_Counter($B4,pq[NNv])
            exitwhen i==0
        endloop
    endif
endfunction

function A0e takes nothing returns boolean
    set Pq=GetUnitX(GetSpellTargetUnit())
    set qq=GetUnitY(GetSpellTargetUnit())
    call TimerStart((NewTimer(0)),.8,false,function A_e)
    return false
endfunction

function A1e takes nothing returns nothing
    call RegisterSpellEffectEvent('A04Z',function A0e)
endfunction

function A2e takes nothing returns nothing
    local integer cFv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:127")
    local real x=(GetUnitX(II[(cFv)]))
    local real y=(GetUnitY(II[(cFv)]))
    local unit u
    if RI[cFv]==0 then
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,.75),1.27)
    else
        call GroupEnumUnitsInRange(G,x,y,125+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,125)then
                if IsUnitAliveAndEnemy(u,oi)then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",u,"origin"))
                    call UnitDamageTargetBY(((oi)),((u)),(((($2EE0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,3.5)
                endif
            endif
        endloop
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,1.25),1.27)
    endif
    call Lqv(cFv,1)
endfunction

function A3e takes nothing returns integer
    return D9v(Uq)
endfunction

function A4e takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function A5e takes nothing returns boolean
    local integer NNv=J[Uq]
    local integer cFv
    local real x
    local real y
    loop
        exitwhen 0==NNv
        set tq[NNv]=tq[NNv]-1
        set x=(GetUnitX(II[(sq[NNv])]))+Tq[NNv]
        set y=(GetUnitY(II[(sq[NNv])]))+uq[NNv]
        call LKv(sq[NNv],x)
        call Llv(sq[NNv],y)
        if Sq[NNv]then
            set cFv=LAv("FrostFang.mdl",x,y,1)
            set RI[cFv]=1
        else
            set cFv=LAv("FrostFang.mdl",x,y,.625)
            set RI[cFv]=0
        endif
        call TimerStart(NewTimer(cFv),1,false,function A2e)
        if tq[NNv]<1 then
            call Ltv(sq[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function A6e takes nothing returns nothing
    set Uq=fxv(function A5e)
endfunction

function A7e takes nothing returns boolean
    local integer i=3
    local boolean wdv=GetUnitTypeId(GetTriggerUnit())=='h01F'
    local real pX=GetUnitX(GetTriggerUnit())
    local real pY=GetUnitY(GetTriggerUnit())
    local real a=Atan2(GetSpellTargetY()-pY,GetSpellTargetX()-pX)+bj_PI/ 3
    local integer NNv
    loop
        set i=i-1
        set a=a-bj_PI/ 6
        set NNv=(D9v(Uq))
        set sq[NNv]=Lnv(pX,pY,0)
        set Sq[NNv]=wdv
        if wdv then
            set tq[NNv]=8
            set Tq[NNv]=$A0*Cos(a)
            set uq[NNv]=$A0*Sin(a)
        else
            set tq[NNv]=6
            set Tq[NNv]=80*Cos(a)
            set uq[NNv]=80*Sin(a)
        endif
        exitwhen i==0
    endloop
    return false
endfunction

function A8e takes nothing returns boolean
    call NewTextTagInTarget_A(GetTriggerUnit(),"When you see this tip, you do not need to avoid it, just move closer!",0,0,$FF)
    return false
endfunction

function A9e takes nothing returns nothing
    call RegisterSpellEffectEvent('A04B',function A7e)
    call RegisterSpellEffectEvent('A0FE',function A7e)
    call RegisterSpellChannelEvent('A04B',function A8e)
    call RegisterSpellChannelEvent('A0FE',function A8e)
endfunction

function Nve takes nothing returns boolean
    local integer i=5
    local real x=GetUnitX(oi)
    local real y=GetUnitY(oi)
    loop
        set i=i-1
        if GetRandomInt(1,2)==1 then
            call IssuePointOrderById(CreateUnit(P[$C],'n014',ii[i],ai[i],0),$D000F,x,y)
        else
            call IssuePointOrderById(CreateUnit(P[$C],'n028',ii[i],ai[i],0),$D000F,x,y)
        endif
        call DestroyEffect(AddSpecialEffect("Doodads\\Dungeon\\Terrain\\EggSack\\EggSack0.mdl",ii[i],ai[i]))
        exitwhen i==0
    endloop
    return false
endfunction

function Nee takes nothing returns boolean
    call NewTextTagInTarget_A(oi,"Come out!!My slave!",0,0,$FF)
    return false
endfunction

function Nxe takes nothing returns nothing
    call RegisterSpellEffectEvent('A056',function Nve)
    call RegisterSpellChannelEvent('A056',function Nee)
endfunction

function Noe takes nothing returns nothing
    local integer i=$A
    local integer fx
    local unit u
    local real a
    if zq>75 then
        set zq=zq-6.
        set Zq=Zq-.15
        loop
            set i=i-1
            set a=Zq-i*bj_PI/ 4
            set fx=LoadInteger(BYHT,Wq,i)
            call LKv(fx,yq+zq*Cos(a))
            call Llv(fx,Yq+zq*Sin(a))
            call SetUnitFacing(II[(fx)],((a+bj_PI/ 2)*1.)*bj_RADTODEG)
            exitwhen i==0
        endloop
    else
        call DestroyEffect(AddSpecialEffect("AncientExplode.mdl",yq,Yq))
        call GroupEnumUnitsInRange(G,yq,Yq,300+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,yq,Yq,300)then
                if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,(Je[(wq)]))then
                    call UnitDamageTargetBY((((Je[(wq)]))),((u)),(((($3E80)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitAppBuff((GetUnitUserData((u))),'A07V',$D006B)
                endif
            endif
        endloop
        loop
            set i=i-1
            call Ltv((LoadInteger(BYHT,Wq,i)))
            exitwhen i==0
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:128")
        call free(Wq)
    endif
endfunction

function Nre takes nothing returns boolean
    local integer i=$A
    local integer fx
    local real a
    set wq=(GetUnitUserData((GetTriggerUnit())))
    set Wq=malloc()
    set yq=GetSpellTargetX()
    set Yq=GetSpellTargetY()
    set zq=375
    set Zq=0
    loop
        set i=i-1
        set a=i*bj_PI/ 5
        set fx=Lnv(yq+zq*Cos(a),Yq+zq*Sin(a),a+bj_PI/ 2)
        call LMv(fx,"Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl")
        call SetUnitFlyHeight(II[(fx)],((25)*1.),0)
        call SetUnitScale(II[(fx)],((1.125)*1.),0,0)
        call SaveInteger(BYHT,Wq,i,fx)
        exitwhen i==0
    endloop
    call TimerStart((NewTimer(0)),.03125,true,function Noe)
    return false
endfunction

function Nie takes nothing returns nothing
    call RegisterSpellEffectEvent('A07M',function Nre)
endfunction

function Nae takes nothing returns nothing
    local real exe=GetUnitState((Je[(vQ)]),UNIT_STATE_MANA)-.5
    local real x=GetUnitX((Je[(vQ)]))
    local real y=GetUnitY((Je[(vQ)]))
    local real eoe
    local real dX
    local real dY
    local real tX
    local real tY
    local real a
    local real d
    local unit u
    call LKv(eQ,x)
    call Llv(eQ,y)
    call LKv(xQ,x)
    call Llv(xQ,y)
    if exe>0 and UnitAlive((Je[(vQ)]))then
        set eoe=.15+.005*(100.-exe)
        call GroupEnumUnitsInRange(G,x,y,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,600)then
                if IsUnitAliveAndEnemyNotAvul(u,(Je[(vQ)]))then
                    set tX=GetUnitX(u)
                    set tY=GetUnitY(u)
                    set dX=x-tX
                    set dY=y-tY
                    set d=eoe*(40.-SquareRoot(dX*dX+dY*dY)/ 30.)
                    set a=Atan2(dY,dX)
                    call SetUnitX(u,tX+d*Cos(a))
                    call SetUnitY(u,tY+d*Sin(a))
                endif
            endif
        endloop
        call SetUnitState((Je[(vQ)]),UNIT_STATE_MANA,exe)
    else
        if UnitAlive((Je[(vQ)]))then
            call LMv(xQ,"AncientExplode.mdl")
            call SetUnitScale(II[(xQ)],((2)*1.),0,0)
            call GroupEnumUnitsInRange(G,x,y,500+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,500)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(vQ)]))then
                        call UnitDamageTargetBY((((Je[(vQ)]))),((u)),(((($7A120)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                    endif
                endif
            endloop
            call Lfv(xQ,55,55,$FF,$FF)
        endif
        call PauseUnit((Je[(vQ)]),false)
        call SetUnitAnimation((Je[(vQ)]),"Stand")
        call SetUnitVertexColor((Je[(vQ)]),125,$FF,125,$FF)
        call SetUnitTimeScale((Je[(vQ)]),1)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:129")
        call Ltv(eQ)
        call Ltv(xQ)
    endif
endfunction

function Nne takes nothing returns boolean
    set vQ=(GetUnitUserData((GetTriggerUnit())))
    set eQ=LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",GetUnitX((Je[(vQ)])),GetUnitY((Je[(vQ)])),1.5)
    set xQ=LAv("Abilities\\Spells\\Human\\CloudOfFog\\CloudOfFog.mdl",(GetUnitX(II[(eQ)])),(GetUnitY(II[(eQ)])),2.5)
    call PauseUnit((Je[(vQ)]),true)
    call SetUnitVertexColor((Je[(vQ)]),125,125,$FF,$FF)
    call NewTextTagInTarget_A((Je[(vQ)]),"All over to enlarge(31237)!",$9B,$FF,$9B)
    call SetUnitAnimation((Je[(vQ)]),"Spell Slam")
    call SetUnitTimeScale((Je[(vQ)]),.25)
    call TimerStart((NewTimer(0)),.03125,true,function Nae)
    return false
endfunction

function NVe takes nothing returns nothing
    call RegisterSpellEffectEvent('A07X',function Nne)
endfunction

function NEe takes nothing returns integer
    return D9v(iQ)
endfunction

function NXe takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function NOe takes nothing returns boolean
    local integer NNv=J[iQ]
    local integer PVv
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real r
    loop
        exitwhen 0==NNv
        if UnitAlive(Sl)then
            set rQ[NNv]=rQ[NNv]-1
            set x=(GetUnitX(II[(oQ[NNv])]))
            set y=(GetUnitY(II[(oQ[NNv])]))
            call GroupEnumUnitsInRange(G,x,y,325+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,325)then
                    if IsUnitAliveAndEnemy(u,Sl)then
                        call UnitAppBuffByLevel((GetUnitUserData((u))),'A0IY',$D006B,2)
                    endif
                endif
            endloop
            if rQ[NNv]>8 then
                set r=(rQ[NNv]-8.)/ 54.
                set i=R2I(3.-2.*r)
                loop
                    exitwhen i==0
                    set i=i-1
                    set a=GetRandomReal(0,Lx)
                    set PVv=CreateBarrageTypeD(x+($FA+375*r)*Cos(a),y+($FA+375*r)*Sin(a),0,x,y,0)
                    set s__barrage_speed[PVv]=2.5
                    set s__barrage_acceleration[PVv]=3.75+2.5*r
                    call SetBarrageFlightRadian(PVv,.3+.15*r)
                    call LMv(s__barrage_model[PVv],"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
                    call SetUnitScale(II[(s__barrage_model[PVv])],((3-2*r)*1.),0,0)
                    call Lfv(s__barrage_model[PVv],105,$FF,105,105)
                    call BOv(PVv)
                endloop
            elseif rQ[NNv]<1 then
                set i=$C
                loop
                    set i=i-1
                    set a=i*Lx/ 12.
                    set PVv=CreateBarrageTypeD(x,y,0,x+$4B0*Cos(a),y+$4B0*Sin(a),0)
                    call LMv(s__barrage_model[PVv],"ShockwaveMissile.mdl")
                    call SetUnitScale(II[(s__barrage_model[PVv])],((1.5)*1.),0,0)
                    set s__barrage_atkunit[PVv]=Sl
                    set s__barrage_speed[PVv]=31.25
                    set s__barrage_acceleration[PVv]=.625
                    set s__barrage_CollisionRange[PVv]=$96
                    set aQ[(PVv)]=false
                    call Lfv(s__barrage_model[PVv],0,$CD,55,$FF)
                    call cNv(PVv)
                    exitwhen i==0
                endloop
                call Ltv(Lfv(LAv("AncientExplode.mdx",x,y,1),125,$9B,125,125))
                call Ltv(LAv("NatureExplosion.mdl",x,y,1.5))
                call Ltv(LAv("NatureWave.mdl",x,y,2))
                call Ltv(oQ[NNv])
                call fvv((NNv))
            endif
        else
            call Ltv(oQ[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function NRe takes nothing returns nothing
    set iQ=fxv(function NOe)
endfunction

function NIe takes real x,real y returns nothing
    local integer NNv=(D9v(iQ))
    set oQ[NNv]=LAv("AirImprisonment.mdl",x,y,3.5)
    set rQ[NNv]=64
    call Ltv(LAv("EarthWave.mdl",x,y,1.5))
    call Ltv(Lfv(LAv("AncientExplode.mdx",x,y,.75),125,$9B,125,125))
endfunction

function NAe takes integer NNv,unit u returns boolean
    if aQ[NNv]then
        if IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])then
            if IsUnitType(u,UNIT_TYPE_MECHANICAL)then
                call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),(((($9C40)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            else
                call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),(((($4E20)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
            call UnitAppBuffByLevel((GetUnitUserData((u))),'A0IY',$D006B,2)
        endif
    elseif IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])then
        call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),((((8500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    elseif u!=s__barrage_atkunit[NNv]and IsUnitAliveAndAlly(u,s__barrage_atkunit[NNv])then
        call UnitCureTaret(s__barrage_atkunit[NNv],u,$30D40)
    endif
    return false
endfunction

function NNe takes integer NNv returns boolean
    if aQ[NNv]then
        call NIe(s__locationez_X[s__barrage_p2[NNv]],s__locationez_Y[s__barrage_p2[NNv]])
    endif
    return true
endfunction

function Nbe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function NBe takes nothing returns boolean
    local integer NNv=s__barrage_FR[nQ]
    local unit u
    if NNv!=nQ then
        call UseBarrage(nQ)
        loop
            exitwhen NNv==nQ
            if(s__barrage_outside[(NNv)])then
                call NNe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if NNe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            else
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and NAe(NNv,u)then
                                    set u=null
                                    call NNe(NNv)
                                    call RemoveBarrage((NNv))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[nQ]then
        set s__barrage_InOperation[nQ]=false
        call TriggerEvaluate(OUv)
    endif
    return false
endfunction

function Nce takes nothing returns nothing
    call fov(VQ)
endfunction

function s__EtherealStrike_stop takes nothing returns nothing
    call frv(VQ)
endfunction

function NCe takes nothing returns nothing
    set VQ=fxv(function NBe)
    call fov(VQ)
endfunction

function Nde takes integer NNv returns nothing
    call s__barrage_Filling((nQ),(NNv))
    if not s__barrage_InOperation[nQ]then
        set s__barrage_InOperation[nQ]=true
        call fov(VQ)
    endif
endfunction

function NDe takes nothing returns nothing
    set nQ=NewLauncher()
    set s__barrage_InOperation[nQ]=true
endfunction

function Nfe takes nothing returns boolean
    local real x=GetUnitX(Sl)
    local real y=GetUnitY(Sl)
    local integer NNv=CreateBarrageTypeD(x,y,0,GetSpellTargetX(),GetSpellTargetY(),0)
    call LMv(s__barrage_model[NNv],"ShockwaveMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[NNv])],((3.5)*1.),0,0)
    set s__barrage_atkunit[NNv]=Sl
    set s__barrage_speed[NNv]=0
    set s__barrage_acceleration[NNv]=6.25
    set s__barrage_CollisionRange[NNv]=325
    set aQ[NNv]=true
    if wl<896 then
        call NewTextTagInTarget_B(Sl,"Get back !",18,$9B,$FF,$9B)
    endif
    call Ltv(Lfv(LAv("Abilities\\Spells\\NightElf\\BattleRoar\\RoarCaster.mdl",x,y,2),0,$CD,55,$FF))
    call Lfv(s__barrage_model[NNv],0,$CD,55,$FF)
    call Nde(NNv)
    return false
endfunction

function NFe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0J3',function Nfe)
endfunction

function Nge takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=(GetUnitX(II[(EQ[NNv])]))
    local real y=(GetUnitY(II[(EQ[NNv])]))
    local real dX=RQ[NNv]-x
    local real dY=IQ[NNv]-y
    local real d=2.5+.005*SquareRoot(dX*dX+dY*dY)
    local real a=Atan2(dY,dX)
    local unit u
    local integer i
    call LKv(EQ[NNv],x+d*Cos(a))
    call Llv(EQ[NNv],y+d*Sin(a))
    if not UnitAlive((Je[(NNv)]))then
        set OQ[NNv]=0
    else
        set OQ[NNv]=OQ[NNv]-1
        if ModuloInteger(OQ[NNv],48)==0 then
            set a=GetRandomReal(0,Lx)
            set d=GetRandomReal(0,500)
            set RQ[NNv]=GetUnitX((Je[(NNv)]))+d*Cos(a)
            set IQ[NNv]=GetUnitY((Je[(NNv)]))+d*Sin(a)
        endif
        if ModuloInteger(OQ[NNv],32)==0 then
            set i=3
            call GroupEnumUnitsInRange(G,x,y,500+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,500)then
                    if IsUnitAliveAndEnemy(u,(Je[(NNv)]))then
                        set i=i-1
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"origin"))
                        call Ltv(Lfv(LAv("LightningWrath.mdl",GetUnitX(u),GetUnitY(u),.75),$9B,$FF,$9B,$CD))
                        call Lqv(Lfv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",GetUnitX(u),GetUnitY(u),2.25),$9B,$FF,$9B,$CD),1)
                        call UnitDamageTargetBY((((Je[(NNv)]))),((u)),((((8000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m1v(u,2)
                        exitwhen i==0
                    endif
                endif
            endloop
            loop
                exitwhen i==0
                set i=i-1
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(0,400)
                call Ltv(Lfv(LAv("LightningWrath.mdl",x+d*Cos(a),y+d*Sin(a),.75),$9B,$FF,$9B,$CD))
                call Lqv(Lfv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",x+d*Cos(a),y+d*Sin(a),2.25),$9B,$FF,$9B,$CD),1)
            endloop
            call PlaySoundAtPoint_BJ((ln),(($7F)*1.),((x)*1.),((y)*1.),0)
            set u=null
        endif
    endif
    if OQ[NNv]>0 then
        call TimerStart(XQ[NNv],.03125,false,function Nge)
    else
        call ReleaseTimer(XQ[NNv],"[TimerUtils]Error:130")
        call Unit_Cancel_Counter($B5,(NNv))
        call Ltv(EQ[NNv])
        set XQ[NNv]=null
    endif
endfunction

function NGe takes unit c returns nothing
    local integer NNv=(GetUnitUserData((c)))
    local unit u
    set RQ[NNv]=GetUnitX(c)
    set IQ[NNv]=GetUnitY(c)
    if XQ[NNv]==null then
        set XQ[NNv]=NewTimer(NNv)
        set EQ[NNv]=Lfv(LAv("cumulonimbus.mdl",RQ[NNv],IQ[NNv],2.5),0,$CD,0,$FF)
        call Unit_App_Counter($B6,(NNv))
    else
        call LKv(EQ[NNv],RQ[NNv])
        call Llv(EQ[NNv],IQ[NNv])
    endif
    set OQ[NNv]=320
    call GroupEnumUnitsInRange(G,RQ[NNv],IQ[NNv],600+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,RQ[NNv],IQ[NNv],600)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),(((($30D4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,2.5)
            endif
        endif
    endloop
    call zlv(125,$FF,125,1)
    call Ltv(Lfv(LAv("LightningWrath.mdl",RQ[NNv],IQ[NNv],3),$9B,$FF,$9B,$CD))
    call Lqv(Lfv(LAv("Great Lightning.mdl",RQ[NNv],IQ[NNv],3),$9B,$FF,$9B,$CD),1)
    call TimerStart(XQ[NNv],1,false,function Nge)
endfunction

function Nhe takes nothing returns boolean
    call NewTextTagInTarget_B(Sl,"Oh my God!!Landslide crack!!",18,$9B,$FF,$9B)
    call NGe(Sl)
    return false
endfunction

function NHe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0J5',function Nhe)
endfunction

function Nje takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set AQ[NNv]=AQ[NNv]-1
    call SetUnitVertexColor((Je[(NNv)]),125,$FF,105,R2I($FF-$C8*AQ[NNv]/ 160.))
    if AQ[NNv]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:131")
        call SetUnitPathing((Je[(NNv)]),true)
        call PauseUnit((Je[(NNv)]),false)
        call SetUnitInvulnerable((Je[(NNv)]),false)
        call UnitApplyTimedLife((Je[(NNv)]),'Btlf',60)
        call Ltv(Lfv(LAv("NatureExplosion.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),.5),$FF,$FF,$FF,125))
        call Ltv(Lfv(LAv("Abilities\\Spells\\NightElf\\ReviveNightElf\\ReviveNightElf",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),.75),$FF,$FF,$FF,125))
        call Unit_Cancel_Counter($B7,(NNv))
    endif
endfunction

function NJe takes integer Cjv,real tX,real tY,real a returns nothing
    local integer NNv=(GetUnitUserData((CreateUnit(P[$C],Cjv,tX-$96*Cos(a),tY-$96*Sin(a),bj_RADTODEG*a))))
    set AQ[NNv]=$A0
    call SetUnitPathing((Je[(NNv)]),false)
    call PauseUnit((Je[(NNv)]),true)
    call SetUnitInvulnerable((Je[(NNv)]),true)
    call SetUnitVertexColor((Je[(NNv)]),125,$FF,105,55)
    call TimerStart(NewTimer(NNv),.03125,true,function Nje)
    call Unit_App_Counter($B8,(NNv))
endfunction

function Nke takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local unit u
    local integer i=2
    local integer iJ=3
    local integer j
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real tX
    local real tY
    set RF=false
    call GroupEnumUnitsInRange(G,x,y,800+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,800)then
            if nC[(GetUnitUserData((u)))]then
                set i=i-1
                set j=iJ
                set tX=GetUnitX(u)
                set tY=GetUnitY(u)
                set RF=false
                loop
                    set j=j-1
                    if GetRandomInt(1,2)==1 then
                        call NJe('n02T',tX,tY,j*Lx/ iJ)
                    else
                        call NJe('n02U',tX,tY,j*Lx/ iJ)
                    endif
                    exitwhen j==0
                endloop
                call m1v(u,1)
                call Ltv(LAv("NatureExplosion.mdl",tX,tY,1.75))
                call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",tX,tY,1.5),1)
                exitwhen i==0
            endif
        endif
    endloop
    call Ltv(LAv("NatureWave.mdl",x,y,2.5))
    call PlaySoundAtPoint_BJ((Qa),((125)*1.),((x)*1.),((y)*1.),0)
    set RF=true
    set c=null
    set u=null
    return false
endfunction

function NKe takes nothing returns boolean
    call NewTextTagInTarget_B(Sl,"Wake up!",18,$9B,$FF,$9B)
    return false
endfunction

function Nle takes nothing returns nothing
    call RegisterSpellChannelEvent('A0J4',function NKe)
    call RegisterSpellEffectEvent('A0J4',function Nke)
endfunction

function NLe takes unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if GetUnitAbilityLevel(u,'B03C')==0 then
        set NQ[NNv]=0
    else
        set NQ[NNv]=NQ[NNv]+1
    endif
    call UnitDamageTargetBY(((LL)),((u)),((((.0125*(1.+.1*I2R(NQ[NNv]/ 8))*GetUnitMaxLifeById((NNv)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    call UnitAppBuff((NNv),'A0J9',$D006B)
endfunction

function Nme takes integer NNv returns nothing
    if GetUnitCurrentOrder(cOv(NNv))==$D022F then
        call IssueImmediateOrderById(cOv(NNv),$D0004)
    endif
    call UnitRemoveAbilityandBuffBY((Je[(bQ[NNv])]),'A0JH','B03G')
    call Unit_Cancel_Counter($B9,bQ[NNv])
endfunction

function NMe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function Npe takes integer NNv returns nothing
    if BQ[NNv]then
        set cQ[CQ[NNv]]=cQ[NNv]
        set CQ[cQ[NNv]]=CQ[NNv]
        set BQ[NNv]=false
        if CQ[(0)]==0 then
            call frv(dQ)
        endif
        call Nme(NNv)
        call Unit_Cancel_Counter($BA,(NNv))
    endif
endfunction

function NPe takes nothing returns boolean
    local integer NNv=CQ[(0)]
    local real x
    local real y
    local real dX
    local real dY
    local real d
    local real a
    loop
        exitwhen NNv==0
        if not UnitAlive((Je[(bQ[NNv])]))or GetUnitCurrentOrder((Je[((NNv))]))!=$D022F then
            call Npe(NNv)
        elseif(PB[((bQ[NNv]))])then
            call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdx",(Je[(bQ[NNv])]),"chest"))
            call Npe(NNv)
        else
            set x=GetUnitX((Je[(bQ[NNv])]))
            set y=GetUnitY((Je[(bQ[NNv])]))
            set dX=GetUnitX((Je[((NNv))]))-x
            set dY=GetUnitY((Je[((NNv))]))-y
            set d=SquareRoot(dX*dX+dY*dY)
            if d>$7D0 then
                call Npe(NNv)
            elseif d<$80 then
                call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdx",(Je[(bQ[NNv])]),"chest"))
                call m1v((Je[(bQ[NNv])]),3)
                call Npe(NNv)
            else
                set a=Atan2(dY,dX)
                call SetUnitX((Je[(bQ[NNv])]),x+($F+.04*d)*Cos(a))
                call SetUnitY((Je[(bQ[NNv])]),y+($F+.04*d)*Sin(a))
                call m1v((Je[(bQ[NNv])]),.75)
            endif
        endif
        set NNv=CQ[NNv]
    endloop
    return false
endfunction

function Nqe takes integer NNv returns integer
    if BQ[NNv]then
        call Nme(NNv)
    else
        if CQ[(0)]==0 then
            if dQ==0 then
                set dQ=fxv(function NPe)
            endif
            call fov(dQ)
        endif
        set CQ[NNv]=CQ[(0)]
        set cQ[CQ[(0)]]=NNv
        set CQ[(0)]=NNv
        set cQ[NNv]=0
        set BQ[NNv]=true
        call Unit_App_Counter($BB,(NNv))
    endif
    return NNv
endfunction

function NQe takes unit u returns integer
    return Nqe((GetUnitUserData((u))))
endfunction

function Nse takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    set bQ[NNv]=(GetUnitUserData((GetSpellTargetUnit())))
    if(PB[((bQ[NNv]))])then
        call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdx",(Je[(bQ[NNv])]),"chest"))
    else
        set NNv=(Nqe((GetUnitUserData(((GetTriggerUnit()))))))
        call UnitAddAbilityBY((Je[(bQ[NNv])]),'A0JH')
        call Unit_App_Counter($BC,bQ[NNv])
    endif
    call SetUnitState((Je[((NNv))]),UNIT_STATE_MANA,0)
    return false
endfunction

function NSe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0JG',function Nse)
endfunction

function Nte takes nothing returns boolean
    local unit u=GetFilterUnit()
    local boolean b=nC[(GetUnitUserData((u)))]and not IsUnitPaused(u)and GetUnitAbilityLevel(u,'Avul')==0 and GetUnitAbilityLevel(u,'A0JH')==0
    set u=null
    return b
endfunction

function NTe takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real dX
    local real dY
    local real d
    local real a
    local real m
    if not UnitAlive((Je[(NNv)]))then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:132")
        call Unit_Cancel_Counter($BD,(NNv))
    else
        set m=GetUnitState((Je[(NNv)]),UNIT_STATE_MANA)
        if IsUnitNotAfrz((Je[(NNv)]))then
            set fQ[NNv]=ModuloInteger(fQ[NNv]+1,32)
            if not(Control_use[((NNv))])then
                set m=m+.03125*6.25
            endif
            if fQ[NNv]==0 then
                set x=GetUnitX((Je[(NNv)]))
                set y=GetUnitY((Je[(NNv)]))
                call GroupEnumUnitsInRange(G,x,y,325+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,325)then
                        if IsUnitAliveAndEnemy(u,(Je[(NNv)]))then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\PoisonSting\\PoisonStingTarget.mdl",u,"chest"))
                            call UnitDamageTargetBY((((Je[(NNv)]))),((u)),(((($7D0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
            endif
        else
            set fQ[NNv]=0
            set m=m-.03125*4.
            if GetUnitAbilityLevel((Je[(NNv)]),'Bfrz')==1 then
                call UnitDamageTargetBY((((Je[(NNv)]))),(((Je[(NNv)]))),((((.05/ 32.*GetUnitMaxLifeById((NNv)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            endif
        endif
        call SetUnitState((Je[(NNv)]),UNIT_STATE_MANA,m)
        if m>=100 and GetUnitCurrentOrder((Je[(NNv)]))!=$D022F then
            set DQ[NNv]=EnumUnitsMaxRangeFilter((Je[(NNv)]),$960,function Nte)
            if DQ[NNv]!=null then
                call IssueTargetOrderById((Je[(NNv)]),$D022F,DQ[NNv])
            endif
        endif
    endif
endfunction

function Nue takes integer NNv returns boolean
    if UnitAlive(s__barrage_target[NNv])then
        call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdx",s__barrage_target[NNv],"chest"))
        call UnitCureTaret(null,s__barrage_target[NNv],$493E0)
    endif
    return true
endfunction

function NUe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function Nwe takes nothing returns boolean
    local integer NNv=s__barrage_FR[FQ]
    local unit u
    if NNv!=FQ then
        call UseBarrage(FQ)
        loop
            exitwhen NNv==FQ
            if(s__barrage_outside[(NNv)])then
                call Nue(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if Nue(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[FQ]then
        set s__barrage_InOperation[FQ]=false
        call TriggerEvaluate(OZv)
    endif
    return false
endfunction

function NWe takes nothing returns nothing
    call fov(gQ)
endfunction

function s__DrainSoul_stop takes nothing returns nothing
    call frv(gQ)
endfunction

function Nye takes nothing returns nothing
    set gQ=fxv(function Nwe)
    call fov(gQ)
endfunction

function NYe takes integer NNv returns nothing
    call s__barrage_Filling((FQ),(NNv))
    if not s__barrage_InOperation[FQ]then
        set s__barrage_InOperation[FQ]=true
        call fov(gQ)
    endif
endfunction

function Nze takes nothing returns nothing
    set FQ=NewLauncher()
    set s__barrage_InOperation[FQ]=true
endfunction

function NZe takes nothing returns boolean
    local real x=GetUnitX(LL)
    local real y=GetUnitY(LL)
    local real tX
    local real tY
    local integer NNv
    local unit u
    local integer c
    call GroupEnumUnitsInRange(G,x,y,800+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,800)then
            if IsUnitAliveAndEnemyNotAvul(u,LL)then
                set tX=GetUnitX(u)
                set tY=GetUnitY(u)
                if(EQe(((GetUnitUserData(((u)))))))then
                    set NNv=CreateBarrageTypeC(tX,tY,GetUnitFlyHeight(u)+60,LL)
                    set s__barrage_atkunit[NNv]=u
                    set s__barrage_speed[NNv]=$F
                    set s__barrage_acceleration[NNv]=1.25
                    set s__barrage_impact_z[NNv]=$FA
                    call LMv(s__barrage_model[NNv],"Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl")
                    call SetUnitScale(II[(s__barrage_model[NNv])],((1.5)*1.),0,0)
                    if IsUnitType(u,UNIT_TYPE_MECHANICAL)then
                        set c=5
                    else
                        set c=1
                    endif
                    call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdx",u,"chest"))
                    call DestroyEffect(AddSpecialEffectTarget("CurseBolt.mdx",u,"chest"))
                    call Ewe(u,c)
                    call NYe(NNv)
                endif
                call Gjv(u,$96,Atan2(tY-y,tX-x),2,"KnockbackDust.mdx")
            endif
        endif
    endloop
    call zHv(75,.5,x,y,$4B0)
    call Ltv(LAv("Desecrate.mdl",x,y,3))
    return false
endfunction

function N_e takes nothing returns boolean
    call NewTextTagInTarget_B(LL,"If your soul is really yours?",18,$80,0,$CD)
    return false
endfunction

function N0e takes nothing returns nothing
    call RegisterSpellChannelEvent('A0JF',function N_e)
    call RegisterSpellEffectEvent('A0JF',function NZe)
endfunction

function N1e takes integer NNv returns boolean
    set GQ[NNv]=GQ[NNv]+1
    set s__barrage_CollisionRange[NNv]=375.-1.25*GQ[NNv]
    call SetUnitScale(II[(s__barrage_model[NNv])],((6.-.01*GQ[NNv])*1.),0,0)
    if ModuloInteger(GQ[NNv],6)==0 then
        call Ltv(LAv("DoomBlack.mdl",(GetUnitX(II[(s__barrage_model[NNv])])),(GetUnitY(II[(s__barrage_model[NNv])])),2.5-.0125*GQ[NNv]))
    endif
    return false
endfunction

function N2e takes integer NNv,unit u returns boolean
    if IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])then
        if IsUnitType(u,UNIT_TYPE_MECHANICAL)then
            call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),(((($C350)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        else
            call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),(((($4E20)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
        call DestroyEffect(AddSpecialEffectTarget("DoomBlack.mdl",u,"origin"))
        call UnitAppBuff((GetUnitUserData((u))),'A0JK',$D006B)
    endif
    return false
endfunction

function N3e takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function N4e takes nothing returns boolean
    local integer NNv=s__barrage_FR[hQ]
    local unit u
    if NNv!=hQ then
        call UseBarrage(hQ)
        loop
            exitwhen NNv==hQ
            if(s__barrage_outside[(NNv)])then
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                call RemoveBarrage((NNv))
            else
                if N1e(NNv)then
                    call RemoveBarrage((NNv))
                endif
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and N2e(NNv,u)then
                                    set u=null
                                    call RemoveBarrage((NNv))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[hQ]then
        set s__barrage_InOperation[hQ]=false
        call TriggerEvaluate(O_v)
    endif
    return false
endfunction

function N5e takes nothing returns nothing
    call fov(HQ)
endfunction

function s__WeaponOfNothingness_stop takes nothing returns nothing
    call frv(HQ)
endfunction

function N6e takes nothing returns nothing
    set HQ=fxv(function N4e)
    call fov(HQ)
endfunction

function N7e takes integer NNv returns nothing
    call s__barrage_Filling((hQ),(NNv))
    if not s__barrage_InOperation[hQ]then
        set s__barrage_InOperation[hQ]=true
        call fov(HQ)
    endif
endfunction

function N8e takes nothing returns nothing
    set hQ=NewLauncher()
    set s__barrage_InOperation[hQ]=true
endfunction

function N9e takes nothing returns boolean
    local real x=GetUnitX(LL)
    local real y=GetUnitY(LL)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local integer NNv=CreateBarrageTypeD(x,y,0,x+$7D0*Cos(a),y+$7D0*Sin(a),0)
    set s__barrage_atkunit[NNv]=LL
    set s__barrage_speed[NNv]=25
    set s__barrage_acceleration[NNv]=1.25
    call LMv(s__barrage_model[NNv],"White Claw.mdl")
    call SetUnitScale(II[(s__barrage_model[NNv])],((6)*1.),0,0)
    set s__barrage_CollisionRange[NNv]=375
    set GQ[NNv]=0
    call Lfv(s__barrage_model[NNv],$F,$F,$F,$CD)
    call N7e(NNv)
    return false
endfunction

function bve takes nothing returns boolean
    call UnitAnimationAddEffect(UnitAnimationAddEffect(UnitAppAnimation(LL),"SkullBuff.mdl","origin"),"OrbOfCorruption.mdl","hand right")
    return false
endfunction

function bee takes nothing returns nothing
    call RegisterSpellChannelEvent('A0I0',function bve)
    call RegisterSpellEffectEvent('A0I0',function N9e)
endfunction

function bxe takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if GetUnitAbilityLevel((Je[(NNv)]),'B03E')>0 then
        call UnitDamageTargetBY(((LL)),(((Je[(NNv)]))),((((.1*GetUnitMaxLifeById((NNv)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call ReleaseTimer(jQ[NNv],"[TimerUtils]Error:133")
        call Unit_Cancel_Counter($BE,(NNv))
        set jQ[NNv]=null
    endif
endfunction

function boe takes unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if not(PB[((NNv))])then
        if jQ[NNv]==null then
            set jQ[NNv]=NewTimer(NNv)
            call Unit_App_Counter($BF,(NNv))
        endif
        call UnitAppBuffByLevel((GetUnitUserData((u))),'A0JB',$D02BC,1)
        call TimerStart(jQ[NNv],1,true,function bxe)
    endif
endfunction

function bre takes nothing returns boolean
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local unit u
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAliveAndEnemyNotAvul(u,LL)then
                call DestroyEffect(AddSpecialEffectTarget("CurseBolt.mdl",u,"chest"))
                call boe(u)
            endif
        endif
    endloop
    call NewTextTagInTarget_B(LL,"Rest in silence",18,$80,0,$CD)
    call zHv(50,1,x,y,600)
    call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,3))
    call Ltv(LAv("uberdarkwave.mdl",x,y,.5))
    call PlaySoundAtPoint_BJ((pa),(($7F)*1.),((x)*1.),((y)*1.),0)
    return false
endfunction

function bie takes nothing returns nothing
    call RegisterSpellEffectEvent('A0JC',function bre)
endfunction

function bae takes integer NNv returns boolean
    local real x=s__locationez_X[s__barrage_p2[NNv]]
    local real y=s__locationez_Y[s__barrage_p2[NNv]]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,325+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,325)then
            if IsUnitOfPlayerNotseckill(u)then
                call KillUnitBJ(u)
            endif
        endif
    endloop
    call Ltv(LAv("ShadowAssault.mdl",x,y,2.5))
    return true
endfunction

function bne takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function bVe takes nothing returns boolean
    local integer NNv=s__barrage_FR[JQ]
    local unit u
    if NNv!=JQ then
        call UseBarrage(JQ)
        loop
            exitwhen NNv==JQ
            if(s__barrage_outside[(NNv)])then
                call bae(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if bae(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[JQ]then
        set s__barrage_InOperation[JQ]=false
        call TriggerEvaluate(O0v)
    endif
    return false
endfunction

function bEe takes nothing returns nothing
    call fov(kQ)
endfunction

function s__AbsoluteDevastation_stop takes nothing returns nothing
    call frv(kQ)
endfunction

function bXe takes nothing returns nothing
    set kQ=fxv(function bVe)
    call fov(kQ)
endfunction

function bOe takes integer NNv returns nothing
    call s__barrage_Filling((JQ),(NNv))
    if not s__barrage_InOperation[JQ]then
        set s__barrage_InOperation[JQ]=true
        call fov(kQ)
    endif
endfunction

function bRe takes nothing returns nothing
    set JQ=NewLauncher()
    set s__barrage_InOperation[JQ]=true
endfunction

function bIe takes nothing returns nothing
    local real x=GetRectCenterX(gg_rct_WLZS2_______________001)
    local real y=GetRectCenterY(gg_rct_WLZS2_______________001)
    local real tx
    local real ty
    local real a=GetRandomReal(0,Lx)
    local real a2=0
    local integer i
    local integer v
    if KQ==0 then
        set i=1
    else
        set i=R2I(KQ/ 325*6)
        set a2=Lx/ i
    endif
    loop
        exitwhen i==0
        set i=i-1
        set a=a+a2
        set tx=x+Cos(a)*KQ
        set ty=y+Sin(a)*KQ
        set v=CreateBarrageTypeD(tx,ty+400,900,tx,ty,0)
        set s__barrage_atkunit[v]=LL
        set s__barrage_speed[v]=1.25
        set s__barrage_acceleration[v]=.375
        call LMv(s__barrage_model[v],"OrbOfCorruption.mdl")
        call SetUnitScale(II[(s__barrage_model[v])],((3)*1.),0,0)
        call LFv(s__barrage_model[v],"Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl")
        call bOe(v)
    endloop
    set KQ=KQ+325
    if KQ>$514 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:134")
    endif
endfunction

function bAe takes nothing returns boolean
    if(IsUnitType((GetTriggerUnit()),UNIT_TYPE_GIANT))then
        set KQ=0
        call zlv($80,0,$FF,1)
        call TimerStart((NewTimer(0)),.1,true,function bIe)
    else
        call ZOv()
    endif
    return false
endfunction

function bNe takes nothing returns boolean
    if(IsUnitType((GetTriggerUnit()),UNIT_TYPE_GIANT))then
        call NewTextTagInTarget_B(GetTriggerUnit(),"Fools! Fall in darkness and despair!",18,$80,0,$CD)
    else
        call NewTextTagInTarget_B(GetTriggerUnit(),"Fools! Fall in darkness and despair!",9,$80,0,$CD)
    endif
    return false
endfunction

function bbe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0KS',function bNe)
    call RegisterSpellChannelEvent('A0JE',function bNe)
    call RegisterSpellEffectEvent('A0KS',function bAe)
    call RegisterSpellEffectEvent('A0JE',function bAe)
endfunction

function bCe takes nothing returns boolean
    local integer i=8
    set pQ=false
    call TriggerEvaluate(O2v)
    call TriggerEvaluate(O4v)
    call TriggerEvaluate(RVv)
    loop
        set i=i+1
        if MV[i]!=null and Off_A098_id[(GetUnitUserData((MV[i])))]=='n033' then
            set Off_A098[(GetUnitUserData((MV[i])))]=false
            set Off_A098_id[(GetUnitUserData((MV[i])))]=0
        endif
        exitwhen i==0
    endloop
    return false
endfunction

function bde takes real bDe returns nothing
    local real x=GetUnitX(LQ)
    local real y=GetUnitY(LQ)
    local unit u
    call GroupEnumUnitsInRange(G,x,y,bDe+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,bDe)then
            if IsUnitAliveAndEnemyNotAvul(u,LQ)then
                call Gjv(u,$AF,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),1.75,"KnockbackDust.mdl")
            endif
        endif
    endloop
    call Ltv(LAv("BlackChakraExplosion.mdx",x,y,3))
    call zHv(50,.5,x,y,$5DC)
endfunction

function bfe takes nothing returns nothing
    set pQ=true
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:135")
    call SetUnitTimeScale(LQ,1)
    call PauseUnit(LQ,false)
    call bde(750)
    call NewTextTagInTarget_B(LQ,"Here, death will be your only ending! ..",18,75,125,25)
    call DeUnitAdef((GetUnitUserData((LQ))),MQ)
    call AddUnitDeathTrig((GetUnitUserData((LQ))),function bCe)
    call B9v(LQ)
    call B5v(LQ)
    call B0v(LQ)
    call TriggerEvaluate(REv)
endfunction

function bFe takes nothing returns boolean
    call s__Trig_remove((s__Trig_Index))
    call cev(lQ)
    call SetUnitTimeScale(LQ,2.33/ lQ)
    call SetUnitAnimation(LQ,"birth")
    call QueueUnitAnimation(LQ,"stand")
    call TimerStart((NewTimer(0)),lQ,false,function bfe)
    return false
endfunction

function bge takes nothing returns nothing
    set mQ=gg_rct_BXSW______________002
    set LQ=gg_unit_n033_0007
    set MQ=ModifyUnitAdef((GetUnitUserData((LQ))),90)
    set pQ=false
    call SetUnitX(LQ,GetRectCenterX(mQ))
    call SetUnitY(LQ,GetRectCenterY(mQ))
    call PauseUnit(LQ,true)
    call SetUnitAnimation(LQ,"death")
    call TriggerEvaluate(O6v)
    call UnitAddShieldTrigB((GetUnitUserData((LQ))),function bFe)
endfunction

function bGe takes integer NNv returns nothing
    set SQ=SQ-1
    call SetUnitVertexColor(civ(NNv),85,85,0,$FF)
    call SetUnitScale(civ(NNv),qQ,0,0)
    call KillUnit(civ(NNv))
endfunction

function bhe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function bHe takes integer NNv returns nothing
    if TQ[NNv]then
        set uQ[UQ[NNv]]=uQ[NNv]
        set UQ[uQ[NNv]]=UQ[NNv]
        set TQ[NNv]=false
        if UQ[(0)]==0 then
            call frv(wQ)
        endif
        call bGe(NNv)
        call Unit_Cancel_Counter($C0,(NNv))
    endif
endfunction

function bje takes nothing returns boolean
    local integer NNv=UQ[(0)]
    if tQ>0 then
        set tQ=tQ-1
    endif
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            if sQ[NNv]>0 then
                set sQ[NNv]=sQ[NNv]-1
                if sQ[NNv]==0 then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(Je[((NNv))]),"origin"))
                    call SetUnitTimeScale((Je[((NNv))]),1)
                    call m_v((Je[((NNv))]),false)
                endif
            endif
        else
            call bHe(NNv)
        endif
        set NNv=UQ[NNv]
    endloop
    return false
endfunction

function bJe takes integer NNv returns integer
    if TQ[NNv]then
        call bGe(NNv)
    else
        if UQ[(0)]==0 then
            if wQ==0 then
                set wQ=fxv(function bje)
            endif
            call fov(wQ)
        endif
        set UQ[NNv]=UQ[(0)]
        set uQ[UQ[(0)]]=NNv
        set UQ[(0)]=NNv
        set uQ[NNv]=0
        set TQ[NNv]=true
        call Unit_App_Counter($C1,(NNv))
    endif
    return NNv
endfunction

function bke takes unit u returns integer
    return bJe((GetUnitUserData((u))))
endfunction

function bKe takes nothing returns nothing
    local integer NNv=UQ[(0)]
    loop
        exitwhen NNv==0
        call bHe(NNv)
        set NNv=UQ[NNv]
    endloop
endfunction

function ble takes nothing returns boolean
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\VampiricAura\\VampiricAuraTarget.mdl",(mF),"origin"))
    call B6v((mF),(MF),0)
    call UnitCureTaret(null,(mF),(DAK_AMOUNT[HF]))
    return false
endfunction

function bLe takes real x,real y,real a returns nothing
    local integer NNv
    if not IsUnitPaused(LQ)then
        set NNv=(bJe((GetUnitUserData(((CreateUnit(P[$B],'n03A',x,y,a)))))))
        set SQ=SQ+1
        set sQ[NNv]=R2I(32*PQ)
        call m_v((Je[((NNv))]),true)
        call SetUnitTimeScale((Je[((NNv))]),2.33/ PQ)
        call SetUnitAnimation((Je[((NNv))]),"birth")
        call QueueUnitAnimation((Je[((NNv))]),"stand")
        call UnitAddPAttackTrig((NNv),function ble)
        call B0v((Je[((NNv))]))
        if SQ==48 then
            call TriggerEvaluate(ROv)
        elseif SQ==48/ 2 and tQ==0 then
            set tQ=R2I(32*QQ)
            call StartSound(Za)
            call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,5,"|c0055864dNote: Too many zombies..|r")
        endif
    endif
endfunction

function bme takes integer NNv returns boolean
    call UnitCureTaret(null,s__barrage_target[NNv],.01*yQ*GetUnitMaxLifeById((GetUnitUserData((s__barrage_target[NNv])))))
    call SetUnitState(s__barrage_target[NNv],UNIT_STATE_MANA,GetUnitState(s__barrage_target[NNv],UNIT_STATE_MANA)+.01*YQ*GetUnitState(s__barrage_target[NNv],UNIT_STATE_MAX_MANA))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",s__barrage_target[NNv],"origin"))
    return true
endfunction

function bMe takes integer NNv,unit u returns boolean
    if IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",u,"origin"))
        call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),((((WQ)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    endif
    return false
endfunction

function bpe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function bPe takes nothing returns boolean
    local integer NNv=s__barrage_FR[zQ]
    local unit u
    if NNv!=zQ then
        call UseBarrage(zQ)
        loop
            exitwhen NNv==zQ
            if(s__barrage_outside[(NNv)])then
                call bme(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if bme(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            else
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and bMe(NNv,u)then
                                    set u=null
                                    call bme(NNv)
                                    call RemoveBarrage((NNv))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[zQ]then
        set s__barrage_InOperation[zQ]=false
        call TriggerEvaluate(O3v)
    endif
    return false
endfunction

function bqe takes nothing returns nothing
    call fov(ZQ)
endfunction

function s__WorshipMissile_stop takes nothing returns nothing
    call frv(ZQ)
endfunction

function bQe takes nothing returns nothing
    set ZQ=fxv(function bPe)
    call fov(ZQ)
endfunction

function bse takes integer NNv returns nothing
    call s__barrage_Filling((zQ),(NNv))
    if not s__barrage_InOperation[zQ]then
        set s__barrage_InOperation[zQ]=true
        call fov(ZQ)
    endif
endfunction

function bSe takes nothing returns nothing
    set zQ=NewLauncher()
    set s__barrage_InOperation[zQ]=true
endfunction

function bte takes unit NZv,unit N7v returns nothing
    local integer NNv=CreateBarrageTypeA(NZv,N7v)
    call LMv(s__barrage_model[NNv],"Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[NNv])],((2.5)*1.),0,0)
    set s__barrage_CollisionRange[NNv]=275.
    set s__barrage_speed[NNv]=.03125*750.
    call SetBarrageFlightRadianEZ(NNv,.15)
    call Lfv(s__barrage_model[NNv],125,$FF,125,$FF)
    call bse(NNv)
endfunction

function bTe takes nothing returns real
    return GetRandomReal(30.,60.)
endfunction

function bue takes integer NNv returns nothing
    set xs[NNv]=R2I(32*(GetRandomReal(30.,60.)))
    set os[NNv]=xs[NNv]
endfunction

function bUe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function bwe takes integer NNv returns nothing
    if as[NNv]then
        set Vs[Es[NNv]]=Vs[NNv]
        set Es[Vs[NNv]]=Es[NNv]
        set as[NNv]=false
        if Es[(0)]==0 then
            call frv(Xs)
        endif
        call Unit_Cancel_Counter($C2,(NNv))
    endif
endfunction

function bWe takes nothing returns boolean
    local integer NNv=Es[(0)]
    loop
        exitwhen NNv==0
        if UnitAlive((Je[(NNv)]))then
            if rs[NNv]>0 then
                if(Control_use[((NNv))])then
                    set rs[NNv]=0
                    call SetUnitAnimation((Je[(NNv)]),"death")
                else
                    set rs[NNv]=rs[NNv]-1
                    if rs[NNv]<1 then
                        call bte((Je[(NNv)]),LQ)
                        call SetUnitAnimation((Je[(NNv)]),"attack")
                    endif
                endif
                if rs[NNv]<1 then
                    call bue(NNv)
                    call QueueUnitAnimation((Je[(NNv)]),"stand")
                endif
            elseif not IsUnitPaused(LQ)then
                set os[NNv]=os[NNv]-1
                call SetUnitState((Je[(NNv)]),UNIT_STATE_MANA,(1.-os[NNv]/ I2R(xs[NNv]))*GetUnitState((Je[(NNv)]),UNIT_STATE_MAX_MANA))
                if os[NNv]<1 then
                    set rs[NNv]=R2I(32*4.)
                    call StartSound(Za)
                    call NewTextTagInTarget_A((Je[(NNv)]),"Oh God! Give me strength!!!",$F,$9B,$F)
                    call SetUnitTimeScale((Je[(NNv)]),2.267/ 4.)
                    call SetUnitAnimation((Je[(NNv)]),"stand work gold")
                    call QueueUnitAnimation((Je[(NNv)]),"stand")
                endif
            endif
        else
            call bwe(NNv)
        endif
        set NNv=Es[NNv]
    endloop
    return false
endfunction

function bye takes integer NNv returns boolean
    if not as[NNv]then
        if Es[(0)]==0 then
            if Xs==0 then
                set Xs=fxv(function bWe)
            endif
            call fov(Xs)
        endif
        set Es[NNv]=Es[(0)]
        set Vs[Es[(0)]]=NNv
        set Es[(0)]=NNv
        set Vs[NNv]=0
        set as[NNv]=true
        call Unit_App_Counter($C3,(NNv))
        return true
    endif
    return false
endfunction

function bYe takes integer NNv returns nothing
    if es[NNv]!=0 then
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0QC','B063')
        call DeUnitAdef((NNv),es[NNv])
        call SetUnitNocontrol((NNv),false)
        set es[NNv]=0
    endif
endfunction

function bze takes nothing returns nothing
    local integer i=4
    if not Os then
        set Os=true
        loop
            exitwhen i==0
            set i=i-1
            if UnitAlive((Je[(vs[i])]))then
                if GetRandomInt(1,2)==1 then
                    call NewTextTagInTarget_A((Je[(vs[i])]),"Oh ~ ~ selling cake Germany!!!",$F,$9B,$F)
                else
                    call NewTextTagInTarget_A((Je[(vs[i])]),"Wake the sleeping king!! ..",$F,$9B,$F)
                endif
                call SetUnitAnimation((Je[(vs[i])]),"attack")
                call QueueUnitAnimation((Je[(vs[i])]),"stand")
                call bte((Je[(vs[i])]),LQ)
            endif
        endloop
        call B1v(LQ)
    endif
endfunction

function bZe takes nothing returns nothing
    local integer i=4
    loop
        exitwhen i==0
        set i=i-1
        call bYe(vs[i])
        call RemoveUnitBJ((Je[(vs[i])]),5)
    endloop
endfunction

function b_e takes nothing returns nothing
    local integer i=4
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:136")
    loop
        exitwhen i==0
        set i=i-1
        call bye(vs[i])
        call bue(vs[i])
        call SetUnitTimeScale((Je[(vs[i])]),1)
        call m_v((Je[(vs[i])]),false)
    endloop
endfunction

function s__Acolyte_prepare takes nothing returns nothing
    local integer i=4
    local real x=GetRectCenterX(mQ)
    local real y=GetRectCenterY(mQ)
    local real dX=.66*(GetRectMaxX(mQ)-x)
    local real dY=.66*(GetRectMaxY(mQ)-y)
    local real a
    set vs[0]=(GetUnitUserData((gg_unit_n039_0548)))
    set vs[1]=(GetUnitUserData((gg_unit_n039_0549)))
    set vs[2]=(GetUnitUserData((gg_unit_n039_0040)))
    set vs[3]=(GetUnitUserData((gg_unit_n039_0547)))
    loop
        exitwhen i==0
        set i=i-1
        set es[vs[i]]=ModifyUnitAdef((vs[i]),100)
        call SetUnitNocontrol((vs[i]),true)
        call UnitAddAbilityBY((Je[(vs[i])]),'A0QC')
        call SetUnitVertexColor((Je[(vs[i])]),55,55,55,$9B)
        call SetUnitTimeScale((Je[(vs[i])]),0)
        call m_v((Je[(vs[i])]),true)
    endloop
endfunction

function b0e takes nothing returns real
    return GetRandomReal(2,6)
endfunction

function b1e takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:137")
    call Unit_Cancel_Counter($C4,(NNv))
    set Is[NNv]=false
endfunction

function b2e takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:138")
    call SetUnitNocontrol((NNv),false)
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0QD','B064')
endfunction

function b3e takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(NNv)]))and not IsUnitPaused((Je[(NNv)]))then
        call SetUnitNocontrol((NNv),true)
        call UnitAddAbilityBY((Je[(NNv)]),'A0QD')
        call NewTextTagInTarget_B((Je[(NNv)]),"Kill you! ..",18,25,$FF,25)
        call Ltv(LAv("Abilities\\Spells\\Other\\HowlOfTerror\\HowlCaster.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),3))
        call TimerStart(NewTimer(NNv),4.,false,function b2e)
        call TimerStart(GetExpiredTimer(),20,false,function b1e)
    else
        call TimerStart(GetExpiredTimer(),0,false,function b1e)
    endif
endfunction

function b4e takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(NNv)]))and not IsUnitPaused((Je[(NNv)]))then
        call NewTextTagInTarget_B((Je[(NNv)]),"Speed death! ",18,25,$FF,25)
        call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),2.5),Rs)
        call TimerStart(GetExpiredTimer(),Rs,false,function b3e)
    else
        call TimerStart(GetExpiredTimer(),0,false,function b1e)
    endif
endfunction

function b5e takes nothing returns boolean
    local integer NNv
    if GetWidgetLife((MF))/ GetUnitMaxLifeById((pF))<.01*85 then
        set NNv=(pF)
        if not Is[NNv]then
            set Is[NNv]=true
            call TimerStart(NewTimer(NNv),(GetRandomReal(2,6)),false,function b4e)
            call Unit_App_Counter($C5,(NNv))
        endif
    endif
    return false
endfunction

function b6e takes unit u returns nothing
    call UnitAddShieldTrig((GetUnitUserData((u))),function b5e)
endfunction

function b7e takes integer mkv returns real
    return 2500.
endfunction

function b8e takes integer mkv returns integer
    return 4*mkv
endfunction

function b9e takes integer NNv returns nothing
    if Ns[NNv]!=null then
        call ReleaseTimer(Ns[NNv],"[TimerUtils]Error:139")
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0QF','B065')
        call DeUnitBeCureRatio((NNv),Bs[NNv])
        call Unit_Cancel_Counter($C6,bs[NNv])
        call Unit_Cancel_Counter($C7,(NNv))
        set Ns[NNv]=null
        set Cs[NNv]=0
    endif
endfunction

function Bve takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(NNv)]))then
        set ds[NNv]=ds[NNv]-1
        call UnitDamageTargetBY((((Je[(bs[NNv])]))),(((Je[(NNv)]))),((((.5*b7e(Cs[NNv]))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        set ds[NNv]=0
    endif
    if ds[NNv]<1 then
        call b9e(NNv)
    endif
endfunction

function Bee takes unit NZv,unit N7v,integer B7v returns nothing
    local integer NNv=(GetUnitUserData((N7v)))
    local integer Bxe=Cs[NNv]+B7v
    local integer Boe
    if Bxe>25 then
        set Bxe=25
    endif
    if Bxe>0 then
        set Boe=(4*(Bxe))
        if Bxe!=Cs[NNv]and ModuloInteger(Bxe,5)==0 then
            call NewTextTagInTarget_B((Je[(NNv)]),I2S(Bxe)+" STACK
            (-"+I2S(Boe)+"% HEAL RECEIVED)",8+(Bxe/ I2R(5)),$D7,65,$F)

        endif
        if Ns[NNv]==null then
            set Ns[NNv]=NewTimer(NNv)
            set Bs[NNv]=ModifyUnitBeCureRatio((NNv),-(4*(Bxe)))
            call UnitAddAbilityBY((Je[(NNv)]),'A0QF')
            call Unit_App_Counter($C8,(NNv))
        else
            call UnitBeCureRatioChange((NNv),Bs[NNv],-(4*(Bxe)))
            call Unit_Cancel_Counter($C9,bs[NNv])
        endif
        set bs[NNv]=(GetUnitUserData((NZv)))
        set ds[NNv]=R2I(As/ .5)
        set Cs[NNv]=Bxe
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Demon\\DemonLargeDeathExplode\\DemonLargeDeathExplode.mdl",(Je[(NNv)]),"origin"))
        call TimerStart(Ns[NNv],.5,true,function Bve)
        call Unit_App_Counter($CA,bs[NNv])
    endif
endfunction

function Bre takes unit u returns nothing
    if GetUnitAbilityLevel(u,'A0QF')==1 then
        call b9e(((GetUnitUserData((u)))))
    endif
endfunction

function Bie takes nothing returns boolean
    local boolean Bae=GetUnitAbilityLevel((mF),'A0QD')==1
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    local real a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
    local unit u
    call GroupEnumUnitsInRange(G,x,y,Ds+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,Ds)then
            if UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 and(Cos(((a)*1.)-((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.))>=Cos(((bj_DEGTORAD*fs)*1.)))then
                if IsUnitEnemy(u,GetOwningPlayer((mF)))then
                    if u!=(MF)then
                        call UnitDamageTargetBY((((mF))),((u)),((((GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                    endif
                    if Bae then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"origin"))
                        call UnitCureTaret(null,(mF),2.5*GetDamage())
                        call m1v(u,.5)
                    else
                        call UnitCureTaret(null,(mF),GetDamage())
                    endif
                    call Bee((mF),u,1)
                elseif Bae and TQ[((GetUnitUserData((u))))]then
                    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Human\\HumanLargeDeathExplode\\HumanLargeDeathExplode.mdl",u,"origin"))
                    call SetUnitState((mF),UNIT_STATE_MANA,GetUnitState((mF),UNIT_STATE_MANA)+10.)
                    call bHe(((GetUnitUserData((u)))))
                endif
            endif
        endif
    endloop
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\VampiricAura\\VampiricAuraTarget.mdl",(mF),"origin"))
    call Ltv(Lfv(Lbv(LVv('e037',x,y,bj_RADTODEG*a),5,2),0,125,0,$FF))
    return false
endfunction

function Bne takes unit u returns nothing
    call UnitAddPAttackTrig((GetUnitUserData((u))),function Bie)
endfunction

function BVe takes unit NZv,unit N7v returns real
    return $2710+.5*GetUnitMaxLifeById((GetUnitUserData((N7v))))
endfunction

function BEe takes integer NNv returns nothing
    call zJv((GetPlayerId((GetOwningPlayer(B3v(NNv))))))
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0QE','B066')
    call Unit_Cancel_Counter($CB,hs[NNv])
    call Ltv(Hs[NNv])
endfunction

function BXe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function BOe takes integer NNv returns nothing
    if Js[NNv]then
        set Ks[Ls[NNv]]=Ks[NNv]
        set Ls[Ks[NNv]]=Ls[NNv]
        set Js[NNv]=false
        if Ls[(0)]==0 then
            call frv(ms)
        endif
        call BEe(NNv)
        call Unit_Cancel_Counter($CC,(NNv))
    endif
endfunction

function BRe takes nothing returns boolean
    local integer NNv=Ls[(0)]
    local unit u
    local real x
    local real y
    local real r
    loop
        exitwhen NNv==0
        set x=GetUnitX((Je[((NNv))]))
        set y=GetUnitY((Je[((NNv))]))
        if UnitAlive((Je[((NNv))]))and not Zs[(NNv)]then
            set js[NNv]=js[NNv]-1
            set r=1-js[NNv]/(32*Fs)
            call LKv(Hs[NNv],x)
            call Llv(Hs[NNv],y)
            call SetUnitFlyHeight(II[(Hs[NNv])],((Gs+GetUnitFlyHeight((Je[((NNv))])))*1.),0)
            call SetUnitScale(II[(Hs[NNv])],((2.+(6.-2.)*r)*1.),0,0)
            if TQ[(NNv)]then
                call SetUnitVertexColor((Je[((NNv))]),R2I((1-r)*85),85,R2I((1-r)*0),$FF)
                call SetUnitScale((Je[((NNv))]),qQ+(4.-qQ)*r,0,0)
            endif
        else
            set js[NNv]=0
        endif
        if js[NNv]<1 then
            call GroupEnumUnitsInRange(G,x,y,gs+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,gs)then
                    if IsUnitAliveAndEnemy(u,(Je[(hs[NNv])]))then
                        call UnitDamageTargetBY((((Je[(hs[NNv])]))),((u)),((((BVe((Je[(hs[NNv])]),u))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            if TQ[(NNv)]then
                call B_v((Je[((NNv))]))
            endif
            call zhv((GetPlayerId((GetOwningPlayer((Je[((NNv))]))))),40,.5)
            call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,gs/ $B4))
            call Ltv(LAv("Acid Ex.mdl",x,y,gs/ 120))
            call BOe(NNv)
        endif
        set NNv=Ls[NNv]
    endloop
    return false
endfunction

function BIe takes integer NNv returns boolean
    if not Js[NNv]then
        if Ls[(0)]==0 then
            if ms==0 then
                set ms=fxv(function BRe)
            endif
            call fov(ms)
        endif
        set Ls[NNv]=Ls[(0)]
        set Ks[Ls[(0)]]=NNv
        set Ls[(0)]=NNv
        set Ks[NNv]=0
        set Js[NNv]=true
        call Unit_App_Counter($CD,(NNv))
        return true
    endif
    return false
endfunction

function BAe takes unit NZv,unit N7v returns nothing
    local integer NNv=(GetUnitUserData((N7v)))
    if BIe(NNv)then
        set hs[NNv]=(GetUnitUserData((NZv)))
        set Hs[NNv]=Lnv(GetUnitX(N7v),GetUnitY(N7v),0)
        call LMv(Hs[NNv],"Abilities\\Spells\\Other\\Parasite\\ParasiteMissile.mdl")
        call SetUnitScale(II[(Hs[NNv])],((2.)*1.),0,0)
        call SetUnitFlyHeight(II[(Hs[NNv])],((Gs+GetUnitFlyHeight(N7v))*1.),0)
        set js[NNv]=R2I(32*Fs)
        if GetLocalPlayer()==GetOwningPlayer((Je[((NNv))]))then
            call StartSound(Za)
        endif
        call zKv((GetPlayerId((GetOwningPlayer((Je[((NNv))]))))),$CD,$FF,$CD,Fs)
        call Lfv(Hs[NNv],0,$FF,0,$FF)
        call UnitAddAbilityBY((Je[((NNv))]),'A0QE')
        call Unit_App_Counter($CE,hs[NNv])
    endif
endfunction

function BNe takes unit u returns nothing
    if GetUnitAbilityLevel(u,'A0QE')==1 then
        call BOe(((GetUnitUserData((u)))))
    endif
endfunction

function Bbe takes unit NZv returns integer
    if GetWidgetLife(NZv)<.5*GetUnitMaxLifeById((GetUnitUserData((NZv))))then
        return 4
    else
        return 3
    endif
endfunction

function BBe takes unit NZv returns integer
    if GetWidgetLife(NZv)<.5*GetUnitMaxLifeById((GetUnitUserData((NZv))))then
        return 3
    else
        return 2
    endif
endfunction

function Bce takes integer NNv returns boolean
    if UnitAlive(s__barrage_target[NNv])then
        if IsUnitAliveAndAlly(s__barrage_target[NNv],s__barrage_atkunit[NNv])then
            call UnitCureTaret(null,s__barrage_target[NNv],GetUnitMaxLifeById((GetUnitUserData((s__barrage_target[NNv])))))
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",s__barrage_target[NNv],"origin"))
        call BAe(s__barrage_atkunit[NNv],s__barrage_target[NNv])
    endif
    return true
endfunction

function BCe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function Bde takes nothing returns boolean
    local integer NNv=s__barrage_FR[Ms]
    local unit u
    if NNv!=Ms then
        call UseBarrage(Ms)
        loop
            exitwhen NNv==Ms
            if(s__barrage_outside[(NNv)])then
                call Bce(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if Bce(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[Ms]then
        set s__barrage_InOperation[Ms]=false
        call TriggerEvaluate(Rov)
    endif
    return false
endfunction

function BDe takes nothing returns nothing
    call fov(ps)
endfunction

function s__Infest_stop takes nothing returns nothing
    call frv(ps)
endfunction

function Bfe takes nothing returns nothing
    set ps=fxv(function Bde)
    call fov(ps)
endfunction

function BFe takes integer NNv returns nothing
    call s__barrage_Filling((Ms),(NNv))
    if not s__barrage_InOperation[Ms]then
        set s__barrage_InOperation[Ms]=true
        call fov(ps)
    endif
endfunction

function Bge takes nothing returns nothing
    set Ms=NewLauncher()
    set s__barrage_InOperation[Ms]=true
endfunction

function BGe takes nothing returns boolean
    return UnitAlive(GetFilterUnit())and nC[(GetUnitUserData((GetFilterUnit())))]
endfunction

function Bhe takes nothing returns boolean
    return UnitAlive(GetFilterUnit())and GetUnitTypeId(GetFilterUnit())=='n03A' and not IsUnitPaused(GetFilterUnit())
endfunction

function BHe takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local integer Bje=2
    local integer NNv
    local group g
    local unit u
    loop
        set Bje=Bje-1
        if Bje==1 then
            set g=GroupRandomEnumUnitsInRangeCounted(x,y,1500.,Bbe(c),function BGe)
        elseif Bje==0 then
            set g=GroupRandomEnumUnitsInRangeCounted(x,y,1500.,BBe(c),function Bhe)
        endif
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupRemoveUnit(g,u)
            set NNv=CreateBarrageTypeA(c,u)
            call LMv(s__barrage_model[NNv],"Abilities\\Spells\\Other\\Parasite\\ParasiteMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[NNv])],((4)*1.),0,0)
            set s__barrage_speed[NNv]=.03125*1500.
            call SetBarrageFlightRadianEZ(NNv,.3)
            call Lfv(s__barrage_model[NNv],0,$FF,0,$FF)
            call BFe(NNv)
        endloop
        call RecycleGroup(g)
        exitwhen Bje==0
    endloop
    call NewTextTagInTarget_B(c,"You're going to hell!",18,25,125,25)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Items\\TomeOfRetraining\\TomeOfRetrainingCaster.mdl",x,y,3),25,$FF,25,$FF))
    return false
endfunction

function BJe takes nothing returns nothing
    call RegisterSpellEffectEvent('A0QG',function BHe)
endfunction

function Bke takes integer NNv,real sA,boolean Ite returns nothing
    local integer i=6
    local real x=GetUnitX((Je[(NNv)]))
    local real y=GetUnitY((Je[(NNv)]))
    local real a
    local real pX
    local real pY
    local integer j
    local unit u
    loop
        exitwhen i==0
        set j=R2I(1250./ 250.)
        set a=sA+i*Lx/ 6
        set pX=x
        set pY=y
        loop
            set j=j-1
            set pX=pX+250.*Cos(a)
            set pY=pY+250.*Sin(a)
            if Ite then
                call GroupEnumUnitsInRange(G,pX,pY,250.+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,pX,pY,250.)then
                        if IsUnitOfPlayerNotseckill(u)then
                            call KillUnitBJ(u)
                        endif
                    endif
                endloop
                call Ltv(LAv("Acid Ex.mdx",pX,pY,250./ 175.))
            else
                call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",pX,pY,250./ 125.))
            endif
            exitwhen j==0 or pX>GetRectMaxX(mQ)or pX<GetRectMinX(mQ)or pY>GetRectMaxY(mQ)or pY<GetRectMinY(mQ)
        endloop
        set i=i-1
    endloop
    if Ite then
        call zjv(30,.75)
        call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x,y,7.5),0,$9B,0,$FF))
    endif
endfunction

function BKe takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    if UnitAlive((Je[(NNv)]))and not IsUnitPaused((Je[(NNv)]))then
        set Ss[NNv]=Ss[NNv]-1
        call Bke(NNv,Ts[NNv],true)
        call GroupEnumUnitsInRect(G,mQ,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitAliveAndEnemyNotAvul(u,(Je[(NNv)]))then
                call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",u,"origin"))
                call UnitDamageTargetBY((((Je[(NNv)]))),((u)),((((.01*(Qs-((Qs-qs)*MinR(Mev(u,(Je[(NNv)])),1800.)/ 1800.))*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endloop
        if Ss[NNv]>0 then
            set Ts[NNv]=Ts[NNv]+Lx/(2*6)
            call Bke(NNv,Ts[NNv],false)
        endif
    else
        set Ss[NNv]=0
    endif
    if Ss[NNv]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:140")
        call SetUnitPropWindow((Je[(NNv)]),bj_DEGTORAD*GetUnitDefaultPropWindow((Je[(NNv)])))
        call Unit_Cancel_Counter($CF,(NNv))
    endif
endfunction

function Ble takes nothing returns boolean
    local integer NNv=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(NNv)]))
    local real y=GetUnitY((Je[(NNv)]))
    set Ss[NNv]=2
    set Ts[NNv]=0
    call Bke(NNv,Ts[NNv],false)
    call NewTextTagInTarget_B((Je[(NNv)]),"You have chosen a suicide challenge. Go to hell!!",18,25,$9B,25)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,7.5),25,$FF,25,$FF))
    call SetUnitPropWindow((Je[(NNv)]),0)
    call TimerStart(NewTimer(NNv),Ps,true,function BKe)
    call Unit_App_Counter($D0,(NNv))
    return false
endfunction

function BLe takes unit u returns nothing
    call UnitAddAbilityBY(u,'A0QH')
endfunction

function Bme takes nothing returns nothing
    call RegisterSpellEffectEvent('A0QH',function Ble)
endfunction

function BMe takes integer NNv returns nothing
    if ys[NNv]!=0 then
        call DestroyEffectBY(ys[NNv])
        set ys[NNv]=0
    endif
endfunction

function Bpe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function BPe takes integer NNv returns nothing
    if Zs[NNv]then
        set vS[eS[NNv]]=vS[NNv]
        set eS[vS[NNv]]=eS[NNv]
        set Zs[NNv]=false
        if eS[(0)]==0 then
            call frv(xS)
        endif
        call BMe(NNv)
        call Unit_Cancel_Counter($D1,(NNv))
    endif
endfunction

function Bqe takes nothing returns boolean
    local integer NNv=eS[(0)]
    local integer startTick
    local unit u
    local real x
    local real y
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            set Ys[NNv]=Ys[NNv]-1
            if Ys[NNv]==zs then
                set ys[NNv]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl"),((Je[((NNv))])),("origin"))))
            elseif Ys[NNv]<zs then
                if(Je[((NNv))])==LQ and ModuloInteger(Ys[NNv],R2I(32*.125))==0 then
                    set x=GetUnitX((Je[((NNv))]))
                    set y=GetUnitY((Je[((NNv))]))
                    call GroupEnumUnitsInRange(G,x,y,500+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,500)then
                            if IsUnitAliveAndEnemyNotAvul(u,(Je[((NNv))]))then
                                call UnitDamageTargetBY((((Je[((NNv))]))),((u)),((((.01*Us*GetUnitMaxLifeById((GetUnitUserData((u))))*.125)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                            endif
                        endif
                    endloop
                endif
                call SetWidgetLife((Je[((NNv))]),(1.-Ys[NNv]/ I2R(zs))*GetUnitMaxLifeById((NNv)))
            endif
            if Ys[NNv]==R2I(32*Ws)then
                if(Je[((NNv))])==LQ then
                    call NewTextTagInTarget_B((Je[((NNv))]),"Give you a little fierce anticipation !",18,$80,$80,0)
                endif
                call SetUnitTimeScale((Je[((NNv))]),2.33/ Ws)
                call SetUnitAnimation((Je[((NNv))]),"birth")
            elseif Ys[NNv]<1 then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(Je[((NNv))]),"origin"))
                call SetUnitTimeScale((Je[((NNv))]),1)
                call m_v((Je[((NNv))]),false)
                call ModifyUnitAdef((NNv),us)
                call BPe(NNv)
                if(Je[((NNv))])==LQ then
                    call bze()
                    call bde($4E2)
                    call BWv(2*2,4)
                    call TriggerEvaluate(REv)
                endif
            endif
        else
            call BPe(NNv)
        endif
        set NNv=eS[NNv]
    endloop
    return false
endfunction

function BQe takes integer NNv returns boolean
    if not Zs[NNv]then
        if eS[(0)]==0 then
            if xS==0 then
                set xS=fxv(function Bqe)
            endif
            call fov(xS)
        endif
        set eS[NNv]=eS[(0)]
        set vS[eS[(0)]]=NNv
        set eS[(0)]=NNv
        set vS[NNv]=0
        set Zs[NNv]=true
        call Unit_App_Counter($D2,(NNv))
        return true
    endif
    return false
endfunction

function BSe takes unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if GetUnitState((Je[((NNv))]),UNIT_STATE_MANA)==GetUnitState((Je[((NNv))]),UNIT_STATE_MAX_MANA)and BQe(NNv)then
        set Ys[NNv]=R2I(32*(6.+ws))
        if(Je[((NNv))])==LQ then
            call NewTextTagInTarget_B((Je[((NNv))]),"I'll be back ..",18,$80,$80,0)
            call TriggerEvaluate(RVv)
        elseif TQ[(NNv)]then
            call SetUnitVertexColor((Je[((NNv))]),85,85,0,$FF)
            call SetUnitScale((Je[((NNv))]),qQ,0,0)
        endif
        call m_v((Je[((NNv))]),true)
        call SetUnitState((Je[((NNv))]),UNIT_STATE_MANA,0)
        call SetWidgetLife((Je[((NNv))]),1)
        call SetUnitTimeScale((Je[((NNv))]),1.5/ ws)
        call SetUnitAnimation((Je[((NNv))]),"death")
    elseif not Zs[NNv]then
        call KillUnit((Je[((NNv))]))
    endif
endfunction

function Bte takes nothing returns boolean
    local integer NNv=(pF)
    if GetWidgetLife((MF))-GetDamage()<.405 then
        call BSe((MF))
    endif
    return false
endfunction

function BTe takes unit u returns nothing
    call UnitAddShieldTrig((GetUnitUserData((u))),function Bte)
endfunction

function Bue takes integer Byv,integer BYv returns nothing
    local integer i=Byv
    local integer j
    local real x=GetRectCenterX(mQ)
    local real y=GetRectCenterY(mQ)
    local real dX=GetRectMaxX(mQ)-x
    local real dY=GetRectMaxY(mQ)-y
    local real a=GetRandomReal(0,Lx)
    local real sX
    local real sY
    local real sA
    local real BUe
    local real Bwe
    loop
        exitwhen i==0
        set i=i-1
        set j=BYv
        set sA=a+i*Lx/ Byv
        set sX=x+dX*Cos(sA)
        set sY=y+dY*Sin(sA)
        loop
            exitwhen j==0
            set j=j-1
            set BUe=GetRandomReal(-50.,50.)
            if BYv==1 then
                set Bwe=0
            else
                set Bwe=(-1+2*(j/(BYv-1)))*300.
            endif
            call bLe(sX+BUe*Cos(sA)+Bwe*Sin(sA+bj_PI/ 2),sY+BUe*Sin(sA)+Bwe*Cos(sA+bj_PI/ 2),bj_RADTODEG*sA+$B4)
        endloop
    endloop
endfunction

function BWe takes nothing returns nothing
    set aS=ModuloInteger(aS+1,4)
    if aS==0 then
        call Bue(2,4)
    else
        call Bue(2,1)
    endif
endfunction

function Bye takes nothing returns nothing
    if rS!=null then
        call ReleaseTimer(rS,"[TimerUtils]Error:141")
        set rS=null
    endif
endfunction

function s__ZombieRaid_activate takes nothing returns nothing
    if rS==null then
        set rS=(NewTimer(0))
    endif
    set aS=0
    call TimerStart(rS,oS,true,function BWe)
endfunction

function BYe takes integer NNv returns boolean
    if UnitAlive(s__barrage_target[NNv])then
        if GetUnitTypeId(s__barrage_target[NNv])=='n03A' then
            call KillUnit(s__barrage_target[NNv])
        elseif GetUnitTypeId(s__barrage_target[NNv])=='n039' then
            call bYe(((GetUnitUserData((s__barrage_target[NNv])))))
            call m1v(s__barrage_target[NNv],7.5)
        else
            call m1v(s__barrage_target[NNv],7.5)
        endif
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",s__barrage_target[NNv],"origin"))
    return true
endfunction

function Bze takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function BZe takes nothing returns boolean
    local integer NNv=s__barrage_FR[VS]
    local unit u
    if NNv!=VS then
        call UseBarrage(VS)
        loop
            exitwhen NNv==VS
            if(s__barrage_outside[(NNv)])then
                call BYe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if BYe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[VS]then
        set s__barrage_InOperation[VS]=false
        call TriggerEvaluate(RXv)
    endif
    return false
endfunction

function B_e takes nothing returns nothing
    call fov(ES)
endfunction

function s__HolyWater_stop takes nothing returns nothing
    call frv(ES)
endfunction

function B0e takes nothing returns nothing
    set ES=fxv(function BZe)
    call fov(ES)
endfunction

function B1e takes integer NNv returns nothing
    call s__barrage_Filling((VS),(NNv))
    if not s__barrage_InOperation[VS]then
        set s__barrage_InOperation[VS]=true
        call fov(ES)
    endif
endfunction

function B2e takes nothing returns nothing
    set VS=NewLauncher()
    set s__barrage_InOperation[VS]=true
endfunction

function B3e takes nothing returns boolean
    local integer Cjv=GetUnitTypeId(GetFilterUnit())
    return(Cjv=='n03A' or Cjv=='n033' or Cjv=='n039')and UnitAlive(GetFilterUnit())
endfunction

function B4e takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local group g=GroupRandomEnumUnitsInRangeCounted(GetUnitX(c),GetUnitY(c),525,7,function B3e)
    local integer NNv
    local unit u
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        set NNv=CreateBarrageTypeA(c,u)
        call LMv(s__barrage_model[NNv],"Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[NNv])],((1.75)*1.),0,0)
        set s__barrage_speed[NNv]=.03125*1200.
        call SetBarrageFlightRadianEZ(NNv,.3)
        call B1e(NNv)
    endloop
    call RecycleGroup(g)
    set c=null
    return false
endfunction

function B5e takes nothing returns nothing
    call RegisterSpellEffectEvent('A0QB',function B4e)
endfunction

function B6e takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:142")
    call fiv(false)
    call RemoveUnitBJ(LQ,6)
    call bKe()
    call bZe()
endfunction

function B7e takes nothing returns nothing
    call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl"),(LQ),("origin")))),2.5)
    call Lettheactorsplaylines(LQ,"Who dare stop me!!")
    call PlaySoundOnUnit_BJ((yn),(($7F)*1.),(LQ))
    call SetUnitTimeScale(LQ,1/ 2.5)
    call SetUnitAnimation(LQ,"attack")
    call TimerStart(GetExpiredTimer(),2.5,false,function B6e)
endfunction

function B8e takes nothing returns nothing
    local integer i=OS
    local real x=GetUnitX(LQ)
    local real y=GetUnitY(LQ)
    local real d
    local real a
    local real sA
    set IS=IS+1
    set d=IS*XS/ 4
    set a=bj_PI/ 4*ModuloInteger(IS,2)
    loop
        exitwhen RS==0 or i==0
        set i=i-1
        set sA=a+i*Lx/ OS
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(Je[((RS))]),"origin"))
        call SetUnitX((Je[((RS))]),x+d*Cos(sA))
        call SetUnitY((Je[((RS))]),y+d*Sin(sA))
        call SetUnitFacingTimed((Je[((RS))]),bj_RADTODEG*sA+$B4,0)
        call SetUnitAnimation((Je[((RS))]),"attack")
        call PauseUnit((Je[((RS))]),true)
        set RS=UQ[RS]
    endloop
    if IS==4 then
        call TimerStart(GetExpiredTimer(),7.5/(4+1),false,function B7e)
    endif
endfunction

function B9e takes nothing returns nothing
    set RS=UQ[(0)]
    call Lettheactorsplaylines(LQ,"No one can change my eternity!")
    call TimerStart(GetExpiredTimer(),7.5/(4+1),true,function B8e)
endfunction

function s__ZombieDefeat_activate takes nothing returns nothing
    local real x=GetRectCenterX(mQ)
    local real y=GetRectCenterY(mQ)
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$6D6+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$6D6)then
            if IsUnitAliveAndEnemy(u,LQ)then
                call Ltv(LAv("Objects\\Spawnmodels\\Orc\\OrcLargeDeathExplode\\OrcLargeDeathExplode.mdl",GetUnitX(u),GetUnitY(u),2.5))
                call UnitDamageTargetBY(((LQ)),((u)),(((($F4240)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            endif
        endif
    endloop
    call Bye()
    call fiv(true)
    call Lettheactorsplaylines(LQ,"Completely a piece of cake!!Dare to challenge me! ..")
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",LQ,"origin"))
    call SetUnitPosition(LQ,x,y)
    call SetUnitFacing(LQ,270)
    call SetUnitInvulnerable(LQ,true)
    call PauseUnit(LQ,true)
    call TimerStart((NewTimer(0)),3,false,function B9e)
endfunction

function cxe takes nothing returns nothing
    local unit u
    call GroupEnumUnitsInRect(WE,gg_rct_BSJL_____________001,null)
    loop
        set u=FirstOfGroup(WE)
        exitwhen u==null
        call GroupRemoveUnit(WE,u)
        if IsUnitAlive(u)and GetPointZ(GetUnitX(u),GetUnitY(u))<$BE then
            if fS then
                if GetUnitAbilityLevel(u,'Avul')==0 then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayDamage.mdl",u,"chest"))
                    call UnitDamageTargetBY(((u)),((u)),((((.25*.01*10.*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                endif
            elseif IsUnitOfPlayerNotseckill(u)then
                set Jg=false
                call DestroyEffect(AddSpecialEffectTarget("DoomBlack.mdl",u,"origin"))
                call KillUnitBJ(u)
                set Jg=true
            endif
        endif
    endloop
endfunction

function coe takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer czv=(alloc__hpv(GetHandleId((t))))
    call alloc__hPv(GetHandleId((t)),(czv+1))
    if czv==1 then
        call Lettheactorsplaylines(bS,"I can feel this evil guy to wake up...")
        call TimerStart(t,3,false,function coe)
    elseif czv==2 then
        call Lettheactorsplaylines(bS,"Do not let him go out from here!!")
        call TimerStart(t,3,false,function coe)
    elseif czv==3 then
        call Lettheactorsplaylines(bS,"The fate of the world is in your hands!!!")
        call TimerStart(t,5,false,function coe)
    elseif czv==4 then
        call Lettheactorsplaylines(bS,"Go brave warriors..")
        call TimerStart(t,3,false,function coe)
    elseif czv==5 then
        call SetUnitAnimation(bS,"spell")
        call QueueUnitAnimation(bS,"stand")
        call TimerStart(t,.5,false,function coe)
    elseif czv==6 then
        call KillDestructable(gg_dest_B001_6745)
        call KillDestructable(gg_dest_B001_6744)
        call KillDestructable(gg_dest_B001_2315)
        call Ltv(Lfv(LAv("AncientExplode.mdl",7085,-$4E70,2),0,0,$FF,$FF))
        call zjv(50,.75)
        call TimerStart(t,1.5,false,function coe)
    else
        call ReleaseTimer(t,"[TimerUtils]Error:143")
        call fiv(false)
        call TriggerEvaluate(RIv)
    endif
    set t=null
endfunction

function cre takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Avatar\\AvatarCaster.mdl",bS,"origin"))
    call TimerStart(NewTimer(1),2,false,function coe)
    call fiv(true)
    call DestroyEffectBY(BS)
endfunction

function cie takes nothing returns nothing
    local integer cae
    local integer cne
    local real eoe
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:144")
    if IsUnitInRangeXY(bS,GetWidgetX(dS),GetWidgetY(dS),NS)then
        set cae=GetItemChargesG(dS)
        if CS+cae>AS then
            set cae=AS-CS
        endif
        set CS=CS+cae
        if CS==AS then
            call cre()
        endif
        set eoe=CS/ I2R(AS)
        set cne=R2I(75+($FF-75)*eoe)
        call SetUnitTimeScale(bS,eoe)
        call SetUnitVertexColor(bS,cne,cne,cne,$FF)
        call PlaySoundOnUnit_BJ((Hn),(($7F)*1.),(bS))
        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Undead\\FrostArmor\\FrostArmorDamage.mdl"),(bS),("chest")))),1)
        call Ltv(LAv("Enchantment.mdl",GetWidgetX(dS),GetWidgetY(dS),.5))
        call RemoveItemByCharges(dS,cae)
    endif
endfunction

function cVe takes nothing returns boolean
    if not av and CS<AS and GetItemTypeIdG(GetManipulatedItem())=='I04V' then
        set dS=GetManipulatedItem()
        call TimerStart((NewTimer(0)),0,false,function cie)
    endif
    return false
endfunction

function cEe takes nothing returns nothing
    set bS=gg_unit_ocat_0271
    set BS=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Undead\\Sleep\\SleepTarget.mdl"),(bS),("overhead"))))
    call SetUnitTimeScale(bS,0)
    call SetUnitVertexColor(bS,75,75,75,$FF)
    call m_v(bS,true)
    call TriggerAddCondition(alloc__GX[(TRIGGER_DROP)],(Condition((function cVe))))
endfunction

function Irbert__get_active takes nothing returns boolean
    return FS==0
endfunction

function cXe takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:145")
    call m_v(DS,false)
    call Btv(DS)
endfunction

function cOe takes nothing returns boolean
    if GetWidgetLife(DS)-GetDamage()<=.5*GetUnitMaxLifeById((GetUnitUserData((DS))))then
        call s__Trig_remove((s__Trig_Index))
        call TriggerEvaluate(RCv)
    endif
    return false
endfunction

function Irbert_Disable takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))+1
    local real x
    local real y
    local real r=$80*6
    local real t=0
    local destructable dt
    if i==1 then
        set dt=gg_dest_B001_6745
    elseif i==2 then
        set dt=gg_dest_B001_6744
    else
        set dt=gg_dest_B001_2315
    endif
    call DestructableRestoreLife(dt,GetDestructableMaxLife(dt),true)
    set x=GetDestructableX(dt)-$80*3
    set y=GetDestructableY(dt)
    loop
        exitwhen t>1
        call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+r*t,y,2))
        set t=t+.1
    endloop
    set dt=null
    if i==3 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:146")
    else
        call alloc__hPv(GetHandleId((GetExpiredTimer())),(i))
    endif
endfunction

function cRe takes nothing returns boolean
    if FS!=0 then
        call NewTextTagInTarget_B(DS,"Nobody can stop me!!",18,55,55,125)
        call SetUnitAnimation(DS,"spell slam")
        call QueueUnitAnimation(DS,"stand")
        call TimerStart((NewTimer(0)),1.5,false,function cXe)
        call PlaySoundOnUnit_BJ((Yn),(($7F)*1.),(DS))
        call DestroyEffectBY(FS)
        call TimerStart((NewTimer(0)),1.5,true,function Irbert_Disable)
        set FS=0
    endif
    if gS!=null then
        call DestroyTrigger(gS)
        set gS=null
    endif
    if GS!=0 then
        call s__Trig_remove((GS))
        set GS=0
    endif
    return false
endfunction

function s__Irbert_prepare takes nothing returns nothing
    set fS=true
    set gS=CreateTrigger()
    set GS=UnitAddShieldTrigB((GetUnitUserData((DS))),function cRe)
    call UnitAddShieldTrigB((GetUnitUserData((DS))),function cOe)
    call SetUnitInvulnerable(DS,false)
    call TriggerRegisterUnitInRange(gS,DS,750,null)
    call TriggerAddCondition(gS,Filter(function cRe))
endfunction

function cIe takes nothing returns nothing
    set DS=gg_unit_n02Y_0270
    set FS=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Undead\\Sleep\\SleepTarget.mdl"),(DS),("overhead"))))
    set hS=$6180
    set HS=-$4C00
    call m_v(DS,true)
endfunction

function cAe takes integer NNv returns nothing
    set JS=JS-1
    if kS[NNv]!=0 then
        call DeUnitAdef((NNv),kS[NNv])
        set kS[NNv]=0
    endif
    if JS==0 then
        call TriggerEvaluate(Rcv)
    endif
endfunction

function cNe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function cbe takes integer NNv returns nothing
    if KS[NNv]then
        set LS[MS[NNv]]=LS[NNv]
        set MS[LS[NNv]]=MS[NNv]
        set KS[NNv]=false
        if MS[(0)]==0 then
            call frv(pS)
        endif
        call cAe(NNv)
        call Unit_Cancel_Counter($D3,(NNv))
    endif
endfunction

function cBe takes nothing returns boolean
    local integer NNv=MS[(0)]
    local integer cce
    local integer cCe
    local real x
    local real y
    loop
        exitwhen NNv==0
        if UnitAlive((Je[((NNv))]))then
            set x=GetUnitX((Je[((NNv))]))
            set y=GetUnitY((Je[((NNv))]))
            set cce=MS[(0)]
            set cCe=1
            loop
                exitwhen cce==0
                if cce!=NNv and IsUnitInRange((Je[((cce))]),(Je[((NNv))]),jS)then
                    set cCe=cCe+1
                    exitwhen cCe>=4
                endif
                set cce=MS[cce]
            endloop
            if cce!=0 and kS[NNv]==0 then
                set kS[NNv]=ModifyUnitAdef((NNv),90)
                call SetUnitNocontrol((NNv),true)
                call UnitAddAbilityBY((Je[((NNv))]),'A0R5')
            elseif cce==0 and kS[NNv]!=0 then
                call SetUnitNocontrol((NNv),false)
                call DeUnitAdef((NNv),kS[NNv])
                call ModifyUnitHpRegen((NNv),-.1*GetUnitMaxLifeById((NNv)))
                call UnitRemoveAbilityandBuffBY((Je[((NNv))]),'A0R5','B06G')
                set kS[NNv]=0
            endif
        else
            call cbe(NNv)
        endif
        set NNv=MS[NNv]
    endloop
    return false
endfunction

function cde takes integer NNv returns integer
    if KS[NNv]then
        call cAe(NNv)
    else
        if MS[(0)]==0 then
            if pS==0 then
                set pS=fxv(function cBe)
            endif
            call fov(pS)
        endif
        set MS[NNv]=MS[(0)]
        set LS[MS[(0)]]=NNv
        set MS[(0)]=NNv
        set LS[NNv]=0
        set KS[NNv]=true
        call Unit_App_Counter($D4,(NNv))
    endif
    return NNv
endfunction

function cDe takes unit u returns integer
    return cde((GetUnitUserData((u))))
endfunction

function cfe takes real x,real y returns nothing
    local integer NNv=(cde((GetUnitUserData(((CreateUnit(P[$B],'n01Q',x,y,270)))))))
    set JS=JS+1
    call SetUnitFlyHeight((Je[((NNv))]),300.,0)
    call SetUnitVertexColor((Je[((NNv))]),25,55,55,125)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",(Je[((NNv))]),"origin"))
endfunction

function cFe takes nothing returns real
    return GetRandomReal(2,6)
endfunction

function cge takes integer NNv returns boolean
    if PS[NNv]!=null then
        call ReleaseTimer(PS[NNv],"[TimerUtils]Error:147")
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0R7','B06H')
        call SetUnitVertexColor((Je[(NNv)]),25,55,55,$FF)
        call Unit_Cancel_Counter($D5,(NNv))
        set PS[NNv]=null
        return true
    endif
    return false
endfunction

function cGe takes nothing returns nothing
    set qS[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:148"))]=false
endfunction

function che takes nothing returns nothing
    call cge(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function cHe takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(NNv)]))and not IsUnitPaused((Je[(NNv)]))then
        set PS[NNv]=NewTimer(NNv)
        call UnitAddAbilityBY((Je[(NNv)]),'A0R7')
        call NewTextTagInTarget_B((Je[(NNv)]),"Hit me hurt hurt back to the blood!!",18,55,55,125)
        call SetUnitVertexColor((Je[(NNv)]),25,25,55,$CD)
        call TimerStart(PS[NNv],4.,false,function che)
        call TimerStart(GetExpiredTimer(),16.,false,function cGe)
        call Unit_App_Counter($D6,(NNv))
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:149")
    endif
endfunction

function cje takes nothing returns boolean
    call UnitAppBuff((pF),'A0R9',$D006B)
    return false
endfunction

function cJe takes nothing returns boolean
    local integer NNv=(pF)
    if GetUnitAbilityLevel((MF),'A0R7')==1 then
        call UnitCureTaret(null,(MF),GetDamage())
        set KF[HF]=PF+1000000.
    elseif not qS[NNv]and GetRandomInt(1,5)<=100 then
        set qS[NNv]=true
        call TimerStart(NewTimer(NNv),(GetRandomReal(2,6)),false,function cHe)
    endif
    return false
endfunction

function cke takes unit u returns nothing
    call UnitAddPAttackTrig((GetUnitUserData((u))),function cje)
    call UnitAddShieldTrig((GetUnitUserData((u))),function cJe)
endfunction

function cKe takes integer NNv returns nothing
    if QS[NNv]!=null then
        call ReleaseTimer(QS[NNv],"[TimerUtils]Error:150")
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0R6','B044')
        call DeUnitBeCureRatio((NNv),sS[NNv])
        call Unit_Cancel_Counter($D7,(NNv))
        set QS[NNv]=null
    endif
endfunction

function cle takes nothing returns nothing
    call cKe(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function cLe takes unit u returns nothing
    local integer NNv=(GetUnitUserData((u)))
    if QS[NNv]==null then
        set QS[NNv]=NewTimer(NNv)
        set sS[NNv]=ModifyUnitBeCureRatio((NNv),-100)
        call UnitAddAbilityBY(u,'A0R6')
        call Unit_App_Counter($D8,(NNv))
    endif
    call TimerStart(QS[NNv],6.,false,function cle)
endfunction

function cme takes integer NNv returns nothing
    call SetUnitAnimation(II[s__barrage_model[NNv]],"death")
endfunction

function cMe takes integer NNv returns boolean
    set SS[NNv]=SS[NNv]+1
    set s__barrage_CollisionRange[NNv]=tS[NNv]*(200.+5.*SS[NNv])
    call SetUnitScale(II[(s__barrage_model[NNv])],((tS[NNv]*(.5+.025*SS[NNv]))*1.),0,0)
    if ModuloInteger(SS[NNv],8)==0 then
        call Ltv(LAv("WallOfTerrorExplosion.mdx",(GetUnitX(II[(s__barrage_model[NNv])])),(GetUnitY(II[(s__barrage_model[NNv])])),tS[NNv]*(1.5+.075*SS[NNv])))
    endif
    return false
endfunction

function cpe takes integer NNv,unit u returns boolean
    if IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[NNv])then
        call DestroyEffect(AddSpecialEffectTarget("DoomBlack.mdl",u,"origin"))
        call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),((((tS[NNv]*(.4*GetUnitMaxLifeById((GetUnitUserData((u))))+8000))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call cLe(u)
    endif
    return false
endfunction

function cPe takes integer NNv returns nothing
    call SetUnitAnimation(II[s__barrage_model[(NNv)]],"death")
    call RemoveBarrage(NNv)
endfunction

function cqe takes nothing returns boolean
    local integer NNv=s__barrage_FR[TS]
    local unit u
    if NNv!=TS then
        call UseBarrage(TS)
        loop
            exitwhen NNv==TS
            if(s__barrage_outside[(NNv)])then
                call cPe(NNv)
            elseif(s__barrage_finish[(NNv)])then
                call cPe(NNv)
            else
                if cMe(NNv)then
                    call cPe(NNv)
                endif
                if s__barrage_CollisionRange[NNv]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[NNv],s__barrage_Y[NNv],s__barrage_CollisionRange[NNv])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[NNv])then
                                call GroupAddUnit(s__barrage_enum_g[NNv],u)
                                if u!=s__barrage_target[NNv]and cpe(NNv,u)then
                                    set u=null
                                    call cPe(NNv)
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[TS]then
        set s__barrage_InOperation[TS]=false
        call TriggerEvaluate(Rbv)
    endif
    return false
endfunction

function cQe takes nothing returns nothing
    call fov(uS)
endfunction

function s__ShadowBreath_stop takes nothing returns nothing
    call frv(uS)
endfunction

function cse takes nothing returns nothing
    set uS=fxv(function cqe)
    call fov(uS)
endfunction

function cSe takes integer NNv returns nothing
    call s__barrage_Filling((TS),(NNv))
    if not s__barrage_InOperation[TS]then
        set s__barrage_InOperation[TS]=true
        call fov(uS)
    endif
endfunction

function cte takes nothing returns nothing
    set TS=NewLauncher()
    set s__barrage_InOperation[TS]=true
endfunction

function cTe takes nothing returns boolean
    local unit cue=GetTriggerUnit()
    local real x=GetUnitX(cue)
    local real y=GetUnitY(cue)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local integer o=LocationEZ(x,y,0)
    local integer i=ConnectLocationEZ(o,LocationEZ(x+$5DC*Cos(a),y+$5DC*Sin(a),0))
    local integer NNv=CreateOrbital(LVv('e038',s__locationez_X[o],s__locationez_Y[o],bj_RADTODEG*s__locationez_ang[o]),o,i)
    if cue==DS then
        set tS[NNv]=1.
    else
        set tS[NNv]=.5
    endif
    set s__barrage_atkunit[NNv]=cue
    call LDv(s__barrage_model[NNv],.45)
    set s__barrage_speed[NNv]=.03125*250.
    set s__barrage_acceleration[NNv]=.03125*.03125*500.
    set s__barrage_CollisionRange[NNv]=tS[NNv]*200.
    set SS[NNv]=0
    call Lfv(s__barrage_model[NNv],$F,$F,$F,$CD)
    call cSe(NNv)
    set cue=null
    return false
endfunction

function cUe takes nothing returns boolean
    call UnitAnimationAddEffect(UnitAppAnimation(GetTriggerUnit()),"Soulfire Missile.mdx","head")
    return false
endfunction

function cwe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0L6',function cUe)
    call RegisterSpellEffectEvent('A0L6',function cTe)
endfunction

function cWe takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(NNv)]))and GetUnitAbilityLevel((Je[(NNv)]),'A0L8')==1 then
        set yS[NNv]=yS[NNv]-1
        set u=(Je[(NNv)])
        set x=GetUnitX(u)
        set y=GetUnitY(u)
        call GroupEnumUnitsInRange(G,x,y,375.+75,null)
        call GroupRemoveUnit(G,u)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,375.)then
                if IsUnitAliveAndEnemy(u,DS)then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayDamage.mdl",u,"chest"))
                    call UnitDamageTargetBY(((DS)),((u)),((((.2*.01*WS*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
    else
        set yS[NNv]=0
    endif
    if yS[NNv]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:151")
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0L8','B045')
        call Unit_Cancel_Counter($D9,(NNv))
    endif
endfunction

function cye takes nothing returns boolean
    local integer i=$C
    local real x=GetUnitX(DS)
    local real y=GetUnitY(DS)
    local real a
    local real d
    local integer NNv
    local unit u
    loop
        set i=i-1
        set a=i*Lx/ 12.+GetRandomReal(-.25,.25)
        set d=GetRandomReal($C8,600)
        call Lqv(LAv("DarkLightning.mdx",x+d*Cos(a),y+d*Sin(a),3),1.5)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,900+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,900)then
            if IsUnitAliveAndEnemy(u,DS)then
                call zhv((GetPlayerId((GetOwningPlayer(u)))),50,.75)
                call UnitDamageTargetBY(((DS)),((u)),((((.3*GetUnitMaxLifeById((GetUnitUserData((u))))+6000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    set u=PickRandomVisibleHeroInRange(DS,x,y,US)
    if u!=null then
        set NNv=(GetUnitUserData((u)))
        set yS[NNv]=R2I(wS/ .2)
        call StartSound(Za)
        call NewTextTagInTarget_B(u,"|c0095caff"+(Game_PlayerName[Kc[((GetUnitUserData((u))))]])+" |c008080c0�Bruise!",$F,$FF,$FF,$FF)
        call Ltv(LAv("DeathBladeRegeneration.mdx",GetUnitX(u),GetUnitY(u),3))
        call UnitAddAbilityBY(u,'A0L8')
        call TimerStart(NewTimer(NNv),.2,true,function cWe)
        call Unit_App_Counter($DA,(NNv))
        set u=null
    endif
    call Ltv(Lfv(LAv("AncientExplode.mdx",x,y,4),$FF,0,$FF,$FF))
    call Ltv(LAv("DarkWave.mdx",x,y,4))
    return false
endfunction

function cYe takes nothing returns boolean
    call NewTextTagInTarget_B(GetTriggerUnit(),"Struggling in the fallen !",18,$80,0,$CD)
    return false
endfunction

function cze takes nothing returns nothing
    call RegisterSpellEffectEvent('A0L7',function cye)
    call RegisterSpellChannelEvent('A0L7',function cYe)
endfunction

function cZe takes integer NNv returns nothing
    call cfe((GetUnitX(II[(s__barrage_model[NNv])])),(GetUnitY(II[(s__barrage_model[NNv])])))
endfunction

function c_e takes integer NNv returns nothing
    call cZe(NNv)
    call RemoveBarrage(NNv)
endfunction

function c0e takes nothing returns boolean
    local integer NNv=s__barrage_FR[vt]
    local unit u
    if NNv!=vt then
        call UseBarrage(vt)
        loop
            exitwhen NNv==vt
            if(s__barrage_outside[(NNv)])then
                call c_e(NNv)
            elseif(s__barrage_finish[(NNv)])then
                call c_e(NNv)
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[vt]then
        set s__barrage_InOperation[vt]=false
        call TriggerEvaluate(RBv)
    endif
    return false
endfunction

function c1e takes nothing returns nothing
    call fov(et)
endfunction

function s__IllusionOfIrbert_stop takes nothing returns nothing
    call frv(et)
endfunction

function c2e takes nothing returns nothing
    set et=fxv(function c0e)
    call fov(et)
endfunction

function c3e takes integer NNv returns nothing
    call s__barrage_Filling((vt),(NNv))
    if not s__barrage_InOperation[vt]then
        set s__barrage_InOperation[vt]=true
        call fov(et)
    endif
endfunction

function c4e takes nothing returns nothing
    set vt=NewLauncher()
    set s__barrage_InOperation[vt]=true
endfunction

function s__IllusionOfIrbert_end takes nothing returns nothing
    call NewTextTagInTarget_B(DS,"All your resistance is in vain. You are like a candle in the wind.",18,55,55,125)
    call m_v(DS,false)
    call TriggerEvaluate(Rdv)
    call UnitAddAbilityBY(DS,'A0R4')
    call UnitAddAbilityBY(DS,'A0R3')
endfunction

function s__IllusionOfIrbert_activate takes nothing returns nothing
    local integer i=2
    local integer j
    local real x=hS
    local real y=HS
    local real z=GetUnitFlyHeight(DS)
    local real pX
    local real pY
    local real d
    local real a
    local integer NNv
    loop
        set i=i-1
        set j=4
        set pX=x+(YS*(1-2*i))
        set pY=y
        loop
            set j=j-1
            set a=j*Lx/ 3
            set NNv=CreateBarrageTypeD(x,y,z,pX+ZS*Cos(a),pY+ZS*Sin(a),300.)
            call LMv(s__barrage_model[NNv],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[NNv])],((4)*1.),0,0)
            set s__barrage_speed[NNv]=.03125*s__locationez_range[s__barrage_p1[NNv]]/ 1.5
            call SetBarrageFlightRadianEZ(NNv,.25)
            call c3e(NNv)
            exitwhen j==0
        endloop
        exitwhen i==0
    endloop
    call UnitCureTaret(null,DS,GetUnitMaxLifeById((GetUnitUserData((DS)))))
    call m_v(DS,true)
    call TriggerEvaluate(RDv)
    call SetUnitFacingTimed(DS,270,0)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",DS,"origin"))
    call SetUnitPosition(DS,hS,HS)
    call SetUnitAnimation(DS,"spell slam")
    call QueueUnitAnimation(DS,"stand")
    call NewTextTagInTarget_B(DS,"Come out my avatar!",18,55,55,125)
    call zlv($9B,25,$9B,1.5)
endfunction

function c5e takes nothing returns nothing
    local unit u
    local real x
    local real y
    if UnitAlive(DS)then
        set rt=ModuloInteger(rt+1,R2I(32*.5))
        set x=GetUnitX(DS)
        set y=GetUnitY(DS)
        call LKv(ot,x)
        call Llv(ot,y)
        if rt==0 then
            call GroupEnumUnitsInRange(G,x,y,1500.+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,1500.)then
                    if IsUnitAliveAndEnemy(u,DS)then
                        call UnitDamageTargetBY(((DS)),((u)),((((.01*xt*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:152")
        call Ltv(ot)
    endif
endfunction

function s__BlackFog_activate takes nothing returns nothing
    set ot=LAv("BlackCloudOfFog.mdl",GetUnitX(DS),GetUnitY(DS),7)
    call TimerStart((NewTimer(0)),.03125,true,function c5e)
endfunction

function c6e takes nothing returns integer
    return D9v(Et)
endfunction

function c7e takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function c8e takes nothing returns boolean
    local integer NNv=J[Et]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==NNv
        set Vt[NNv]=Vt[NNv]-1
        set x=(GetUnitX(II[(at[NNv])]))
        set y=(GetUnitY(II[(at[NNv])]))
        if nt[NNv]then
            call GroupEnumUnitsInRange(G,x,y,250.+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,250.)then
                    exitwhen IsUnitAliveAndEnemyNotAvul(u,DS)
                endif
            endloop
            if u!=null then
                set Vt[NNv]=0
                call GroupEnumUnitsInRange(G,x,y,375.+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,375.)then
                        if IsUnitAliveAndEnemy(u,DS)then
                            if nC[(GetUnitUserData((u)))]then
                                call zhv((GetPlayerId((GetOwningPlayer(u)))),40,.5)
                                call zKv((GetPlayerId((GetOwningPlayer(u)))),$FF,125,$FF,.27)
                            endif
                            call UnitDamageTargetBY(((DS)),((u)),((((.15*GetUnitMaxLifeById((GetUnitUserData((u))))+$9C4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A0R8',$D02BC)
                        endif
                    endif
                endloop
                call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1),$FF,0,$FF,$FF))
            endif
        endif
        if Vt[NNv]<1 then
            if not nt[NNv]then
                set nt[NNv]=true
                set Vt[NNv]=R2I(32*45.)
                call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2),$FF,0,$FF,$FF))
            else
                call LTv(at[NNv])
                call fvv((NNv))
            endif
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function c9e takes nothing returns nothing
    set Et=fxv(function c8e)
endfunction

function Cve_3 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer NNv
    if UnitAlive(Boss_Spell_unit1[i])and Boss_Spell_data1[i]<$A then
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        set NNv=(D9v(Et))
        set at[NNv]=LAv("Abilities\\Spells\\NightElf\\TrueshotAura\\TrueshotAura.mdl",GetUnitX(Boss_Spell_unit2[i]),GetUnitY(Boss_Spell_unit2[i]),3.25)
        set nt[NNv]=false
        set Vt[NNv]=R2I(32*1.75)
        if GetLocalPlayer()==GetOwningPlayer(Boss_Spell_unit2[i])then
            call StartSound(Za)
        endif
        call Lfv(at[NNv],$FF,0,$FF,$FF)
        call Lqv(LAv("DarkLightning.mdx",(GetUnitX(II[(at[NNv])])),(GetUnitY(II[(at[NNv])])),5),2)
        call Lqv(LAv("ShadowTrap.mdl",(GetUnitX(II[(at[NNv])])),(GetUnitY(II[(at[NNv])])),2.5),2)
        if Boss_Spell_data1[i]<$A then
            call TimerStart(GetExpiredTimer(),1.5,true,function Cve_3)
        else
            call TimerStart(GetExpiredTimer(),2,true,function Cve_3)
        endif
    else
        call UnitRemoveAbilityandBuffBY(Boss_Spell_unit2[i],'A0UQ','B07M')
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:153")
    endif
endfunction

function Cve_2 takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    if GetTriggerUnit()==DS then
        if EvelId==274 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_unit2[i]=GetSpellTargetUnit()
            set Boss_Spell_data1[i]=0
            call TimerStart(NewTimer(i),3,true,function Cve_3)
            call UnitAddAbilityBY(Boss_Spell_unit2[i],'A0UQ')
            call NewTextTagInTarget_B(DS,"|c008000FF"+GetPlayerName(GetOwningPlayer(GetSpellTargetUnit()))+"|r|c00FFFF00",18,$FF,$FF,$FF)
        elseif EvelId==272 then
            call NewTextTagInTarget_B(DS,"|c008080FFStruggle, you can never escape here|r",18,$FF,$FF,$FF)
        endif
    endif
endfunction

function Cve takes nothing returns nothing
    local integer NNv
    local unit u
    if UnitAlive(DS)then
        set u=PickRandomVisibleHeroInRange(DS,GetUnitX(DS),GetUnitY(DS),1500.)
        if u!=null then
            if IssueTargetOrderById(DS,$D0097,u)then
                set it=8
            endif
            call TimerStart(GetExpiredTimer(),it,true,function Cve)
            set u=null
        else
            if it>1 then
                set it=it-1
            endif
            call TimerStart(GetExpiredTimer(),it,true,function Cve)
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:154")
    endif
endfunction

function s__DarkBinding_activate takes nothing returns nothing
    call TimerStart((NewTimer(0)),it,true,function Cve)
endfunction

function Cee takes unit u returns nothing
    if IsUnitOfPlayerNotseckill(u)then
        call KillUnitBJ(u)
        call Ltv(LAv("ShadowAssault.mdl",GetUnitX(u),GetUnitY(u),2.5))
        call zhv((Kc[((GetUnitUserData((u))))]),40,.5)
        call NewTextTagInTarget_B(DS,"I'll put a second after second skill!!..",18,55,55,125)
    endif
endfunction

function Cxe takes nothing returns nothing
    local boolean Coe=UnitAlive((Je[(Rt)]))
    local boolean Cre=UnitAlive((Je[(Ot)]))
    local boolean Cie=false
    local integer i
    if UnitAlive(DS)then
        if Coe and Cre then
            if IsUnitInRange((Je[(Rt)]),(Je[(Ot)]),1500.)then
                set i=3
                loop
                    set i=i-1
                    call Bgv(At[i])
                    exitwhen i==0
                endloop
                call UnitDamageTargetBY(((DS)),(((Je[(Rt)]))),((((.03125*.01*Xt*GetUnitMaxLifeById((Rt)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                call UnitDamageTargetBY(((DS)),(((Je[(Ot)]))),((((.03125*.01*Xt*GetUnitMaxLifeById((Ot)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                call UnitCureTaret(null,DS,.03125*.01*.5*GetUnitMaxLifeById((GetUnitUserData((DS)))))
            else
                set Cie=true
                call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Orc\\Disenchant\\DisenchantSpecialArt.mdl"),((Je[(Rt)])),("chest")))),.5)
                call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Orc\\Disenchant\\DisenchantSpecialArt.mdl"),((Je[(Ot)])),("chest")))),.5)
            endif
        else
            set Cie=true
            if Coe then
                call Cee((Je[(Rt)]))
            elseif Cre then
                call Cee((Je[(Ot)]))
            endif
        endif
    else
        set Cie=true
    endif
    if Cie then
        set i=3
        loop
            set i=i-1
            call BFv(At[i])
            exitwhen i==0
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:155")
        call Unit_Cancel_Counter($DB,Rt)
        call Unit_Cancel_Counter($DC,Ot)
        set It=false
    endif
endfunction

function Cae takes nothing returns boolean
    local unit t=GetSpellTargetUnit()
    local integer i=0
    local real x=GetUnitX(t)
    local real y=GetUnitY(t)
    local integer NNv
    local unit u=t
    call GroupClear(G2)
    call GroupEnumUnitsInRange(G,x,y,900.+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,900.)then
            if UnitAlive(u)and nC[(GetUnitUserData((u)))]then
                set i=i+1
                call GroupAddUnit(G2,u)
            endif
        endif
    endloop
    loop
        set u=FirstOfGroup(G2)
        exitwhen u==null
        call GroupRemoveUnit(G2,u)
        exitwhen GetRandomInt(1,i)==1
        set i=i-1
    endloop
    if u==null or It then
        call Cee(t)
    else
        set It=true
        set Rt=(GetUnitUserData((t)))
        set Ot=(GetUnitUserData((u)))
        set At[0]=BGv("SPLK",DS,t)
        set At[1]=BGv("SPLK",t,u)
        set At[2]=BGv("SPLK",u,DS)
        call TimerStart((NewTimer(0)),.03125,true,function Cxe)
        call Unit_App_Counter($DD,Rt)
        call Unit_App_Counter($DE,Ot)
    endif
    set u=null
    return false
endfunction

function Cne takes nothing returns nothing
    call RegisterSpellEffectEvent('A0R4',function Cae)
endfunction

function CVe takes integer NNv returns nothing
    local real x=(GetUnitX(II[(s__barrage_model[NNv])]))
    local real y=(GetUnitY(II[(s__barrage_model[NNv])]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,Nt+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,Nt)then
            if IsUnitAliveAndEnemy(u,s__barrage_atkunit[NNv])then
                call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((u)),((((.9*GetUnitMaxLifeById((GetUnitUserData((u)))))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,8)
            endif
        endif
    endloop
    call Ltv(LAv("uberdarkwave.mdl",x,y,1))
endfunction

function CEe takes integer NNv returns nothing
    call CVe(NNv)
    call RemoveBarrage(NNv)
endfunction

function CXe takes nothing returns boolean
    local integer NNv=s__barrage_FR[bt]
    local unit u
    if NNv!=bt then
        call UseBarrage(bt)
        loop
            exitwhen NNv==bt
            if(s__barrage_outside[(NNv)])then
                call CEe(NNv)
            elseif(s__barrage_finish[(NNv)])then
                call CEe(NNv)
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[bt]then
        set s__barrage_InOperation[bt]=false
        call TriggerEvaluate(Rfv)
    endif
    return false
endfunction

function COe takes nothing returns nothing
    call fov(Bt)
endfunction

function s__DarkDragonBlast_stop takes nothing returns nothing
    call frv(Bt)
endfunction

function CRe takes nothing returns nothing
    set Bt=fxv(function CXe)
    call fov(Bt)
endfunction

function CIe takes integer NNv returns nothing
    call s__barrage_Filling((bt),(NNv))
    if not s__barrage_InOperation[bt]then
        set s__barrage_InOperation[bt]=true
        call fov(Bt)
    endif
endfunction

function CAe takes nothing returns nothing
    set bt=NewLauncher()
    set s__barrage_InOperation[bt]=true
endfunction

function CNe takes nothing returns boolean
    local unit cue=GetTriggerUnit()
    local real x=GetUnitX(cue)
    local real y=GetUnitY(cue)
    local real z=GetUnitFlyHeight(cue)
    local integer NNv=CreateBarrageTypeD(x,y,z,GetSpellTargetX(),GetSpellTargetY(),0)
    set s__barrage_atkunit[NNv]=cue
    call LMv(s__barrage_model[NNv],"OrbOfCorruption.mdl")
    call SetUnitScale(II[(s__barrage_model[NNv])],((7.5)*1.),0,0)
    set s__barrage_speed[NNv]=.03125*500.
    set s__barrage_acceleration[NNv]=.03125*.03125*2000.
    call PlaySoundAtPoint_BJ((ga),(($7F)*1.),((x)*1.),((y)*1.),0)
    call Lfv(s__barrage_model[NNv],0,0,0,$FF)
    call CIe(NNv)
    set cue=null
    return false
endfunction

function Cbe takes nothing returns boolean
    call NewTextTagInTarget_B(GetTriggerUnit(),"Go back! How can you run wild here?! !",18,55,55,125)
    call UnitAnimationSetLoopEffect(UnitAppAnimation(GetTriggerUnit()),"OrbOfCorruption.mdx","head",.25)
    call LQv(LAv("Abilities\\Spells\\Undead\\VampiricAura\\VampiricAura.mdl",GetSpellTargetX(),GetSpellTargetY(),Nt/ 100),1.8)
    return false
endfunction

function CBe takes nothing returns nothing
    call RegisterSpellChannelEvent('A0R3',function Cbe)
    call RegisterSpellEffectEvent('A0R3',function CNe)
endfunction

function CGe takes nothing returns integer
    local integer NNv
    if(lt[(0)]==0)then
        set Kt=Kt+1
        set NNv=Kt
    else
        set NNv=lt[(0)]
        set lt[(0)]=lt[lt[(0)]]
    endif
    return NNv
endfunction

function Che takes integer NNv returns nothing
    set lt[NNv]=lt[(0)]
    set lt[(0)]=NNv
endfunction

function CHe takes string Bhv,unit s,unit t returns integer
    local integer NNv=CGe()
    set mt[NNv]=(GetUnitUserData((s)))
    set Mt[NNv]=(GetUnitUserData((t)))
    set pt[NNv]=AddLightningEx(Bhv,false,GetUnitX(s),GetUnitY(s),Lt+GetUnitFlyHeight(s),GetUnitX(t),GetUnitY(t),Lt+GetUnitFlyHeight(t))
    call Unit_App_Counter($DF,mt[NNv])
    call Unit_App_Counter($E0,Mt[NNv])
    return NNv
endfunction

function Cje takes unit u returns integer
    return(GetUnitUserData((u)))
endfunction

function CJe takes integer NNv returns nothing
    set qt[NNv]=0
    set Qt[NNv]=0
endfunction

function Cke takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function CKe takes integer NNv returns nothing
    if St[NNv]then
        set tt[Tt[NNv]]=tt[NNv]
        set Tt[tt[NNv]]=Tt[NNv]
        set St[NNv]=false
        if Tt[(0)]==0 then
            call frv(ut)
        endif
        call Unit_Cancel_Counter($E1,(NNv))
    endif
endfunction

function Cle takes nothing returns boolean
    local integer NNv=Tt[(0)]
    local real BDv
    loop
        exitwhen NNv==0
        if not UnitAlive((Je[((NNv))]))then
            call CJe(NNv)
        endif
        if qt[NNv]==0 then
            set Qt[NNv]=Qt[NNv]+.03125*.03125*Pt
            set BDv=MaxR(0,GetUnitFlyHeight((Je[((NNv))]))+Qt[NNv])
        else
            set BDv=MinR(GetUnitFlyHeight((Je[((NNv))]))+Qt[NNv],qt[NNv])
        endif
        if BDv>0 then
            call SetUnitFlyHeight((Je[((NNv))]),BDv,0)
        else
            call SetUnitFlyHeight((Je[((NNv))]),0,0)
            call CKe(NNv)
        endif
        set NNv=Tt[NNv]
    endloop
    return false
endfunction

function CLe takes integer NNv returns boolean
    if not St[NNv]then
        if Tt[(0)]==0 then
            if ut==0 then
                set ut=fxv(function Cle)
            endif
            call fov(ut)
        endif
        set Tt[NNv]=Tt[(0)]
        set tt[Tt[(0)]]=NNv
        set Tt[(0)]=NNv
        set tt[NNv]=0
        set St[NNv]=true
        call Unit_App_Counter($E2,(NNv))
        return true
    endif
    return false
endfunction

function Cme takes integer NNv,real BDv,real Bfv returns nothing
    if CLe(NNv)then
        if UnitAddAbility((Je[((NNv))]),'Amrf')then
            call UnitRemoveAbility((Je[((NNv))]),'Amrf')
        endif
    endif
    set qt[NNv]=BDv
    set Qt[NNv]=.03125*(qt[NNv]-GetUnitFlyHeight((Je[((NNv))])))/ Bfv
endfunction

function Cye takes integer NNv returns nothing
    if ET[NNv]then
        set XT[OT[NNv]]=XT[NNv]
        set OT[XT[NNv]]=OT[NNv]
        set ET[NNv]=false
        if OT[(0)]==0 then
            call frv(RT)
        endif
        call Unit_Cancel_Counter($E3,(NNv))
    endif
endfunction

function CYe takes nothing returns boolean
    local integer NNv=OT[(0)]
    local integer iSe
    loop
        exitwhen NNv==0
        if UnitAlive((Je[(NNv)]))then
            set iSe=R2I(1.5*GetUnitDefaultAttackSpeed((iT[NNv])))
            if VT[NNv]!=iSe then
                call ModifyUnitAttackSpeed((NNv),iSe-VT[NNv])
                set VT[NNv]=iSe
            endif
        else
            call Unit_Cancel_Counter($E4,iT[NNv])
            call Cye(NNv)
        endif
        set NNv=OT[NNv]
    endloop
    return false
endfunction

function Cze takes integer NNv returns boolean
    if not ET[NNv]then
        if OT[(0)]==0 then
            if RT==0 then
                set RT=fxv(function CYe)
            endif
            call fov(RT)
        endif
        set OT[NNv]=OT[(0)]
        set XT[OT[(0)]]=NNv
        set OT[(0)]=NNv
        set XT[NNv]=0
        set ET[NNv]=true
        call Unit_App_Counter($E5,(NNv))
        return true
    endif
    return false
endfunction

function CZe takes unit u returns boolean
    return IsUnitType(u,UNIT_TYPE_MECHANICAL)
endfunction

function C_e takes integer NNv returns nothing
    set iT[NNv]=(GetUnitUserData(MV[GetPlayerId(GetOwningPlayer(Je[((NNv))]))]))
    set VT[NNv]=0
    if iT[NNv]!=null and Cze(NNv)then
        call Unit_App_Counter($E6,iT[NNv])
    endif
endfunction

function C0e takes nothing returns boolean
    if((IsUnitType((Je[le]),UNIT_TYPE_MECHANICAL)))then
        call C_e((le))
    endif
    return false
endfunction

function C1e takes nothing returns nothing
    call h4v(Condition(function C0e),bR)
endfunction

function C2e takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:156")
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,125*IT[fx]+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,125*IT[fx])then
            if UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 and pV[GetPlayerId(GetOwningPlayer(u))]then
                if nC[(GetUnitUserData((u)))]then
                    call zKv((GetPlayerId((GetOwningPlayer(u)))),125,125,$FF,.27)
                endif
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl",u,"chest"))
            endif
        endif
    endloop
    call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,IT[fx]),1.27)
    call Ltv(LAv("FreezingRing.mdx",x,y,.5*IT[fx]))
    call Ltv(fx)
endfunction

function C3e takes real x,real y,real sc returns nothing
    local integer fx=LVv('e02V',x,y,0)
    set IT[fx]=sc
    call SetUnitScale(II[(fx)],((sc)*1.),0,0)
    call LDv(fx,1.5)
    call TimerStart(NewTimer(fx),.75,false,function C2e)
endfunction

function C4e takes nothing returns integer
    return D9v(BT)
endfunction

function C5e takes integer NNv returns nothing
    call fvv(NNv)
endfunction

function C6e takes nothing returns boolean
    local integer NNv=J[BT]
    local integer t
    local real sc
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen 0==NNv
        set NT[NNv]=NT[NNv]-1
        if bT[NNv]>750 then
            set t=2
            set sc=1.5
        else
            set t=3
            set sc=2.5
        endif
        if ModuloInteger(NT[NNv],t)==0 then
            set a=GetRandomReal(0,Lx)
            set d=GetRandomReal(0,bT[NNv])
            set x=(GetUnitX(II[(AT[NNv])]))+d*Cos(a)
            set y=(GetUnitY(II[(AT[NNv])]))+d*Sin(a)
            call C3e(x,y,sc)
        endif
        if NT[NNv]<1 then
            call Ltv(AT[NNv])
            call fvv((NNv))
        endif
        set NNv=K[NNv]
    endloop
    return false
endfunction

function C7e takes nothing returns nothing
    set BT=fxv(function C6e)
endfunction

function C8e takes real x,real y,real rd returns nothing
    local integer NNv=(D9v(BT))
    set AT[NNv]=LAv("FreezingPrison.mdl",x,y,rd/ 60.)
    set NT[NNv]=320
    set bT[NNv]=rd
    call SetTerrainType(x,y,'Nsnw',0,R2I(rd/ 128.),0)
endfunction

function C9e takes nothing returns boolean
    call C8e(GetUnitX(GetTriggerUnit()),GetUnitY(GetTriggerUnit()),600)
    return false
endfunction

function dve takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PM',function C9e)
endfunction

function dee takes nothing returns nothing
    local integer i=8
    local integer j
    loop
        set i=i-1
        if pV[i]then
            set j=8
            loop
                set j=j-1
                if pV[j]then
                    call SetPlayerAllianceStateBJ(P[i],P[j],3)
                    call SetPlayerAllianceStateBJ(P[j],P[i],3)
                endif
                exitwhen j==0
            endloop
        endif
        exitwhen i==0
    endloop
endfunction

function dXe takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function dOe takes nothing returns boolean
    local integer NNv=s__barrage_FR[kT]
    local unit u
    if NNv!=kT then
        call UseBarrage(kT)
        loop
            exitwhen NNv==kT
            if(s__barrage_outside[(NNv)])then
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                call RemoveBarrage((NNv))
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[kT]then
        set s__barrage_InOperation[kT]=false
        call TriggerEvaluate(Rqv)
    endif
    return false
endfunction

function dRe takes nothing returns nothing
    call fov(KT)
endfunction

function s__FXMissile_stop takes nothing returns nothing
    call frv(KT)
endfunction

function dIe takes nothing returns nothing
    set KT=fxv(function dOe)
    call fov(KT)
endfunction

function dAe takes integer NNv returns nothing
    call s__barrage_Filling((kT),(NNv))
    if not s__barrage_InOperation[kT]then
        set s__barrage_InOperation[kT]=true
        call fov(KT)
    endif
endfunction

function dNe takes nothing returns nothing
    set kT=NewLauncher()
    set s__barrage_InOperation[kT]=true
endfunction

function dbe takes unit u,real di,real BIv,real ar,real cv,real zR,real zA returns integer
    local real a=GetRandomReal(0,Lx)
    local integer NNv=CreateBarrageTypeC(GetUnitX(u)+di*Cos(a)*Sin(zA),GetUnitY(u)+di*Sin(a)*Sin(zA),zR*Cos(zA),u)
    set s__barrage_impact_z[NNv]=60.
    call SetBarrageFlightRadianEZ(NNv,ar)
    call SetBarrageFlightRadian(NNv,cv)
    set s__barrage_speed[NNv]=0
    set s__barrage_acceleration[NNv]=.03125*.03125*BIv
    call dAe(NNv)
    return s__barrage_model[NNv]
endfunction

function dBe takes integer NNv returns boolean
    if s__barrage_target[NNv]!=null then
        call UnitDamageTargetBY(((s__barrage_atkunit[NNv])),((s__barrage_target[NNv])),((((lT[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    endif
    return true
endfunction

function dce takes integer NNv returns nothing
    call RemoveBarrage(NNv)
endfunction

function dCe takes nothing returns boolean
    local integer NNv=s__barrage_FR[LT]
    local unit u
    if NNv!=LT then
        call UseBarrage(LT)
        loop
            exitwhen NNv==LT
            if(s__barrage_outside[(NNv)])then
                call dBe(NNv)
                call RemoveBarrage((NNv))
            elseif(s__barrage_finish[(NNv)])then
                if dBe(NNv)then
                    call RemoveBarrage((NNv))
                else
                    set s__barrage_finish[(NNv)]=false
                endif
            endif
            set NNv=s__barrage_FR[NNv]
        endloop
    elseif s__barrage_InOperation[LT]then
        set s__barrage_InOperation[LT]=false
        call TriggerEvaluate(RSv)
    endif
    return false
endfunction

function dde takes nothing returns nothing
    call fov(mT)
endfunction

function s__NormalMissile_stop takes nothing returns nothing
    call frv(mT)
endfunction

function dDe takes nothing returns nothing
    set mT=fxv(function dCe)
    call fov(mT)
endfunction

function dfe takes integer NNv returns nothing
    call s__barrage_Filling((LT),(NNv))
    if not s__barrage_InOperation[LT]then
        set s__barrage_InOperation[LT]=true
        call fov(mT)
    endif
endfunction

function dFe takes nothing returns nothing
    set LT=NewLauncher()
    set s__barrage_InOperation[LT]=true
endfunction

function dge takes unit u,real x,real y,real z,unit t,real d,string fx,real sc,real sp,real ac returns nothing
    local integer NNv=CreateBarrageTypeC(x,y,z,t)
    set s__barrage_atkunit[NNv]=u
    set s__barrage_speed[NNv]=sp
    set s__barrage_acceleration[NNv]=ac
    call LMv(s__barrage_model[NNv],fx)
    call SetUnitScale(II[(s__barrage_model[NNv])],((sc)*1.),0,0)
    set lT[NNv]=d
    call dfe(NNv)
endfunction

function dGe takes integer NNv returns unit
    return(Je[(NNv)])
endfunction

function dhe takes integer NNv returns nothing
    if QT[NNv]then
        set sT[ST[NNv]]=sT[NNv]
        set ST[sT[NNv]]=ST[NNv]
        set QT[NNv]=false
        if ST[(0)]==0 then
            call frv(tT)
        endif
        call Unit_Cancel_Counter($E7,(NNv))
    endif
endfunction

function dHe takes nothing returns boolean
    local integer NNv=ST[(0)]
    local real h
    loop
        exitwhen NNv==0
        if GetUnitTypeId((Je[((NNv))]))==0 or GetUnitMoveSpeed((Je[((NNv))]))==0 then
            call SetUnitFlyHeight((Je[((NNv))]),qT[NNv],0)
            call dhe(NNv)
        else
            set h=GetUnitFlyHeight((Je[((NNv))]))+MT[NNv]
            set MT[NNv]=MT[NNv]+PT[NNv]
            if h>qT[NNv]then
                call SetUnitFlyHeight((Je[((NNv))]),h,0)
            else
                call SetUnitFlyHeight((Je[((NNv))]),qT[NNv],0)
                call dhe(NNv)
            endif
        endif
        set NNv=ST[NNv]
    endloop
    return false
endfunction

function dje takes integer NNv returns boolean
    if not QT[NNv]then
        if ST[(0)]==0 then
            if tT==0 then
                set tT=fxv(function dHe)
            endif
            call fov(tT)
        endif
        set ST[NNv]=ST[(0)]
        set sT[ST[(0)]]=NNv
        set ST[(0)]=NNv
        set sT[NNv]=0
        set QT[NNv]=true
        call Unit_App_Counter($E8,(NNv))
        return true
    endif
    return false
endfunction

function FloatedTargetBY takes unit u,real sp,real ac returns nothing
    local integer NNv
    if GetUnitMoveSpeed(u)>0 then
        set NNv=(GetUnitUserData((u)))
        if dje(NNv)then
            if UnitAddAbility(u,'Amrf')then
                call UnitRemoveAbility(u,'Amrf')
            endif
            set qT[NNv]=GetUnitFlyHeight(u)
        endif
        set MT[NNv]=sp
        set PT[NNv]=ac
    endif
endfunction

function FloatedTargetBYStun takes unit u,boolean Bnv returns nothing
    local integer NNv
    if not MB[(GetUnitUserData((u)))]then
        if Bnv then
            call FloatedTargetBY(u,45,-1.6)
            call m2v(u,2.5,'A500','B500',true)
        else
            call FloatedTargetBY(u,30,-1.6)
        endif
    endif
endfunction

function FloatedTargetBYStun2 takes unit u,real v,boolean Bnv returns nothing
    local integer NNv
    if not MB[(GetUnitUserData((u)))]then
        set v=v/ 1024.
        if Bnv then
            call FloatedTargetBY(u,45,-v)
            call m2v(u,1+45/(16*v),'A500','B500',true)
        else
            call FloatedTargetBY(u,30,-v)
        endif
    endif
endfunction

function SummonSkills_A00F_Actions takes nothing returns nothing
    local unit u=(MV[GetPlayerId(GetOwningPlayer(Je[((GetUnitUserData((GetTriggerUnit()))))]))])
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",GetTriggerUnit(),"origin"))
    call SetUnitX(GetTriggerUnit(),GetUnitX(u)+GetRandomReal(-$80,$80))
    call SetUnitY(GetTriggerUnit(),GetUnitY(u)+GetRandomReal(-$80,$80))
    set u=null
endfunction

function SummonSkills_A00F_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00F',function SummonSkills_A00F_Actions)
endfunction

function pNe takes unit NZv,unit u,real d returns nothing
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    call GroupEnumUnitsInRange(G,x,y,425+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,425)then
            if IsUnitAliveAndEnemy(u,NZv)then
                call DestroyEffect(AddSpecialEffectTarget("ZLightArrowImpact.mdl",u,"origin"))
                call UnitDamageTargetBY(((NZv)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            elseif IsUnitAliveAndAlly(u,NZv)then
                call DestroyEffect(AddSpecialEffectTarget("HolyLight.mdl",u,"origin"))
                call UnitCureTaret(NZv,u,.15*d)
            endif
        endif
    endloop
    call Ltv(LAv("LightNova.mdl",x,y,.75))
    call Ltv(LAv("TheHolyBomb.mdl",x,y,1.5))
endfunction

function uOe takes nothing returns integer
    local integer NNv=Evv[(0)]
    if NNv==0 then
        set Exv=Exv+1
        set NNv=Exv
    else
        set Evv[(0)]=Evv[NNv]
    endif
    return NNv
endfunction

function s__DoT_createHead takes nothing returns integer
    local integer NNv=uOe()
    set Evv[NNv]=NNv
    set Eev[NNv]=NNv
    return NNv
endfunction

function Remove_Destructable takes nothing returns nothing
    if GetDestructableTypeId(GetEnumDestructable())=='B001' or GetDestructableTypeId(GetEnumDestructable())=='B00C' then
        call RemoveDestructable(GetEnumDestructable())
    endif
endfunction

function Init_Destructable takes nothing returns nothing
endfunction

function sj_jass_main takes nothing returns nothing
    local weathereffect we
    local destructable d
    local trigger t
    local real life
    local integer itemID
    local trigger gzv
    local integer i
    local trigger zqv
    local integer NOv
    local integer NRv
    local version v
    local integer Nxv
    set Ca=CreateSound_BJ("Sound\\Interface\\Hint.wav",false,false,false,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Ca,"Hint")
    call SetSoundDuration_BJ(Ca,$7D6)
    set Da=CreateSound_BJ("Abilities\\Spells\\NightElf\\Starfall\\StarfallCaster1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Da,"StarfallArea")
    call SetSoundDuration_BJ(Da,$8A1)
    set fa=CreateSound_BJ("Sound\\Buildings\\Death\\NightElfBuildingDeathLarge1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(fa,"DeathNightElfLargeBuilding")
    call SetSoundDuration_BJ(fa,$DD8)
    set Fa=CreateSound_BJ("Sound\\Buildings\\Death\\BuildingDeathLargeHuman.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Fa,"DeathHumanLargeBuilding")
    call SetSoundDuration_BJ(Fa,$D84)
    set ga=CreateSound_BJ("Units\\Creeps\\AzureDragon\\DragonYesAttack3.wav",false,false,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(ga,"AzureDragonYesAttack")
    call SetSoundDuration_BJ(ga,$6B9)
    set Ga=CreateSound_BJ("Units\\Creeps\\AzureDragon\\DragonYes1.wav",false,false,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Ga,"AzureDragonYes")
    call SetSoundDuration_BJ(Ga,$6F6)
    set ha=CreateSound_BJ("Abilities\\Spells\\Items\\AIco\\CharmTarget1.wav",false,false,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(ha,"Charm")
    call SetSoundDuration_BJ(ha,$A7A)
    set Ha=CreateSound_BJ("Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.wav",false,false,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Ha,"ThunderClap")
    call SetSoundDuration_BJ(Ha,$D7B)
    set ja=CreateSound_BJ("Units\\Human\\KnightNoRider\\KnightNoRiderWarcry1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(ja,"KnightNoRiderWarcry")
    call SetSoundDuration_BJ(ja,$8A9)
    set Ja=CreateSound_BJ("Units\\Creeps\\Hydra\\HydraDeath1.wav",false,false,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Ja,"HydraDeath")
    call SetSoundDuration_BJ(Ja,$BBB)
    set ka=CreateSound_BJ("Units\\Undead\\HeroLich\\HeroLichWhat2.wav",false,false,true,$A,$A,"HeroAcksEAX")
    call SetSoundParamsFromLabel_BJ(ka,"HeroLichWhat")
    call SetSoundDuration_BJ(ka,$720)
    set Ka=CreateSound_BJ("Units\\Undead\\HeroLich\\HeroLichWhat3.wav",false,false,true,$A,$A,"HeroAcksEAX")
    call SetSoundParamsFromLabel_BJ(Ka,"HeroLichWhat")
    call SetSoundDuration_BJ(Ka,$68B)
    set la=CreateSound_BJ("Units\\Undead\\HeroLich\\HeroLichReady1.wav",false,false,true,$A,$A,"HeroAcksEAX")
    call SetSoundParamsFromLabel_BJ(la,"HeroLichReady")
    call SetSoundDuration_BJ(la,$CA1)
    set La=CreateSound_BJ("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget1.wav",false,false,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(La,"FrostNova")
    call SetSoundDuration_BJ(La,$B58)
    set ma=CreateSound_BJ("Log off.mp3",false,false,false,$A,$A,"DefaultEAXON")
    call SetSoundDuration_BJ(ma,$E808)
    call SetSoundChannel_BJ(ma,0)
    call SetSoundVolume_BJ(ma,$7F)
    call SetSoundPitch_BJ(ma,1.)
    set Ma=CreateSound_BJ("Buildings\\Undead\\SacrificialPit\\SacrificialPitWhat1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Ma,"SacrificialPitWhat")
    call SetSoundDuration_BJ(Ma,$D33)
    set pa=CreateSound_BJ("Sound\\Buildings\\Death\\UndeadBuildingDeathLarge1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(pa,"DeathUndeadLargeBuilding")
    call SetSoundDuration_BJ(pa,$BB9)
    set Pa=CreateSound_BJ("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Pa,"DarkRitual")
    call SetSoundDuration_BJ(Pa,$BBF)
    set qa=CreateSound_BJ("Units\\Undead\\EvilSylvanas\\EvilSylvanasWarcry1.wav",false,true,true,$A,$A,"HeroAcksEAX")
    call SetSoundParamsFromLabel_BJ(qa,"EvilSylvanasWarcry")
    call SetSoundDuration_BJ(qa,$78D)
    set Qa=CreateSound_BJ("Abilities\\Spells\\NightElf\\ReviveNightElf\\ReviveNightElf.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Qa,"ReviveNightElf")
    call SetSoundDuration_BJ(Qa,$CC4)
    set sa=CreateSound_BJ("Abilities\\Spells\\Other\\CrushingWave\\CrushingWaveTarget1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(sa,"CrushingWaveDamage")
    call SetSoundDuration_BJ(sa,$841)
    set Sa=CreateSound_BJ("Abilities\\Spells\\Other\\Monsoon\\MonsoonLightningHit.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Sa,"MonsoonBolt")
    call SetSoundDuration_BJ(Sa,$96F)
    set Ta=CreateSound_BJ("Units\\NightElf\\Ent\\ForceOfNatureBirth1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Ta,"ForceOfNatureBirth")
    call SetSoundDuration_BJ(Ta,$72B)
    set ua=CreateSound_BJ("Abilities\\Spells\\Orc\\LightningBolt\\LightningBolt.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(ua,"LightningBolt")
    call SetSoundDuration_BJ(ua,$858)
    set Ua=CreateSound_BJ("Abilities\\Spells\\Other\\HowlOfTerror\\HowlOfTerror.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Ua,"HowlOfTerror")
    call SetSoundDuration_BJ(Ua,$BF9)
    set wa=CreateSound_BJ("Sound\\Buildings\\Death\\NightElfBuildingDeathSmall1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(wa,"DeathNightElfBuildingCancel")
    call SetSoundDuration_BJ(wa,$E5B)
    set Wa=CreateSound_BJ("Units\\Human\\Footman\\FootmanYesAttack3.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Wa,"FootmanYesAttack")
    call SetSoundDuration_BJ(Wa,$480)
    set ya=CreateSound_BJ("Units\\Human\\Arthas\\ArthasYesAttack6.wav",false,true,true,$A,$A,"HeroAcksEAX")
    call SetSoundParamsFromLabel_BJ(ya,"ArthasYesAttack")
    call SetSoundDuration_BJ(ya,$455)
    set Ya=CreateSound_BJ("Abilities\\Spells\\NightElf\\FaerieDragonInvis\\PhaseShift1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Ya,"PhaseShift")
    call SetSoundDuration_BJ(Ya,$4E3)
    set Za=CreateSound_BJ("Sound\\Interface\\Warning.wav",false,false,false,$A,$A,"")
    call SetSoundParamsFromLabel_BJ(Za,"Warning")
    call SetSoundDuration_BJ(Za,$770)
    set vn=CreateSound_BJ("Sound\\Buildings\\Naga\\NagaBuildingCancel.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(vn,"NagaBuildingDeath")
    call SetSoundDuration_BJ(vn,$818)
    set en=CreateSound_BJ("Abilities\\Spells\\Undead\\Cripple\\CrippleTarget1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(en,"Cripple")
    call SetSoundDuration_BJ(en,$90C)
    set xn=CreateSound_BJ("Abilities\\Spells\\Undead\\Possession\\PossessionMissileHit1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(xn,"PossessionMissileHit")
    call SetSoundDuration_BJ(xn,$492)
    set on=CreateSound_BJ("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(on,"DarkRitual")
    call SetSoundDuration_BJ(on,$BBF)
    set rn=CreateSound_BJ("Sound\\Buildings\\Death\\UndeadBuildingDeathLarge1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(rn,"DeathUndeadLargeBuilding")
    call SetSoundDuration_BJ(rn,$BB9)
    set in=CreateSound_BJ("Abilities\\Spells\\Other\\HowlOfTerror\\HowlOfTerror.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(in,"HowlOfTerror")
    call SetSoundDuration_BJ(in,$BF9)
    set nn=CreateSound_BJ("Sound\\Units\\Combat\\MetalHeavyChopMetal3.wav",false,true,true,$A,$A,"CombatSoundsEAX")
    call SetSoundParamsFromLabel_BJ(nn,"MetalHeavyChopMetal")
    call SetSoundDuration_BJ(nn,971)
    set Vn=CreateSound_BJ("Sound\\Interface\\ClanInvitation.wav",false,false,false,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Vn,"ClanInvitation")
    call SetSoundDuration_BJ(Vn,4296)
    set En=CreateSound_BJ("Abilities\\Spells\\NightElf\\EatTree\\EatTreeTarget1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(En,"EatTreeMunch")
    call SetSoundDuration_BJ(En,$44D)
    set Xn=CreateSound_BJ("Units\\Creeps\\Lobstrokkblue\\LobstrokkWhat2.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Xn,"LobstrokkWhat")
    call SetSoundDuration_BJ(Xn,990)
    set On=CreateSound_BJ("Units\\Creeps\\Mammoth\\MammothYes1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(On,"MammothWhat")
    call SetSoundDuration_BJ(On,$95D)
    set Rn=CreateSound_BJ("Sound\\Dialogue\\UndeadCampaign\\Undead02\\U02KelThuzad27.mp3",false,false,false,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Rn,"U02KelThuzad27")
    call SetSoundDuration_BJ(Rn,4780)
    set In=CreateSound_BJ("Abilities\\Spells\\NightElf\\ReviveNightElf\\ReviveNightElf.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(In,"ReviveNightElf")
    call SetSoundDuration_BJ(In,$CC4)
    set An=CreateSound_BJ("Abilities\\Spells\\Orc\\LightningBolt\\LightningBolt.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(An,"LightningBolt")
    call SetSoundDuration_BJ(An,$858)
    set Nn=CreateSound_BJ("Sound\\Ambient\\DoodadEffects\\TheHornOfCenarius.wav",false,false,false,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Nn,"HornOfCenariusSound")
    call SetSoundDuration_BJ(Nn,$2F59)
    set Bn=CreateSound_BJ("Sound\\Ambient\\DoodadEffects\\SargerasLaugh.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Bn,"SargerasLaugh")
    call SetSoundDuration_BJ(Bn,$CFE)
    set cn=CreateSound_BJ("Sound\\Buildings\\Death\\UndeadBuildingDeathLarge1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(cn,"DeathUndeadLargeBuilding")
    call SetSoundDuration_BJ(cn,$BB9)
    set Cn=CreateSound_BJ("Sound\\Buildings\\Death\\UndeadBuildingDeathSmall.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Cn,"DeathUndeadBuildingCancel")
    call SetSoundDuration_BJ(Cn,$8BB)
    set dn=CreateSound_BJ("Abilities\\Spells\\Undead\\Burrow\\Burrow.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(dn,"Burrow")
    call SetSoundDuration_BJ(dn,$79E)
    set Dn=CreateSound_BJ("Doodads\\Cinematic\\Lightningbolt\\LightningBolt1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Dn,"CinematicLightningBolt")
    call SetSoundDuration_BJ(Dn,$BB9)
    set fn=CreateSound_BJ("Units\\Undead\\EvilSylvanas\\EvilSylvanasYesAttack3.wav",false,true,true,$A,$A,"HeroAcksEAX")
    call SetSoundParamsFromLabel_BJ(fn,"EvilSylvanasYesAttack")
    call SetSoundDuration_BJ(fn,$682)
    set Fn=CreateSound_BJ("Abilities\\Spells\\Other\\Submerge\\Submerge1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Fn,"SubmergeSound")
    call SetSoundDuration_BJ(Fn,$5F4)
    set gn=CreateSound_BJ("Units\\Undead\\Banshee\\BansheeDeath.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(gn,"BansheeDeath")
    call SetSoundDuration_BJ(gn,$94C)
    set Gn=CreateSound_BJ("Abilities\\Spells\\Demon\\RainOfFire\\RainOfFireTarget2.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Gn,"StarfallTarget")
    call SetSoundDuration_BJ(Gn,$BB8)
    set hn=CreateSound_BJ("Abilities\\Spells\\Undead\\AbsorbMana\\AbsorbMana.wav",false,true,true,$A,$A,"MissilesEAX")
    call SetSoundParamsFromLabel_BJ(hn,"AbsorbManaLaunch")
    call SetSoundDuration_BJ(hn,996)
    set Hn=CreateSound_BJ("Abilities\\Spells\\Orc\\Disenchant\\Disenchant.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Hn,"Disenchant")
    call SetSoundDuration_BJ(Hn,$7FB)
    set jn=CreateSound_BJ("Abilities\\Spells\\Other\\Submerge\\Submerge1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(jn,"SubmergeSound")
    call SetSoundDuration_BJ(jn,$5F4)
    set Jn=CreateSound_BJ("Units\\Naga\\NagaMyrmidon\\MyrmidonDeath1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Jn,"NagaMyrmidonDeath")
    call SetSoundDuration_BJ(Jn,$93B)
    set kn=CreateSound_BJ("Abilities\\Spells\\Orc\\LightningShield\\LightningShieldTarget.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(kn,"LightningShield")
    call SetSoundDuration_BJ(kn,$F26)
    set Kn=CreateSound_BJ("Abilities\\Spells\\NightElf\\BattleRoar\\BattleRoar.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Kn,"BattleRoar")
    call SetSoundDuration_BJ(Kn,$7C7)
    set ln=CreateSound_BJ("Abilities\\Spells\\Orc\\LightningBolt\\LightningBolt.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(ln,"LightningBolt")
    call SetSoundDuration_BJ(ln,$858)
    set Ln=CreateSound_BJ("Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Ln,"ThunderClap")
    call SetSoundDuration_BJ(Ln,$D7B)
    set mn=CreateSound_BJ("Abilities\\Spells\\Other\\BreathOfFire\\BreathOfFire1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(mn,"BreathOfFire")
    call SetSoundDuration_BJ(mn,$65C)
    set Mn=CreateSound_BJ("candy.mp3",false,false,false,$A,$A,"")
    call SetSoundDuration_BJ(Mn,$CA7)
    call SetSoundChannel_BJ(Mn,0)
    call SetSoundVolume_BJ(Mn,$7F)
    call SetSoundPitch_BJ(Mn,1.)
    set pn=CreateSound_BJ("Units\\Undead\\Ghoul\\GhoulWhat1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(pn,"GhoulWhat")
    call SetSoundDuration_BJ(pn,982)
    set Pn=CreateSound_BJ("Sound\\Ambient\\DoodadEffects\\SargerasLaugh.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Pn,"SargerasLaugh")
    call SetSoundDuration_BJ(Pn,$CFE)
    set qn=CreateSound_BJ("Units\\Undead\\Shade\\ShadeYesAttack2.wav",false,true,true,$A,$A,"HeroAcksEAX")
    call SetSoundParamsFromLabel_BJ(qn,"ShadeYesAttack")
    call SetSoundDuration_BJ(qn,$632)
    set Qn=CreateSound_BJ("Sound\\Ambient\\DoodadEffects\\SargerasLaugh.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Qn,"SargerasLaugh")
    call SetSoundDuration_BJ(Qn,$CFE)
    set sn=CreateSound_BJ("dingSound.mp3",false,false,false,$A,$A,"DefaultEAXON")
    call SetSoundDuration_BJ(sn,$6B9)
    call SetSoundChannel_BJ(sn,0)
    call SetSoundVolume_BJ(sn,$7F)
    call SetSoundPitch_BJ(sn,1.)
    set Sn=CreateSound_BJ("Buildings\\NightElf\\AncientOfWind\\AncientOfTheWildWhat3.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Sn,"AncientOfWindWhat")
    call SetSoundDuration_BJ(Sn,$6ED)
    call SetSoundVolume_BJ(Sn,$7F)
    set tn=CreateSound_BJ("Abilities\\Spells\\Other\\Monsoon\\MonsoonLightningHit.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(tn,"MonsoonBolt")
    call SetSoundDuration_BJ(tn,$96F)
    set Tn=CreateSound_BJ("Units\\Human\\Rifleman\\RiflemanAttack1.wav",false,true,true,$A,$A,"MissilesEAX")
    call SetSoundParamsFromLabel_BJ(Tn,"RiflemanAttack1")
    call SetSoundDuration_BJ(Tn,702)
    set un=CreateSound_BJ("Units\\Human\\Rifleman\\RiflemanAttack2.wav",false,true,true,$A,$A,"MissilesEAX")
    call SetSoundParamsFromLabel_BJ(un,"RiflemanAttack1")
    call SetSoundDuration_BJ(un,702)
    set Un=CreateSound_BJ("Abilities\\Spells\\Undead\\Impale\\ImpaleHit.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Un,"ImpaleHit")
    call SetSoundDuration_BJ(Un,$682)
    set wn=CreateSound_BJ("Abilities\\Spells\\NightElf\\FaerieFire\\FaerieFireLaunch1.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(wn,"FaerieFire")
    call SetSoundDuration_BJ(wn,$813)
    set Wn=CreateSound_BJ("Abilities\\Spells\\NightElf\\BattleRoar\\BattleRoar.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(Wn,"BattleRoar")
    call SetSoundDuration_BJ(Wn,$7C7)
    set yn=CreateSound_BJ("Units\\Undead\\Ghoul\\GhoulWarcry1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(yn,"GhoulWarcry")
    call SetSoundDuration_BJ(yn,$5CB)
    set Yn=CreateSound_BJ("Units\\Undead\\FrostWyrm\\FrostwyrmWarcry1.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(Yn,"FrostWyrmWarcry")
    call SetSoundDuration_BJ(Yn,$96F)
    call ConfigureNeutralVictim()
    set A7v=Filter(function NEv)
    set filterIssueHauntOrderAtLocBJ=Filter(function IssueHauntOrderAtLocBJFilter)
    set filterEnumDestructablesInCircleBJ=Filter(function A9v)
    set filterGetUnitsInRectOfPlayer=Filter(function GetUnitsInRectOfPlayerFilter)
    set filterGetUnitsOfTypeIdAll=Filter(function GetUnitsOfTypeIdAllFilter)
    set filterGetUnitsOfPlayerAndTypeId=Filter(function GetUnitsOfPlayerAndTypeIdFilter)
    set filterMeleeTrainedUnitIsHeroBJ=Filter(function MeleeTrainedUnitIsHeroBJFilter)
    set filterLivingPlayerUnitsOfTypeId=Filter(function LivingPlayerUnitsOfTypeIdFilter)
    set NOv=0
    loop
        exitwhen NOv==16
        set bj_FORCE_PLAYER[NOv]=CreateForce()
        call ForceAddPlayer(bj_FORCE_PLAYER[NOv],Player(NOv))
        set NOv=NOv+1
    endloop
    set bj_FORCE_ALL_PLAYERS=CreateForce()
    call ForceEnumPlayers(bj_FORCE_ALL_PLAYERS,null)
    set bj_cineModePriorSpeed=GetGameSpeed()
    set bj_cineModePriorFogSetting=IsFogEnabled()
    set bj_cineModePriorMaskSetting=IsFogMaskEnabled()
    set NOv=0
    loop
        exitwhen NOv>=bj_MAX_QUEUED_TRIGGERS
        set bj_queuedExecTriggers[NOv]=null
        set bj_queuedExecUseConds[NOv]=false
        set NOv=NOv+1
    endloop
    set bj_isSinglePlayer=false
    set NRv=0
    set NOv=0
    loop
        exitwhen NOv>=$C
        if(GetPlayerController(Player(NOv))==MAP_CONTROL_USER and GetPlayerSlotState(Player(NOv))==PLAYER_SLOT_STATE_PLAYING)then
            if NOv>=8 then
                if GetLocalPlayer()==Player(NOv)then
                    call EndGame(false)
                endif
            else
                set NRv=NRv+1
            endif
        endif
        set NOv=NOv+1
    endloop
    set bj_isSinglePlayer=(NRv==1)
    set bj_rescueSound=CreateSoundFromLabel("Rescue",false,false,false,$2710,$2710)
    set bj_questDiscoveredSound=CreateSoundFromLabel("QuestNew",false,false,false,$2710,$2710)
    set bj_questUpdatedSound=CreateSoundFromLabel("QuestUpdate",false,false,false,$2710,$2710)
    set bj_questCompletedSound=CreateSoundFromLabel("QuestCompleted",false,false,false,$2710,$2710)
    set bj_questFailedSound=CreateSoundFromLabel("QuestFailed",false,false,false,$2710,$2710)
    set bj_questHintSound=CreateSoundFromLabel("Hint",false,false,false,$2710,$2710)
    set bj_questSecretSound=CreateSoundFromLabel("SecretFound",false,false,false,$2710,$2710)
    set bj_questItemAcquiredSound=CreateSoundFromLabel("ItemReward",false,false,false,$2710,$2710)
    set bj_questWarningSound=CreateSoundFromLabel("Warning",false,false,false,$2710,$2710)
    set bj_victoryDialogSound=CreateSoundFromLabel("QuestCompleted",false,false,false,$2710,$2710)
    set bj_defeatDialogSound=CreateSoundFromLabel("QuestFailed",false,false,false,$2710,$2710)
    call DelayedSuspendDecayCreate()
    set v=VersionGet()
    if(v==VERSION_REIGN_OF_CHAOS)then
        set bj_MELEE_MAX_TWINKED_HEROES=bj_MELEE_MAX_TWINKED_HEROES_V0
    else
        set bj_MELEE_MAX_TWINKED_HEROES=bj_MELEE_MAX_TWINKED_HEROES_V1
    endif
    set Nxv=0
    loop
        set bj_stockAllowedPermanent[Nxv]=false
        set bj_stockAllowedCharged[Nxv]=false
        set bj_stockAllowedArtifact[Nxv]=false
        set Nxv=Nxv+1
        exitwhen Nxv>$A
    endloop
    call SetAllItemTypeSlots($B)
    call SetAllUnitTypeSlots($B)
    call DetectGameStarted()
    call ExecuteFunc("uRe")
    call ExecuteFunc("Tlv")
    call ExecuteFunc("Ygv")
    call RegisterEvent(EVENT_PLAYER_UNIT_ATTACKED,function ziv)
    call RegisterEvent(EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,function zav)
    set i=8
    loop
        set i=i-1
        call SetPlayerStateG(P[i],PLAYER_STATE_RESOURCE_GOLD,0)
        call SetPlayerStateG(P[i],PLAYER_STATE_RESOURCE_LUMBER,0)
        exitwhen i==0
    endloop
    set gzv=CreateTrigger()
    set i=8
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-wntkdnl",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-dice",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-roll",true)
        endif
        exitwhen i==0
    endloop
    call TriggerAddCondition(gzv,Filter(function zsv))
    set gzv=null
    set gzv=CreateTrigger()
    set i=8
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-自杀",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-wktkf",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-rnlghks",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-suicide",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-recall",true)
        endif
        exitwhen i==0
    endloop
    call TriggerAddCondition(gzv,Filter(function zSv))
    set gzv=null
    set gzv=CreateTrigger()
    set i=8
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-clean screen",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-ghkauscjdth",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-refresh",true)
        endif
        exitwhen i==0
    endloop
    call TriggerAddCondition(gzv,Filter(function ztv))
    set gzv=null
    set gzv=CreateTrigger()
    set zqv=CreateTrigger()
    set i=8
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-清理地图",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-clean",true)
            call TriggerRegisterPlayerChatEvent(gzv,P[i],"-clean map",true)
            call TriggerRegisterPlayerChatEvent(zqv,P[i],"-取消清理",true)
            call TriggerRegisterPlayerChatEvent(zqv,P[i],"-unitr",true)
        endif
        exitwhen i==0
    endloop
    call TriggerAddCondition(gzv,Condition(function zWv))
    call TriggerAddCondition(zqv,Condition(function zyv))
    set gzv=null
    set zqv=null
    call RegisterSpellEffectEvent('A0KW',function ZIv)
    call RegisterSpellEffectEvent('A0E8',function xoe)
    call RegisterSpellEffectEvent('A067',function xre)
    call RegisterSpellEffectEvent('A02C',function iTe)
    call RegisterSpellEffectEvent('A02B',function iTe)
    call RegisterSpellEffectEvent('A02D',function iTe)
    call RegisterSpellEffectEvent('A02E',function iue)
    call RegisterSpellEffectEvent('A02A',function iUe)
    call RegisterSpellEffectEvent('A0G1',function iwe)
    call TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function aae))))
    set gzv=CreateTrigger()
    set UV=gg_unit_h00V_0527
    call PauseUnit(UV,true)
    call SetUnitInvulnerable(UV,true)
    call SetDestructableInvulnerable(gg_dest_B00C_1557,true)
    call AddUnitSellItemById('I051',function ale)
    call RegisterEnterRect_A(gg_rct_TSRK_003,function aLe)
    call TriggerRegisterUnitEvent(gzv,UV,EVENT_UNIT_DEATH)
    call TriggerAddCondition(gzv,Condition(function aKe))
    set gzv=null
    call RegisterEnterRect_A(gg_rct_SHTZZ_____________________________002,function aSe)
    call RegisterEnterRect_A(gg_rct_FQJT_________________002,function aye)
    call RegisterEnterRect_A(gg_rct_HSK_______________________002,function a4e)
    call RegisterEnterRect_A(gg_rct_JKZHD_________________002,function a9e)
    call RegisterEnterRect_A(gg_rct_YS01_______________________002,function nne)
    call RegisterEnterRect_A(gg_rct_BSLZ_______________________002,function nbe)
    set gzv=CreateTrigger()
    set i=3
    set AE[0]=gg_unit_h01G_0069
    set AE[1]=gg_unit_h01G_0067
    set AE[2]=gg_unit_h01G_0068
    set NE=CreateDestructable('B001',$4E80,-$5A00,0,1,1)
    loop
        set i=i-1
        call TriggerRegisterUnitEvent(gzv,AE[i],EVENT_UNIT_DEATH)
        call PauseUnit(AE[i],true)
        call SetUnitInvulnerable(AE[i],true)
        exitwhen i==0
    endloop
    call RegisterEnterRect_A(gg_rct_ZHIZHUZHD_________________002,function nle)
    call TriggerAddCondition(gzv,Condition(function nge))
    set i=3
    set DE[0]=gg_unit_n01N_0531
    set DE[1]=gg_unit_n01N_0533
    set DE[2]=gg_unit_n01N_0532
    loop
        set i=i-1
        set fE[i]=AddSpecialEffectTarget("Abilities\\Spells\\Orc\\ReinforcedTrollBurrow\\ReinforcedTrollBurrowTarget.mdl",DE[i],"origin")
        call PauseUnit(DE[i],true)
        call SetUnitInvulnerable(DE[i],true)
        call SetUnitAnimation(DE[i],"cinematic")
        call TriggerRegisterUnitEvent(hE,DE[i],EVENT_UNIT_DEATH)
        exitwhen i==0
    endloop
    call RegisterEnterRect_A(gg_rct_TSZHD_________________002,function n2e)
    call TriggerAddCondition(hE,Condition(function nTe))
    call SetUnitInvulnerable(gg_unit_H00Q_0724,true)
    call RegisterEnterRect_A(gg_rct_EM01_________________002,function VDe)
    call RegisterSpellEffectEvent('A0OR',function X7e)
    call RegisterSpellEffectEvent('A0H6',function RYe)
    call RegisterSpellEffectEvent('A0H4',function R2e)
    call RegisterSpellEffectEvent('A0H8',function R3e)
    call RegisterSpellChannelEvent('A0H8',function R4e)
    call RegisterSpellChannelEvent('A0AC',function Iqe)
    call RegisterSpellChannelEvent('A0AE',function IQe)
    call RegisterSpellChannelEvent('A0AF',function Ise)
    call RegisterSpellEffectEvent('A04J',function ISe)
    call RegisterSpellEffectEvent('A0KY',function ISe)
    call RegisterSpellChannelEvent('A04J',function ITe)
    call RegisterSpellChannelEvent('A0KY',function ITe)
    call RegisterSpellEffectEvent('A06U',function IYe)
    call RegisterSpellChannelEvent('A06U',function Ize)
    call RegisterSpellChannelEvent('A0AK',function IZe)
    call RegisterSpellChannelEvent('A0AL',function I_e)
    call RegisterSpellEffectEvent('A0AJ',function I0e)
    call RegisterSpellEffectEvent('A07E',function I2e)
    call RegisterSpellChannelEvent('A07E',function I3e)
    call RegisterSpellEffectEvent('A04N',function I4e)
    call RegisterSpellChannelEvent('A04N',function I5e)
    call RegisterSpellEffectEvent('A07K',function I6e)
    call RegisterSpellEffectEvent('A0JI',function I6e)
    call RegisterSpellChannelEvent('A07K',function I7e)
    call RegisterSpellChannelEvent('A0JI',function I7e)
    call RegisterSpellChannelEvent('A0AN',function I8e)
    call RegisterSpellEffectEvent('A04G',function I9e)
    call RegisterSpellEffectEvent('A04C',function Ane)
    call RegisterSpellChannelEvent('A04C',function AVe)
    call RegisterSpellEffectEvent('A04H',function AEe)
    call RegisterSpellChannelEvent('A04H',function AXe)
    call RegisterSpellEffectEvent('A06P',function AOe)
    call RegisterSpellEffectEvent('A0I8',function AOe)
    call RegisterSpellChannelEvent('A06P',function ARe)
    call RegisterSpellChannelEvent('A0I8',function ARe)
    call RegisterSpellEffectEvent('A04Y',function ACe)
    call RegisterSpellEffectEvent('A0KQ',function ACe)
    call RegisterSpellChannelEvent('A04Y',function Ade)
    call RegisterSpellChannelEvent('A0KQ',function Ade)
    call RegisterSpellEffectEvent('A08K',function ADe)
    call RegisterSpellEffectEvent('A04L',function Age)
    call RegisterSpellEffectEvent('A0IQ',function Age)
    call RegisterSpellEffectEvent('A04M',function AGe)
    call RegisterSpellChannelEvent('A04M',function Ahe)
    call RegisterSpellChannelEvent('A0AV',function AHe)
    call RegisterSpellEffectEvent('A0AY',function Aje)
    call RegisterSpellEffectEvent('A06O',function AJe)
    call RegisterSpellChannelEvent('A06O',function Ake)
    call RegisterSpellChannelEvent('A0AX',function AKe)
    call RegisterSpellChannelEvent('A0KV',function AKe)
    call RegisterSpellChannelEvent('A0AT',function Ale)
    call RegisterSpellEffectEvent('A0AP',function ALe)
    call RegisterSpellChannelEvent('A0AP',function Ame)
    call RegisterSpellEffectEvent('A04F',function AMe)
    call RegisterSpellEffectEvent('A0KU',function AMe)
    call RegisterSpellChannelEvent('A04F',function Ape)
    call RegisterSpellChannelEvent('A0KU',function Ape)
    call RegisterSpellEffectEvent('A0A1',function AQe)
    call RegisterSpellEffectEvent('A0KT',function AQe)
    set WE=NewGroup()
    call TimerStart((NewTimer(0)),.25,true,function cxe)
    set gzv=CreateTrigger()
    set i=8
    loop
        set i=i-1
        if pV[i]then
        endif
        exitwhen i==0
    endloop
    set gzv=null
    call RegisterSpellEffectEvent('A00F',function SummonSkills_A00F_Actions)
endfunction

function uIe takes nothing returns boolean
    local integer NNv=Evv[(0)]
    if NNv==0 then
        set Exv=Exv+1
        set NNv=Exv
    else
        set Evv[(0)]=Evv[NNv]
    endif
    set Ayv=NNv
    return true
endfunction

function uAe takes nothing returns boolean
    local integer NNv=AWv
    local integer Nbv=Ahv
    set Eev[Evv[NNv]]=Nbv
    set Evv[Nbv]=Evv[NNv]
    set Evv[NNv]=Nbv
    set Eev[Nbv]=NNv
    return true
endfunction

function uNe takes nothing returns boolean
    local integer NNv=uOe()
    set Evv[NNv]=NNv
    set Eev[NNv]=NNv
    set Ayv=NNv
    return true
endfunction

function ube takes nothing returns boolean
    local integer NNv=AWv
    set Eev[Evv[NNv]]=Eev[NNv]
    set Evv[Eev[NNv]]=Evv[NNv]
    set Evv[NNv]=Evv[(0)]
    set Evv[(0)]=NNv
    return true
endfunction

function uBe takes nothing returns boolean
    local integer NNv=AWv
    set Evv[Eev[NNv]]=Evv[(0)]
    set Evv[(0)]=NNv
    return true
endfunction

function U9e takes nothing returns boolean
    call frv(mT)
    return true
endfunction

function wve takes nothing returns boolean
    call dge(Asv,Akv,AKv,Alv,ASv,ALv,AQv,Amv,AMv,Apv)
    return true
endfunction

function wee takes nothing returns boolean
    call frv(KT)
    return true
endfunction

function wxe takes nothing returns boolean
    local integer NNv=Ahv
    call s__barrage_Filling((kT),(NNv))
    if not s__barrage_InOperation[kT]then
        set s__barrage_InOperation[kT]=true
        call fov(KT)
    endif
    return true
endfunction

function woe takes nothing returns boolean
    local real sX=Akv
    local real sY=AKv
    local real sZ=Alv
    local real tZ=ALv
    local real di=Amv
    local real a=AMv
    local real BIv=Apv
    local real ar=APv
    local real cv=Aqv
    local integer NNv=CreateBarrageTypeD(sX,sY,sZ,sX+di*Cos(a),sY+di*Sin(a),tZ)
    call SetBarrageFlightRadianEZ(NNv,ar)
    call SetBarrageFlightRadian(NNv,cv)
    set s__barrage_speed[NNv]=0
    set s__barrage_acceleration[NNv]=.03125*.03125*BIv
    call dAe(NNv)
    set Ayv=s__barrage_model[NNv]
    return true
endfunction

function wre takes nothing returns boolean
    local integer NNv=AWv
    set AYv=Je[NNv]
    return true
endfunction

function wie takes nothing returns boolean
    local integer NNv=AWv
    set AZv=(IsUnitType((Je[NNv]),UNIT_TYPE_MECHANICAL))
    return true
endfunction

function wVe takes nothing returns boolean
    local integer NNv=AWv
    set qt[NNv]=0
    set Qt[NNv]=0
    return true
endfunction

function wEe takes nothing returns boolean
    local integer NNv=AWv
    local real BDv=Akv
    local real Bfv=AKv
    if CLe(NNv)then
        if UnitAddAbility((Je[((NNv))]),'Amrf')then
            call UnitRemoveAbility((Je[((NNv))]),'Amrf')
        endif
    endif
    set qt[NNv]=BDv
    set Qt[NNv]=.03125*(qt[NNv]-GetUnitFlyHeight((Je[((NNv))])))/ Bfv
    return true
endfunction

function wXe takes nothing returns boolean
    local integer NNv=AWv
    call DestroyLightning(pt[NNv])
    call Unit_Cancel_Counter($E9,mt[NNv])
    call Unit_Cancel_Counter($EA,Mt[NNv])
    call Che(NNv)
    set pt[NNv]=null
    return true
endfunction

function wOe takes nothing returns boolean
    local integer NNv=AWv
    call MoveLightningEx(pt[NNv],false,GetUnitX((Je[(mt[NNv])])),GetUnitY((Je[(mt[NNv])])),Lt+GetUnitFlyHeight((Je[(mt[NNv])])),GetUnitX((Je[(Mt[NNv])])),GetUnitY((Je[(Mt[NNv])])),Lt+GetUnitFlyHeight((Je[(Mt[NNv])])))
    return true
endfunction

function wRe takes nothing returns boolean
    set Ayv=CHe(AQv,Asv,ASv)
    return true
endfunction

function wCe takes nothing returns boolean
    call frv(Bt)
    return true
endfunction

function wde takes nothing returns boolean
    call UnitAddAbility(DS,'A0UP')
    call UnitMakeAbilityPermanent(DS,true,'A0UP')
    call RegisterSpellChannelEvent('A0UP',function Cve_2)
    call RegisterSpellEffectEvent('A0UP',function Cve_2)
    call TimerStart((NewTimer(0)),it,true,function Cve)
    return true
endfunction

function wDe takes nothing returns boolean
    set ot=LAv("BlackCloudOfFog.mdl",GetUnitX(DS),GetUnitY(DS),7)
    call TimerStart((NewTimer(0)),.03125,true,function c5e)
    return true
endfunction

function wfe takes nothing returns boolean
    call frv(et)
    return true
endfunction

function wFe takes nothing returns boolean
    call NewTextTagInTarget_B(DS,"All your resistance is in vain. You are like a candle in the wind.",18,55,55,125)
    call m_v(DS,false)
    call TriggerEvaluate(Rdv)
    call UnitAddAbilityBY(DS,'A0R4')
    call UnitAddAbilityBY(DS,'A0R3')
    return true
endfunction

function wge takes nothing returns boolean
    local integer i=2
    local integer j
    local real x=hS
    local real y=HS
    local real z=GetUnitFlyHeight(DS)
    local real pX
    local real pY
    local real d
    local real a
    local real c=0
    local real r
    local integer NNv
    loop
        set i=i-1
        set j=4
        set pX=x
        set pY=y
        if i==1 then
            set r=$610
        else
            set r=$800/ SquareRoot(2)
        endif
        loop
            set j=j-1
            set a=c+j*Lx/ 4
            set NNv=CreateBarrageTypeD(x,y,z,pX+r*Cos(a),pY+r*Sin(a),300.)
            call LMv(s__barrage_model[NNv],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[NNv])],((4)*1.),0,0)
            set s__barrage_speed[NNv]=.03125*s__locationez_range[s__barrage_p1[NNv]]/ 1.5
            call SetBarrageFlightRadianEZ(NNv,.25)
            call c3e(NNv)
            exitwhen j==0
        endloop
        exitwhen i==0
        set c=c+bj_PI*.5
    endloop
    call UnitCureTaret(null,DS,GetUnitMaxLifeById((GetUnitUserData((DS)))))
    call m_v(DS,true)
    call TriggerEvaluate(RDv)
    call SetUnitFacingTimed(DS,270,0)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",DS,"origin"))
    call SetUnitPosition(DS,hS,HS)
    call SetUnitAnimation(DS,"spell slam")
    call QueueUnitAnimation(DS,"stand")
    call NewTextTagInTarget_B(DS,"Minions, the darkness is coming!! ..",18,55,55,125)
    call zlv($9B,25,$9B,1.5)
    return true
endfunction

function wGe takes nothing returns boolean
    call frv(uS)
    return true
endfunction

function whe takes nothing returns boolean
    local integer NNv=AWv
    if PS[NNv]!=null then
        call ReleaseTimer(PS[NNv],"[TimerUtils]Error:157")
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0R7','B06H')
        call SetUnitVertexColor((Je[(NNv)]),25,55,55,$FF)
        call Unit_Cancel_Counter($EB,(NNv))
        set PS[NNv]=null
        set AZv=true
        return true
    endif
    set AZv=false
    return true
endfunction

function wHe takes nothing returns boolean
    call cke(Asv)
    return true
endfunction

function wje takes nothing returns boolean
    set AZv=FS==0
    return true
endfunction

function wJe takes nothing returns boolean
    set fS=true
    set gS=CreateTrigger()
    set GS=UnitAddShieldTrigB((GetUnitUserData((DS))),function cRe)
    call UnitAddShieldTrigB((GetUnitUserData((DS))),function cOe)
    call SetUnitInvulnerable(DS,false)
    call TriggerRegisterUnitInRange(gS,DS,750,null)
    call TriggerAddCondition(gS,Filter(function cRe))
    return true
endfunction

function wke takes nothing returns boolean
    local real x=GetRectCenterX(mQ)
    local real y=GetRectCenterY(mQ)
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$6D6+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$6D6)then
            if IsUnitAliveAndEnemy(u,LQ)then
                call Ltv(LAv("Objects\\Spawnmodels\\Orc\\OrcLargeDeathExplode\\OrcLargeDeathExplode.mdl",GetUnitX(u),GetUnitY(u),2.5))
                call UnitDamageTargetBY(((LQ)),((u)),(((($F4240)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            endif
        endif
    endloop
    call Bye()
    call fiv(true)
    call Lettheactorsplaylines(LQ,"Completely a piece of cake! Dare to challenge me! ..")
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",LQ,"origin"))
    call SetUnitPosition(LQ,x,y)
    call SetUnitFacing(LQ,270)
    call SetUnitInvulnerable(LQ,true)
    call PauseUnit(LQ,true)
    call TimerStart((NewTimer(0)),3,false,function B9e)
    return true
endfunction

function wKe takes nothing returns boolean
    call frv(ES)
    return true
endfunction

function wle takes nothing returns boolean
    local integer Byv=Ahv
    local integer BYv=AHv
    local integer i=Byv
    local integer j
    local real x=GetRectCenterX(mQ)
    local real y=GetRectCenterY(mQ)
    local real dX=GetRectMaxX(mQ)-x
    local real dY=GetRectMaxY(mQ)-y
    local real a=GetRandomReal(0,Lx)
    local real sX
    local real sY
    local real sA
    local real BUe
    local real Bwe
    loop
        exitwhen i==0
        set i=i-1
        set j=BYv
        set sA=a+i*Lx/ Byv
        set sX=x+dX*Cos(sA)
        set sY=y+dY*Sin(sA)
        loop
            exitwhen j==0
            set j=j-1
            set BUe=GetRandomReal(-50.,50.)
            if BYv==1 then
                set Bwe=0
            else
                set Bwe=(-1+2*(j/(BYv-1)))*300.
            endif
            call bLe(sX+BUe*Cos(sA)+Bwe*Sin(sA+bj_PI/ 2),sY+BUe*Sin(sA)+Bwe*Cos(sA+bj_PI/ 2),bj_RADTODEG*sA+$B4)
        endloop
    endloop
    return true
endfunction

function wLe takes nothing returns boolean
    if rS!=null then
        call ReleaseTimer(rS,"[TimerUtils]Error:158")
        set rS=null
    endif
    return true
endfunction

function wme takes nothing returns boolean
    if rS==null then
        set rS=(NewTimer(0))
    endif
    set aS=0
    call TimerStart(rS,oS,true,function BWe)
    return true
endfunction

function wMe takes nothing returns boolean
    call BSe(Asv)
    return true
endfunction

function wpe takes nothing returns boolean
    call UnitAddShieldTrig((GetUnitUserData(((Asv)))),function Bte)
    return true
endfunction

function wPe takes nothing returns boolean
    call UnitAddAbilityBY((Asv),'A0QH')
    return true
endfunction

function wqe takes nothing returns boolean
    call frv(ps)
    return true
endfunction

function wQe takes nothing returns boolean
    local integer NNv=AWv
    set AYv=(Je[(NNv)])
    return true
endfunction

function wSe takes nothing returns boolean
    call UnitAddPAttackTrig((GetUnitUserData(((Asv)))),function Bie)
    return true
endfunction

function wte takes nothing returns boolean
    call Bee(Asv,ASv,Ahv)
    return true
endfunction

function wue takes nothing returns boolean
    call UnitAddShieldTrig((GetUnitUserData(((Asv)))),function b5e)
    return true
endfunction

function wUe takes nothing returns boolean
    local integer i=4
    loop
        exitwhen i==0
        set i=i-1
        call bYe(vs[i])
        call RemoveUnitBJ((Je[(vs[i])]),7)
    endloop
    return true
endfunction

function wwe takes nothing returns boolean
    local real cxv=Akv
    local integer i=4
    set cxv=cxv-1.
    loop
        exitwhen i==0
        set i=i-1
        if i==0 then
        elseif i==1 then
        elseif i==2 then
        elseif i==3 then
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Avatar\\AvatarCaster.mdl",(Je[(vs[i])]),"origin"))
        call SetUnitVertexColor((Je[(vs[i])]),$CD,$87,0,$FF)
        call SetUnitTimeScale((Je[(vs[i])]),2.267/ cxv)
        call SetUnitAnimation((Je[(vs[i])]),"stand work gold")
        call QueueUnitAnimation((Je[(vs[i])]),"stand")
    endloop
    call TimerStart((NewTimer(0)),cxv,false,function b_e)
    return true
endfunction

function wWe takes nothing returns boolean
    local integer i=4
    local real x=GetRectCenterX(mQ)
    local real y=GetRectCenterY(mQ)
    local real dX=.66*(GetRectMaxX(mQ)-x)
    local real dY=.66*(GetRectMaxY(mQ)-y)
    local real a
    set vs[0]=(GetUnitUserData((gg_unit_n039_0548)))
    set vs[1]=(GetUnitUserData((gg_unit_n039_0549)))
    set vs[2]=(GetUnitUserData((gg_unit_n039_0040)))
    set vs[3]=(GetUnitUserData((gg_unit_n039_0547)))
    loop
        exitwhen i==0
        set i=i-1
        set es[vs[i]]=ModifyUnitAdef((vs[i]),100)
        call SetUnitNocontrol((vs[i]),true)
        call UnitAddAbilityBY((Je[(vs[i])]),'A0QC')
        call SetUnitVertexColor((Je[(vs[i])]),55,55,55,$9B)
        call SetUnitTimeScale((Je[(vs[i])]),0)
        call m_v((Je[(vs[i])]),true)
    endloop
    return true
endfunction

function wye takes nothing returns boolean
    call frv(ZQ)
    return true
endfunction

function wYe takes nothing returns boolean
    local integer NNv=AWv
    set AYv=(Je[(NNv)])
    return true
endfunction

function wze takes nothing returns boolean
    local integer NNv=UQ[(0)]
    loop
        exitwhen NNv==0
        call bHe(NNv)
        set NNv=UQ[NNv]
    endloop
    return true
endfunction

function wZe takes nothing returns boolean
    call frv(kQ)
    return true
endfunction

function w_e takes nothing returns boolean
    call frv(HQ)
    return true
endfunction

function w0e takes nothing returns boolean
    call frv(gQ)
    return true
endfunction

function w1e takes nothing returns boolean
    local real x=Akv
    local real y=AKv
    local integer NNv=(GetUnitUserData((CreateUnit(P[$B],'h00W',x,y,GetRandomInt(0,359)))))
    set fQ[NNv]=0
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(Je[(NNv)]),"origin"))
    call TimerStart(NewTimer(NNv),.03125,true,function NTe)
    call Unit_App_Counter($EC,(NNv))
    return true
endfunction

function w2e takes nothing returns boolean
    local integer NNv=AWv
    set AYv=(Je[(NNv)])
    return true
endfunction

function w3e takes nothing returns boolean
    call NLe(Asv)
    return true
endfunction

function w4e takes nothing returns boolean
    call NGe(Asv)
    return true
endfunction

function w5e takes nothing returns boolean
    call frv(VQ)
    return true
endfunction

function w6e takes nothing returns boolean
    local integer NNv=Ahv
    call s__barrage_Filling((nQ),(NNv))
    if not s__barrage_InOperation[nQ]then
        set s__barrage_InOperation[nQ]=true
        call fov(VQ)
    endif
    return true
endfunction

function w7e takes nothing returns boolean
    call frv(Vq)
    return true
endfunction

function w8e takes nothing returns boolean
    call frv(KP)
    return true
endfunction

function w9e takes nothing returns boolean
    if gP!=0 then
        call Ltv(gP)
        set gP=0
    endif
    call Ltv(LAv("NatureExplosion.mdl",GetUnitX(FP),GetUnitY(FP),3))
    call RemoveUnitBJ(FP,8)
    call ReleaseTimer(GP,"[TimerUtils]Error:159")
    set FP=null
    set GP=null
    return true
endfunction

function Wve takes nothing returns boolean
    set GP=(NewTimer(0))
    call UnitAddAbility(FP,'A0BG')
    call UnitAddAbility(FP,'Amrf')
    call UnitRemoveAbility(FP,'Amrf')
    call SetUnitFlyHeight(FP,$C8,0)
    call SetUnitInvulnerable(FP,false)
    call UnitAddBeDamagerTrig((GetUnitUserData((FP))),function R9e)
    return true
endfunction

function Wre takes nothing returns boolean
    call Rce(Asv,ASv,Akv)
    return true
endfunction

function Wie takes nothing returns boolean
    local real x=Akv
    local real y=AKv
    local integer i=8
    local group g=NewGroup()
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$5DC+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$5DC)then
            if UnitAlive(u)and nC[(GetUnitUserData((u)))]then
                call GroupAddUnit(g,u)
            endif
        endif
    endloop
    loop
        set i=i-1
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupRemoveUnit(g,u)
            exitwhen true
        endloop
        if u==null then
            call ROe(x+GetRandomReal(-750,750),y+GetRandomReal(-750,750),16*i,ModuloInteger(i,4)==0)
        else
            call ROe(GetUnitX(u),GetUnitY(u),16*i,ModuloInteger(i,4)==0)
        endif
        exitwhen i==0
    endloop
    call RecycleGroup(g)
    set g=null
    set u=null
    return true
endfunction

function Wae takes nothing returns boolean
    local integer s
    if GetRandomInt(1,100)<=5 then
        set s=(GetUnitUserData((CreateUnit(P[$B],'hpxe',$491C,$683D,0))))
        call StartSound(Za)
        call PingMinimapEx(GetUnitX((Je[(s)])),GetUnitY((Je[(s)])),2,$FF,0,0,false)
        call TimerStart(NewTimer(s),.25,true,function Rxe)
        call Unit_App_Counter($ED,s)
    else
        call Wae_2()
    endif
    return true
endfunction

function Wne takes nothing returns boolean
    call Ree(Asv)
    return true
endfunction

function WVe takes nothing returns boolean
    call frv(yM)
    return true
endfunction

function WEe takes nothing returns boolean
    call O0e(Asv)
    return true
endfunction

function WXe takes nothing returns boolean
    local real x=Akv
    local real y=AKv
    call Auxiliary_PointOrder(('A0M6'),P[$B],1,$D0108,x,y)
    call Ltv(LAv("NatureExplosion.mdl",x,y,1.25))
    return true
endfunction

function WOe takes nothing returns boolean
    local real x=Akv
    local real y=AKv
    local integer NNv=(D9v(sM))
    set pM[NNv]=Lnv(x,y,.75*Lx)
    call LMv(pM[NNv],"Doodads\\Cinematic\\ShimmeringPortal\\ShimmeringPortal.mdl")
    set PM[NNv]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\NightElf\\ThornsAura\\ThornsAura.mdl"),(II[pM[NNv]]),("origin"))))
    set QM[NNv]=$500
    if GetWidgetLife(OL)<2./ 3.*GetUnitState(OL,UNIT_STATE_MAX_LIFE)then
        set qM[NNv]=256
    else
        set qM[NNv]=320
    endif
    call Lfv(pM[NNv],55,$FF,0,$FF)
    call PlaySoundAtPoint_BJ((Za),(($7F)*1.),((x)*1.),((y)*1.),0)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x,y,4),55,$FF,125,$FF))
    return true
endfunction

function WRe takes nothing returns boolean
    local integer NNv=AWv
    if mM[NNv]!=null then
        call ReleaseTimer(mM[NNv],"[TimerUtils]Error:160")
        call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0M2','B04J')
        call DeUnitMdef((NNv),MM[NNv])
        call ModifyUnitArmor((NNv),-500)
        call Unit_Cancel_Counter($EE,(NNv))
        set mM[NNv]=null
        set AZv=true
        return true
    endif
    set AZv=false
    return true
endfunction

function WIe takes nothing returns boolean
    call frv(gM)
    return true
endfunction

function WAe takes nothing returns boolean
    local real x=Akv
    local real y=AKv
    local integer i=3
    local boolean WNe=GetUnitAbilityLevel(JK,'B04A')==1
    local integer NNv
    local unit u
    local real d
    local real a
    if GetRandomInt(1,2)==1 then
        set u=null
    elseif WNe then
        set u=PickRandomUnitInUnitRange(JK,$5DC)
    else
        set u=PickRandomUnitInUnitRange(JK,$3E8)
    endif
    loop
        set i=i-1
        if u==null then
            if WNe then
                set d=GetRandomReal(125,$4B0)
            else
                set d=GetRandomReal(125,600)
            endif
            set a=GetRandomReal(0,Lx)
            set NNv=CreateBarrageTypeD(x,y,350,x+d*Cos(a),y+d*Sin(a),0)
        else
            set NNv=CreateBarrageTypeD(x,y,350,GetUnitX(u),GetUnitY(u),0)
            set u=null
        endif
        set s__barrage_radian_z[NNv]=700.
        set s__barrage_speed[NNv]=.0
        set s__barrage_acceleration[NNv]=.03125*.03125*.5*s__locationez_range[s__barrage_p1[NNv]]
        call LMv(s__barrage_model[NNv],"Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[NNv])],((2.25)*1.),0,0)
        set fM[NNv]=LAv("Abilities\\Spells\\NightElf\\TrueshotAura\\TrueshotAura.mdl",s__locationez_X[s__barrage_p2[NNv]],s__locationez_Y[s__barrage_p2[NNv]],1.75)
        call Lfv(s__barrage_model[NNv],$FF,55,55,$FF)
        call Obe(NNv)
        exitwhen i==0
    endloop
    return true
endfunction

function Wbe takes nothing returns boolean
    call frv(wm)
    return true
endfunction

function WBe takes nothing returns boolean
    call Xpe(Asv)
    return true
endfunction

function Wce takes nothing returns boolean
    call frv(Jm)
    return true
endfunction

function Wde takes nothing returns boolean
    local integer NNv=AWv
    set AYv=(Je[(NNv)])
    return true
endfunction

function WDe takes nothing returns boolean
    call E8e(Asv)
    return true
endfunction

function WFe takes nothing returns boolean
    local integer i=1
    loop
        set i=i-1
        call RemoveDestructable(tL[i])
        set tL[i]=null
        exitwhen i==0
    endloop
    set lL=(GetUnitUserData((LL)))
    set mL=NewGroup()
    set SL=GetUnitState(LL,UNIT_STATE_MAX_LIFE)
    call KillUnit(gg_unit_h00N_0558)
    call SetUnitInvulnerable(LL,false)
    call PauseUnit(LL,false)
    call IssuePointOrderById(LL,$D000F,-$C80,-$3C00)
    call TimerStart(GetExpiredTimer(),.03125,true,function EWe)
    call Lqv(LAv("LightStrikeArray.mdx",-$C80,-$3C00,4),1.27)
    call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",-$C80,-$3C00,5))
    call UnitAddBeDamagerTrig((lL),function Eye)
    call Unit_App_Counter($EF,lL)
    return true
endfunction

function Wge takes nothing returns boolean
    call Efe(Asv)
    return true
endfunction

function WGe takes nothing returns boolean
    call EFe(Asv)
    return true
endfunction

function Wje takes nothing returns boolean
    call frv(sK)
    return true
endfunction

function Wme takes nothing returns boolean
    local integer NNv=AWv
    set AYv=(Je[(NNv)])
    return true
endfunction

function yee takes nothing returns boolean
    local integer NNv=AWv
    set AYv=(Je[(NNv)])
    return true
endfunction

function yne takes nothing returns boolean
    call ZKv(Asv)
    return true
endfunction

function yVe takes nothing returns boolean
    call frv(Wg)
    return true
endfunction

function yOe takes nothing returns boolean
    local integer NNv=AWv
    local integer v=Ahv
    local real a
    if UnitAlive((Je[(NNv)]))then
        if mg[NNv]<100 then
            set mg[NNv]=mg[NNv]+v
            if mg[NNv]>=100 then
                if z7v(NNv)then
                    set lg[NNv]=GetRandomInt(1,$A)
                    set Lg[NNv]=GetRandomInt(1,$A)
                    set a=bj_DEGTORAD*GetUnitFacing((Je[(NNv)]))
                    set kg[NNv]=Lnv(GetUnitX((Je[(NNv)]))-100*Cos(a),GetUnitY((Je[(NNv)]))-100*Sin(a),a)
                    call LMv(kg[NNv],"GrimReaper.mdl")
                    call SetUnitScale(II[(kg[NNv])],((1.5)*1.),0,0)
                    call SetUnitFlyHeight(II[(kg[NNv])],((25)*1.),0)
                    set mg[NNv]=100
                    set Mg[NNv]=$4B00
                    call z3v(NNv)
                    call LFv(kg[NNv],"s_ShadowEruption_Rain.mdl")
                endif
            endif
            call MultiboardSetItemValueBY(TV,Kc[(NNv)]+1,4,I2S(mg[NNv]))
        endif
    endif
    return true
endfunction

function yRe takes integer data returns boolean
    local boolean yIe=(Is_pvp[(GetPlayerId(GetOwningPlayer(((Je[(data)])))))])
    local real cyv
    if Jg and not yIe then
        if SummonedUnitSkills_A048_Timer[(data)]!=null or Item_I0E9_timer[data]!=null then
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",GetUnitX((Je[(data)])),GetUnitY((Je[(data)]))))
            call SleepReviveHero(data,100,100,2.5)
        endif
        if not IsSleepRevive[data]and GetHeroEquipSlot(data,5)=='I0FN' and Item_I0FN_cd[data]<(100000.-TimerGetRemaining(GameTimer))then
            set Ahv=data
            call GameExecuteFunc(Condition(Item_I0FN_Func))
        endif
        if not IsSleepRevive[data]and zZv((data))then
            call SleepReviveHero(data,80,100,2)
            call z1v((data))
        endif
        if not IsSleepRevive[data]and Item_cd_ryjz[data]<(100000.-TimerGetRemaining(GameTimer))then
            if UnitHasItemOfType((Je[(data)]),'I0DS')then
                set Item_cd_ryjz[data]=(100000.-TimerGetRemaining(GameTimer))+$B4
                call SleepReviveHero(data,100,100,2)
                call SetItemDroppableTimedById(data,'I0DS',$B5)
            elseif UnitHasItemOfType((Je[(data)]),'I0EA')then
                set Item_cd_ryjz[data]=(100000.-TimerGetRemaining(GameTimer))+$B4
                call SleepReviveHero(data,100,100,2)
                call SetItemDroppableTimedById(data,'I0EA',$B5)
            endif
        endif
    endif
    call RemoveHeroReviveBuff((data),0)
    if not IsSleepRevive[data]then
        if yIe then
            set cyv=$F
        else
            set cyv=5+GetHeroLevel((Je[(data)]))/ 5
            if UnitHasItemOfType((Je[(data)]),'gcel')or UnitHasItemOfType((Je[(data)]),'crys')then
                set cyv=.6*cyv
            endif
        endif
        if cyv>40 then
            set cyv=40
        endif
        call DisplayTextToPlayer((P[Kc[(data)]]),0,0,"|c00ffff00"+(Game_PlayerName[Kc[(data)]])+"Will be there "+I2S(R2I(cyv))+" Seconds before the resurrection..")
        call StartHeroReveveTimer(data,jV,JV,100,100,cyv)
        if Off_A098[data]then
            set Off_A098[data]=FALSE
            set Off_A098_id[data]=0
        endif
    endif
    return true
endfunction

function yNe takes nothing returns boolean
    local player p=Awv
    set Ayv=GetPlayerId(p)
    return true
endfunction

function ybe takes nothing returns boolean
    call zhv(AWv,Akv,AKv)
    return true
endfunction

function yBe takes nothing returns boolean
    local real Cuv=Akv
    local real cyv=AKv
    local real x=Alv
    local real y=ALv
    local real r=Amv
    local unit u
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            if IsUnitType(u,UNIT_TYPE_HERO)then
                call zhv((GetPlayerId((GetOwningPlayer(u)))),Cuv,cyv)
            endif
        endif
    endloop
    return true
endfunction

function yce takes nothing returns boolean
    local integer NNv=AWv
    local integer r=Ahv
    local integer g=AHv
    local integer b=Ajv
    local real cyv=Akv
    if Dg[NNv]==null then
        set Fg[NNv]=true
        set Dg[NNv]=NewTimer(NNv)
    endif
    if GetLocalPlayer()==P[NNv]then
        call SetTerrainFogEx(0,100,5000,$A,r/ 255.,g/ 255.,b/ 255.)
    endif
    call TimerStart(Dg[NNv],cyv,false,function zkv)
    return true
endfunction

function yme takes nothing returns boolean
    set AZv=Ymv(Asv,Ahv,AHv,Akv)
    return true
endfunction

function yMe takes nothing returns boolean
    call Passive_Skill_SpiriBreath_Addbuff(Asv,ATv)
    return true
endfunction

function yPe takes nothing returns boolean
    local integer NNv=AWv
    set AYv=Je[NNv]
    return true
endfunction

function yWe takes nothing returns boolean
    local integer NNv=AWv
    set AYv=Je[NNv]
    return true
endfunction

function y1e takes nothing returns boolean
    local integer NNv=AWv
    set A_v=P[Kc[NNv]]
    return true
endfunction

function y3e takes nothing returns boolean
    local integer NNv=AWv
    set Ayv=(NNv)
    return true
endfunction

function y4e takes nothing returns boolean
    set Ayv=(GetUnitUserData((Asv)))
    return true
endfunction

function y5e takes nothing returns boolean
    local integer NNv=AWv
    set AYv=Je[NNv]
    return true
endfunction

function y6e takes nothing returns boolean
    local integer NNv=AWv
    set Ayv=(GetUnitUserData((MV[GetPlayerId(GetOwningPlayer((Je[(NNv)])))])))
    return true
endfunction

function y7e takes nothing returns boolean
    local integer NNv=AWv
    local real v=Akv
    set Unit_MATK[NNv]=Unit_MATK[NNv]+.01*v
    return true
endfunction

function Yhe takes nothing returns boolean
    local integer NNv=AWv
    set AYv=Je[NNv]
    return true
endfunction

function uRe takes nothing returns nothing
    set ADv=CreateTrigger()
    call TriggerAddCondition(ADv,Condition(function uIe))
    set Afv=CreateTrigger()
    call TriggerAddCondition(Afv,Condition(function uAe))
    set AFv=CreateTrigger()
    call TriggerAddCondition(AFv,Condition(function uNe))
    set Agv=CreateTrigger()
    call TriggerAddCondition(Agv,Condition(function ube))
    set AGv=CreateTrigger()
    call TriggerAddCondition(AGv,Condition(function uBe))
    set RSv=CreateTrigger()
    call TriggerAddCondition(RSv,Condition(function U9e))
    set Rtv=CreateTrigger()
    call TriggerAddCondition(Rtv,Condition(function wve))
    set Rqv=CreateTrigger()
    call TriggerAddCondition(Rqv,Condition(function wee))
    set RQv=CreateTrigger()
    call TriggerAddCondition(RQv,Condition(function wxe))
    set Rsv=CreateTrigger()
    call TriggerAddCondition(Rsv,Condition(function woe))
    set Rpv=CreateTrigger()
    call TriggerAddCondition(Rpv,Condition(function wre))
    set RPv=CreateTrigger()
    call TriggerAddCondition(RPv,Condition(function wie))
    set Rlv=CreateTrigger()
    call TriggerAddCondition(Rlv,Condition(function wVe))
    set RLv=CreateTrigger()
    call TriggerAddCondition(RLv,Condition(function wEe))
    set RJv=CreateTrigger()
    call TriggerAddCondition(RJv,Condition(function wXe))
    set Rkv=CreateTrigger()
    call TriggerAddCondition(Rkv,Condition(function wOe))
    set RKv=CreateTrigger()
    call TriggerAddCondition(RKv,Condition(function wRe))
    set Rfv=CreateTrigger()
    call TriggerAddCondition(Rfv,Condition(function wCe))
    set RDv=CreateTrigger()
    call TriggerAddCondition(RDv,Condition(function wde))
    set Rdv=CreateTrigger()
    call TriggerAddCondition(Rdv,Condition(function wDe))
    set RBv=CreateTrigger()
    call TriggerAddCondition(RBv,Condition(function wfe))
    set Rcv=CreateTrigger()
    call TriggerAddCondition(Rcv,Condition(function wFe))
    set RCv=CreateTrigger()
    call TriggerAddCondition(RCv,Condition(function wge))
    set Rbv=CreateTrigger()
    call TriggerAddCondition(Rbv,Condition(function wGe))
    set RAv=CreateTrigger()
    call TriggerAddCondition(RAv,Condition(function whe))
    set RNv=CreateTrigger()
    call TriggerAddCondition(RNv,Condition(function wHe))
    set RRv=CreateTrigger()
    call TriggerAddCondition(RRv,Condition(function wje))
    set RIv=CreateTrigger()
    call TriggerAddCondition(RIv,Condition(function wJe))
    set ROv=CreateTrigger()
    call TriggerAddCondition(ROv,Condition(function wke))
    set RXv=CreateTrigger()
    call TriggerAddCondition(RXv,Condition(function wKe))
    set Rnv=CreateTrigger()
    call TriggerAddCondition(Rnv,Condition(function wle))
    set RVv=CreateTrigger()
    call TriggerAddCondition(RVv,Condition(function wLe))
    set REv=CreateTrigger()
    call TriggerAddCondition(REv,Condition(function wme))
    set Riv=CreateTrigger()
    call TriggerAddCondition(Riv,Condition(function wMe))
    set Rav=CreateTrigger()
    call TriggerAddCondition(Rav,Condition(function wpe))
    set Rrv=CreateTrigger()
    call TriggerAddCondition(Rrv,Condition(function wPe))
    set Rov=CreateTrigger()
    call TriggerAddCondition(Rov,Condition(function wqe))
    set Rev=CreateTrigger()
    call TriggerAddCondition(Rev,Condition(function wQe))
    set Rvv=CreateTrigger()
    call TriggerAddCondition(Rvv,Condition(function wSe))
    set O8v=CreateTrigger()
    call TriggerAddCondition(O8v,Condition(function wte))
    set O7v=CreateTrigger()
    call TriggerAddCondition(O7v,Condition(function wue))
    set O4v=CreateTrigger()
    call TriggerAddCondition(O4v,Condition(function wUe))
    set O5v=CreateTrigger()
    call TriggerAddCondition(O5v,Condition(function wwe))
    set O6v=CreateTrigger()
    call TriggerAddCondition(O6v,Condition(function wWe))
    set O3v=CreateTrigger()
    call TriggerAddCondition(O3v,Condition(function wye))
    set O1v=CreateTrigger()
    call TriggerAddCondition(O1v,Condition(function wYe))
    set O2v=CreateTrigger()
    call TriggerAddCondition(O2v,Condition(function wze))
    set O0v=CreateTrigger()
    call TriggerAddCondition(O0v,Condition(function wZe))
    set O_v=CreateTrigger()
    call TriggerAddCondition(O_v,Condition(function w_e))
    set OZv=CreateTrigger()
    call TriggerAddCondition(OZv,Condition(function w0e))
    set Ozv=CreateTrigger()
    call TriggerAddCondition(Ozv,Condition(function w1e))
    set OYv=CreateTrigger()
    call TriggerAddCondition(OYv,Condition(function w2e))
    set Oyv=CreateTrigger()
    call TriggerAddCondition(Oyv,Condition(function w3e))
    set OWv=CreateTrigger()
    call TriggerAddCondition(OWv,Condition(function w4e))
    set OUv=CreateTrigger()
    call TriggerAddCondition(OUv,Condition(function w5e))
    set Owv=CreateTrigger()
    call TriggerAddCondition(Owv,Condition(function w6e))
    set Ouv=CreateTrigger()
    call TriggerAddCondition(Ouv,Condition(function w7e))
    set OTv=CreateTrigger()
    call TriggerAddCondition(OTv,Condition(function w8e))
    set OSv=CreateTrigger()
    call TriggerAddCondition(OSv,Condition(function w9e))
    set Otv=CreateTrigger()
    call TriggerAddCondition(Otv,Condition(function Wve))
    set OPv=CreateTrigger()
    call TriggerAddCondition(OPv,Condition(function Wre))
    set Opv=CreateTrigger()
    call TriggerAddCondition(Opv,Condition(function Wie))
    set OMv=CreateTrigger()
    call TriggerAddCondition(OMv,Condition(function Wae))
    set Omv=CreateTrigger()
    call TriggerAddCondition(Omv,Condition(function Wne))
    set Olv=CreateTrigger()
    call TriggerAddCondition(Olv,Condition(function WVe))
    set OLv=CreateTrigger()
    call TriggerAddCondition(OLv,Condition(function WEe))
    set OKv=CreateTrigger()
    call TriggerAddCondition(OKv,Condition(function WXe))
    set Okv=CreateTrigger()
    call TriggerAddCondition(Okv,Condition(function WOe))
    set OJv=CreateTrigger()
    call TriggerAddCondition(OJv,Condition(function WRe))
    set OHv=CreateTrigger()
    call TriggerAddCondition(OHv,Condition(function WIe))
    set Ojv=CreateTrigger()
    call TriggerAddCondition(Ojv,Condition(function WAe))
    set Ohv=CreateTrigger()
    call TriggerAddCondition(Ohv,Condition(function Wbe))
    set OGv=CreateTrigger()
    call TriggerAddCondition(OGv,Condition(function WBe))
    set Ogv=CreateTrigger()
    call TriggerAddCondition(Ogv,Condition(function Wce))
    set ODv=CreateTrigger()
    call TriggerAddCondition(ODv,Condition(function Wde))
    set Ofv=CreateTrigger()
    call TriggerAddCondition(Ofv,Condition(function WDe))
    set Odv=CreateTrigger()
    call TriggerAddCondition(Odv,Condition(function WFe))
    set OBv=CreateTrigger()
    call TriggerAddCondition(OBv,Condition(function Wge))
    set Ocv=CreateTrigger()
    call TriggerAddCondition(Ocv,Condition(function WGe))
    set OAv=CreateTrigger()
    call TriggerAddCondition(OAv,Condition(function Wje))
    set Onv=CreateTrigger()
    call TriggerAddCondition(Onv,Condition(function Wme))
    set XQv=CreateTrigger()
    call TriggerAddCondition(XQv,Condition(function yee))
    set XMv=CreateTrigger()
    call TriggerAddCondition(XMv,Condition(function yne))
    set Xmv=CreateTrigger()
    call TriggerAddCondition(Xmv,Condition(function yVe))
    set XKv=CreateTrigger()
    call TriggerAddCondition(XKv,Condition(function yOe))
    set XGv=CreateTrigger()
    call TriggerAddCondition(XGv,Condition(function yNe))
    set Xhv=CreateTrigger()
    call TriggerAddCondition(Xhv,Condition(function ybe))
    set XHv=CreateTrigger()
    call TriggerAddCondition(XHv,Condition(function yBe))
    set Xjv=CreateTrigger()
    call TriggerAddCondition(Xjv,Condition(function yce))
    set XEv=CreateTrigger()
    call TriggerAddCondition(XEv,Condition(function yme))
    set XVv=CreateTrigger()
    call TriggerAddCondition(XVv,Condition(function yMe))
    set Xav=CreateTrigger()
    call TriggerAddCondition(Xav,Condition(function yPe))
    set E6v=CreateTrigger()
    call TriggerAddCondition(E6v,Condition(function yWe))
    set Eyv=CreateTrigger()
    call TriggerAddCondition(Eyv,Condition(function y1e))
    set Ezv=CreateTrigger()
    call TriggerAddCondition(Ezv,Condition(function y3e))
    set EZv=CreateTrigger()
    call TriggerAddCondition(EZv,Condition(function y4e))
    set E_v=CreateTrigger()
    call TriggerAddCondition(E_v,Condition(function y5e))
    set Edv=CreateTrigger()
    call TriggerAddCondition(Edv,Condition(function y6e))
    set EDv=CreateTrigger()
    call TriggerAddCondition(EDv,Condition(function y7e))
    set EBv=CreateTrigger()
    call TriggerAddCondition(EBv,Condition(function Yhe))
    call ExecuteFunc("YEv")
    call ExecuteFunc("Ggv")
    call ExecuteFunc("mOv")
    call ExecuteFunc("mcv")
    call ExecuteFunc("mHv")
    call ExecuteFunc("PQv")
    call ExecuteFunc("Zcv")
    call ExecuteFunc("Zdv")
    call ExecuteFunc("ZYv")
    call ExecuteFunc("vee")
    call ExecuteFunc("ipe")
    call ExecuteFunc("Vpe")
    call ExecuteFunc("Vqe")
    call ExecuteFunc("Xie")
    call ExecuteFunc("XIe")
    call ExecuteFunc("XDe")
    call ExecuteFunc("XFe")
    call ExecuteFunc("XJe")
    call ExecuteFunc("Xte")
    call ExecuteFunc("Xue")
    call ExecuteFunc("XYe")
    call ExecuteFunc("X2e")
    call ExecuteFunc("ONe")
    call ExecuteFunc("OBe")
    call ExecuteFunc("OHe")
    call ExecuteFunc("OPe")
    call ExecuteFunc("Oze")
    call ExecuteFunc("O_e")
    call ExecuteFunc("Rve")
    call ExecuteFunc("RBe")
    call ExecuteFunc("IVe")
    call ExecuteFunc("IXe")
    call ExecuteFunc("ILe")
    call ExecuteFunc("IMe")
    call ExecuteFunc("Aoe")
    call ExecuteFunc("AZe")
    call ExecuteFunc("A6e")
    call ExecuteFunc("NRe")
    call ExecuteFunc("NCe")
    call ExecuteFunc("NDe")
    call ExecuteFunc("Nye")
    call ExecuteFunc("Nze")
    call ExecuteFunc("N6e")
    call ExecuteFunc("N8e")
    call ExecuteFunc("bXe")
    call ExecuteFunc("bRe")
    call ExecuteFunc("bQe")
    call ExecuteFunc("bSe")
    call ExecuteFunc("Bfe")
    call ExecuteFunc("Bge")
    call ExecuteFunc("B0e")
    call ExecuteFunc("B2e")
    call ExecuteFunc("cse")
    call ExecuteFunc("cte")
    call ExecuteFunc("c2e")
    call ExecuteFunc("c4e")
    call ExecuteFunc("c9e")
    call ExecuteFunc("CRe")
    call ExecuteFunc("CAe")
    call ExecuteFunc("C1e")
    call ExecuteFunc("C7e")
    call ExecuteFunc("dIe")
    call ExecuteFunc("dNe")
    call ExecuteFunc("dDe")
    call ExecuteFunc("dFe")
    call ExecuteFunc("Giv")
    call ExecuteFunc("Lrv")
    call ExecuteFunc("zPv")
    call ExecuteFunc("zYv")
    call ExecuteFunc("z9v")
    call ExecuteFunc("Zfv")
    call ExecuteFunc("ZLv")
    call ExecuteFunc("Zpv")
    call ExecuteFunc("ZUv")
    call ExecuteFunc("ZZv")
    call ExecuteFunc("Z7v")
    call ExecuteFunc("voe")
    call ExecuteFunc("vie")
    call ExecuteFunc("vwe")
    call ExecuteFunc("vWe")
    call ExecuteFunc("iqe")
    call ExecuteFunc("iZe")
    call ExecuteFunc("are")
    call ExecuteFunc("Vge")
    call ExecuteFunc("VHe")
    call ExecuteFunc("Vke")
    call ExecuteFunc("VWe")
    call ExecuteFunc("V9e")
    call ExecuteFunc("Ebe")
    call ExecuteFunc("EKe")
    call ExecuteFunc("Eqe")
    call ExecuteFunc("EYe")
    call ExecuteFunc("Xee")
    call ExecuteFunc("XEe")
    call ExecuteFunc("Xbe")
    call ExecuteFunc("XKe")
    call ExecuteFunc("XZe")
    call ExecuteFunc("X6e")
    call ExecuteFunc("Oee")
    call ExecuteFunc("Oie")
    call ExecuteFunc("OEe")
    call ExecuteFunc("OFe")
    call ExecuteFunc("OJe")
    call ExecuteFunc("OLe")
    call ExecuteFunc("OUe")
    call ExecuteFunc("O6e")
    call ExecuteFunc("RSe")
    call ExecuteFunc("RWe")
    call ExecuteFunc("R1e")
    call ExecuteFunc("Ive")
    call ExecuteFunc("Ibe")
    call ExecuteFunc("IFe")
    call ExecuteFunc("Ije")
    call ExecuteFunc("IPe")
    call ExecuteFunc("Iye")
    call ExecuteFunc("Aae")
    call ExecuteFunc("ANe")
    call ExecuteFunc("Ace")
    call ExecuteFunc("Aue")
    call ExecuteFunc("AWe")
    call ExecuteFunc("A1e")
    call ExecuteFunc("A9e")
    call ExecuteFunc("Nxe")
    call ExecuteFunc("Nie")
    call ExecuteFunc("NVe")
    call ExecuteFunc("NFe")
    call ExecuteFunc("NHe")
    call ExecuteFunc("Nle")
    call ExecuteFunc("NSe")
    call ExecuteFunc("N0e")
    call ExecuteFunc("bee")
    call ExecuteFunc("bie")
    call ExecuteFunc("bbe")
    call ExecuteFunc("bge")
    call ExecuteFunc("BJe")
    call ExecuteFunc("Bme")
    call ExecuteFunc("B5e")
    call ExecuteFunc("cEe")
    call ExecuteFunc("cIe")
    call ExecuteFunc("cwe")
    call ExecuteFunc("cze")
    call ExecuteFunc("Cne")
    call ExecuteFunc("CBe")
    call ExecuteFunc("dve")
    call ExecuteFunc("Boss_Init_Hpal")
    call ExecuteFunc("Boss_Init_RHZX")
    call ExecuteFunc("Boss_Init_HM")
    call ExecuteFunc("Boss_Init_n03G")
    call ExecuteFunc("Boss_Init_h01K")
    call ExecuteFunc("Boss_Init_ywzd")
    call ExecuteFunc("Init_ItemAbility")
endfunction

function Boss_End_Func01_Hpal takes nothing returns nothing
    call UnitRemoveAbility(GetEnumUnit(),'A0S6')
endfunction

function Boss_End_Hpal takes nothing returns nothing
    local integer i=8
    call TriggerRemoveCondition(alloc__Kv[GetHandleId((EVENT_PLAYER_UNIT_DEATH))],(Boss_DEATH_TC_Hpal))
    set Boss_DEATH_TC_Hpal=null
    call DestroyTimer(GetExpiredTimer())
    call ForGroup(Boss_Buff_2_Group_Hpal,function Boss_End_Func01_Hpal)
    call GroupClear(Boss_Buff_2_Group_Hpal)
    call SetUnitTimeScale(Boss_Unit_Hpal,.5)
    call NewTextTagInTarget_A(Boss_Unit_Hpal,"|c00808080You did not mean to win, and today it is the first such|r",0,0,0)
    loop
        set i=i-1
        if MV[i]!=null and Off_A098_id[(GetUnitUserData((MV[i])))]==1 then
            set Off_A098[(GetUnitUserData((MV[i])))]=FALSE
            set Off_A098_id[(GetUnitUserData((MV[i])))]=0
        endif
        exitwhen i==0
    endloop
endfunction

function Boss_UNIT_DEATH_Hpal takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer unituserdata=(GetUnitUserData((u)))
    if IsUnitInGroup(u,Boss_Buff_1_Group_Hpal)then
        call UnitRemoveAbility(u,'A0S5')
        call GroupRemoveUnit(Boss_Buff_1_Group_Hpal,u)
        call ReleaseTimer(Boss_Buff_1_Timer_Hpal[unituserdata],"[TimerUtils]Error:161")
        set Boss_Buff_1_Timer_Hpal[unituserdata]=null
        call Unit_Cancel_Counter($F0,unituserdata)
    endif
    if IsUnitInGroup(u,Boss_Buff_2_Group_Hpal)then
        call UnitRemoveAbility(u,'A0S6')
        call GroupRemoveUnit(Boss_Buff_2_Group_Hpal,u)
    endif
    if u==Boss_Unit_Hpal then
        call TimerStart(Boss_Buff_1_Timer_Hpal[0],0,FALSE,function Boss_End_Hpal)
    endif
    set u=null
endfunction

function Boss_addbuff_2_Hpal takes unit u returns nothing
    if not IsUnitInGroup(u,Boss_Buff_2_Group_Hpal)then
        call GroupAddUnit(Boss_Buff_2_Group_Hpal,u)
        call UnitAddAbility(u,'A0S6')
        call UnitMakeAbilityPermanent(u,true,'A0S6')
        call NewTextTagInTarget_A(u,"MDEF: -10%",50,50,50)
    else
        if GetUnitAbilityLevel(u,'A0S6')<$A then
            call SetUnitAbilityLevel(u,'A0S6',GetUnitAbilityLevel(u,'A0S6')+1)
            call NewTextTagInTarget_A(u,"MDEF: -"+I2S(GetUnitAbilityLevel(u,'A0S6'))+"0%",50,50,50)
        endif
    endif
endfunction

function Boss_uloc_bufftm_Hpal takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:162")
    local unit u=(Je[(id)])
    call UnitRemoveAbility(u,'A0S5')
    call GroupRemoveUnit(Boss_Buff_1_Group_Hpal,u)
    set Boss_Buff_1_Timer_Hpal[id]=null
    call Unit_Cancel_Counter($F1,id)
    if GetWidgetLife(u)>0 then
        call Ltv(LAv("uberdarkwave.mdl",GetUnitX(u),GetUnitY(u),.5))
        call zhv(GetPlayerId(GetOwningPlayer(u)),100,1)
        if not IsUnitType(u,UNIT_TYPE_MAGIC_IMMUNE)then
            call UnitDamageTargetBY((Boss_Unit_Hpal),(u),((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.5)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
        endif
    endif
    set u=null
endfunction

function Boss_uloc_atk_Hpal takes nothing returns nothing
    local integer data=(pF_v)
    if not IsUnitInGroup((MF),Boss_Buff_1_Group_Hpal)then
        call NewTextTagInTarget_A((MF),"You're done(36813)!",$96,50,$CC)
        call GroupAddUnit(Boss_Buff_1_Group_Hpal,(MF))
        call UnitAddAbility((MF),'A0S5')
        call UnitMakeAbilityPermanent((MF),true,'A0S5')
        if Boss_Buff_1_Timer_Hpal[(pF)]==null then
            set Boss_Buff_1_Timer_Hpal[(pF)]=NewTimer((pF))
            call TimerStart(Boss_Buff_1_Timer_Hpal[(pF)],$A,FALSE,function Boss_uloc_bufftm_Hpal)
            call Unit_App_Counter($F2,(pF))
        endif
    endif
    set Boss_Spell_X[data]=GetUnitX((mF))
    set Boss_Spell_Y[data]=GetUnitY((mF))
    set Boss_Spell_data1[data]=2
    set Boss_Spell_Z[data]=1.
endfunction

function Boss_uloc_loop2_Hpal takes nothing returns nothing
    local unit u=GetEnumUnit()
    local integer data=(GetUnitUserData((u)))
    local unit u2
    local integer random
    if Boss_Spell_data1[data]==0 then
        if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],50)then
            call GroupEnumUnitsInRange(G,GetUnitX(u),GetUnitY(u),800,null)
            set random=0
            loop
                set u2=FirstOfGroup(G)
                exitwhen u2==null
                call GroupRemoveUnit(G,u2)
                if GetUnitAbilityLevel(u2,'Avul')==0 and IsUnitInGroup(u,Boss_Buff_1_Group_Hpal)==false then
                    if IsUnitAliveAndEnemy(u2,Boss_Unit_Hpal)then
                        if IsUnitType(u2,UNIT_TYPE_HERO)then
                            set random=random+2
                            if GetRandomInt(1,random)<=2 then
                                set Boss_Spell_unit1[data]=u2
                            endif
                        else
                            set random=random+1
                            if GetRandomInt(1,random)<=1 then
                                set Boss_Spell_unit1[data]=u2
                            endif
                        endif
                    endif
                endif
            endloop
            if Boss_Spell_unit1[data]!=null then
                set Boss_Spell_data1[data]=1
                call IssueTargetOrderById(u,$D000F,Boss_Spell_unit1[data])
            else
                set Boss_Spell_data2[data]=0
                if GetRandomInt(1,5)==1 then
                    set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)
                    set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)
                else
                    set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                    set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                endif
            endif
        else
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
            if Boss_Spell_data2[data]<1 then
                if IsUnitInRangeXY(Boss_Unit_Hpal,Boss_Spell_X[data],Boss_Spell_Y[data],$BB8)==false or IsPointInWorldBounds(Boss_Spell_X[data],Boss_Spell_Y[data])==false then
                    if GetRandomInt(1,5)==1 then
                        set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)
                        set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)
                    else
                        set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                        set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                    endif
                endif
                if IsUnitInRange(Boss_Unit_Hpal,u,5000)==false then
                    call SetUnitX(u,GetUnitX(Boss_Unit_Hpal))
                    call SetUnitY(u,GetUnitY(Boss_Unit_Hpal))
                endif
                if IssuePointOrderById(u,$D0012,Boss_Spell_X[data],Boss_Spell_Y[data])then
                    set Boss_Spell_data2[data]=$A
                endif
            endif
        endif
    elseif Boss_Spell_data1[data]==1 then
        if UnitAlive(Boss_Spell_unit1[data])and IsUnitInRange(u,Boss_Spell_unit1[data],$BB8)and GetUnitAbilityLevel(Boss_Spell_unit1[data],'Avul')==0 and IsUnitInGroup(u,Boss_Buff_1_Group_Hpal)==false and IssueTargetOrderById(u,$D000F,Boss_Spell_unit1[data])then
        else
            set Boss_Spell_unit1[data]=null
            if IsUnitInRange(u,Boss_Unit_Hpal,$3E8)==false then
                set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                set Boss_Spell_data1[data]=0
                set Boss_Spell_data2[data]=0
            else
                set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)
                set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)
                set Boss_Spell_data1[data]=2
                set Boss_Spell_data2[data]=0
            endif
        endif
    elseif Boss_Spell_data1[data]==2 then
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]-.05
        if Boss_Spell_Z[data]<=0 then
            set Boss_Spell_data1[data]=0
            set Boss_Spell_data2[data]=0
        else
            if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],50)then
                if GetRandomInt(1,3)==1 then
                    set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)
                    set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)
                else
                    set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                    set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                endif
                if IssuePointOrderById(u,$D0012,Boss_Spell_X[data],Boss_Spell_Y[data])then
                    set Boss_Spell_data2[data]=$A
                endif
            else
                set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
                if Boss_Spell_data2[data]<1 then
                    if IsUnitInRangeXY(Boss_Unit_Hpal,Boss_Spell_X[data],Boss_Spell_Y[data],$BB8)==false and IsPointInWorldBounds(Boss_Spell_X[data],Boss_Spell_Y[data])==false then
                        if IsUnitInRange(Boss_Unit_Hpal,u,5000)==false then
                            call SetUnitX(u,GetUnitX(Boss_Unit_Hpal))
                            call SetUnitY(u,GetUnitY(Boss_Unit_Hpal))
                        endif
                        if GetRandomInt(1,5)==1 then
                            set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)
                            set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)
                        else
                            set Boss_Spell_X[data]=GetUnitX(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                            set Boss_Spell_Y[data]=GetUnitY(Boss_Unit_Hpal)+GetRandomReal(-800,800)
                        endif
                    endif
                    if IssuePointOrderById(u,$D0012,Boss_Spell_X[data],Boss_Spell_Y[data])then
                        set Boss_Spell_data2[data]=$A
                    endif
                endif
            endif
        endif
    endif
    set u=null
endfunction

function Boss_uloc_loop_Hpal takes nothing returns nothing
    local unit u
    if UnitAlive(Boss_Unit_Hpal)then
        call ForGroup(Boss_Buff_3_Group_Hpal,function Boss_uloc_loop2_Hpal)
    else
        loop
            set u=FirstOfGroup(Boss_Buff_3_Group_Hpal)
            exitwhen u==null
            call GroupRemoveUnit(Boss_Buff_3_Group_Hpal,u)
            call Boss_Spell_deallocate((GetUnitUserData((u))))
            call KillUnit(u)
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:163")
    endif
endfunction

function Boss_uloc_create_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))+1
    local real x=GetUnitX(Boss_Unit_Hpal)
    local real y=GetUnitY(Boss_Unit_Hpal)
    local real f=GetRandomReal(0,6.28)
    local real r
    local unit u
    local integer data
    if UnitAlive(Boss_Unit_Hpal)then
        if i==1 then
            set Boss_DEATH_trig_Hpal=CreateTrigger()
            call TriggerAddCondition(Boss_DEATH_trig_Hpal,Condition(function Boss_uloc_atk_Hpal))
            set Boss_Buff_3_Group_Hpal=CreateGroup()
            call TimerStart(NewTimer(0),.05,true,function Boss_uloc_loop_Hpal)
        endif
        set data=Boss_Spell_allocate()
        set CR=FALSE
        set u=CreateUnit(Player($F),'uloc',x,y,f*bj_RADTODEG)
        call SetUnitX(u,x)
        call SetUnitY(u,y)
        call SetUnitUserData(u,data)
        call GroupAddUnit(Boss_Buff_3_Group_Hpal,u)
        set CR=true
        set Boss_Spell_data1[data]=2
        set Boss_Spell_data2[data]=0
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
        set Boss_x[0]=Cos(f)*$3E8
        set Boss_y[0]=Sin(f)*$3E8
        set Boss_z[0]=0
        set Boss_x[1]=1
        set Boss_y[1]=0
        set r=1
        loop
            set r=(Boss_x[1]+Boss_y[1])*.5
            set Boss_Spell_X[data]=x+Boss_x[0]*r
            set Boss_Spell_Y[data]=y+Boss_y[0]*r
            if IsPointInWorldBounds(Boss_Spell_X[data],Boss_Spell_Y[data])then
                set Boss_y[1]=r
            else
                set Boss_x[1]=r
            endif
            set Boss_z[0]=Boss_z[0]+1
            exitwhen Boss_z[0]>$A
        endloop
        set Boss_Spell_X[data]=Boss_Spell_X[data]-Boss_x[0]/ $3E8
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]-Boss_y[0]/ $3E8
        set Boss_Spell_Z[data]=r/ 400.
        if i>=30 then
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:164")
        else
            call alloc__hPv(GetHandleId((GetExpiredTimer())),(i))
        endif
        call IssuePointOrderById(u,$D0012,Boss_Spell_X[data],Boss_Spell_Y[data])
        set u=null
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:165")
    endif
endfunction

function Boss_Ability_005_Func002_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer uid
    local integer index=Boss_Spell_data2[i]-1
    local group g
    local unit u
    local unit u2
    local string s
    if index>=0 then
        set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[i])
        set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[i])
        if index==0 then
            set Boss_z[0]=50
        else
            set Boss_Spell_Z[i]=Boss_Spell_Z[i]+.12
            set Boss_z[0]=index*25
        endif
    endif
    set Boss_Spell_data2[i]=index
    set g=Boss_Spell_group1[i]
    set Boss_Spell_group1[i]=Boss_Spell_group2[i]
    set Boss_Spell_group2[i]=g
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        call GroupAddUnit(Boss_Spell_group1[i],u)
        set uid=(GetUnitUserData((u)))
        if index>=0 then
            set Boss_z[1]=Boss_Spell_Z[uid]+Boss_Spell_Z[i]
            set Boss_x[1]=Boss_Spell_X[i]+Cos(Boss_z[1])*Boss_z[0]
            set Boss_y[1]=Boss_Spell_Y[i]+Sin(Boss_z[1])*Boss_z[0]
            call SetUnitPosition(u,Boss_x[1],Boss_y[1])
        else
            set Boss_x[1]=GetUnitX(u)+Boss_Spell_X[uid]
            set Boss_y[1]=GetUnitY(u)+Boss_Spell_Y[uid]
            set Boss_Spell_Z[uid]=Boss_Spell_Z[uid]-1
            if Boss_Spell_Z[uid]>0 and IsPointInWorldBounds(Boss_x[1],Boss_y[1])then
                call SetUnitX(u,Boss_x[1])
                call SetUnitY(u,Boss_y[1])
                if Boss_Spell_data1[i]==5 then
                    if(index-index/ 4*4)==-2 then
                        call DestroyEffect(AddSpecialEffect("doomblack.mdx",Boss_x[1],Boss_y[1]))
                        call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],325,null)
                        loop
                            set u2=FirstOfGroup(G)
                            exitwhen u2==null
                            call GroupRemoveUnit(G,u2)
                            if IsUnitInRangeXY(u2,Boss_x[1],Boss_y[1],$FA)and GetUnitAbilityLevel(u2,'Avul')==0 then
                                if IsUnitAliveAndEnemy(u2,Boss_Spell_unit1[i])and not pB[(GetUnitUserData((u2)))]then
                                    call DestroyEffect(AddSpecialEffectTarget("desecrategreen.mdl",u2,"origin"))
                                    call KillUnitBJ(u2)
                                endif
                            endif
                        endloop
                    endif
                else
                    call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl",Boss_x[1],Boss_y[1]))
                    call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],$C8,null)
                    loop
                        set u2=FirstOfGroup(G)
                        exitwhen u2==null
                        call GroupRemoveUnit(G,u2)
                        if IsUnitInRangeXY(u2,Boss_x[1],Boss_y[1],125)and GetUnitAbilityLevel(u2,'Avul')==0 then
                            if IsUnitAliveAndEnemy(u2,Boss_Spell_unit1[i])then
                                call GroupRemoveUnit(Boss_Spell_group1[i],u)
                                call DestroyEffect(Boss_Spell_eff[uid])
                                call DestroyEffect(AddSpecialEffect("desecrategreen.mdl",Boss_x[1],Boss_y[1]))
                                call KillUnit(u)
                                call GroupClear(G)
                                if not IsUnitType(u2,UNIT_TYPE_MAGIC_IMMUNE)then
                                    call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u2),(($2710)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
                                endif
                                set u2=null
                                exitwhen true
                            endif
                        endif
                    endloop
                endif
            else
                if Boss_Spell_data1[i]==5 then
                    call Ltv(LAv("desecrate.mdl",Boss_x[1],Boss_x[1],1.5))
                    call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],325,null)
                    loop
                        set u2=FirstOfGroup(G)
                        exitwhen u2==null
                        call GroupRemoveUnit(G,u2)
                        if IsUnitInRangeXY(u2,Boss_x[1],Boss_y[1],$FA)and GetUnitAbilityLevel(u2,'Avul')==0 then
                            if IsUnitAliveAndEnemy(u2,Boss_Spell_unit1[i])and not pB[(GetUnitUserData((u2)))]then
                                call DestroyEffect(AddSpecialEffectTarget("desecrategreen.mdl",u2,"origin"))
                                call KillUnitBJ(u2)
                            endif
                        endif
                    endloop
                endif
                call GroupRemoveUnit(Boss_Spell_group1[i],u)
                call DestroyEffect(Boss_Spell_eff[uid])
                call KillUnit(u)
            endif
        endif
    endloop
    if index==0 then
        set g=Boss_Spell_group1[i]
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupRemoveUnit(g,u)
            set uid=(GetUnitUserData((u)))
            call SetUnitUserData(u,0)
            call DestroyEffect(Boss_Spell_eff[uid])
            call Boss_Spell_deallocate(uid)
            call RemoveUnitBJ(u,9)
        endloop
        if UnitAlive(Boss_Spell_unit1[i])then
            set Boss_z[0]=0
            loop
                set Boss_x[0]=Cos(Boss_z[0]*bj_DEGTORAD)*50
                set Boss_y[0]=Sin(Boss_z[0]*bj_DEGTORAD)*50
                set Boss_x[1]=Boss_Spell_X[i]+Boss_x[0]
                set Boss_y[1]=Boss_Spell_Y[i]+Boss_y[0]
                set uid=Boss_Spell_allocate()
                set CR=FALSE
                set u=CreateUnit(Player($F),'e001',Boss_x[1],Boss_y[1],Boss_z[0])
                call UnitAddAbility(u,'Amrf')
                call UnitRemoveAbility(u,'Amrf')
                if Boss_Spell_data1[i]==5 then
                    set Boss_Spell_X[uid]=Boss_x[0]
                    set Boss_Spell_Y[uid]=Boss_y[0]
                    set Boss_Spell_Z[uid]=1000./ 50.
                    set Boss_Spell_eff[uid]=AddSpecialEffectTarget("white claw.mdx",u,"origin")
                    call SetUnitScale(u,1.5,0,0)
                else
                    set Boss_Spell_X[uid]=Boss_x[0]*.6
                    set Boss_Spell_Y[uid]=Boss_y[0]*.6
                    set Boss_Spell_Z[uid]=1000./ 30.
                    set Boss_Spell_eff[uid]=AddSpecialEffectTarget("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",u,"origin")
                    call SetUnitScale(u,1.2,0,0)
                    call SetUnitFlyHeight(u,120,0)
                endif
                call SetUnitUserData(u,uid)
                call GroupAddUnit(Boss_Spell_group1[i],u)
                set u=null
                set CR=true
                set Boss_z[0]=Boss_z[0]+36
                exitwhen Boss_z[0]>=360
            endloop
            call NewTextTagInTarget_A(Boss_Spell_unit1[i],"|c00808080"+I2S(Boss_Spell_data1[i]*20)+"%|r",0,0,0)
            if Boss_Spell_data1[i]==5 then
                call SetUnitAnimation(Boss_Spell_unit1[i],"attack alternate")
                call QueueUnitAnimation(Boss_Spell_unit1[i],"stand alternate")
                call NewTextTagInTarget_B(Boss_Unit_Hpal,"|c00008000I will destroy your soul! And you will always fall into hell!!|r",18,0,0,0)
                call Ltv(LAv("desecrate.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],1.5))
                set index=0
                loop
                    call zhv(index,$96,1)
                    set index=index+1
                    exitwhen index>7
                endloop
            else
                call Ltv(LAv("desecrategreen.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],1.5))
            endif
        else
            call DestroyGroup(Boss_Spell_group1[i])
            call DestroyGroup(Boss_Spell_group2[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:166")
        endif
    elseif FirstOfGroup(Boss_Spell_group1[i])==null then
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:167")
    endif
endfunction

function Boss_Ability_005_Func_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local integer uid
    local unit u
    local real x
    local real y
    local real z
    if UnitAlive(Boss_Spell_unit1[i])then
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        if Boss_Spell_data1[i]<=5 then
            set index=Boss_Spell_allocate()
            set Boss_Spell_data1[index]=Boss_Spell_data1[i]
            set Boss_Spell_unit1[index]=Boss_Spell_unit1[i]
            set Boss_Spell_group1[index]=CreateGroup()
            set Boss_Spell_group2[index]=CreateGroup()
            set Boss_Spell_data2[index]=40
            set Boss_x[0]=GetUnitX(Boss_Spell_unit1[i])
            set Boss_y[0]=GetUnitY(Boss_Spell_unit1[i])
            set z=0
            loop
                set x=Boss_x[0]+$3E8*Cos(z*.62832)
                set y=Boss_y[0]+$3E8*Sin(z*.62832)
                set uid=Boss_Spell_allocate()
                set Boss_Spell_Z[uid]=z*.62832
                set CR=FALSE
                set u=CreateUnit(Player($F),'e001',x,y,z*36)
                call SetUnitFlyHeight(u,$C8,0)
                set Boss_Spell_eff[uid]=AddSpecialEffectTarget("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl",u,"origin")
                call SetUnitScale(u,1.5,0,0)
                call SetUnitUserData(u,uid)
                call GroupAddUnit(Boss_Spell_group1[index],u)
                set u=null
                set CR=true
                set z=z+1
                exitwhen z>=$A
            endloop
            call TimerStart(NewTimer(index),.03,true,function Boss_Ability_005_Func002_Hpal)
            call SetUnitAnimation(Boss_Spell_unit1[i],"stand ready alternate")
            call TimerStart(GetExpiredTimer(),.75,false,function Boss_Ability_005_Func_Hpal)
        else
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:168")
        endif
    else
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:169")
    endif
endfunction

function Boss_Ability_005_Hpal takes nothing returns nothing
    local integer EVENTID=GetHandleId(GetTriggerEventId())
    local integer i
    if EVENTID==272 then
        call NewTextTagInTarget_B(Boss_Unit_Hpal,"|c00008000Abandon it stupid guy! You will die here!|r",18,0,0,0)
    else
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=0
        set Boss_Spell_unit1[i]=GetTriggerUnit()
        call TimerStart(NewTimer(i),.0,false,function Boss_Ability_005_Func_Hpal)
        call SetUnitTimeScale(Boss_Spell_unit1[i],1.5)
    endif
endfunction

function Boss_Ability_002_func03_Hpal takes nothing returns nothing
    local unit u=GetEnumUnit()
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((u)))
    set Boss_Spell_Z[index]=Boss_Spell_Z[index]+.03
    set Boss_z[3]=Boss_Spell_Z[index]/ Boss_Spell_Y[index]
    if Boss_z[3]>1 then
        set Boss_z[3]=1
    endif
    set Boss_z[4]=Sin(Boss_z[3]*bj_PI)*Boss_z[2]*.25
    set Boss_x[5]=Boss_Spell_X[i]+Boss_x[1]*Boss_z[3]
    set Boss_y[5]=Boss_Spell_Y[i]+Boss_y[1]*Boss_z[3]
    set Boss_z[5]=Boss_Spell_Z[i]+Boss_z[1]*Boss_z[3]
    set Boss_x[6]=Boss_z[4]*Cos(Boss_Spell_X[index])
    set Boss_y[6]=Boss_z[4]*Sin(Boss_Spell_X[index])
    set Boss_x[7]=Boss_x[6]*Boss_x[4]
    set Boss_y[7]=Boss_y[6]
    set Boss_z[7]=Boss_x[6]*Boss_y[4]
    set Boss_x[6]=Boss_x[7]*Boss_x[3]-Boss_y[7]*Boss_y[3]
    set Boss_y[6]=Boss_x[7]*Boss_y[3]+Boss_y[7]*Boss_x[3]
    set Boss_z[6]=Boss_z[7]
    set Boss_x[7]=Boss_x[5]+Boss_x[6]
    set Boss_y[7]=Boss_y[5]+Boss_y[6]
    call MoveLocation(Boss_Point,Boss_x[7],Boss_y[7])
    set Boss_z[7]=Boss_z[5]+Boss_z[6]-GetLocationZ(Boss_Point)
    call SetUnitX(u,Boss_x[7])
    call SetUnitY(u,Boss_y[7])
    call SetUnitFlyHeight(u,Boss_z[7],.0)
    if(Boss_z[7]<20.)then
        call SetUnitVertexColor(u,$FF,$FF,$FF,0)
    else
        call SetUnitVertexColor(u,$FF,$FF,$FF,$FF)
    endif
    if(Boss_z[3]>=1.)then
        call Boss_Spell_deallocate(index)
        call GroupRemoveUnit(Boss_Spell_group1[i],u)
        call KillUnit(u)
    endif
    set u=null
endfunction

function Boss_Ability_002_func02_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    set Boss_x[0]=GetUnitX(Boss_Spell_unit2[i])
    set Boss_y[0]=GetUnitY(Boss_Spell_unit2[i])
    call MoveLocation(Boss_Point,Boss_x[0],Boss_y[0])
    set Boss_z[0]=GetLocationZ(Boss_Point)+50
    set Boss_x[1]=Boss_x[0]-Boss_Spell_X[i]
    set Boss_y[1]=Boss_y[0]-Boss_Spell_Y[i]
    set Boss_z[1]=Boss_z[0]-Boss_Spell_Z[i]
    set Boss_x[2]=Atan2(Boss_y[1],Boss_x[1])
    set Boss_y[2]=Atan2(Boss_z[1],SquareRoot(Boss_x[1]*Boss_x[1]+Boss_y[1]*Boss_y[1]))-bj_PI/ 2.
    set Boss_z[2]=SquareRoot(Boss_x[1]*Boss_x[1]+Boss_y[1]*Boss_y[1]+Boss_z[1]*Boss_z[1])
    if Boss_z[2]<$BB8 then
        set index=Boss_Spell_data1[0]
        set Boss_Spell_data1[0]=i
        set Boss_x[3]=Cos(Boss_x[2])
        set Boss_y[3]=Sin(Boss_x[2])
        set Boss_x[4]=Cos(Boss_y[2])
        set Boss_y[4]=Sin(Boss_y[2])
        if Boss_z[2]<750 then
            set Boss_z[2]=$5DC
        endif
        call ForGroup(Boss_Spell_group1[i],function Boss_Ability_002_func03_Hpal)
        set Boss_Spell_data1[0]=index
        if FirstOfGroup(Boss_Spell_group1[i])==null then
            set Boss_Spell_data1[i]=1
            call Ltv(LAv("desecrategreen.mdl",Boss_x[0],Boss_y[0],1.5))
            call GroupEnumUnitsInRange(G,Boss_x[0],Boss_y[0],375,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,Boss_x[0],Boss_y[0],300)and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitType(u,UNIT_TYPE_MAGIC_IMMUNE)==false then
                    if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)then
                        call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u),((100000.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($F)*1.),("|c00000000"))
                    endif
                endif
            endloop
        endif
    else
        loop
            set u=FirstOfGroup(Boss_Spell_group1[i])
            exitwhen u==null
            call GroupRemoveUnit(Boss_Spell_group1[i],u)
            set index=(GetUnitUserData((u)))
            call Boss_Spell_deallocate(index)
            call RemoveUnitBJ(u,$A)
        endloop
        set Boss_Spell_data1[i]=1
    endif
    if Boss_Spell_data1[i]==1 then
        call DestroyGroup(Boss_Spell_group1[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:170")
    endif
endfunction

function Boss_Ability_002_func01_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    if Boss_Index_Hpal<2 or Boss_Index_Hpal>6 then
        call SetUnitFacingTimed(Boss_Spell_unit1[i],bj_RADTODEG*Atan2(GetUnitY(Boss_Spell_unit2[i])-GetUnitY(Boss_Spell_unit1[i]),GetUnitX(Boss_Spell_unit2[i])-GetUnitX(Boss_Spell_unit1[i])),0)
        if Boss_Spell_data1[i]==-2 then
            if GetUnitTypeId(Boss_Spell_unit1[i])=='hpa3' then
                call SetUnitAnimation(Boss_Spell_unit1[i],"death alternate")
                call SetUnitTimeScale(Boss_Spell_unit1[i],.7)
            else
                call SetUnitAnimation(Boss_Spell_unit1[i],"morph")
                call SetUnitTimeScale(Boss_Spell_unit1[i],2)
            endif
            call PauseUnit(Boss_Spell_unit1[i],true)
            call SetUnitFlyHeight(Boss_Spell_unit1[i],600.,2000.)
            call TimerStart(GetExpiredTimer(),.075,true,function Boss_Ability_002_func01_Hpal)
            set Boss_Spell_data1[i]=-1
            set Boss_Spell_data2[i]=0
        elseif Boss_Spell_data1[i]==-1 then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
            if Boss_Spell_data2[i]>=$A then
                call SetUnitTimeScale(Boss_Spell_unit1[i],1)
                call SetUnitAnimation(Boss_Spell_unit1[i],"Attack alternate")
                if GetUnitTypeId(Boss_Spell_unit1[i])=='hpa3' then
                    call QueueUnitAnimation(Boss_Spell_unit1[i],"stand alternate")
                else
                    call QueueUnitAnimation(Boss_Spell_unit1[i],"stand")
                endif
                set Boss_Spell_data1[i]=0
                set Boss_Spell_data2[i]=0
                call TimerStart(GetExpiredTimer(),.05,true,function Boss_Ability_002_func01_Hpal)
            endif
        elseif Boss_Spell_data1[i]==0 then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
            if Boss_Spell_data2[i]>=$A then
                set Boss_Spell_group1[i]=CreateGroup()
                set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[i])
                set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[i])
                call MoveLocation(Boss_Point,Boss_Spell_X[i],Boss_Spell_Y[i])
                set Boss_Spell_Z[i]=GetUnitFlyHeight(Boss_Spell_unit1[i])+GetLocationZ(Boss_Point)+$C8
                set Boss_x[0]=GetUnitX(Boss_Spell_unit2[i])-Boss_Spell_X[i]
                set Boss_y[0]=GetUnitY(Boss_Spell_unit2[i])-Boss_Spell_Y[i]
                set Boss_z[1]=57.29578*Atan2(Boss_y[0],Boss_x[0])
                set CR=false
                set u=CreateUnit(Player($F),'e001',GetUnitX(Boss_Spell_unit2[i]),GetUnitY(Boss_Spell_unit2[i]),Boss_z[1])
                set Boss_Spell_unit2[i]=u
                set CR=true
                set index=0
                set bj_forLoopAIndex=1
                set bj_forLoopAIndexEnd=$C
                loop
                    exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
                    set index=Boss_Spell_allocate()
                    set Boss_Spell_X[index]=3.14159/ 6.*I2R(bj_forLoopAIndex)
                    set Boss_Spell_Z[index]=0
                    set CR=false
                    set u=CreateUnit(Player($F),'epal',Boss_Spell_X[i],Boss_Spell_Y[i],Boss_z[1])
                    set CR=true
                    if ModuloInteger(bj_forLoopAIndex,2)==1 then
                        set Boss_Spell_Y[index]=GetRandomReal(.55,.7)
                    else
                        set Boss_Spell_Y[index]=GetRandomReal(.85,1.)
                    endif
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call SetUnitUserData(u,index)
                    set bj_forLoopAIndex=bj_forLoopAIndex+1
                endloop
                call TimerStart(GetExpiredTimer(),.03,true,function Boss_Ability_002_func02_Hpal)
                call SetUnitFlyHeight(Boss_Spell_unit1[i],.0,1000.)
                call PauseUnit(Boss_Spell_unit1[i],false)
                set u=null
            endif
        else
            call SetUnitFlyHeight(Boss_Spell_unit1[i],.0,1000.)
            call PauseUnit(Boss_Spell_unit1[i],false)
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:171")
        endif
    else
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:172")
    endif
endfunction

function Boss_Ability_002_Hpal takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_unit2[i]=GetSpellTargetUnit()
    set Boss_Spell_data1[i]=-2
    set Boss_Spell_data2[i]=0
    call TimerStart(NewTimer(i),.0,false,function Boss_Ability_002_func01_Hpal)
    call UnitAddAbility(GetTriggerUnit(),'Amrf')
    call UnitRemoveAbility(GetTriggerUnit(),'Amrf')
    call NewTextTagInTarget_A(GetTriggerUnit(),"|c00808080Do not move honestly stay!|r",0,0,0)
endfunction

function Boss_Ability_001_func01_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index=Boss_Spell_data2[i]+1
    local unit u
    local real x
    local real y
    local real z
    local real r
    if index>100 then
        call DestroyGroup(Boss_Spell_group1[i])
        call RemoveUnitBJ(Boss_Spell_unit2[i],$B)
        call Boss_Spell_deallocate(i)
        call Ltv(Boss_Spell_data1[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:173")
    else
        set u=II[Boss_Spell_data1[i]]
        set x=GetUnitX(Boss_Spell_unit2[i])-Boss_Spell_X[i]
        set y=GetUnitY(Boss_Spell_unit2[i])-Boss_Spell_Y[i]
        set z=Boss_Spell_Z[i]
        set r=SquareRoot(x*x+y*y+z*z)
        if r<50. then
            set x=GetUnitX(Boss_Spell_unit2[i])
            set y=GetUnitY(Boss_Spell_unit2[i])
            set z=0
            set index=100
        else
            set r=50/ r
            set x=GetUnitX(u)+x*r
            set y=GetUnitY(u)+y*r
            set z=z*r
        endif
        call SetUnitX(u,x)
        call SetUnitY(u,y)
        set Boss_Spell_X[i]=x
        set Boss_Spell_Y[i]=y
        set Boss_Spell_Z[i]=z
        if index>=50 then
            if index==100 then
                call DestroyEffect(AI[Boss_Spell_data1[i]])
                call DEv(Boss_Spell_data1[i],"desecrategreen.mdl")
                call SetUnitScale(II[(Boss_Spell_data1[i])],((1.5)*1.),0,0)
                call GroupEnumUnitsInRange(G,x,y,375,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,300)and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitType(u,UNIT_TYPE_MAGIC_IMMUNE)==false then
                        if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)then
                            call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u),((20000.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($F)*1.),("|c005700AE"))
                            if IsUnitType(u,UNIT_TYPE_DEAD)==FALSE then
                                call Boss_addbuff_2_Hpal(u)
                            endif
                        endif
                    endif
                endloop
            endif
            set Boss_Spell_data2[i]=100
            call TimerStart(GetExpiredTimer(),1,false,function Boss_Ability_001_func01_Hpal)
        else
            call GroupEnumUnitsInRange(G,x,y,$AF,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInGroup(u,Boss_Spell_group1[i])and IsUnitInRangeXY(u,x,y,100)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)then
                        call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u),((10000.)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
                        if IsUnitType(u,UNIT_TYPE_DEAD)==FALSE then
                            call Boss_addbuff_2_Hpal(u)
                        endif
                    endif
                endif
            endloop
            set Boss_Spell_data2[i]=index
        endif
    endif
    set u=null
endfunction

function Boss_Ability_001_3_AFunc_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    if Boss_Spell_data1[i]==0 then
        loop
            set u=FirstOfGroup(Boss_Spell_group1[i])
            exitwhen u==null
            call GroupRemoveUnit(Boss_Spell_group1[i],u)
            call Ltv((GetUnitUserData((u))))
        endloop
        call DestroyGroup(Boss_Spell_group1[i])
    else
        call DestroyEffect(Boss_Spell_eff[i])
    endif
    call Boss_Spell_deallocate(i)
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:174")
    set u=null
endfunction

function Boss_Ability_001_B_Hpal takes real x,real y returns nothing
    local integer i=Boss_Spell_allocate()
    local integer uid=0
    local real z=0
    set Boss_Spell_data1[i]=0
    set Boss_Spell_group1[i]=CreateGroup()
    loop
        set uid=LAv("Doodads\\Cinematic\\GlowingRunes\\GlowingRunes"+I2S(R2I(z))+".mdl",x+300*Cos(z*.69813),y+300*Sin(z*.69813),.5)
        call SetUnitUserData(II[uid],uid)
        call GroupAddUnit(Boss_Spell_group1[i],II[uid])
        set z=z+1
        exitwhen z>9
    endloop
    set z=3
    call TimerStart(NewTimer(i),z,false,function Boss_Ability_001_3_AFunc_Hpal)
endfunction

function Boss_Ability_0010_Hpal takes unit u,real x1,real y1 returns nothing
    local integer i=Boss_Spell_allocate()
    local integer uid
    local real x
    local real y
    local real z
    set CR=false
    set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',x1,y1,0)
    set CR=true
    call SetUnitX(Boss_Spell_unit2[i],x1)
    call SetUnitY(Boss_Spell_unit2[i],y1)
    set Boss_Spell_unit1[i]=u
    set Boss_Spell_group1[i]=CreateGroup()
    set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[i])
    set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[i])
    set Boss_Spell_Z[i]=GetUnitFlyHeight(Boss_Spell_unit1[i])+$AF
    set x=GetUnitX(Boss_Spell_unit2[i])-GetUnitX(Boss_Spell_unit1[i])
    set y=GetUnitY(Boss_Spell_unit2[i])-GetUnitY(Boss_Spell_unit1[i])
    set z=Atan2(y,x)
    set Boss_Spell_data1[i]=LIv("Abilities\\Weapons\\DemonHunterMissile\\DemonHunterMissile.mdl",GetUnitX(Boss_Spell_unit1[i])+Cos(z)*50.,GetUnitY(Boss_Spell_unit1[i])+Sin(z)*50.,Boss_Spell_Z[i],2,z,90)
    set Boss_Spell_data2[i]=0
    call TimerStart(NewTimer(i),.03,true,function Boss_Ability_001_func01_Hpal)
endfunction

function Boss_Ability_004_Hpal takes nothing returns nothing
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local unit u
    call Ltv(LAv("desecrate.mdl",x,y,3.))
    call Ltv(LAv("darknova.mdl",x,y,1))
    call GroupEnumUnitsInRange(G,x,y,700,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,600)then
            if IsUnitAliveAndEnemy(u,GetTriggerUnit())then
                call UnitDamageTargetBY((GetTriggerUnit()),(u),((GetUnitState(u,UNIT_STATE_LIFE)*.8)*1.),false,(false),false,false,(ConvertAttackType(5)),(ConvertDamageType(26)),((0)*1.),(""))
                if IsUnitType(u,UNIT_TYPE_HERO)then
                    call zhv((GetPlayerId((GetOwningPlayer(u)))),$96,1)
                endif
            endif
        endif
    endloop
    call AddUnitAnimationProperties(GetTriggerUnit(),"alternate",true)
endfunction

function Boss_Ability_003_func02_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index=Boss_Spell_data1[i]+1
    if Boss_Index_Hpal<2 or Boss_Index_Hpal>6 then
        if UnitAlive(Boss_Spell_unit1[i])then
            call Boss_Ability_0010_Hpal(Boss_Spell_unit1[i],Boss_Spell_X[i],Boss_Spell_Y[i])
            if IsUnitInRange(Boss_Spell_unit1[i],Boss_Spell_unit2[i],$7D0)then
                set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit2[i])
                set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit2[i])
                call Boss_Ability_001_B_Hpal(Boss_Spell_X[i],Boss_Spell_Y[i])
            endif
        else
            set index=6
        endif
        if index>=5 then
            if GetUnitTypeId(Boss_Spell_unit1[i])=='hpa3' then
                call QueueUnitAnimation(Boss_Spell_unit1[i],"stand alternate")
            else
                call QueueUnitAnimation(Boss_Spell_unit1[i],"stand")
            endif
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
            call PauseUnit(Boss_Spell_unit1[i],FALSE)
            set index=7
        else
            set Boss_Spell_data1[i]=index
            if GetUnitTypeId(Boss_Spell_unit1[i])=='hpa3' then
                call SetUnitAnimation(Boss_Spell_unit1[i],"attack alternate")
            else
                call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
            endif
        endif
    else
        set index=7
    endif
    if index>=7 then
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:175")
    endif
endfunction

function Boss_Ability_003_func01_Hpal takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit2[i])
    set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit2[i])
    call Boss_Ability_001_B_Hpal(Boss_Spell_X[i],Boss_Spell_Y[i])
    call TimerStart(GetExpiredTimer(),.3,true,function Boss_Ability_003_func02_Hpal)
    call PauseUnit(Boss_Spell_unit1[i],true)
    if GetUnitTypeId(Boss_Spell_unit1[i])=='hpa3' then
        call SetUnitAnimation(Boss_Spell_unit1[i],"attack alternate")
    else
        call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
    endif
endfunction

function Boss_Ability_003_Hpal takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_unit2[i]=GetSpellTargetUnit()
    set Boss_Spell_data1[i]=0
    call TimerStart(NewTimer(i),0,false,function Boss_Ability_003_func01_Hpal)
    call SetUnitTimeScale(Boss_Spell_unit1[i],3)
endfunction

function Boss_Ability_001_Hpal takes nothing returns nothing
    call Boss_Ability_0010_Hpal(GetTriggerUnit(),GetSpellTargetX(),GetSpellTargetY())
endfunction

function Boss_Ability_001_A_Hpal takes nothing returns nothing
    local integer i
    local real z=0
    if GetSpellAbilityId()=='A0S7' then
        call Boss_Ability_001_B_Hpal(GetSpellTargetX(),GetSpellTargetY())
        call NewTextTagInTarget_B(GetTriggerUnit(),"|c00808080Go to hell!|r",18,0,0,0)
    else
        set i=Boss_Spell_allocate()
        call NewTextTagInTarget_B(GetTriggerUnit(),"|c00808080Stop running!|r",18,0,0,0)
        set z=1.5
        set Boss_Spell_data1[i]=1
        set Boss_Spell_eff[i]=AddSpecialEffectTarget("magnetic field.mdl",GetSpellTargetUnit(),"origin")
        call TimerStart(NewTimer(i),z,false,function Boss_Ability_001_3_AFunc_Hpal)
        call thv("|c00FF0000"+GetPlayerName(GetOwningPlayer(GetSpellTargetUnit()))+", catch!|r",GetUnitX(GetSpellTargetUnit()),GetUnitY(GetSpellTargetUnit()),GetUnitFlyHeight(GetSpellTargetUnit())+35,18,$F,.25*Lx,1.,1.5)
    endif
endfunction

function Boss_Ability_AEme01_Hpal takes nothing returns nothing
    local integer EVENTID=GetHandleId(GetTriggerEventId())
    if EVENTID==272 then
        if Boss_Index_Hpal==3 or Boss_Index_Hpal==4 then
            set Boss_Index_Hpal=5
        else
            call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
        endif
    elseif EVENTID==274 then
        if Boss_Index_Hpal==5 then
            set Boss_Index_Hpal=6
            call SetWidgetLife(Boss_Unit_Hpal,$3B9ACA00)
        endif
    elseif EVENTID==276 then
        if Boss_Index_Hpal==6 then
            set Boss_Index_Hpal=7
            call UnitRemoveAbility(Boss_Unit_Hpal,'A0S8')
            call UnitRemoveAbility(Boss_Unit_Hpal,'A0S9')
            call UnitAddAbility(Boss_Unit_Hpal,'A0S8')
            call UnitAddAbility(Boss_Unit_Hpal,'A0S9')
            call UnitAddAbility(Boss_Unit_Hpal,'A0SA')
            call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0S8')
            call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0S9')
            call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0SA')
            call SetUnitInvulnerable(Boss_Unit_Hpal,false)
        elseif Boss_Index_Hpal==5 then
            set Boss_Index_Hpal=4
        endif
    endif
endfunction

function Boss_AEme_func_Hpal takes nothing returns nothing
    set Boss_Index_Hpal=3
    call PauseUnit(Boss_Unit_Hpal,false)
    call UnitRemoveBuffsEx(Boss_Unit_Hpal,false,true,false,false,false,false,false)
    call UnitAddAbility(Boss_Unit_Hpal,'AEme')
    call IssueImmediateOrderById(Boss_Unit_Hpal,$D00D4)
endfunction

function Boss_Atker_Hpal takes nothing returns nothing
    local real life=GetWidgetLife(Boss_Unit_Hpal)
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    if x<-$4CE0 or x>-$41E0 or y<384 or y>$C00 then
        set KF[HF]=KF[HF]+999999999.
    endif
    if Boss_Index_Hpal<=1 then
        if life+KF[HF]-PF<=1 then
            set Boss_Index_Hpal=2
            call SetUnitInvulnerable(Boss_Unit_Hpal,true)
            call SetUnitFlyHeight(Boss_Unit_Hpal,.0,0)
            call SetUnitTimeScale(Boss_Unit_Hpal,1)
            call PauseUnit(Boss_Unit_Hpal,true)
            call SetWidgetLife(Boss_Unit_Hpal,1)
            call UnitRemoveBuffsEx(Boss_Unit_Hpal,false,true,false,false,false,false,false)
            call NewTextTagInTarget_B(Boss_Unit_Hpal,"|c00808080You angered me and I wanted to repay you!|r",18,0,0,0)
            call TimerStart(NewTimer(0),1,false,function Boss_AEme_func_Hpal)
        endif
    endif
endfunction

function Boss_Ability_004_A_Hpal takes nothing returns nothing
    call NewTextTagInTarget_B(GetTriggerUnit(),"|c00808080Come close!!|r",18,0,0,0)
endfunction

function Boss_Statr_tm2_Hpal takes nothing returns nothing
    local integer unituserdata=(GetUnitUserData((Boss_Unit_Hpal)))
    local unit u=null
    local real x=GetUnitX(Boss_Unit_Hpal)
    local real y=GetUnitY(Boss_Unit_Hpal)
    local real life=GetWidgetLife(Boss_Unit_Hpal)
    local real maxlife=GetUnitState(Boss_Unit_Hpal,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local integer index
    if Boss_Index_Hpal==0 then
        if v<=.8 then
            set Boss_Index_Hpal=1
            call UnitAddAbility(Boss_Unit_Hpal,'A0S8')
            call UnitAddAbility(Boss_Unit_Hpal,'A0S9')
        endif
    elseif Boss_Index_Hpal==4 or Boss_Index_Hpal==3 then
        call IssueImmediateOrderById(Boss_Unit_Hpal,$D00D4)
    elseif Boss_Index_Hpal==7 or Boss_Index_Hpal==8 then
        if Boss_Index_Hpal==7 and v<=.65 then
            set Boss_Index_Hpal=8
            call UnitAddAbility(Boss_Unit_Hpal,'A0SC')
        endif
        if Boss_Index_Hpal==8 and life<=10000000. then
            set Boss_Index_Hpal=9
            call SetUnitNocontrol(unituserdata,true)
            call NewTextTagInTarget_B(Boss_Unit_Hpal,"|c00808080Look down on you ah.|r",18,0,0,0)
            call UnitAddAbility(Boss_Unit_Hpal,'A0SB')
            call TimerStart(NewTimer(0),.2,true,function Boss_uloc_create_Hpal)
        endif
    endif
    if Boss_Index_Hpal<2 or Boss_Index_Hpal>6 then
        set Boss_Index2_Hpal=Boss_Index2_Hpal-1
        if Boss_Index2_Hpal<=0 then
            if Boss_Index_Hpal>7 then
                set index=0
                call GroupEnumUnitsInRange(G,x,y,$3E8,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)and GetUnitAbilityLevel(u,'Avul')==0 then
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            set index=index+2
                        else
                            set index=index+1
                        endif
                    endif
                endloop
                if index>1 and IssueImmediateOrderById(Boss_Unit_Hpal,$D009F)then
                    set Boss_Index2_Hpal=33
                    return
                endif
            endif
            if Boss_Index_Hpal>6 then
                set index=0
                call GroupEnumUnitsInRange(G,x,y,600,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)and GetUnitAbilityLevel(u,'Avul')==0 then
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            set index=index+2
                        else
                            set index=index+1
                        endif
                    endif
                endloop
                if index>1 and IssueImmediateOrderById(Boss_Unit_Hpal,$D00A0)then
                    set Boss_Index2_Hpal=33
                    return
                endif
            endif
            if Boss_Index_Hpal>0 then
                set index=0
                call GroupEnumUnitsInRange(G,x,y,800,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)and GetUnitAbilityLevel(u,'Avul')==0 then
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            set index=index+1
                            if GetRandomInt(1,index)<=1 then
                                set Boss_Spell_unit2[0]=u
                            endif
                        endif
                    endif
                endloop
                if index>0 then
                    if IssueTargetOrderById(Boss_Unit_Hpal,$D024B,Boss_Spell_unit2[0])then
                        set Boss_Index2_Hpal=33
                        return
                    endif
                endif
            endif
            set x=GetUnitX(Boss_Unit_Hpal)
            set y=GetUnitY(Boss_Unit_Hpal)
            set index=0
            call GroupEnumUnitsInRange(G,x,y,800,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)and GetUnitAbilityLevel(u,'Avul')==0 then
                    if IsUnitType(u,UNIT_TYPE_HERO)then
                        set index=index+2
                        if GetRandomInt(1,index)<=2 then
                            set x=GetUnitX(u)
                            set y=GetUnitY(u)
                        endif
                    else
                        set index=index+1
                        if GetRandomInt(1,index)<=1 then
                            set x=GetUnitX(u)
                            set y=GetUnitY(u)
                        endif
                    endif
                endif
            endloop
            if index>1 then
                if IssuePointOrderById(Boss_Unit_Hpal,$D009D,x,y)then
                    set Boss_Index2_Hpal=33
                endif
            endif
        endif
    endif
endfunction

function Boss_Statr_tm_Hpal takes nothing returns nothing
    local integer unituserdata=(GetUnitUserData((Boss_Unit_Hpal)))
    local unit u=null
    local real x=GetUnitX(Boss_Unit_Hpal)
    local real y=GetUnitY(Boss_Unit_Hpal)
    if Boss_Index2_Hpal==0 then
        set Boss_Index2_Hpal=1
        call SetUnitTimeScale(Boss_Unit_Hpal,0)
        call Ltv(LAv("desecrategreen.mdl",x,y,3.5))
        call TimerStart(Boss_Buff_1_Timer_Hpal[0],.3,FALSE,function Boss_Statr_tm_Hpal)
    elseif Boss_Index2_Hpal==1 then
        set Boss_Index2_Hpal=2
        call SetUnitAnimation(Boss_Unit_Hpal,"spell channel")
        call SetUnitTimeScale(Boss_Unit_Hpal,2)
        call Ltv(LAv("desecrate.mdl",x,y,3.5))
        call TimerStart(Boss_Buff_1_Timer_Hpal[0],.1,FALSE,function Boss_Statr_tm_Hpal)
    else
        call GroupEnumUnitsInRange(G,x,y,900,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,800)then
                if IsUnitAliveAndEnemy(u,Boss_Unit_Hpal)then
                    call m2v(u,1.,'A500','B500',true)
                    if IsUnitType(u,UNIT_TYPE_HERO)then
                        call zhv((GetPlayerId((GetOwningPlayer(u)))),$96,1)
                    endif
                endif
            endif
        endloop
        call SetUnitInvulnerable(Boss_Unit_Hpal,false)
        call PauseUnit(Boss_Unit_Hpal,false)
        call SetUnitAnimation(Boss_Unit_Hpal,"Stand")
        call SetUnitTimeScale(Boss_Unit_Hpal,1)
        set Boss_Index2_Hpal=0
        call TimerStart(Boss_Buff_1_Timer_Hpal[0],.03,true,function Boss_Statr_tm2_Hpal)
    endif
endfunction

function Boss_Statr_Hpal takes nothing returns nothing
    local integer unituserdata=(GetUnitUserData((Boss_Unit_Hpal)))
    local integer i
    call s__Trig_remove((Boss_Damage_Hpal))
    set Boss_Damage_Hpal=UnitAddBeDamagerTrigB(unituserdata,function Boss_Atker_Hpal)
    set Boss_Buff_1_Group_Hpal=CreateGroup()
    set Boss_Buff_2_Group_Hpal=CreateGroup()
    set i=0
    loop
        call SetPlayerAbilityAvailable(Player(i),'A0S6',false)
        set i=i+1
        exitwhen i>$F
    endloop
    call UnitAddAbility(Boss_Unit_Hpal,'Abrf')
    call UnitRemoveAbility(Boss_Unit_Hpal,'Abrf')
    call UnitAddAbility(Boss_Unit_Hpal,'A0IC')
    call UnitAddAbility(Boss_Unit_Hpal,'ANdb')
    call UnitAddAbility(Boss_Unit_Hpal,'A0S7')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0S7')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0S8')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0S9')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0SA')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0SB')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0SC')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'A0IC')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'ANdb')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'AEme')
    call UnitMakeAbilityPermanent(Boss_Unit_Hpal,true,'AUls')
    call RegisterSpellEffectEvent('A0S7',function Boss_Ability_001_Hpal)
    call RegisterSpellChannelEvent('A0S7',function Boss_Ability_001_A_Hpal)
    call RegisterSpellEffectEvent('A0S8',function Boss_Ability_002_Hpal)
    call RegisterSpellEffectEvent('A0S9',function Boss_Ability_003_Hpal)
    call RegisterSpellChannelEvent('A0S9',function Boss_Ability_001_A_Hpal)
    call RegisterSpellEffectEvent('A0SA',function Boss_Ability_004_Hpal)
    call RegisterSpellChannelEvent('A0SA',function Boss_Ability_004_A_Hpal)
    call RegisterSpellEffectEvent('A0SC',function Boss_Ability_005_Hpal)
    call RegisterSpellChannelEvent('A0SC',function Boss_Ability_005_Hpal)
    call RegisterSpellEffectEvent('AEme',function Boss_Ability_AEme01_Hpal)
    call RegisterSpellChannelEvent('AEme',function Boss_Ability_AEme01_Hpal)
    call RegisterSpellEndCastEvent('AEme',function Boss_Ability_AEme01_Hpal)
    set Boss_DEATH_TC_Hpal=RegisterEvent(EVENT_PLAYER_UNIT_DEATH,function Boss_UNIT_DEATH_Hpal)
    call NewTextTagInTarget_B(Boss_Unit_Hpal,"Kid I have not seen people come for many years just come to me solution!",18,$80,$80,$80)
    call SetUnitAnimation(Boss_Unit_Hpal,"Spell")
    call SetUnitTimeScale(Boss_Unit_Hpal,.25)
    set Boss_Buff_1_Timer_Hpal[0]=CreateTimer()
    set Boss_Index_Hpal=0
    set Boss_Index2_Hpal=0
    call TimerStart(Boss_Buff_1_Timer_Hpal[0],1.5,FALSE,function Boss_Statr_tm_Hpal)
    set KF[HF]=PF+1000000.
    call SetUnitInvulnerable(Boss_Unit_Hpal,true)
    set i=0
    loop
        exitwhen i>7
        call DestroyLightning(FE[i])
        set FE[i]=null
        set i=i+1
    endloop
endfunction

function Boss_Enter_Hpal takes nothing returns nothing
    if IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO)and(Boss_Index_Hpal==-1)and tEv(GetTriggerUnit(),-$4786,770,370)then
        set Off_A098[(GetUnitUserData((GetTriggerUnit())))]=true
        set Off_A098_id[(GetUnitUserData((GetTriggerUnit())))]=1
    endif
endfunction

function Boss_Init_Hpal takes nothing returns nothing
    local real x=-$4780
    local real y=$600
    local real r=$440
    local real t=r/ 2.
    local integer id
    set Boss_Unit_Hpal=gg_unit_hpa1_0272
    set id=(GetUnitUserData((Boss_Unit_Hpal)))
    call PauseUnit(Boss_Unit_Hpal,true)
    set Boss_Damage_Hpal=UnitAddBeDamagerTrigB(id,function Boss_Statr_Hpal)
    call RegisterEnterRect(-$5200,-9280,-$50C0,-8576,function Boss_Enter_Hpal)
    set FE[0]=AddLightningEx("LEAS",false,x+r,y,320,x-t,y+t,5)
    set FE[1]=AddLightningEx("LEAS",false,x+r,y,320,x-t,y-t,5)
    set FE[2]=AddLightningEx("LEAS",false,x,y+r,320,x-t,y-t,5)
    set FE[3]=AddLightningEx("LEAS",false,x,y+r,320,x+t,y-t,5)
    set FE[4]=AddLightningEx("LEAS",false,x-r,y,320,x+t,y-t,5)
    set FE[5]=AddLightningEx("LEAS",false,x-r,y,320,x+t,y+t,5)
    set FE[6]=AddLightningEx("LEAS",false,x,y-r,320,x+t,y+t,5)
    set FE[7]=AddLightningEx("LEAS",false,x,y-r,320,x-t,y+t,5)
endfunction

function Boss_END_RHZX takes nothing returns nothing
    local integer i=8
    loop
        set i=i-1
        if MV[i]!=null and GetHeroLevel(MV[i])>=380 then
            call DisplayTimedTextToPlayer(P[i],0,0,5,"|c00FF8080Lava debris has been given to 380+ lvl players|r|r")
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",MV[i],"origin"))
            call SetItemUserData(CreateItemG('gold',iA[i],VA[i]),i+1)
        endif
        exitwhen i==0
    endloop
    call TriggerRemoveCondition(alloc__Kv[GetHandleId((EVENT_PLAYER_UNIT_DEATH))],(Boss_DEATH_TC_RHZX))
    set Boss_DEATH_TC_RHZX=null
endfunction

function Boss_UNIT_DEATH_RHZX takes nothing returns nothing
    local real x
    local real y
    if GetTriggerUnit()==Boss_Unit_RHZX then
        call Boss_END_RHZX()
    elseif GetTriggerUnit()==Boss_Unit_2_RHZX then
        call SetUnitX(Boss_Unit_RHZX,GetUnitX(Boss_Unit_2_RHZX))
        call SetUnitY(Boss_Unit_RHZX,GetUnitY(Boss_Unit_2_RHZX))
        call KillUnit(Boss_Unit_RHZX)
        set Boss_Index_RHZX=8
    endif
    if IsUnitInGroup(GetTriggerUnit(),Boss_Ability02_group_RHZX)then
        call GroupRemoveUnit(Boss_Ability02_group_RHZX,GetTriggerUnit())
        set x=Boss_x[0]
        set y=Boss_y[0]
        set Boss_x[0]=GetUnitX(GetTriggerUnit())
        set Boss_y[0]=GetUnitY(GetTriggerUnit())
        call ExecuteFunc("Boss_Ability003_func04_RHZX")
        set Boss_x[0]=x
        set Boss_y[0]=y
    endif
endfunction

function Boss_buff_shaoshang_loop_RHZX takes nothing returns nothing
    local integer data
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if IsUnitInGroup(Boss_Spell_unit1[i],h_v_Group)then
        set data=(GetUnitUserData((Boss_Spell_unit1[i])))
        set Boss_Spell_X[i]=Boss_Spell_X[i]+1
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",Boss_Spell_unit1[i],"origin"))
        call UnitDamageTargetBY((Boss_Spell_unit2[i]),(Boss_Spell_unit1[i]),((2000.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($C)*1.),("|c00FF8080"))
        if Boss_Spell_Z[i]>0 then
            call UnitDamageTargetBY((Boss_Spell_unit2[i]),(Boss_Spell_unit1[i]),((Boss_Spell_Z[i])*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($C)*1.),("|c00FF8080"))
        else
            call UnitDamageTargetBY((Boss_Spell_unit2[i]),(Boss_Spell_unit1[i]),((2000.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($C)*1.),("|c00FF8080"))
            if Boss_Spell_data1[i]<$A then
                set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
                call ModifyUnitArmor(data,-50)
            endif
        endif
        if Boss_Spell_X[i]>=$A or UnitAlive(Boss_Spell_unit1[i])==false then
            call UnitRemoveAbilityandBuffBY(Boss_Spell_unit1[i],'A0SW','B070')
            call DeUnitMdef(data,Boss_Spell_data2[i])
            call ModifyUnitArmor(data,50*Boss_Spell_data1[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:176")
            set Boss_buff_shaoshang_RHZX[data]=null
        endif
    else
        set Boss_Spell_unit1[i]=null
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:177")
        set Boss_buff_shaoshang_RHZX[R2I(Boss_Spell_Y[i])]=null
    endif
endfunction

function Boss_buff_shaoshang_add_RHZX takes unit u,unit u2,real damage returns nothing
    local integer data=(GetUnitUserData((u)))
    local integer i
    if IsUnitInGroup(u,h_v_Group)==false then
        return
    endif
    if Boss_buff_shaoshang_RHZX[data]==null then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=u
        set Boss_Spell_unit2[i]=u2
        set Boss_Spell_X[i]=0
        set Boss_Spell_Y[i]=data
        set Boss_Spell_Z[i]=damage
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=ModifyUnitMdef(data,-20)
        set Boss_buff_shaoshang_RHZX[data]=NewTimer(i)
        call UnitAddAbilityBY(u,'A0SW')
    else
        set i=(alloc__hpv(GetHandleId((Boss_buff_shaoshang_RHZX[data]))))
        set Boss_Spell_X[i]=0
        set Boss_Spell_Z[i]=damage
        set Boss_Spell_unit2[i]=u2
    endif
    call TimerStart(Boss_buff_shaoshang_RHZX[data],1,true,function Boss_buff_shaoshang_loop_RHZX)
endfunction

function Boss_buff_shaoshang2_loop_RHZX takes nothing returns nothing
    local integer data
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set data=(Boss_Spell_data2[i])
    if Boss_Spell_X[i]>(100000.-TimerGetRemaining(GameTimer))and UnitAlive(Boss_Spell_unit1[i])then
        call DestroyEffect(AddSpecialEffectTarget("Environment\\LargeBuildingFire\\LargeBuildingFire2.mdl",Boss_Spell_unit1[i],"chest"))
    else
        call DestroyEffect(Boss_Spell_eff[i])
        call UnitRemoveAbilityandBuffBY(Boss_Spell_unit1[i],'Arll',0)
        call UnitRemoveAbilityandBuffBY(Boss_Spell_unit1[i],'A0SY','B071')
        set Boss_Spell_unit1[i]=null
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:178")
        set Boss_buff_shaoshang_RHZX[data]=null
        call Unit_Cancel_Counter($F3,data)
    endif
endfunction

function Boss_buff_shaoshang2_add_RHZX takes unit u returns nothing
    local integer data=(GetUnitUserData((u)))
    local integer i
    if IsUnitInGroup(u,h_v_Group)==false then
        return
    endif
    if Boss_buff_shaoshang_RHZX[data]==null then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=u
        set Boss_Spell_X[i]=(100000.-TimerGetRemaining(GameTimer))+5
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=data
        set Boss_buff_shaoshang2_RHZX[data]=NewTimer(i)
        set Boss_Spell_eff[i]=AddSpecialEffectTarget("Environment\\LargeBuildingFire\\LargeBuildingFire2.mdl",u,"origin")
        call TimerStart(Boss_buff_shaoshang2_RHZX[data],.2,true,function Boss_buff_shaoshang2_loop_RHZX)
        call UnitAddAbilityBY(u,'Arll')
        call UnitAddAbilityBY(u,'A0SY')
        call Unit_App_Counter($F4,data)
    else
        set i=(alloc__hpv(GetHandleId((Boss_buff_shaoshang2_RHZX[data]))))
        set Boss_Spell_X[i]=(100000.-TimerGetRemaining(GameTimer))+5
    endif
endfunction

function Boss_Ability005_func06_RHZX takes nothing returns nothing
    call Boss_Spell_deallocate(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:179"))
    if Boss_Index_RHZX==6 then
        set Boss_Index_RHZX=0
    endif
endfunction

function Boss_Ability005_func03_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    local real x
    local real y
    local real r
    local boolean b=false
    set Boss_x[0]=GetUnitX(Boss_Spell_unit2[i])
    set Boss_y[0]=GetUnitY(Boss_Spell_unit2[i])
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if GetUnitAbilityLevel(Boss_Spell_unit2[i],'Bfrz')==0 then
        set Boss_x[1]=Boss_x[0]+Boss_Spell_X[i]
        set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[i]
        if IsTerrainPathable(Boss_x[1],Boss_y[1],PATHING_TYPE_FLYABILITY)then
            set index=0
            set x=0
            set y=1
            loop
                set r=(x+y)/ 2
                set Boss_x[1]=Boss_x[0]+Boss_Spell_X[i]*r
                set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[i]*r
                set index=index+1
                exitwhen index>9
                if IsTerrainPathable(Boss_x[1],Boss_y[1],PATHING_TYPE_FLYABILITY)then
                    set y=r
                else
                    set x=r
                endif
            endloop
            set index=0
            set x=0
            set y=3.14
            loop
                set r=(x+y)/ 2
                set Boss_x[2]=Boss_Spell_X[i]*Cos(r)-Boss_Spell_Y[i]*Sin(r)
                set Boss_y[2]=Boss_Spell_Y[i]*Cos(r)+Boss_Spell_X[i]*Sin(r)
                set index=index+1
                exitwhen index>9
                if IsTerrainPathable(Boss_x[1]+Boss_x[2],Boss_y[1]+Boss_y[2],PATHING_TYPE_FLYABILITY)then
                    set x=r
                else
                    set y=r
                endif
            endloop
            set Boss_z[0]=r
            set index=0
            set x=0
            set y=3.14
            loop
                set r=(x+y)/ 2
                set Boss_x[2]=Boss_Spell_X[i]*Cos(r)+Boss_Spell_Y[i]*Sin(r)
                set Boss_y[2]=Boss_Spell_Y[i]*Cos(r)-Boss_Spell_X[i]*Sin(r)
                set index=index+1
                exitwhen index>9
                if IsTerrainPathable(Boss_x[1]+Boss_x[2],Boss_y[1]+Boss_y[2],PATHING_TYPE_FLYABILITY)then
                    set x=r
                else
                    set y=r
                endif
            endloop
            set Boss_z[1]=Boss_z[0]-r
            if Boss_z[1]>0 then
                if Boss_z[1]<2.28 then
                    set r=(Boss_z[1])+GetRandomReal(3.14159,4)
                else
                    set r=(Boss_z[1])+3.14159
                endif
            else
                if Boss_z[1]>-2.28 then
                    set r=(Boss_z[1])-GetRandomReal(3.14159,4)
                else
                    set r=(Boss_z[1])-3.14159
                endif
            endif
            set Boss_x[2]=Boss_Spell_X[i]
            set Boss_y[2]=Boss_Spell_Y[i]
            set Boss_Spell_X[i]=Boss_x[2]*Cos(r)-Boss_y[2]*Sin(r)
            set Boss_Spell_Y[i]=Boss_y[2]*Cos(r)+Boss_x[2]*Sin(r)
            set Boss_x[1]=Boss_x[1]+Boss_Spell_X[i]
            set Boss_y[1]=Boss_y[1]+Boss_Spell_Y[i]
            set Boss_z[0]=Atan2(Boss_Spell_Y[i],Boss_Spell_X[i])*bj_RADTODEG
            call RemoveUnitBJ(Boss_Spell_unit2[i],$C)
            set Boss_Spell_unit2[i]=CreateUnit(GetOwningPlayer(Boss_Unit_RHZX),'ushd',Boss_x[1],Boss_y[1],Boss_z[0])
            call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
            call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
            call SetUnitFlyHeight(Boss_Spell_unit2[i],$FA,0)
            call SetUnitTimeScale(Boss_Spell_unit2[i],2)
            call SetUnitScale(Boss_Spell_unit2[i],3,3,3)
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        else
            call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
            call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
        endif
        if ModuloInteger(Boss_Spell_data1[i],16)==0 then
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",Boss_x[1],Boss_y[1]))
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",Boss_x[1],Boss_y[1]))
        endif
        if ModuloInteger(Boss_Spell_data1[i],$A7)==0 then
            call PingMinimapEx(Boss_x[1],Boss_y[1],2.,$C8,$FF,$C8,false)
        endif
        call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],$FA,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,Boss_x[1],Boss_y[1],125)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                    call KillUnit(u)
                endif
                if b==FALSE then
                    set b=u==Boss_Unit_RHZX
                endif
            endif
        endloop
    else
        set Boss_x[1]=Boss_x[0]
        set Boss_y[1]=Boss_y[0]
        if Boss_Spell_data2[i]>0 and Boss_Spell_Z[i]<(100000.-TimerGetRemaining(GameTimer))then
            call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],$FA,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,Boss_x[1],Boss_y[1],125)then
                    if b==FALSE then
                        set b=u==Boss_Unit_RHZX
                    endif
                endif
            endloop
        endif
    endif
    if b then
        if Boss_Spell_data2[i]>0 and Boss_Spell_Z[i]<(100000.-TimerGetRemaining(GameTimer))then
            call UnitApplyTimedLife(Boss_Spell_unit2[i],0,.01)
            call KillUnit(Boss_Spell_unit2[i])
            set Boss_Index_RHZX=6
            set Boss_Ability05_cd_RHZX=$F0*32
            call UnitRemoveAbilityandBuffBY(Boss_Unit_RHZX,'A0SX',0)
            call SetUnitNocontrol((GetUnitUserData((Boss_Unit_RHZX))),false)
            call m2v(Boss_Unit_RHZX,$A,'A500','B500',true)
            call DestroyEffect(AddSpecialEffect("firegold.mdl",GetUnitX(Boss_Unit_RHZX),GetUnitY(Boss_Unit_RHZX)))
            call TimerStart(GetExpiredTimer(),$A,FALSE,function Boss_Ability005_func06_RHZX)
            return
        endif
    endif
endfunction

function Boss_Ability005_func02_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Boss_Index_RHZX==5 then
        set Boss_z[0]=GetUnitFacing(Boss_Unit_RHZX)
        set Boss_x[0]=GetUnitX(Boss_Unit_RHZX)
        set Boss_y[0]=GetUnitY(Boss_Unit_RHZX)
        set Boss_x[1]=Cos(Boss_z[0]*bj_DEGTORAD)
        set Boss_y[1]=Sin(Boss_z[0]*bj_DEGTORAD)
        set Boss_x[2]=Boss_x[0]+Boss_x[1]*$96
        set Boss_y[2]=Boss_y[0]+Boss_y[1]*$96
        set Boss_Spell_X[i]=Boss_x[1]*30
        set Boss_Spell_Y[i]=Boss_y[1]*30
        set Boss_Spell_unit2[i]=CreateUnit(GetOwningPlayer(Boss_Unit_RHZX),'ushd',Boss_x[2],Boss_y[2],Boss_z[0])
        call SetUnitFlyHeight(Boss_Spell_unit2[i],$FA,0)
        call SetUnitTimeScale(Boss_Spell_unit2[i],2)
        call SetUnitScale(Boss_Spell_unit2[i],3,3,3)
        set Boss_Index_RHZX=0
        set Boss_Ability05_cd_RHZX=$5F5E0FF
        call PauseUnit(Boss_Unit_RHZX,false)
        call SetUnitInvulnerable(Boss_Unit_RHZX,false)
        call UnitAddAbilityBY(Boss_Unit_RHZX,'A0SX')
        call TimerStart(GetExpiredTimer(),.03,true,function Boss_Ability005_func03_RHZX)
        call NewTextTagInTarget_B(Boss_Spell_unit2[i],"Fast! Let go!",18,$FF,$80,$80)
    endif
endfunction

function Boss_Ability005_func_RHZX takes nothing returns nothing
    local integer i
    set i=Boss_Spell_allocate()
    set Boss_Spell_data1[i]=0
    set Boss_Spell_data2[i]=0
    set Boss_Spell_Z[i]=(100000.-TimerGetRemaining(GameTimer))+$A
    set Boss_Spell_unit1[i]=Boss_Unit_RHZX
    call SetUnitAnimation(Boss_Unit_RHZX,"attack")
    call PauseUnit(Boss_Unit_RHZX,true)
    call SetUnitInvulnerable(Boss_Unit_RHZX,true)
    call TimerStart(NewTimer(i),.5,false,function Boss_Ability005_func02_RHZX)
    set Boss_Index_RHZX=5
endfunction

function Boss_Ability004_func04_RHZX takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((GetEnumUnit())))
    local real x
    local real y
    local unit u
    local group g
    set Boss_Spell_data1[index]=Boss_Spell_data1[index]+1
    set x=GetUnitX(GetEnumUnit())+Boss_Spell_X[index]
    set y=GetUnitY(GetEnumUnit())+Boss_Spell_Y[index]
    if IsTerrainWalkable(x,y)then
        call SetUnitX(GetEnumUnit(),x)
        call SetUnitY(GetEnumUnit(),y)
        call GroupEnumUnitsInRange(G,x,y,$C8,null)
        call GroupRemoveUnit(G,Boss_Unit_RHZX)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,125)and not IsUnitInGroup(u,Boss_Spell_group2[i])then
                if UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call GroupAddUnit(Boss_Spell_group2[i],u)
                    call GroupAddUnit(Boss_Spell_group1[index],u)
                endif
            endif
        endloop
        set g=Boss_Spell_group1[index]
        set Boss_Spell_group1[index]=Boss_Spell_group2[index]
        set Boss_Spell_group2[index]=g
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupAddUnit(Boss_Spell_group1[index],u)
            call GroupRemoveUnit(g,u)
            set Boss_x[0]=GetUnitX(u)
            set Boss_y[0]=GetUnitY(u)
            if IsUnitInRange(u,GetEnumUnit(),$C8)then
                set Boss_x[1]=x+(Boss_x[0]+Boss_Spell_X[index]-x)*.8
                set Boss_y[1]=y+(Boss_y[0]+Boss_Spell_Y[index]-y)*.8
                call SetUnitPosition(u,Boss_x[1],Boss_y[1])
            elseif IsUnitInRange(u,GetEnumUnit(),$FA)then
                set Boss_x[1]=x+(Boss_x[0]+Boss_Spell_X[index]-x)*.9
                set Boss_y[1]=y+(Boss_y[0]+Boss_Spell_Y[index]-y)*.9
                call SetUnitPosition(u,Boss_x[1],Boss_y[1])
            else
                call GroupRemoveUnit(Boss_Spell_group2[i],u)
                call GroupRemoveUnit(Boss_Spell_group1[index],u)
            endif
        endloop
        set g=null
    else
        set Boss_Spell_data1[index]=100
    endif
    if Boss_Spell_data1[index]>=20 then
        call DestroyEffect(AddSpecialEffect("firegold.mdl",x,y))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetEnumUnit(),"origin"))
        call GroupEnumUnitsInRange(G,x,y,425,null)
        call GroupRemoveUnit(G,Boss_Unit_RHZX)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                    call UnitDamageTargetBY((Boss_Unit_RHZX),(u),(($3D090)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
                    if IsUnitType(u,UNIT_TYPE_HERO)and GetPlayerId(GetOwningPlayer(u))<8 then
                        call zhv(GetPlayerId(GetOwningPlayer(u)),$96,1)
                    endif
                endif
            endif
        endloop
        call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
        call SetUnitUserData(GetEnumUnit(),0)
        call RemoveUnitBJ(GetEnumUnit(),$D)
        call DestroyEffect(Boss_Spell_eff[index])
        call DestroyGroup(Boss_Spell_group1[index])
        call DestroyGroup(Boss_Spell_group2[index])
        call Boss_Spell_deallocate(index)
    endif
endfunction

function Boss_Ability004_func03_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t
    set t=Boss_Spell_data1[0]
    set Boss_Spell_data1[0]=i
    call ForGroup(Boss_Spell_group1[i],function Boss_Ability004_func04_RHZX)
    set Boss_Spell_data1[0]=t
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if FirstOfGroup(Boss_Spell_group1[i])==null then
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:180")
    endif
endfunction

function Boss_Ability004_func02_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local integer ba
    local group g
    local unit u
    local real x
    local real y
    if UnitAlive(Boss_Spell_unit1[i])and Boss_Index_RHZX!=7 and Boss_Index_RHZX==4 and Boss_Spell_data2[i]<2 then
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        if Boss_Spell_data1[i]==0 then
            call TimerStart(GetExpiredTimer(),.03,true,function Boss_Ability004_func02_RHZX)
            call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
            call SetUnitTimeScale(Boss_Spell_unit1[i],2)
        else
            if ModuloInteger(Boss_Spell_data1[i],5)==0 then
                call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
            endif
            set Boss_Spell_X[i]=GetUnitX(Boss_Unit_RHZX)
            set Boss_Spell_Y[i]=GetUnitY(Boss_Unit_RHZX)
            if Boss_Spell_data1[i]<50 and ModuloInteger(Boss_Spell_data1[i],2)==1 then
                set x=Boss_Spell_X[i]
                set y=Boss_Spell_Y[i]
                set Boss_x[1]=GetRandomReal(0,6.28)
                set Boss_y[1]=GetRandomReal(-.25*bj_PI,.25*bj_PI)
                set Boss_z[1]=GetRandomReal(800,$44C)
                set ba=CreateBarrageTypeD(x+Boss_z[1]*Cos(Boss_x[1])*Cos(Boss_y[1]),y+Boss_z[1]*Sin(Boss_x[1])*Cos(Boss_y[1]),$96+Boss_z[1]*Sin(Boss_y[1]),x,y,$C8)
                call SetBarrageFlightRadian(ba,GetRandomReal(.25,.5))
                set s__barrage_speed[ba]=0
                set s__barrage_acceleration[ba]=.03125*.03125*$3E8
                call LMv(s__barrage_model[ba],"Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl")
                call SetUnitScale(II[(s__barrage_model[ba])],((.75)*1.),0,0)
                call dAe(ba)
            endif
            if Boss_Spell_data1[i]>=100 then
                set Boss_x[2]=Boss_Spell_X[i]
                set Boss_y[2]=Boss_Spell_Y[i]
                set Boss_Spell_data1[i]=-1
                set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
                if Boss_Spell_data2[i]==2 then
                    call NewTextTagInTarget_B(Boss_Unit_RHZX,"Again!!",18,$FF,$80,$80)
                else
                    call NewTextTagInTarget_B(Boss_Unit_RHZX,"You think I will",18,$FF,$80,$80)
                endif
                call TimerStart(GetExpiredTimer(),.5,false,function Boss_Ability004_func02_RHZX)
                call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
                call SetUnitTimeScale(Boss_Spell_unit1[i],1.5)
                set index=Boss_Spell_allocate()
                set Boss_Spell_unit1[index]=Boss_Spell_unit1[i]
                set Boss_Spell_X[index]=Boss_Spell_X[i]
                set Boss_Spell_Y[index]=Boss_Spell_Y[i]
                set Boss_Spell_group1[index]=CreateGroup()
                set Boss_Spell_group2[index]=CreateGroup()
                set Boss_x[0]=GetRandomReal(0,3.14)
                set Boss_y[0]=(bj_PI*2)/ 11.
                set Boss_z[0]=Boss_x[0]+(bj_PI*2)
                set i=index
                loop
                    set CR=FALSE
                    set index=Boss_Spell_allocate()
                    set Boss_Spell_data1[index]=0
                    set Boss_Spell_X[index]=Cos(Boss_x[0])*50
                    set Boss_Spell_Y[index]=Sin(Boss_x[0])*50
                    set x=Boss_Spell_X[i]+Boss_Spell_X[index]
                    set y=Boss_Spell_Y[i]+Boss_Spell_Y[index]
                    set Boss_Spell_group1[index]=CreateGroup()
                    set Boss_Spell_group2[index]=CreateGroup()
                    set u=CreateUnit(Player($F),'e001',x,y,Boss_x[0]*bj_RADTODEG)
                    call SetUnitX(u,x)
                    call SetUnitY(u,y)
                    call UnitAddAbility(u,'Amrf')
                    call UnitRemoveAbility(u,'Amrf')
                    call SetUnitFlyHeight(u,$96,0)
                    call SetUnitScale(u,2,2,2)
                    call SetUnitUserData(u,index)
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",u,"origin")
                    set u=null
                    set CR=true
                    set Boss_x[0]=Boss_x[0]+Boss_y[0]
                    exitwhen Boss_x[0]>=Boss_z[0]
                endloop
                call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
                call TimerStart(NewTimer(i),.03,true,function Boss_Ability004_func03_RHZX)
                set index=0
                loop
                    exitwhen index>7
                    call zhv(index,100,.5)
                    set index=index+1
                endloop
            endif
        endif
    else
        if Boss_Index_RHZX==4 then
            set Boss_Index_RHZX=0
            call PauseUnit(Boss_Spell_unit1[i],false)
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        endif
        if Boss_Ability01_bufftimed_RHZX==null then
            call SetUnitNocontrol((GetUnitUserData((Boss_Unit_RHZX))),false)
        endif
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:181")
    endif
endfunction

function Boss_Ability004_func_RHZX takes nothing returns nothing
    local integer i
    local unit u
    local real x=GetUnitX(Boss_Unit_RHZX)
    local real y=GetUnitY(Boss_Unit_RHZX)
    call GroupEnumUnitsInRange(G,x,y,$44C,null)
    call GroupRemoveUnit(G,Boss_Unit_RHZX)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$3E8)then
            if IsUnitAliveAndEnemy(u,Boss_Unit_RHZX)and GetUnitAbilityLevel(u,'Avul')==0 then
                exitwhen true
            endif
        endif
    endloop
    if u!=null then
        set u=null
        set Boss_Index_RHZX=4
        call SetUnitState(Boss_Unit_RHZX,UNIT_STATE_MANA,0)
        call zlv($FF,105,105,.27)
        call PauseUnit(Boss_Unit_RHZX,true)
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=Boss_Unit_RHZX
        set Boss_Spell_data1[i]=-1
        set Boss_Spell_data2[i]=0
        if GetRandomInt(0,1)==0 then
            set Boss_Spell_Z[i]=1
        else
            set Boss_Spell_Z[i]=-1
        endif
        call TimerStart(NewTimer(i),.0,true,function Boss_Ability004_func02_RHZX)
        call SetUnitNocontrol((GetUnitUserData((Boss_Unit_RHZX))),true)
        call NewTextTagInTarget_B(Boss_Unit_RHZX,"All over to enlarge",18,$FF,$80,$80)
        set Boss_Ability02_lv2_RHZX[5]=GetRandomInt(50,60)*32
    endif
endfunction

function Boss_Ability003_func05_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    if UnitAlive(Boss_Spell_unit1[i])then
        set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[i])
        set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[i])
    endif
    set Boss_x[0]=Boss_Spell_X[i]-GetUnitX(Boss_Spell_unit2[i])
    set Boss_y[0]=Boss_Spell_Y[i]-GetUnitY(Boss_Spell_unit2[i])
    set Boss_z[0]=SquareRoot(Boss_x[0]*Boss_x[0]+Boss_y[0]*Boss_y[0])
    if Boss_z[0]<50 then
        call SetUnitX(Boss_Spell_unit2[i],Boss_Spell_X[i])
        call SetUnitY(Boss_Spell_unit2[i],Boss_Spell_Y[i])
        if UnitAlive(Boss_Spell_unit1[i])and Boss_Index_RHZX!=7 then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",Boss_Spell_unit1[i],"origin"))
            call SetWidgetLife(Boss_Spell_unit1[i],GetWidgetLife(Boss_Spell_unit1[i])+GetUnitState(Boss_Spell_unit1[i],UNIT_STATE_MAX_LIFE)*.1)
            call SetUnitState(Boss_Spell_unit1[i],UNIT_STATE_MANA,GetUnitState(Boss_Spell_unit1[i],UNIT_STATE_MANA)+20)
            call GroupEnumUnitsInRange(G,Boss_Spell_X[i],Boss_Spell_Y[i],375,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,Boss_Spell_X[i],Boss_Spell_Y[i],300)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])then
                        call UnitDamageTargetBY((Boss_Spell_unit1[i]),(Boss_Spell_unit2[i]),((50000.)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($C)*1.),(""))
                        call Boss_buff_shaoshang2_add_RHZX(u)
                    endif
                endif
            endloop
        endif
        call DestroyEffect(Boss_Spell_eff[i])
        call KillUnit(Boss_Spell_unit2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:182")
    else
        set Boss_z[1]=50./ Boss_z[0]
        set Boss_x[1]=GetUnitX(Boss_Spell_unit2[i])+Boss_x[0]*Boss_z[1]
        set Boss_y[1]=GetUnitY(Boss_Spell_unit2[i])+Boss_y[0]*Boss_z[1]
        call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
        call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
    endif
endfunction

function Boss_Ability003_func04_RHZX takes nothing returns nothing
    local real x=Boss_x[0]
    local real y=Boss_y[0]
    local unit u
    local integer i
    if UnitAlive(Boss_Unit_RHZX)and Boss_Index_RHZX!=7 then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=Boss_Unit_RHZX
        set Boss_Spell_data1[i]=0
        set Boss_Spell_X[i]=GetUnitX(Boss_Unit_RHZX)
        set Boss_Spell_Y[i]=GetUnitY(Boss_Unit_RHZX)
        set CR=FALSE
        set u=CreateUnit(Player($F),'e001',x,y,Atan2(Boss_Spell_Y[i]-y,Boss_Spell_X[i]-x)*bj_RADTODEG)
        call SetUnitX(u,x)
        call SetUnitY(u,y)
        call UnitAddAbility(u,'Amrf')
        call UnitRemoveAbility(u,'Amrf')
        call SetUnitFlyHeight(u,$96,0)
        set Boss_Spell_unit2[i]=u
        set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",u,"origin")
        set u=null
        set CR=true
        call TimerStart(NewTimer(i),.03,true,function Boss_Ability003_func05_RHZX)
    endif
endfunction

function Boss_Ability003_func03_RHZX takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local unit u
    local real x=GetUnitX(GetEnumUnit())
    local real y=GetUnitY(GetEnumUnit())
    if UnitAlive(GetEnumUnit())then
        call GroupEnumUnitsInRange(G,x,y,$E1+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$E1)then
                if GetUnitAbilityLevel(u,'A0IP')==0 and IsUnitAliveAndEnemy(u,Boss_Unit_RHZX)then
                    call UnitDamageTargetBY(((GetEnumUnit())),((u)),(((($9C4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call Ymv(u,'A0IP','B025',.45)
                endif
            endif
        endloop
        if UnitAlive(Boss_Unit_RHZX)==FALSE or Boss_Index_RHZX==7 then
            call GroupRemoveUnit(Boss_Ability02_group_RHZX,GetEnumUnit())
            call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
            call KillUnit(GetEnumUnit())
        endif
    else
        call GroupRemoveUnit(Boss_Ability02_group_RHZX,GetEnumUnit())
        call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
    endif
endfunction

function Boss_Ability003_func02_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t
    local unit u
    local real x
    local real y
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]==0 then
        call SetUnitInvulnerable(Boss_Unit_RHZX,true)
        call TimerStart(GetExpiredTimer(),.5,true,function Boss_Ability003_func02_RHZX)
        set x=GetUnitX(Boss_Unit_RHZX)
        set y=GetUnitY(Boss_Unit_RHZX)
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Unit_RHZX)then
                    call zKv((GetPlayerId((GetOwningPlayer(u)))),$FF,105,105,.5)
                    call zhv((GetPlayerId((GetOwningPlayer(u)))),50,.5)
                    call Gjv(u,75,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),1,"KnockbackDust.mdl")
                endif
            endif
        endloop
    else
        if Boss_Spell_data1[i]<=8 then
            set Boss_z[0]=0
            loop
                set Boss_x[0]=GetRandomReal(0,6.28)
                set Boss_y[0]=GetRandomReal(300,$3E8)
                set x=GetUnitX(Boss_Unit_RHZX)+Cos(Boss_x[0])*Boss_y[0]
                set y=GetUnitY(Boss_Unit_RHZX)+Sin(Boss_x[0])*Boss_y[0]
                set u=CreateUnit(Player($B),'n02X',x,y,(Boss_x[0]*bj_RADTODEG)+$B4)
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",u,"origin"))
                call GroupAddUnit(Boss_Ability02_group_RHZX,u)
                call GroupAddUnit(Boss_Spell_group1[i],u)
                call GroupEnumUnitsInRange(G,x,y,$E1+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$E1)then
                        if IsUnitAliveAndEnemy(u,Boss_Unit_RHZX)then
                            call m2v(u,1,'A500','B500',true)
                        endif
                    endif
                endloop
                set Boss_z[0]=Boss_z[0]+1
                exitwhen Boss_z[0]>1
            endloop
            if Boss_Spell_data1[i]==8 then
                if Boss_Index_RHZX==3 then
                    set Boss_Index_RHZX=0
                    call PauseUnit(Boss_Unit_RHZX,false)
                    call SetUnitInvulnerable(Boss_Unit_RHZX,false)
                endif
            endif
        endif
        if Boss_Spell_data1[i]<$80 then
            set t=Boss_Spell_data1[0]
            set Boss_Spell_data1[0]=i
            call ForGroup(Boss_Spell_group1[i],function Boss_Ability003_func03_RHZX)
            set Boss_Spell_data1[0]=t
        else
            loop
                set u=FirstOfGroup(Boss_Spell_group1[i])
                exitwhen u==null
                call GroupRemoveUnit(Boss_Ability02_group_RHZX,u)
                call GroupRemoveUnit(Boss_Spell_group1[i],u)
                call KillUnit(u)
            endloop
            call DestroyGroup(Boss_Spell_group1[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:183")
        endif
    endif
endfunction

function Boss_Ability003_func_RHZX takes real life returns nothing
    local integer i
    set Boss_Index_RHZX=3
    call PauseUnit(Boss_Unit_RHZX,true)
    if life<1 then
        set life=1
    endif
    call SetWidgetLife(Boss_Unit_RHZX,life)
    set i=Boss_Spell_allocate()
    set Boss_Spell_unit1[i]=Boss_Unit_RHZX
    set Boss_Spell_group1[i]=CreateGroup()
    set Boss_Spell_data1[i]=-1
    if life<1 then
        set life=1
    endif
    set Boss_Spell_X[i]=life
    call SetUnitAnimation(Boss_Spell_unit1[i],"stand")
    call SetUnitInvulnerable(Boss_Unit_RHZX,true)
    call SetUnitTimeScale(Boss_Spell_unit1[i],1)
    call TimerStart(NewTimer(i),.0,false,function Boss_Ability003_func02_RHZX)
    if Boss_Ability02_group_RHZX==null then
        set Boss_Ability02_group_RHZX=CreateGroup()
    endif
endfunction

function Boss_Ability002_func02_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]<=7 then
        if Boss_Index_RHZX==2 then
            set Boss_x[0]=GetUnitX(Boss_Spell_unit1[i])
            set Boss_y[0]=GetUnitY(Boss_Spell_unit1[i])
            set Boss_z[0]=Deg2Rad(GetUnitFacing(Boss_Spell_unit1[i]))
            set Boss_x[1]=Boss_x[0]+Cos(Boss_z[0])*$96
            set Boss_y[1]=Boss_y[0]+Sin(Boss_z[0])*$96
            if Boss_Spell_data1[i]<=4 then
                if Boss_Spell_data1[i]==0 then
                    call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
                    call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
                    call TimerStart(GetExpiredTimer(),.2,true,function Boss_Ability002_func02_RHZX)
                else
                    if IsUnitInRangeXY(Boss_Spell_unit2[i],Boss_x[1],Boss_y[1],$96)then
                        call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
                        call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
                        call m2v(Boss_Spell_unit2[i],1,'A500','B500',true)
                        call UnitDamageTargetBY((Boss_Spell_unit1[i]),(Boss_Spell_unit2[i]),((10000.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($C)*1.),("|c00FF8080"))
                    endif
                    call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
                    if Boss_Spell_data1[i]==4 then
                        call SetUnitTimeScale(Boss_Spell_unit1[i],1./ 3.)
                        call TimerStart(GetExpiredTimer(),.5,true,function Boss_Ability002_func02_RHZX)
                    endif
                endif
            else
                if Boss_Spell_data1[i]==5 then
                    call DestroyEffect(AddSpecialEffectTarget("supershinythingy.mdl",Boss_Spell_unit1[i],"right hand"))
                elseif Boss_Spell_data1[i]==6 then
                    call TimerStart(GetExpiredTimer(),.1,true,function Boss_Ability002_func02_RHZX)
                    call SetUnitTimeScale(Boss_Spell_unit1[i],1)
                elseif Boss_Spell_data1[i]==7 then
                    if IsUnitInRangeXY(Boss_Spell_unit2[i],Boss_x[1],Boss_y[1],$96)then
                        call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
                        call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
                        call m2v(Boss_Spell_unit2[i],1,'A500','B500',true)
                        call UnitDamageTargetBY((Boss_Spell_unit1[i]),(Boss_Spell_unit2[i]),((50000.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((17)*1.),("|c00FF8080"))
                    endif
                    call TimerStart(GetExpiredTimer(),.02,true,function Boss_Ability002_func02_RHZX)
                    set Boss_Spell_data2[i]=0
                    set Boss_Spell_X[i]=Cos(GetUnitFacing(Boss_Spell_unit1[i])*bj_DEGTORAD)*20
                    set Boss_Spell_Y[i]=Sin(GetUnitFacing(Boss_Spell_unit1[i])*bj_DEGTORAD)*20
                    set Boss_Spell_Z[i]=1.5
                    call QueueUnitAnimation(Boss_Spell_unit1[i],"stand")
                endif
            endif
        else
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:184")
        endif
    else
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        set x=GetUnitX(Boss_Spell_unit2[i])+Boss_Spell_X[i]*Boss_Spell_Z[i]
        set y=GetUnitY(Boss_Spell_unit2[i])+Boss_Spell_Y[i]*Boss_Spell_Z[i]
        set Boss_Spell_Z[i]=Boss_Spell_Z[i]-.04
        if IsTerrainWalkable(x,y)then
            call SetUnitX(Boss_Spell_unit2[i],x)
            call SetUnitY(Boss_Spell_unit2[i],y)
        endif
        if ModuloInteger(Boss_Spell_data2[i],5)==0 then
            call UnitDamageTargetBY((Boss_Spell_unit1[i]),(Boss_Spell_unit2[i]),((500.)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($A)*1.),("|c00FF8080"))
        endif
        if Boss_Spell_data2[i]>=25 then
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:185")
        endif
    endif
endfunction

function Boss_Ability002_func_RHZX takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    if GetTriggerUnit()==Boss_Unit_RHZX and Boss_Index_RHZX<7 then
        if EvelId==274 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_unit2[i]=GetSpellTargetUnit()
            set Boss_Spell_data1[i]=-1
            call TimerStart(NewTimer(i),.0,true,function Boss_Ability002_func02_RHZX)
            call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
            call SetUnitTimeScale(Boss_Spell_unit1[i],3.5)
            call NewTextTagInTarget_B(GetTriggerUnit(),"I see you running!",18,$FF,$80,$80)
        elseif EvelId==272 then
            set Boss_Index_RHZX=2
        else
            if Boss_Index_RHZX==2 then
                set Boss_Index_RHZX=0
                call SetUnitTimeScale(GetTriggerUnit(),1)
            endif
        endif
    endif
endfunction

function Boss_Ability001_func_enumunit_RHZX takes nothing returns nothing
    local integer data=(GetUnitUserData((GetEnumUnit())))
    local unit u
    local group g=CreateGroup()
    local integer l=3
    local integer t=0
    call GroupAddGroup(G,g)
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        if IsUnitType(u,UNIT_TYPE_HERO)and UnitAlive(u)then
            if Boss_Ability01_bufflv_RHZX[(GetUnitUserData((u)))]<=l then
                if Boss_Ability01_bufflv_RHZX[(GetUnitUserData((u)))]==l then
                    set t=t+1
                    if GetRandomInt(1,t)==1 then
                        set Boss_Ability01_bufflv_RHZX[(GetUnitUserData((u)))]=Boss_Ability01_bufflv_RHZX[(GetUnitUserData((u)))]+1
                        set Boss_Spell_unit1[data]=u
                    endif
                else
                    set t=1
                    set l=Boss_Ability01_bufflv_RHZX[(GetUnitUserData((u)))]
                    set Boss_Ability01_bufflv_RHZX[(GetUnitUserData((u)))]=Boss_Ability01_bufflv_RHZX[(GetUnitUserData((u)))]+1
                    set Boss_Spell_unit1[data]=u
                endif
            endif
        else
            call GroupRemoveUnit(G,u)
        endif
    endloop
    call DestroyGroup(g)
    if Boss_Spell_unit1[data]!=null then
        set CR=FALSE
        set u=CreateUnit(Player($F),'e001',GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),0)
        set Boss_Spell_unit2[data]=u
        set CR=true
        if Boss_Ability01_bufflv_RHZX[(GetUnitUserData((Boss_Spell_unit1[data])))]==1 then
            call thv("|c00FF8080"+GetPlayerName(GetOwningPlayer(Boss_Spell_unit1[data]))+"|r|c00808080, catch!|r",GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),$FA,.075,.05,bj_PI/ 2,2,2.5)
        endif
        set Boss_Spell_data1[data]=(GetUnitUserData((Boss_Spell_unit1[data])))
    else
        set Boss_x[0]=GetRandomReal(0,6.28)
        set Boss_y[0]=GetRandomReal(300,$BB8)
        set Boss_x[1]=GetUnitX(Boss_Unit_RHZX)+Cos(Boss_x[0])*Boss_y[0]
        set Boss_y[1]=GetUnitY(Boss_Unit_RHZX)+Sin(Boss_x[0])*Boss_y[0]
        set CR=FALSE
        set u=CreateUnit(Player($F),'e001',Boss_x[1],Boss_y[1],0)
        set Boss_Spell_unit2[data]=u
        set CR=true
    endif
    set u=null
    set g=null
endfunction

function Boss_Ability001_func002_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data
    local unit u
    local group g
    local boolean b=true
    if Boss_Spell_data2[i]<$A then
        if Boss_Index_RHZX<6 then
            set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
            if Boss_Spell_data1[i]>=$80 then
                if Boss_Spell_data2[i]>0 then
                    set g=Boss_Spell_group1[i]
                    set Boss_Spell_group1[i]=Boss_Spell_group2[i]
                    set Boss_Spell_group2[i]=g
                    loop
                        set u=FirstOfGroup(g)
                        exitwhen u==null
                        call GroupRemoveUnit(g,u)
                        set data=(GetUnitUserData((u)))
                        if Boss_Spell_data2[data]==Boss_Spell_data2[i]then
                            call DestroyEffect(Boss_Spell_eff[data])
                            call Boss_Spell_deallocate(data)
                            call RemoveUnitBJ(u,$E)
                        else
                            call GroupAddUnit(Boss_Spell_group1[i],u)
                        endif
                    endloop
                    set g=null
                    set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
                    set Boss_Spell_data1[i]=0
                    call thv("|c00FF8080"+I2S(Boss_Spell_data2[i])+"0%",GetUnitX(Boss_Unit_RHZX),GetUnitY(Boss_Unit_RHZX),$FA,.075,.05,bj_PI/ 2,2,2.5)
                else
                    set b=false
                endif
            endif
            if b then
                set Boss_Spell_Z[i]=Boss_Spell_Z[i]+.08726
                set Boss_x[0]=GetUnitX(Boss_Unit_RHZX)
                set Boss_y[0]=GetUnitY(Boss_Unit_RHZX)
                set Boss_x[1]=Cos(Boss_Spell_Z[i])
                set Boss_y[1]=Sin(Boss_Spell_Z[i])
                set g=Boss_Spell_group1[i]
                set Boss_Spell_group1[i]=Boss_Spell_group2[i]
                set Boss_Spell_group2[i]=g
                loop
                    set u=FirstOfGroup(g)
                    exitwhen u==null
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call GroupRemoveUnit(g,u)
                    set data=(GetUnitUserData((u)))
                    if Boss_Spell_Z[data]<$FA then
                        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+25
                    endif
                    set Boss_x[2]=Boss_x[0]+(Boss_Spell_X[data]*Boss_x[1]+Boss_Spell_Y[data]*Boss_y[1])*Boss_Spell_Z[data]
                    set Boss_y[2]=Boss_y[0]+(Boss_Spell_Y[data]*Boss_x[1]-Boss_Spell_X[data]*Boss_y[1])*Boss_Spell_Z[data]
                    call SetUnitFacing(u,Atan2(Boss_y[2]-GetUnitY(u),Boss_x[2]-GetUnitX(u))*bj_RADTODEG)
                    call SetUnitX(u,Boss_x[2])
                    call SetUnitY(u,Boss_y[2])
                endloop
                set g=null
            else
                call DestroyGroup(Boss_Spell_group1[i])
                call DestroyGroup(Boss_Spell_group2[i])
                call Boss_Spell_deallocate(i)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:186")
                set Boss_Ability01_id_RHZX=null
            endif
        else
            set g=Boss_Spell_group1[i]
            loop
                set u=FirstOfGroup(g)
                exitwhen u==null
                call GroupRemoveUnit(g,u)
                set data=(GetUnitUserData((u)))
                call DestroyEffect(Boss_Spell_eff[data])
                call Boss_Spell_deallocate(data)
                call RemoveUnitBJ(u,$F)
            endloop
            set g=null
            call DestroyGroup(Boss_Spell_group1[i])
            call DestroyGroup(Boss_Spell_group2[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:187")
            set Boss_Ability01_id_RHZX=null
        endif
    else
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        if Boss_Spell_data1[i]==320 then
            set Boss_Ability01_bufftimed_RHZX=null
            call SetUnitNocontrol((GetUnitUserData((Boss_Unit_RHZX))),false)
        endif
        if Boss_Spell_data1[i]<=32 then
            if Boss_Index_RHZX<6 then
                set Boss_Spell_Z[i]=Boss_Spell_Z[i]+.18726
                set Boss_x[0]=GetUnitX(Boss_Unit_RHZX)
                set Boss_y[0]=GetUnitY(Boss_Unit_RHZX)
                set Boss_x[1]=Cos(Boss_Spell_Z[i])
                set Boss_y[1]=Sin(Boss_Spell_Z[i])
                set g=Boss_Spell_group1[i]
                set Boss_Spell_group1[i]=Boss_Spell_group2[i]
                set Boss_Spell_group2[i]=g
                loop
                    set u=FirstOfGroup(g)
                    exitwhen u==null
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call GroupRemoveUnit(g,u)
                    set data=(GetUnitUserData((u)))
                    if Boss_Spell_Z[data]<$FA then
                        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+25
                    endif
                    set Boss_x[2]=Boss_x[0]+(Boss_Spell_X[data]*Boss_x[1]+Boss_Spell_Y[data]*Boss_y[1])*Boss_Spell_Z[data]
                    set Boss_y[2]=Boss_y[0]+(Boss_Spell_Y[data]*Boss_x[1]-Boss_Spell_X[data]*Boss_y[1])*Boss_Spell_Z[data]
                    set Boss_x[3]=Boss_x[2]-GetUnitX(u)
                    set Boss_y[3]=Boss_y[2]-GetUnitY(u)
                    if Boss_Spell_data1[i]==32 then
                        set Boss_z[3]=40/ SquareRoot(Boss_x[3]*Boss_x[3]+Boss_y[3]*Boss_y[3])
                        set Boss_Spell_X[data]=Boss_x[3]*Boss_z[3]
                        set Boss_Spell_Y[data]=Boss_y[3]*Boss_z[3]
                        set Boss_Spell_Z[data]=Sin(.3)*40
                    endif
                    call SetUnitFacing(u,Atan2(Boss_y[3],Boss_x[3])*bj_RADTODEG)
                    call SetUnitX(u,Boss_x[2])
                    call SetUnitY(u,Boss_y[2])
                endloop
                set g=null
                if Boss_Spell_data1[i]==32 then
                    if Boss_Index_RHZX==1 then
                        set Boss_Index_RHZX=0
                        call PauseUnit(Boss_Unit_RHZX,false)
                        call QueueUnitAnimation(Boss_Unit_RHZX,"stand")
                        call GroupEnumUnitsInRange(G,GetUnitX(Boss_Unit_RHZX),GetUnitY(Boss_Unit_RHZX),$7D0+75,null)
                        call ForGroup(Boss_Spell_group1[i],function Boss_Ability001_func_enumunit_RHZX)
                        set Boss_Ability01_id_RHZX=null
                    else
                        set g=Boss_Spell_group1[i]
                        loop
                            set u=FirstOfGroup(g)
                            exitwhen u==null
                            call GroupRemoveUnit(g,u)
                            set data=(GetUnitUserData((u)))
                            call DestroyEffect(Boss_Spell_eff[data])
                            call Boss_Spell_deallocate(data)
                            call RemoveUnitBJ(u,16)
                        endloop
                        set g=null
                        call DestroyGroup(Boss_Spell_group1[i])
                        call DestroyGroup(Boss_Spell_group2[i])
                        call Boss_Spell_deallocate(i)
                        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:188")
                        set Boss_Ability01_id_RHZX=null
                        set Boss_Ability01_bufftimed_RHZX=null
                    endif
                endif
            else
                call PauseUnit(Boss_Unit_RHZX,false)
                call QueueUnitAnimation(Boss_Unit_RHZX,"stand")
                set g=Boss_Spell_group1[i]
                loop
                    set u=FirstOfGroup(g)
                    exitwhen u==null
                    call GroupRemoveUnit(g,u)
                    set data=(GetUnitUserData((u)))
                    call DestroyEffect(Boss_Spell_eff[data])
                    call Boss_Spell_deallocate(data)
                    call RemoveUnitBJ(u,17)
                endloop
                set g=null
                call DestroyGroup(Boss_Spell_group1[i])
                call DestroyGroup(Boss_Spell_group2[i])
                call Boss_Spell_deallocate(i)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:189")
                set Boss_Ability01_id_RHZX=null
                set Boss_Ability01_bufftimed_RHZX=null
            endif
        else
            set g=Boss_Spell_group1[i]
            set Boss_Spell_group1[i]=Boss_Spell_group2[i]
            set Boss_Spell_group2[i]=g
            loop
                set u=FirstOfGroup(g)
                exitwhen u==null
                call GroupAddUnit(Boss_Spell_group1[i],u)
                call GroupRemoveUnit(g,u)
                set data=(GetUnitUserData((u)))
                set Boss_x[0]=GetUnitX(u)
                set Boss_y[0]=GetUnitY(u)
                call MoveLocation(Boss_Point,Boss_x[0],Boss_y[0])
                set Boss_z[0]=GetLocationZ(Boss_Point)+GetUnitFlyHeight(u)
                set Boss_x[1]=Boss_x[0]+Boss_Spell_X[data]
                set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[data]
                set Boss_z[1]=Boss_z[0]+Boss_Spell_Z[data]
                call SetUnitX(u,Boss_x[1])
                call SetUnitY(u,Boss_y[1])
                call MoveLocation(Boss_Point,Boss_x[1],Boss_y[1])
                call SetUnitFlyHeight(u,Boss_z[1]-GetLocationZ(Boss_Point),0)
                set Boss_x[2]=GetUnitX(Boss_Spell_unit2[data])
                set Boss_y[2]=GetUnitY(Boss_Spell_unit2[data])
                call MoveLocation(Boss_Point,Boss_x[2],Boss_y[2])
                set Boss_x[2]=Boss_x[2]-Boss_x[1]
                set Boss_y[2]=Boss_y[2]-Boss_y[1]
                set Boss_z[2]=GetLocationZ(Boss_Point)-Boss_z[1]
                set Boss_x[3]=SquareRoot(Boss_x[2]*Boss_x[2]+Boss_y[2]*Boss_y[2]+Boss_z[2]*Boss_z[2])
                if Boss_x[3]>40. then
                    set Boss_y[3]=Pow(40./ Boss_x[3],1.5)
                    set Boss_x[2]=(Boss_x[1]+Boss_x[2]*Boss_y[3])-Boss_x[0]
                    set Boss_y[2]=(Boss_y[1]+Boss_y[2]*Boss_y[3])-Boss_y[0]
                    set Boss_z[2]=(Boss_z[1]+Boss_z[2]*Boss_y[3])-Boss_z[0]
                    set Boss_z[3]=40./ SquareRoot(Boss_x[2]*Boss_x[2]+Boss_y[2]*Boss_y[2]+Boss_z[2]*Boss_z[2])
                    set Boss_Spell_X[data]=Boss_x[2]*Boss_z[3]
                    set Boss_Spell_Y[data]=Boss_y[2]*Boss_z[3]
                    set Boss_Spell_Z[data]=Boss_z[2]*Boss_z[3]
                    call SetUnitFacing(u,Atan2(Boss_y[2],Boss_x[2])*bj_RADTODEG)
                else
                    call GroupRemoveUnit(Boss_Spell_group1[i],u)
                    call KillUnit(u)
                    call RemoveUnitBJ(Boss_Spell_unit2[data],18)
                    call DestroyEffect(Boss_Spell_eff[data])
                    set Boss_Ability01_bufflv_RHZX[Boss_Spell_data1[data]]=Boss_Ability01_bufflv_RHZX[Boss_Spell_data1[data]]-1
                    call Boss_Spell_deallocate(data)
                    call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",Boss_x[1],Boss_y[1]))
                    call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],325,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,Boss_x[1],Boss_y[1],$FA)and GetUnitAbilityLevel(u,'Avul')==0 then
                            if IsUnitAliveAndEnemy(u,Boss_Unit_RHZX)then
                                call UnitDamageTargetBY((Boss_Unit_RHZX),(u),((100000.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($F)*1.),("|c00FF8080"))
                                if UnitAlive(u)then
                                    call Boss_buff_shaoshang_add_RHZX(u,Boss_Unit_RHZX,0)
                                endif
                            endif
                        endif
                    endloop
                endif
            endloop
            if FirstOfGroup(Boss_Spell_group1[i])==null and Boss_Spell_data1[i]>=320 then
                call DestroyGroup(Boss_Spell_group1[i])
                call DestroyGroup(Boss_Spell_group2[i])
                call Boss_Spell_deallocate(i)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:190")
            endif
            set g=null
        endif
    endif
endfunction

function Boss_Ability001_func_RHZX takes real t returns nothing
    local integer i
    local integer data
    local unit u
    local real x
    local real y
    local real z
    if Boss_Ability01_id_RHZX==null then
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=0
        set Boss_Spell_X[i]=t
        set Boss_Spell_group1[i]=CreateGroup()
        set Boss_Spell_group2[i]=CreateGroup()
        set Boss_Ability01_id_RHZX=NewTimer(i)
        call TimerStart(Boss_Ability01_id_RHZX,.03125,true,function Boss_Ability001_func002_RHZX)
        call thv("|c00FF80800%",GetUnitX(Boss_Unit_RHZX),GetUnitY(Boss_Unit_RHZX),$FA,.075,.05,bj_PI/ 2,2,2.5)
    else
        set i=(alloc__hpv(GetHandleId((Boss_Ability01_id_RHZX))))
        set Boss_Spell_data1[i]=0
        set Boss_Spell_X[i]=Boss_Spell_X[i]+t
        if Boss_Spell_X[i]>32 then
            set Boss_Spell_X[i]=Boss_Spell_X[i]-32
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
            call thv("|c00FF8080"+I2S(Boss_Spell_data2[i])+"0%",GetUnitX(Boss_Unit_RHZX),GetUnitY(Boss_Unit_RHZX),$FA,.075,.05,bj_PI/ 2,2,2.5)
            if Boss_Spell_data2[i]<$A then
                set x=GetUnitX(Boss_Unit_RHZX)
                set y=GetUnitY(Boss_Unit_RHZX)
                set z=Boss_Spell_data2[i]*.69813
                set CR=FALSE
                set data=Boss_Spell_allocate()
                set Boss_Spell_unit1[data]=null
                set Boss_Spell_data1[data]=0
                set Boss_Spell_data2[data]=Boss_Spell_data2[i]
                set Boss_Spell_X[data]=Cos(z)
                set Boss_Spell_Y[data]=Sin(z)
                set Boss_Spell_Z[data]=0
                set u=CreateUnit(Player($F),'e001',x,y,z/ bj_DEGTORAD)
                call SetUnitX(u,x)
                call SetUnitY(u,y)
                call SetUnitScale(u,1.5,0,0)
                call UnitAddAbility(u,'Amrf')
                call UnitRemoveAbility(u,'Amrf')
                call SetUnitFlyHeight(u,$C8,0)
                set Boss_Spell_eff[data]=AddSpecialEffectTarget("s_lavabomb.mdl",u,"origin")
                call SetUnitUserData(u,data)
                call GroupAddUnit(Boss_Spell_group1[i],u)
                set u=null
                set CR=true
            else
                call SetUnitNocontrol((GetUnitUserData((Boss_Unit_RHZX))),true)
                call NewTextTagInTarget_B(Boss_Unit_RHZX,"You are so annoying!",18,$FF,0,0)
                set Boss_Ability01_bufftimed_RHZX=Boss_Ability01_id_RHZX
                call SetUnitAnimation(Boss_Unit_RHZX,"attack")
                call SetUnitTimeScale(Boss_Unit_RHZX,1)
                call PauseUnit(Boss_Unit_RHZX,true)
                set Boss_Index_RHZX=1
            endif
        endif
    endif
endfunction

function Boss_Revive_004_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]==1 then
        call ShowUnit(Boss_Unit_RHZX,true)
        call SetWidgetLife(Boss_Unit_RHZX,$2710*$2710)
        call SetUnitAnimation(Boss_Unit_RHZX,"birth")
        call NewTextTagInTarget_B(Boss_Unit_RHZX,"You can not stop me! Regret for your actions to pay a painful price!",18,$FF,$80,$80)
        call DestroyEffect(Boss_Spell_eff[i])
        call RemoveUnitBJ(Boss_Spell_unit1[i],19)
        call TimerStart(GetExpiredTimer(),.3,true,function Boss_Revive_004_RHZX)
    else
        set x=GetUnitX(Boss_Unit_RHZX)
        set y=GetUnitY(Boss_Unit_RHZX)
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Unit_RHZX)then
                    call zhv((GetPlayerId((GetOwningPlayer(u)))),50,.5)
                    call Gjv(u,75,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),1,"KnockbackDust.mdl")
                endif
            endif
        endloop
        if Boss_Spell_data1[i]>=4 then
            call SetUnitInvulnerable(Boss_Unit_RHZX,false)
            call PauseUnit(Boss_Unit_RHZX,false)
            call SetUnitState(Boss_Unit_RHZX,UNIT_STATE_MANA,0)
            set Boss_Index_RHZX=0
            set Boss_Ability05_cd_RHZX=0
            set Boss_Ability02_lv_RHZX=0
            call SetUnitTimeScale(Boss_Unit_RHZX,1)
            call RemoveUnitBJ(Boss_Unit_2_RHZX,20)
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:191")
        endif
    endif
endfunction

function Boss_Revive_003_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=$5EBA
    local real y=-$2DB4
    if UnitAlive(Boss_Unit_2_RHZX)then
        if IsUnitInRangeXY(Boss_Unit_2_RHZX,x,y,100)then
            call SetUnitX(Boss_Unit_RHZX,x)
            call SetUnitY(Boss_Unit_RHZX,y)
            call TimerStart(GetExpiredTimer(),1,true,function Boss_Revive_004_RHZX)
            call ShowUnit(Boss_Unit_2_RHZX,false)
            set Boss_Spell_data1[i]=0
            set CR=FALSE
            set Boss_Spell_unit1[i]=CreateUnit(Player($F),'e001',x,y,0)
            call SetUnitX(Boss_Spell_unit1[i],x)
            call SetUnitY(Boss_Spell_unit1[i],y)
            call SetUnitScale(Boss_Spell_unit1[i],6,0,0)
            set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",Boss_Spell_unit1[i],"origin")
            set CR=true
        else
            call IssuePointOrderById(Boss_Unit_2_RHZX,$D0012,$5E42,-9800)
        endif
    else
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:192")
    endif
endfunction

function Boss_Revive_002_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX(Boss_Spell_unit1[i])
    local real y=GetUnitY(Boss_Spell_unit1[i])
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        call TimerStart(GetExpiredTimer(),.3,true,function Boss_Revive_002_RHZX)
    else
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    endif
    set Boss_x[0]=0
    set Boss_y[0]=(6-Boss_Spell_data1[i])*100
    set Boss_z[0]=Boss_Spell_data1[i]*.08
    loop
        set Boss_x[1]=x+Cos(Boss_z[0]+Boss_x[0]*1.0472)*Boss_y[0]
        set Boss_y[1]=y+Sin(Boss_z[0]+Boss_x[0]*1.0472)*Boss_y[0]
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Demon\\DemonLargeDeathExplode\\DemonLargeDeathExplode.mdl",Boss_x[1],Boss_y[1]))
        set Boss_x[0]=Boss_x[0]+1
        exitwhen Boss_x[0]>6
    endloop
    if Boss_Spell_data1[i]==6 then
        call RemoveUnitBJ(Boss_Spell_unit1[i],21)
        set Boss_Unit_2_RHZX=CreateUnit(Player($B),'nzom',x,y,270)
        call IssuePointOrderById(Boss_Unit_2_RHZX,$D0012,$5EBA,-$2DB4)
        call TimerStart(GetExpiredTimer(),.1,true,function Boss_Revive_003_RHZX)
    endif
endfunction

function Boss_Revive_RHZX takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    local unit u
    local real x=GetUnitX(Boss_Unit_RHZX)
    local real y=GetUnitY(Boss_Unit_RHZX)
    call SetWidgetLife(Boss_Unit_RHZX,$5F5E100)
    call SetUnitInvulnerable(Boss_Unit_RHZX,true)
    call PauseUnit(Boss_Unit_RHZX,true)
    call ShowUnit(Boss_Unit_RHZX,false)
    set Boss_Index_RHZX=7
    set CR=FALSE
    set u=CreateUnit(Player($B),GetUnitTypeId(Boss_Unit_RHZX),x,y,GetUnitFacing(Boss_Unit_RHZX))
    call SetUnitX(u,x)
    call SetUnitY(u,y)
    call SetUnitScale(u,6,6,6)
    call UnitAddAbility(u,'Aloc')
    call PauseUnit(u,true)
    call SetUnitAnimation(u,"death")
    call SetUnitAnimation(Boss_Unit_RHZX,"death")
    set Boss_Spell_unit1[i]=u
    set u=null
    set CR=true
    set Boss_Spell_data1[i]=0
    call TimerStart(NewTimer(i),1.5,FALSE,function Boss_Revive_002_RHZX)
    call NewTextTagInTarget_B(Boss_Unit_RHZX,"I can not die yet!",18,$FF,$80,$80)
endfunction

function Boss_Damager_RHZX takes nothing returns nothing
    local real life=GetWidgetLife(Boss_Unit_RHZX)
    local real r
    local real v=0
    if Boss_Index_RHZX<7 then
        if Boss_Index_RHZX==3 or GetUnitAbilityLevel(Boss_Unit_RHZX,'A0SX')>0 then
            call DamageMinus(GetDamage())
        endif
        if Boss_Index_RHZX!=3 and Boss_Index_RHZX!=6 and Boss_Ability01_bufftimed_RHZX==null and((Control_use[(GetUnitUserData(((Boss_Unit_RHZX))))])or GetUnitAbilityLevel(Boss_Unit_RHZX,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_RHZX,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_RHZX,'B06P')>0)then
            call Boss_Ability001_func_RHZX(1.5)
        endif
        if Boss_Ability02_lv_RHZX<3 and Boss_Index_RHZX!=1 and Boss_Index_RHZX!=3 and Boss_Index_RHZX!=5 and Boss_Index_RHZX!=6 then
            set r=life-GetDamage()
            if r<=Boss_Ability02_lv2_RHZX[Boss_Ability02_lv_RHZX]then
                set Boss_Ability02_lv_RHZX=Boss_Ability02_lv_RHZX+1
                call Boss_Ability003_func_RHZX(r)
            endif
        endif
        if Boss_Index_RHZX!=3 then
            set r=GetWidgetLife(Boss_Unit_RHZX)-GetDamage()
            if r<1 or PF>=GetUnitState(Boss_Unit_RHZX,UNIT_STATE_MAX_LIFE)+$1E8480 then
                call Boss_Revive_RHZX()
            endif
        endif
    endif
endfunction

function Boss_Atk_RHZX takes nothing returns nothing
    local real life=GetWidgetLife(Boss_Unit_RHZX)
    local real maxlife=GetUnitState(Boss_Unit_RHZX,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    if Boss_Index_RHZX==0 and v<=.85 then
        call IssueTargetOrderById(Boss_Unit_RHZX,$D022F,(MF))
    endif
endfunction

function Boss_Start_RHZX takes nothing returns nothing
    local real life=GetWidgetLife(Boss_Unit_RHZX)
    local real maxlife=GetUnitState(Boss_Unit_RHZX,UNIT_STATE_MAX_LIFE)
    local real v
    if Boss_Index_RHZX!=7 then
        if Boss_Index_RHZX==8 then
            call PauseTimer(GetExpiredTimer())
            call DestroyTimer(GetExpiredTimer())
            return
        endif
        if Boss_Ability05_cd_RHZX>0 then
            set Boss_Ability05_cd_RHZX=Boss_Ability05_cd_RHZX-1
        endif
        if Boss_Ability02_lv2_RHZX[5]>0 then
            set Boss_Ability02_lv2_RHZX[5]=Boss_Ability02_lv2_RHZX[5]-1
        endif
        if life>0 and maxlife>0 then
            set v=life/ maxlife
            if Boss_Ability01_bufftimed_RHZX==null then
                if Boss_Index_RHZX!=3 and Boss_Index_RHZX!=6 and((Control_use[(GetUnitUserData(((Boss_Unit_RHZX))))])or GetUnitAbilityLevel(Boss_Unit_RHZX,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_RHZX,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_RHZX,'B06P')>0)then
                    call Boss_Ability001_func_RHZX(1)
                endif
            endif
            if Boss_Index_RHZX==0 and GetUnitCurrentOrder(Boss_Unit_RHZX)!=$D0005 then
                if Boss_Ability05_cd_RHZX==0 then
                    call Boss_Ability005_func_RHZX()
                else
                    if Boss_Ability02_lv2_RHZX[5]<=0 then
                        call Boss_Ability004_func_RHZX()
                    endif
                endif
            endif
            if Boss_Ability02_lv_RHZX>0 then
                if life>Boss_Ability02_lv2_RHZX[Boss_Ability02_lv_RHZX-1]+$2DC6C0 then
                    set Boss_Ability02_lv_RHZX=Boss_Ability02_lv_RHZX-1
                endif
            endif
        endif
    endif
endfunction

function Boss_Create_005_RHZX takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((GetEnumUnit())))
    local real x
    local real y
    local unit u
    local group g
    set Boss_Spell_data1[index]=Boss_Spell_data1[index]-1
    set x=GetUnitX(GetEnumUnit())+Boss_Spell_X[index]
    set y=GetUnitY(GetEnumUnit())+Boss_Spell_Y[index]
    if IsTerrainWalkable(x,y)then
        call SetUnitX(GetEnumUnit(),x)
        call SetUnitY(GetEnumUnit(),y)
        call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\SteamTank\\SteamTankImpact.mdl",x,y))
        call GroupEnumUnitsInRange(G,x,y,$FA,null)
        call GroupRemoveUnit(G,Boss_Unit_RHZX)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$AF)and not IsUnitInGroup(u,Boss_Spell_group2[i])then
                if UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call GroupAddUnit(Boss_Spell_group2[i],u)
                    call GroupAddUnit(Boss_Spell_group1[index],u)
                endif
            endif
        endloop
        set g=Boss_Spell_group1[index]
        set Boss_Spell_group1[index]=Boss_Spell_group2[index]
        set Boss_Spell_group2[index]=g
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupAddUnit(Boss_Spell_group1[index],u)
            call GroupRemoveUnit(g,u)
            set Boss_x[0]=GetUnitX(u)
            set Boss_y[0]=GetUnitY(u)
            if IsUnitInRange(u,GetEnumUnit(),$FA)then
                set Boss_x[1]=x+(Boss_x[0]+Boss_Spell_X[index]-x)*.8
                set Boss_y[1]=y+(Boss_y[0]+Boss_Spell_Y[index]-y)*.8
                call SetUnitPosition(u,Boss_x[1],Boss_y[1])
            elseif IsUnitInRange(u,GetEnumUnit(),300)then
                set Boss_x[1]=x+(Boss_x[0]+Boss_Spell_X[index]-x)*.9
                set Boss_y[1]=y+(Boss_y[0]+Boss_Spell_Y[index]-y)*.9
                call SetUnitPosition(u,Boss_x[1],Boss_y[1])
            else
                call GroupRemoveUnit(Boss_Spell_group2[i],u)
                call GroupRemoveUnit(Boss_Spell_group1[index],u)
            endif
        endloop
        set g=null
    else
        set Boss_Spell_data1[index]=-100
    endif
    if Boss_Spell_data1[index]<=-20 then
        call DestroyEffect(AddSpecialEffect("magmaburst.mal",x,y))
        call GroupEnumUnitsInRange(G,x,y,425,null)
        call GroupRemoveUnit(G,Boss_Unit_RHZX)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call UnitDamageTargetBY((Boss_Unit_RHZX),(u),(($F4240)*1.),false,(false),false,false,(ConvertAttackType(5)),(ConvertDamageType(26)),((0)*1.),(""))
                    if IsUnitType(u,UNIT_TYPE_HERO)and GetPlayerId(GetOwningPlayer(u))<8 then
                        call zhv(GetPlayerId(GetOwningPlayer(u)),$96,1)
                    endif
                endif
            endif
        endloop
        call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
        call SetUnitUserData(GetEnumUnit(),0)
        call RemoveUnitBJ(GetEnumUnit(),22)
        call DestroyEffect(Boss_Spell_eff[index])
        call DestroyGroup(Boss_Spell_group1[index])
        call DestroyGroup(Boss_Spell_group2[index])
        call Boss_Spell_deallocate(index)
    endif
endfunction

function Boss_Create_004_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        call TimerStart(GetExpiredTimer(),.03,true,function Boss_Create_004_RHZX)
        set i=0
        loop
            call zhv(i,$96,1)
            set i=i+1
            exitwhen i>7
        endloop
    else
        set t=Boss_Spell_data1[0]
        set Boss_Spell_data1[0]=i
        call ForGroup(Boss_Spell_group1[i],function Boss_Create_005_RHZX)
        set Boss_Spell_data1[0]=t
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        if Boss_Spell_data1[i]==5 then
            call PauseUnit(Boss_Unit_RHZX,false)
            call SetUnitInvulnerable(Boss_Unit_RHZX,false)
            call SetUnitAnimation(Boss_Unit_RHZX,"stand")
            call SetUnitTimeScale(Boss_Unit_RHZX,1)
            call SetUnitState(Boss_Unit_RHZX,UNIT_STATE_MANA,0)
            set Boss_Ability02_lv2_RHZX[5]=100*32
            call TimerStart(CreateTimer(),.03125,true,function Boss_Start_RHZX)
        endif
        if FirstOfGroup(Boss_Spell_group1[i])==null and Boss_Spell_data1[i]>=5 then
            call DestroyGroup(Boss_Spell_group1[i])
            call DestroyGroup(Boss_Spell_group2[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:193")
        endif
    endif
endfunction

function Boss_Create_003_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=$5EBA
    local real y=-$2DB4
    local unit u
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    call SetUnitScale(Boss_Unit_RHZX,3+Boss_Spell_data1[i]*.06,0,0)
    call GroupEnumUnitsInRange(G,x,y,450,null)
    call GroupRemoveUnit(G,Boss_Unit_RHZX)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
                call UnitDamageTargetBY((Boss_Unit_RHZX),(u),((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.05)*1.),false,(false),false,false,(ConvertAttackType(5)),(ConvertDamageType(26)),((0)*1.),(""))
            endif
        endif
    endloop
    if Boss_Spell_data1[i]==50 then
        set Boss_Spell_data1[i]=0
        call NewTextTagInTarget_B(Boss_Unit_RHZX,"After the baptism of lava, my strength made me stronger, but you can only descend under my power!!",18,$FF,$80,$80)
        call DestroyEffect(Boss_Spell_eff[i])
        call RemoveUnitBJ(Boss_Spell_unit1[i],23)
        call SetUnitAnimation(Boss_Unit_RHZX,"attack")
        call TimerStart(GetExpiredTimer(),.7,true,function Boss_Create_004_RHZX)
        set Boss_Spell_eff[i]=null
    endif
endfunction

function Boss_Create_002_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    call thv("|c00cb1d1d"+I2S($A*Boss_Spell_data1[i])+"%..",$5EBA,-$2DB4,50,.06,.04,bj_PI/ 2,1,1.5)
    if Boss_Spell_data1[i]==1 then
        set Boss_Unit_RHZX=CreateUnit(Player($B),'nfgl',$5EBA,-$2DB4,270)
        call SetUnitX(Boss_Unit_RHZX,$5EBA)
        call SetUnitY(Boss_Unit_RHZX,-$2DB4)
        call PauseUnit(Boss_Unit_RHZX,true)
        call SetUnitInvulnerable(Boss_Unit_RHZX,true)
        call SetUnitAnimation(Boss_Unit_RHZX,"birth")
        call ShowUnit(Boss_Unit_RHZX,false)
    elseif Boss_Spell_data1[i]==2 then
        call SetUnitTimeScale(Boss_Unit_RHZX,-1)
    elseif Boss_Spell_data1[i]==5 then
        call ShowUnit(Boss_Unit_RHZX,true)
        call UnitAddPAttackTrigB((GetUnitUserData((Boss_Unit_RHZX))),function Boss_Atk_RHZX)
        set Boss_Damage_RHZX=UnitAddBeDamagerTrigB((GetUnitUserData((Boss_Unit_RHZX))),function Boss_Damager_RHZX)
        call UnitAddAbilityBY(Boss_Unit_RHZX,'A0SV')
    elseif Boss_Spell_data1[i]==$A then
        set Boss_Spell_data1[i]=0
        call SetUnitTimeScale(Boss_Unit_RHZX,1)
        call TimerStart(GetExpiredTimer(),.05,true,function Boss_Create_003_RHZX)
    endif
endfunction

function Boss_Create_001_RHZX takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local group g
    local real x
    local real y
    local real z
    local unit u
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]>=30 then
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        if Boss_Spell_data2[i]<=8 then
            set z=((Boss_Spell_data2[i]-1)*45.)*bj_DEGTORAD
            set x=$5EBA+Cos(z)*400
            set y=-$2DB4+Sin(z)*400
            set CR=FALSE
            set index=Boss_Spell_allocate()
            set Boss_Spell_data1[index]=0
            set Boss_Spell_X[index]=Cos(z)*50
            set Boss_Spell_Y[index]=Sin(z)*50
            set Boss_Spell_group1[index]=CreateGroup()
            set Boss_Spell_group2[index]=CreateGroup()
            set u=CreateUnit(Player($F),'e001',x,y,z/ bj_DEGTORAD+$B4)
            call SetUnitX(u,x)
            call SetUnitY(u,y)
            call SetUnitScale(u,0,0,0)
            call SetUnitVertexColor(u,$FF,$FF,$FF,0)
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("Doodads\\Ashenvale\\Props\\Obelisk\\Obelisk2.mdl",u,"origin")
            call SetUnitUserData(u,index)
            call GroupAddUnit(Boss_Spell_group1[i],u)
            set u=null
            set CR=true
            call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,1))
        endif
    endif
    set z=0
    set g=Boss_Spell_group1[i]
    set Boss_Spell_group1[i]=Boss_Spell_group2[i]
    set Boss_Spell_group2[i]=g
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupAddUnit(Boss_Spell_group1[i],u)
        call GroupRemoveUnit(g,u)
        set index=(GetUnitUserData((u)))
        if Boss_Spell_data1[index]<20 then
            set Boss_Spell_data1[index]=Boss_Spell_data1[index]+1
            if(Boss_Spell_data1[index]>=$A and Boss_Spell_data1[index]<=$F)then
                call SetUnitScale(u,.5+.2*(Boss_Spell_data1[index]-$A),0,0)
            endif
            call SetUnitVertexColor(u,$FF,$FF,$FF,R2I(Boss_Spell_data1[index]*12.8))
            if Boss_Spell_data1[index]==20 then
                set z=z+1
            endif
        else
            set z=z+1
        endif
    endloop
    set g=null
    if Boss_Spell_data2[i]>8 and z>=8 then
        set CR=FALSE
        set Boss_Spell_unit1[i]=CreateUnit(Player($F),'e001',$5EBA,-$2DB4,0)
        call SetUnitX(Boss_Spell_unit1[i],$5EBA)
        call SetUnitY(Boss_Spell_unit1[i],-$2DB4)
        call SetUnitScale(Boss_Spell_unit1[i],6,0,0)
        set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",Boss_Spell_unit1[i],"origin")
        set CR=true
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=0
        call TimerStart(GetExpiredTimer(),1,true,function Boss_Create_002_RHZX)
    endif
endfunction

function Boss_Create_RHZX takes nothing returns nothing
    local integer i
    local unit u=GetTriggerUnit()
    local real x
    local real y
    local real z
    if Boss_Index_RHZX==-1 then
        set z=GetUnitFacing(u)*bj_DEGTORAD
        set x=GetUnitX(u)+Cos(z)*$96
        set y=GetUnitY(u)+Sin(z)*$96
        set z=SquareRoot(Pow($5EBA-x,2)+Pow(-$2DB4-y,2))
        if z<=$96 and IsUnitInRangeXY(u,$5EBA,-$2DB4,$FA)then
            if IsItemCharges(GetItemOfTypeFromUnit(u,'I04X'),21)then
                set Boss_Index_RHZX=0
                call DisplayTimedText("|cFF8000FFFlame devourer is summoned!",5)
                call RemoveItemByCharges(GetItemOfTypeFromUnit(u,'I04X'),21)
                set i=Boss_Spell_allocate()
                call TimerStart(NewTimer(i),.03,true,function Boss_Create_001_RHZX)
                set Boss_Spell_data1[i]=0
                set Boss_Spell_data2[i]=0
                set Boss_Spell_group1[i]=CreateGroup()
                set Boss_Spell_group2[i]=CreateGroup()
                set Boss_DEATH_TC_RHZX=RegisterEvent(EVENT_PLAYER_UNIT_DEATH,function Boss_UNIT_DEATH_RHZX)
                call RegisterSpellChannelEvent('A0SV',function Boss_Ability002_func_RHZX)
                call RegisterSpellEffectEvent('A0SV',function Boss_Ability002_func_RHZX)
                call RegisterSpellEndCastEvent('A0SV',function Boss_Ability002_func_RHZX)
            else
                call IssueImmediateOrderById(u,$D0004)
                call NewTextTagInTarget_B(u,"Not enough powder!",8,$CD,$FF,$9B)
            endif
        else
            call NewTextTagInTarget_B(u,"Obviously to use in the crater!",8,$CD,$FF,$9B)
            call IssueImmediateOrderById(u,$D0004)
        endif
    endif
    set u=null
endfunction

function Boss_Init_RHZX takes nothing returns nothing
    set Boss_Ability02_lv2_RHZX[0]=$1C9C380
    set Boss_Ability02_lv2_RHZX[1]=$E4E1C0
    set Boss_Ability02_lv2_RHZX[2]=$4C4B40
    set Boss_Ability02_lv2_RHZX[3]=-1
    call RegisterSpellEffectEvent('A0SM',function Boss_Create_RHZX)
endfunction

function Boss_Leave_HM takes nothing returns nothing
    if IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO)and tEv(GetTriggerUnit(),5565,$3D33,1)then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",GetTriggerUnit(),"origin"))
    endif
endfunction

function Boss_End_KillDestruct_HM takes nothing returns nothing
    if(GetDestructableTypeId(GetEnumDestructable())=='YTab')or(GetDestructableTypeId(GetEnumDestructable())=='YTpb')or(GetDestructableTypeId(GetEnumDestructable())=='YTpc')then
        call KillDestructable(GetEnumDestructable())
    endif
endfunction

function Boss_UnitRemove_0_Buff_HM takes integer id returns nothing
    local integer lv=Boss_Ability_0_buff_HM[id]
    if lv>0 then
        call GroupRemoveUnit(Boss_Ability_0_group_HM,(Je[(id)]))
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0T5','B072')
        call ModifyUnitArmor(id,100*Boss_Spell_data1[lv])
        call DeUnitMdef(id,Boss_Spell_data2[lv])
        set Boss_Ability_0_buff_HM[id]=0
        call Boss_Spell_deallocate(lv)
    endif
endfunction

function Boss_End_HM takes nothing returns nothing
    local unit u
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local integer p
    if i==0 then
        call alloc__hPv(GetHandleId((GetExpiredTimer())),(i+1))
        call SetUnitTimeScale(Boss_Unit_2_HM,.09)
        call ShowUnit(Boss_Unit_HM,false)
        loop
            set u=FirstOfGroup(Boss_Ability_0_group_HM)
            exitwhen u==null
            call GroupRemoveUnit(Boss_Ability_0_group_HM,u)
            call Boss_UnitRemove_0_Buff_HM((GetUnitUserData((u))))
        endloop
        call DestroyGroup(Boss_Ability_0_group_HM)
        set Boss_Ability_0_group_HM=null
        set i=8
        loop
            set i=i-1
            if MV[i]!=null and Off_A098_id[(GetUnitUserData((MV[i])))]==2 then
                set Off_A098[(GetUnitUserData((MV[i])))]=FALSE
                set Off_A098_id[(GetUnitUserData((MV[i])))]=0
            endif
            exitwhen i==0
        endloop
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:194")
        call TriggerRemoveCondition(alloc__Kv[GetHandleId((EVENT_PLAYER_UNIT_DEATH))],(Boss_DEATH_TC_HM))
        set Boss_DEATH_TC_HM=null
        set CR=FALSE
        set Boss_Unit_HM=CreateUnit(Player($F),'n03B',GetUnitX(Boss_Unit_2_HM),GetUnitY(Boss_Unit_2_HM),270)
        call SetUnitX(Boss_Unit_HM,GetUnitX(Boss_Unit_2_HM))
        call SetUnitY(Boss_Unit_HM,GetUnitY(Boss_Unit_2_HM))
        call UnitAddAbility(Boss_Unit_HM,'Aloc')
        call PauseUnit(Boss_Unit_HM,true)
        call SetUnitVertexColor(Boss_Unit_HM,100,35,35,50)
        call AddSpecialEffectTarget("magmaburst.mdl",Boss_Unit_HM,"origin")
        set CR=true
        call RemoveDestructable(gg_dest_Dofv_1632)
        call SetRect(bj_lastMoveRect,-9248,-$4F20,-8672,-$4D00)
        call EnumDestructablesInRect(bj_lastMoveRect,null,function Boss_End_KillDestruct_HM)
        set p=(s__polygon_create())
        call s__polygon_polygonaddpoint((p),((-9216)*1.),((-$4D20)*1.))
        call s__polygon_polygonaddpoint((p),((-8960)*1.),((-$4D20)*1.))
        call s__polygon_polygonaddpoint((p),((-8704)*1.),((-$4DE0)*1.))
        call s__polygon_polygonaddpoint((p),((-9024)*1.),((-$4F00)*1.))
        call s__polygon_polygonaddpoint((p),((-9248)*1.),((-$4E20)*1.))
        call sc___prototype62_evaluate(1,p,function Boss_Leave_HM)
        call s__polygon_destroy((p))
        set x=-9248+16
        loop
            exitwhen x>-8672
            set y=-$4F20+16
            loop
                exitwhen y>-$4D00
                if IsPointInRegion(bj_lastCreatedRegion,x,y)then
                    call SetTerrainPathable(x,y,PATHING_TYPE_WALKABILITY,true)
                    call SetTerrainPathable(x,y,PATHING_TYPE_FLYABILITY,true)
                endif
                set y=y+32
            endloop
            set x=x+32
        endloop
        set bj_lastCreatedRegion=null
    endif
endfunction

function Boss_UNIT_DEATH_HM takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer data=(GetUnitUserData((u)))
    local integer lv
    local integer i
    if u==Je[data]then
        if Boss_Ability_0_buff_HM[data]>0 then
            call Boss_UnitRemove_0_Buff_HM(data)
        endif
        if IsUnitInGroup(u,Boss_Ability_5_group_HM)then
            set i=ReleaseTimer(Boss_Ability_5_timer_HM[data],"[TimerUtils]Error:195")
            set Boss_Ability_5_timer_HM[(GetUnitUserData((Boss_Spell_unit1[i])))]=null
            set Boss_Ability_5_timer_HM[(GetUnitUserData((Boss_Spell_unit2[i])))]=null
            call GroupRemoveUnit(Boss_Ability_5_group_HM,Boss_Spell_unit1[i])
            call GroupRemoveUnit(Boss_Ability_5_group_HM,Boss_Spell_unit2[i])
            call PauseUnit(Boss_Spell_unit1[i],false)
            if u==Boss_Spell_unit1[i]then
                call KillUnit(Boss_Spell_unit2[i])
            endif
            call Boss_Spell_deallocate(i)
        endif
        if u==Boss_Unit_HM then
            if Boss_Ability_5_index_HM>0 then
                call Boss_Spell_deallocate(Boss_Ability_5_index_HM)
                set Boss_Ability_5_index_HM=0
            endif
            call SetUnitTimeScale(Boss_Unit_2_HM,.18)
            call SetUnitAnimation(Boss_Unit_2_HM,"birth")
            call ShowUnit(Boss_Unit_2_HM,true)
            call UnitRemoveAbility(Boss_Unit_2_HM,'Aloc')
            call UnitAddAbility(Boss_Unit_2_HM,'Aloc')
            call TimerStart(NewTimer(0),3,true,function Boss_End_HM)
            loop
                set u=FirstOfGroup(Boss_Ability_5_group_HM)
                exitwhen u==null
                call GroupRemoveUnit(Boss_Ability_5_group_HM,u)
                set data=(GetUnitUserData((u)))
                set i=ReleaseTimer(Boss_Ability_5_timer_HM[data],"[TimerUtils]Error:196")
                set Boss_Ability_5_timer_HM[(GetUnitUserData((Boss_Spell_unit1[i])))]=null
                set Boss_Ability_5_timer_HM[(GetUnitUserData((Boss_Spell_unit2[i])))]=null
                call GroupRemoveUnit(Boss_Ability_5_group_HM,Boss_Spell_unit1[i])
                call GroupRemoveUnit(Boss_Ability_5_group_HM,Boss_Spell_unit2[i])
                call PauseUnit(Boss_Spell_unit1[i],false)
                call KillUnit(Boss_Spell_unit2[i])
                call Boss_Spell_deallocate(i)
            endloop
            call DestroyGroup(Boss_Ability_5_group_HM)
            set Boss_Ability_5_group_HM=null
        endif
    endif
    set u=null
endfunction

function Boss_Buff_00_add_HM takes unit u returns nothing
    local integer data=(GetUnitUserData((u)))
    local integer lv
    if u==Je[data]then
        if Boss_Ability_0_buff_HM[data]==null then
            set lv=Boss_Spell_allocate()
            set Boss_Ability_0_buff_HM[data]=lv
            set Boss_Spell_data1[lv]=0
            set Boss_Spell_data2[lv]=0
        else
            set lv=Boss_Ability_0_buff_HM[data]
        endif
        if Boss_Spell_data1[lv]<$A then
            set Boss_Spell_data1[lv]=Boss_Spell_data1[lv]+1
            call ModifyUnitArmor(data,-100)
        endif
        if Boss_Spell_data2[lv]==0 then
            set Boss_Spell_data2[lv]=ModifyUnitMdef(data,-$A)
        elseif(100*s__unitseate_table_v[(Boss_Spell_data2[lv])])>-60 then
            call UnitMdefChange(data,Boss_Spell_data2[lv],(100*s__unitseate_table_v[(Boss_Spell_data2[lv])])-$A)
        endif
        call UnitRemoveAbilityandBuffBY(u,'A0T5','B072')
        call UnitAddAbilityBY(u,'A0T5')
        if Boss_Ability_0_group_HM==null then
            set Boss_Ability_0_group_HM=CreateGroup()
        endif
        call GroupAddUnit(Boss_Ability_0_group_HM,u)
        call SetUnitAbilityLevel(u,'A0T4',Boss_Spell_data1[lv])
    endif
endfunction

function Boss_Buff_05_loop_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]<$C8 then
        if IsUnitPaused(Boss_Spell_unit1[i])==false then
            call PauseUnit(Boss_Spell_unit1[i],true)
        endif
        call SetUnitX(Boss_Spell_unit1[i],GetUnitX(Boss_Spell_unit2[i]))
        call SetUnitY(Boss_Spell_unit1[i],GetUnitY(Boss_Spell_unit2[i]))
    else
        call PauseUnit(Boss_Spell_unit1[i],false)
        call DestroyEffect(AddSpecialEffectTarget("desecrate.mdl",Boss_Spell_unit1[i],"origin"))
        call GroupRemoveUnit(Boss_Ability_5_group_HM,Boss_Spell_unit1[i])
        call GroupRemoveUnit(Boss_Ability_5_group_HM,Boss_Spell_unit2[i])
        call KillUnit(Boss_Spell_unit1[i])
        call KillUnit(Boss_Spell_unit2[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:197")
        call Boss_Spell_deallocate(i)
    endif
endfunction

function Boss_Buff_05_ex_HM takes nothing returns nothing
    if GetWidgetLife((MF))>1.5 then
        set KF[HF]=PF+1000000.
        call SetWidgetLife((MF),GetWidgetLife((MF))-1)
    else
        call KillUnit((MF))
    endif
endfunction

function Boss_Buff_05_add_HM takes unit u returns nothing
    local integer data=(GetUnitUserData((u)))
    local integer i
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local unit u2
    if u==Je[data]then
        if IsUnitInGroup(u,Boss_Ability_5_group_HM)==FALSE then
            set u2=CreateUnit(Player($B),'n03C',x,y,270)
            call SetUnitX(u2,x)
            call SetUnitY(u2,y)
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=u
            set Boss_Spell_unit2[i]=u2
            set Boss_Spell_data1[i]=0
            set Boss_Ability_5_timer_HM[data]=NewTimer(i)
            set Boss_Ability_5_timer_HM[(GetUnitUserData((u2)))]=Boss_Ability_5_timer_HM[data]
            call TimerStart(Boss_Ability_5_timer_HM[data],.05,true,function Boss_Buff_05_loop_HM)
            call GroupAddUnit(Boss_Ability_5_group_HM,u)
            call GroupAddUnit(Boss_Ability_5_group_HM,u2)
            call SetUnitAnimation(u2,"birth")
            call UnitAddShieldTrig((GetUnitUserData((u2))),function Boss_Buff_05_ex_HM)
        endif
    endif
endfunction

function Boss_Ability007_func05_HM takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((GetEnumUnit())))
    local real x=GetUnitX(GetEnumUnit())
    local real y=GetUnitY(GetEnumUnit())
    local real r=850
    local unit u
    local group g=CreateGroup()
    if GetUnitTypeId(GetEnumUnit())=='e03C' then
        call SetUnitAnimation(GetEnumUnit(),"Death")
        if IsUnitInRange(GetEnumUnit(),Boss_Unit_2_HM,100)then
            set r=$708
            call Ltv(Lfv(LAv("firegold.mdl",x,y,4),$FF,$FF,$FF,$FF))
        else
            call Ltv(Lfv(LAv("firegold.mdl",x,y,2.5),$FF,$FF,$FF,$FF))
        endif
    endif
    call GroupEnumUnitsInRange(g,x,y,r+75,null)
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        if IsUnitInRangeXY(u,x,y,r)and not IsUnitInGroup(u,G3)then
            if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'A04P')==0 then
                if GetUnitTypeId(GetEnumUnit())=='e03B' then
                    if IsUnitInRangeXY(u,x,y,300)then
                        call GroupAddUnit(G3,u)
                        if IsUnitInGroup(u,G2)then
                            call GroupRemoveUnit(G2,u)
                        endif
                    endif
                else
                    call GroupAddUnit(G2,u)
                endif
            endif
        endif
    endloop
    call DestroyGroup(g)
    set g=null
endfunction

function Boss_Ability007_func04_HM takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:198")
    call SetUnitTimeScale((Je[(id)]),0)
endfunction

function Boss_Ability007_func03_HM takes nothing returns nothing
    if GetDamage()>GetWidgetLife((MF))+.5 then
        call KillUnit((MF))
        call SetUnitTimeScale((MF),2)
        call TimerStart(NewTimer((pF)),.75,false,function Boss_Ability007_func04_HM)
    endif
endfunction

function Boss_Ability007_func02_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    local real x
    local real y
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        set Boss_Spell_data2[i]=20
        call PauseUnit(Boss_Spell_unit1[i],true)
        call TimerStart(GetExpiredTimer(),1,true,function Boss_Ability007_func02_HM)
        call SetUnitAnimation(Boss_Spell_unit1[i],"spell")
        call thv("|c00FF0000"+I2S(Boss_Spell_data2[i])+"|r",GetUnitX(Boss_Unit_2_HM),GetUnitY(Boss_Unit_2_HM),$FA,.075,.05,bj_PI/ 2,.5,1.2)
        set x=GetUnitX(Boss_Unit_2_HM)
        set y=GetUnitY(Boss_Unit_2_HM)
        set u=CreateUnit(Player($B),'e03C',x,y,270)
        call SetUnitX(u,x)
        call SetUnitY(u,y)
        call SetUnitColor(u,PLAYER_COLOR_RED)
        call GroupAddUnit(Boss_Spell_group1[i],u)
        call UnitAddShieldTrig((GetUnitUserData((u))),function Boss_Ability007_func03_HM)
        set index=0
        loop
            set x=GetUnitX(Boss_Unit_2_HM)+$500*Cos(index*bj_PI/ 2.)
            set y=GetUnitY(Boss_Unit_2_HM)+$500*Sin(index*bj_PI/ 2.)
            set u=CreateUnit(Player($B),'e03C',x,y,270)
            call SetUnitX(u,x)
            call SetUnitY(u,y)
            call SetUnitColor(u,PLAYER_COLOR_RED)
            call GroupAddUnit(Boss_Spell_group1[i],u)
            call UnitAddShieldTrig((GetUnitUserData((u))),function Boss_Ability007_func03_HM)
            set index=index+1
            exitwhen index>3
        endloop
        set index=0
        loop
            set x=GetUnitX(Boss_Unit_2_HM)+$5A8*Cos(.785398+index*bj_PI/ 2.)
            set y=GetUnitY(Boss_Unit_2_HM)+$5A8*Sin(.785398+index*bj_PI/ 2.)
            set u=CreateUnit(Player($B),'e03C',x,y,270)
            call SetUnitX(u,x)
            call SetUnitY(u,y)
            call SetUnitColor(u,PLAYER_COLOR_RED)
            call GroupAddUnit(Boss_Spell_group1[i],u)
            call UnitAddShieldTrig((GetUnitUserData((u))),function Boss_Ability007_func03_HM)
            set index=index+1
            exitwhen index>3
        endloop
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        if Boss_Spell_data2[i]>0 then
            call SetUnitAnimation(Boss_Spell_unit1[i],"spell")
            call thv("|c00FF0000"+I2S(Boss_Spell_data2[i])+"|r",GetUnitX(Boss_Unit_2_HM),GetUnitY(Boss_Unit_2_HM),$FA,.075,.05,bj_PI/ 2,.5,1.2)
        else
            set Boss_Spell_data1[i]=2
            set Boss_Spell_data2[i]=0
            set index=Boss_Spell_data1[0]
            set Boss_Spell_data1[0]=i
            call GroupClear(G2)
            call GroupClear(G3)
            call ForGroup(Boss_Spell_group1[i],function Boss_Ability007_func05_HM)
            set Boss_Spell_data1[0]=index
            loop
                set u=FirstOfGroup(G2)
                exitwhen u==null
                call GroupRemoveUnit(G2,u)
                call KillUnit(u)
            endloop
            call SetUnitAnimation(Boss_Spell_unit1[i],"attack slam")
            call SetUnitTimeScale(Boss_Spell_unit1[i],2)
            call TimerStart(GetExpiredTimer(),.5,false,function Boss_Ability007_func02_HM)
        endif
    elseif Boss_Spell_data1[i]==2 then
        loop
            set u=FirstOfGroup(Boss_Spell_group1[i])
            exitwhen u==null
            call GroupRemoveUnit(Boss_Spell_group1[i],u)
            call RemoveUnitBJ(u,24)
        endloop
        set Boss_Spell_data1[i]=3
        call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        call QueueUnitAnimation(Boss_Spell_unit1[i],"stand")
        call SetWidgetLife(Boss_Spell_unit1[i],Boss_Spell_Z[i])
        call UnitRemoveAbility(Boss_Spell_unit1[i],'A0UK')
        call TimerStart(GetExpiredTimer(),.5,false,function Boss_Ability007_func02_HM)
    else
        if Boss_Index_HM==8 then
            set Boss_Index_HM=0
            call PauseUnit(Boss_Spell_unit1[i],false)
            call SetUnitInvulnerable(Boss_Spell_unit1[i],false)
        endif
        call DestroyGroup(Boss_Spell_group1[i])
        set Boss_Spell_group1[i]=null
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:199")
    endif
endfunction

function Boss_Ability007_func_HM takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    if GetTriggerUnit()==Boss_Unit_HM then
        if EvelId==274 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_unit2[i]=null
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=0
            set Boss_Spell_Z[i]=GetWidgetLife(Boss_Spell_unit1[i])
            call TimerStart(NewTimer(i),.0,false,function Boss_Ability007_func02_HM)
            call SetUnitInvulnerable(GetTriggerUnit(),true)
            call UnitAddAbility(GetTriggerUnit(),'A0UK')
            set Boss_Index_HM=8
        elseif EvelId==272 then
            set Boss_Index_HM=7
            call NewTextTagInTarget_B(Boss_Unit_HM,"|c00FF8080Ancient spirits ah! Eliminate those stupid people!!|r ",18,$FF,$FF,$FF)
        else
            if Boss_Index_HM==7 then
                set Boss_Index_HM=0
            endif
        endif
    endif
endfunction

function Boss_Ability006_func02_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX(Boss_Spell_unit2[i])+Boss_Spell_X[i]*50
    local real y=GetUnitY(Boss_Spell_unit2[i])+Boss_Spell_Y[i]*50
    local unit u
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_Z[i]<350 then
        set Boss_Spell_Z[i]=Boss_Spell_Z[i]+$A
        call SetUnitScale(Boss_Spell_unit2[i],2+(Boss_Spell_Z[i]-$C8)/ 150.*3,0,0)
    endif
    if IsTerrainWalkable(x,y)then
        call SetUnitX(Boss_Spell_unit2[i],x)
        call SetUnitY(Boss_Spell_unit2[i],y)
    else
        set Boss_Spell_data2[i]=1
    endif
    if ModuloInteger(Boss_Spell_data1[i],4)==0 then
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2),$FF,$FF,$FF,$FF))
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y))
    endif
    set x=x-Boss_Spell_X[i]*Boss_Spell_Z[i]
    set y=y-Boss_Spell_Y[i]*Boss_Spell_Z[i]
    if Boss_Spell_data1[i]<50 and Boss_Spell_data2[i]==0 then
        call GroupEnumUnitsInRange(G,x,y,Boss_Spell_Z[i]+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,Boss_Spell_Z[i])and not IsUnitInGroup(u,Boss_Spell_group1[i])then
                if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call Auxiliary_TargetOrder('A0T6',null,2,$D006B,u)
                    call UnitDamageTargetBY(((Boss_Unit_HM)),((u)),(((($88B8)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                endif
            endif
        endloop
    else
        set Boss_Spell_Z[i]=$2710*((50-Boss_Spell_data1[i])/ 50.)
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call Auxiliary_TargetOrder('A0T6',null,2,$D006B,u)
                    if IsUnitInGroup(u,Boss_Spell_group1[i])==FALSE then
                        call UnitDamageTargetBY(((Boss_Unit_HM)),((u)),(((($88B8+Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    else
                        call UnitDamageTargetBY(((Boss_Unit_HM)),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    endif
                endif
            endif
        endloop
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyEffect(Boss_Spell_eff[i])
        call KillUnit(Boss_Spell_unit2[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:200")
        call Boss_Spell_deallocate(i)
        set Boss_Spell_group1[i]=null
    endif
endfunction

function Boss_Ability006_func_HM takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    local unit u
    if GetTriggerUnit()==Boss_Unit_HM then
        if EvelId==274 then
            set Boss_x[0]=GetUnitX(GetTriggerUnit())
            set Boss_y[0]=GetUnitY(GetTriggerUnit())
            set Boss_x[1]=GetSpellTargetX()-Boss_x[0]
            set Boss_y[1]=GetSpellTargetY()-Boss_y[0]
            set Boss_z[0]=Atan2(Boss_y[1],Boss_x[1])
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=0
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_X[i]=Cos(Boss_z[0])
            set Boss_Spell_Y[i]=Sin(Boss_z[0])
            set Boss_Spell_Z[i]=$C8
            call TimerStart(NewTimer(i),.03,true,function Boss_Ability006_func02_HM)
            set CR=FALSE
            set Boss_x[1]=Boss_x[0]+Boss_Spell_X[i]*$C8
            set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[i]*$C8
            set u=CreateUnit(Player($F),'e001',Boss_x[1],Boss_y[1],Rad2Deg(Boss_z[0]))
            call SetUnitX(u,Boss_x[1])
            call SetUnitY(u,Boss_y[1])
            set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Spells\\Orc\\Shockwave\\ShockwaveMissile.mdl",u,"origin")
            call SetUnitScale(u,2,0,0)
            set Boss_Spell_unit2[i]=u
            set u=null
            set CR=true
        elseif EvelId==272 then
            set Boss_Index_HM=6
        else
            if Boss_Index_HM==6 then
                set Boss_Index_HM=0
            endif
        endif
    endif
endfunction

function Boss_Ability005_func_HM takes real t returns nothing
    local integer i
    local unit u
    local real x=GetUnitX(Boss_Unit_HM)
    local real y=GetUnitY(Boss_Unit_HM)
    if t<=0 and Boss_Ability_5_index_HM==0 then
        return
    endif
    if Boss_Ability_5_index_HM==0 then
        set Boss_Ability_5_index_HM=Boss_Spell_allocate()
        set i=Boss_Ability_5_index_HM
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=0
        set Boss_Spell_X[i]=t
        set Boss_Spell_Y[i]=0
    else
        set i=Boss_Ability_5_index_HM
        if Boss_Spell_Y[i]<32 or t<0 then
            set Boss_Spell_X[i]=Boss_Spell_X[i]+t
            set Boss_Spell_Y[i]=Boss_Spell_Y[i]+t
        endif
        if Boss_Spell_X[i]>=32 then
            set Boss_Spell_X[i]=Boss_Spell_X[i]-32
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
            call thv("|c00400080"+I2S(Boss_Spell_data2[i])+"0%",x,y,$FA,.075,.05,bj_PI/ 2,2,2.5)
            if Boss_Spell_data2[i]==$A then
                if Boss_Ability_5_group_HM==null then
                    set Boss_Ability_5_group_HM=CreateGroup()
                endif
                call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$3E8)then
                        if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                            if IsUnitType(u,UNIT_TYPE_HERO)then
                                call Boss_Buff_05_add_HM(u)
                            else
                                call KillUnit(u)
                            endif
                        endif
                    endif
                endloop
                call Boss_Spell_deallocate(i)
                set Boss_Ability_5_index_HM=-32
                call NewTextTagInTarget_B(Boss_Unit_HM,"|c00FF8080You can never break free of my bonds!!!|r",18,$FF,$FF,$FF)
            endif
        elseif Boss_Spell_X[i]<0 then
            if Boss_Spell_data2[i]<=0 then
                call Boss_Spell_deallocate(i)
                set Boss_Ability_5_index_HM=0
                call thv("|c00400080 0%",x,y,$FA,.075,.05,bj_PI/ 2,2,2.5)
            else
                set Boss_Spell_X[i]=Boss_Spell_X[i]+32
                set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
                call thv("|c00400080"+I2S(Boss_Spell_data2[i])+"0%",x,y,$FA,.075,.05,bj_PI/ 2,2,2.5)
            endif
        endif
    endif
endfunction

function Boss_Ability004_func02_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
    if Boss_Spell_data1[i]>0 then
        call thv("|c00ff0000"+I2S(Boss_Spell_data1[i])+"|r",GetUnitX(Boss_Unit_HM),GetUnitY(Boss_Unit_HM),25,.075,.05,bj_PI/ 2,.75,1)
    else
        loop
            set u=FirstOfGroup(Boss_Spell_group1[i])
            exitwhen u==null
            call GroupRemoveUnit(Boss_Spell_group1[i],u)
            call UnitRemoveAbilityandBuffBY(u,'A0T8',0)
            if IsUnitAliveAndEnemy(u,Boss_Unit_HM)then
                call UnitDamageTargetBY((Boss_Unit_HM),(u),(($F4240)*1.),false,(false),false,false,(ConvertAttackType(5)),(ConvertDamageType(26)),((0)*1.),(""))
                call zhv(GetPlayerId(GetOwningPlayer(u)),100,1)
                call DestroyEffect(AddSpecialEffectTarget("desecrate.mdl",u,"origin"))
            endif
        endloop
        call DestroyGroup(Boss_Spell_group1[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:201")
    endif
endfunction

function Boss_Ability004_func_HM takes nothing returns nothing
    local integer i=Boss_Ability_4_timed_HM
    local unit u
    call DestroyTextTag(Boss_Ability_4_texttag_HM)
    set Boss_Ability_4_timed_HM=0
    set Boss_Spell_data1[i]=5
    set Boss_Spell_group1[i]=CreateGroup()
    call GroupEnumUnitsInRect(G,gg_rct_HM______________001,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and IsUnitType(u,UNIT_TYPE_HERO)then
            call GroupAddUnit(Boss_Spell_group1[i],u)
            call UnitAddAbilityBY(u,'A0T8')
        endif
    endloop
    call TimerStart(NewTimer(i),1,true,function Boss_Ability004_func02_HM)
    call thv("|c00ff0000"+I2S(Boss_Spell_data1[i])+"|r",GetUnitX(Boss_Unit_HM),GetUnitY(Boss_Unit_HM),25,.075,.05,bj_PI/ 2,.75,1)
endfunction

function Boss_Ability003_func04_HM takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((GetEnumUnit())))
    local real x
    local real y
    local unit u
    local group g
    set x=GetUnitX(GetEnumUnit())+Boss_Spell_X[index]
    set y=GetUnitY(GetEnumUnit())+Boss_Spell_Y[index]
    if IsTerrainWalkable(x,y)then
        call SetUnitX(GetEnumUnit(),x)
        call SetUnitY(GetEnumUnit(),y)
        call GroupEnumUnitsInRange(G,x,y,$FA,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$AF)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'A04P')==0 then
                    call KillUnitBJ(u)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",u,"origin"))
                endif
            endif
        endloop
    else
        set Boss_Spell_data1[index]=1
    endif
    if Boss_Spell_data1[i]>=100 or Boss_Spell_data1[index]==1 then
        call Ltv(LAv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y,2))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2),$FF,$C8,$96,$FF))
        call GroupEnumUnitsInRange(G,x,y,375,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'A04P')==0 then
                    call KillUnitBJ(u)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",u,"origin"))
                endif
            endif
        endloop
        call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
        call SetUnitUserData(GetEnumUnit(),0)
        call RemoveUnitBJ(GetEnumUnit(),25)
        call DestroyEffect(Boss_Spell_eff[index])
        call Boss_Spell_deallocate(index)
    endif
endfunction

function Boss_Ability003_func03_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index=Boss_Spell_data1[0]
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    set Boss_Spell_data1[0]=i
    call ForGroup(Boss_Spell_group1[i],function Boss_Ability003_func04_HM)
    set Boss_Spell_data1[0]=index
    if FirstOfGroup(Boss_Spell_group1[i])==null then
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:202")
        set Boss_Spell_group1[i]=null
        set Boss_Spell_group2[i]=null
    endif
endfunction

function Boss_Ability003_func02_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    local real x
    local real y
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        call SetUnitX(Boss_Spell_unit1[i],GetUnitX(Boss_Unit_2_HM))
        call SetUnitY(Boss_Spell_unit1[i],GetUnitY(Boss_Unit_2_HM))
        call SetUnitFacing(Boss_Spell_unit1[i],270)
        call PauseUnit(Boss_Spell_unit1[i],true)
        call SetUnitAnimation(Boss_Spell_unit1[i],"stand victory")
        call TimerStart(GetExpiredTimer(),.24,false,function Boss_Ability003_func02_HM)
        set CR=false
        set u=CreateUnit(Player($B),'e001',GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]),0)
        call UnitAddAbility(u,'AOeq')
        call IssueNeutralPointOrderById(Player($B),GetTriggerUnit(),$D0099,GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]))
        set Boss_Spell_unit2[i]=u
        set CR=true
    elseif Boss_Spell_data1[i]==1 then
        if Boss_Spell_data2[i]<20 then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
            set x=GetUnitX(Boss_Spell_unit1[i])
            set y=GetUnitY(Boss_Spell_unit1[i])
            set index=$C8-$A*Boss_Spell_data2[i]
            call Ltv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,3+.15*Boss_Spell_data2[i]),$FF,index,index,$FF))
            call TimerStart(GetExpiredTimer(),.27-.01*Boss_Spell_data2[i],false,function Boss_Ability003_func02_HM)
        else
            set Boss_Spell_data1[i]=2
            set Boss_Spell_data2[i]=0
            call SetUnitAnimation(Boss_Spell_unit1[i],"attack slam")
            call SetUnitTimeScale(Boss_Spell_unit1[i],2)
            call TimerStart(GetExpiredTimer(),.5,true,function Boss_Ability003_func02_HM)
        endif
    elseif Boss_Spell_data1[i]==2 then
        if Boss_Spell_data2[i]<6 then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
            if Boss_Spell_data2[i]<6 then
                call SetUnitAnimation(Boss_Spell_unit1[i],"attack slam")
            else
                call SetUnitTimeScale(Boss_Spell_unit1[i],1)
                call QueueUnitAnimation(Boss_Spell_unit1[i],"stand")
                call TimerStart(GetExpiredTimer(),3,false,function Boss_Ability003_func02_HM)
                set Boss_Spell_data1[i]=3
            endif
            set index=i
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=Boss_Spell_unit1[index]
            set Boss_Spell_data1[i]=0
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_group2[i]=CreateGroup()
            set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[i])
            set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[i])
            set Boss_x[0]=(Boss_Spell_data2[index]-1.)*bj_PI/ 20.
            set Boss_y[0]=bj_PI/ 5
            set Boss_z[0]=Boss_y[0]*$A
            set CR=FALSE
            loop
                set index=Boss_Spell_allocate()
                set Boss_Spell_group1[index]=CreateGroup()
                set Boss_Spell_group2[index]=CreateGroup()
                set Boss_Spell_X[index]=25*Cos(Boss_x[0])
                set Boss_Spell_Y[index]=25*Sin(Boss_x[0])
                set Boss_Spell_data1[index]=0
                set x=Boss_Spell_X[i]+Boss_Spell_X[index]*2
                set y=Boss_Spell_Y[i]+Boss_Spell_Y[index]*2
                set u=CreateUnit(Player($F),'e001',x,y,Boss_x[0]*bj_RADTODEG)
                call SetUnitX(u,x)
                call SetUnitY(u,y)
                call SetUnitScale(u,1.5,0,0)
                call SetUnitUserData(u,index)
                call GroupAddUnit(Boss_Spell_group1[i],u)
                set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Spells\\Orc\\Shockwave\\ShockwaveMissile.mdl",u,"origin")
                call SetUnitVertexColor(u,$FF,100,100,$FF)
                exitwhen Boss_x[0]>=Boss_z[0]
                set Boss_x[0]=Boss_x[0]+Boss_y[0]
            endloop
            set CR=true
            set u=null
            call TimerStart(NewTimer(i),.03,true,function Boss_Ability003_func03_HM)
            call Ltv(LAv("epicenter.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],2))
            set x=Boss_Spell_X[i]
            set y=Boss_Spell_Y[i]
            call GroupEnumUnitsInRect(G,gg_rct_HM______________001,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                    call Auxiliary_TargetOrder('A0T6',null,2,$D006B,u)
                endif
            endloop
        else
            call TimerStart(GetExpiredTimer(),3,true,function Boss_Ability003_func02_HM)
            set Boss_Spell_data1[i]=3
        endif
    elseif Boss_Spell_data1[i]==3 then
        set Boss_Spell_data1[i]=4
        call TimerStart(GetExpiredTimer(),.5,false,function Boss_Ability003_func02_HM)
        call PauseUnit(Boss_Spell_unit1[i],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[i],false)
    else
        if Boss_Index_HM==4 then
            set Boss_Index_HM=0
        endif
        call KillUnit(Boss_Spell_unit2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:203")
    endif
endfunction

function Boss_Ability003_func_HM takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    if GetTriggerUnit()==Boss_Unit_HM then
        if EvelId==274 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_unit2[i]=null
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=0
            call TimerStart(NewTimer(i),.0,false,function Boss_Ability003_func02_HM)
            call SetUnitInvulnerable(GetTriggerUnit(),true)
            set Boss_Index_HM=4
            call NewTextTagInTarget_B(Boss_Unit_HM,"|c00FF8080This is the power of destruction that you are waiting for !!|r",18,$FF,$FF,$FF)
        elseif EvelId==272 then
            set Boss_Index_HM=3
        else
            if Boss_Index_HM==3 then
                set Boss_Index_HM=0
            endif
        endif
    endif
endfunction

function Boss_Ability002_func03_HM takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((GetEnumUnit())))
    local real x
    local real y
    local unit u
    local group g
    set x=GetUnitX(GetEnumUnit())+Boss_Spell_X[index]
    set y=GetUnitY(GetEnumUnit())+Boss_Spell_Y[index]
    if IsTerrainWalkable(x,y)then
        if ModuloInteger(Boss_Spell_data1[i],5)==0 then
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y))
        endif
        call SetUnitX(GetEnumUnit(),x)
        call SetUnitY(GetEnumUnit(),y)
        call GroupEnumUnitsInRange(G,x,y,$FA,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$AF)and not IsUnitInGroup(u,Boss_Spell_group2[i])then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                    call GroupAddUnit(Boss_Spell_group2[i],u)
                    call GroupAddUnit(Boss_Spell_group1[index],u)
                endif
            endif
        endloop
        set g=Boss_Spell_group1[index]
        set Boss_Spell_group1[index]=Boss_Spell_group2[index]
        set Boss_Spell_group2[index]=g
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupAddUnit(Boss_Spell_group1[index],u)
            call GroupRemoveUnit(g,u)
            set Boss_x[0]=GetUnitX(u)+Boss_Spell_X[index]
            set Boss_y[0]=GetUnitY(u)+Boss_Spell_Y[index]
            if IsUnitInRangeXY(GetEnumUnit(),Boss_x[0],Boss_y[0],$C8)then
                set Boss_x[1]=x+(Boss_x[0]-x)*.85
                set Boss_y[1]=y+(Boss_y[0]-y)*.85
                call SetUnitX(u,Boss_x[1])
                call SetUnitY(u,Boss_y[1])
            elseif IsUnitInRangeXY(GetEnumUnit(),Boss_x[0],Boss_y[0],$C8)then
                set Boss_x[1]=x+(Boss_x[0]-x)*.92
                set Boss_y[1]=y+(Boss_y[0]-y)*.92
                call SetUnitX(u,Boss_x[1])
                call SetUnitY(u,Boss_y[1])
            else
                call GroupRemoveUnit(Boss_Spell_group2[i],u)
                call GroupRemoveUnit(Boss_Spell_group1[index],u)
            endif
        endloop
        set g=null
    else
        set Boss_Spell_data1[index]=1
    endif
    if Boss_Spell_data1[i]>=50 or Boss_Spell_data1[index]==1 then
        call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,2))
        call GroupEnumUnitsInRange(G,x,y,425,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                    call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u),(($7530)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType(17)),((0)*1.),(""))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",u,"origin"))
                endif
            endif
        endloop
        call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
        call SetUnitUserData(GetEnumUnit(),0)
        call RemoveUnitBJ(GetEnumUnit(),26)
        call DestroyEffect(Boss_Spell_eff[index])
        call DestroyGroup(Boss_Spell_group1[index])
        call DestroyGroup(Boss_Spell_group2[index])
        call Boss_Spell_deallocate(index)
    endif
endfunction

function Boss_Ability002_func02_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    local real x
    local real y
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]==1 then
        call Lqv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],5),$FF,0,0,$FF),.5)
        call TimerStart(GetExpiredTimer(),.3,false,function Boss_Ability002_func02_HM)
        call Auxiliary_PointOrder(('ACsi'),GetOwningPlayer(Boss_Spell_unit1[i]),1,$D0270,Boss_Spell_X[i],Boss_Spell_Y[i])
    elseif Boss_Spell_data1[i]==2 then
        set Boss_x[0]=0
        set Boss_y[0]=.785398
        set Boss_z[0]=Boss_y[0]*8
        loop
            set index=Boss_Spell_allocate()
            set Boss_Spell_group1[index]=CreateGroup()
            set Boss_Spell_group2[index]=CreateGroup()
            set Boss_Spell_X[index]=30*Cos(Boss_x[0])
            set Boss_Spell_Y[index]=30*Sin(Boss_x[0])
            set Boss_Spell_data1[index]=0
            set CR=FALSE
            set x=Boss_Spell_X[i]+Boss_Spell_X[index]*2
            set y=Boss_Spell_Y[i]+Boss_Spell_Y[index]*2
            set u=CreateUnit(Player($F),'e001',x,y,Boss_x[0]*bj_RADTODEG)
            call SetUnitX(u,x)
            call SetUnitY(u,y)
            call SetUnitScale(u,1.5,0,0)
            call SetUnitUserData(u,index)
            call GroupAddUnit(Boss_Spell_group1[i],u)
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Spells\\Orc\\Shockwave\\ShockwaveMissile.mdl",u,"origin")
            call SetUnitVertexColor(u,$FF,$FF,$FF,$FF)
            set CR=true
            exitwhen Boss_x[0]>=Boss_z[0]
            set Boss_x[0]=Boss_x[0]+Boss_y[0]
        endloop
        set u=null
        call TimerStart(GetExpiredTimer(),.03,true,function Boss_Ability002_func02_HM)
    else
        set index=Boss_Spell_data1[0]
        set Boss_Spell_data1[0]=i
        call ForGroup(Boss_Spell_group1[i],function Boss_Ability002_func03_HM)
        set Boss_Spell_data1[0]=index
        if FirstOfGroup(Boss_Spell_group1[i])==null then
            call DestroyGroup(Boss_Spell_group1[i])
            call DestroyGroup(Boss_Spell_group2[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:204")
        endif
    endif
endfunction

function Boss_Ability002_func_HM takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    if GetTriggerUnit()==Boss_Unit_HM then
        if EvelId==274 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_data1[i]=0
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_group2[i]=CreateGroup()
            set Boss_Spell_X[i]=GetSpellTargetX()
            set Boss_Spell_Y[i]=GetSpellTargetY()
            call Ltv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],3),$FF,$FA,$FA,$FF))
            call TimerStart(NewTimer(i),.5,false,function Boss_Ability002_func02_HM)
            call SetUnitAnimation(Boss_Spell_unit1[i],"attack slam")
            call SetUnitTimeScale(Boss_Spell_unit1[i],2.8)
        elseif EvelId==272 then
            set Boss_Index_HM=2
            call NewTextTagInTarget_B(Boss_Unit_HM,"|c00FF8080See God now!!!|r",18,$FF,$FF,$FF)
        else
            if Boss_Index_HM==2 then
                set Boss_Index_HM=0
                call SetUnitTimeScale(GetTriggerUnit(),1)
            endif
        endif
    endif
endfunction

function Boss_Ability001_func02_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX(Boss_Spell_unit1[i])
    local real y=GetUnitY(Boss_Spell_unit1[i])
    local unit u
    if Boss_Index_HM==1 then
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        if Boss_Spell_data1[i]==0 then
            call SetUnitAnimation(Boss_Spell_unit1[i],"attack slam")
            call TimerStart(GetExpiredTimer(),.25,true,function Boss_Ability001_func02_HM)
        else
            if Boss_Spell_data1[i]<=$A then
                call Ltv(LAv("epicenter.mdl",x,y,3))
                call Ltv(LAv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y,4))
                call GroupEnumUnitsInRange(G,x,y,800+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,800)then
                        if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                            call Auxiliary_TargetOrder('A0T6',null,1,$D006B,u)
                            call UnitDamageTargetBY(((Boss_Unit_HM)),((u)),((((6000)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                        endif
                    endif
                endloop
                call SetUnitAnimation(Boss_Unit_HM,"attack slam")
                if Boss_Spell_data1[i]==$A then
                    call SetUnitTimeScale(Boss_Unit_HM,.5)
                endif
            else
                if Boss_Spell_data1[i]==$E then
                    call SetUnitTimeScale(Boss_Unit_HM,1)
                elseif Boss_Spell_data1[i]==$F then
                    call TimerStart(GetExpiredTimer(),.05,true,function Boss_Ability001_func02_HM)
                elseif Boss_Spell_data1[i]==16 then
                    call Ltv(LAv("epicenter.mdl",x,y,3.5))
                    call Ltv(LAv("explosion.mdl",x,y,3))
                    call GroupEnumUnitsInRange(G,x,y,900+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,900)then
                            if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                                call m2v(u,3,'A500','B500',true)
                                call UnitDamageTargetBY(((Boss_Unit_HM)),((u)),(((($C350)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                                call zhv((GetPlayerId((GetOwningPlayer(u)))),100,1)
                            endif
                        endif
                    endloop
                    call QueueUnitAnimation(Boss_Unit_HM,"stand")
                    call Boss_Spell_deallocate(i)
                    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:205")
                endif
            endif
        endif
    else
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:206")
    endif
endfunction

function Boss_Ability001_func_HM takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    if GetTriggerUnit()==Boss_Unit_HM then
        if EvelId==274 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_data1[i]=-1
            call TimerStart(NewTimer(i),.0,false,function Boss_Ability001_func02_HM)
            call SetUnitTimeScale(Boss_Spell_unit1[i],2.8)
            call SetUnitNocontrol((GetUnitUserData((Boss_Unit_HM))),true)
        elseif EvelId==272 then
            set Boss_Index_HM=1
            call NewTextTagInTarget_B(Boss_Unit_HM,"|c00FF8080Look I do not step on you!|r",18,$FF,$FF,$FF)
        else
            if Boss_Index_HM==1 then
                set Boss_Index_HM=0
                call SetUnitNocontrol((GetUnitUserData((Boss_Unit_HM))),false)
                call SetUnitTimeScale(GetTriggerUnit(),1)
            endif
        endif
    endif
endfunction

function Boss_Damage_HM takes nothing returns nothing
    local real x
    local real y
    local real r
    local integer fx
    if Boss_Ability_4_timed_HM>0 then
        set r=GetDamage()
        if Boss_Spell_Z[Boss_Ability_4_timed_HM]<=0 then
            set x=GetUnitX((MF))
            set y=GetUnitY((MF))
            set fx=Lnv(x,y,Atan2(GetUnitY((mF))-y,GetUnitX((mF))-x))
            call LMv(fx,"Royal Guard.mdl")
            call SetUnitScale(II[(fx)],((5)*1.),0,0)
            call Ltv(Lfv(fx,$FF,$FF,125,$CD))
            set Boss_Spell_Z[Boss_Ability_4_timed_HM]=$A
        endif
        call DamageMinus(r*.9)
        set Boss_Spell_X[Boss_Ability_4_timed_HM]=(.0023)*20
        set Boss_Spell_Y[Boss_Ability_4_timed_HM]=Boss_Spell_Y[Boss_Ability_4_timed_HM]+r*.1
        call SetTextTagPos(Boss_Ability_4_texttag_HM,x,y,$96)
        call SetTextTagText(Boss_Ability_4_texttag_HM,I2S(R2I(Boss_Spell_Y[Boss_Ability_4_timed_HM])),Boss_Spell_X[Boss_Ability_4_timed_HM])
        if Boss_Spell_Y[Boss_Ability_4_timed_HM]>=$F4240 then
            call SetUnitNocontrol((pF),false)
            call Boss_Ability004_func_HM()
        endif
    else
        if Boss_Ability_4_index_HM>0 then
            set r=GetWidgetLife(Boss_Unit_HM)-GetDamage()-Boss_Ability_4_index_HM*$989680
            if r<=0 then
                call DamageMinus(-r)
                call SetUnitNocontrol((pF),true)
                set Boss_Ability_4_index_HM=Boss_Ability_4_index_HM-1
                set Boss_Ability_4_timed_HM=Boss_Spell_allocate()
                set Boss_Spell_data1[Boss_Ability_4_timed_HM]=320
                set Boss_Spell_X[Boss_Ability_4_timed_HM]=(.0023)*$F
                set Boss_Spell_Y[Boss_Ability_4_timed_HM]=-r
                set Boss_Spell_Z[Boss_Ability_4_timed_HM]=0
                set Boss_Ability_4_texttag_HM=CreateTextTag()
                call SetTextTagColor(Boss_Ability_4_texttag_HM,$80,$80,64,$FF)
                call NewTextTagInTarget_B(Boss_Unit_HM,"|c00FF8080our attack is just tickling for me!|r",18,$FF,$FF,$FF)
            endif
        endif
        if(Boss_Ability_5_index_HM>=0)and((Control_use[(GetUnitUserData(((Boss_Unit_HM))))])or GetUnitAbilityLevel(Boss_Unit_HM,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_HM,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_HM,'B06P')>0)then
            call Boss_Ability005_func_HM(GetRandomInt(2,3))
        endif
    endif
endfunction

function Boss_Death02_HM takes nothing returns nothing
    local integer i=s__Trig_P2[s__Trig_Index]
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
    call GroupRemoveUnit(Boss_Spell_group1[i],Je[s__Trig_P])
    set s__Trig_P2[s__Trig_Index]=0
    call s__Trig_remove(s__Trig_Index)
endfunction

function Boss_Birth_n03S_HM takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:207")
    if UnitAlive((Je[(id)]))then
        call PauseUnit((Je[(id)]),false)
        call SetUnitInvulnerable((Je[(id)]),false)
        call QueueUnitAnimation((Je[(id)]),"stand")
    endif
endfunction

function Boss_Start02_HM takes nothing returns nothing
    local real life=GetWidgetLife(Boss_Unit_HM)
    local real maxlife=GetUnitState(Boss_Unit_HM,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local unit u
    local real x=GetUnitX(Boss_Unit_HM)
    local real y=GetUnitY(Boss_Unit_HM)
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    if life>0 then
        if Boss_Ability_5_index_HM<0 then
            set Boss_Ability_5_index_HM=Boss_Ability_5_index_HM+1
        else
            if(Boss_Ability_5_index_HM>0)then
                if not((Control_use[(GetUnitUserData(((Boss_Unit_HM))))])or GetUnitAbilityLevel(Boss_Unit_HM,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_HM,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_HM,'B06P')>0)then
                    call Boss_Ability005_func_HM(-.3)
                endif
                set Boss_Spell_data1[Boss_Ability_5_index_HM]=Boss_Spell_data1[Boss_Ability_5_index_HM]+1
                if Boss_Spell_data1[Boss_Ability_5_index_HM]>=32 then
                    set Boss_Spell_data1[Boss_Ability_5_index_HM]=0
                    set Boss_Spell_Y[Boss_Ability_5_index_HM]=0
                endif
            elseif((Control_use[(GetUnitUserData(((Boss_Unit_HM))))])or GetUnitAbilityLevel(Boss_Unit_HM,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_HM,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_HM,'B06P')>0)then
                call Boss_Ability005_func_HM(1)
            endif
        endif
        if(100000.-TimerGetRemaining(GameTimer))>Boss_Spell_X[i]then
            set Boss_Spell_X[i]=(100000.-TimerGetRemaining(GameTimer))+30
            if Boss_Spell_data1[i]<$C then
                if Boss_Spell_data1[i]>9 then
                    set index=$C-Boss_Spell_data1[i]
                else
                    set index=3
                endif
                set Boss_Spell_data1[i]=Boss_Spell_data1[i]+index
                loop
                    exitwhen index==0
                    set index=index-1
                    set u=CreateUnit(GetOwningPlayer(Boss_Unit_HM),'n03S',GetRandomReal(-8896,-5536),GetRandomReal(-$5AA0,-$4E40),GetRandomReal(0,360))
                    call SetUnitAnimation(u,"Birth")
                    set s__Trig_P2[AddUnitDeathTrigB((GetUnitUserData((u))),function Boss_Death02_HM)]=i
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call PauseUnit(u,true)
                    call SetUnitInvulnerable(u,true)
                    call TimerStart(NewTimer((GetUnitUserData((u)))),2,false,function Boss_Birth_n03S_HM)
                endloop
            endif
        endif
        if(100000.-TimerGetRemaining(GameTimer))>Boss_Ability_0_HM then
            set Boss_Ability_0_HM=(100000.-TimerGetRemaining(GameTimer))+$A
            call Ltv(LNv("darknova.mdl",x,y,GetUnitFlyHeight(Boss_Unit_HM)+30,1.75))
            call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$3E8)then
                    if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                        call DestroyEffect(AddSpecialEffectTarget("ghostmissile.mdl",u,"origin"))
                        call Boss_Buff_00_add_HM(u)
                    endif
                endif
            endloop
        endif
    else
        loop
            set u=FirstOfGroup(Boss_Spell_group1[i])
            exitwhen u==null
            call GroupRemoveUnit(Boss_Spell_group1[i],u)
            call KillUnit(u)
        endloop
        call DestroyGroup(Boss_Spell_group1[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:208")
        return
    endif
    if Boss_Ability_4_timed_HM>0 then
        set Boss_Spell_data1[Boss_Ability_4_timed_HM]=Boss_Spell_data1[Boss_Ability_4_timed_HM]-1
        if Boss_Spell_data1[Boss_Ability_4_timed_HM]<=0 then
            call Boss_Spell_deallocate(Boss_Ability_4_timed_HM)
            call DestroyTextTag(Boss_Ability_4_texttag_HM)
            set Boss_Ability_4_timed_HM=0
        else
            if Boss_Spell_Z[Boss_Ability_4_timed_HM]>0 then
                set Boss_Spell_Z[Boss_Ability_4_timed_HM]=Boss_Spell_Z[Boss_Ability_4_timed_HM]-1
            endif
            if Boss_Spell_X[Boss_Ability_4_timed_HM]>(.0023)*$F then
                set Boss_Spell_X[Boss_Ability_4_timed_HM]=Boss_Spell_X[Boss_Ability_4_timed_HM]-(.0023)
            endif
            call SetTextTagPos(Boss_Ability_4_texttag_HM,x,y,$96)
            call SetTextTagText(Boss_Ability_4_texttag_HM,I2S(R2I(Boss_Spell_Y[Boss_Ability_4_timed_HM])),Boss_Spell_X[Boss_Ability_4_timed_HM])
        endif
    endif
    set Boss_Index2_HM=Boss_Index2_HM-1
    if Boss_Index_HM==0 then
        if Boss_Index2_HM<=0 then
            if v<=.6 then
                set index=0
                call GroupEnumUnitsInRange(G,x,y,$3E8,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            set index=index+2
                        else
                            set index=index+1
                        endif
                    endif
                endloop
                if index>1 and IssueImmediateOrderById(Boss_Unit_HM,$D009F)then
                    set Boss_Index2_HM=33
                    return
                endif
            endif
            if v<=.7 then
                set index=0
                call GroupEnumUnitsInRange(G,x,y,900,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            set index=index+2
                            if GetRandomInt(1,index)<=2 then
                                set x=GetUnitX(u)
                                set y=GetUnitY(u)
                            endif
                        else
                            set index=index+1
                            if GetRandomInt(1,index)<=1 then
                                set x=GetUnitX(u)
                                set y=GetUnitY(u)
                            endif
                        endif
                    endif
                endloop
                if index>1 and IssuePointOrderById(Boss_Unit_HM,$D009D,x,y)then
                    set Boss_Index2_HM=33
                    return
                endif
                set index=0
                call GroupEnumUnitsInRect(G,gg_rct_HM______________001,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            set index=index+2
                        else
                            set index=index+1
                        endif
                    endif
                endloop
                if index>1 and IssueImmediateOrderById(Boss_Unit_HM,$D0048)then
                    set Boss_Index2_HM=33
                    return
                endif
            endif
            if v<=.8 then
                set x=GetUnitX(Boss_Unit_HM)
                set y=GetUnitY(Boss_Unit_HM)
                set index=0
                call GroupEnumUnitsInRange(G,x,y,800,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            set index=index+2
                        else
                            set index=index+1
                        endif
                    endif
                endloop
                if index>1 then
                    if IssueImmediateOrderById(Boss_Unit_HM,$D00A0)then
                        set Boss_Index2_HM=33
                        return
                    endif
                endif
            endif
            set x=GetUnitX(Boss_Unit_HM)
            set y=GetUnitY(Boss_Unit_HM)
            set index=0
            call GroupEnumUnitsInRange(G,x,y,$5DC,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Unit_HM)and GetUnitAbilityLevel(u,'Avul')==0 then
                    if IsUnitType(u,UNIT_TYPE_HERO)then
                        set index=index+2
                        if GetRandomInt(1,index)<=2 then
                            set x=GetUnitX(u)
                            set y=GetUnitY(u)
                        endif
                    else
                        set index=index+1
                        if GetRandomInt(1,index)<=1 then
                            set x=GetUnitX(u)
                            set y=GetUnitY(u)
                        endif
                    endif
                endif
            endloop
            if index>1 then
                if IssuePointOrderById(Boss_Unit_HM,$D024B,x,y)then
                    set Boss_Index2_HM=33
                endif
            endif
        endif
    endif
endfunction

function Boss_Start01_HM takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]==1 then
        set Boss_Index_HM=0
        call TimerDialogDisplay(bj_lastCreatedTimerDialog,false)
        call DestroyTimerDialog(bj_lastCreatedTimerDialog)
        call SetUnitAnimation(Boss_Unit_2_HM,"death")
        call SetUnitTimeScale(Boss_Unit_2_HM,.25)
        call TimerStart(GetExpiredTimer(),2,false,function Boss_Start01_HM)
    else
        set Boss_Spell_data1[i]=0
        set Boss_Spell_X[i]=(100000.-TimerGetRemaining(GameTimer))+30
        set Boss_Spell_group1[i]=CreateGroup()
        call SetUnitOwner(Boss_Unit_HM,Player($B),false)
        call PauseUnit(Boss_Unit_HM,false)
        call SetUnitInvulnerable(Boss_Unit_HM,false)
        call ShowUnit(Boss_Unit_2_HM,false)
        call TimerStart(GetExpiredTimer(),.03125,true,function Boss_Start02_HM)
        set Boss_DEATH_TC_HM=RegisterEvent(EVENT_PLAYER_UNIT_DEATH,function Boss_UNIT_DEATH_HM)
        call UnitAddBeDamagerTrig((GetUnitUserData((Boss_Unit_HM))),function Boss_Damage_HM)
        call RegisterSpellChannelEvent('A0T7',function Boss_Ability001_func_HM)
        call RegisterSpellEffectEvent('A0T7',function Boss_Ability001_func_HM)
        call RegisterSpellEndCastEvent('A0T7',function Boss_Ability001_func_HM)
        call RegisterSpellChannelEvent('A0T9',function Boss_Ability002_func_HM)
        call RegisterSpellEffectEvent('A0T9',function Boss_Ability002_func_HM)
        call RegisterSpellEndCastEvent('A0T9',function Boss_Ability002_func_HM)
        call RegisterSpellChannelEvent('A0TA',function Boss_Ability003_func_HM)
        call RegisterSpellEffectEvent('A0TA',function Boss_Ability003_func_HM)
        call RegisterSpellEndCastEvent('A0TA',function Boss_Ability003_func_HM)
        call RegisterSpellChannelEvent('A0TB',function Boss_Ability006_func_HM)
        call RegisterSpellEffectEvent('A0TB',function Boss_Ability006_func_HM)
        call RegisterSpellEndCastEvent('A0TB',function Boss_Ability006_func_HM)
        call RegisterSpellChannelEvent('A0UF',function Boss_Ability007_func_HM)
        call RegisterSpellEffectEvent('A0UF',function Boss_Ability007_func_HM)
        call RegisterSpellEndCastEvent('A0UF',function Boss_Ability007_func_HM)
        set i=0
        loop
            call SetPlayerAbilityAvailable(Player(i),'A0T5',false)
            set i=i+1
            exitwhen i>$F
        endloop
    endif
endfunction

function Boss_Enter_HM takes nothing returns nothing
    local integer i
    if IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO)and Boss_Index_HM<=-1 and tEv(GetTriggerUnit(),-8668,-$4F28,380)then
        if Boss_Index_HM==-2 then
            set Boss_Index_HM=-1
            set i=Boss_Spell_allocate()
            set Boss_Spell_data1[i]=0
            call TimerStart(NewTimer(i),60,false,function Boss_Start01_HM)
            set bj_lastCreatedTimerDialog=CreateTimerDialog((alloc__bj_LastAllocTimer))
            call TimerDialogSetTitle(bj_lastCreatedTimerDialog,"|c00FF8080Seal released|r")
            call TimerDialogDisplay(bj_lastCreatedTimerDialog,true)
            call DestructableRestoreLife(gg_dest_Dofv_1632,GetDestructableMaxLife(gg_dest_Dofv_1632),false)
            call SetDestructableAnimation(gg_dest_Dofv_1632,"stand")
        endif
        set Off_A098[(GetUnitUserData((GetTriggerUnit())))]=true
        set Off_A098_id[(GetUnitUserData((GetTriggerUnit())))]=2
    endif
endfunction

function Boss_Init_HM takes nothing returns nothing
    set Boss_Unit_HM=gg_unit_n03B_0550
    set Boss_Unit_2_HM=CreateUnit(Player($F),'e039',GetUnitX(Boss_Unit_HM),GetUnitY(Boss_Unit_HM),300)
    call SetUnitX(Boss_Unit_2_HM,GetUnitX(Boss_Unit_HM))
    call SetUnitY(Boss_Unit_2_HM,GetUnitY(Boss_Unit_HM))
    call PauseUnit(Boss_Unit_HM,true)
    call SetUnitInvulnerable(Boss_Unit_HM,true)
    call RegisterEnterRect(-$F80,-$5200,-$EA0,-$5060,function Boss_Enter_HM)
    call Luv('A0T5')
endfunction

function Boss_Enter_n03F takes nothing returns boolean
    local unit u=GetFilterUnit()
    if CR and UnitAlive(u)then
        if IsUnitOwnedByPlayer(u,P[$C])then
            call GroupAddUnit(Boss_EnterGroup_n03F,u)
            call ShowUnit(u,false)
            call PauseUnit(u,true)
            call SetUnitInvulnerable(u,true)
        elseif IsUnitOwnedByPlayer(u,P[$F])then
            if GetUnitTypeId(u)==('n016')then
                call GroupAddUnit(Boss_EnterGroup_n03F,u)
                call ShowUnit(u,false)
                call PauseUnit(u,true)
            endif
        else
            if IsUnitType(u,UNIT_TYPE_HERO)then
                if Boss_Index_n03F==-1 and nC[(GetUnitUserData((u)))]then
                    call GroupAddUnit(Boss_GameFor_n03F,u)
                    set Off_A098[(GetUnitUserData((u)))]=true
                    set Off_A098_id[(GetUnitUserData((u)))]=3
                endif
                if not IsUnitInGroup(u,Boss_GameFor_n03F)then
                    set Jg=false
                    call KillUnit(GetFilterUnit())
                    set Jg=true
                endif
            endif
        endif
    endif
    set u=null
    return false
endfunction

function Boss_Leave_n03F takes nothing returns boolean
    local unit u=GetFilterUnit()
    if IsUnitInGroup(u,Boss_GameFor_n03F)then
        call GroupRemoveUnit(Boss_GameFor_n03F,u)
        if u==Boss_Spell_unit1[Boss_Index2_n03F]then
            call UnitRemoveAbilityandBuffBY(Boss_Spell_unit1[Boss_Index2_n03F],'A0UU','B07N')
            set Boss_Spell_unit1[Boss_Index2_n03F]=null
        endif
        if Off_A098_id[(GetUnitUserData((u)))]==3 then
            set Off_A098[(GetUnitUserData((u)))]=false
            set Off_A098_id[(GetUnitUserData((u)))]=0
        endif
    endif
    set u=null
    return false
endfunction

function Boss_End_n03F takes nothing returns nothing
    local unit u
    local integer i=Boss_Index_n03F
    set Boss_Index_n03F=-3
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:209")
    call RemoveDestructable(Boss_destruct_n03F[0])
    call RemoveDestructable(Boss_destruct_n03F[1])
    call RemoveDestructable(Boss_destruct_n03F[2])
    loop
        set u=FirstOfGroup(Boss_EnterGroup_n03F)
        exitwhen u==null
        call GroupRemoveUnit(Boss_EnterGroup_n03F,u)
        if GetUnitTypeId(u)==('n016')then
            call ShowUnit(u,true)
            call PauseUnit(u,false)
        else
            call ShowUnit(u,true)
            call PauseUnit(u,false)
            call SetUnitInvulnerable(u,false)
        endif
    endloop
    loop
        set u=FirstOfGroup(Boss_GameFor_n03F)
        exitwhen u==null
        call GroupRemoveUnit(Boss_GameFor_n03F,u)
        if Off_A098_id[(GetUnitUserData((u)))]==3 then
            set Off_A098[(GetUnitUserData((u)))]=false
            set Off_A098_id[(GetUnitUserData((u)))]=0
        endif
    endloop
    call Boss_Spell_deallocate(Boss_Index2_n03F)
    call DestroyGroup(Boss_EnterGroup_n03F)
    call DestroyGroup(Boss_GameFor_n03F)
    call DestroyTrigger(Boss_EnterTrig_n03F)
    set Boss_EnterGroup_n03F=null
    set Boss_GameFor_n03F=null
    set Boss_EnterTrig_n03F=null
endfunction

function Boss_Death_n03F takes nothing returns nothing
    set Boss_Index_n03F=999
    call TimerStart(NewTimer(0),3,false,function Boss_End_n03F)
endfunction

function Boss_Ability002_func03_n03F takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((GetEnumUnit())))
    local real x
    local real y
    local unit u
    set x=GetUnitX(GetEnumUnit())+Boss_Spell_X[index]
    set y=GetUnitY(GetEnumUnit())+Boss_Spell_Y[index]
    call SetUnitX(GetEnumUnit(),x)
    call SetUnitY(GetEnumUnit(),y)
    set Boss_x[0]=GetRandomReal(0,6.28)
    set Boss_y[0]=GetRandomReal(0,100)
    call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+Cos(Boss_x[0])*Boss_y[0],y+Sin(Boss_x[0])*Boss_y[0]))
    call GroupEnumUnitsInRange(G,x,y,$FA,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$AF)and IsUnitInGroup(u,Boss_Spell_group1[index])then
            if IsUnitAliveAndEnemy(u,Boss_Unit_n03F)and GetUnitAbilityLevel(u,'Avul')==0 then
                call GroupAddUnit(Boss_Spell_group1[index],u)
                call UnitDamageTargetBY(((Boss_Unit_n03F)),((u)),((((Boss_Spell_Z[index])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            elseif u==Boss_Unit_n03F then
                call DestroyEffect(AddSpecialEffectTarget("aquaspike.mdl",u,"origin"))
                set Boss_x[0]=GetWidgetLife(u)
                set Boss_y[0]=GetUnitState(u,UNIT_STATE_MAX_LIFE)
                set Boss_z[0]=Boss_x[0]+Boss_y[0]*.03
                call SetWidgetLife(u,Boss_z[0])
                if Boss_z[0]>Boss_y[0]then
                    set Boss_z[0]=Boss_y[0]-Boss_x[0]
                else
                    set Boss_z[0]=Boss_z[0]-Boss_x[0]
                endif
                if R2I(Boss_z[0])>0 then
                    call thv("|c0069ff2d+"+I2S(R2I(Boss_z[0])),GetUnitX(u)+GetRandomReal(-100,100),GetUnitY(u)+GetRandomReal(-100,100),GetUnitFlyHeight(u)+GetRandomReal(50,$96),.03,.02,bj_PI/ 2,.5,.75)
                endif
            endif
        endif
    endloop
    if IsPointInRectB(x,y,-9024,-$2B60,-$DC0,-4160)==false or Boss_Index_n03F==-3 then
        call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
        call SetUnitUserData(GetEnumUnit(),0)
        call RemoveUnitBJ(GetEnumUnit(),27)
        call DestroyEffect(Boss_Spell_eff[index])
        call DestroyGroup(Boss_Spell_group1[index])
        call Boss_Spell_deallocate(index)
        set Boss_Spell_group1[index]=null
    else
        set Boss_Spell_Z[index]=Boss_Spell_Z[index]+$3E8
    endif
endfunction

function Boss_Ability002_func02_n03F takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x
    local real y
    local unit u
    if Boss_Spell_data1[i]<$F then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        if Boss_Spell_data2[i]<=0 then
            set Boss_Spell_data2[i]=5
            set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
            if Boss_Spell_data1[i]==1 then
                set Boss_x[0]=(bj_PI/ 2)
            else
                set Boss_x[0]=(bj_PI/ 2)+(bj_PI/ 50)*(Boss_Spell_data1[i]/ 2)*Pow(-1,Boss_Spell_data1[i])
            endif
            set Boss_y[0]=40+(.75)*(Boss_Spell_data1[i]/ 2)
            set index=Boss_Spell_allocate()
            set Boss_Spell_group1[index]=CreateGroup()
            set Boss_Spell_X[index]=Boss_y[0]*Cos(Boss_x[0])
            set Boss_Spell_Y[index]=Boss_y[0]*Sin(Boss_x[0])
            set Boss_Spell_Z[index]=$C350
            set Boss_Spell_data1[index]=0
            set CR=FALSE
            set x=Boss_Spell_X[i]-300*(Boss_Spell_data1[i]/ 2)*Pow(-1,Boss_Spell_data1[i])
            set y=Boss_Spell_Y[i]
            set u=CreateUnit(Player($F),'e001',x,y,Boss_x[0]*bj_RADTODEG)
            call SetUnitX(u,x)
            call SetUnitY(u,y)
            call SetUnitScale(u,2,0,0)
            call SetUnitUserData(u,index)
            call GroupAddUnit(Boss_Spell_group1[i],u)
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("ShockwaveMissile.mdl",u,"origin")
            set CR=true
        endif
    endif
    set index=Boss_Spell_data1[0]
    set Boss_Spell_data1[0]=i
    call ForGroup(Boss_Spell_group1[i],function Boss_Ability002_func03_n03F)
    set Boss_Spell_data1[0]=index
    if FirstOfGroup(Boss_Spell_group1[i])==null then
        call DestroyGroup(Boss_Spell_group1[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:210")
    endif
endfunction

function Boss_Ability002_func_n03F takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    local integer index=0
    set Boss_Spell_data1[i]=0
    set Boss_Spell_data2[i]=0
    set Boss_Spell_X[i]=-6178
    set Boss_Spell_Y[i]=-$2A94
    set Boss_Spell_group1[i]=CreateGroup()
    call TimerStart(NewTimer(i),.03125,true,function Boss_Ability002_func02_n03F)
endfunction

function Boss_attack_n03F takes nothing returns nothing
    if GetRandomInt(1,100)<=8 then
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",GetUnitX((MF)),GetUnitY((MF))))
        call FloatedTargetBY((MF),45,-1.6)
        call m2v((MF),.15,'A500','B500',true)
    else
        if QT[(pF)]then
            call DamageAmplifyDis(GetDamage()*5+5000,$F,"|c00400080")
            call m2v((MF),1,'A500','B500',true)
            call Gjv((MF),100,Atan2(GetUnitY((MF))-GetUnitY((mF)),GetUnitX((MF))-GetUnitX((mF))),1,"KnockbackDust.mdl")
            call DestroyEffect(AddSpecialEffectTarget("bluefirebolt.mdl",(mF),"origin"))
        endif
    endif
endfunction

function Boss_Damage_n03F takes nothing returns nothing
    local unit u=(MF)
    if u==Boss_Unit_n03F then
        if Boss_Index_n03F==2 then
            if Boss_Spell_data1[Boss_Index2_n03F]==0 and((Control_use[(GetUnitUserData(((Boss_Unit_n03F))))])or GetUnitAbilityLevel(Boss_Unit_n03F,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_n03F,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_n03F,'B06P')>0)then
                set Boss_Spell_data1[Boss_Index2_n03F]=2
            endif
        endif
    else
        if GetWidgetLife(u)-GetDamage()<.5 then
            if Boss_Spell_data1[Boss_Index2_n03F]==1 then
                set Boss_Spell_data1[Boss_Index2_n03F]=2
                call PauseUnit(u,true)
            endif
            call DamageMinus(GetDamage()-GetWidgetLife(u)+1)
        endif
    endif
    set u=null
endfunction

function Boss_Start_n03F takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    local real x
    local real y
    if Boss_Index_n03F==-3 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:211")
        return
    endif
    if Boss_Index_n03F==999 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:212")
        return
    endif
    if Boss_Index_n03F==99 then
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        if Boss_Spell_data1[i]>$FF then
            set lastspeaker=Boss_Unit_n03F
            call Playlines("Torino Oos"," I do not trust you anymore.")
            call TimerStart(GetExpiredTimer(),1,false,function Boss_End_n03F)
            call RemoveUnitBJ(Boss_Unit_n03F,28)
        elseif Boss_Spell_data1[i]==32 then
            call SetUnitAnimation(Boss_Unit_n03F,"attack")
            set lastspeaker=Boss_Unit_n03F
            call Playlines("Torino Oosse","Call me out and I'll send it back !")
        elseif Boss_Spell_data1[i]==64 then
            call SetUnitAnimation(Boss_Unit_n03F,"attack")
            set lastspeaker=Boss_Unit_n03F
            call Playlines("Torino Oosse","Take responsibility, ah, asshole!")
        elseif Boss_Spell_data1[i]==96 then
            call SetUnitAnimation(Boss_Unit_n03F,"death")
            call UnitAddAbility(Boss_Unit_n03F,'Aloc')
            set lastspeaker=Boss_Unit_n03F
            call Playlines("Torino Oosse","I do not play.")
        elseif Boss_Spell_data1[i]==$C0 then
            set lastspeaker=Boss_Unit_n03F
            call Playlines("Torino Oosse","Goodbye.")
        endif
        return
    endif
    if Boss_Ability_cd_01_n03F>0 then
        set Boss_Ability_cd_01_n03F=Boss_Ability_cd_01_n03F-1
    endif
    if Boss_Ability_cd_02_n03F>0 then
        set Boss_Ability_cd_02_n03F=Boss_Ability_cd_02_n03F-1
    endif
    if Boss_Index_n03F==0 then
        if FirstOfGroup(Boss_GameFor_n03F)==null then
            set Boss_Index_n03F=99
            set Boss_Spell_data1[i]=0
            set x=-5692
            set y=-9167
            call SetUnitX(Boss_Unit_n03F,x)
            call SetUnitY(Boss_Unit_n03F,y)
            call PauseUnit(Boss_Unit_n03F,true)
            call SetUnitInvulnerable(Boss_Unit_n03F,true)
            call SetUnitAnimation(Boss_Unit_n03F,"spell")
            set lastspeaker=Boss_Unit_n03F
            call Playlines("Torino Oos "," I have not yet force it, you fall!")
            return
        endif
        if Boss_Ability_cd_01_n03F==0 then
            set index=0
            call SetRect(bj_lastMoveRect,-9024,-$2B60,-$DC0,-4160)
            call GroupEnumUnitsInRect(G,bj_lastMoveRect,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Unit_n03F)and IsUnitInGroup(u,Boss_GameFor_n03F)then
                    set index=index+1
                    if GetRandomInt(1,index)==1 then
                        set Boss_Spell_unit1[i]=u
                    endif
                endif
            endloop
            if index>0 then
                set Boss_Index_n03F=1
                set index=Boss_Spell_allocate()
                set Boss_Spell_data1[index]=32
                set Boss_Spell_data2[index]=0
                set Boss_Spell_group1[index]=CreateGroup()
                set Boss_Spell_data1[i]=1
                set Boss_Spell_data2[i]=index
                set Boss_Ability_cd_01_n03F=-1
                set Boss_Spell_unit2[i]=null
                set x=GetUnitX(Boss_Unit_n03F)
                set y=GetUnitY(Boss_Unit_n03F)
                call Lqv(LAv("greatergeiser.mdl",x,y,3),3)
                call PauseUnit(Boss_Unit_n03F,true)
                call SetUnitInvulnerable(Boss_Unit_n03F,true)
                call SetUnitAnimation(Boss_Unit_n03F,"spell")
                call UnitAddAbilityBY(Boss_Spell_unit1[i],'A0UU')
                call NewTextTagInTarget_B(Boss_Unit_n03F,"|c008080FFWave form!|r",18,$FF,$FF,$FF)
            endif
        endif
        if Boss_Index_n03F==0 then
            if Boss_Ability_cd_02_n03F==0 then
                set index=0
                call SetRect(bj_lastMoveRect,-9024,-$2B60,-$DC0,-4160)
                call GroupEnumUnitsInRect(G,bj_lastMoveRect,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitAliveAndEnemy(u,Boss_Unit_n03F)and IsUnitInGroup(u,Boss_GameFor_n03F)then
                        set index=index+1
                        if GetRandomInt(1,index)==1 then
                            set Boss_Spell_unit1[i]=u
                        endif
                    endif
                endloop
                if index>0 then
                    set Boss_Index_n03F=2
                    set Boss_Ability_cd_02_n03F=-1
                    set Boss_Spell_data1[i]=0
                    set Boss_Spell_data2[i]=0
                    call PauseUnit(Boss_Unit_n03F,true)
                    call SetUnitAnimation(Boss_Unit_n03F,"attack slam")
                    call NewTextTagInTarget_B(Boss_Unit_n03F,"|c008080FFTide attracted!|r",18,$FF,$FF,$FF)
                endif
            endif
        endif
    elseif Boss_Index_n03F==1 then
        if Boss_Spell_data1[i]>0 then
            set index=Boss_Spell_data2[i]
            if Boss_Spell_data1[index]>0 then
                set Boss_Spell_data1[index]=Boss_Spell_data1[index]-1
                if Boss_Spell_data1[index]<=0 then
                    call ShowUnit(Boss_Unit_n03F,false)
                    set x=GetUnitX(Boss_Unit_n03F)
                    set y=GetUnitY(Boss_Unit_n03F)
                    set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[i])-x
                    set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[i])-y
                    set Boss_x[0]=SquareRoot(Boss_Spell_X[i]*Boss_Spell_X[i]+Boss_Spell_Y[i]*Boss_Spell_Y[i])
                    if Boss_x[0]>0 then
                        set Boss_y[0]=Atan2(Boss_Spell_Y[i],Boss_Spell_X[i])
                        set Boss_Spell_X[i]=Boss_Spell_X[i]/ Boss_x[0]
                        set Boss_Spell_Y[i]=Boss_Spell_Y[i]/ Boss_x[0]
                    else
                        set Boss_y[0]=GetUnitFacing(Boss_Unit_n03F)/ bj_RADTODEG
                        set Boss_Spell_X[i]=Cos(Boss_y[0])
                        set Boss_Spell_Y[i]=Sin(Boss_y[0])
                    endif
                    set CR=FALSE
                    set u=CreateUnit(Player($F),'e001',x,y,Boss_y[0]*bj_RADTODEG)
                    call SetUnitX(u,x)
                    call SetUnitY(u,y)
                    call SetUnitScale(u,3,0,0)
                    set Boss_Spell_unit1[index]=u
                    set Boss_Spell_eff[index]=AddSpecialEffectTarget("ShockwaveMissile.mdl",u,"origin")
                    set CR=true
                endif
            else
                set x=GetUnitX(Boss_Spell_unit1[index])+Boss_Spell_X[i]*60
                set y=GetUnitY(Boss_Spell_unit1[index])+Boss_Spell_Y[i]*60
                if Boss_Spell_data1[index]==0 then
                    if IsPointInRectB(x,y,-9024,-$2B60,-$DC0,-4160)then
                        call SetUnitX(Boss_Spell_unit1[index],x)
                        call SetUnitY(Boss_Spell_unit1[index],y)
                        set Boss_x[0]=GetRandomReal(0,6.28)
                        set Boss_y[0]=GetRandomReal(0,$FA)
                        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+Cos(Boss_x[0])*Boss_y[0],y+Sin(Boss_x[0])*Boss_y[0]))
                        call GroupEnumUnitsInRange(G,x,y,325,null)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,$FA)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
                                if IsUnitAliveAndEnemy(u,Boss_Unit_n03F)then
                                    if not IsUnitInGroup(u,Boss_Spell_group1[index])then
                                        call GroupAddUnit(Boss_Spell_group1[index],u)
                                        call DestroyEffect(AddSpecialEffect("aquaspike.mdl",GetUnitX(u),GetUnitY(u)))
                                        call m2v(u,3,'A500','B500',true)
                                        call UnitDamageTargetBY(((Boss_Unit_n03F)),((u)),((((Pow(Pow(5,3),2))*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                                    endif
                                else
                                    if Boss_Spell_data1[i]==2 and u==Boss_Spell_unit2[i]then
                                        call DestroyEffect(AddSpecialEffect("aquaspike.mdl",GetUnitX(u),GetUnitY(u)))
                                        call UnitApplyTimedLife(u,0,0)
                                        call KillUnit(u)
                                        set Boss_Spell_data1[i]=-1
                                    endif
                                endif
                            endif
                        endloop
                    else
                        if x>-$DC0 then
                            set x=-$DC0
                        endif
                        if x<-9024 then
                            set x=-9024
                        endif
                        if y>-4160 then
                            set y=-4160
                        endif
                        if y<-$2B60 then
                            set y=-$2B60
                        endif
                        if Boss_Spell_data2[index]==0 then
                            set Boss_Spell_data2[index]=1
                            set Boss_Spell_unit2[i]=CreateUnit(Player($B),'n03E',-6125,-$28DC,90)
                            set PB[(GetUnitUserData((Boss_Spell_unit2[i])))]=true
                            call UnitAddBeDamagerTrig((GetUnitUserData((Boss_Spell_unit2[i]))),function Boss_Damage_n03F)
                            call IssuePointOrderById(Boss_Spell_unit2[i],$D0012,-6500,-8500)
                        endif
                        if Boss_Spell_unit1[i]==null or not UnitAlive(Boss_Spell_unit1[i])then
                            set index=0
                            call SetRect(bj_lastMoveRect,-9024,-$2B60,-$DC0,-4160)
                            call GroupEnumUnitsInRect(G,bj_lastMoveRect,null)
                            loop
                                set u=FirstOfGroup(G)
                                exitwhen u==null
                                call GroupRemoveUnit(G,u)
                                if IsUnitAliveAndEnemy(u,Boss_Unit_n03F)and IsUnitInGroup(u,Boss_GameFor_n03F)then
                                    set index=index+1
                                    if GetRandomInt(1,index)==1 then
                                        set Boss_Spell_unit1[i]=u
                                    endif
                                endif
                            endloop
                        endif
                        if Boss_Spell_unit1[i]!=null then
                            set index=Boss_Spell_data2[i]
                            set Boss_Spell_X[index]=GetUnitX(Boss_Spell_unit1[i])
                            set Boss_Spell_Y[index]=GetUnitY(Boss_Spell_unit1[i])
                        else
                            set index=Boss_Spell_data2[i]
                            set Boss_Spell_X[index]=-6666
                            set Boss_Spell_Y[index]=-8000
                            set Boss_Spell_data1[index]=-1
                        endif
                        set Boss_Spell_X[i]=Boss_Spell_X[index]-x
                        set Boss_Spell_Y[i]=Boss_Spell_Y[index]-y
                        set Boss_x[0]=SquareRoot(Boss_Spell_X[i]*Boss_Spell_X[i]+Boss_Spell_Y[i]*Boss_Spell_Y[i])
                        set Boss_y[0]=Atan2(Boss_Spell_Y[i],Boss_Spell_X[i])
                        set Boss_Spell_X[i]=Boss_Spell_X[i]/ Boss_x[0]
                        set Boss_Spell_Y[i]=Boss_Spell_Y[i]/ Boss_x[0]
                        call SetUnitX(Boss_Unit_n03F,Boss_Spell_X[index])
                        call SetUnitY(Boss_Unit_n03F,Boss_Spell_Y[index])
                        call SetUnitFacing(Boss_Unit_n03F,Boss_y[0]*bj_RADTODEG)
                        call DestroyEffect(Boss_Spell_eff[index])
                        call KillUnit(Boss_Spell_unit1[index])
                        set CR=FALSE
                        set u=CreateUnit(Player($F),'e001',x,y,Boss_y[0]*bj_RADTODEG)
                        call SetUnitX(u,x)
                        call SetUnitY(u,y)
                        call SetUnitScale(u,3,0,0)
                        set Boss_Spell_unit1[index]=u
                        set Boss_Spell_eff[index]=AddSpecialEffectTarget("ShockwaveMissile.mdl",u,"origin")
                        set CR=true
                        call GroupClear(Boss_Spell_group1[index])
                    endif
                else
                    if SquareRoot(Pow(Boss_Spell_X[index]-x,2)+Pow(Boss_Spell_Y[index]-y,2))>60 then
                        call SetUnitX(Boss_Spell_unit1[index],x)
                        call SetUnitY(Boss_Spell_unit1[index],y)
                        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x,y))
                    else
                        call SetUnitX(Boss_Spell_unit1[index],Boss_Spell_X[index])
                        call SetUnitY(Boss_Spell_unit1[index],Boss_Spell_Y[index])
                        set Boss_Spell_data1[i]=-1
                    endif
                endif
                if Boss_Spell_data2[index]>1 then
                    set Boss_Spell_data2[index]=Boss_Spell_data2[index]-1
                endif
                if Boss_Spell_data1[i]==1 and Boss_Spell_data2[index]==1 and Boss_Spell_unit2[i]!=null and UnitAlive(Boss_Spell_unit2[i])and IsUnitInRangeXY(Boss_Spell_unit2[i],-6500,-8500,100)==false then
                    set Boss_Spell_data2[index]=33
                    call IssuePointOrderById(Boss_Spell_unit2[i],$D0012,-6500,-8500)
                endif
            endif
        else
            if Boss_Spell_data1[i]==-1 then
                set index=Boss_Spell_data2[i]
                set Boss_Spell_data1[i]=0
                set Boss_Spell_data2[i]=0
                set x=GetUnitX(Boss_Spell_unit1[index])
                set y=GetUnitY(Boss_Spell_unit1[index])
                call SetUnitX(Boss_Unit_n03F,x)
                call SetUnitY(Boss_Unit_n03F,y)
                call SetUnitAnimation(Boss_Unit_n03F,"spell")
                call Lqv(LAv("greatergeiser.mdl",x,y,3),3)
                call UnitRemoveAbilityandBuffBY(Boss_Spell_unit1[i],'A0UU','B07N')
                if UnitAlive(Boss_Spell_unit2[i])then
                    call UnitApplyTimedLife(Boss_Spell_unit2[i],0,0)
                    call KillUnit(Boss_Spell_unit2[i])
                endif
                call KillUnit(Boss_Spell_unit1[index])
                call DestroyEffect(Boss_Spell_eff[index])
                call DestroyGroup(Boss_Spell_group1[index])
                set Boss_Spell_unit1[i]=null
                set Boss_Spell_unit2[i]=null
                call Boss_Spell_deallocate(index)
            else
                set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
                if ModuloInteger(Boss_Spell_data2[i],6)==3 then
                    call Ltv(LAv("aquaspike.mdl",x,y,3))
                endif
                if Boss_Spell_data2[i]>=32 then
                    set Boss_Ability_cd_01_n03F=32*60*5
                    call PauseUnit(Boss_Unit_n03F,false)
                    call SetUnitInvulnerable(Boss_Unit_n03F,false)
                    set Boss_Index_n03F=0
                elseif Boss_Spell_data2[i]==16 then
                    call ShowUnit(Boss_Unit_n03F,true)
                endif
            endif
        endif
    elseif Boss_Index_n03F==2 then
        if Boss_Spell_data1[i]==0 then
            if((Control_use[(GetUnitUserData(((Boss_Unit_n03F))))])or GetUnitAbilityLevel(Boss_Unit_n03F,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_n03F,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_n03F,'B06P')>0)then
                set Boss_Spell_data1[i]=2
            else
                set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
                if Boss_Spell_data2[i]>=32 then
                    set Boss_Ability_cd_02_n03F=32*80
                    set Boss_Spell_data1[i]=1
                    call Boss_Ability002_func_n03F()
                    call NewTextTagInTarget_B(Boss_Unit_n03F,"|c008080FFcharge!|r",18,$FF,$FF,$FF)
                endif
            endif
        elseif Boss_Spell_data1[i]==1 then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
            if Boss_Spell_data2[i]>=43 then
                call PauseUnit(Boss_Unit_n03F,false)
                call SetUnitAnimation(Boss_Unit_n03F,"stand")
                set Boss_Index_n03F=0
                set Boss_Spell_data1[i]=0
                set Boss_Spell_data2[i]=0
            endif
        elseif Boss_Spell_data1[i]==2 then
            set Boss_Ability_cd_02_n03F=0
            call PauseUnit(Boss_Unit_n03F,false)
            call SetUnitAnimation(Boss_Unit_n03F,"stand")
            set Boss_Index_n03F=0
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=0
        endif
    endif
endfunction

function Boss_Create_n03F takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x=-5692
    local real y=-9167
    if Boss_Spell_data2[i]==0 then
        set Boss_Spell_X[i]=Boss_Spell_X[i]-Boss_Spell_Y[i]
        set Boss_Spell_Y[i]=Boss_Spell_Y[i]+.03
        set Boss_Spell_Z[i]=Boss_Spell_Z[i]+(GetRandomReal(3,5)*bj_DEGTORAD)
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        if ModuloInteger(Boss_Spell_data1[i],2)==1 then
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+Cos(Boss_Spell_Z[i])*Boss_Spell_X[i],y+Sin(Boss_Spell_Z[i])*Boss_Spell_X[i]))
        else
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+Cos(Boss_Spell_Z[i]+3.14159)*Boss_Spell_X[i],y+Sin(Boss_Spell_Z[i]+3.14159)*Boss_Spell_X[i]))
        endif
        if Boss_Spell_X[i]<=0 then
            set Boss_Spell_data2[i]=1
            set Boss_Spell_data1[i]=0
            call Lqv(LAv("greatergeiser.mdl",x,y,8),3)
            call ShowUnit(Boss_Spell_unit1[i],true)
            call UnitAddAbility(Boss_Spell_unit1[i],'Aloc')
            call SetUnitAnimation(Boss_Spell_unit1[i],"attack slam")
            call SetUnitVertexColor(Boss_Spell_unit1[i],$FF,$FF,$FF,$80)
            set Boss_destruct_n03F[0]=CreateDestructable('Dofw',-4992,-4224,270.,1,0)
            set Boss_destruct_n03F[1]=CreateDestructable('Dofw',-4544,-4224,270.,1,0)
            set Boss_destruct_n03F[2]=CreateDestructable('Dofw',-4160,-9856,180.,1,0)
            call SetRect(bj_lastMoveRect,-9024,-$2B60,-$DC0,-4160)
            set Boss_EnterTrig_n03F=CreateTrigger()
            set bj_lastCreatedRegion=CreateRegion()
            set Boss_EnterGroup_n03F=CreateGroup()
            set Boss_GameFor_n03F=CreateGroup()
            call RegionAddRect(bj_lastCreatedRegion,bj_lastMoveRect)
            call TriggerRegisterEnterRegion(Boss_EnterTrig_n03F,bj_lastCreatedRegion,Filter(function Boss_Enter_n03F))
            call TriggerRegisterLeaveRegion(Boss_EnterTrig_n03F,bj_lastCreatedRegion,Filter(function Boss_Leave_n03F))
            call GroupEnumUnitsInRect(G,bj_lastMoveRect,Filter(function Boss_Enter_n03F))
            set Boss_Index_n03F=0
        endif
    elseif Boss_Spell_data2[i]==1 then
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
        call SetUnitVertexColor(Boss_Spell_unit1[i],$FF,$FF,$FF,$80+Boss_Spell_data1[i]*3)
        if Boss_Spell_data1[i]==43 then
            call RemoveUnitBJ(Boss_Spell_unit1[i],29)
            set Boss_Unit_n03F=CreateUnit(P[$B],'n03F',x,y,270)
            call SetUnitX(Boss_Unit_n03F,x)
            call SetUnitY(Boss_Unit_n03F,y)
            call TimerStart(GetExpiredTimer(),.03125,true,function Boss_Start_n03F)
            call AddUnitDeathTrigB((GetUnitUserData((Boss_Unit_n03F))),function Boss_Death_n03F)
            call UnitAddPAttackTrigB((GetUnitUserData((Boss_Unit_n03F))),function Boss_attack_n03F)
            call UnitAddBeDamagerTrig((GetUnitUserData((Boss_Unit_n03F))),function Boss_Damage_n03F)
            set Boss_Spell_unit1[i]=null
            set Boss_Spell_unit2[i]=null
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=0
            set Boss_Spell_X[i]=0
            set Boss_Spell_Y[i]=0
            set Boss_Spell_Z[i]=0
            set Boss_Index2_n03F=i
        endif
    endif
endfunction

function Boss_Init_n03F takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local integer i
    if false and Boss_Index_n03F==-2 and IsPointInRectB(x,y,-8544,-9856,-8352,-9664)and IsItemCharges(GetItemOfTypeFromUnit(u,'I04U'),18)then
        set Boss_Index_n03F=-1
        call RemoveItemByCharges(GetItemOfTypeFromUnit(u,'I04U'),18)
        set i=Boss_Spell_allocate()
        set CR=false
        set Boss_Spell_unit1[i]=CreateUnit(P[$F],'n03F',-5692,-9167,270)
        call SetUnitX(Boss_Spell_unit1[i],-5692)
        call SetUnitY(Boss_Spell_unit1[i],-9167)
        call UnitAddAbility(Boss_Spell_unit1[i],'Aeth')
        call SetUnitVertexColor(Boss_Spell_unit1[i],$FF,$FF,$FF,0)
        call ShowUnit(Boss_Spell_unit1[i],false)
        set CR=true
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=0
        set Boss_Spell_X[i]=$7D0
        set Boss_Spell_Y[i]=3
        set Boss_Spell_Z[i]=0
        call TimerStart(NewTimer(i),.03125,true,function Boss_Create_n03F)
    else
        call VFe()
    endif
    set u=null
endfunction

function Vge takes nothing returns nothing
    call RegisterSpellEffectEvent('A0BX',function Boss_Init_n03F)
endfunction


 function Boss_Ability_1_4_n03G takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX(Boss_Spell_unit2[i])+Boss_Spell_X[i]
    local real y=GetUnitY(Boss_Spell_unit2[i])+Boss_Spell_Y[i]
    local real z=I2R(Boss_Spell_data1[i])+Boss_Spell_Z[i]
    local unit u
    set Boss_Spell_data1[i]=R2I(z)
    set Boss_Spell_Z[i]=Boss_Spell_Z[i]-1.35
    call MoveLocation(Boss_Point,x,y)
    call SetUnitFlyHeight(Boss_Spell_unit2[i],z-GetLocationZ(Boss_Point),0)
    if IsPointInWorldBounds(x,y)then
        call SetUnitX(Boss_Spell_unit2[i],x)
        call SetUnitY(Boss_Spell_unit2[i],y)
    endif
    if z-GetLocationZ(Boss_Point)<=1 then
        call DestroyEffect(Boss_Spell_eff[i])
        call SetUnitScale(Boss_Spell_unit2[i],2.,0,0)
        call KillUnit(Boss_Spell_unit2[i])
        call Ltv(LAv("pumpkinnightmare_projectile.mdl",x,y,1.8))
        if UnitAlive(Boss_Spell_unit1[i])then
            call GroupEnumUnitsInRange(G,x,y,305,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$FF)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($4E20)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    endif
                endif
            endloop
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:213")
        call Boss_Spell_deallocate(i)
    endif
 endfunction
  

 function Boss_Ability_1_3_n03G takes unit unit1,real x,real y,real a,real b,real c returns nothing
    local integer i=Boss_Spell_allocate()
    local unit u
    call MoveLocation(Boss_Point,x,y)
    set Boss_Spell_unit1[i]=unit1
    set Boss_Spell_data1[i]=R2I(GetLocationZ(Boss_Point)+GetUnitFlyHeight(unit1)+300)
    set Boss_Spell_X[i]=Cos(a)*Cos(b)*c
    set Boss_Spell_Y[i]=Sin(a)*Cos(b)*c
    set Boss_Spell_Z[i]=Sin(b)*c
    set CR=FALSE
    set u=CreateUnit(Player($F),'e001',x,y,a*bj_RADTODEG)
    call SetUnitX(u,x)
    call SetUnitY(u,y)
    call UnitAddAbility(u,'Amrf')
    call UnitRemoveAbility(u,'Amrf')
    call SetUnitFlyHeight(u,I2R(Boss_Spell_data1[i])-GetLocationZ(Boss_Point),0)
    call SetUnitScale(u,1.,0,0)
    set Boss_Spell_eff[i]=AddSpecialEffectTarget("s_lavabomb.mdl",u,"origin")
    set Boss_Spell_unit2[i]=u
    set CR=true
    call TimerStart(NewTimer(i),.03125,true,function Boss_Ability_1_4_n03G)
 endfunction
  

 function Boss_Ability_1_2_n03G takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]-2
    if Boss_Spell_data1[i]>=0 then
        set Boss_Spell_X[i]=Boss_Spell_X[i]+GetRandomReal(.3,1.28)
        set Boss_Spell_Y[i]=Boss_Spell_Y[i]-GetRandomReal(.01,.02)
        set Boss_Spell_Z[i]=35+GetRandomReal(-$A,8)
        call Boss_Ability_1_3_n03G(Boss_Spell_unit1[i],GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]),Boss_Spell_X[i],Boss_Spell_Y[i],Boss_Spell_Z[i])
        call SetTextTagText(Boss_texttag_n03G,I2S(Boss_Spell_data1[i])+".00%",(.0023)*20)
        if Boss_Spell_data1[i]<=0 then
            set Boss_Index_n03G=0
            call PauseUnit(Boss_Spell_unit1[i],false)
            call SetUnitAnimation(Boss_Spell_unit1[i],"Sand")
            call SetUnitNocontrol((GetUnitUserData((Boss_Spell_unit1[i]))),false)
        endif
    elseif Boss_Spell_data1[i]<=20 then
        if Boss_Index_n03G==0 then
            call SetTextTagText(Boss_texttag_n03G,"",0)
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:214")
        call Boss_Spell_deallocate(i)
    endif
 endfunction


 function Boss_Ability_1_1_n03G takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Boss_Index_n03G!=1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:215")
        call Boss_Spell_deallocate(i)
        return
    endif
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]==30 then
        call SetUnitAnimation(Boss_Spell_unit1[i],"birth")
    elseif Boss_Spell_data1[i]==80 then
        call SetUnitAnimation(Boss_Spell_unit1[i],"Sand alternate")
    elseif Boss_Spell_data1[i]==100 then
        call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        call Lqv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]),2.5),2)
        call TimerStart(GetExpiredTimer(),.1,true,function Boss_Ability_1_2_n03G)
        set Boss_Spell_X[i]=GetRandomReal(0,6.28)
        set Boss_Spell_Y[i]=1.36
        set Boss_Spell_Z[i]=35
    endif
    call SetTextTagPos(Boss_texttag_n03G,GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]),$96)
    call SetTextTagText(Boss_texttag_n03G,I2S(Boss_Spell_data1[i])+".00%",(.0023)*20)
 endfunction

 function Boss_Ability_1_n03G takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Index_n03G=1
    set Boss_Spell_data1[i]=0
    set Boss_Spell_unit1[i]=Boss_Unit_n03G
    call TimerStart(NewTimer(i),.03,true,function Boss_Ability_1_1_n03G)
    call SetTextTagColor(Boss_texttag_n03G,$FF,0,0,$FF)
    call SetTextTagPos(Boss_texttag_n03G,GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]),$96)
    call SetTextTagText(Boss_texttag_n03G,I2S(Boss_Spell_data1[i])+".00%",(.0023)*20)
    call SetUnitNocontrol((GetUnitUserData((Boss_Spell_unit1[i]))),true)
    set Boss_Ability_CD1_n03G=(100000.-TimerGetRemaining(GameTimer))+45
    call PauseUnit(Boss_Spell_unit1[i],true)
    call SetUnitAnimation(Boss_Spell_unit1[i],"death")
    call SetUnitTimeScale(Boss_Spell_unit1[i],.5)
 endfunction

 function Boss_Damage_n03G takes nothing returns nothing
    local unit u=(MF)
    if u==Boss_Unit_n03G then
        if Boss_Index_n03G==0 then
            call DamageMinus(GetDamage()*.99)
        elseif Boss_Index_n03G==1 then
            call DamageMinus(GetDamage()*.9)
        endif
    endif
    set u=null
 endfunction


 function Boss_Start5_n03G takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real life=GetWidgetLife(Boss_Spell_unit1[i])
    local real maxlife=GetUnitState(Boss_Spell_unit1[i],UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local unit u
    local real x=GetUnitX(Boss_Spell_unit1[i])
    local real y=GetUnitY(Boss_Spell_unit1[i])
    local integer index
    if Boss_Index_n03G==999 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:216")
        call Boss_Spell_deallocate(i)
        call free(Boss_root_n03G)
        call DestroyTextTag(Boss_texttag_n03G)
        set i=8
        loop
            set i=i+1
            if MV[i]!=null and Off_A098_id[(GetUnitUserData((MV[i])))]=='n03G' then
                set Off_A098[(GetUnitUserData((MV[i])))]=FALSE
                set Off_A098_id[(GetUnitUserData((MV[i])))]=0
            endif
            exitwhen i==0
        endloop
        return
    endif
    set index=0
    call SetRect(bj_lastMoveRect,$35E0,-$5C60,$41E0,-$50C0)
    call GroupEnumUnitsInRect(G,bj_lastMoveRect,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and IsUnitType(u,UNIT_TYPE_HERO)then
            set index=index+1
        endif
    endloop
    if index==0 then
        if Boss_Spell_Z[i]<60 then
            set Boss_Spell_Z[i]=Boss_Spell_Z[i]+.03125
        else
            call SetWidgetLife(Boss_Spell_unit1[i],life+maxlife*.01/ 32.)
        endif
    elseif Boss_Spell_Z[i]>0 then
        set Boss_Spell_Z[i]=Boss_Spell_Z[i]-.03125
    endif
    if life>0 then
        if Boss_Index_n03G==0 and Boss_Ability_CD1_n03G<(100000.-TimerGetRemaining(GameTimer))then
            if v<1.1 or not((Control_use[(GetUnitUserData(((Boss_Spell_unit1[i]))))])or GetUnitAbilityLevel(Boss_Spell_unit1[i],'BUdd')>0 or GetUnitAbilityLevel(Boss_Spell_unit1[i],'B01N')>0 or GetUnitAbilityLevel(Boss_Spell_unit1[i],'B06P')>0)then
                if index>=1 then
                    call Boss_Ability_1_n03G()
                endif
            endif
        endif
    else
        set Boss_Index_n03G=999
    endif
endfunction
 

function Boss_Start4_n03G takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=Boss_Spell_X[i]-(Boss_Spell_data1[i]+.5)*360
    local real y=Boss_Spell_Y[i]
    local unit u
    call Lqv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.3),2)
    call GroupEnumUnitsInRange(G,x,y,325,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$FA)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])then
                if not IsUnitInGroup(u,Boss_Spell_group1[i])then
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call m2v(u,3,'A500','B500',true)
                    call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((GetWidgetLife(u)*.5)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                endif
            endif
        endif
    endloop
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]>=5 then
        call SetTextTagText(Boss_texttag_n03G,"",.0)
        call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        call PauseUnit(Boss_Unit_n03G,false)
        call SetUnitInvulnerable(Boss_Unit_n03G,false)
        call UnitAddBeDamagerTrig((GetUnitUserData((Boss_Unit_n03G))),function Boss_Damage_n03G)
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group2[i])
        set Boss_Spell_group1[i]=null
        call TimerStart(GetExpiredTimer(),.03125,true,function Boss_Start5_n03G)
        set Boss_Ability_CD1_n03G=(100000.-TimerGetRemaining(GameTimer))+45
        set Boss_Spell_Z[i]=0
    endif
endfunction


 function Boss_Start3_n03G takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]<100 then
        call SetTextTagText(Boss_texttag_n03G,I2S(Boss_Spell_data1[i])+".00%",(.0023)*20)
    else
        set Boss_Spell_data1[i]=0
        call SetTextTagText(Boss_texttag_n03G,"100%(41993)",(.0023)*30)
        call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
        call SetUnitTimeScale(Boss_Spell_unit1[i],.5)
        call TimerStart(GetExpiredTimer(),.2,true,function Boss_Start4_n03G)
    endif
 endfunction


 function Boss_Start2_n03G takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local group g
    local unit u
    local real x
    local real y
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        set index=LoadInteger(BYHT,Boss_root_n03G,0)
        loop
            exitwhen index==0
            set u=ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,index))
            call SetUnitScale(u,3.,0,0)
            set index=index-1
        endloop
        call TimerStart(GetExpiredTimer(),1,false,function Boss_Start2_n03G)
        set g=Boss_Spell_group1[i]
        set Boss_Spell_group1[i]=Boss_Spell_group2[i]
        set Boss_Spell_group2[i]=g
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupAddUnit(Boss_Spell_group1[i],u)
            call GroupRemoveUnit(g,u)
            set index=(GetUnitUserData((u)))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",u,"origin"))
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",u,"origin")
        endloop
        set g=null
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Spell_data1[i]=2
        set Boss_Spell_data2[i]=0
        call TimerStart(GetExpiredTimer(),.03125,true,function Boss_Start2_n03G)
        set g=Boss_Spell_group1[i]
        set Boss_Spell_group1[i]=Boss_Spell_group2[i]
        set Boss_Spell_group2[i]=g
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupAddUnit(Boss_Spell_group1[i],u)
            call GroupRemoveUnit(g,u)
            call SetUnitScale(u,1.,0,0)
        endloop
        set g=null
    elseif Boss_Spell_data1[i]==2 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        if Boss_Spell_data2[i]>64 then
            set Boss_Spell_data1[i]=3
            set x=(GetUnitX(Boss_Unit_n03G))
            set y=(GetUnitY(Boss_Unit_n03G))
            call TimerStart(GetExpiredTimer(),1.5,false,function Boss_Start2_n03G)
            call SetUnitAnimation(Boss_Spell_unit1[i],"birth")
            call ShowUnit(Boss_Spell_unit1[i],true)
            call SetUnitTimeScale(Boss_Spell_unit1[i],.667/ 1.5)
            call DestroyEffect(AddSpecialEffect("firegold.mdx",x,y))
            call DestroyEffect(AddSpecialEffect("firenova2.mdx",x,y))
            set g=Boss_Spell_group1[i]
            set Boss_Spell_group1[i]=Boss_Spell_group2[i]
            set Boss_Spell_group2[i]=g
            loop
                set u=FirstOfGroup(g)
                exitwhen u==null
                call GroupAddUnit(Boss_Spell_group1[i],u)
                call GroupRemoveUnit(g,u)
                set index=(GetUnitUserData((u)))
                call DestroyEffect(Boss_Spell_eff[index])
                set Boss_Spell_eff[index]=null
                call Boss_Spell_deallocate(index)
                call RemoveUnitBJ(u,30)
            endloop
            set g=null
        else
            set g=Boss_Spell_group1[i]
            set Boss_Spell_group1[i]=Boss_Spell_group2[i]
            set Boss_Spell_group2[i]=g
            loop
                set u=FirstOfGroup(g)
                exitwhen u==null
                call GroupAddUnit(Boss_Spell_group1[i],u)
                call GroupRemoveUnit(g,u)
                set index=(GetUnitUserData((u)))
                set Boss_x[0]=GetUnitX(u)-Boss_Spell_X[i]
                set Boss_y[0]=GetUnitY(u)-Boss_Spell_Y[i]
                set x=Boss_Spell_X[i]+(Cos(.06)*Boss_x[0]-Sin(.06)*Boss_y[0])*.96
                set y=Boss_Spell_Y[i]+(Cos(.06)*Boss_y[0]+Sin(.06)*Boss_x[0])*.96
                call SetUnitX(u,x)
                call SetUnitY(u,y)
                call SetUnitFacing(u,Atan2(Boss_Spell_Y[i]-y,Boss_Spell_X[i]-x)*bj_RADTODEG)
                call SetUnitFlyHeight(u,$96*(1.-I2R(Boss_Spell_data2[i])/ 64.)+533.*Sin((I2R(Boss_Spell_data2[i])/ 64.)*3.14),0)
            endloop
            set g=null
        endif
    else
        set Boss_Spell_data1[i]=0
        call TimerStart(GetExpiredTimer(),.1,true,function Boss_Start3_n03G)
        set Boss_texttag_n03G=CreateTextTag()
        call SetTextTagColor(Boss_texttag_n03G,$FF,0,0,$FF)
        call SetTextTagPos(Boss_texttag_n03G,GetUnitX(Boss_Unit_n03G),GetUnitY(Boss_Unit_n03G),$96)
        call SetTextTagText(Boss_texttag_n03G,I2S(Boss_Spell_data1[i])+".00%",(.0023)*20)
        call SetUnitAnimation(Boss_Spell_unit1[i],"Sand alternate")
        call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        set index=LoadInteger(BYHT,Boss_root_n03G,0)
        loop
            exitwhen index==0
            set u=ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,index))
            call DestroyEffect(Boss_Spell_eff[(GetUnitUserData((u)))])
            set Boss_Spell_eff[(GetUnitUserData((u)))]=null
            call Boss_Spell_deallocate((GetUnitUserData((u))))
            call SetUnitUserData(u,0)
            set u=null
            set index=index-1
        endloop
    endif
 endfunction


 function Boss_Start1_n03G takes nothing returns nothing
    local integer i
    local integer index
    local real x
    local real y
    local real z
    local unit u
    if Boss_Index_n03G<=-1 then
        set Boss_Index_n03G=0
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=Boss_Unit_n03G
        set Boss_Spell_data1[i]=0
        set Boss_Spell_X[i]=GetUnitX(Boss_Unit_n03G)
        set Boss_Spell_Y[i]=GetUnitY(Boss_Unit_n03G)
        set Boss_Spell_group1[i]=CreateGroup()
        set Boss_Spell_group2[i]=CreateGroup()
        call TimerStart(NewTimer(i),2,false,function Boss_Start2_n03G)
        set index=LoadInteger(BYHT,Boss_root_n03G,0)
        loop
            exitwhen index==0
            set u=ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,index))
            set CR=false
            set x=GetUnitX(u)
            set y=GetUnitY(u)
            set z=GetUnitFacing(u)
            set u=CreateUnit(Player($F),'e001',x,y,z)
            call SetUnitX(u,x)
            call SetUnitY(u,y)
            call UnitAddAbility(u,'Amrf')
            call UnitRemoveAbility(u,'Amrf')
            call SetUnitFlyHeight(u,$96,0)
            call SetUnitUserData(u,Boss_Spell_allocate())
            call SetUnitScale(u,2.,0,0)
            call GroupAddUnit(Boss_Spell_group1[i],u)
            set u=null
            set CR=true
            set index=index-1
        endloop
    endif
 endfunction


 function Boss_Start_n03G takes nothing returns nothing
    local integer i=GetHandleId(GetTriggeringRegion())
    local real x
    local real y
    local real z
    local unit u
    if IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),2)and LoadInteger(BYHT,Boss_root_n03G,i)==0 then
        call DisplayTimedText("|c00FF0000Red powder|r disappeared leaving burning red light.",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),2)
        call SaveInteger(BYHT,Boss_root_n03G,i,1)
        set CR=false
        set x=LoadReal(BYHT,Boss_root_n03G,i)
        set y=LoadReal(BYHT,Boss_root_n03G,-i)
        set z=Atan2(GetUnitY(Boss_Unit_n03G)-y,GetUnitX(Boss_Unit_n03G)-x)*bj_RADTODEG
        set u=CreateUnit(Player($F),'e001',x,y,z)
        call SetUnitX(u,x)
        call SetUnitY(u,y)
        call SetUnitUserData(u,Boss_Spell_allocate())
        call SetUnitScale(u,2.,0,0)
        set Boss_Spell_eff[(GetUnitUserData((u)))]=AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",u,"origin")
        call SaveInteger(BYHT2,Boss_root_n03G,LoadInteger(BYHT,Boss_root_n03G,0),GetHandleId(u))
        call SaveInteger(BYHT,Boss_root_n03G,0,LoadInteger(BYHT,Boss_root_n03G,0)-1)
        if LoadInteger(BYHT,Boss_root_n03G,0)==0 then
            set i=LoadInteger(BYHT,Boss_root_n03G,GetHandleId(GetTriggeringTrigger()))
            call SaveInteger(BYHT,Boss_root_n03G,0,i)
            loop
                exitwhen i==0
                call RemoveSavedInteger(BYHT,Boss_root_n03G,GetHandleId(ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,-i))))
                call RemoveRegion(ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,-i)))
                call RemoveSavedInteger(BYHT2,Boss_root_n03G,-i)
                set i=i-1
            endloop
            call DestroyTrigger(GetTriggeringTrigger())
            call Boss_Start1_n03G()
        endif
        set u=null
        set CR=true
    endif
 endfunction


 function Boss_Enter_n03G takes nothing returns nothing
    if IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO)and Boss_Index_n03G<=-1 and tEv(GetTriggerUnit(),$2F58,-$549C,380)then
        if Boss_Index_n03G==-2 then
            set Boss_Index_n03G=-1
        endif
        set Off_A098[(GetUnitUserData((GetTriggerUnit())))]=true
        set Off_A098_id[(GetUnitUserData((GetTriggerUnit())))]='n03G'
    endif
 endfunction


function Boss_I064_2_n03G takes nothing returns nothing
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:217")
    call TriggerRemoveCondition(alloc__GX[(TRIGGER_PICKUP)],((Boss_PICKUP_TC_n03G)))
    set Boss_PICKUP_TC_n03G=null
endfunction


function Boss_I064_n03G takes nothing returns nothing
    if GetItemTypeIdG(GetManipulatedItem())=='I064' then
        if Quest_I064_On and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I0DP'),6)then
            set Quest_I064_On=false
            call TimerStart(NewTimer(0),0,false,function Boss_I064_2_n03G)
            call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I0DP'),6)
            call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,30,"|c00FF0000Note: | The flame to the bridge of energy inside the lava volcano has been extinguished. Now you can cross the bridge.")
        endif
    endif
endfunction


function Boss_EnumDestructable_n03G takes nothing returns nothing
    local real x=GetDestructableX(GetEnumDestructable())
    local real y=GetDestructableY(GetEnumDestructable())
    local rect r
    if GetDestructableTypeId(GetEnumDestructable())=='Volc' then
        set bj_lastCreatedRegion=CreateRegion()
        set r=Rect(x-$80,y-$80,x+$80,y+$80)
        call RegionAddRect(bj_lastCreatedRegion,r)
        call TriggerRegisterEnterRegion(ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,0)),bj_lastCreatedRegion,null)
        call SaveInteger(BYHT,Boss_root_n03G,0,LoadInteger(BYHT,Boss_root_n03G,0)+1)
        call SaveInteger(BYHT2,Boss_root_n03G,-LoadInteger(BYHT,Boss_root_n03G,0),GetHandleId(bj_lastCreatedRegion))
        call SaveReal(BYHT,Boss_root_n03G,GetHandleId(bj_lastCreatedRegion),x)
        call SaveReal(BYHT,Boss_root_n03G,-GetHandleId(bj_lastCreatedRegion),y)
        set bj_lastCreatedRegion=null
        call RemoveRect(r)
        set r=null
    endif
endfunction


function Boss_Init_n03G takes nothing returns nothing
    local rect r=Rect($4C00,-$C60,$57A0,-$E0)
    set bj_lastCreatedRegion=CreateRegion()
    set Boss_root_n03G=malloc()
    set Boss_Unit_n03G=gg_unit_n03G_0815
    call ShowUnit(Boss_Unit_n03G,false)
    call PauseUnit(Boss_Unit_n03G,true)
    call SetUnitInvulnerable(Boss_Unit_n03G,true)
    set Boss_PICKUP_TC_n03G=(TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function Boss_I064_n03G)))))
    call SaveInteger(BYHT2,Boss_root_n03G,0,GetHandleId(CreateTrigger()))
    call SaveInteger(BYHT,Boss_root_n03G,GetHandleId(ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,0))),LoadInteger(BYHT,Boss_root_n03G,0))
    call TriggerAddCondition(ConvertVersion(LoadInteger(BYHT2,Boss_root_n03G,0)),Filter(function Boss_Start_n03G))
    call RemoveRect(r)
    set r=null
endfunction

function Boss_SetUnitUseMove_func_h01K takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call SetUnitPropWindow((Je[(id)]),bj_DEGTORAD*GetUnitDefaultPropWindow((Je[(id)])))
    call s__Trig_remove((Boss_SetUnitUseMove_V_h01K[id]))
    set Boss_SetUnitUseMove_V_h01K[id]=0
endfunction


function Boss_SetUnitUseMove_h01K takes unit u,boolean b returns nothing
    if UnitAlive(u)then
        if not b then
            call SetUnitPropWindow(u,0)
            if Boss_SetUnitUseMove_V_h01K[(GetUnitUserData((u)))]==null then
                set Boss_SetUnitUseMove_V_h01K[(GetUnitUserData((u)))]=AddUnitDeathTrigB((GetUnitUserData((u))),function Boss_SetUnitUseMove_func_h01K)
            endif
        else
            call SetUnitPropWindow(u,bj_DEGTORAD*GetUnitDefaultPropWindow(u))
            if Boss_SetUnitUseMove_V_h01K[(GetUnitUserData((u)))]!=null then
                call s__Trig_remove((Boss_SetUnitUseMove_V_h01K[(GetUnitUserData((u)))]))
                set Boss_SetUnitUseMove_V_h01K[(GetUnitUserData((u)))]=0
            endif
        endif
    endif
endfunction

function Boss_RemoveBuff7_h01K takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer i
    if Boss_Buff7_timer_h01K[id]!=null and u==(Je[(id)])then
        set i=ReleaseTimer(Boss_Buff7_timer_h01K[id],"[TimerUtils]Error:218")
        call ModifyUnitArmor(id,750)
        call RemoveUnitBJ(Boss_Spell_unit2[i],31)
        call GroupRemoveUnit(Boss_Buff7_group_h01K,u)
        call s__Trig_remove((Boss_Buff7_death_h01K[id]))
        call Boss_Spell_deallocate(i)
        set Boss_Buff7_death_h01K[id]=0
        set Boss_Buff7_timer_h01K[id]=null
        call Unit_Cancel_Counter($F5,id)
    endif
endfunction

function Boss_AddBuff7_4_h01K takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:219")
    local real x=Boss_Spell_X[i]
    local real y=Boss_Spell_Y[i]
    local unit u
    local group g=CreateGroup()
    call GroupEnumUnitsInRange(g,x,y,325.+75,null)
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        if IsUnitInRangeXY(u,x,y,325.)then
            if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($EA60)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            endif
        endif
    endloop
    call DestroyGroup(g)
    set g=null
    call Boss_Spell_deallocate(i)
endfunction

function Boss_AddBuff7_3_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    set Boss_Spell_X[i]=Boss_Spell_X[i]-.1
    if Boss_Spell_X[i]<=0 or UnitAlive(Boss_Spell_unit1[i])==false then
        call Boss_RemoveBuff7_h01K(Boss_Spell_unit1[i])
    else
        if GetUnitAbilityLevel(Boss_Spell_unit1[i],'B07P')==0 then
            call IssueTargetOrderById(Boss_Spell_unit2[i],$D0200,Boss_Spell_unit1[i])
        endif
    endif
endfunction

function Boss_AddBuff7_2_h01K takes nothing returns nothing
    call Boss_RemoveBuff7_h01K(GetTriggerUnit())
endfunction

function Boss_AddBuff7_h01K takes unit whichUnit,unit u,real r returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer i
    if UnitAlive(u)and u==(Je[(id)])then
        if Boss_Buff7_timer_h01K[id]==null then
            set i=Boss_Spell_allocate()
            set Boss_Buff7_timer_h01K[id]=NewTimer(i)
            set Boss_Buff7_death_h01K[id]=AddUnitDeathTrigB(id,function Boss_AddBuff7_2_h01K)
            call TimerStart(Boss_Buff7_timer_h01K[id],.1,true,function Boss_AddBuff7_3_h01K)
            call Unit_App_Counter($F6,id)
            set Boss_Spell_unit1[i]=u
            set CR=false
            set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',GetUnitX(u),GetUnitY(u),0)
            call UnitAddAbility(Boss_Spell_unit2[i],'Amls')
            set CR=true
            call IssueTargetOrderById(Boss_Spell_unit2[i],$D0200,Boss_Spell_unit1[i])
            call ModifyUnitArmor(id,-750)
            set Boss_Spell_X[i]=r
        else
            set i=(alloc__hpv(GetHandleId((Boss_Buff7_timer_h01K[id]))))
            if IsUnitInGroup(u,Boss_Buff7_group_h01K)==false then
                call GroupAddUnit(Boss_Buff7_group_h01K,u)
                set Boss_Spell_X[i]=r
            else
                call Boss_RemoveBuff7_h01K(u)
                set i=Boss_Spell_allocate()
                set Boss_Spell_unit1[i]=whichUnit
                set Boss_Spell_unit2[i]=u
                set Boss_Spell_X[i]=GetUnitX(u)
                set Boss_Spell_Y[i]=GetUnitY(u)
                call Ltv(LAv("bigbloodex-nosplat-nogutz.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],1.5))
                call TimerStart(NewTimer(i),.2,false,function Boss_AddBuff7_4_h01K)
            endif
        endif
    endif
endfunction

function Boss_AddBuff_4_2_2_h01K takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:220")
    call ModifyUnitMpRegen(id,500)
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0V1','B07Q')
    call Unit_Cancel_Counter($F7,id)
    set Boss_Buff_4_2_h01K[id]=null
endfunction

function Boss_AddBuff_4_2_1_h01K takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if UnitAlive(u)and u==(Je[(id)])then
        if Boss_Buff_4_2_h01K[id]==null then
            set Boss_Buff_4_2_h01K[id]=NewTimer(id)
            call ModifyUnitMpRegen(id,-500)
            call UnitAddAbilityBY(u,'A0V1')
            call Unit_App_Counter($F8,id)
        endif
        call TimerStart(Boss_Buff_4_2_h01K[id],.5,false,function Boss_AddBuff_4_2_2_h01K)
    endif
endfunction

function Boss_AddBuff_4_2_h01K takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit Unit=(Je[(id)])
    local unit u
    local real x
    local real y
    if UnitAlive(Unit)then
        set x=GetUnitX(Unit)
        set y=GetUnitY(Unit)
        call GroupEnumUnitsInRange(G,x,y,600.+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,600.)then
                if IsUnitAliveAndEnemyNotAvul(u,Unit)then
                    call Boss_AddBuff_4_2_1_h01K(u)
                endif
            endif
        endloop
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:221")
    endif
    set Unit=null
    set u=null
endfunction

function Boss_AddBuff_4_1_2_h01K takes nothing returns nothing
    local integer id=s__Trig_P
    call s__Trig_remove(s__Trig_Index)
    if Boss_Buff_4_h01K[id]>0 then
        call DeUnitBeCureRatio(id,Boss_Buff_4_h01K[id])
        set Boss_Buff_4_h01K[id]=0
    endif
endfunction

function Boss_AddBuff_4_1_h01K takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if UnitAlive(u)and u==(Je[(id)])then
        if Boss_Buff_4_h01K[id]==0 then
            set Boss_Buff_4_h01K[id]=ModifyUnitBeCureRatio(id,-20)
            call AddUnitDeathTrigB(id,function Boss_AddBuff_4_1_2_h01K)
        else
            if(100*s__unitseate_table_v[(Boss_Buff_4_h01K[id])])>-100 then
                call UnitBeCureRatioChange(id,Boss_Buff_4_h01K[id],(100*s__unitseate_table_v[(Boss_Buff_4_h01K[id])])-20)
            endif
        endif
    endif
endfunction

function Boss_Unit_3_Ability_2_func002_h01K takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=(GetUnitUserData((GetEnumUnit())))
    local real x
    local real y
    local unit u
    local group g
    set x=GetUnitX(GetEnumUnit())+Boss_Spell_X[index]
    set y=GetUnitY(GetEnumUnit())+Boss_Spell_Y[index]
    call SetUnitX(GetEnumUnit(),x)
    call SetUnitY(GetEnumUnit(),y)
    call GroupEnumUnitsInRange(G,x,y,Boss_Spell_Z[i]+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,Boss_Spell_Z[i])and not IsUnitInGroup(u,Boss_Spell_group2[i])then
            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                call GroupAddUnit(Boss_Spell_group2[i],u)
                call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u),(($C350)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType(17)),((0)*1.),(""))
            endif
        endif
    endloop
    if Boss_Spell_data1[i]>=16 then
        call GroupRemoveUnit(Boss_Spell_group1[i],GetEnumUnit())
        call SetUnitUserData(GetEnumUnit(),0)
        call KillUnit(GetEnumUnit())
        call DestroyEffect(Boss_Spell_eff[index])
        call Boss_Spell_deallocate(index)
    endif
endfunction

function Boss_Unit_3_Ability_2_func_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x
    local real y
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    if Boss_Spell_data1[i]==1 then
        set Boss_Spell_Z[i]=75
        set x=0
        loop
            exitwhen x>=360
            set index=Boss_Spell_allocate()
            set Boss_Spell_group1[index]=CreateGroup()
            set Boss_Spell_X[index]=32*Cos(x*bj_DEGTORAD)
            set Boss_Spell_Y[index]=32*Sin(x*bj_DEGTORAD)
            set CR=FALSE
            set Boss_Spell_unit1[index]=CreateUnit(Player($F),'e001',Boss_Spell_X[i],Boss_Spell_Y[i],x)
            call SetUnitX(Boss_Spell_unit1[index],Boss_Spell_X[i])
            call SetUnitY(Boss_Spell_unit1[index],Boss_Spell_Y[i])
            call SetUnitScale(Boss_Spell_unit1[index],.5,0,0)
            call SetUnitUserData(Boss_Spell_unit1[index],index)
            call GroupAddUnit(Boss_Spell_group1[i],Boss_Spell_unit1[index])
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\CarrionSwarm\\CarrionSwarmMissile.mdl",Boss_Spell_unit1[index],"origin")
            set CR=true
            set x=x+45
        endloop
        call TimerStart(NewTimer(i),.03,true,function Boss_Unit_3_Ability_2_func_h01K)
    else
        set index=Boss_Spell_data1[0]
        set Boss_Spell_data1[0]=i
        call ForGroup(Boss_Spell_group1[i],function Boss_Unit_3_Ability_2_func002_h01K)
        set Boss_Spell_data1[0]=index
        set Boss_Spell_Z[i]=Boss_Spell_Z[i]+7.5
        if Boss_Spell_data1[i]==16 then
            call DestroyGroup(Boss_Spell_group1[i])
            call DestroyGroup(Boss_Spell_group2[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:222")
        endif
    endif
endfunction

function Boss_Unit_3_Ability_2_h01K takes nothing returns nothing
    local integer i
    if GetTriggerUnit()==Boss_Unit_3_h01K then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=GetTriggerUnit()
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=0
        set Boss_Spell_group1[i]=CreateGroup()
        set Boss_Spell_group2[i]=CreateGroup()
        set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[i])
        set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[i])
        call TimerStart(NewTimer(i),.3,false,function Boss_Unit_3_Ability_2_func_h01K)
        call Ltv(LAv("acid ex.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],1.2))
    endif
endfunction

function Boss_Unit_3_Ability_1_func_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x
    local real y
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        set Boss_Spell_data2[i]=5
        call PauseUnit(Boss_Spell_unit1[i],true)
        call TimerStart(GetExpiredTimer(),.33,true,function Boss_Unit_3_Ability_1_func_h01K)
        call SetUnitAnimationByIndex(Boss_Spell_unit1[i],6)
        set x=GetUnitX(Boss_Spell_unit1[i])+$C8*CosBJ(GetUnitFacing(Boss_Spell_unit1[i]))
        set y=GetUnitY(Boss_Spell_unit1[i])+$C8*SinBJ(GetUnitFacing(Boss_Spell_unit1[i]))
        call SetUnitPosition(Boss_Spell_unit2[i],x,y)
        call m2v(Boss_Spell_unit2[i],3,'A500','B500',true)
        set index=LVv('e03F',GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]),GetUnitFacing(Boss_Spell_unit1[i]))
        call Lqv(LDv(index,3),2)
    elseif Boss_Spell_data1[i]==1 then
        if UnitAlive(Boss_Spell_unit1[i])then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
            call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((Boss_Spell_unit2[i])),(((($4E20)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((20)*1.))*1.),(("|c0080FF80")))
            call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",Boss_Spell_unit2[i],"origin"))
        else
            set Boss_Spell_data2[i]=0
        endif
        if Boss_Spell_data2[i]>0 then
            call m2v(Boss_Spell_unit2[i],3,'A500','B500',true)
            call SetUnitAnimationByIndex(Boss_Spell_unit1[i],6)
            set index=LVv('e03F',GetUnitX(Boss_Spell_unit1[i]),GetUnitY(Boss_Spell_unit1[i]),GetUnitFacing(Boss_Spell_unit1[i]))
            call Lqv(LDv(index,3),2)
        else
            set Boss_Spell_data1[i]=2
            if UnitAlive(Boss_Spell_unit1[i])then
                call SetUnitAnimation(Boss_Spell_unit1[i],"stand")
            endif
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
            call TimerStart(GetExpiredTimer(),.1,false,function Boss_Unit_3_Ability_1_func_h01K)
        endif
    else
        call PauseUnit(Boss_Spell_unit1[i],false)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:223")
    endif
endfunction

function Boss_Unit_3_Ability_1_h01K takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    if GetTriggerUnit()==Boss_Unit_3_h01K then
        if EvelId==274 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=GetTriggerUnit()
            set Boss_Spell_unit2[i]=GetSpellTargetUnit()
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=0
            call TimerStart(NewTimer(i),.0,false,function Boss_Unit_3_Ability_1_func_h01K)
        elseif EvelId==272 then
            call NewTextTagInTarget_B(Boss_Unit_HM,"!",18,$FF,$FF,$FF)
        endif
    endif
endfunction

function Boss_Unit_2_Ability_2_func_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local unit u
    if Boss_Spell_data1[i]>0 then
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
        set x=(GetUnitX(II[(Boss_Spell_data2[i])]))+Boss_Spell_X[i]
        set y=(GetUnitY(II[(Boss_Spell_data2[i])]))+Boss_Spell_Y[i]
        if IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY)==FALSE then
            call LKv(Boss_Spell_data2[i],x)
            call Llv(Boss_Spell_data2[i],y)
        else
            set Boss_Spell_data1[i]=0
            set x=(GetUnitX(II[(Boss_Spell_data2[i])]))
            set y=(GetUnitY(II[(Boss_Spell_data2[i])]))
        endif
        if Boss_Spell_data1[i]<20 then
            set x=(GetUnitX(II[(Boss_Spell_data2[i])]))
            set y=(GetUnitY(II[(Boss_Spell_data2[i])]))
            call GroupEnumUnitsInRange(G,x,y,100,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null or IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])
                call GroupRemoveUnit(G,u)
            endloop
            if u!=null then
                set Boss_Spell_data1[i]=0
            endif
        endif
        if Boss_Spell_data1[i]==0 then
            call LMv(Boss_Spell_data2[i],"darkportalcast.mdl")
            call Ltv(Boss_Spell_data2[i])
            call Ltv(LAv("warpdarktarget.mdl",x,y,.85))
            set Boss_Spell_data2[i]=LAv("",x,y,1.)
            call TimerStart(GetExpiredTimer(),.5,false,function Boss_Unit_2_Ability_2_func_h01K)
        endif
    elseif Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=-1
        call LMv(Boss_Spell_data2[i],"VoidDrown.mdl")
        call TimerStart(GetExpiredTimer(),.03125,true,function Boss_Unit_2_Ability_2_func_h01K)
    else
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
        if Boss_Spell_data1[i]<-$76C then
            call Ltv(Boss_Spell_data2[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:224")
        else
            set x=(GetUnitX(II[(Boss_Spell_data2[i])]))
            set y=(GetUnitY(II[(Boss_Spell_data2[i])]))
            call GroupEnumUnitsInRange(G,x,y,325,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$FA)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                    set Boss_x[0]=GetUnitX(u)
                    set Boss_y[0]=GetUnitY(u)
                    set Boss_x[1]=Boss_x[0]-x
                    set Boss_y[1]=Boss_y[0]-y
                    set Boss_z[0]=SquareRoot(Boss_x[1]*Boss_x[1]+Boss_y[1]*Boss_y[1])
                    if Boss_z[0]>0 then
                        set Boss_z[1]=6.25/ Boss_z[0]
                        if Boss_z[1]>1 then
                            set Boss_z[1]=1
                        endif
                        call SetUnitX(u,Boss_x[0]-Boss_x[1]*Boss_z[1])
                        call SetUnitY(u,Boss_y[0]-Boss_y[1]*Boss_z[1])
                    endif
                endif
            endloop
        endif
    endif
endfunction

function Boss_Unit_2_Ability_2_h01K takes nothing returns nothing
    local integer i
    if GetTriggerUnit()==Boss_Unit_2_h01K then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=GetTriggerUnit()
        set Boss_Spell_X[i]=CosBJ(GetUnitFacing(Boss_Spell_unit1[i]))*20
        set Boss_Spell_Y[i]=SinBJ(GetUnitFacing(Boss_Spell_unit1[i]))*20
        set Boss_Spell_Z[i]=0
        set Boss_Spell_data1[i]=50
        set Boss_Spell_data2[i]=LNv("darktrail.mdx",GetUnitX(Boss_Spell_unit1[i])+Boss_Spell_X[i]*4,GetUnitY(Boss_Spell_unit1[i])+Boss_Spell_Y[i]*4,$96,1.5)
        call TimerStart(NewTimer(i),.03125,true,function Boss_Unit_2_Ability_2_func_h01K)
    endif
endfunction

function Boss_AddBuff_2_2_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local integer id
    local unit u
    local unit u2
    local group g=Boss_Spell_group1[i]
    local real x
    local real y
    local real z
    local real m
    local real r
    local real array x2
    local real array y2
    local boolean array ex
    call GroupAddGroup(Boss_Buff_2_1_group_h01K,g)
    loop
        set u2=FirstOfGroup(g)
        exitwhen u2==null
        call GroupRemoveUnit(g,u2)
        set index=(GetUnitUserData((u2)))
        set x=GetUnitX(u2)
        set y=GetUnitY(u2)
        set z=125+Boss_Spell_Z[index]*5
        set m=(100+Boss_Spell_Z[index]*$F)*.03125
        call GroupEnumUnitsInRange(G,x,y,z+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,z)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                    set id=(GetUnitUserData((u)))
                    if ex[id]!=true then
                        set ex[id]=true
                        call GroupAddUnit(Boss_Spell_group2[i],u)
                        set x2[id]=GetUnitX(u)
                        set y2[id]=GetUnitY(u)
                    endif
                    set x2[0]=x2[id]-x
                    set y2[0]=y2[id]-y
                    set r=SquareRoot(x2[0]*x2[0]+y2[0]*y2[0])
                    if r>0 then
                        set r=(m/ r)
                        if r>1. then
                            set r=1.
                        endif
                        set x2[id]=x2[id]-x2[0]*r
                        set y2[id]=y2[id]-y2[0]*r
                    endif
                endif
            endif
        endloop
    endloop
    set g=Boss_Spell_group2[i]
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        set id=(GetUnitUserData((u)))
        call SetUnitX(u,x2[id])
        call SetUnitY(u,y2[id])
    endloop
    set g=Boss_Spell_group1[i]
    call GroupAddGroup(Boss_Buff_2_1_group_h01K,g)
    set ex[0]=true
    set r=(100000.-TimerGetRemaining(GameTimer))
    loop
        set u2=FirstOfGroup(g)
        exitwhen u2==null
        call GroupRemoveUnit(g,u2)
        set index=(GetUnitUserData((u2)))
        if Boss_Spell_Z[index]>$A then
            set Boss_Spell_X[index]=Boss_Spell_X[index]+1
            if Boss_Spell_X[index]>$A0 then
                set x=GetUnitX(u2)
                set y=GetUnitY(u2)
                call GroupRemoveUnit(Boss_Buff_2_1_group_h01K,u2)
                call SetUnitUserData(u2,0)
                call KillUnit(u2)
                call DestroyEffect(Boss_Spell_eff[index])
                call Boss_Spell_deallocate(index)
                call Ltv(LAv("NewGroundEX.mdx",x,y,2.5))
                call GroupEnumUnitsInRange(G,x,y,$96+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$96)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($186A0)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("|c0080FF80")))
                        endif
                    endif
                endloop
            else
                set ex[0]=false
            endif
        else
            if Boss_Spell_Y[index]<r then
                call GroupRemoveUnit(Boss_Buff_2_1_group_h01K,u2)
                call DestroyEffect(Boss_Spell_eff[index])
                call KillUnit(u2)
                call Boss_Spell_deallocate(index)
            else
                set ex[0]=false
            endif
        endif
    endloop
    if ex[0]then
        call DestroyGroup(Boss_Buff_2_1_group_h01K)
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group1[i])
        set Boss_Buff_2_1_group_h01K=null
        set Boss_Spell_unit1[i]=null
        set Boss_Spell_group1[i]=null
        set Boss_Spell_group2[i]=null
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:225")
    endif
endfunction

function Boss_AddBuff_2_1_get_h01K takes nothing returns nothing
    local unit u=GetEnumUnit()
    local integer index=(GetUnitUserData((u)))
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    set Boss_x[1]=x-Boss_x[0]
    set Boss_y[1]=y-Boss_y[0]
    set Boss_z[1]=SquareRoot(Boss_x[1]*Boss_x[1]+Boss_y[1]*Boss_y[1])
    if IsUnitInRangeXY(Boss_Spell_unit1[0],x,y,125+Boss_Spell_Z[index]*5.)and Boss_z[1]<Boss_z[0]then
        set Boss_z[0]=Boss_z[1]
        set Boss_Spell_data1[0]=index
    endif
    set u=null
endfunction

function Boss_AddBuff_2_1_h01K takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer i
    local integer index
    local unit u2
    if UnitAlive(u)and u==(Je[(id)])then
        if Boss_Buff_2_1_group_h01K==null then
            set Boss_Buff_2_1_group_h01K=CreateGroup()
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=Boss_Unit_2_h01K
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=0
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_group2[i]=CreateGroup()
            call TimerStart(NewTimer(i),.03125,true,function Boss_AddBuff_2_2_h01K)
        endif
        set u2=Boss_Spell_unit1[0]
        set i=Boss_Spell_data1[0]
        set Boss_Spell_unit1[0]=u
        set Boss_Spell_data1[0]=0
        set Boss_x[0]=GetUnitX(u)
        set Boss_y[0]=GetUnitY(u)
        set Boss_z[0]=999
        call ForGroup(Boss_Buff_2_1_group_h01K,function Boss_AddBuff_2_1_get_h01K)
        set index=Boss_Spell_data1[0]
        if index==0 then
            set index=Boss_Spell_allocate()
            set CR=FALSE
            set u=CreateUnit(Player($F),'e001',Boss_x[0],Boss_y[0],0)
            call SetUnitX(u,Boss_x[0])
            call SetUnitY(u,Boss_y[0])
            call SetUnitScale(u,.75,0,0)
            call SetUnitUserData(u,index)
            call GroupAddUnit(Boss_Buff_2_1_group_h01K,u)
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("VoidDrown.mdl",u,"origin")
            set Boss_Spell_unit1[index]=u
            set Boss_Spell_X[index]=0
            set Boss_Spell_Y[index]=(100000.-TimerGetRemaining(GameTimer))+20
            set Boss_Spell_Z[index]=0
            set CR=true
        else
            set u=Boss_Spell_unit1[index]
            if Boss_Spell_Z[index]<$A then
                set Boss_Spell_Y[index]=Boss_Spell_Y[index]+5
                set Boss_Spell_Z[index]=Boss_Spell_Z[index]+1
                call SetUnitScale(u,.75+.075*Boss_Spell_Z[index],0,0)
            else
                if Boss_Spell_Z[index]==10. then
                    set Boss_Spell_Z[index]=10.1
                    call SetUnitVertexColor(u,$FF,0+0,0+0,$FF)
                endif
            endif
        endif
        set Boss_Spell_data1[0]=i
        set Boss_Spell_unit1[0]=u2
        set u2=null
    endif
endfunction

function Boss_attack_2_h01K takes nothing returns nothing
    local unit attack=(mF)
    local unit target=(MF)
    if attack==Boss_Unit_2_h01K then
        call Boss_AddBuff_2_1_h01K(target)
        if GetRandomInt(1,$A)==1 then
            set Xm=PickRandomUnitInUnitRange(attack,$3E8)
            if Xm!=null then
                call IssuePointOrderById(attack,$D0097,GetUnitX(Xm),GetUnitY(Xm))
            endif
        endif
    endif
    if attack==Boss_Unit_3_h01K then
        if GetRandomInt(1,2)==1 then
            set Xm=PickRandomUnitInUnitRange(attack,$3E8)
            if Xm!=null then
                call IssueTargetOrderById(attack,$D0097,Xm)
            endif
        else
            call IssueImmediateOrderById(attack,$D009F)
        endif
    endif
    if attack==Boss_Unit_4_h01K then
        if(100000.-TimerGetRemaining(GameTimer))>Boss_Unit_4_ability1_cd_h01K then
            set Boss_Unit_4_ability1_cd_h01K=(100000.-TimerGetRemaining(GameTimer))+3
            call Boss_AddBuff_4_1_h01K(target)
        endif
    endif
    set attack=null
    set target=null
endfunction

function Boss_Ability6_02_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer v
    local real a
    local real b
    local real x
    local real y
    local unit u
    if Boss_Spell_data2[i]==0 then
        set Boss_Spell_data2[i]=1
        set Boss_Spell_data3[i]=0
        set a=GetUnitFacing(Boss_Spell_unit1[i])+GetRandomReal(-90,90)
        set b=$96
        set x=GetUnitX(Boss_Spell_unit1[i])+CosBJ(a)*b
        set y=GetUnitY(Boss_Spell_unit1[i])+SinBJ(a)*b
        set Boss_Spell_X[i]=x
        set Boss_Spell_Y[i]=y
        call SetUnitTimeScale(Boss_Spell_unit1[i],0)
        call NewTextTagInTarget_B(Boss_Unit_h01K,"|c008000FFCome out, my men!|r",18,$FF,$FF,$FF)
        call Lqv(LAv("ArcaneSeal.mdl",x,y,.5),3)
        call GroupEnumUnitsInRange(G,x,y,256.+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,256.)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",u,"origin"))
                endif
            endif
        endloop
        if Boss_Spell_data1[i]==1 then
            set Boss_Spell_unit2[i]=CreateUnit(GetOwningPlayer(Boss_Spell_unit1[i]),'h01S',x,y,GetUnitFacing(Boss_Spell_unit1[i]))
        elseif Boss_Spell_data1[i]==2 then
            set Boss_Spell_unit2[i]=CreateUnit(GetOwningPlayer(Boss_Spell_unit1[i]),'h01P',x,y,GetUnitFacing(Boss_Spell_unit1[i]))
        elseif Boss_Spell_data1[i]==3 then
            set Boss_Spell_unit2[i]=CreateUnit(GetOwningPlayer(Boss_Spell_unit1[i]),'h01R',x,y,GetUnitFacing(Boss_Spell_unit1[i]))
        endif
        call ShowUnit(Boss_Spell_unit2[i],false)
        call PauseUnit(Boss_Spell_unit2[i],true)
        call SetUnitInvulnerable(Boss_Spell_unit2[i],true)
        call TimerStart(GetExpiredTimer(),.1,true,function Boss_Ability6_02_h01K)
    elseif Boss_Spell_data2[i]==1 then
        set Boss_Spell_data3[i]=Boss_Spell_data3[i]+1
        set v=GetRandomInt(5,8)
        loop
            exitwhen v==0
            set a=GetRandomReal(0,6.28)
            set b=GetRandomReal(0,$FA)
            set x=Boss_Spell_X[i]+Cos(a)*b
            set y=Boss_Spell_Y[i]+Sin(a)*b
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x,y))
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",x+GetRandomReal(-50,50),y+GetRandomReal(-50,50)))
            set v=v-1
        endloop
        set x=Boss_Spell_X[i]
        set y=Boss_Spell_Y[i]
        call GroupEnumUnitsInRange(G,x,y,256.+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,256.)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",u,"origin"))
                    if IsUnitInGroup(u,Boss_Spell_group1[i])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.2)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    else
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.1)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    endif
                endif
            endif
        endloop
        if Boss_Spell_data3[i]>=$A then
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
            call SetUnitAnimation(Boss_Spell_unit1[i],"Attack - 2")
            set Boss_Spell_data2[i]=2
            set Boss_Spell_data3[i]=0
        endif
        call TimerStart(GetExpiredTimer(),1,false,function Boss_Ability6_02_h01K)
    elseif Boss_Spell_data2[i]==2 then
        set Boss_Spell_data2[i]=3
        if Boss_Spell_data1[i]==1 then
            set Boss_Unit_2_h01K=Boss_Spell_unit2[i]
            call UnitAddPAttackTrig((GetUnitUserData((Boss_Unit_2_h01K))),function Boss_attack_2_h01K)
            call RegisterSpellEffectEvent('A0V4',function Boss_Unit_2_Ability_2_h01K)
        elseif Boss_Spell_data1[i]==2 then
            set Boss_Unit_3_h01K=Boss_Spell_unit2[i]
            call UnitAddPAttackTrig((GetUnitUserData((Boss_Unit_3_h01K))),function Boss_attack_2_h01K)
            call RegisterSpellChannelEvent('A0V2',function Boss_Unit_3_Ability_1_h01K)
            call RegisterSpellEffectEvent('A0V2',function Boss_Unit_3_Ability_1_h01K)
            call RegisterSpellEndCastEvent('A0V2',function Boss_Unit_3_Ability_1_h01K)
            call RegisterSpellEffectEvent('A0V3',function Boss_Unit_3_Ability_2_h01K)
        elseif Boss_Spell_data1[i]==3 then
            set Boss_Unit_4_h01K=Boss_Spell_unit2[i]
            call UnitAddPAttackTrig((GetUnitUserData((Boss_Unit_4_h01K))),function Boss_attack_2_h01K)
            call TimerStart(NewTimer((GetUnitUserData((Boss_Unit_4_h01K)))),.33,true,function Boss_AddBuff_4_2_h01K)
        endif
        call ShowUnit(Boss_Spell_unit2[i],true)
        call SetUnitAnimation(Boss_Spell_unit2[i],"Attack")
        call TimerStart(GetExpiredTimer(),1,false,function Boss_Ability6_02_h01K)
    else
        set v=GetRandomInt($A,$D)
        loop
            exitwhen v==0
            set a=GetRandomReal(0,6.28)
            set b=GetRandomReal(0,300)
            set x=Boss_Spell_X[i]+Cos(a)*b
            set y=Boss_Spell_Y[i]+Sin(a)*b
            call Ltv(Lfv(LIv("DarkRing.mdl",x,y,GetRandomReal(0,5),5,GetRandomReal(0,6.28),GetRandomReal($F,85)),0,0,0,$FF))
            set v=v-1
        endloop
        set x=Boss_Spell_X[i]
        set y=Boss_Spell_Y[i]
        call GroupEnumUnitsInRange(G,x,y,350.+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350.)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                    if IsUnitInGroup(u,Boss_Spell_group1[i])then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE))*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    else
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",u,"origin"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.8)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    endif
                endif
            endif
        endloop
        call DestroyGroup(Boss_Spell_group1[i])
        call PauseUnit(Boss_Spell_unit1[i],false)
        call PauseUnit(Boss_Spell_unit2[i],false)
        call SetUnitInvulnerable(Boss_Spell_unit2[i],false)
        call SetUnitNocontrol((GetUnitUserData((Boss_Spell_unit1[i]))),false)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:226")
        call Boss_Spell_deallocate(i)
        set Boss_Index_h01K=0
    endif
endfunction

function Boss_Ability6_01_h01K takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    local integer v=0
    set Boss_exp_h01K=Boss_exp_h01K+1
    set Boss_Index_h01K=6
    set Boss_Spell_unit1[i]=Boss_Unit_h01K
    if Boss_Unit_2_h01K==null then
        set v=v+1
        if GetRandomInt(1,v)==1 then
            set Boss_Spell_data1[i]=1
        endif
    endif
    if Boss_Unit_3_h01K==null then
        set v=v+1
        if GetRandomInt(1,v)==1 then
            set Boss_Spell_data1[i]=2
        endif
    endif
    if Boss_Unit_4_h01K==null then
        set v=v+1
        if GetRandomInt(1,v)==1 then
            set Boss_Spell_data1[i]=3
        endif
    endif
    set Boss_Spell_data2[i]=0
    set Boss_Spell_group1[i]=CreateGroup()
    call TimerStart(NewTimer(i),.75,false,function Boss_Ability6_02_h01K)
    call SetUnitNocontrol((GetUnitUserData((Boss_Spell_unit1[i]))),true)
    call SetUnitAnimation(Boss_Spell_unit1[i],"spell")
    call PauseUnit(Boss_Spell_unit1[i],true)
endfunction

function Boss_Ability5_03_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer eff
    local unit u
    local integer v=2
    local real l
    local real t
    local real x
    local real y
    local real a
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
    set t=Boss_Spell_data1[i]/(32*6.)
    set Boss_Spell_Z[i]=Boss_Spell_Z[i]+(270./(32*6.))*bj_DEGTORAD
    set l=t*750.
    set eff=0
    loop
        exitwhen v==0
        set v=v-1
        if HaveSavedInteger(BYHT,Boss_Spell_data2[i],v)then
            set a=Boss_Spell_Z[i]+bj_PI*v
            set x=Boss_Spell_X[i]+l*Cos(a)
            set y=Boss_Spell_Y[i]+l*Sin(a)
            set eff=LoadInteger(BYHT,Boss_Spell_data2[i],v)
            call SetUnitFacing(II[(eff)],((Atan2(y-(GetUnitY(II[(eff)])),x-(GetUnitX(II[(eff)]))))*1.)*bj_RADTODEG)
            call LKv(eff,x)
            call Llv(eff,y)
            call GroupEnumUnitsInRange(G,x,y,150.+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,150.)then
                    exitwhen IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])
                endif
            endloop
            if u!=null or Boss_Spell_data1[i]<=0 then
                call GroupEnumUnitsInRange(G,x,y,325.+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,325.)then
                        if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",u,"origin"))
                            call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.5)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                        endif
                    endif
                endloop
                call Ltv(LAv("ShadowAssault.mdx",x,y,4))
                call Ltv(eff)
                call RemoveSavedInteger(BYHT,Boss_Spell_data2[i],v)
            elseif ModuloInteger(Boss_Spell_data1[i],8)==0 then
                call Ltv(LAv("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",x,y,1.5))
            endif
        endif
    endloop
    if eff==0 then
        if Boss_Spell_data3[i]==0 then
            call Boss_SetUnitUseMove_h01K(Boss_Spell_unit2[i],true)
        endif
        call free(Boss_Spell_data2[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:227")
        call Boss_Spell_deallocate(i)
    elseif not UnitAlive(Boss_Spell_unit1[i])and Boss_Spell_data3[i]==0 then
        set Boss_Spell_data3[i]=1
        call Boss_SetUnitUseMove_h01K(Boss_Spell_unit2[i],true)
    endif
endfunction

function Boss_Ability5_02_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer eff
    local integer v=2
    local real t
    if not UnitAlive(Boss_Spell_unit1[i])then
        set v=2
        loop
            exitwhen v==0
            set v=v-1
            set eff=LoadInteger(BYHT,Boss_Spell_data2[i],v)
            call Ltv(eff)
            call RemoveSavedInteger(BYHT,Boss_Spell_data2[i],v)
        endloop
        call Boss_SetUnitUseMove_h01K(Boss_Spell_unit2[i],true)
        call free(Boss_Spell_data2[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:228")
        call Boss_Spell_deallocate(i)
    else
        set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
        set t=1.-Boss_Spell_data1[i]/ 32.*3
        loop
            exitwhen v==0
            set v=v-1
            set eff=LoadInteger(BYHT,Boss_Spell_data2[i],v)
            call SetUnitFlyHeight(II[(eff)],((200.*t)*1.),0)
            call Lfv(eff,bI[eff],BI[eff],cI[eff],R2I($FF*t))
        endloop
        if Boss_Spell_data1[i]==32 then
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        endif
        if Boss_Spell_data1[i]<=0 then
            if Boss_Index_h01K==5 then
                set Boss_Index_h01K=0
                call PauseUnit(Boss_Spell_unit1[i],false)
                call SetUnitNocontrol((GetUnitUserData((Boss_Spell_unit1[i]))),false)
            endif
            set Boss_Spell_data1[i]=32*6
            call TimerStart(GetExpiredTimer(),.03125,true,function Boss_Ability5_03_h01K)
        endif
    endif
endfunction

function Boss_Ability5_01_h01K takes unit u returns nothing
    local integer i=Boss_Spell_allocate()
    local integer eff
    local integer v
    local real x
    local real y
    local real a
    set Boss_Index_h01K=5
    set Boss_Ability_cd_5_h01K=32*60
    set Boss_Spell_unit1[i]=Boss_Unit_h01K
    set Boss_Spell_unit2[i]=u
    set Boss_Spell_data1[i]=32*3
    set Boss_Spell_data2[i]=malloc()
    set Boss_Spell_data3[i]=0
    set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit2[i])
    set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit2[i])
    set Boss_Spell_Z[i]=GetRandomReal(0,3.14)
    set v=2
    loop
        exitwhen v==0
        set v=v-1
        set a=Boss_Spell_Z[i]+v*$B4
        set eff=Lnv(Boss_Spell_X[i]+750.*Cos(a),Boss_Spell_Y[i]+750.*Sin(a),a+.5*bj_PI)
        call LMv(eff,"Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilMissile.mdl")
        call SetUnitScale(II[(eff)],((2.75)*1.),0,0)
        call SaveInteger(BYHT,Boss_Spell_data2[i],v,eff)
        call Lfv(eff,55,55,55,0)
    endloop
    call Ltv(LAv("Abilities\\Spells\\Items\\AIso\\AIsoTarget.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],2))
    call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],3))
    call TimerStart(NewTimer(i),.03125,true,function Boss_Ability5_02_h01K)
    call Boss_SetUnitUseMove_h01K(Boss_Spell_unit2[i],false)
    call SetUnitNocontrol((GetUnitUserData((Boss_Spell_unit1[i]))),true)
    call SetUnitAnimation(Boss_Spell_unit1[i],"spell")
    call SetUnitTimeScale(Boss_Spell_unit1[i],.75)
    call PauseUnit(Boss_Spell_unit1[i],true)
endfunction

function Boss_Ability4_end_h01K takes nothing returns nothing
    local integer i
    if Boss_Ability_tm_4_h01K!=null then
        set Boss_Ability_tm_4_h01K=null
        if Boss_Index_h01K==4 then
            set Boss_Index_h01K=0
        endif
        set i=ReleaseTimer(Boss_Ability_tm_4_h01K,"[TimerUtils]Error:229")
        if Boss_Spell_data1[i]==0 then
            set Boss_Ability_cd_4_h01K=2
        endif
        call Boss_Spell_deallocate(i)
        call PauseUnit(Boss_Unit_h01K,false)
    endif
endfunction

function Boss_Ability4_03_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local unit u
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
    if Boss_Spell_data1[i]==0 or UnitAlive(u)==false then
        set x=GetUnitX(Boss_Spell_unit2[i])
        set y=GetUnitY(Boss_Spell_unit2[i])
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.25))
        call GroupEnumUnitsInRange(G,x,y,325,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])then
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((GetUnitState(Boss_Spell_unit2[i],UNIT_STATE_MAX_LIFE)*2.)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            endif
        endloop
        call DestroyEffect(Boss_Spell_eff[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:230")
        call Boss_Spell_deallocate(i)
    endif
endfunction

function Boss_Ability4_02_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer v
    local integer index
    local integer ba
    local real x=GetUnitX(Boss_Unit_h01K)
    local real y=GetUnitY(Boss_Unit_h01K)
    local real z
    local real a
    local real b
    local unit u
    if Boss_Spell_data1[i]==0 then
        set v=GetRandomInt(2,3)
        set z=$F0+GetUnitFlyHeight(Boss_Unit_h01K)
        loop
            exitwhen v==0
            set v=v-1
            set a=GetRandomReal(0,6.28)
            set b=GetRandomReal(.05*bj_PI,.95*bj_PI)
            set ba=CreateBarrageTypeC(x+750*Cos(a)*Sin(b),y+750*Sin(a)*Sin(b),z+750*Cos(b),Boss_Unit_h01K)
            call LMv(s__barrage_model[ba],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[ba])],((3.)*1.),0,0)
            set s__barrage_impact_z[ba]=$F0
            call SetBarrageFlightRadian(ba,GetRandomReal(.4,.6))
            set s__barrage_speed[ba]=.03125*$3E8
            set s__barrage_acceleration[ba]=.03125*.03125*$BB8
            call dAe(ba)
        endloop
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        if Boss_Spell_data2[i]>=64 then
            set Boss_Spell_data1[i]=1
            call Ltv(LAv("Abilities\\Spells\\Other\\HowlOfTerror\\HowlCaster.mdl",x,y,4))
            call SetUnitAnimation(Boss_Unit_h01K,"spell")
            call TimerStart(GetExpiredTimer(),.5,false,function Boss_Ability4_02_h01K)
        endif
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Index_h01K=0
        call PauseUnit(Boss_Unit_h01K,false)
        set Boss_Spell_data1[i]=2
        set v=7
        loop
            exitwhen v==0
            set v=v-1
            set index=$C
            set a=(bj_PI/ 3.5)*v
            loop
                exitwhen index==0
                set index=index-1
                set b=index*50.
                call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x+b*Cos(a),y+b*Sin(a),3))
            endloop
        endloop
        call GroupEnumUnitsInRange(G,x,y,$4FB,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$4B0)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,Boss_Unit_h01K)then
                set index=Boss_Spell_allocate()
                set Boss_Spell_unit1[index]=Boss_Unit_h01K
                set Boss_Spell_unit2[index]=u
                set Boss_Spell_data1[index]=R2I(3/ .1)
                set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",u,"origin")
                call TimerStart(NewTimer(index),.1,true,function Boss_Ability4_03_h01K)
            endif
        endloop
    endif
endfunction

function Boss_Ability4_01_h01K takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Index_h01K=4
    set Boss_Ability_tm_4_h01K=NewTimer(i)
    set Boss_Ability_cd_4_h01K=32*60
    call PauseUnit(Boss_Unit_h01K,true)
    call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),true)
    call SetUnitAnimation(Boss_Unit_h01K,"stand ready")
    set Boss_Spell_data1[i]=0
    set Boss_Spell_data2[i]=0
    set Boss_Spell_unit1[i]=Boss_Unit_h01K
    call TimerStart(Boss_Ability_tm_4_h01K,.03125,true,function Boss_Ability4_02_h01K)
    call NewTextTagInTarget_B(Boss_Unit_h01K,"|c008000FFWant you??|r",18,$FF,$FF,$FF)
endfunction

function Boss_Ability3_02_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Boss_Index_h01K==999 then
        call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),false)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:231")
        call Boss_Spell_deallocate(i)
    else
        if Boss_Spell_data1[i]==0 then
            set Boss_Spell_data1[i]=1
            call SetUnitTimeScale(Boss_Unit_h01K,2)
            call QueueUnitAnimation(Boss_Unit_h01K,"stand")
            call TimerStart(GetExpiredTimer(),.3,false,function Boss_Ability3_02_h01K)
            call NewTextTagInTarget_B(Boss_Unit_h01K,"|c008000FFSo vulnerable!|r",18,$FF,$FF,$FF)
        elseif Boss_Spell_data1[i]==1 then
            set Boss_Spell_data1[i]=2
            call Ltv(LAv("bigbloodex-nosplat-nogutz.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],.75))
            call KillUnit(Boss_Spell_unit2[i])
            call TimerStart(GetExpiredTimer(),.3,false,function Boss_Ability3_02_h01K)
            call SetUnitTimeScale(Boss_Unit_h01K,1)
        else
            call PauseUnit(Boss_Unit_h01K,false)
            call IssueImmediateOrderById(Boss_Unit_h01K,$D0004)
            set Boss_Index_h01K=0
            call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),false)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:232")
            call Boss_Spell_deallocate(i)
        endif
    endif
endfunction

function Boss_Ability3_01_h01K takes unit u returns nothing
    local integer i=Boss_Spell_allocate()
    local real x=GetUnitX(u)-GetUnitX(Boss_Unit_h01K)
    local real y=GetUnitY(u)-GetUnitY(Boss_Unit_h01K)
    local real z=Atan2BJ(y,x)
    set Boss_Index_h01K=3
    call PauseUnit(Boss_Unit_h01K,true)
    call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),true)
    call SetUnitAnimation(Boss_Unit_h01K,"attack - 2")
    call SetUnitTimeScale(Boss_Unit_h01K,.2)
    set Boss_Spell_data1[i]=0
    set Boss_Spell_unit2[i]=u
    set Boss_Spell_X[i]=GetUnitX(u)
    set Boss_Spell_Y[i]=GetUnitY(u)
    call TimerStart(NewTimer(i),1.5,false,function Boss_Ability3_02_h01K)
    call SetUnitFacing(Boss_Unit_h01K,z)
    set z=400./ SquareRoot(x*x+y*y)
    set x=GetUnitX(u)-x*z
    set y=GetUnitY(u)-y*z
    call SetUnitX(Boss_Unit_h01K,x)
    call SetUnitY(Boss_Unit_h01K,y)
    call m2v(u,5,'A500','B500',true)
    call NewTextTagInTarget_B(Boss_Unit_h01K,"|c008000FFGot you|r",18,$FF,$FF,$FF)
endfunction

function Boss_Ability2_02_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    local group g
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        call TimerStart(GetExpiredTimer(),1,false,function Boss_Ability2_02_h01K)
        set Boss_Spell_X[i]=GetUnitX(Boss_Unit_h01K)
        set Boss_Spell_Y[i]=GetUnitY(Boss_Unit_h01K)
        set Boss_Spell_Z[i]=GetUnitFacing(Boss_Unit_h01K)*bj_DEGTORAD
        set Boss_x[0]=Cos(Boss_Spell_Z[i])
        set Boss_y[0]=Sin(Boss_Spell_Z[i])
        set index=0
        loop
            set Boss_z[0]=300+index*600.
            set Boss_x[1]=Boss_Spell_X[i]+Boss_x[0]*Boss_z[0]
            set Boss_y[1]=Boss_Spell_Y[i]+Boss_y[0]*Boss_z[0]
            set CR=false
            set u=CreateUnit(Player($B),'e001',Boss_x[1],Boss_y[1],Boss_z[1]*bj_RADTODEG+90)
            call SetUnitX(u,Boss_x[1])
            call SetUnitY(u,Boss_y[1])
            call SetUnitScale(u,3.75,0,0)
            call UnitApplyTimedLife(u,0,30.)
            call UnitAddAbility(u,'A0V0')
            set CR=true
            call Ltv(LAv("IceNova.mdl",Boss_x[1],Boss_y[1],3))
            call Lqv(LAv("BlizzardEruption.mdx",Boss_x[1],Boss_y[1],3),2)
            call Ltv(LAv("FreezingRing.mdl",Boss_x[1],Boss_y[1],2.75))
            call Ltv(LAv("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",Boss_x[1],Boss_y[1],5))
            call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],375,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,Boss_x[1],Boss_y[1],275)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,Boss_Unit_h01K)then
                    call UnitDamageTargetBY(((Boss_Unit_h01K)),((u)),(((($186A0)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    call Lqv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",GetUnitX(u),GetUnitY(u),1.5),2)
                    if IsUnitType(u,UNIT_TYPE_HERO)then
                        call zhv((GetPlayerId((GetOwningPlayer(u)))),25,1)
                    endif
                endif
            endloop
            set index=index+1
            exitwhen index==5
        endloop
    else
        call PauseUnit(Boss_Unit_h01K,false)
        set Boss_Index_h01K=0
        call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),false)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:233")
        call Boss_Spell_deallocate(i)
    endif
endfunction

function Boss_Ability2_01_h01K takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Index_h01K=2
    set Boss_Ability_cd_2_h01K=40*32
    call PauseUnit(Boss_Unit_h01K,true)
    call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),true)
    call SetUnitAnimation(Boss_Unit_h01K,"attack - 2")
    set Boss_Spell_data1[i]=0
    call TimerStart(NewTimer(i),1,false,function Boss_Ability2_02_h01K)
    call NewTextTagInTarget_B(Boss_Unit_h01K,"|c008000FFCalm down!|r",18,$FF,$FF,$FF)
    call UnitAnimationSetLoopEffect(UnitAnimationAddEffect(UnitAppAnimation(Boss_Unit_h01K),"Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl","hand right"),"Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl","hand right",.25)
endfunction

function Boss_Ability1_03_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local integer index2
    local unit u
    local group g
    if Boss_Spell_data1[i]==0 then
        set index=Boss_Spell_data2[Boss_Ability_data_1_h01K]
        loop
            set index2=Boss_Spell_data2[index]
            call DestroyEffect(Boss_Spell_eff[index])
            call KillUnit(Boss_Spell_unit1[index])
            call Boss_Spell_deallocate(index)
            exitwhen index2==Boss_Spell_data2[Boss_Ability_data_1_h01K]
            set index=index2
        endloop
        call Boss_Spell_deallocate(Boss_Ability_data_1_h01K)
        set Boss_Ability_data_1_h01K=0
        call SetUnitAnimationByIndex(Boss_Unit_h01K,5)
        call SetUnitTimeScale(Boss_Unit_h01K,.3)
        set Boss_Spell_data1[i]=1
        set Boss_Spell_data2[i]=0
        set Boss_Spell_X[i]=GetUnitX(Boss_Unit_h01K)
        set Boss_Spell_Y[i]=GetUnitY(Boss_Unit_h01K)
        set Boss_Spell_Z[i]=GetUnitFacing(Boss_Unit_h01K)*bj_DEGTORAD
        call TimerStart(GetExpiredTimer(),1,false,function Boss_Ability1_03_h01K)
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Spell_data1[i]=2
        call SetUnitTimeScale(Boss_Spell_unit1[i],1.)
        call TimerStart(GetExpiredTimer(),.05,true,function Boss_Ability1_03_h01K)
    elseif Boss_Spell_data1[i]==2 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        set Boss_x[0]=Boss_Spell_data2[i]*65.
        set Boss_z[0]=(12.5*bj_DEGTORAD)
        set Boss_z[1]=Boss_Spell_Z[i]-(Boss_z[0]*4)
        set index=0
        set g=Boss_Spell_group1[i]
        call GroupClear(G)
        loop
            set Boss_x[1]=Boss_Spell_X[i]+Boss_x[0]*Cos(Boss_z[1])
            set Boss_y[1]=Boss_Spell_Y[i]+Boss_x[0]*Sin(Boss_z[1])
            call DestroyEffect(AddSpecialEffect("darkpillar.mdx",Boss_x[1],Boss_y[1]))
            call GroupEnumUnitsInRange(g,Boss_x[1],Boss_y[1],$AF,null)
            loop
                set u=FirstOfGroup(g)
                exitwhen u==null
                call GroupRemoveUnit(g,u)
                if IsUnitInRangeXY(u,Boss_x[1],Boss_y[1],125)and IsUnitInGroup(u,Boss_Spell_group2[i])==false and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,Boss_Unit_h01K)then
                    call GroupAddUnit(G,u)
                    call GroupAddUnit(Boss_Spell_group2[i],u)
                endif
            endloop
            set index=index+1
            exitwhen index==9
            set Boss_z[1]=Boss_z[1]+Boss_z[0]
        endloop
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            call UnitDamageTargetBY(((Boss_Unit_h01K)),((u)),(((($C350)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        endloop
        set g=null
        if Boss_Spell_data2[i]==8 then
            call QueueUnitAnimation(Boss_Unit_h01K,"stand")
        endif
        if Boss_Spell_data2[i]>=20 then
            set Boss_Spell_data1[i]=3
            call TimerStart(GetExpiredTimer(),1,false,function Boss_Ability1_03_h01K)
        endif
    else
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:234")
        set Boss_Index_h01K=0
        set Boss_Ability_data_1_h01K=-30*1
        call PauseUnit(Boss_Unit_h01K,false)
        call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),false)
        call SetUnitTimeScale(Boss_Unit_h01K,1)
    endif
endfunction

function Boss_Ability1_02_h01K takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Spell_X[Boss_Ability_data_1_h01K]=30.
    set Boss_Index_h01K=1
    set Boss_Spell_group1[i]=CreateGroup()
    set Boss_Spell_group2[i]=CreateGroup()
    call PauseUnit(Boss_Unit_h01K,true)
    call DestroyEffect(AddSpecialEffectTarget("blackchakraexplosion.mdl",Boss_Unit_h01K,"origin"))
    call SetUnitAnimation(Boss_Unit_h01K,"Spell")
    set Boss_Spell_data1[i]=0
    call TimerStart(NewTimer(i),1,false,function Boss_Ability1_03_h01K)
    call SetUnitNocontrol((GetUnitUserData((Boss_Unit_h01K))),true)
endfunction

function Boss_Ability1_01_h01K takes integer add returns nothing
    local integer index
    local integer index2
    if add>0 then
        if Boss_Ability_data_1_h01K==0 then
            set Boss_Ability_data_1_h01K=Boss_Spell_allocate()
            set Boss_Spell_data1[Boss_Ability_data_1_h01K]=0
            set Boss_Spell_data2[Boss_Ability_data_1_h01K]=0
            set Boss_Spell_X[Boss_Ability_data_1_h01K]=3.
            set Boss_Spell_Y[Boss_Ability_data_1_h01K]=0
        endif
        if Boss_Spell_data1[Boss_Ability_data_1_h01K]+add>$A then
            set add=$A-Boss_Spell_data1[Boss_Ability_data_1_h01K]
        endif
        set index=Boss_Spell_data2[Boss_Ability_data_1_h01K]
        set Boss_x[0]=GetUnitX(Boss_Unit_h01K)
        set Boss_y[0]=GetUnitY(Boss_Unit_h01K)
        set Boss_z[0]=6.283/ I2R(Boss_Spell_data1[Boss_Ability_data_1_h01K]+add)
        loop
            exitwhen add==0
            set index2=index
            set index=Boss_Spell_allocate()
            if index2==0 then
                set Boss_Spell_data1[index]=index
                set Boss_Spell_data2[index]=index
                set Boss_Spell_data2[Boss_Ability_data_1_h01K]=index
            else
                set Boss_Spell_data1[index]=index2
                set Boss_Spell_data2[index]=Boss_Spell_data2[index2]
                set Boss_Spell_data1[Boss_Spell_data1[index2]]=index
                set Boss_Spell_data2[index2]=index
            endif
            set Boss_Spell_X[index]=Boss_z[0]*Boss_Spell_data1[Boss_Ability_data_1_h01K]
            set Boss_z[1]=Boss_Spell_Y[Boss_Ability_data_1_h01K]+Boss_Spell_X[index]
            set Boss_x[1]=Boss_x[0]+500.*Cos(Boss_z[1])
            set Boss_y[1]=Boss_y[0]+500.*Sin(Boss_z[1])
            set CR=false
            set Boss_Spell_unit1[index]=CreateUnit(Player($F),'e001',Boss_x[1],Boss_y[1],Boss_z[1]*bj_RADTODEG+90)
            call SetUnitX(Boss_Spell_unit1[index],Boss_x[1])
            call SetUnitY(Boss_Spell_unit1[index],Boss_y[1])
            call UnitAddAbility(Boss_Spell_unit1[index],'Amrf')
            call UnitRemoveAbility(Boss_Spell_unit1[index],'Amrf')
            call SetUnitFlyHeight(Boss_Spell_unit1[index],270,0)
            call SetUnitScale(Boss_Spell_unit1[index],2.,0,0)
            set CR=true
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("orbofcorruption.mdl",Boss_Spell_unit1[index],"origin")
            set Boss_Spell_data1[Boss_Ability_data_1_h01K]=Boss_Spell_data1[Boss_Ability_data_1_h01K]+1
            set add=add-1
        endloop
        if Boss_Spell_data1[Boss_Ability_data_1_h01K]==$A then
            call Boss_Ability1_02_h01K()
        endif
    else
        if Boss_Spell_data1[Boss_Ability_data_1_h01K]+add<0 then
            set add=0-Boss_Spell_data1[Boss_Ability_data_1_h01K]
        endif
        set index=Boss_Spell_data2[Boss_Ability_data_1_h01K]
        loop
            exitwhen add==0
            set index2=Boss_Spell_data2[index]
            if index2!=index then
                set Boss_Spell_data1[index2]=Boss_Spell_data1[index]
                set Boss_Spell_data2[Boss_Spell_data1[index]]=index2
                set Boss_Spell_data2[Boss_Ability_data_1_h01K]=index2
            else
                set index2=0
                call Boss_Spell_deallocate(Boss_Ability_data_1_h01K)
                set Boss_Ability_data_1_h01K=0
            endif
            call DestroyEffect(Boss_Spell_eff[index])
            call KillUnit(Boss_Spell_unit1[index])
            call Boss_Spell_deallocate(index)
            exitwhen index2==0
            set index=index2
            set Boss_Spell_data1[Boss_Ability_data_1_h01K]=Boss_Spell_data1[Boss_Ability_data_1_h01K]-1
            set add=add+1
        endloop
    endif
endfunction

function Boss_Death_h01K takes nothing returns nothing
    if Boss_Index_h01K==3 or Boss_Index_h01K==5 then
        call SetUnitTimeScale(Boss_Unit_h01K,1)
    endif
    set Boss_Index_h01K=999
endfunction

function Boss_Ability999_h01K takes unit u returns nothing
    if IsUnitInRange(u,Boss_Unit_h01K,$7D0)then
        call SetWidgetLife(Boss_Unit_h01K,GetWidgetLife(Boss_Unit_h01K)+GetUnitState(Boss_Unit_h01K,UNIT_STATE_MAX_LIFE)*.2)
        call Ltv(LAv("bloodex-special.mdx",GetUnitX(u),GetUnitY(u),1.5))
        if Boss_Ability999_cd_h01K==0 then
            set Boss_Ability999_cd_h01K=16
            call Ltv(LAv("bloodslam.max",GetUnitX(Boss_Unit_h01K),GetUnitY(Boss_Unit_h01K),1.5))
            call NewTextTagInTarget_B(Boss_Unit_h01K,"|c008000FFNo one today, you do not want to leave out!!!|r",18,$FF,$FF,$FF)
        endif
    endif
endfunction

function Boss_attack_h01K takes nothing returns nothing
    local unit attack=(mF)
    local unit target=(MF)
    if Boss_Ability_data_1_h01K>=0 then
        call Boss_Ability1_01_h01K(1)
    endif
    if Boss_Index_h01K==0 then
        call Boss_AddBuff7_h01K(attack,target,5)
    endif
    set attack=null
    set target=null
endfunction

function Boss_damager_h01K takes nothing returns nothing
    local unit attack=(mF)
    local unit target=(MF)
    if Boss_Index_h01K==1 or Boss_Index_h01K==6 then
        call DamageMinus(GetDamage()*.99)
        if GetDamage()>=GetWidgetLife(target)then
            call SetWidgetLife(target,1)
            call DamageMinus(GetDamage())
        endif
    else
        if Boss_Ability_data_1_h01K>0 then
            set Boss_Spell_X[Boss_Ability_data_1_h01K]=3.
        endif
    endif
    set attack=null
    set target=null
endfunction

function Boss_Start_2_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real life=GetWidgetLife(Boss_Unit_h01K)
    local real maxlife=GetUnitState(Boss_Unit_h01K,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local boolean is_stop=(Control_use[(GetUnitUserData(((Boss_Unit_h01K))))])or GetUnitAbilityLevel(Boss_Unit_h01K,'BUdd')>0 or GetUnitAbilityLevel(Boss_Unit_h01K,'B01N')>0 or GetUnitAbilityLevel(Boss_Unit_h01K,'B06P')>0
    local integer index
    local integer index2
    local unit u
    local group g
    if Boss_Index_h01K==999 then
        if Boss_Ability_data_1_h01K>0 then
            call Boss_Ability1_01_h01K(-$A)
        endif
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:235")
        call free(Boss_root_h01K)
    endif
    if Boss_Ability999_cd_h01K>0 then
        set Boss_Ability999_cd_h01K=Boss_Ability999_cd_h01K-1
    endif
    if Boss_Index_h01K==0 and Boss_exp_h01K<3 then
        if Boss_exp_h01K==0 then
            if v<.7 then
                call Boss_Ability6_01_h01K()
            endif
        elseif Boss_exp_h01K==1 then
            if v<.6 then
                call Boss_Ability6_01_h01K()
            endif
        elseif Boss_exp_h01K==2 then
            if v<.4 then
                call Boss_Ability6_01_h01K()
            endif
        endif
    endif
    if Boss_Ability_no_8_h01K==0 then
        if v<=.5 and Boss_Index_h01K==0 then
            set Boss_Index_h01K=8
            set Boss_Ability_no_8_h01K=1
            call PauseUnit(Boss_Unit_h01K,false)
            call SetUnitInvulnerable(Boss_Unit_h01K,true)
            call DestroyEffect(AddSpecialEffectTarget("grin curse.mdl",Boss_Unit_h01K,"overhead"))
            call SetUnitAnimation(Boss_Unit_h01K,"Spell")
            call NewTextTagInTarget_B(Boss_Unit_h01K,"|c008000FFNo one today, you do not want to leave out!!|r",18,$FF,$FF,$FF)
        endif
    elseif Boss_Ability_no_8_h01K>0 then
        set Boss_Ability_no_8_h01K=Boss_Ability_no_8_h01K+1
        if Boss_Ability_no_8_h01K>=32 then
            set Boss_Index_h01K=0
            set Boss_Ability_no_8_h01K=-1
            call DestroyEffect(AddSpecialEffectTarget("firenova2.mdl",Boss_Unit_h01K,"origin"))
            call DestroyEffect(AddSpecialEffectTarget("firegold.mdl",Boss_Unit_h01K,"origin"))
            call PauseUnit(Boss_Unit_h01K,false)
            call SetUnitInvulnerable(Boss_Unit_h01K,false)
            call SetWidgetLife(Boss_Unit_h01K,maxlife*.9)
            call GroupEnumUnitsInRange(G,GetUnitX(Boss_Unit_h01K),GetUnitY(Boss_Unit_h01K),$7D0,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Unit_h01K)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",u,"origin"))
                    call KillUnitBJ(u)
                endif
            endloop
        endif
    endif
    if Boss_Ability_data_1_h01K>0 then
        set index=Boss_Spell_data2[Boss_Ability_data_1_h01K]
        set Boss_x[0]=GetUnitX(Boss_Unit_h01K)
        set Boss_y[0]=GetUnitY(Boss_Unit_h01K)
        set Boss_z[0]=6.283/ I2R(Boss_Spell_data1[Boss_Ability_data_1_h01K])
        set Boss_z[1]=Boss_Spell_Y[Boss_Ability_data_1_h01K]+.03
        set Boss_Spell_Y[Boss_Ability_data_1_h01K]=Boss_z[1]
        set bj_forLoopAIndex=Boss_Spell_data1[Boss_Ability_data_1_h01K]
        loop
            set bj_forLoopAIndex=bj_forLoopAIndex-1
            set Boss_z[1]=Boss_z[1]+Boss_z[0]
            set index2=Boss_Spell_data2[index]
            set Boss_x[1]=Boss_x[0]+500.*Cos(Boss_z[1])
            set Boss_y[1]=Boss_y[0]+500.*Sin(Boss_z[1])
            call SetUnitX(Boss_Spell_unit1[index],Boss_x[1])
            call SetUnitY(Boss_Spell_unit1[index],Boss_y[1])
            call SetUnitFacing(Boss_Spell_unit1[index],Boss_z[1]*bj_RADTODEG+90)
            exitwhen index2==Boss_Spell_data2[Boss_Ability_data_1_h01K]
            set index=index2
        endloop
        if bj_forLoopAIndex!=0 then
            call BJDebugMsg(I2S(bj_forLoopAIndex))
        endif
        if Boss_Index_h01K==0 and Boss_Spell_data1[Boss_Ability_data_1_h01K]>=$A then
            call Boss_Ability1_02_h01K()
        endif
        if Boss_Spell_X[Boss_Ability_data_1_h01K]>0 then
            set Boss_Spell_X[Boss_Ability_data_1_h01K]=Boss_Spell_X[Boss_Ability_data_1_h01K]-.03125
        else
            set Boss_Spell_X[Boss_Ability_data_1_h01K]=3.
            call Boss_Ability1_01_h01K(-1)
        endif
    elseif Boss_Ability_data_1_h01K<0 then
        set Boss_Ability_data_1_h01K=Boss_Ability_data_1_h01K+1
    endif
    call SetRect(bj_lastMoveRect,6400,-$3BC0,$2A00,-6624)
    call GroupEnumUnitsInRect(G,bj_lastMoveRect,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitAliveAndEnemy(u,Boss_Unit_h01K)and IsUnitType(u,UNIT_TYPE_HERO)and IsUnitInRegion(Boss_Region_h01K,u)then
            if IsUnitInGroup(u,Boss_Spell_group1[i])==false then
                call GroupAddUnit(Boss_Spell_group1[i],u)
            endif
        endif
    endloop
    set index=0
    set index2=0
    set Boss_Spell_unit2[i]=null
    set g=Boss_Spell_group1[i]
    set Boss_Spell_group1[i]=Boss_Spell_group2[i]
    set Boss_Spell_group2[i]=g
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        if IsUnitInRegion(Boss_Region_h01K,u)then
            call GroupAddUnit(Boss_Spell_group1[i],u)
            if UnitAlive(u)then
                if IsUnitInRange(u,Boss_Unit_h01K,$708)then
                    set index=index+1
                else
                    set index2=index2+1
                    if GetRandomInt(1,index2)==1 then
                        set Boss_Spell_unit2[i]=u
                    endif
                endif
            endif
        endif
    endloop
    set g=null
    if Boss_Index_h01K==0 then
        if index==0 and index2>0 then
            call Boss_Ability3_01_h01K(Boss_Spell_unit2[i])
        endif
    endif
    if Boss_Ability_cd_5_h01K>0 then
        set Boss_Ability_cd_5_h01K=Boss_Ability_cd_5_h01K-1
    else
        if v<=.5 and Boss_Index_h01K==0 and is_stop==false then
            set index=0
            set Boss_Spell_unit2[i]=null
            call GroupEnumUnitsInRange(G,GetUnitX(Boss_Unit_h01K),GetUnitY(Boss_Unit_h01K),$3E8,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Unit_h01K)and GetUnitAbilityLevel(u,'Avul')==0 then
                    set index=index+1
                    if GetRandomInt(1,index)==1 then
                        set Boss_Spell_unit2[i]=u
                    endif
                endif
            endloop
            if index>0 then
                call SetUnitFacing(Boss_Unit_h01K,Atan2BJ(GetUnitY(Boss_Spell_unit2[i])-GetUnitY(Boss_Unit_h01K),GetUnitX(Boss_Spell_unit2[i])-GetUnitX(Boss_Unit_h01K)))
                call Boss_Ability5_01_h01K(Boss_Spell_unit2[i])
            endif
        endif
    endif
    if Boss_Ability_cd_4_h01K>0 then
        set Boss_Ability_cd_4_h01K=Boss_Ability_cd_4_h01K-1
    else
        if v<=.6 and Boss_Index_h01K==0 and is_stop==false then
            set index=0
            set Boss_Spell_unit2[i]=null
            call GroupEnumUnitsInRange(G,GetUnitX(Boss_Unit_h01K),GetUnitY(Boss_Unit_h01K),$4B0,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Unit_h01K)and GetUnitAbilityLevel(u,'Avul')==0 then
                    set index=index+1
                    if GetRandomInt(1,index)==1 then
                        set Boss_Spell_unit2[i]=u
                    endif
                endif
            endloop
            if index>0 then
                call Boss_Ability4_01_h01K()
            endif
        endif
    endif
    if Boss_Ability_cd_2_h01K>0 then
        set Boss_Ability_cd_2_h01K=Boss_Ability_cd_2_h01K-1
    else
        if v<=.8 and Boss_Index_h01K==0 then
            set index=0
            set Boss_Spell_unit2[i]=null
            call GroupEnumUnitsInRange(G,GetUnitX(Boss_Unit_h01K),GetUnitY(Boss_Unit_h01K),$7D0,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,Boss_Unit_h01K)and IsUnitType(u,UNIT_TYPE_HERO)then
                    set index=index+1
                    if GetRandomInt(1,index)==1 then
                        set Boss_Spell_unit2[i]=u
                    endif
                endif
            endloop
            if index>0 then
                call SetUnitFacing(Boss_Unit_h01K,Atan2BJ(GetUnitY(Boss_Spell_unit2[i])-GetUnitY(Boss_Unit_h01K),GetUnitX(Boss_Spell_unit2[i])-GetUnitX(Boss_Unit_h01K)))
                call Boss_Ability2_01_h01K()
            endif
        endif
    endif
    if Boss_Index_h01K==4 then
        if is_stop then
            call Boss_Ability4_end_h01K()
        endif
    endif
    if life<=0 then
        set Boss_Index_h01K=999
    endif
endfunction

function Boss_Start_1_h01K takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x
    local real y
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        call SetUnitScale(II[(LoadInteger(BYHT,Boss_root_h01K,3))],((3.+Boss_Spell_data2[i]*.0625)*1.),0,0)
        if Boss_Spell_data2[i]>=32 then
            set Boss_Spell_data1[i]=1
            set Boss_Spell_data2[i]=0
            set index=0
            loop
                call Ltv(LoadInteger(BYHT,Boss_root_h01K,index))
                call RemoveSavedInteger(BYHT,Boss_root_h01K,index)
                set index=index+1
                exitwhen index==3
            endloop
        endif
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        call SetUnitScale(II[(LoadInteger(BYHT,Boss_root_h01K,3))],((5.-Boss_Spell_data2[i]*.03125*4)*1.),0,0)
        if Boss_Spell_data2[i]>=32 then
            set Boss_Spell_data1[i]=2
            set Boss_Spell_data2[i]=0
        endif
    elseif Boss_Spell_data1[i]==2 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        call SetUnitScale(II[(LoadInteger(BYHT,Boss_root_h01K,3))],((1.+Boss_Spell_data2[i]*.2)*1.),0,0)
        set index=0
        loop
            set x=Boss_Spell_data2[i]*50.
            set y=index*30.*bj_DEGTORAD
            set Boss_x[0]=Boss_Spell_X[i]+x*Cos(y)
            set Boss_y[0]=Boss_Spell_Y[i]+x*Sin(y)
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",Boss_x[0],Boss_y[0]))
            set index=index+1
            exitwhen index>$C
        endloop
        if Boss_Spell_data2[i]>=18 then
            set Boss_Spell_data1[i]=3
            set Boss_Spell_data2[i]=0
            call ShowUnit(Boss_Unit_h01K,true)
            set lastspeaker=Boss_Unit_h01K
            call Playlines(GetUnitName(Boss_Unit_h01K),"You guys actually released me, you're done!!")
            call SetUnitAnimation(Boss_Unit_h01K,"attack")
            call QueueUnitAnimation(Boss_Unit_h01K,"stand")
            call TimerStart(Boss_tm_h01K,2,false,function Boss_Start_1_h01K)
        endif
    elseif Boss_Spell_data1[i]==3 then
        call Ltv(LoadInteger(BYHT,Boss_root_h01K,3))
        call RemoveSavedInteger(BYHT,Boss_root_h01K,3)
        call free(Boss_root_h01K)
        call UnitAddPAttackTrig((GetUnitUserData((Boss_Unit_h01K))),function Boss_attack_h01K)
        call UnitAddBeDamagerTrig((GetUnitUserData((Boss_Unit_h01K))),function Boss_damager_h01K)
        call AddUnitDeathTrigB((GetUnitUserData((Boss_Unit_h01K))),function Boss_Death_h01K)
        call TimerStart(Boss_tm_h01K,.03125,true,function Boss_Start_2_h01K)
        call PauseUnit(Boss_Unit_h01K,false)
        call SetUnitInvulnerable(Boss_Unit_h01K,false)
        set Boss_Spell_group1[i]=CreateGroup()
        set Boss_Spell_group2[i]=CreateGroup()
        set Boss_Buff7_group_h01K=CreateGroup()
    endif
endfunction

function Boss_Start_h01K takes nothing returns nothing
    local integer c=-3
    local integer id
    local real x
    local real y
    loop
        if HaveSavedInteger(BYHT,Boss_root_h01K,c)then
            set id=LoadInteger(BYHT,Boss_root_h01K,c)
            call RemoveItemByCharges(GetItemOfTypeFromUnit((Je[(id)]),'I04X'),7)
            call s__Trig_remove((LoadInteger(BYHT,Boss_root_h01K,id+3)))
            call RemoveSavedInteger(BYHT,Boss_root_h01K,id+3)
            call RemoveSavedInteger(BYHT,Boss_root_h01K,c)
        endif
        set c=c+1
        exitwhen c==0
    endloop
    set x=GetUnitX(Boss_Unit_h01K)
    set y=GetUnitY(Boss_Unit_h01K)
    call SaveInteger(BYHT,Boss_root_h01K,3,LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",x,y,3.))
    call TimerStart(Boss_tm_h01K,.03125,true,function Boss_Start_1_h01K)
    set c=Boss_Spell_allocate()
    set Boss_Spell_data1[c]=0
    set Boss_Spell_data2[c]=0
    set Boss_Spell_X[c]=x
    set Boss_Spell_Y[c]=y
    call alloc__hPv(GetHandleId((Boss_tm_h01K)),(c))
endfunction

function Boss_Expired_h01K takes nothing returns nothing
    local integer c=-3
    local integer id
    loop
        if HaveSavedInteger(BYHT,Boss_root_h01K,c)then
            set id=LoadInteger(BYHT,Boss_root_h01K,c)
            call s__Trig_remove((LoadInteger(BYHT,Boss_root_h01K,id+3)))
            call Ltv(LoadInteger(BYHT,Boss_root_h01K,c+3))
            call RemoveSavedInteger(BYHT,Boss_root_h01K,id+3)
            call RemoveSavedInteger(BYHT,Boss_root_h01K,c)
            call RemoveSavedInteger(BYHT,Boss_root_h01K,c+3)
        endif
        set c=c+1
        exitwhen c==0
    endloop
    set Boss_Index_h01K=-3
    set Boss_tm_h01K=null
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:236")
endfunction

function Boss_Heorrevive_h01K takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer c=LoadInteger(BYHT,Boss_root_h01K,id+3)
    call RemoveSavedInteger(BYHT,Boss_root_h01K,id+3)
    call s__Trig_remove((c))
    set Boss_Index_h01K=Boss_Index_h01K-1
    set c=Boss_Index_h01K
    loop
        if LoadInteger(BYHT,Boss_root_h01K,c)==id then
            call Ltv(LoadInteger(BYHT,Boss_root_h01K,c+3))
            if c<Boss_Index_h01K then
                call SaveInteger(BYHT,Boss_root_h01K,c,LoadInteger(BYHT,Boss_root_h01K,Boss_Index_h01K))
                call SaveInteger(BYHT,Boss_root_h01K,c+3,LoadInteger(BYHT,Boss_root_h01K,Boss_Index_h01K+3))
                set c=Boss_Index_h01K
            endif
            call RemoveSavedInteger(BYHT,Boss_root_h01K,c)
            call RemoveSavedInteger(BYHT,Boss_root_h01K,c+3)
            exitwhen true
        endif
        exitwhen c==-3
        set c=c-1
    endloop
endfunction

function Boss_Heordeath_h01K takes nothing returns nothing
    if Boss_Index_h01K<0 and IsUnitInRange(GetTriggerUnit(),Boss_Unit_h01K,350)and IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04X'),7)then
        if Boss_tm_h01K==null then
            set Boss_tm_h01K=NewTimer(0)
            call TimerStart(Boss_tm_h01K,60,false,function Boss_Expired_h01K)
        endif
        call SaveInteger(BYHT,Boss_root_h01K,Boss_Index_h01K,(GetUnitUserData((GetTriggerUnit()))))
        call SaveInteger(BYHT,Boss_root_h01K,Boss_Index_h01K+3,LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",GetUnitX(GetTriggerUnit()),GetUnitY(GetTriggerUnit()),1.))
        call SaveInteger(BYHT,Boss_root_h01K,(GetUnitUserData((GetTriggerUnit())))+3,ADD_HERO_REVIVE_EVENT((GetUnitUserData((GetTriggerUnit()))),function Boss_Heorrevive_h01K))
        set Boss_Index_h01K=Boss_Index_h01K+1
        if Boss_Index_h01K==0 then
            call Boss_Start_h01K()
        endif
    elseif Boss_Index_h01K==999 then
        call s__Trig_remove(s__Trig_Index)
    elseif Boss_Index_h01K>=0 then
        call Boss_Ability999_h01K(GetTriggerUnit())
    endif
endfunction

function Boss_Init_h01K takes nothing returns nothing
    local real x=10166.
    local real y=-14895.
    set Boss_Unit_h01K=CreateUnit(Player($B),'h01K',x,y,173.375)
    call ShowUnit(Boss_Unit_h01K,false)
    call PauseUnit(Boss_Unit_h01K,true)
    call SetUnitInvulnerable(Boss_Unit_h01K,true)
    set Boss_root_h01K=malloc()
    set Boss_func_h01K=function Boss_Heordeath_h01K
    set Boss_Region_h01K=CreateRegion()
    call RegionAddRect(Boss_Region_h01K,gg_rct_BYQMD____________________000)
endfunction

function Boss_Ability_1_3_n03N takes nothing returns nothing
    local integer i=s__Trig_P2[s__Trig_Index]
    call UnitRemoveAbilityandBuffBY(Je[Boss_Spell_data2[i]],'A0WL','B08F')
    set Boss_Spell_X[i]=$B
    set s__Trig_P2[s__Trig_Index]=0
    call s__Trig_remove(s__Trig_Index)
endfunction

function Boss_Ability_1_2_2_n03N takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local real x=GetUnitX(Boss_Spell_unit1[i])
    local real y=GetUnitY(Boss_Spell_unit1[i])
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$FA)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))and GetUnitAbilityLevel(u,'Avul')==0 then
                call UnitDamageTargetBY(((Je[(id)])),(u),(($2710)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType(17)),((0)*1.),(""))
            endif
        endif
    endloop
    if Boss_Spell_X[i]<=1 then
        call KillUnit(Boss_Spell_unit1[i])
        call DestroyEffect(Boss_Spell_eff[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:237")
        call Unit_Cancel_Counter($F9,id)
    else
        set Boss_Spell_X[i]=Boss_Spell_X[i]-1
    endif
endfunction

function Boss_Ability_1_2_n03N takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local integer targetid=Boss_Spell_data2[i]
    set Boss_Spell_X[i]=Boss_Spell_X[i]+1
    if Boss_Spell_X[i]==$A then
        set Boss_x[0]=GetUnitX(Je[targetid])
        set Boss_y[0]=GetUnitY(Je[targetid])
        call Lqv(LAv("Abilities\\Spells\\Undead\\Impale\\ImpaleHitTarget.mdl",Boss_x[0],Boss_y[0],3),2)
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",Boss_x[0],Boss_y[0]))
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",Boss_x[0],Boss_y[0]))
        set CR=FALSE
        set Boss_Spell_unit1[i]=CreateUnit(Player($F),'e001',Boss_x[0],Boss_y[0],Boss_z[1])
        call SetUnitX(Boss_Spell_unit1[i],Boss_x[0])
        call SetUnitY(Boss_Spell_unit1[i],Boss_y[0])
        call SetUnitFlyHeight(Boss_Spell_unit1[i],85,0)
        call SetUnitScale(Boss_Spell_unit1[i],3,0,0)
        set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",Boss_Spell_unit1[i],"origin")
        call SetUnitVertexColor(Boss_Spell_unit1[i],$FF,0,0,$FF)
        set CR=true
        call TimerStart(GetExpiredTimer(),.1,true,function Boss_Ability_1_2_n03N)
    elseif Boss_Spell_X[i]==$B then
        call UnitRemoveAbilityandBuffBY(Je[targetid],'A0WM','B08F')
        set s__Trig_P2[Boss_Spell_data3[i]]=0
        call s__Trig_remove((Boss_Spell_data3[i]))
        call KillUnit(Je[targetid])
    elseif Boss_Spell_X[i]<$A then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",Je[targetid],"origin"))
        call UnitDamageTargetBY((((Je[(id)]))),((Je[targetid])),(((($3E8)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
    else
        if Boss_Spell_unit1[i]==null then
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:238")
            call Unit_Cancel_Counter($FA,id)
        else
            set Boss_Spell_X[i]=30*2
            call TimerStart(GetExpiredTimer(),.5,true,function Boss_Ability_1_2_2_n03N)
        endif
        call Unit_Cancel_Counter($FB,targetid)
    endif
endfunction

function Boss_Ability_1_n03N takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    local integer id
    local integer targetid
    if EvelId==274 then
        set i=Boss_Spell_allocate()
        set id=(GetUnitUserData((GetTriggerUnit())))
        set targetid=(GetUnitUserData((GetSpellTargetUnit())))
        set Boss_Spell_data1[i]=id
        set Boss_Spell_data2[i]=targetid
        set Boss_Spell_data3[i]=AddUnitDeathTrigB(targetid,function Boss_Ability_1_3_n03N)
        set Boss_Spell_X[i]=0
        set Boss_Spell_unit1[i]=null
        call TimerStart(NewTimer(i),.5,true,function Boss_Ability_1_2_n03N)
        call UnitAddAbilityBY(Je[targetid],'A0WM')
        set s__Trig_P2[Boss_Spell_data3[i]]=i
        call Unit_App_Counter($FC,id)
        call Unit_App_Counter($FD,targetid)
    elseif EvelId==272 then
        call NewTextTagInTarget_B(GetSpellTargetUnit(),"|c00FF8080Send you hello!|r ",18,$FF,$FF,$FF)
    endif
endfunction

function Boss_Ability_2_2_n03N takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local real x
    local real y
    local unit u
    set x=GetUnitX(Boss_Spell_unit1[i])+Boss_Spell_X[i]
    set y=GetUnitY(Boss_Spell_unit1[i])+Boss_Spell_Y[i]
    if IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY)then
        set Boss_Spell_data2[i]=0
    else
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        call SetUnitX(Boss_Spell_unit1[i],x)
        call SetUnitY(Boss_Spell_unit1[i],y)
        call GroupEnumUnitsInRange(G,x,y,$96+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$96)and not IsUnitInGroup(u,Boss_Spell_group1[i])then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))and GetUnitAbilityLevel(u,'Avul')==0 then
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call UnitDamageTargetBY(((Je[(id)])),(u),(($C350)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType(17)),((0)*1.),(""))
                endif
            endif
        endloop
    endif
    if Boss_Spell_data2[i]<=0 then
        call KillUnit(Boss_Spell_unit1[i])
        call DestroyEffect(Boss_Spell_eff[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:239")
    endif
endfunction

function Boss_Ability_2_n03N takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    local integer id
    local integer v
    if EvelId==274 then
        set id=(GetUnitUserData((GetTriggerUnit())))
        set Boss_x[0]=GetUnitX((Je[(id)]))
        set Boss_y[0]=GetUnitY((Je[(id)]))
        set Boss_x[1]=GetSpellTargetX()-Boss_x[0]
        set Boss_y[1]=GetSpellTargetY()-Boss_y[0]
        if Boss_x[1]==0 and Boss_y[1]==0 then
            set Boss_z[1]=GetUnitFacing((Je[(id)]))*bj_DEGTORAD
        else
            set Boss_z[1]=Atan2(Boss_y[1],Boss_x[1])
        endif
        set Boss_z[0]=(175./ 6)*bj_DEGTORAD
        set Boss_z[1]=Boss_z[1]-Boss_z[0]*3
        set v=0
        loop
            set i=Boss_Spell_allocate()
            set Boss_Spell_data1[i]=id
            set Boss_Spell_data2[i]=46
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_X[i]=32*Cos(Boss_z[1])
            set Boss_Spell_Y[i]=32*Sin(Boss_z[1])
            set CR=FALSE
            set Boss_Spell_unit1[i]=CreateUnit(Player($F),'e001',Boss_x[0],Boss_y[0],Boss_z[1]*bj_DEGTORAD)
            call SetUnitX(Boss_Spell_unit1[i],Boss_x[0]+Boss_Spell_X[i])
            call SetUnitY(Boss_Spell_unit1[i],Boss_y[0]+Boss_Spell_Y[i])
            call SetUnitFlyHeight(Boss_Spell_unit1[i],85,0)
            call SetUnitScale(Boss_Spell_unit1[i],1.75,0,0)
            set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",Boss_Spell_unit1[i],"origin")
            set CR=true
            call TimerStart(NewTimer(i),.03125,true,function Boss_Ability_2_2_n03N)
            set v=v+1
            exitwhen v>=7
            set Boss_z[1]=Boss_z[1]+Boss_z[0]
        endloop
    elseif EvelId==272 then
        call NewTextTagInTarget_B(GetTriggerUnit(),"|c00FF8080Big wave of flame|r ",18,$FF,$FF,$FF)
    endif
endfunction

function Boss_Ability_3_2_n03N takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local real x
    local real y
    local unit u
    if Boss_Spell_data3[i]==0 then
        set Boss_Spell_data3[i]=1
        call PauseUnit((Je[(id)]),true)
        call TimerStart(GetExpiredTimer(),2.5,false,function Boss_Ability_3_2_n03N)
    elseif Boss_Spell_data3[i]==1 then
        set Boss_Spell_data3[i]=2
        call SetUnitAnimation((Je[(id)]),"death")
        call TimerStart(GetExpiredTimer(),.8,false,function Boss_Ability_3_2_n03N)
    elseif Boss_Spell_data3[i]==2 then
        set Boss_Spell_data3[i]=3
        call ShowUnit((Je[(id)]),false)
        call TimerStart(GetExpiredTimer(),.5,false,function Boss_Ability_3_2_n03N)
    elseif Boss_Spell_data3[i]==3 then
        set Boss_Spell_data3[i]=4
        set u=PickRandomHeroInRange((Je[(id)]),GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),$7D0)
        if u!=null then
            call SetWidgetLife((Je[(id)]),GetWidgetLife((Je[(id)]))+GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)*(GetWidgetLife(u)/ GetUnitState(u,UNIT_STATE_MAX_LIFE)))
            set Boss_Spell_data2[i]=(GetUnitUserData((u)))
            set x=GetUnitX(u)
            set y=GetUnitY(u)
            call SetUnitX((Je[(id)]),x)
            call SetUnitY((Je[(id)]),y)
            call DestroyEffect(AddSpecialEffectTarget("bloodex-special.mdx",u,"origin"))
            call zKv(GetPlayerId(GetOwningPlayer(u)),$FF,105,105,.5)
            call KillUnit(u)
            call FloatedTargetBY(u,45,-1.6)
        else
            call SetWidgetLife((Je[(id)]),GetWidgetLife((Je[(id)]))+GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)*.1)
            set Boss_Spell_data2[i]=0
        endif
        call ShowUnit((Je[(id)]),true)
        call SetUnitAnimation((Je[(id)]),"birth")
        call TimerStart(GetExpiredTimer(),1,false,function Boss_Ability_3_2_n03N)
        set u=null
    else
        call SetUnitInvulnerable((Je[(id)]),false)
        call PauseUnit((Je[(id)]),false)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:240")
        call Unit_Cancel_Counter($FE,id)
    endif
endfunction

function Boss_Ability_3_n03N takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer i
    local integer id
    if EvelId==274 then
        set id=(GetUnitUserData((GetTriggerUnit())))
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=id
        set Boss_Spell_data3[i]=0
        call SetUnitInvulnerable((Je[(id)]),true)
        call TimerStart(NewTimer(i),0,false,function Boss_Ability_3_2_n03N)
        call Unit_App_Counter($FF,id)
    elseif EvelId==272 then
        call NewTextTagInTarget_B(GetTriggerUnit(),"|c00FF8080Small Aoiro Furisato Opening!|r ",18,$FF,$FF,$FF)
    endif
endfunction

function Boss_attack_n03N takes nothing returns nothing
    local unit attack=(mF)
    local unit target=(MF)
    local real life=GetWidgetLife(attack)
    local real maxlife=GetUnitState(attack,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local integer i=GetRandomInt(1,$A)
    if v<.9 and i<=2 then
        set Xm=PickRandomUnitInUnitRange(attack,$3E8)
        if Xm!=null then
            call IssueTargetOrderById(attack,$D0097,Xm)
        endif
    elseif v<.8 and i<=5 then
        set Xm=PickRandomUnitInUnitRange(attack,$5DC)
        if Xm!=null then
            call IssuePointOrderById(attack,$D009F,GetUnitX(Xm),GetUnitY(Xm))
        endif
    elseif v<.8 then
        set Xm=PickRandomUnitInUnitRange(attack,$5DC)
        if Xm!=null then
            call IssueImmediateOrderById(attack,$D0048)
        endif
    endif
    set attack=null
    set target=null
endfunction

function Boss_damager_2_n03N takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call Gjv((MF),60,Atan2(GetUnitY((MF))-GetUnitY((mF)),GetUnitX((MF))-GetUnitX((mF))),1,"Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl")
        call UnitDamageTargetBY(((mF)),((MF)),(($7530)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType(17)),((0)*1.),(""))
    endif
endfunction

function Boss_zhaohuan_1_n03N takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:241")
    call SetUnitAnimation((Je[(id)]),"stand")
    call PauseUnit((Je[(id)]),false)
endfunction

function Boss_damager_n03N takes nothing returns nothing
    local unit attack=(mF)
    local unit target=(MF)
    local real life=GetWidgetLife(target)
    local real maxlife=GetUnitState(target,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local real a
    local real r
    local integer id
    if Boss_ability4_cd_n03N[(pF)]<(100000.-TimerGetRemaining(GameTimer))then
        set Boss_ability4_cd_n03N[(pF)]=(100000.-TimerGetRemaining(GameTimer))+8
        set a=GetRandomReal(0,6.28)
        set r=GetRandomReal($96,350)
        set id=(GetUnitUserData((CreateUnit(GetOwningPlayer(target),'n03R',GetUnitX(target)+Cos(a)*r,GetUnitY(target)+Sin(a)*r,GetRandomReal(0,360)))))
        call UnitAddPAttackTrig(id,function Boss_damager_2_n03N)
        call UnitApplyTimedLife((Je[(id)]),'BEfn',30)
        call SetUnitAnimation((Je[(id)]),"birth")
        call PauseUnit((Je[(id)]),true)
        call TimerStart(NewTimer(id),.66,false,function Boss_zhaohuan_1_n03N)
    endif
    set attack=null
    set target=null
endfunction

function Boss_Death_n03N takes nothing returns nothing
endfunction

function Boss_Init_n03N takes nothing returns nothing
    local integer id=le
    call UnitAddPAttackTrig(id,function Boss_attack_n03N)
    call UnitAddBeDamagerTrig(id,function Boss_damager_n03N)
    call AddUnitDeathTrigB(id,function Boss_Death_n03N)
    call UnitAddAbilityBY((Je[(id)]),'A0WJ')
    call UnitAddAbilityBY((Je[(id)]),'A0WK')
    call UnitAddAbilityBY((Je[(id)]),'A0WL')
    set PB[id]=true
endfunction

function Boss_Init_ywzd takes nothing returns nothing
    call RegisterSpellChannelEvent('A0WJ',function Boss_Ability_1_n03N)
    call RegisterSpellEffectEvent('A0WJ',function Boss_Ability_1_n03N)
    call RegisterSpellChannelEvent('A0WK',function Boss_Ability_2_n03N)
    call RegisterSpellEffectEvent('A0WK',function Boss_Ability_2_n03N)
    call RegisterSpellChannelEvent('A0WL',function Boss_Ability_3_n03N)
    call RegisterSpellEffectEvent('A0WL',function Boss_Ability_3_n03N)
endfunction

function Init_Unit_Enter takes nothing returns nothing
    call RegisterEnterworldEvent('n03N',function Boss_Init_n03N)
endfunction

function ItemAbility_001_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if Boss_Spell_data2[i]==0 then
        call TimerStart(GetExpiredTimer(),$A,false,function ItemAbility_001_func)
        set Boss_Spell_data2[i]=1
        set u=II[Boss_Spell_data1[i]]
        set x=GetUnitX(u)
        set y=GetUnitY(u)
        call SetUnitScale(u,2,0,0)
        call DestroyEffect(AddSpecialEffectTarget("flame piercing.mdl",u,"origin"))
        call Ltv(Boss_Spell_data1[i])
        call GroupEnumUnitsInRange(G,x,y,400+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,400)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                    call DestroyEffect(AddSpecialEffectTarget("fireball.mdl",u,"origin"))
                    call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00C85917")))
                endif
            endif
        endloop
    else
        call HeroAddExtraInt((GetUnitUserData((Boss_Spell_unit1[i]))),-$3E8)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:242")
    endif
endfunction

function ItemAbility_001_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local integer i=Boss_Spell_allocate()
    set Boss_Spell_unit1[i]=u
    set Boss_Spell_data1[i]=LAv("flame cyclone.mdl",x,y,1.5)
    set Boss_Spell_data2[i]=0
    set Boss_Spell_Z[i]=GetHeroState3(u,true)*100
    call UnitAddAbility(II[Boss_Spell_data1[i]],'A0SK')
    call HeroAddExtraInt((GetUnitUserData((u))),$3E8)
    call TimerStart(NewTimer(i),2,false,function ItemAbility_001_func)
    call SetItemDroppableTimedById((GetUnitUserData((u))),'I009',75)
    set u=null
endfunction

function ItemAbility_002_func takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:243")
    set Item_intup_I00C[Boss_Spell_data1[i]]=null
    call HeroAddExtraStr(Boss_Spell_data1[i],-Boss_Spell_data2[i])
    call Boss_Spell_deallocate(i)
endfunction

function ItemAbility_002_Actions takes nothing returns nothing
    local integer data=(GetUnitUserData((GetTriggerUnit())))
    local integer intup=R2I(GetHeroStrNotExtra(data)*.15)
    local integer i
    if Item_intup_I00C[data]==null then
        set i=Boss_Spell_allocate()
        set Item_intup_I00C[data]=NewTimer(i)
        set Boss_Spell_data1[i]=data
        set Boss_Spell_data2[i]=intup
        call HeroAddExtraStr(data,intup)
    else
        set i=(alloc__hpv(GetHandleId((Item_intup_I00C[data]))))
        if Boss_Spell_data2[i]!=intup then
            call HeroAddExtraStr(data,intup-Boss_Spell_data2[i])
            set Boss_Spell_data2[i]=intup
        endif
    endif
    call TimerStart(Item_intup_I00C[data],$F,false,function ItemAbility_002_func)
    call SetItemDroppableTimedById(data,'I00C',60)
endfunction

function ItemAbility_003_debuff2 takes nothing returns nothing
    local integer data
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:244")
    if IsUnitInGroup(Boss_Spell_unit1[i],h_v_Group)then
        set data=(GetUnitUserData((Boss_Spell_unit1[i])))
        call UnitRemoveAbilityandBuffBY(Boss_Spell_unit1[i],'A0SL','B06Z')
        call DeUnitMdef(data,Boss_Spell_data2[i])
        set Item_buff_I00E[data]=null
    endif
    set Boss_Spell_unit1[i]=null
    call Boss_Spell_deallocate(i)
endfunction

function ItemAbility_003_debuff takes unit u returns nothing
    local integer data=(GetUnitUserData((u)))
    local integer i
    if IsUnitInGroup(u,h_v_Group)==false then
        return
    endif
    if Item_buff_I00E[data]==null then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=u
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=ModifyUnitMdef(data,-$A)
        set Item_buff_I00E[data]=NewTimer(i)
        call UnitAddAbilityBY(u,'A0SL')
    else
        set i=(alloc__hpv(GetHandleId((Item_buff_I00E[data]))))
        if Boss_Spell_unit1[i]==u then
            if Boss_Spell_data1[i]<4 then
                set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
                call UnitMdefChange(data,Boss_Spell_data2[i],-($A+5*Boss_Spell_data1[i]))
            endif
        else
            set Boss_Spell_unit1[i]=u
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=ModifyUnitMdef(data,-$A)
            call UnitAddAbilityBY(u,'A0SL')
        endif
    endif
    call TimerStart(Item_buff_I00E[data],$A,false,function ItemAbility_003_debuff2)
endfunction

function ItemAbility_003_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local unit target=GetSpellTargetUnit()
    call ItemAbility_003_debuff(target)
    call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",GetUnitX(target),GetUnitY(target),1))
    call Ltv(LAv("desecrategreen.mdl",GetUnitX(target),GetUnitY(target),2))
    call UnitDamageTargetBY((((mF))),(((MF))),((((GetHeroPropertiesByAll((GetUnitUserData((u))))*$96)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FF8080")))
    call SetItemDroppableTimedById((GetUnitUserData((u))),'I00E',80)
    set u=null
    set target=null
endfunction

function Item_I0E1_Damager2_action takes nothing returns nothing
    local real r
    if Item_I0E1_hd2_life[(pF)]>0 then
        set r=GetDamage()
        if Item_I0E1_hd2_life[(pF)]<r then
            set r=Item_I0E1_hd2_life[(pF)]
            call UnitRemoveAbilityandBuffBY((MF),'A0TD','B075')
            call ReleaseTimer(Item_I0E1_timer2[(pF)],"[TimerUtils]Error:245")
            call s__Trig_remove((Item_I0E1_hd2[(pF)]))
            set Item_I0E1_hd2[(pF)]=0
            set Item_I0E1_hd2_life[(pF)]=0
            set Item_I0E1_timer2[(pF)]=null
            call Unit_Cancel_Counter(256,(pF))
        else
            set Item_I0E1_hd2_life[(pF)]=Item_I0E1_hd2_life[(pF)]-r
        endif
        call DamageMinus(r)
    endif
endfunction

function ItemAbility_004_Actions_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:246")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TD','B075')
    call Unit_Cancel_Counter(257,id)
    call s__Trig_remove((Item_I0E1_hd2[id]))
    set Item_I0E1_hd2[id]=0
    set Item_I0E1_hd2_life[id]=0
    set Item_I0E1_timer2[id]=null
endfunction

function ItemAbility_004_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local integer id
    call GroupEnumUnitsInRange(G,x,y,550+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,550)then
            if IsUnitAllyNotbag(u,c)then
                set id=(GetUnitUserData((u)))
                if Item_I0E1_timer2[id]==null then
                    set Item_I0E1_timer2[id]=NewTimer(id)
                    set Item_I0E1_hd2[id]=UnitAddBeDamagerTrigB(id,function Item_I0E1_Damager2_action)
                    call UnitAddAbilityBY(u,'A0TD')
                    call Unit_App_Counter(258,id)
                endif
                set Item_I0E1_hd2_life[id]=$C350
                call TimerStart(Item_I0E1_timer2[id],60,false,function ItemAbility_004_Actions_func)
            endif
        endif
    endloop
    call SetItemDroppableTimedById((GetUnitUserData((c))),'I0E1',$96)
    call Lqv(LAv("energy_release.mdx",x,y,3.),2)
    set c=null
endfunction

function ItemAbility_005_Actions_func01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    set Boss_x[0]=GetUnitX(Boss_Spell_unit2[i])
    set Boss_y[0]=GetUnitY(Boss_Spell_unit2[i])
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    set Boss_x[1]=Boss_x[0]+Boss_Spell_X[i]
    set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[i]
    if IsTerrainPathable(Boss_x[1],Boss_y[1],PATHING_TYPE_FLYABILITY)then
        set Boss_Spell_data1[i]=32
    else
        call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
        call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
    endif
    if ModuloInteger(Boss_Spell_data1[i],4)==0 then
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",Boss_x[1],Boss_y[1]))
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",Boss_x[1],Boss_y[1]))
    endif
    call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],$FA,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,Boss_x[1],Boss_y[1],$AF)and IsUnitInGroup(u,Boss_Spell_group1[i])==false then
            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                call GroupAddUnit(Boss_Spell_group1[i],u)
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",GetUnitX(u),GetUnitY(u)))
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            endif
        endif
    endloop
    if Boss_Spell_data1[i]>=32 then
        call UnitApplyTimedLife(Boss_Spell_unit2[i],0,.01)
        call KillUnit(Boss_Spell_unit2[i])
        call DestroyGroup(Boss_Spell_group1[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:247")
        call Boss_Spell_deallocate(i)
        set Boss_Spell_group1[i]=null
        set Boss_Spell_unit2[i]=null
    endif
endfunction

function ItemAbility_005_Actions takes nothing returns nothing
    local integer i
    set Boss_x[0]=GetUnitX(GetTriggerUnit())
    set Boss_y[0]=GetUnitY(GetTriggerUnit())
    set Boss_x[1]=GetSpellTargetX()-Boss_x[0]
    set Boss_y[1]=GetSpellTargetY()-Boss_y[0]
    set Boss_z[0]=Atan2(Boss_y[1],Boss_x[1])
    set Boss_x[1]=Cos(Boss_z[0])
    set Boss_y[1]=Sin(Boss_z[0])
    set i=Boss_Spell_allocate()
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_group1[i]=CreateGroup()
    set Boss_Spell_data1[i]=0
    set Boss_Spell_X[i]=Boss_x[1]*30
    set Boss_Spell_Y[i]=Boss_y[1]*30
    set Boss_Spell_Z[i]=GetHeroState3(Boss_Spell_unit1[i],true)*60
    call TimerStart(NewTimer(i),.03,true,function ItemAbility_005_Actions_func01)
    set Boss_x[2]=Boss_x[0]+Boss_x[1]*50
    set Boss_y[2]=Boss_y[0]+Boss_y[1]*50
    set CR=FALSE
    set Boss_Spell_unit2[i]=CreateUnit(Player($F),'ushd',Boss_x[2],Boss_y[2],Boss_z[0]*bj_RADTODEG)
    call SetUnitX(Boss_Spell_unit2[i],Boss_x[2])
    call SetUnitY(Boss_Spell_unit2[i],Boss_y[2])
    call UnitAddAbility(Boss_Spell_unit2[i],'Aloc')
    call SetUnitFlyHeight(Boss_Spell_unit2[i],30,0)
    call SetUnitTimeScale(Boss_Spell_unit2[i],1.5)
    call SetUnitScale(Boss_Spell_unit2[i],3,3,3)
    set CR=true
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0DR',80)
endfunction

function ItemAbility_006_Actions_func03 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Boss_Spell_Z[i]=Boss_Spell_Z[i]+.5
    if Boss_Spell_data2[i]>0 then
        if not(UnitAlive(Boss_Spell_unit2[i])and IsUnitInRangeXY(Boss_Spell_unit2[i],Boss_Spell_X[i],Boss_Spell_Y[i],$3E8))then
            call UnitRemoveAbilityandBuffBY(Boss_Spell_unit2[i],'A0TJ','B078')
            call DeUnitMdef(Boss_Spell_data2[i],Boss_Spell_data1[i])
            set Item_I0E7_bool[Boss_Spell_data2[i]]=FALSE
            set Boss_Spell_data2[i]=0
        endif
    endif
    if Boss_Spell_Z[i]>$A then
        if Boss_Spell_data2[i]>0 then
            call UnitRemoveAbilityandBuffBY(Boss_Spell_unit2[i],'A0TJ','B078')
            call DeUnitMdef(Boss_Spell_data2[i],Boss_Spell_data1[i])
            set Item_I0E7_bool[Boss_Spell_data2[i]]=FALSE
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:248")
        call Boss_Spell_deallocate(i)
    endif
endfunction

function ItemAbility_006_Actions_func02 takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local unit u=GetEnumUnit()
    local integer index=(GetUnitUserData((u)))
    set Boss_x[1]=Boss_Spell_X[i]+(Boss_Spell_X[index]*Boss_x[0]-Boss_Spell_Y[index]*Boss_y[0])*Boss_z[0]
    set Boss_y[1]=Boss_Spell_Y[i]+(Boss_Spell_Y[index]*Boss_x[0]+Boss_Spell_X[index]*Boss_y[0])*Boss_z[0]
    set Boss_Spell_Z[index]=Boss_Spell_Z[index]+(Boss_z[1]-Boss_Spell_Z[index])*.1
    if IsPointInWorldBounds(Boss_x[1],Boss_y[1])then
        call SetUnitX(u,Boss_x[1])
        call SetUnitY(u,Boss_y[1])
        call SetUnitFlyHeight(u,Boss_Spell_Z[index]-GetPointZ(Boss_x[1],Boss_y[1]),0)
    endif
    if Boss_Spell_data1[i]>=60 then
        call GroupRemoveUnit(Boss_Spell_group1[i],u)
        call DestroyEffect(Boss_Spell_eff[index])
        call KillUnit(u)
        call Boss_Spell_deallocate(index)
        set Boss_Spell_eff[index]=null
    endif
    set u=null
endfunction

function ItemAbility_006_Actions_func01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real t
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    set t=I2R(Boss_Spell_data1[i])/ 60.
    if Boss_Spell_data2[i]>0 then
        if UnitAlive(Boss_Spell_unit2[i])and IsUnitInRangeXY(Boss_Spell_unit2[i],Boss_Spell_X[i],Boss_Spell_Y[i],300)then
            set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit2[i])
            set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit2[i])
            set Boss_z[1]=GetPointZ(Boss_Spell_X[i],Boss_Spell_Y[i])+GetUnitFlyHeight(Boss_Spell_unit2[i])+75
        else
            call UnitRemoveAbilityandBuffBY(Boss_Spell_unit2[i],'A0TJ','B078')
            set Item_I0E7_bool[Boss_Spell_data2[i]]=FALSE
            set Boss_z[1]=GetPointZ(Boss_Spell_X[i],Boss_Spell_Y[i])
            set Boss_Spell_data2[i]=0
        endif
    else
        set Boss_z[1]=GetPointZ(Boss_Spell_X[i],Boss_Spell_Y[i])
    endif
    set Boss_x[0]=Cos(t*6.28*1.)
    set Boss_y[0]=Sin(t*6.28*1.)
    set Boss_z[0]=(1.-t*t)*650
    set index=Boss_Spell_data1[0]
    set Boss_Spell_data1[0]=i
    call ForGroup(Boss_Spell_group1[i],function ItemAbility_006_Actions_func02)
    set Boss_Spell_data1[0]=index
    if Boss_Spell_data1[i]>=60 then
        if Boss_Spell_data2[i]>0 then
            call UnitDamageTargetBY((Boss_Spell_unit1[i]),(Boss_Spell_unit2[i]),((Boss_Spell_Z[i])*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($F)*1.),("|c00FF8000"))
            set Boss_Spell_data1[i]=ModifyUnitMdef(Boss_Spell_data2[i],-$F)
        endif
        call TimerStart(GetExpiredTimer(),.5,true,function ItemAbility_006_Actions_func03)
        set Boss_Spell_Z[i]=0
        call Lqv(LAv("judgement.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],5),$A)
    else
        if Boss_Spell_data1[i]==52 then
            call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],5))
        endif
    endif
endfunction

function ItemAbility_006_Actions takes nothing returns nothing
    local unit spellunit=GetTriggerUnit()
    local unit target=GetSpellTargetUnit()
    local unit u
    local integer i
    local integer id=(GetUnitUserData((target)))
    local integer index
    if target!=(Je[(id)])then
        set spellunit=null
        set target=null
        return
    endif
    if Item_I0E7_bool[id]then
        call NewTextTagInTarget_B(spellunit,"Eye Target Inside Target!",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(spellunit,$D0004)
    else
        call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0E7',120)
        set Item_I0E7_bool[id]=true
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=id
        set Boss_Spell_X[i]=GetUnitX(target)
        set Boss_Spell_Y[i]=GetUnitY(target)
        set Boss_Spell_Z[i]=GetHeroPropertiesByAll((GetUnitUserData((spellunit))))*$C8
        set Boss_Spell_unit1[i]=spellunit
        set Boss_Spell_unit2[i]=target
        set Boss_Spell_group1[i]=CreateGroup()
        call TimerStart(NewTimer(i),.03,true,function ItemAbility_006_Actions_func01)
        call UnitAddAbilityBY(target,'A0TJ')
        set Boss_x[0]=0
        set Boss_y[0]=bj_PI/ 5
        set Boss_z[0]=Boss_x[0]+Boss_y[0]*$A
        set Boss_z[1]=GetPointZ(Boss_Spell_X[i],Boss_Spell_Y[i])+GetUnitFlyHeight(target)+75
        loop
            set CR=FALSE
            set index=Boss_Spell_allocate()
            set Boss_Spell_X[index]=Cos(Boss_x[0])
            set Boss_Spell_Y[index]=Sin(Boss_x[0])
            set Boss_Spell_Z[index]=Boss_z[1]
            set Boss_x[1]=Boss_Spell_X[i]+Boss_Spell_X[index]*650
            set Boss_y[1]=Boss_Spell_Y[i]+Boss_Spell_Y[index]*650
            set u=CreateUnit(Player($F),'e001',Boss_x[1],Boss_y[1],Boss_x[0]*bj_RADTODEG)
            if IsPointInWorldBounds(Boss_x[1],Boss_y[1])then
                call SetUnitX(u,Boss_x[1])
                call SetUnitY(u,Boss_y[1])
            endif
            call SetUnitFlyHeight(u,Boss_z[1]-GetPointZ(Boss_x[1],Boss_y[1]),0)
            call SetUnitScale(u,3,3,3)
            call SetUnitUserData(u,index)
            call GroupAddUnit(Boss_Spell_group1[i],u)
            set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl",u,"origin")
            set CR=true
            set Boss_x[0]=Boss_x[0]+Boss_y[0]
            exitwhen Boss_x[0]>=Boss_z[0]
        endloop
        set u=null
    endif
    set spellunit=null
    set target=null
endfunction

function ItemAbility_007_Actions_func01 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:249")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TL','B079')
    call ModifyUnitArmor(id,$C8)
    call DeUnitMdef(id,Item_I0DX_mdef[id])
    call Unit_Cancel_Counter(259,id)
    set Item_I0DX_Timer[id]=null
endfunction

function ItemAbility_007_Actions_func00 takes nothing returns nothing
    local integer id=(pF)
    if Item_I0DX_Timer[id]==null then
        set Item_I0DX_Timer[id]=NewTimer(id)
        call UnitAddAbilityBY((MF),'A0TL')
        set Item_I0DX_mdef[id]=ModifyUnitMdef(id,-$A)
        call ModifyUnitArmor(id,-$C8)
        call Unit_App_Counter(260,id)
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",(MF),"origin"))
    call DestroyEffect(AddSpecialEffectTarget("firenova.mdl",(MF),"origin"))
    call TimerStart(Item_I0DX_Timer[id],$A,false,function ItemAbility_007_Actions_func01)
    call NewTextTagInTarget_B((mF),"Ha ha ha ha ha !",$F,$FF,0,0)
    call zhv((GetPlayerId((GetOwningPlayer((mF))))),100,1)
    call zhv((GetPlayerId((GetOwningPlayer((MF))))),100,1)
    call KillUnit((mF))
endfunction

function ItemAbility_007_Actions takes nothing returns nothing
    local unit spellunit=GetTriggerUnit()
    local unit target=GetSpellTargetUnit()
    local unit u
    local integer id=(GetUnitUserData((target)))
    local real x=GetUnitX(target)-GetUnitX(spellunit)
    local real y=GetUnitY(target)-GetUnitY(spellunit)
    local real r=Atan2(y,x)
    if target!=(Je[(id)])then
        set spellunit=null
        set target=null
        return
    endif
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0DX',120)
    set x=GetUnitX(spellunit)-Cos(r)*$C8
    set y=GetUnitY(spellunit)-Sin(r)*$C8
    set u=CreateUnit(GetTriggerPlayer(),'e03A',x,y,r*bj_RADTODEG)
    call IssueTargetOrderById(u,$D022F,target)
    call UnitAddDamagerTrig((GetUnitUserData((u))),function ItemAbility_007_Actions_func00)
    call UnitApplyTimedLife(u,0,5)
    set u=null
    set spellunit=null
    set target=null
endfunction

function ItemAbility_008_Actions_func02 takes nothing returns nothing
    if GetDamage()>=GetWidgetLife((MF))+.5 then
        call SetWidgetLife((MF),1)
        set KF[HF]=PF+1000000.
    endif
endfunction

function ItemAbility_008_Actions_func01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if GetUnitAbilityLevel(Boss_Spell_unit2[i],'B07A')>0 then
        set Boss_Spell_X[i]=Boss_Spell_X[i]-.01
        if Boss_Spell_X[i]<=0 then
            set Boss_Spell_X[i]=Boss_Spell_Y[i]
            call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((Boss_Spell_unit2[i])),((((Boss_Spell_Z[i])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FF0080")))
            call DestroyEffect(AddSpecialEffectTarget("ghostmissile.mdl",Boss_Spell_unit2[i],"origin"))
        endif
    else
        if(Control_use[(Boss_Spell_data2[i])])and(Control_abid[(Boss_Spell_data2[i])])=='ACfb' then
            call UnitCloseControl(Boss_Spell_data2[i])
        endif
        call s__Trig_remove((Boss_Spell_data1[i]))
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:250")
        call Boss_Spell_deallocate(i)
    endif
endfunction

function ItemAbility_008_Actions takes nothing returns nothing
    local unit spellunit=GetTriggerUnit()
    local unit target=GetSpellTargetUnit()
    local integer i
    local integer id=(GetUnitUserData((target)))
    if target!=(Je[(id)])then
        call IssueImmediateOrderById(spellunit,$D0004)
        set spellunit=null
        set target=null
        return
    endif
    if IsUnitType(target,UNIT_TYPE_MAGIC_IMMUNE)then
        call IssueUnitStop_DisplayText(spellunit,"Magic resistance!")
    else
        if(Control_abid[(id)])!='ACfb' and m3v(target,5,'ACfb','B07A')then
            set i=Boss_Spell_allocate()
            set Boss_Spell_data1[i]=UnitAddShieldTrigB(id,function ItemAbility_008_Actions_func02)
            set Boss_Spell_data2[i]=id
            set Boss_Spell_X[i]=1
            set Boss_Spell_Y[i]=1
            set Boss_Spell_Z[i]=GetHeroPropertiesByAll((GetUnitUserData((spellunit))))*30
            set Boss_Spell_unit1[i]=spellunit
            set Boss_Spell_unit2[i]=target
            call TimerStart(NewTimer(i),.01,true,function ItemAbility_008_Actions_func01)
            call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0DY',80)
        else
            call NewTextTagInTarget_B(spellunit,"Please use toys correctly!",8,0,0,0)
            call IssueImmediateOrderById(spellunit,$D0004)
        endif
    endif
    set spellunit=null
    set target=null
endfunction

function ItemAbility_009_Actions_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=GetHandleId(Boss_Spell_unit1[data])
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real r
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    set i=4
    set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    loop
        set i=i-1
        set a=(i/ 4.+Boss_Spell_data3[data]/ 20.)*Lx
        set fx=LoadInteger(BYHT,Boss_Spell_data1[data],i)
        call LKv(fx,x+275*Cos(a))
        call Llv(fx,y+275*Sin(a))
        exitwhen i==0
    endloop
    if Boss_Spell_data3[data]<$80 then
        set i=GetRandomInt(3,5)
        loop
            set a=GetRandomReal(0,6.28)
            set r=GetRandomReal(0,325)
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeEmbers.mdl",x+Cos(a)*r,y+Sin(a)*r))
            set i=i-1
            exitwhen i==0
        endloop
        if ModuloInteger(Boss_Spell_data3[data],8)==0 then
            call GroupEnumUnitsInRange(G,x,y,325+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,325)then
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",u,"origin"))
                        call Lqv((LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",GetUnitX(u),GetUnitY(u),1)),1)
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Boss_Spell_X[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF8080")))
                        call m2v(u,1,'A500','B500',true)
                    endif
                endif
            endloop
        endif
        if Boss_Spell_data3[data]<1 then
            set i=4
            loop
                set i=i-1
                call LQv((LoadInteger(BYHT,Boss_Spell_data1[data],i)),1)
                exitwhen i==0
            endloop
            call Unit_Cancel_Counter(261,id)
            call free(Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data2[data])
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:251")
            call Boss_Spell_deallocate(data)
        endif
    endif
endfunction

function ItemAbility_009_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=4
    local integer fx
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    set Boss_Spell_unit1[data]=ConvertVersion((GetUnitUserData((GetTriggerUnit()))))
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_data2[data]=Lnv(x,y,0)
    set Boss_Spell_data3[data]=20+32*4
    set Boss_Spell_X[data]=$F*GetHeroPropertiesByAll((id))
    loop
        set i=i-1
        set a=i*Lx/ 4.
        set fx=Lnv(x+275*Cos(a),y+275*Sin(a),0)
        call LMv(fx,"simoon.mdx")
        call SetUnitScale(II[(fx)],((.75)*1.),0,0)
        call SaveInteger(BYHT,Boss_Spell_data1[data],i,fx)
        exitwhen i==0
    endloop
    call SetItemDroppableTimedById((id),'I0EB',120)
    call Unit_App_Counter(262,id)
    call TimerStart(NewTimer(data),.03125,true,function ItemAbility_009_Actions_func)
endfunction

function ItemAbility_010_Actions_func03 takes nothing returns nothing
    call RemoveHeroReviveBuff(((alloc__hpv(GetHandleId((GetExpiredTimer()))))),2)
endfunction

function ItemAbility_010_Actions_func02 takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if u==(Je[(id)])and nC[id]then
        if Item_I0E9_timer[id]==null then
            set Item_I0E9_timer[id]=NewTimer(id)
            set Item_I0E9_mdef[id]=ModifyUnitMdef(id,50)
            call UnitAddAbilityBY(u,'A0TQ')
            call Unit_App_Counter(263,id)
            if SummonedUnitSkills_A048_Timer[id]!=null then
                call RemoveHeroReviveBuff((id),1)
            endif
        endif
        call TimerStart(Item_I0E9_timer[id],20,false,function ItemAbility_010_Actions_func03)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",u,"origin"))
    endif
endfunction

function ItemAbility_010_Actions_func01 takes nothing returns nothing
    local integer b=s__SoulMissile_Last_Missile
    call ItemAbility_010_Actions_func02(s__barrage_target[b])
endfunction

function ItemAbility_010_Actions takes nothing returns nothing
    local integer b=CreateBarrageTypeA(GetTriggerUnit(),GetSpellTargetUnit())
    call s__SoulMissile_BarrageFiringByA(b,function ItemAbility_010_Actions_func01,GetUnitFacing(GetTriggerUnit())*bj_DEGTORAD,0,500*.03125,0,1.75)
    call LMv(s__barrage_model[b],"floatingeye.mdx")
    call SetUnitScale(II[(s__barrage_model[b])],((.35)*1.),0,0)
    call Lfv(s__barrage_model[b],$FF,$FF,$FF,100)
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0E9',75)
endfunction

function ItemAbility_011_Actions_func003 takes integer id returns nothing
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TV','B07F')
    call ReleaseTimer(Item_A_A0TT_timer[id],"[TimerUtils]Error:252")
    call s__Trig_remove((Item_A_A0TT_hd[id]))
    set Item_A_A0TT_timer[id]=null
    set Item_A_A0TT_hd[id]=0
    set Item_A_A0TT_hd_life[id]=0
    call Unit_Cancel_Counter(264,id)
endfunction

function ItemAbility_011_Actions_func002 takes nothing returns nothing
    call ItemAbility_011_Actions_func003((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function Item_A0TT_Damager_action takes nothing returns nothing
    local real r
    if Item_A_A0TT_hd_life[(pF)]>0 then
        set r=GetDamage()
        if Item_A_A0TT_hd_life[(pF)]<r then
            set r=Item_A_A0TT_hd_life[(pF)]
            call ItemAbility_011_Actions_func003((pF))
            call NewTextTagInTarget_B((MF),"Defensive energy depletion, tons of broken!!",8,$CD,$FF,$9B)
        else
            set Item_A_A0TT_hd_life[(pF)]=Item_A_A0TT_hd_life[(pF)]-r
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\SpellShieldAmulet\\SpellShieldCaster.mdl",(MF),"origin"))
        endif
        call DamageMinus(r)
    endif
endfunction

function ItemAbility_011_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Item_A_A0TT_hd[id]==null then
        set Item_A_A0TT_hd[id]=UnitAddShieldTrigB(id,function Item_A0TT_Damager_action)
        set Item_A_A0TT_timer[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A0TV')
        call Unit_App_Counter(265,id)
    endif
    set Item_A_A0TT_hd_life[id]=$493E0
    call TimerStart(Item_A_A0TT_timer[id],60,false,function ItemAbility_011_Actions_func002)
    call NewTextTagInTarget_B((Je[(id)]),"|c00808000Absolutely guardian |r:|c008080FFDamage absorption+300000|r",8,$FF,$FF,$FF)
endfunction

function ItemAbility_012_Actions_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:253")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TW','B07G')
    call ModifyUnitMagicDamage(id,-100)
    call Unit_Cancel_Counter(266,id)
    set Item_A_A0TU_timer[id]=null
endfunction

function ItemAbility_012_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Item_A_A0TU_timer[id]==null then
        set Item_A_A0TU_timer[id]=NewTimer(id)
        call ModifyUnitMagicDamage(id,100)
        call UnitAddAbilityBY((Je[(id)]),'A0TW')
        call TimerStart(Item_A_A0TU_timer[id],30,false,function ItemAbility_012_Actions_func)
        call Unit_App_Counter(267,id)
        call NewTextTagInTarget_B((Je[(id)]),"|c00FF8080Skill damage+100%|r",8,$FF,$FF,$FF)
    else
        call IssueUnitStop_DisplayText(GetTriggerUnit(),"Do not stacks!")
    endif
endfunction

function ItemAbility_013_Actions_func003 takes integer id returns nothing
    local integer i=(alloc__hpv(GetHandleId((Item_A0UX_timer[id]))))
    call KillUnit(Boss_Spell_unit1[i])
    call s__Trig_remove((Item_A0UX_hd[id]))
    call DestroyTrigger(Item_A0UX_trig[id])
    call ReleaseTimer(Item_A0UX_timer[id],"[TimerUtils]Error:254")
    set Item_A0UX_trig[id]=null
    set Item_A0UX_timer[id]=null
    set Item_A0UX_hd[id]=0
    call Boss_Spell_deallocate(i)
    call Unit_Cancel_Counter(268,id)
endfunction

function ItemAbility_013_Actions_func002 takes nothing returns nothing
    call pmv((MF),1.2)
endfunction

function ItemAbility_013_Actions_func001 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=(alloc__hpv(GetHandleId((Item_A0UX_timer[id]))))
    if Boss_Spell_Y[i]<=0 then
        set Boss_Spell_X[i]=.3
        set Boss_Spell_Y[i]=2
        call IssueTargetOrderById(Boss_Spell_unit1[i],$D022F,GetEventTargetUnit())
        call NewTextTagInTarget_B(Boss_Spell_unit1[i],"|c000080FFFrozen slag!|r",$C,$FF,$FF,$FF)
    endif
endfunction

function ItemAbility_013_Actions_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local real x
    local real y
    local real z
    set Boss_Spell_Z[i]=Boss_Spell_Z[i]-.03125
    if Boss_Spell_Z[i]<=0 then
        call ItemAbility_013_Actions_func003(id)
    else
        if Boss_Spell_X[i]>0 then
            set Boss_Spell_X[i]=Boss_Spell_X[i]-.03125
        else
            set z=GetUnitFacing((Je[(id)]))
            set x=GetUnitX((Je[(id)]))-100*CosBJ(z)
            set y=GetUnitY((Je[(id)]))-100*SinBJ(z)
            call SetUnitX(Boss_Spell_unit1[i],x+(GetUnitX(Boss_Spell_unit1[i])-x)*.85)
            call SetUnitY(Boss_Spell_unit1[i],y+(GetUnitY(Boss_Spell_unit1[i])-y)*.85)
            call SetUnitFacing(Boss_Spell_unit1[i],z)
        endif
        if Boss_Spell_Y[i]>0 then
            set Boss_Spell_Y[i]=Boss_Spell_Y[i]-.03125
        endif
    endif
endfunction

function Item_A0UX_Damager_action takes nothing returns nothing
    local real r
    if Item_A0UX_life[(pF)]>0 then
        set r=GetDamage()
        if Item_A0UX_life[(pF)]<r then
            set r=Item_A0UX_life[(pF)]
            call ItemAbility_013_Actions_func003((pF))
        else
            set Item_A0UX_life[(pF)]=Item_A0UX_life[(pF)]-r
        endif
        call DamageMinus(r)
    endif
endfunction

function ItemAbility_013_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real z=GetUnitFacing(GetTriggerUnit())
    if Item_A0UX_timer[id]==null then
        set i=Boss_Spell_allocate()
        set Item_A0UX_timer[id]=NewTimer(i)
        set Item_A0UX_hd[id]=UnitAddShieldTrigB(id,function Item_A0UX_Damager_action)
        set Item_A0UX_trig[id]=CreateTrigger()
        call TriggerRegisterUnitEvent(Item_A0UX_trig[id],GetTriggerUnit(),EVENT_UNIT_TARGET_IN_RANGE)
        call TriggerAddAction(Item_A0UX_trig[id],function ItemAbility_013_Actions_func001)
        set Boss_Spell_data1[i]=id
        set Boss_Spell_unit1[i]=CreateUnit(GetOwningPlayer(GetTriggerUnit()),'e03D',x-100*CosBJ(z),y-100*SinBJ(z),z)
        call UnitAddDamagerTrig((GetUnitUserData((Boss_Spell_unit1[i]))),function ItemAbility_013_Actions_func002)
        call SetUnitVertexColor(Boss_Spell_unit1[i],$96,$E1,$96,$7F)
        call SetUnitAcquireRange(Boss_Spell_unit1[i],.0)
        call Unit_App_Counter(269,id)
    endif
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'dkfw',60)
    set Boss_Spell_Z[(alloc__hpv(GetHandleId((Item_A0UX_timer[id]))))]=$A
    set Item_A0UX_life[id]=100+GetUnitState(GetTriggerUnit(),UNIT_STATE_MAX_MANA)*5
    call TimerStart(Item_A0UX_timer[id],.03125,true,function ItemAbility_013_Actions_func)
endfunction

function Item_A0UX_Attack_action_func01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    set Boss_x[0]=GetUnitX(Boss_Spell_unit2[i])
    set Boss_y[0]=GetUnitY(Boss_Spell_unit2[i])
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    set Boss_x[1]=Boss_x[0]+Boss_Spell_X[i]
    set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[i]
    if IsTerrainPathable(Boss_x[1],Boss_y[1],PATHING_TYPE_FLYABILITY)then
        set Boss_Spell_data1[i]=20
    else
        call SetUnitX(Boss_Spell_unit2[i],Boss_x[1])
        call SetUnitY(Boss_Spell_unit2[i],Boss_y[1])
    endif
    call GroupEnumUnitsInRange(G,Boss_x[1],Boss_y[1],$FA,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,Boss_x[1],Boss_y[1],$AF)and IsUnitInGroup(u,Boss_Spell_group1[i])==false then
            if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                call GroupAddUnit(Boss_Spell_group1[i],u)
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                call DestroyEffect(AddSpecialEffectTarget("shadowtrap.mdl",u,"origin"))
            endif
        endif
    endloop
    if Boss_Spell_data1[i]>=20 then
        call UnitApplyTimedLife(Boss_Spell_unit2[i],0,.01)
        call DestroyEffect(Boss_Spell_eff[i])
        call KillUnit(Boss_Spell_unit2[i])
        call DestroyGroup(Boss_Spell_group1[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:255")
        call Boss_Spell_deallocate(i)
        set Boss_Spell_group1[i]=null
        set Boss_Spell_unit2[i]=null
        set Boss_Spell_eff[i]=null
    endif
endfunction

function Item_A0UX_Attack_action takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    local real z=GetUnitFacing((mF))
    set Boss_x[1]=Cos(z)
    set Boss_y[1]=Sin(z)
    set Boss_Spell_data1[i]=0
    set Boss_Spell_X[i]=Boss_x[1]*30
    set Boss_Spell_Y[i]=Boss_y[1]*30
    set Boss_Spell_Z[i]=GetHeroPropertiesByAll((pF_v))*5.
    set Boss_Spell_unit1[i]=(mF)
    set Boss_Spell_group1[i]=CreateGroup()
    call TimerStart(NewTimer(i),.03,true,function Item_A0UX_Attack_action_func01)
    set Boss_x[2]=x+Boss_x[1]*50
    set Boss_y[2]=x+Boss_y[1]*50
    set CR=FALSE
    set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',Boss_x[2],Boss_y[2],Boss_z[0]*bj_RADTODEG)
    call SetUnitX(Boss_Spell_unit2[i],Boss_x[2])
    call SetUnitY(Boss_Spell_unit2[i],Boss_y[2])
    call SetUnitScale(Boss_Spell_unit2[i],.5,0,0)
    set Boss_Spell_eff[i]=AddSpecialEffectTarget("deathwave.mdl",Boss_Spell_unit2[i],"origin")
    set CR=true
endfunction

function ItemAbility_014_Actions_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local real x
    local real y
    local real z
    if UnitAlive((Je[(id)]))and Boss_Spell_Z[i]>.5 then
        set Boss_Spell_Z[i]=Boss_Spell_Z[i]-.5
        if Boss_Spell_data2[i]==0 then
            set Boss_Spell_data2[i]=1
            call DestroyEffect(AddSpecialEffectTarget("darkwave.mdl",(Je[(id)]),"origin"))
        else
            set Boss_Spell_data2[i]=0
            call DestroyEffect(AddSpecialEffectTarget("grin curse.mdl",(Je[(id)]),"origin"))
        endif
    else
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VK','B07W')
        call s__Trig_remove((Item_A0VJ_atkaction[id]))
        set Item_A0VJ_timer[id]=null
        set Item_A0VJ_atkaction[id]=0
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:256")
        call Boss_Spell_deallocate(i)
        call Unit_Cancel_Counter(270,id)
    endif
endfunction

function ItemAbility_014_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    if Item_A0VJ_timer[id]==null then
        set i=Boss_Spell_allocate()
        set Item_A0VJ_timer[id]=NewTimer(i)
        set Item_A0VJ_atkaction[id]=UnitAddPAttackTrigB(id,function Item_A0UX_Attack_action)
        set Boss_Spell_data1[i]=id
        set Boss_Spell_data2[i]=0
        call UnitAddAbilityBY((Je[(id)]),'A0VK')
        call Unit_App_Counter(271,id)
    else
        set i=(alloc__hpv(GetHandleId((Item_A0VJ_timer[id]))))
    endif
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0EW',90)
    set Boss_Spell_Z[i]=$F
    call TimerStart(Item_A0VJ_timer[id],.5,true,function ItemAbility_014_Actions_func)
    call DestroyEffect(AddSpecialEffect("shadowslam.mdl",x,y))
    call DestroyEffect(AddSpecialEffect("darknova.mdl",x,y))
    call DestroyEffect(AddSpecialEffect("darkpillar.mdl",x,y))
endfunction

function ItemAbility_015_Actions_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:257")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VM','B07X')
    call s__Trig_remove((Item_A0VL_hd[id]))
    set Item_A0VL_timer[id]=null
    set Item_A0VL_hd[id]=0
    call Unit_Cancel_Counter(272,id)
endfunction

function Item_A0UX_Damaged_action takes nothing returns nothing
    local real r
    call DamageAmplify(GetDamage()*.1)
    set r=GetWidgetLife((MF))-GetDamage()
    if r<1 then
        call DestroyEffect(AddSpecialEffectTarget("ghostmissile.mdl",(MF),"origin"))
        call DamageMinus(1-r)
    endif
endfunction

function ItemAbility_015_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Item_A0VL_timer[id]==null then
        set Item_A0VL_timer[id]=NewTimer(id)
        set Item_A0VL_hd[id]=UnitAddBeDamagerTrigB(id,function Item_A0UX_Damaged_action)
        call UnitAddAbilityBY((Je[(id)]),'A0VM')
        call Unit_App_Counter(273,id)
    endif
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0F4',85)
    call TimerStart(Item_A0VL_timer[id],6,false,function ItemAbility_015_Actions_func)
endfunction

function ItemAbility_016_Actions_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x=Boss_Spell_X[i]
    local real y=Boss_Spell_Y[i]
    local real t=(100000.-TimerGetRemaining(GameTimer))
    local unit u
    local group g
    set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
    set g=Boss_Spell_group1[i]
    set Boss_Spell_group1[i]=Boss_Spell_group2[i]
    set Boss_Spell_group2[i]=g
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        set index=(GetUnitUserData((u)))
        if IsUnitInRangeXY(u,x,y,350)and Boss_Spell_data2[i]>0 then
            call GroupAddUnit(Boss_Spell_group1[i],u)
            if UnitAlive(u)then
                if t>Item_I0E3_A0VO_timed[index]then
                    set Item_I0E3_A0VO_timed[index]=t+.5
                    call UnitCureTaret(Boss_Spell_unit1[i],u,GetUnitMaxLifeById(index)*.5)
                    call DestroyEffect(AddSpecialEffectTarget("natureheal.mdl",u,"origin"))
                endif
            endif
        else
            set Item_I0E3_A0VO_timed[index]=0
        endif
    endloop
    if Boss_Spell_data2[i]>0 then
        set g=Boss_Spell_group1[i]
        call GroupEnumUnitsInRange(G,x,y,375,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            set index=(GetUnitUserData((u)))
            if IsUnitInRangeXY(u,x,y,300)and Item_I0E3_A0VO_timed[index]==0 and IsUnitInGroup(u,g)==false then
                if IsUnitAllyNotbag(u,Boss_Spell_unit1[i])then
                    set Item_I0E3_A0VO_timed[index]=t+.5
                    call GroupAddUnit(g,u)
                endif
            endif
        endloop
    else
        call Ltv(Boss_Spell_data1[i])
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group2[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:258")
        call Boss_Spell_deallocate(i)
    endif
    set g=null
endfunction

function ItemAbility_016_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=Boss_Spell_allocate()
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    set Boss_Spell_X[i]=x
    set Boss_Spell_Y[i]=y
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_group1[i]=CreateGroup()
    set Boss_Spell_group2[i]=CreateGroup()
    set Boss_Spell_data1[i]=Lfv(LAv("chaosrunicaura.mdl",x,y,3),0,$FF,0,$FF)
    set Boss_Spell_data2[i]=$A*32
    call TimerStart(NewTimer(i),.03125,true,function ItemAbility_016_Actions_func)
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0F6',75)
endfunction

function ItemAbility_017_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local integer i=$A
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real d=300*GetHeroState3(c,true)
    local unit u
    local real x2
    local real y2
    local real a
    call GroupEnumUnitsInRange(G,x,y,900+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,900)then
            if IsUnitAliveAndEnemyNotAvul(u,c)then
                call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",u,"origin"))
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                call m2v(u,3.25,'A500','B500',true)
            endif
        endif
    endloop
    loop
        set i=i-1
        set a=bj_PI*i/ 5
        set x2=$B4*Cos(a)
        set y2=$B4*Sin(a)
        call Lqv(LAv("DarkLightning.mdl",x+4*x2,y+4*y2,6),1.25)
        call Lqv(LAv("DarkLightning.mdl",x+2*x2,y+2*y2,4),1.25)
        exitwhen i==0
    endloop
    call PlaySoundAtPoint_BJ((cn),(($7F)*1.),((x)*1.),((y)*1.),0)
    call Lqv(Lfv(LAv("ShadowAssault.mdl",x,y,$A),125,0,125,$FF),1.25)
    call Lqv(Lfv(LAv("ShadowSlam.mdl",x,y,4),0,0,0,$FF),1.25)
    call zhv(GetPlayerId(GetOwningPlayer(c)),40,.5)
    call SetItemDroppableTimedById((GetUnitUserData((GetTriggerUnit()))),'I0F8',75)
    set c=null
endfunction

function ItemAbility_018_Stop takes integer data returns nothing
    if Item_Data_Int_1[data]!=null then
        set Item_Data_Id[Item_Data_Int_1[data]]=0
        set Item_Data_Id[Item_Data_Int_2[data]]=0
        call SetUnitVertexColor((Je[(Item_Data_Int_2[data])]),$FF,$FF,$FF,$FF)
        call ModifyUnitMagicDamage((Item_Data_Int_1[data]),33.)
        call ModifyUnitMagicDamage((Item_Data_Int_2[data]),-33.)
        call DeUnitAdef((Item_Data_Int_1[data]),Item_Data_Int_3[data])
        call DeUnitAdef((Item_Data_Int_2[data]),Item_Data_Int_4[data])
        call Unit_Cancel_Counter(274,Item_Data_Int_1[data])
        call Unit_Cancel_Counter(275,Item_Data_Int_2[data])
        call BFv(Item_Data_Int_5[data])
        call fvv(data)
        set Item_Data_Int_1[data]=0
    endif
endfunction

function ItemAbility_018_Actions_func takes nothing returns nothing
    local integer data=J[Item_I0F3_Id]
    loop
        exitwhen 0==data
        if UnitAlive((Je[(Item_Data_Int_1[data])]))and UnitAlive((Je[(Item_Data_Int_2[data])]))and IsUnitInRange((Je[(Item_Data_Int_2[data])]),(Je[(Item_Data_Int_1[data])]),1750.)then
            set Item_Data_Int_6[data]=Item_Data_Int_6[data]-1
            if ModuloInteger(Item_Data_Int_6[data],32)==0 then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(Je[(Item_Data_Int_2[data])]),"origin"))
                call UnitCureTaret(null,(Je[(Item_Data_Int_2[data])]),.1*GetUnitMaxLifeById(Item_Data_Int_2[data]))
            endif
            call SetUnitVertexColor((Je[(Item_Data_Int_2[data])]),GetRandomInt(0,$FF),GetRandomInt(0,$FF),GetRandomInt(0,$FF),$FF)
            call Bgv(Item_Data_Int_5[data])
        else
            set Item_Data_Int_6[data]=0
        endif
        if Item_Data_Int_6[data]<1 then
            call ItemAbility_018_Stop(data)
        endif
        set data=K[data]
    endloop
endfunction

function ItemAbility_018_Actions takes nothing returns nothing
    local integer data
    local integer c=(GetUnitUserData(((GetTriggerUnit()))))
    local integer t=(GetUnitUserData(((GetSpellTargetUnit()))))
    if Item_Data_Id[t]!=null then
        call ItemAbility_018_Stop(Item_Data_Id[t])
    endif
    if Item_I0F3_Id==0 then
        set Item_I0F3_Id=fxv(function ItemAbility_018_Actions_func)
    endif
    set data=D9v(Item_I0F3_Id)
    set Item_Data_Id[c]=data
    set Item_Data_Id[t]=data
    set Item_Data_Int_1[data]=c
    set Item_Data_Int_2[data]=t
    set Item_Data_Int_3[data]=ModifyUnitAdef(c,66)
    set Item_Data_Int_4[data]=ModifyUnitAdef(t,66)
    set Item_Data_Int_5[data]=CHe("AFOD",GetTriggerUnit(),GetSpellTargetUnit())
    set Item_Data_Int_6[data]=32*$A
    if IsUnitAliveAndEnemy((Je[(t)]),(Je[(c)]))then
        call NewTextTagInTarget_B((Je[(t)]),"The appalling power of rising ah !!",$F,$FF,0,0)
    endif
    call DestroyEffect(AddSpecialEffectTarget("ChaosExplosion.mdl",(Je[(c)]),"origin"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(Je[(t)]),"origin"))
    call ModifyUnitMagicDamage(c,-33.)
    call ModifyUnitMagicDamage(t,33.)
    call SetItemDroppableTimedById(Item_Data_Int_1[data],'I0F3',50)
    call Unit_App_Counter(276,c)
    call Unit_App_Counter(277,t)
endfunction

function ItemAbility_019_Actions_func takes nothing returns nothing
    local integer data=J[Item_I0F9_Id]
    local integer i
    local integer i2
    local unit u
    local integer v
    local real cX
    local real cY
    local real dX
    local real dY
    local real a
    loop
        exitwhen 0==data
        set i=Item_Data_Int_2[data]
        set i2=Item_Data_Int_3[data]
        if UnitAlive(Boss_Spell_unit1[i])then
            set Item_Data_Int_6[data]=Item_Data_Int_6[data]-1
            set Boss_Spell_X[i2]=Boss_Spell_X[i2]+Boss_Spell_X[i]
            set Boss_Spell_Y[i2]=Boss_Spell_Y[i2]+Boss_Spell_Y[i]
            set cX=GetUnitX(Boss_Spell_unit1[i])
            set cY=GetUnitY(Boss_Spell_unit1[i])
            set dX=Boss_Spell_X[i2]-cX
            set dY=Boss_Spell_Y[i2]-cY
            if dX*dX+dY*dY>$5F5E10 then
                set Item_Data_Int_6[data]=0
            else
                if ModuloInteger(Item_Data_Int_6[data],4)==0 then
                    set v=8
                    loop
                        set v=v-1
                        set a=v*hx/ 8.
                        call Ltv(LAv("DeathBladeRegeneration.mdl",Boss_Spell_X[i2]+187.5*Cos(a),Boss_Spell_Y[i2]+187.5*Sin(a),1.5))
                        exitwhen v==0
                    endloop
                    call GroupEnumUnitsInRange(G,Boss_Spell_X[i2],Boss_Spell_Y[i2],325+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,Boss_Spell_X[i2],Boss_Spell_Y[i2],325)then
                            if not IsUnitInGroup(u,Boss_Spell_group1[i])and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                                call GroupAddUnit(Boss_Spell_group1[i],u)
                                call DestroyEffect(AddSpecialEffectTarget("CurseBoltPurple.mdl",u,"chest"))
                                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                                call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u),((Boss_Spell_Z[i])*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((.0)*1.),(""))
                                call m1v(u,1)
                                call addUnitdefbuff(u,'A0VV','B083',.12,$C)
                            endif
                        endif
                    endloop
                    call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",Boss_Spell_X[i2],Boss_Spell_Y[i2],2),$FF,0,$FF,$FF))
                endif
                call MoveLightningEx(Boss_Spell_lig[i],true,cX,cY,GetPointZ(cX,cY)+120,Boss_Spell_X[i2],Boss_Spell_Y[i2],GetPointZ(Boss_Spell_X[i2],Boss_Spell_Y[i2]))
            endif
        else
            set Item_Data_Int_6[data]=0
        endif
        if Item_Data_Int_6[data]<1 then
            if Boss_Spell_lig[i]!=null then
                call DestroyLightning(Boss_Spell_lig[i])
                set Boss_Spell_lig[i]=null
            endif
            call DestroyGroup(Boss_Spell_group1[i])
            set Boss_Spell_group1[i]=null
            call Boss_Spell_deallocate(i)
            call Boss_Spell_deallocate(i2)
            call Unit_Cancel_Counter(278,Item_Data_Int_1[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function ItemAbility_019_Actions takes nothing returns nothing
    local integer data
    local integer i
    local integer i2
    local real cX
    local real cY
    local real a
    if Item_I0F9_Id==0 then
        set Item_I0F9_Id=fxv(function ItemAbility_019_Actions_func)
    endif
    set data=D9v(Item_I0F9_Id)
    set i=Boss_Spell_allocate()
    set i2=Boss_Spell_allocate()
    set Item_Data_Int_2[data]=i
    set Item_Data_Int_3[data]=i2
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_group1[i]=CreateGroup()
    set Boss_Spell_Z[i]=GetHeroState2(Boss_Spell_unit1[i],true)*20
    set Boss_Spell_data1[i]=0
    set Boss_Spell_data2[i]=0
    set Item_Data_Int_1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Item_Data_Int_6[data]=23
    set cX=GetUnitX(Boss_Spell_unit1[i])
    set cY=GetUnitY(Boss_Spell_unit1[i])
    set a=Atan2(GetSpellTargetY()-cY,GetSpellTargetX()-cX)
    set Boss_Spell_X[i]=50*Cos(a)
    set Boss_Spell_Y[i]=50*Sin(a)
    set Boss_Spell_X[i2]=cX+Boss_Spell_X[i]
    set Boss_Spell_Y[i2]=cY+Boss_Spell_Y[i]
    set Boss_Spell_Z[i]=$C8*GetHeroStateByMax(Je[Item_Data_Int_1[data]])
    set Boss_Spell_lig[i]=AddLightningEx("AFOP",true,cX,cY,GetPointZ(cX,cY)+120,Boss_Spell_X[i2],Boss_Spell_Y[i2],GetPointZ(Boss_Spell_X[i2],Boss_Spell_Y[i2]))
    call DestroyEffect(AddSpecialEffectTarget("DarknessExplosion.mdl",Boss_Spell_unit1[i],"origin"))
    call Unit_App_Counter(279,Item_Data_Int_1[data])
    call SetItemDroppableTimedById(Item_Data_Int_1[data],'I0F9',120)
endfunction

function ItemAbility_020_Actions_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=Boss_Spell_X[i]
    local real y=Boss_Spell_Y[i]
    local unit u
    if Je[Boss_Spell_data3[i]]!=null then
        call GroupEnumUnitsInRange(G,x,y,425+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,425)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",u,"chest"))
                    call UnitDamageTargetBY((Boss_Spell_unit1[i]),(u),((Boss_Spell_Z[i])*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((.0)*1.),(""))
                    call UnitAppBuff((GetUnitUserData((u))),'A0W1',$D006B)
                endif
            endif
        endloop
    else
        set Boss_Spell_data2[i]=0
    endif
    if Boss_Spell_data2[i]<=1 then
        call Unit_Cancel_Counter(280,Boss_Spell_data3[i])
        call Ltv(Boss_Spell_data1[i])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:259")
        call Boss_Spell_deallocate(i)
    else
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
    endif
endfunction

function ItemAbility_020_Actions takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_X[i]=GetSpellTargetX()
    set Boss_Spell_Y[i]=GetSpellTargetY()
    set Boss_Spell_Z[i]=GetHeroState3(Boss_Spell_unit1[i],true)*20
    set Boss_Spell_data1[i]=LAv("Radioactivecloud.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],1.75)
    set Boss_Spell_data2[i]=R2I(8./ .5)
    set Boss_Spell_data3[i]=(GetUnitUserData((Boss_Spell_unit1[i])))
    call Ltv(LAv("DesecrateGreen.mdx",Boss_Spell_X[i],Boss_Spell_Y[i],2))
    call Lqv(LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],5),2.5)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],5),55,$FF,55,$CD))
    call TimerStart(NewTimer(i),.5,true,function ItemAbility_020_Actions_func)
    call zhv(GetPlayerId(GetOwningPlayer(Boss_Spell_unit1[i])),50,.4)
    call SetItemDroppableTimedById(Boss_Spell_data3[i],'I0FA',75)
    call Unit_App_Counter(281,Boss_Spell_data3[i])
endfunction

function ItemAbility_021_Actions_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:260")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0W6','B08A')
    call DeUnitMdef(id,Item_I0F2_mdef[id])
    set Item_I0F2_mdef[id]=0
    call Unit_Cancel_Counter(282,id)
endfunction

function ItemAbility_021_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,300+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,300)then
            if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                call m1v(u,1)
            endif
        endif
    endloop
    call Lqv(LAv("lightstrikearray.mdx",x,y,1.2),2.5)
    if Item_I0F2_mdef[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0W6')
        set Item_I0F2_mdef[id]=ModifyUnitMdef(id,30.)
        call TimerStart(NewTimer(id),5,false,function ItemAbility_021_Actions_func)
    endif
    call SetItemDroppableTimedById(id,'I0F2',60)
    call Unit_App_Counter(283,id)
endfunction

function ItemAbility_022_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real x=GetRandomReal(0,100)
    local integer array id
    local real array v
    set id[1]='I0FJ'
    set id[2]='I0FI'
    set id[3]='I0FG'
    set id[4]='I0FF'
    set id[5]='I0FH'
    set id[6]='rej2'
    set v[0]=33
    set v[1]=2
    set v[2]=5
    set v[3]=$F
    set v[4]=$F
    set v[5]=$F
    set v[6]=$F
    set id[7]=0
    loop
        set id[100+id[7]]=id[7]
        set id[7]=id[7]+1
        exitwhen id[7]==7
    endloop
    set id[7]=0
    loop
        loop
            set id[8]=GetRandomInt(0,6)
            set id[9]=GetRandomInt(0,6)
            exitwhen id[8]!=id[9]
        endloop
        set id[$A]=id[100+id[8]]
        set id[100+id[8]]=id[100+id[9]]
        set id[100+id[9]]=id[$A]
        set id[7]=id[7]+1
        exitwhen id[7]==$F
    endloop
    set id[7]=0
    loop
        set id[8]=id[100+id[7]]
        if x<=v[id[8]]then
            if id[id[8]]!=null then
                call SetItemUserData(CreateItemG(id[id[8]],GetUnitX(u),GetUnitY(u)),GetPlayerId(GetOwningPlayer(u))+1)
                call Ltv(LAv("ChaosExplosion.mdx",GetUnitX(u),GetUnitY(u),1.5))
                call thv(GetObjectName(id[id[8]])+" |c00ffff80Gocha!!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
            else
                call thv("|c00000000I am a big chief in Africa!!!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
            endif
            set id[7]=7
        else
            set x=x-v[id[8]]
        endif
        set id[7]=id[7]+1
        exitwhen id[7]>=7
    endloop
    if id[7]==7 then
        call thv("|c00000000I am a big chief in Africa!!!|r",GetUnitX(u),GetUnitY(u),25,.075,.035,bj_PI/ 2.5,5,6)
    endif
    set u=null
endfunction

function ItemAbility_023_Actions_func takes nothing returns nothing
    set Lucky=0
    call RemoveUnitBJ(Item_I0FJ_unit,32)
    call DestroyTimer(Item_I0FJ_timer)
    set Item_I0FJ_unit=null
    set Item_I0FJ_timer=null
endfunction

function ItemAbility_023_Actions takes nothing returns nothing
    if Item_I0FJ_unit==null then
        set Item_I0FJ_timer=CreateTimer()
        set Item_I0FJ_unit=CreateUnit(GetTriggerPlayer(),'e001',0,0,0)
        call UnitAddAbility(Item_I0FJ_unit,'A0WC')
        set Lucky=1
    endif
    call TimerStart(Item_I0FJ_timer,30*60,FALSE,function ItemAbility_023_Actions_func)
endfunction

function ItemAbility_024_Actions_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=Boss_Spell_data1[data]
    local integer i2=Boss_Spell_data2[data]
    local real a
    if Boss_Spell_data1[i2]==0 then
        if UnitAlive(Boss_Spell_unit1[data])then
            set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[data])
            set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[data])
            set Boss_Spell_Z[i]=GetPointZ(Boss_Spell_X[i],Boss_Spell_Y[i])+GetUnitFlyHeight(Boss_Spell_unit1[data])+60
        else
            set Boss_Spell_data1[i2]=1
        endif
    endif
    if Boss_Spell_data2[i2]==0 then
        if UnitAlive(Boss_Spell_unit2[data])and IsUnitInRangeXY(Boss_Spell_unit2[data],Boss_Spell_X[i],Boss_Spell_Y[i],$8AE)then
            set Boss_Spell_X[i2]=GetUnitX(Boss_Spell_unit2[data])
            set Boss_Spell_Y[i2]=GetUnitY(Boss_Spell_unit2[data])
            set Boss_Spell_Z[i2]=GetPointZ(Boss_Spell_X[i2],Boss_Spell_Y[i2])+GetUnitFlyHeight(Boss_Spell_unit2[data])+60
        else
            set Boss_Spell_data2[i2]=1
        endif
    endif
    if Boss_Spell_Y[data]>0 then
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]-.02
        if Boss_Spell_Y[data]<=0 then
            if Boss_Spell_data2[i2]==0 then
                call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",Boss_Spell_unit2[i],"origin"))
                call UnitDamageTargetBY((Boss_Spell_unit1[i]),(Boss_Spell_unit2[i]),((Boss_Spell_data3[data])*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((.0)*1.),(""))
            else
                call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",Boss_Spell_X[i2],Boss_Spell_Y[i2]))
            endif
            set a=1
            set Boss_Spell_data1[i2]=1
            set Boss_Spell_data2[i2]=1
            call zhv(GetPlayerId(GetOwningPlayer(Boss_Spell_unit1[data])),100,.5)
        else
            set a=Boss_Spell_X[data]/(Boss_Spell_X[data]-Boss_Spell_Y[data])
        endif
    else
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]-.02
        if Boss_Spell_Z[data]>Boss_Spell_X[data]then
            set a=1
        else
            set a=Boss_Spell_Z[data]/ Boss_Spell_Y[data]
        endif
    endif
    if Boss_Spell_Z[data]>0 then
        call SetLightningColor(Boss_Spell_lig[data],1,1,1,a)
        call MoveLightningEx(Boss_Spell_lig[i],true,Boss_Spell_X[i],Boss_Spell_Y[i],Boss_Spell_Z[i],Boss_Spell_X[i2],Boss_Spell_Y[i2],Boss_Spell_Z[i2])
    else
        call Unit_Cancel_Counter(284,Boss_Spell_data1[i])
        call Unit_Cancel_Counter(285,Boss_Spell_data2[i])
        call DestroyLightning(Boss_Spell_lig[data])
        call Boss_Spell_deallocate(data)
        call Boss_Spell_deallocate(i)
        call Boss_Spell_deallocate(i2)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:261")
    endif
endfunction

function ItemAbility_024_Actions takes nothing returns nothing
    local integer data
    local integer i
    local integer i2
    local real cX
    local real cY
    local real a
    set data=Boss_Spell_allocate()
    set i=Boss_Spell_allocate()
    set i2=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=i
    set Boss_Spell_data2[data]=i2
    set Boss_Spell_data3[data]=GetHeroState3(GetTriggerUnit(),true)*$3E8
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_X[data]=.25
    set Boss_Spell_Y[data]=.25
    set Boss_Spell_Z[data]=1
    set Boss_Spell_data1[i]=(GetUnitUserData((Boss_Spell_unit1[data])))
    set Boss_Spell_data2[i]=(GetUnitUserData((Boss_Spell_unit2[data])))
    set Boss_Spell_data1[i2]=0
    set Boss_Spell_data2[i2]=0
    set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit1[data])
    set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit1[data])
    set Boss_Spell_Z[i]=GetPointZ(Boss_Spell_X[i],Boss_Spell_Y[i])+GetUnitFlyHeight(Boss_Spell_unit1[data])+60
    set Boss_Spell_X[i2]=GetUnitX(Boss_Spell_unit2[data])
    set Boss_Spell_Y[i2]=GetUnitY(Boss_Spell_unit2[data])
    set Boss_Spell_Z[i2]=GetPointZ(Boss_Spell_X[i2],Boss_Spell_Y[i2])+GetUnitFlyHeight(Boss_Spell_unit2[data])+60
    set Boss_Spell_lig[data]=AddLightningEx("AFOD",true,Boss_Spell_X[i],Boss_Spell_Y[i],Boss_Spell_Z[i],Boss_Spell_X[i2],Boss_Spell_Y[i2],Boss_Spell_Z[i2])
    call SetLightningColor(Boss_Spell_lig[data],1,1,1,0)
    call Unit_App_Counter(286,Boss_Spell_data1[i])
    call Unit_App_Counter(287,Boss_Spell_data2[i])
    call SetItemDroppableTimedById(Boss_Spell_data1[i],'I0FL',120)
    call TimerStart(NewTimer(data),.02,true,function ItemAbility_024_Actions_func)
endfunction

function ItemAbility_025_Actions_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local unit u
    if Boss_Spell_data2[i]==0 then
        set Boss_Spell_data2[i]=1
        call TimerStart(GetExpiredTimer(),.1,false,function ItemAbility_025_Actions_func)
        set Boss_Spell_data3[i]=LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],3)
        call GroupEnumUnitsInRange(G,Boss_Spell_X[i],Boss_Spell_Y[i],500+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,Boss_Spell_X[i],Boss_Spell_Y[i],500)then
                if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                    call UnitDamageTargetBY(((Je[(id)])),(u),((Boss_Spell_Z[i])*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((.0)*1.),(""))
                endif
            endif
        endloop
    elseif Boss_Spell_data2[i]==1 then
        set Boss_Spell_data2[i]=2
        call TimerStart(GetExpiredTimer(),$A,false,function ItemAbility_025_Actions_func)
        call DEv(Boss_Spell_data3[i],"Abilities\\Spells\\Human\\Banish\\BanishTarget.mdl")
        set CR=FALSE
        set Boss_Spell_unit2[i]=CreateUnit(GetOwningPlayer((Je[(id)])),'e03G',Boss_Spell_X[i],Boss_Spell_Y[i],0)
        call SetUnitX(Boss_Spell_unit2[i],Boss_Spell_X[i])
        call SetUnitY(Boss_Spell_unit2[i],Boss_Spell_Y[i])
        set CR=true
    else
        call Ltv(Boss_Spell_data3[i])
        call KillUnit(Boss_Spell_unit1[i])
        call KillUnit(Boss_Spell_unit2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:262")
    endif
endfunction

function ItemAbility_025_Actions takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    set Boss_Spell_data1[i]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[i]=0
    set Boss_Spell_X[i]=GetUnitX(GetTriggerUnit())
    set Boss_Spell_Y[i]=GetUnitY(GetTriggerUnit())
    set Boss_Spell_Z[i]=GetHeroState2(GetTriggerUnit(),true)*$96
    set CR=FALSE
    set Boss_Spell_unit1[i]=CreateUnit(Player($F),'e03H',Boss_Spell_X[i],Boss_Spell_Y[i],0)
    call SetUnitX(Boss_Spell_unit1[i],Boss_Spell_X[i])
    call SetUnitY(Boss_Spell_unit1[i],Boss_Spell_Y[i])
    call SetUnitFlyHeight(Boss_Spell_unit1[i],$5DC,0)
    call SetUnitFlyHeight(Boss_Spell_unit1[i],100,$AF0)
    set CR=true
    call TimerStart(NewTimer(i),.5,false,function ItemAbility_025_Actions_func)
    call SetItemDroppableTimedById(Boss_Spell_data1[i],'I0FM',75)
endfunction

function Item_I0E3_Spell_Effect_action_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:263")
    set Item_I0E3_cd[id]=false
    call Unit_Cancel_Counter(288,id)
endfunction

function Item_I0E3_Spell_Effect_action takes nothing returns nothing
    local integer id=s__Trig_P
    local integer i
    if not Item_I0E3_cd[id]and GetRandomInt(1,20)==1 then
        set Item_I0E3_cd[id]=true
        set i=2
        loop
            if LoadInteger(BYHT,Hero_Skills_table[(id)],i)!='A10C' then
                call UnitResetCooldownById((Je[(id)]),LoadInteger(BYHT,Hero_Skills_table[(id)],i))
            endif
            exitwhen i==6
            set i=i+1
        endloop
        call SetItemDroppableTimedById((id),'I0E3',$96)
        call CUv((Kc[(id)]),$FF,$FF,$80,.5)
        call NewTextTagInTarget_B((Je[(id)]),"|c00ffff80Refresh!!",$C,$FF,$FF,$FF)
        call Lqv(LAv("LightStrikeArray.mdx",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2.5),1.27)
        call TimerStart(NewTimer(id),$96,false,function Item_I0E3_Spell_Effect_action_func)
        call Unit_App_Counter(289,id)
    endif
endfunction

function Item_I0DV_PickupOrDrop_action_func002 takes integer lv returns real
    if lv==1 then
        return 10.
    elseif lv==2 then
        return 50.
    elseif lv==3 then
        return 100.
    elseif lv==4 then
        return 200.
    elseif lv==5 then
        return 500.
    endif
    return .0
endfunction

function Item_I0DV_PickupOrDrop_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index=UnitInventorySize((Je[(id)]))-UnitInventoryCount((Je[(id)]))
    local real up=0
    if index!=Item_I0DV_lv[id]then
        set up=Item_I0DV_PickupOrDrop_action_func002(index)-Item_I0DV_PickupOrDrop_action_func002(Item_I0DV_lv[id])
        call ModifyUnitMagicDamage(id,up)
        set Item_I0DV_lv[id]=index
        if up>0 then
            call NewTextTagInTarget_B((Je[(id)]),"|c00b1f5e8+"+I2S(R2I(up))+"% Skill damage",8,$FF,$FF,$FF)
        else
            call NewTextTagInTarget_B((Je[(id)]),"|c00ff8080-"+I2S(R2I(-up))+"% Skill damage",8,$FF,$FF,$FF)
        endif
    endif
endfunction

function Item_I0DV_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0DV_timer[id]==null then
            set Item_I0DV_timer[id]=NewTimer(id)
            call TimerStart(Item_I0DV_timer[id],1,true,function Item_I0DV_PickupOrDrop_action_func)
            call Unit_App_Counter(290,id)
        endif
    elseif Item_I0DV_timer[id]!=null then
        call ReleaseTimer(Item_I0DV_timer[id],"[TimerUtils]Error:264")
        call ModifyUnitMagicDamage(id,-Item_I0DV_PickupOrDrop_action_func002(Item_I0DV_lv[id]))
        set Item_I0DV_lv[id]=0
        set Item_I0DV_timer[id]=null
        call Unit_Cancel_Counter(291,id)
    endif
endfunction

function Item_I0DY_PickupOrDrop_action_func002 takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call s__Trig_remove((Item_I0DY_death[id]))
    call ReleaseTimer(Item_I0DY_timer2[id],"[TimerUtils]Error:265")
    call ModifyUnitAttack((id),-Item_I0DY_atk[id])
    set Item_I0DY_atk[id]=0
    set Item_I0DY_death[id]=0
    set Item_I0DY_timer2[id]=null
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TN','B07B')
    call Unit_Cancel_Counter(292,id)
endfunction

function Item_I0DY_PickupOrDrop_action_func001 takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if EvelId==46 then
        call s__Trig_remove((Item_I0DY_death[id]))
        set Item_I0DY_death[id]=0
        call ResumeTimer(Item_I0DY_timer[id])
    else
        call s__Trig_remove((Item_I0DY_death[id]))
        if Item_I0DY_timer[id]!=null then
            call PauseTimer(Item_I0DY_timer[id])
            set Item_I0DY_death[id]=ADD_HERO_REVIVE_EVENT(id,function Item_I0DY_PickupOrDrop_action_func001)
        else
            set Item_I0DY_death[id]=0
        endif
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TN','B07B')
        call ModifyUnitAttack((id),-Item_I0DY_atk[id])
        call ReleaseTimer(Item_I0DY_timer2[id],"[TimerUtils]Error:266")
        set Item_I0DY_atk[id]=0
        set Item_I0DY_timer2[id]=null
        call Unit_Cancel_Counter(293,id)
    endif
endfunction

function Item_I0DY_PickupOrDrop_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t=Item_I0DY_atk[id]
    local real life=GetWidgetLife((Je[(id)]))-$2710
    call TimerStart(Item_I0DY_timer[id],60,false,function Item_I0DY_PickupOrDrop_action_func)
    if Item_I0DY_timer2[id]==null then
        set Item_I0DY_timer2[id]=NewTimer(id)
        set Item_I0DY_death[id]=AddUnitDeathTrigB(id,function Item_I0DY_PickupOrDrop_action_func001)
        call TimerStart(Item_I0DY_timer2[id],59,false,function Item_I0DY_PickupOrDrop_action_func002)
        call Unit_App_Counter(294,id)
    endif
    if life<1 then
        set life=1
    endif
    call SetWidgetLife((Je[(id)]),life)
    call UnitAddAbilityBY((Je[(id)]),'A0TN')
    set Item_I0DY_atk[id]=R2I(GetHeroPropertiesByAll(id)*1.5)
    if Item_I0DY_atk[id]>99999 then
        set Item_I0DY_atk[id]=99999
    endif
    call ModifyUnitAttack((id),Item_I0DY_atk[id]-t)
endfunction

function Item_I0DY_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0DY_timer[id]==null then
            set Item_I0DY_timer[id]=NewTimer(id)
            call TimerStart(Item_I0DY_timer[id],60,false,function Item_I0DY_PickupOrDrop_action_func)
            call Unit_App_Counter(295,id)
        endif
    elseif Item_I0DY_timer[id]!=null then
        call ReleaseTimer(Item_I0DY_timer[id],"[TimerUtils]Error:267")
        set Item_I0DY_timer[id]=null
        call Unit_Cancel_Counter(296,id)
    endif
endfunction

function Item_I0E1_Damager1_action takes nothing returns nothing
    local real r
    if Item_I0E1_hd1_life[(pF)]>0 then
        set r=GetDamage()
        if Item_I0E1_hd1_life[(pF)]<r then
            set r=Item_I0E1_hd1_life[(pF)]
            call s__Trig_remove((Item_I0E1_hd1[(pF)]))
            set Item_I0E1_hd1[(pF)]=0
            set Item_I0E1_hd1_life[(pF)]=0
            call UnitRemoveAbilityandBuffBY((MF),'A0UO','B07L')
        else
            set Item_I0E1_hd1_life[(pF)]=Item_I0E1_hd1_life[(pF)]-r
        endif
        call DamageMinus(r)
    endif
endfunction

function Item_I0E1_PickupOrDrop_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Item_I0E1_hd1[id]==0 then
        call UnitAddAbilityBY((Je[(id)]),'A0UO')
        set Item_I0E1_hd1[id]=UnitAddShieldTrigB(id,function Item_I0E1_Damager1_action)
    endif
    set Item_I0E1_hd1_life[id]=$C350
endfunction

function Item_I0E1_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0E1_timer[id]==null then
            set Item_I0E1_timer[id]=NewTimer(id)
            call TimerStart(Item_I0E1_timer[id],$F0,true,function Item_I0E1_PickupOrDrop_action_func)
            call Unit_App_Counter(297,id)
        endif
    elseif Item_I0E1_timer[id]!=null then
        call ReleaseTimer(Item_I0E1_timer[id],"[TimerUtils]Error:268")
        if Item_I0E1_hd1[id]>0 then
            call s__Trig_remove((Item_I0E1_hd1[id]))
            set Item_I0E1_hd1[id]=0
            set Item_I0E1_hd1_life[id]=0
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0UO','B07L')
        endif
        set Item_I0E1_timer[id]=null
        call Unit_Cancel_Counter(298,id)
    endif
endfunction

function Item_I0E4_PickupOrDrop_action_func02 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:269")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TS','B07E')
    call ModifyUnitMagicDamage(id,-Item_I0E4_Damege2[id])
    call Unit_Cancel_Counter(299,id)
    set Item_I0E4_timer2[id]=null
    set Item_I0E4_Damege2[id]=0
endfunction

function Item_I0E4_PickupOrDrop_action_func takes nothing returns nothing
    local integer NNv=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    local unit u
    local integer i
    local real x
    local real y
    if UnitAlive((Je[(NNv)]))then
        set x=GetUnitX((Je[(NNv)]))
        set y=GetUnitY((Je[(NNv)]))
        call GroupEnumUnitsInRange(G,x,y,775,null)
        if Item_I0E4_Damege[NNv]==4 then
            call GroupRemoveUnit(G,(Je[(NNv)]))
        endif
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,700)and IsUnitAliveAndAlly(u,(Je[(NNv)]))and nC[(GetUnitUserData((u)))]then
                set id=(GetUnitUserData((u)))
                if Item_I0E4_timer2[id]==null then
                    set Item_I0E4_timer2[id]=NewTimer(id)
                    set Item_I0E4_Damege2[id]=Item_I0E4_Damege[NNv]
                    call ModifyUnitMagicDamage(id,Item_I0E4_Damege2[id])
                    call UnitAddAbilityBY(u,'A0TS')
                    call Unit_App_Counter(300,id)
                else
                    if Item_I0E4_Damege[id]<Item_I0E4_Damege2[NNv]then
                        call ModifyUnitMagicDamage(id,Item_I0E4_Damege[NNv]-Item_I0E4_Damege2[id])
                        set Item_I0E4_Damege2[id]=Item_I0E4_Damege[NNv]
                    endif
                endif
                call TimerStart(Item_I0E4_timer2[id],.625,false,function Item_I0E4_PickupOrDrop_action_func02)
            endif
        endloop
    endif
endfunction

function Item_I0E4_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0E4_timer[id]==null then
            set Item_I0E4_timer[id]=NewTimer(id)
            if 'I0E4'==LasManipulatedEquipTypeId then
                set Item_I0E4_Damege[id]=8
            else
                set Item_I0E4_Damege[id]=4
            endif
            call TimerStart(Item_I0E4_timer[id],.33,true,function Item_I0E4_PickupOrDrop_action_func)
            call Unit_App_Counter(301,id)
        endif
    elseif Item_I0E4_timer[id]!=null then
        call ReleaseTimer(Item_I0E4_timer[id],"[TimerUtils]Error:270")
        set Item_I0E4_timer[id]=null
        set Item_I0E4_Damege[id]=0
        call Unit_Cancel_Counter(302,id)
    endif
endfunction

function Item_I00A_attack_action takes nothing returns nothing
    if GetRandomInt(1,20)==1 then
        call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",GetUnitX((MF)),GetUnitY((MF)),2.5),80,0,$80,$FF))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((GetHeroPropertiesByAll((pF_v))*55)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($F)*1.),("|c00400080"))
    endif
endfunction

function Item_I00C_Damager_action2_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u=Je[i]
    local real v=Item_cd_I00C[i]-(100000.-TimerGetRemaining(GameTimer))
    call UnitCureTaret(null,u,GetUnitMaxLifeById(i)*.0175)
    if v<107 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:271")
    endif
    set u=null
endfunction

function Item_I00C_Damager_action_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u=Je[i]
    set Item_bool_I00C[i]=FALSE
    call UnitCureTaret(null,u,GetUnitState(u,UNIT_STATE_MAX_LIFE)*.0175)
    call TimerStart(GetExpiredTimer(),.5,true,function Item_I00C_Damager_action2_func)
    set u=null
endfunction

function Item_I00C_Damager_action takes nothing returns nothing
    if Item_bool_I00C[(pF)]then
        if PF>=GetWidgetLife((MF))+KF[HF]+.5 then
            set KF[HF]=KF[HF]+$989680
            call SetWidgetLife((MF),1)
        endif
    else
        if PF>=GetWidgetLife((MF))+KF[HF]+.5 then
            if(100000.-TimerGetRemaining(GameTimer))>=Item_cd_I00C[(pF)]then
                set Item_bool_I00C[(pF)]=true
                set Item_cd_I00C[(pF)]=(100000.-TimerGetRemaining(GameTimer))+120
                set KF[HF]=KF[HF]+$989680
                call SetWidgetLife((MF),1)
                call TimerStart(NewTimer((pF)),3,false,function Item_I00C_Damager_action_func)
            endif
        endif
    endif
endfunction

function Item_I00E_attack_action takes nothing returns nothing
    local integer i=(pF_v)
    set Item_index_I00E[i]=Item_index_I00E[i]+1
    if Item_index_I00E[i]>=$A then
        set Item_index_I00E[i]=0
        call Ltv(LAv("uberdarkwave.mdl",GetUnitX((MF)),GetUnitY((MF)),1.5))
        call Ltv(LAv("desecrate.mdl",GetUnitX((MF)),GetUnitY((MF)),2))
        call UnitDamageTargetBY(((mF)),((MF)),((GetHeroPropertiesByAll(i)*70.)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($F)*1.),("|c00FF8080"))
    endif
endfunction

function Item_I05H_attack_action takes nothing returns nothing
    if GetRandomInt(1,$F)==1 then
        call Ltv(LAv("Abilities\\Spells\\Undead\\Impale\\ImpaleHitTarget.mdl",GetUnitX((MF)),GetUnitY((MF)),5))
        call Ltv(LNv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",GetUnitX((MF)),GetUnitY((MF)),GetUnitFlyHeight((MF)),1))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((GetHeroPropertiesByAll((pF_v))*45)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($F)*1.),("|c00FF8040"))
    endif
endfunction

function Item_I0DT_attack_action_func002 takes unit whichUnit,real x,real y,real damage returns nothing
    local unit u
    call Ltv(LAv("firegold.mdl",x,y,.75))
    call Ltv(LAv("firenova2.mdl",x,y,1.2))
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitAliveAndEnemy(u,whichUnit)and GetUnitAbilityLevel(u,'Avul')==0 then
                call UnitDamageTargetBY(((whichUnit)),((u)),((((damage)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            endif
        endif
    endloop
endfunction

function Item_I0DT_attack_action takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call Boss_buff_shaoshang_add_RHZX((MF),(mF),$186A0)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl",(MF),"chest"))
    endif
    if GetUnitAbilityLevel((MF),'A0SW')>0 then
        call DamageMinus(-GetDamage()*.25)
    endif
    if GetRandomInt(1,100)<=3 then
        call Item_I0DT_attack_action_func002((mF),GetUnitX((MF)),GetUnitY((MF)),GetHeroPropertiesByAll((pF_v))*35.)
    endif
endfunction

function Item_I0DU_attack_action takes nothing returns nothing
    if GetRandomInt(1,5)==1 then
        call Auxiliary_TargetOrder(('ANab'),null,1,$D00B5,(MF))
        call DestroyEffect(AddSpecialEffectTarget("firenova.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((GetHeroPropertiesByAll((pF_v))*10.+$9664+$992*20)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($A)*1.),("|c00FF8040"))
    endif
endfunction

function Item_I0DW_death_action takes nothing returns nothing
    local integer id=s__Trig_P
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real Njv=350*GetHeroStateByMax((Je[(id)]))
    local group g
    local unit u
    if(100000.-TimerGetRemaining(GameTimer))>Item_cd_I0DW[id]then
        set Item_cd_I0DW[id]=(100000.-TimerGetRemaining(GameTimer))+.1
        set g=CreateGroup()
        call GroupEnumUnitsInRange(g,x,y,600+75.,null)
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupRemoveUnit(g,u)
            if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Njv)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($F)*1.))*1.),(("|c0031822f")))
                call m1v(u,2.5)
            endif
        endloop
        call DestroyGroup(g)
        set g=null
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,3))
        call Ltv(LAv("desecrate.mdl",x,y,1.75))
        call CUv((Kc[(id)]),105,$FF,105,1)
        call CSv((Kc[(id)]),50,1)
    endif
endfunction

function Item_I0DX_attack_action takes nothing returns nothing
    if GetRandomInt(1,8)==1 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((GetHeroPropertiesByAll((pF_v))*10.+$186A0)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
    endif
endfunction

function Item_I0DZ_attack_action takes nothing returns nothing
    if GetRandomInt(1,20)==1 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Impale\\ImpaleHitTarget.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((GetHeroPropertiesByAll((pF_v))*30.+$7EF4*3+$A5A*20)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($A)*1.),("|c00000000"))
    endif
endfunction

function Item_I0E0_attack_action_func002 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local integer fx
    set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
    if Boss_Spell_data2[i]<=6 then
        set x=GetUnitX(II[Boss_Spell_data1[i]])+Boss_Spell_X[i]*Boss_Spell_data2[i]
        set y=GetUnitY(II[Boss_Spell_data1[i]])+Boss_Spell_Y[i]*Boss_Spell_data2[i]
        if IsPointInWorldBounds(x,y)then
            call zhv((GetPlayerId((GetOwningPlayer(Boss_Spell_unit1[i])))),50,.5)
            set fx=LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.25)
            call LFv(fx,"Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl")
            call Ltv(Lfv(fx,$FF,0,0,$FF))
            call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$C8)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                        if IsUnitType(u,UNIT_TYPE_HERO)then
                            call zhv((GetPlayerId((GetOwningPlayer(u)))),75,.5)
                        endif
                    endif
                endif
            endloop
        endif
    endif
    if Boss_Spell_data2[i]>=9 then
        if(GetUnitUserData((Boss_Spell_unit1[i])))>0 then
            call HeroAddExtraAgi((GetUnitUserData((Boss_Spell_unit1[i]))),-$3E8)
        endif
        call Ltv(Boss_Spell_data1[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:272")
    endif
endfunction

function Item_I0E0_attack_action takes nothing returns nothing
    local integer i
    local integer id=(pF_v)
    local real x
    local real y
    local real r
    if(100000.-TimerGetRemaining(GameTimer))>Item_I0E6_cd[id]and GetRandomInt(1,100)<=$F then
        set x=GetUnitX((MF))-GetUnitX((mF))
        set y=GetUnitY((MF))-GetUnitY((mF))
        set r=Atan2(y,x)
        set Item_I0E6_cd[id]=(100000.-TimerGetRemaining(GameTimer))+3
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=(mF)
        set Boss_Spell_X[i]=Cos(r)*$96
        set Boss_Spell_Y[i]=Sin(r)*$96
        set Boss_Spell_Z[i]=GetHeroState2(Boss_Spell_unit1[i],true)*20
        set Boss_Spell_data1[i]=Lnv(GetUnitX((mF)),GetUnitY((mF)),r*bj_RADTODEG)
        set Boss_Spell_data2[i]=0
        call TimerStart(NewTimer(i),.33,true,function Item_I0E0_attack_action_func002)
        call HeroAddExtraAgi(id,$3E8)
    endif
    if GetRandomInt(1,100)<=$F then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((30*GetHeroState2((mF),true)+$86C4)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
    endif
endfunction

function Item_I0E2_attack_action takes nothing returns nothing
    local integer i
    local unit u
    local unit whichUnit
    local real x
    local real y
    local real damage
    if GetRandomInt(1,100)<=$F then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set i=0
        loop
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x+Cos(i*bj_PI/ 3.)*$FA,y+Sin(i*bj_PI/ 3.)*$FA))
            set i=i+1
            exitwhen i>6
        endloop
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y))
        set whichUnit=(mF)
        set damage=$F*(GetHeroState1(whichUnit,true)+1.5*GetHeroState2(whichUnit,true))+$86C4
        call Auxiliary_ImmediateOrder(('A0TR'),GetOwningPlayer(whichUnit),1,$D0080,x,y)
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemy(u,whichUnit)and GetUnitAbilityLevel(u,'Avul')==0 then
                    call UnitDamageTargetBY(((whichUnit)),((u)),((((damage)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                endif
            endif
        endloop
        set whichUnit=null
    endif
endfunction

function Item_I0E5_attack_action_func003 takes nothing returns nothing
    set Item_I0E5_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:273")]=false
endfunction

function Item_I0E5_attack_action_func002 takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TH','B077')
    call ModifyUnitAttack((id),-Item_I0E6_atk[id])
    call ModifyUnitCrit((id),-100)
    call TimerStart(t,1,false,function Item_I0E5_attack_action_func003)
    call Unit_Cancel_Counter(303,id)
    set t=null
endfunction

function Item_I0E5_attack_action takes nothing returns nothing
    local integer id=(pF_v)
    if not Item_I0E5_off[id]and GetRandomInt(1,$F)==1 then
        set Item_I0E5_off[id]=true
        call UnitAddAbilityBY((mF),'A0TH')
        set Item_I0E6_atk[id]=GetHeroState2((mF),true)*$C
        if Item_I0E6_atk[id]>99999 then
            set Item_I0E6_atk[id]=99999
        endif
        call ModifyUnitAttack((id),Item_I0E6_atk[id])
        call ModifyUnitCrit((id),100)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((30*GetHeroState2((mF),true)+$86C4)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
        call TimerStart(NewTimer(id),9,false,function Item_I0E5_attack_action_func002)
        call Unit_App_Counter(304,id)
    endif
endfunction

function Item_I0E6_attack_action_func004 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    if UnitAlive((Je[(id)]))then
        set Boss_Spell_X[i]=Boss_Spell_X[i]-.33
        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),(((Je[(id)]))),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
    else
        set Boss_Spell_X[i]=0
    endif
    if Boss_Spell_X[i]<=0 then
        set Item_I0E6_timer[id]=null
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0TG','B076')
        call Unit_Cancel_Counter(305,id)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:274")
    endif
endfunction

function Item_I0E6_attack_action_func003 takes unit u,unit whichUnit,real s returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer i
    if u==(Je[(id)])then
        if Item_I0E6_timer[id]==null then
            set i=Boss_Spell_allocate()
            set Item_I0E6_timer[id]=NewTimer(i)
            set Boss_Spell_data1[i]=id
            call TimerStart(Item_I0E6_timer[id],.33,true,function Item_I0E6_attack_action_func004)
            call UnitAddAbilityBY(u,'A0TG')
            call Unit_App_Counter(306,id)
        else
            set i=(alloc__hpv(GetHandleId((Item_I0E6_timer[id]))))
        endif
        set Boss_Spell_X[i]=$A
        set Boss_Spell_Z[i]=s
        set Boss_Spell_unit1[i]=whichUnit
    endif
endfunction

function Item_I0E6_attack_action_func002 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local unit u
    local real x
    local real y
    local real r
    local real t
    set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
    set index=$F
    loop
        set t=GetRandomReal(0,6.28)
        set r=GetRandomReal(0,350)
        set x=Boss_Spell_X[i]+Cos(t)*r
        set y=Boss_Spell_Y[i]+Sin(t)*r
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeEmbers.mdl",x,y))
        set index=index-1
        exitwhen index==0
    endloop
    set x=Boss_Spell_X[i]
    set y=Boss_Spell_Y[i]
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])and GetUnitAbilityLevel(u,'Avul')==0 then
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                call Item_I0E6_attack_action_func003(u,Boss_Spell_unit1[i],Boss_Spell_Z[i]*.1)
            endif
        endif
    endloop
    if Boss_Spell_data2[i]>=9 then
        call Lqv(Boss_Spell_data1[i],3)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:275")
    endif
endfunction

function Item_I0E6_attack_action takes nothing returns nothing
    local integer i
    local integer id=(pF_v)
    if(100000.-TimerGetRemaining(GameTimer))>Item_I0E6_cd[id]and GetRandomInt(1,100)<=$F then
        set Item_I0E6_cd[id]=(100000.-TimerGetRemaining(GameTimer))+3
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=(mF)
        set Boss_Spell_X[i]=GetUnitX((MF))
        set Boss_Spell_Y[i]=GetUnitY((MF))
        set Boss_Spell_Z[i]=GetHeroState2(Boss_Spell_unit1[i],true)*$A
        set Boss_Spell_data1[i]=LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],1.5)
        set Boss_Spell_data2[i]=0
        call TimerStart(NewTimer(i),.33,true,function Item_I0E6_attack_action_func002)
    endif
endfunction

function Item_I0E7_attack_action takes nothing returns nothing
    local integer eff
    if GetRandomInt(1,100)<=$F then
        call Ltv(LAv("yellowbolt",GetUnitX((MF)),GetUnitY((MF)),2.5))
        set eff=LAv("holystomp.mdl",GetUnitX((MF)),GetUnitY((MF)),3)
        call LFv(eff,"legionstrike.mdl")
        call Ltv(eff)
        call UnitDamageTargetBY(((mF)),((MF)),((20*(GetHeroState1((mF),true)+1.5*GetHeroState2((mF),true)+GetHeroState3((mF),true))+$C350)*1.),false,(false),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),((0)*1.),(""))
    endif
endfunction

function Item_I0E8_PickupOrDrop_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer up=0
    local integer i=8
    loop
        set i=i-1
        if MV[i]!=null then
            set up=up+1
        endif
        exitwhen i==0
    endloop
    if up!=Item_I0E8_lv[id]then
        set i=up-Item_I0E8_lv[id]
        set Item_I0E8_lv[id]=up
        call ModifyHeroAllStat(id,i*100)
        call ModifyUnitMagicDamage(id,i*5)
    endif
endfunction


function Item_I0E8_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0E8_timer[id]==null then
            set Item_I0E8_timer[id]=NewTimer(id)
            call TimerStart(Item_I0E8_timer[id],1,true,function Item_I0E8_PickupOrDrop_action_func)
            call Unit_App_Counter(307,id)
        endif
    elseif Item_I0E8_timer[id]!=null then
        call ReleaseTimer(Item_I0E8_timer[id],"[TimerUtils]Error:276")
        call ModifyHeroAllStat(id,-Item_I0E8_lv[id]*100)
        call ModifyUnitMagicDamage(id,-Item_I0E8_lv[id]*5)
        set Item_I0E8_lv[id]=0
        set Item_I0E8_timer[id]=null
        call Unit_Cancel_Counter(308,id)
    endif
endfunction


function Item_I0EC_attack_action takes nothing returns nothing
    if GetRandomInt(1,8)==1 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationCaster.mdl",(MF),"origin"))
        call UnitDamageTargetBY(((mF)),((MF)),((GetHeroState2((mF),true)*45+$ABDF)*1.),false,(true),false,false,(ConvertAttackType(0)),(ConvertDamageType($E)),(($A)*1.),("|c00FFFF00"))
    endif
endfunction

function Item_azhr_Damager_action2_func takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:278")
    set Item_bool_azhr[i]=0
endfunction

function Item_azhr_Damager_action_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u=Je[Boss_Spell_data1[i]]
    set Item_bool_azhr[Boss_Spell_data1[i]]=-1
    call DestroyEffect(Boss_Spell_eff[i])
    call DestroyEffect(AddSpecialEffectTarget("shiva'swrath.mdl",u,"origin"))
    call SetWidgetLife(u,GetWidgetLife(u)+GetUnitState(u,UNIT_STATE_MAX_LIFE)*.3)
    call TimerStart(GetExpiredTimer(),115,false,function Item_azhr_Damager_action2_func)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),(Boss_Spell_data1[i]))
    call Boss_Spell_deallocate(i)
    set u=null
endfunction

function Item_azhr_Damager_action takes nothing returns nothing
    if Item_bool_azhr[(pF)]==0 then
        if GetWidgetLife((MF))-GetDamage()<=GetUnitState((MF),UNIT_STATE_MAX_LIFE)*.4 then
            set Item_bool_azhr[(pF)]=Boss_Spell_allocate()
            set Boss_Spell_data1[Item_bool_azhr[(pF)]]=(pF)
            set Boss_Spell_eff[Item_bool_azhr[(pF)]]=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FreezingBreath\\FreezingBreathTargetArt.mdl",(MF),"origin")
            call TimerStart(NewTimer(Item_bool_azhr[(pF)]),5,false,function Item_azhr_Damager_action_func)
            set KF[HF]=KF[HF]+$989680
            call SetWidgetLife((MF),MinR(GetWidgetLife((MF)),GetUnitState((MF),UNIT_STATE_MAX_LIFE)*.4))
        endif
    elseif Item_bool_azhr[(pF)]>0 then
        set KF[HF]=KF[HF]+$989680
    endif
endfunction

function Item_I0F0_Damager_action takes nothing returns nothing
    local real r
    if Item_I0F0_life[(pF)]>0 then
        set r=GetDamage()
        if Item_I0F0_life[(pF)]<r then
            set r=Item_I0F0_life[(pF)]
            set Item_I0F0_life[(pF)]=0
            call UnitRemoveAbilityandBuffBY((MF),'A0VX','B085')
        else
            set Item_I0F0_life[(pF)]=Item_I0F0_life[(pF)]-r
        endif
        call DamageMinus(r)
    endif
endfunction

function Item_I0F0_PickupOrDrop_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Item_I0F0_life[id]==0 then
        call UnitAddAbilityBY((Je[(id)]),'A0VX')
    endif
    set Item_I0F0_life[id]=$3E8+GetUnitState((Je[(id)]),UNIT_STATE_MAX_MANA)*.12
endfunction

function Item_I0F0_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0F0_timer[id]==null then
            set Item_I0F0_timer[id]=NewTimer(id)
            set Item_I0F0_Damager[id]=UnitAddShieldTrigB((id),function Item_I0F0_Damager_action)
            call TimerStart(Item_I0F0_timer[id],6,true,function Item_I0F0_PickupOrDrop_action_func)
            call Unit_App_Counter(311,id)
        endif
    elseif Item_I0F0_timer[id]!=null then
        if GetUnitAbilityLevel((Je[(id)]),'A0VX')>0 then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VX','B085')
        endif
        call s__Trig_remove((Item_I0F0_Damager[id]))
        call ReleaseTimer(Item_I0F0_timer[id],"[TimerUtils]Error:279")
        set Item_I0F0_Damager[id]=0
        set Item_I0F0_life[id]=0
        set Item_I0F0_timer[id]=null
        call Unit_Cancel_Counter(312,id)
    endif
endfunction

function Item_I0F1_PickupOrDrop_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Item_I0F1_bool[id]then
        call ModifyUnitAttack(id,-$3A98)
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VG','B07T')
        set Item_I0F1_bool[id]=false
    else
        call ModifyUnitAttack(id,$3A98)
        call UnitAddAbilityBY((Je[(id)]),'A0VG')
        call DestroyEffect(AddSpecialEffectTarget("grin curse.mdl",(Je[(id)]),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("darkpillar.mdl",(Je[(id)]),"origin"))
        set Item_I0F1_bool[id]=true
    endif
    call TimerStart(GetExpiredTimer(),3,false,function Item_I0F1_PickupOrDrop_action_func)
endfunction

function Item_I0F1_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0F1_timer[id]==null then
            call ModifyHeroProperties(id,890)
            set Item_I0F1_timer[id]=NewTimer(id)
            set Item_I0F1_bool[id]=false
            call TimerStart(Item_I0F1_timer[id],6,false,function Item_I0F1_PickupOrDrop_action_func)
            call Unit_App_Counter(313,id)
        endif
    elseif Item_I0F1_timer[id]!=null then
        call ModifyHeroProperties(id,-890)
        if Item_I0F1_bool[id]then
            set Item_I0F1_bool[id]=false
            call ModifyUnitAttack(id,-$3A98)
        endif
        call ReleaseTimer(Item_I0F1_timer[id],"[TimerUtils]Error:280")
        set Item_I0F1_timer[id]=null
        call Unit_Cancel_Counter(314,id)
    endif
endfunction

function Item_I0EX_attack_action_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:281")
    call ModifyHeroProperties(id,-$3E8)
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VH','B07U')
    call Unit_Cancel_Counter(315,id)
endfunction

function Item_I0EX_attack_action takes nothing returns nothing
    local integer id=(pF_v)
    if(100000.-TimerGetRemaining(GameTimer))>Item_I0EX_cd[id]and GetRandomInt(1,100)<=3 then
        set Item_I0EX_cd[id]=(100000.-TimerGetRemaining(GameTimer))+30.
        call ModifyHeroProperties(id,$3E8)
        call UnitAddAbilityBY((Je[(id)]),'A0VH')
        call TimerStart(NewTimer(id),$A,false,function Item_I0EX_attack_action_func)
        call DestroyEffect(AddSpecialEffectTarget("darkpillar.mdl",(Je[(id)]),"origin"))
        call Unit_App_Counter(316,id)
    endif
endfunction

function Item_I0F5_Cure_action_func takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:282")
    local integer id=Boss_Spell_data1[i]
    call DeUnitMdef(id,Boss_Spell_data2[i])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VI','B07V')
    call Unit_Cancel_Counter(317,id)
    call Boss_Spell_deallocate(i)
endfunction

function Item_I0F5_Cure_action takes nothing returns nothing
    local integer i
    if(100000.-TimerGetRemaining(GameTimer))>Item_I0F5_cd[BECURE_Unit]and GetRandomInt(1,100)<=30 then
        set Item_I0F5_cd[BECURE_Unit]=Item_I0F5_cd[BECURE_Unit]+10.
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=BECURE_Unit
        set Boss_Spell_data2[i]=ModifyUnitMdef(BECURE_Unit,$F)
        call UnitAddAbilityBY(Je[BECURE_Unit],'A0VI')
        call TimerStart(NewTimer(i),5,false,function Item_I0F5_Cure_action_func)
        call Unit_App_Counter(318,BECURE_Unit)
    endif
endfunction

function Item_I0EW_attack_action_func takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:283")
    local integer id=Boss_Spell_data1[i]
    local unit u
    local real x=Boss_Spell_X[i]
    local real y=Boss_Spell_Y[i]
    call GroupEnumUnitsInRange(G,x,y,100+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,100)then
            if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c005A5A5A")))
            endif
        endif
    endloop
    call Unit_Cancel_Counter(319,id)
    call Boss_Spell_deallocate(i)
endfunction

function Item_I0EW_attack_action takes nothing returns nothing
    local integer i
    if GetRandomInt(1,20)==1 then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=(mF)
        set Boss_Spell_data1[i]=(pF_v)
        set Boss_Spell_X[i]=GetUnitX((MF))
        set Boss_Spell_Y[i]=GetUnitY((MF))
        set Boss_Spell_Z[i]=GetHeroPropertiesByAll(Boss_Spell_data1[i])*20.
        call Ltv(LAv("darklightning.mdl",Boss_Spell_X[i],Boss_Spell_Y[i],2))
        call TimerStart(NewTimer(i),.3,false,function Item_I0EW_attack_action_func)
        call Unit_App_Counter(320,Boss_Spell_data1[i])
    endif
endfunction

function Item_I0F4_attack_action_02 takes nothing returns nothing
    local integer t=J[Item_I0F4_id]
    local integer data
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real r
    loop
        exitwhen 0==t
        set data=Item_I0F4_V[t]
        if GetUnitTypeId(Boss_Spell_unit1[data])!=0 then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            call LKv(Boss_Spell_data2[data],GetUnitX(Boss_Spell_unit1[data]))
            call Llv(Boss_Spell_data2[data],GetUnitY(Boss_Spell_unit1[data]))
            call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((Boss_Spell_Z[data]+GetUnitFlyHeight(Boss_Spell_unit1[data]))*1.),0)
        else
            set Boss_Spell_data3[data]=0
        endif
        if Boss_Spell_data3[data]<1 then
            call Ltv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call fvv(t)
        endif
        set t=K[t]
    endloop
endfunction

function Item_I0F4_attack_action_01 takes unit u,integer fx,real timed returns nothing
    local integer t
    local integer data
    if Item_I0F4_id==0 then
        set Item_I0F4_id=fxv(function Item_I0F4_attack_action_02)
    endif
    set t=D9v(Item_I0F4_id)
    set data=Boss_Spell_allocate()
    set Item_I0F4_V[t]=data
    set Boss_Spell_unit1[data]=u
    set Boss_Spell_data2[data]=fx
    set Boss_Spell_data3[data]=R2I(32*timed)
    set Boss_Spell_Z[data]=(GetUnitFlyHeight(II[fx]))
    call SetUnitFlyHeight(II[fx],Boss_Spell_Z[data]+GetUnitFlyHeight(u),0)
endfunction

function Item_I0F4_attack_action_func takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:284")
    local integer id=Boss_Spell_data2[i]
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VN','B07Y')
    call ModifyUnitAttackSpeed(id,-20*Boss_Spell_data1[i])
    call ModifyUnitMagicDamage(id,-15.*Boss_Spell_data1[i])
    set Item_I0F4_timer[id]=null
    call Unit_Cancel_Counter(321,id)
    call Boss_Spell_deallocate(i)
endfunction

function Item_I0F4_attack_action takes nothing returns nothing
    local integer id=(pF_v)
    local integer lv=R2I((1.-GetWidgetLife((MF))/ GetUnitMaxLifeById((pF)))*4)
    local integer eff
    local integer i
    if lv>3 then
        set lv=3
    elseif lv<0 then
        set lv=0
    endif
    if lv>0 then
        if Item_I0F4_timer[id]==null then
            set i=Boss_Spell_allocate()
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=id
            set Item_I0F4_timer[id]=NewTimer(i)
            call UnitAddAbilityBY((Je[(id)]),'A0VN')
            call Unit_App_Counter(322,id)
        else
            set i=(alloc__hpv(GetHandleId((Item_I0F4_timer[id]))))
        endif
        if lv>Boss_Spell_data1[i]then
            set eff=LNv("Energy_Release.mdl",GetUnitX((MF)),GetUnitY((MF)),GetUnitFlyHeight((MF)),1.5)
            if lv==1 then
                call Lfv(eff,$FF,0,$FF,$FF)
            elseif lv==2 then
                call Lfv(eff,$FF,0,$7F,$FF)
            elseif lv==3 then
                call Lfv(eff,$FF,0,0,$FF)
            endif
            call DestroyEffect(AddSpecialEffectTarget("Twister Slash.mdx",(Je[(id)]),"origin"))
            call ModifyUnitAttackSpeed(id,20*(lv-Boss_Spell_data1[i]))
            call ModifyUnitMagicDamage(id,15.*(lv-Boss_Spell_data1[i]))
            call Item_I0F4_attack_action_01((Je[(id)]),eff,1.5)
            call TimerStart(Item_I0F4_timer[id],8,false,function Item_I0F4_attack_action_func)
            set Boss_Spell_data1[i]=lv
        elseif lv==Boss_Spell_data1[i]then
            call TimerStart(Item_I0F4_timer[id],8,false,function Item_I0F4_attack_action_func)
        endif
    endif
endfunction

function Item_I0EV_attack_action takes nothing returns nothing
    if GetRandomInt(1,20)==1 then
        set Boss_x[0]=GetUnitX((MF))
        set Boss_y[0]=GetUnitY((MF))
        set Boss_z[0]=(GetHeroState1((mF),true)+GetHeroState2((mF),true))*10.
        call UnitDamageTargetBY((((mF))),(((MF))),((((Boss_z[0])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c005A5A5A")))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",Boss_x[0],Boss_y[0],1.2),0,$FF,0,$FF))
        call Ltv(LAv("shadowassault.mdl",Boss_x[0],Boss_y[0],2))
    endif
endfunction

function Item_I0F7_attack_action takes nothing returns nothing
    local integer id=(pF_v)
    if GetRandomInt(1,20)==1 then
        set Boss_x[0]=GetUnitX((MF))
        set Boss_y[0]=GetUnitY((MF))
        set Boss_z[0]=(GetHeroState1((mF),true)+GetHeroState2((mF),true))*15.
        call UnitDamageTargetBY((((mF))),(((MF))),((((Boss_z[0])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c005A5A5A")))
        call Ltv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",Boss_x[0],Boss_y[0],1.2))
        call Ltv(Lfv(LAv("shadowassault.mdl",Boss_x[0],Boss_y[0],2),0,0,$FF,$FF))
    endif
    set Item_I0E7_atk[id]=Item_I0E7_atk[id]+1
    if Item_I0E7_atk[id]==7 then
        set Item_I0E7_atk[id]=0
        call DamageAmplifyDis(DAK_AMOUNT[HF]-PF,$F,"|c00808000")
    endif
endfunction

function Item_I0FD_n03L_Attack_action takes nothing returns nothing
    if GetUnitAbilityLevel((mF),'B084')>0 then
        call Ltv(LDv(Lfv(LIv("moon strike.mdl",GetUnitX((mF)),GetUnitY((mF)),0,1.5,GetUnitFacing((mF)),90),125,$FF,125,$FF),2))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((GetHeroPropertiesByAll(Item_I0F7_Unit[(pF_v)])*3.)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00008040")))
    endif
endfunction

function Item_I0FD_create_action_func takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:285")
    call ShowUnit(Boss_Spell_unit1[i],true)
    call PauseUnit(Boss_Spell_unit1[i],false)
    call UnitAddPAttackTrig((GetUnitUserData((Boss_Spell_unit1[i]))),function Item_I0FD_n03L_Attack_action)
    call UnitApplyTimedLife(Boss_Spell_unit1[i],'B08B',60)
    call SetUnitVertexColor(Boss_Spell_unit2[i],$FF,$FF,$FF,0)
    call UnitApplyTimedLife(Boss_Spell_unit2[i],0,.1)
    call DestroyEffect(Boss_Spell_eff[i])
    call Boss_Spell_deallocate(i)
endfunction

function Item_I0FD_create_action takes unit u,real x,real y,real a returns nothing
    local integer i=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((u)))
    set u=CreateUnit(GetOwningPlayer(u),'n03L',x,y,a)
    set x=GetUnitX(u)
    set y=GetUnitY(u)
    call ShowUnit(u,false)
    call PauseUnit(u,true)
    set Boss_Spell_unit1[i]=u
    set Item_I0F7_Unit[(GetUnitUserData((u)))]=id
    set CR=false
    set u=CreateUnit(GetOwningPlayer(u),'n03L',x,y,a)
    call UnitAddAbility(u,'Aloc')
    call UnitAddAbility(u,'Avul')
    set CR=true
    call SetUnitX(u,x)
    call SetUnitY(u,y)
    set Boss_Spell_unit2[i]=u
    set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",Boss_Spell_unit2[i],"origin")
    call SetUnitAnimation(Boss_Spell_unit1[i],"birth")
    call SetUnitAnimation(Boss_Spell_unit2[i],"birth")
    call TimerStart(NewTimer(i),2.33,false,function Item_I0FD_create_action_func)
endfunction

function Item_I0FD_death_action takes nothing returns nothing
    local integer id=s__Trig_P
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    local real r
    local integer i=2
    loop
        exitwhen i<1
        set a=GetRandomReal(0,6.28)
        set r=GetRandomReal(0,$96)
        call Item_I0FD_create_action((Je[(id)]),x+Cos(a)*r,y+Sin(a)*r,GetUnitFacing((Je[(id)])))
        set i=i-1
    endloop
endfunction

function Item_I0CH_Damager_action takes nothing returns nothing
    local real r
    if Item_I0CH_life[(pF)]>0 then
        set r=GetDamage()
        if Item_I0CH_life[(pF)]<r then
            set r=Item_I0CH_life[(pF)]
            set Item_I0CH_life[(pF)]=0
            call s__Trig_remove((Item_I0CH_Damager[(pF)]))
            set Item_I0CH_Damager[(pF)]=0
            call UnitRemoveAbilityandBuffBY((MF),'A0VY','B086')
        else
            set Item_I0CH_life[(pF)]=Item_I0CH_life[(pF)]-r
        endif
        call DamageMinus(r)
    endif
endfunction

function Item_I0CH_Attack_action takes nothing returns nothing
    if GetRandomInt(1,100)<=6 then
        call UnitDamageTargetBY((((mF))),(((MF))),(((((GetHeroState2((mF),true))*6.)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FFFF00")))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",(MF),"origin"))
    endif
endfunction

function Item_I0CH_PickupOrDrop_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Item_I0CH_Damager[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0VY')
        set Item_I0CH_Damager[id]=UnitAddShieldTrigB((id),function Item_I0CH_Damager_action)
    endif
    set Item_I0CH_life[id]=$FA0
endfunction

function Item_I0CH_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0CH_timer[id]==null then
            set Item_I0CH_timer[id]=NewTimer(id)
            set Item_I0CH_Attack[id]=UnitAddPAttackTrigB(id,function Item_I0CH_Attack_action)
            call TimerStart(Item_I0CH_timer[id],$C,true,function Item_I0CH_PickupOrDrop_action_func)
            call Unit_App_Counter(323,id)
        endif
    elseif Item_I0CH_timer[id]!=null then
        if Item_I0CH_Damager[id]!=null then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VY','B086')
            call s__Trig_remove((Item_I0CH_Damager[id]))
            set Item_I0CH_Damager[id]=0
        endif
        call s__Trig_remove((Item_I0CH_Attack[id]))
        call ReleaseTimer(Item_I0CH_timer[id],"[TimerUtils]Error:286")
        set Item_I0CH_Attack[id]=0
        set Item_I0CH_life[id]=0
        set Item_I0CH_timer[id]=null
        call Unit_Cancel_Counter(324,id)
    endif
endfunction

function Item_I0EZ_Spell_Effect_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=Item_I0EZ_Id[id]
    local real r=(100000.-TimerGetRemaining(GameTimer))
    local integer index=Boss_Spell_data1[i]
    local integer index2
    local integer end=Boss_Spell_data2[i]
    loop
        set index2=Boss_Spell_data2[index]
        if r>=Boss_Spell_Z[index]then
            call ModifyUnitMagicDamage(id,-3)
            call ModifyUnitCrit(id,-3)
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
            call Boss_Spell_deallocate(index)
            if Boss_Spell_data2[i]==0 then
                set Item_I0EZ_Id[id]=0
                call Boss_Spell_deallocate(i)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:287")
                call Unit_Cancel_Counter(325,id)
                return
            else
                set Boss_Spell_data1[index2]=Boss_Spell_data1[index]
                set Boss_Spell_data2[Boss_Spell_data1[index]]=index2
                if index==Boss_Spell_data1[i]then
                    set Boss_Spell_data1[i]=index2
                endif
            endif
        endif
        set end=end-1
        exitwhen end==0
        set index=index2
    endloop
endfunction

function Item_I0EZ_Spell_Effect_action takes nothing returns nothing
    local integer id=s__Trig_P
    local integer i=Item_I0EZ_Id[id]
    local integer index
    local integer index2
    local integer index3
    if i==0 then
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=0
        set Item_I0EZ_Id[id]=i
        call TimerStart(NewTimer(id),1,true,function Item_I0EZ_Spell_Effect_action_func)
        call Unit_App_Counter(326,id)
    endif
    set index=Boss_Spell_data1[i]
    if Boss_Spell_data2[i]<4 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        if index==0 then
            set index=Boss_Spell_allocate()
            set Boss_Spell_data1[index]=index
            set Boss_Spell_data2[index]=index
            set Boss_Spell_data1[i]=index
        else
            set index2=Boss_Spell_data1[index]
            set index3=index
            set index=Boss_Spell_allocate()
            set Boss_Spell_data1[index]=index2
            set Boss_Spell_data2[index]=index3
            set Boss_Spell_data1[index3]=index
            set Boss_Spell_data2[index2]=index
        endif
        set Boss_Spell_Z[index]=(100000.-TimerGetRemaining(GameTimer))+6
        call ModifyUnitMagicDamage(id,3)
        call ModifyUnitCrit(id,3)
        call NewTextTagInTarget_B((Je[(id)]),"|c0080FFFFSkills damage & crit chance +"+I2S(3*Boss_Spell_data2[i])+"%",8,$FF,$FF,$FF)
    else
        set Boss_Spell_Z[index]=(100000.-TimerGetRemaining(GameTimer))+6
        set Boss_Spell_data1[i]=Boss_Spell_data2[index]
    endif
endfunction

function Item_I0F2_Spell_Effect_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=Item_I0F2_Id[id]
    local real r=(100000.-TimerGetRemaining(GameTimer))
    local integer index=Boss_Spell_data1[i]
    local integer index2
    local integer end=Boss_Spell_data3[i]
    loop
        set index2=Boss_Spell_data1[index]
        if r>=Boss_Spell_Z[index]then
            call ModifyUnitMagicDamage(id,-2.5)
            call HeroAddExtraStr(id,-125)
            call Boss_Spell_deallocate(index)
            set Boss_Spell_data3[i]=Boss_Spell_data3[i]-1
            if Boss_Spell_data3[i]==0 then
                set Item_I0F2_Id[id]=0
                call Boss_Spell_deallocate(i)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:288")
                call Unit_Cancel_Counter(327,id)
                return
            else
                set Boss_Spell_data1[Boss_Spell_data2[index]]=index2
                set Boss_Spell_data2[index2]=Boss_Spell_data2[index]
            endif
        endif
        exitwhen index2==i
        set index=index2
    endloop
endfunction

function Item_I0F2_Spell_Effect_action takes nothing returns nothing
    local integer id=s__Trig_P
    local integer i=Item_I0F2_Id[id]
    local real r=(100000.-TimerGetRemaining(GameTimer))
    local integer index
    local integer index2
    if r>Item_I0F2_cd[id]then
        if i==0 then
            set i=Boss_Spell_allocate()
            set Boss_Spell_data1[i]=i
            set Boss_Spell_data2[i]=i
            set Boss_Spell_data3[i]=0
            set Item_I0F2_Id[id]=i
            call TimerStart(NewTimer(id),1,true,function Item_I0F2_Spell_Effect_action_func)
            call Unit_App_Counter(328,id)
        endif
        if Boss_Spell_data3[i]<5 then
            set Boss_Spell_data3[i]=Boss_Spell_data3[i]+1
            set index2=Boss_Spell_data1[i]
            set index=Boss_Spell_allocate()
            set Boss_Spell_data2[index2]=index
            set Boss_Spell_data1[i]=index
            set Boss_Spell_data1[index]=index2
            set Boss_Spell_data2[index]=i
            set Boss_Spell_Z[index]=r+$A
            call ModifyUnitMagicDamage(id,2.5)
            call HeroAddExtraStr(id,125)
            call NewTextTagInTarget_B((Je[(id)]),"|c00FF8080Strength+"+I2S(125*Boss_Spell_data3[i])+"& Skill damage"+R2SW(2.5*Boss_Spell_data3[i],2,1)+"%",8,$FF,$FF,$FF)
            if Boss_Spell_data3[i]<5 then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIim\\AIimTarget.mdl",(Je[(id)]),"origin"))
            else
                set Item_I0F2_cd[id]=r+30
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",(Je[(id)]),"origin"))
            endif
        endif
    endif
endfunction

function Item_I0EY_attack_action takes nothing returns nothing
    if GetRandomInt(1,33)==1 then
        set Boss_z[0]=(GetHeroState1((mF),true)+GetHeroState2((mF),true))*$F
        call UnitDamageTargetBY((((mF))),(((MF))),((((Boss_z[0])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        call DestroyEffect(AddSpecialEffectTarget("darkportalcast.max",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(MF),"origin"))
    endif
endfunction

function Item_I05U_spell2_action takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:289")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0W4','B088')
    set Item_I05U_timer[id]=null
    set Item_I05U_index[id]=0
endfunction

function Item_I05U_spell_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Item_I05U_timer[id]==null then
        set Item_I05U_timer[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A0W4')
    endif
    set Item_I05U_index[id]=3
    call TimerStart(Item_I05U_timer[id],30,false,function Item_I05U_spell2_action)
    call SetItemDroppableTimedById(id,'I05U',75)
endfunction

function Item_I05U_attack_action takes nothing returns nothing
    local integer id=(pF_v)
    if Item_I05U_index[id]>0 then
        set Item_I05U_index[id]=Item_I05U_index[id]-1
        if Item_I05U_index[id]==0 then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0W4','B088')
            call ReleaseTimer(Item_I05U_timer[id],"[TimerUtils]Error:290")
            set Item_I05U_timer[id]=null
        endif
        set Boss_z[0]=GetUnitMaxLifeById(id)
        set Boss_z[1]=UnitCure_Drain((mF),Boss_z[0]*.2,Boss_z[0]*.2)
        if Boss_z[1]>0 then
            call thv("|c0069ff2d+"+I2S(R2I(Boss_z[1]+.5)),GetUnitX((mF)),GetUnitY((mF)),GetUnitFlyHeight((mF))+25,.03,.02,bj_PI/ 2,.5,.75)
        endif
        call UnitDamageTargetBY((((mF))),(((MF))),((((Boss_z[0]*$A)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c008000FF")))
        call DestroyEffect(AddSpecialEffectTarget("darkwave.max",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("darklightning.max",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("darknove.max",(mF),"origin"))
    elseif GetRandomInt(1,33)==1 then
        set Boss_z[0]=(GetHeroState2((mF),true))*20
        call UnitDamageTargetBY((((mF))),(((MF))),((((Boss_z[0])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c008000FF")))
        call DestroyEffect(AddSpecialEffectTarget("darkpillar.max",(MF),"origin"))
    endif
endfunction

function Item_I05U_PickupOrDrop_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I05U_Attack[id]==null then
            set Item_I05U_Attack[id]=UnitAddPAttackTrigB(id,function Item_I05U_attack_action)
            call Unit_App_Counter(329,id)
            if Item_I05U_Attack[0]==0 then
                set Item_I05U_Attack[0]=-1
                call RegisterSpellEffectEvent('A0W3',function Item_I05U_spell_action)
            endif
        endif
    elseif Item_I05U_Attack[id]!=null then
        call s__Trig_remove((Item_I05U_Attack[id]))
        set Item_I05U_Attack[id]=0
        if Item_I05U_timer[id]!=null then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0W4','B088')
            call ReleaseTimer(Item_I05U_timer[id],"[TimerUtils]Error:291")
            set Item_I05U_timer[id]=null
            set Item_I05U_index[id]=0
        endif
        call Unit_Cancel_Counter(330,id)
    endif
endfunction

function Item_I0FO_attack_action takes nothing returns nothing
    if GetRandomInt(1,20)==1 then
        set Boss_z[0]=GetHeroStateByMax((mF))*25
        call UnitDamageTargetBY((((mF))),(((MF))),((((Boss_z[0])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00808080")))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Impale\\ImpaleHitTarget.mdl",(MF),"origin"))
    endif
endfunction

function Item_I0FN_death_action_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    local real x
    local real y
    local real z
    local real r
    local boolean b=false
    if(Je[(id)])!=null then
        set Boss_x[0]=GetUnitX((Je[(id)]))
        set Boss_y[0]=GetUnitY((Je[(id)]))
        set Boss_z[0]=GetPointZ(Boss_x[0],Boss_y[0])+GetUnitFlyHeight((Je[(id)]))+50
        set Boss_x[1]=GetUnitX(Boss_Spell_unit2[i])
        set Boss_y[1]=GetUnitY(Boss_Spell_unit2[i])
        set Boss_z[1]=GetPointZ(Boss_x[1],Boss_y[1])+GetUnitFlyHeight(Boss_Spell_unit2[i])
        set x=(Boss_x[0]-Boss_x[1])*.05
        set y=(Boss_y[0]-Boss_y[1])*.05
        set z=(Boss_z[0]-Boss_z[1])*.05
        set r=x*x+y*y+z*z
        set x=Boss_x[1]+x
        set y=Boss_y[1]+y
        set z=Boss_z[1]+z-GetPointZ(x,y)
        call SetUnitX(Boss_Spell_unit2[i],x)
        call SetUnitY(Boss_Spell_unit2[i],y)
        call SetUnitFlyHeight(Boss_Spell_unit2[i],z,0)
        if r<=$1E848 then
            set b=true
        endif
    else
        set b=true
    endif
    if b then
        if(Je[(id)])!=null then
            call ReviveHero((Je[(id)]),GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),true)
        endif
        call DestroyEffect(Boss_Spell_eff[i])
        call KillUnit(Boss_Spell_unit2[i])
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:292")
        call Unit_Cancel_Counter(331,id)
    endif
endfunction

function Item_I0FN_death_action takes nothing returns nothing
    local integer id=Ahv
    local integer i
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real z
    local unit u
    local group g=CreateGroup()
    call GroupEnumUnitsInRange(g,x,y,600+75,null)
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        if IsUnitInRangeXY(u,x,y,600)then
            if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                exitwhen not(IsUnitType(u,UNIT_TYPE_GIANT)or IsUnitType(u,UNIT_TYPE_UNDEAD)or IsUnitType(u,UNIT_TYPE_HERO)or IsUnitType(u,UNIT_TYPE_MECHANICAL)or IsUnitType(u,UNIT_TYPE_ETHEREAL)or IsUnitIllusion(u))
            endif
        endif
    endloop
    call DestroyGroup(g)
    set g=null
    if u!=null then
        set Item_I0FN_cd[id]=(100000.-TimerGetRemaining(GameTimer))+120
        set IsSleepRevive[id]=true
        set Hero_Revive_HP[id]=RMaxBJ(.4,GetUnitState(u,UNIT_STATE_LIFE)/ GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))
        set Hero_Revive_MP[id]=GetUnitState(u,UNIT_STATE_LIFE)/ GetUnitState(u,UNIT_STATE_MAX_LIFE)
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=id
        call KillUnit(u)
        set x=GetUnitX(u)
        set y=GetUnitY(u)
        set z=GetUnitFlyHeight(u)
        set CR=FALSE
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",u,"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",u,"origin"))
        set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',x,y,0)
        call SetUnitX(Boss_Spell_unit2[i],x)
        call SetUnitY(Boss_Spell_unit2[i],y)
        call SetUnitFlyHeight(Boss_Spell_unit2[i],z,0)
        call SetUnitScale(Boss_Spell_unit2[i],.75,0,0)
        set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl",Boss_Spell_unit2[i],"origin")
        set CR=true
        call TimerStart(NewTimer(i),.03125,true,function Item_I0FN_death_action_func)
        call SetItemDroppableTimedById(id,'I0FN',120)
        call Unit_App_Counter(332,id)
    else
        set u=null
    endif
endfunction

function Item_I0FP_attack_action takes nothing returns nothing
    local unit u
    if GetRandomInt(1,20)==1 then
        set Boss_x[0]=GetUnitX((MF))
        set Boss_y[0]=GetUnitY((MF))
        set Boss_z[0]=GetHeroState2((mF),true)*40
        call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",Boss_x[0],Boss_y[0],2))
        call GroupEnumUnitsInRange(G,Boss_x[0],Boss_y[0],$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,Boss_x[0],Boss_y[0],$FA)then
                if IsUnitAliveAndEnemyNotAvul(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((Boss_z[0])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FF8000")))
                endif
            endif
        endloop
    endif
endfunction

function Init_ItemAbility takes nothing returns nothing
    call SaveReal(BYHT,DroppableTimed,('ratf'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('srbd'),((30)*1.))
    call SaveReal(BYHT,DroppableTimed,('sor4'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0D9'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('rlif'),((60)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0D2'),((60)*1.))
    call RegisterSpellEffectEvent('A0SH',function ItemAbility_001_Actions)
    call RegisterSpellEffectEvent('A0SI',function ItemAbility_002_Actions)
    call RegisterSpellEffectEvent('A0SJ',function ItemAbility_003_Actions)
    call RegisterSpellEffectEvent('A0TC',function ItemAbility_004_Actions)
    call RegisterSpellEffectEvent('A0TF',function ItemAbility_005_Actions)
    call RegisterSpellEffectEvent('A0TI',function ItemAbility_006_Actions)
    call RegisterSpellEffectEvent('A0TK',function ItemAbility_007_Actions)
    call RegisterSpellEffectEvent('A0TM',function ItemAbility_008_Actions)
    call RegisterSpellEffectEvent('A0TO',function ItemAbility_009_Actions)
    call RegisterSpellEffectEvent('A0TP',function ItemAbility_010_Actions)
    call RegisterSpellEffectEvent('A0TT',function ItemAbility_011_Actions)
    call RegisterSpellEffectEvent('A0TU',function ItemAbility_012_Actions)
    call RegisterSpellEffectEvent('A0UX',function ItemAbility_013_Actions)
    call RegisterSpellEffectEvent('A0VJ',function ItemAbility_014_Actions)
    call RegisterSpellEffectEvent('A0VL',function ItemAbility_015_Actions)
    call RegisterSpellEffectEvent('A0VO',function ItemAbility_016_Actions)
    call RegisterSpellEffectEvent('A0VT',function ItemAbility_017_Actions)
    call RegisterSpellEffectEvent('A0VU',function ItemAbility_018_Actions)
    call RegisterSpellEffectEvent('A0W0',function ItemAbility_019_Actions)
    call RegisterSpellEffectEvent('A0VZ',function ItemAbility_020_Actions)
    call RegisterSpellEffectEvent('A0W2',function ItemAbility_021_Actions)
    call RegisterSpellEffectEvent('A0WA',function ItemAbility_022_Actions)
    call RegisterSpellEffectEvent('A0WB',function ItemAbility_023_Actions)
    call RegisterSpellEffectEvent('A0WG',function ItemAbility_024_Actions)
    call RegisterSpellEffectEvent('A0WH',function ItemAbility_025_Actions)
    set Item_I00A_Func=function Item_I00A_attack_action
    set Item_I00C_Func=function Item_I00C_Damager_action
    set Item_I00E_Func=function Item_I00E_attack_action
    set Item_I05H_Func=function Item_I05H_attack_action
    set Item_I0DT_Func=function Item_I0DT_attack_action
    set Item_I0DU_Func=function Item_I0DU_attack_action
    set Item_I0DV_Func=function Item_I0DV_PickupOrDrop_action
    set Item_I0DW_Func=function Item_I0DW_death_action
    set Item_I0DX_Func=function Item_I0DX_attack_action
    set Item_I0DY_Func=function Item_I0DY_PickupOrDrop_action
    set Item_I0DZ_Func=function Item_I0DZ_attack_action
    set Item_I0E0_Func=function Item_I0E0_attack_action
    set Item_I0E1_Func=function Item_I0E1_PickupOrDrop_action
    set Item_I0E2_Func=function Item_I0E2_attack_action
    set Item_I0E3_Func=function Item_I0E3_Spell_Effect_action
    set Item_I0E4_Func=function Item_I0E4_PickupOrDrop_action
    set Item_I0E5_Func=function Item_I0E5_attack_action
    set Item_I0E6_Func=function Item_I0E6_attack_action
    set Item_I0E7_Func=function Item_I0E7_attack_action
    set Item_I0E8_Func=function Item_I0E8_PickupOrDrop_action
    set Item_I0EC_Func=function Item_I0EC_attack_action
    set Item_azhr_Func=function Item_azhr_Damager_action
    set Item_I0F0_Func=function Item_I0F0_PickupOrDrop_action
    set Item_I0F1_Func=function Item_I0F1_PickupOrDrop_action
    set Item_I0EX_Func=function Item_I0EX_attack_action
    set Item_I0F5_Func=function Item_I0F5_Cure_action
    set Item_I0EW_Func=function Item_I0EW_attack_action
    set Item_I0F4_Func=function Item_I0F4_attack_action
    set Item_I0EV_Func=function Item_I0EV_attack_action
    set Item_I0F7_Func=function Item_I0F7_attack_action
    set Item_I0FD_Func=function Item_I0FD_death_action
    set Item_I0CH_Func=function Item_I0CH_PickupOrDrop_action
    set Item_I0EZ_Func=function Item_I0EZ_Spell_Effect_action
    set Item_I0F2_Func=function Item_I0F2_Spell_Effect_action
    set Item_I0EY_Func=function Item_I0EY_attack_action
    set Item_I05U_Func=function Item_I05U_PickupOrDrop_action
    set Item_I0FO_Func=function Item_I0FO_attack_action
    set Item_I0FN_Func=function Item_I0FN_death_action
    set Item_I0FP_Func=function Item_I0FP_attack_action
endfunction

function BossDTS___Ability03_Func_02 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local unit u
    if Boss_Spell_data3[i]==0 then
        set Boss_Spell_data3[i]=44
        set x=GetUnitX(Boss_Spell_unit2[i])
        set y=GetUnitY(Boss_Spell_unit2[i])
        call DestroyEffect(AddSpecialEffect("lightnova.mdl",x,y))
        call Lqv(LAv("lightstrikearray.mdl",x,y,1),2)
        call UnitAddAbility(Boss_Spell_unit2[i],'A0WT')
        call UnitAddAbility(Boss_Spell_unit2[i],'A0WU')
        call UnitMakeAbilityPermanent(Boss_Spell_unit2[i],true,'A0WU')
        call SetUnitTimeScale(Boss_Spell_unit2[i],4)
        set Boss_Spell_data2[i]=LAv("cauterize.mdx",x,y,1.5)
        call TimerStart(GetExpiredTimer(),1,true,function BossDTS___Ability03_Func_02)
        call GroupEnumUnitsInRange(G,x,y,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                if IsUnitType(u,UNIT_TYPE_HERO)then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($C350)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                else
                    call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($30D40)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                endif
            endif
        endloop
    else
        if Boss_Spell_data3[i]>1 and UnitAlive(Boss_Spell_unit2[i])then
            set x=GetUnitX(Boss_Spell_unit2[i])
            set y=GetUnitY(Boss_Spell_unit2[i])
            call DestroyEffect(AddSpecialEffect("lightnova.mdl",x,y))
            set Boss_Spell_data3[i]=Boss_Spell_data3[i]-1
        else
            call Ltv(Boss_Spell_data2[i])
            call RemoveUnitBJ(Boss_Spell_unit2[i],50)
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:643")
        endif
    endif
endfunction

function BossDTS___Ability03_Func_01 takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    local real x
    local real y
    local unit u
    if GetTriggerUnit()!=null then
        if EvelId==274 then
            set x=GetSpellTargetX()
            set y=GetSpellTargetY()
            set i=Boss_Spell_allocate()
            set Boss_Spell_data1[i]=id
            set Boss_Spell_data2[i]=(GetUnitUserData((CreateUnit(GetOwningPlayer((Je[(id)])),'n03W',x,y,0))))
            set Boss_Spell_data3[i]=0
            set Boss_Spell_unit1[i]=(Je[(id)])
            set Boss_Spell_unit2[i]=(Je[(Boss_Spell_data2[i])])
            call SetUnitFlyHeight(Boss_Spell_unit2[i],512,$9C4)
            call SetUnitTimeScale(Boss_Spell_unit2[i],0)
            set PB[Boss_Spell_data2[i]]=true
            call TimerStart(NewTimer(i),.7,false,function BossDTS___Ability03_Func_02)
        elseif EvelId==272 then
            call NewTextTagInTarget_B((Je[(id)]),"|cFFFFFF00Sanctions sword!",18,$FF,$FF,$FF)
        endif
    endif
endfunction

function BossDTS___Ability02_Func_01 takes nothing returns nothing
    call NewTextTagInTarget_B(GetTriggerUnit(),"|cFFFFFF00Divine power!",18,$FF,$FF,$FF)
endfunction

function BossDTS___Ability01_Func_02 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local unit u
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        call DEv(Boss_Spell_data2[i],"judgementtarget.mdx")
        call SetUnitScale(II[(Boss_Spell_data2[i])],((3)*1.),0,0)
        call TimerStart(GetExpiredTimer(),.5,false,function BossDTS___Ability01_Func_02)
    else
        set x=GetUnitX(II[Boss_Spell_data2[i]])
        set y=GetUnitY(II[Boss_Spell_data2[i]])
        call GroupEnumUnitsInRange(G,x,y,100+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,100)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                if IsUnitType(u,UNIT_TYPE_HERO)then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($30D40)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FFFF00")))
                else
                    call KillUnit(u)
                endif
            endif
        endloop
        call Lqv(Boss_Spell_data2[i],1)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:644")
    endif
endfunction

function BossDTS___Ability01_Func_01 takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    local real x
    local real y
    local unit u
    if GetTriggerUnit()!=null then
        if EvelId==274 then
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            call GroupEnumUnitsInRange(G,x,y,$9C4,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                    set i=Boss_Spell_allocate()
                    set Boss_Spell_unit1[i]=(Je[(id)])
                    set Boss_Spell_data1[i]=0
                    set Boss_Spell_data2[i]=LAv("fireaura.mdx",GetUnitX(u),GetUnitY(u),1)
                    call TimerStart(NewTimer(i),1,false,function BossDTS___Ability01_Func_02)
                endif
            endloop
        elseif EvelId==272 then
            call NewTextTagInTarget_B((Je[(id)]),"|cFFFFFF00Light ah!",18,$FF,$FF,$FF)
        endif
    endif
endfunction

function BossDTS___Attack_Func_1 takes nothing returns nothing
    local real v=GetWidgetLife((mF))/ GetUnitMaxLifeById((pF_v))
    local integer i=GetRandomInt(1,100)
    if i>50 and v<.8 then
        set Xm=PickRandomUnitInUnitRange((mF),$578)
        if Xm!=null then
            call IssuePointOrderById((mF),$D009D,GetUnitX(Xm),GetUnitY(Xm))
        endif
    endif
endfunction

function BossDTS___Start_2 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    if UnitAlive(BossDTS___Unit)then
        if Boss_Spell_data1[i]>1 then
            set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
        else
            call SetRect(bj_lastMoveRect,-$52C0,-$79C0,-$42E0,-$6B40)
            call GroupEnumUnitsInRect(G,bj_lastMoveRect,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                exitwhen IsUnitAliveAndEnemyNotAvul(u,BossDTS___Unit)
            endloop
            if u!=null and IssueImmediateOrderById(BossDTS___Unit,$D0048)then
                set Boss_Spell_data1[i]=32
            endif
            set u=null
        endif
    else
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:645")
    endif
endfunction

function BossDTS___GetEnterPoint takes integer id returns nothing
    local integer i=GetPlayerId(GetOwningPlayer((Je[(id)])))
    local real x=-$4A80
    local real y=-$7280
    local real a=Deg2Rad(i*45)
    local real r
    if ModuloInteger(i,2)==0 then
        set r=768
    else
        set r=512/ SquareRoot(.5)
    endif
    set BossDTS___Enter_X[id]=x+Cos(a)*r
    set BossDTS___Enter_Y[id]=y+Sin(a)*r
endfunction

function BossDTS___Start takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index=Boss_Spell_data1[i]
    local integer id
    local unit u
    local group g
    local real l__tr=(100000.-TimerGetRemaining(GameTimer))
    local real x=GetUnitX(Boss_Spell_unit1[i])
    local real y=GetUnitY(Boss_Spell_unit1[i])
    if index==0 then
        call TimerStart(GetExpiredTimer(),.03125,true,function BossDTS___Start)
    endif
    set g=Boss_Spell_group1[i]
    call GroupEnumUnitsInRange(G,x,y,650,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        set id=(GetUnitUserData((u)))
        if UnitAlive(u)and nC[id]then
            if BossDTS___Enter_timer[id]==0 then
                call GroupAddUnit(g,u)
                set BossDTS___Enter_timer[id]=l__tr+5
                set BossDTS___Enter_X[id]=GetUnitX(u)
                set BossDTS___Enter_Y[id]=GetUnitY(u)
            endif
        endif
    endloop
    set Boss_Spell_group1[i]=Boss_Spell_group2[i]
    set Boss_Spell_group2[i]=g
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        set id=(GetUnitUserData((u)))
        if UnitAlive(u)and IsUnitInRangeXY(u,x,y,600)then
            if BossDTS___Enter_timer[id]<=l__tr then
                set Off_A098[id]=TRUE
                set Off_A098_id[id]='n03H'
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportCaster.mdl",GetUnitX(u),GetUnitY(u)))
                call BossDTS___GetEnterPoint(id)
                call SetUnitPosition(u,BossDTS___Enter_X[id],BossDTS___Enter_Y[id])
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportCaster.mdl",GetUnitX(u),GetUnitY(u)))
            else
                if GetUnitX(u)!=BossDTS___Enter_X[id]or GetUnitY(u)!=BossDTS___Enter_Y[id]then
                    set BossDTS___Enter_timer[id]=l__tr+5
                    set BossDTS___Enter_X[id]=GetUnitX(u)
                    set BossDTS___Enter_Y[id]=GetUnitY(u)
                endif
                call GroupAddUnit(Boss_Spell_group1[i],u)
            endif
        else
            set BossDTS___Enter_timer[id]=0
            set BossDTS___Enter_X[id]=0
            set BossDTS___Enter_Y[id]=0
        endif
    endloop
    set g=null
    if index>32*60 then
        call KillUnit(Boss_Spell_unit1[i])
        call DestroyGroup(Boss_Spell_group1[i])
        call DestroyGroup(Boss_Spell_group2[i])
        set Boss_Spell_data1[i]=32*45
        call TimerStart(GetExpiredTimer(),.03125,true,function BossDTS___Start_2)
        set id=(GetUnitUserData((BossDTS___Unit)))
        call SetUnitInvulnerable(BossDTS___Unit,false)
        call PauseUnit(BossDTS___Unit,false)
        call UnitAddPAttackTrig(id,function BossDTS___Attack_Func_1)
    else
        set Boss_Spell_data1[i]=index+1
    endif
endfunction

function BossDTS___Enter_de takes nothing returns nothing
    call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
endfunction

function BossDTS___Enter takes nothing returns nothing
    local boolean b1=(hE==null)
    local boolean b2=(BossDTS___Index==-1)
    local boolean b3=(IsUnitInRangeXY(GetTriggerUnit(),-$4380,-$AFF,$96))
    local boolean b4=IsItemCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04Y'),50)
    local integer i
    if b1 and b2 and b3 and b4 then
        call RemoveItemByCharges(GetItemOfTypeFromUnit(GetTriggerUnit(),'I04Y'),50)
        set BossDTS___Index=0
        call CancelRegisterSpellEffectEvent('A0WP')
        call RegisterSpellChannelEvent('A0WP',function BossDTS___Enter_de)
        set hE=CreateTrigger()
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=0
        set Boss_Spell_group1[i]=CreateGroup()
        set Boss_Spell_group2[i]=CreateGroup()
        set CR=false
        set Boss_Spell_unit1[i]=CreateUnit(Player($F),'n03U',-$4380,-$AFF,0)
        call SetUnitX(Boss_Spell_unit1[i],-$4380)
        call SetUnitY(Boss_Spell_unit1[i],-$AFF)
        set CR=true
        call SetUnitAnimation(Boss_Spell_unit1[i],"birth")
        call SetUnitTimeScale(Boss_Spell_unit1[i],.9/ 3.)
        call TimerStart(NewTimer(i),3,false,function BossDTS___Start)
    else
        if b1 and b2 and b3 then
            call NewTextTagInTarget_B(GetTriggerUnit(),"Not enough powder",8,$CD,$FF,$9B)
        elseif b1 and b2 then
            call NewTextTagInTarget_B(GetTriggerUnit(),"You can not use it here",8,$CD,$FF,$9B)
        else
            call NewTextTagInTarget_B(GetTriggerUnit(),"Not yet time",8,$CD,$FF,$9B)
        endif
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    endif
endfunction

function BossDTS___onInit takes nothing returns nothing
    local real x=-$4A80
    local real y=-$7280
    set BossDTS___Unit=gg_unit_n03H_0776
    call SetUnitInvulnerable(BossDTS___Unit,true)
    call PauseUnit(BossDTS___Unit,true)
    call SetUnitX(BossDTS___Unit,x)
    call SetUnitY(BossDTS___Unit,y)
    call RegisterSpellEffectEvent('A0WP',function BossDTS___Enter)
    call RegisterSpellEffectEvent('A0WQ',function BossDTS___Ability01_Func_01)
    call RegisterSpellChannelEvent('A0WQ',function BossDTS___Ability01_Func_01)
    call RegisterSpellChannelEvent('A0WR',function BossDTS___Ability02_Func_01)
    call RegisterSpellChannelEvent('A0WS',function BossDTS___Ability03_Func_01)
    call RegisterSpellEffectEvent('A0WS',function BossDTS___Ability03_Func_01)
endfunction

function BossHDLZ___Ability03_Func_05 takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=GetUnitUserData(GetEnumUnit())
    call SetUnitFlyHeight(GetEnumUnit(),GetUnitFlyHeight(GetEnumUnit())-Boss_Spell_Z[i],0)
endfunction

function BossHDLZ___Ability03_Func_04 takes nothing returns nothing
    local unit u=GetEnumUnit()
    local integer index=GetUnitUserData(u)
    call SetUnitUserData(u,0)
    call UnitApplyTimedLife(u,0,.5)
    set Boss_Spell_unit1[index]=null
    if Boss_Spell_eff[index]!=null then
        call DestroyEffect(Boss_Spell_eff[index])
        set Boss_Spell_eff[index]=null
    endif
    call Boss_Spell_deallocate(index)
    set u=null
endfunction

function BossHDLZ___Ability03_Func_03 takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=GetUnitUserData(GetEnumUnit())
    local real x=GetUnitX(GetEnumUnit())
    local real y=GetUnitY(GetEnumUnit())
    local unit u
    if IsUnitHidden(GetEnumUnit())then
        set Boss_Spell_data2[index]=Boss_Spell_data2[index]-1
        if Boss_Spell_data2[index]==0 then
            call ShowUnit(GetEnumUnit(),true)
        endif
    else
        if Boss_Spell_data3[i]==0 then
            call GroupEnumUnitsInRange(G,x,y,100+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,100)and u==Boss_Spell_unit1[i]then
                    set Boss_Spell_data3[i]=index
                endif
            endloop
        endif
    endif
    set u=null
endfunction

function BossHDLZ___Ability03_Func_02 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local integer v
    local integer array v_2
    local real x
    local real y
    local unit u
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_X[i]=Boss_Spell_X[i]+1
        if Boss_Spell_X[i]==32 then
            set Boss_Spell_X[i]=0
            set Boss_Spell_Y[i]=Boss_Spell_Y[i]+1
            if Boss_Spell_Y[i]<120 then
                call NewTextTagInTarget_B(Boss_Spell_unit1[i],"|c00FF8000"+I2S(120-R2I(Boss_Spell_Y[i]))+"|r",18,$FF,$FF,$FF)
                if ModuloInteger(R2I(Boss_Spell_Y[i]),20)==0 then
                    set v=0
                    set index=0
                    loop
                        exitwhen index==8
                        if ModuloInteger(Boss_Spell_data2[i]/ Pow2n[index],2)==0 then
                            set v=v+1
                            set v_2[v]=index
                        endif
                        set index=index+1
                    endloop
                    if v>0 then
                        set CR=false
                        set v=v_2[GetRandomInt(1,v)]
                        set index=Boss_Spell_allocate()
                        set Boss_Spell_data1[index]=v
                        set Boss_Spell_data2[index]=32
                        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+Pow2n[v]
                        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",BossHDLZ___HOJU_X[v],BossHDLZ___HOJU_Y[v]))
                        set u=CreateUnit(GetOwningPlayer(Boss_Spell_unit1[i]),'h041',BossHDLZ___HOJU_X[v],BossHDLZ___HOJU_Y[v],0)
                        call SetUnitX(u,BossHDLZ___HOJU_X[v])
                        call SetUnitY(u,BossHDLZ___HOJU_Y[v])
                        call ShowUnit(u,false)
                        call SetUnitUserData(u,index)
                        call GroupAddUnit(Boss_Spell_group1[i],u)
                        set Boss_Spell_unit1[index]=u
                        set Boss_Spell_eff[index]=null
                        set CR=true
                    endif
                endif
            else
                call NewTextTagInTarget_B(Boss_Spell_unit1[i],"|c00FF8000Ha ha! Now u will dead!!|r",18,$FF,$FF,$FF)
                set index=Boss_Spell_data1[0]
                set Boss_Spell_data1[0]=i
                call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability03_Func_04)
                set Boss_Spell_data1[0]=index
                call TimerStart(GetExpiredTimer(),.03125,true,function BossHDLZ___Ability03_Func_02)
                set Boss_Spell_data1[i]=1
                set Boss_Spell_data2[i]=32
                if BossHDLZ___Order[GetUnitUserData(Boss_Spell_unit1[i])]==0 then
                    set BossHDLZ___Order[GetUnitUserData(Boss_Spell_unit1[i])]=5
                    call PauseUnit(Boss_Spell_unit1[i],true)
                    call SetUnitInvulnerable(Boss_Spell_unit1[i],true)
                    call SetUnitAnimation(Boss_Spell_unit1[i],"Spell")
                endif
            endif
        endif
        if Boss_Spell_Y[i]<120 then
            set index=Boss_Spell_data1[0]
            set Boss_Spell_data1[0]=i
            call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability03_Func_03)
            set Boss_Spell_data1[0]=index
            if Boss_Spell_data3[i]>0 then
                set index=Boss_Spell_data3[i]
                set v=Boss_Spell_data1[index]
                set x=BossHDLZ___HOJU_X[v]
                set y=BossHDLZ___HOJU_Y[v]
                call NewTextTagInTarget_B(Boss_Spell_unit1[index],"|c00FF8080Interference|r",8,$FF,$FF,$FF)
                call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2))
                call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$FA)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($C350)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    endif
                endloop
                set index=Boss_Spell_data1[0]
                set Boss_Spell_data1[0]=i
                call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability03_Func_04)
                set Boss_Spell_data1[0]=index
                call DestroyGroup(Boss_Spell_group1[i])
                set Boss_Spell_group1[i]=null
                call Boss_Spell_deallocate(i)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:646")
            endif
        endif
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        set index=Boss_Spell_allocate()
        set CR=false
        set u=CreateUnit(GetOwningPlayer(Boss_Spell_unit1[i]),'e001',$53C0,$9C0,0)
        call SetUnitX(u,$53C0)
        call SetUnitY(u,$9C0)
        if UnitAddAbility(u,'Amrf')then
            call UnitRemoveAbility(u,'Amrf')
        endif
        call SetUnitFlyHeight(u,$4B0,0)
        call SetUnitScale(u,$F,$F,$F)
        set Boss_Spell_eff[index]=AddSpecialEffectTarget("Abilities\\Spells\\Orc\\Bloodlust\\BloodlustTarget.mdl",u,"origin")
        call SetUnitUserData(u,index)
        call GroupAddUnit(Boss_Spell_group1[i],u)
        set Boss_Spell_unit1[index]=u
        set CR=true
        if Boss_Spell_data2[i]==0 then
            set Boss_Spell_data1[i]=2
            set Boss_Spell_Z[i]=1
            if BossHDLZ___Order[GetUnitUserData(Boss_Spell_unit1[i])]==5 then
                set BossHDLZ___Order[GetUnitUserData(Boss_Spell_unit1[i])]=0
                call PauseUnit(Boss_Spell_unit1[i],false)
                call SetUnitInvulnerable(Boss_Spell_unit1[i],false)
            endif
        endif
    elseif Boss_Spell_data1[i]==2 then
        if Boss_Spell_Z[i]<60 then
            set Boss_Spell_Z[i]=Boss_Spell_Z[i]*1.1+1
        endif
        set index=Boss_Spell_data1[0]
        set Boss_Spell_data1[0]=i
        call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability03_Func_05)
        set Boss_Spell_data1[0]=index
        if GetUnitFlyHeight(FirstOfGroup(Boss_Spell_group1[i]))<$A then
            set Boss_Spell_data1[index]=3
            set index=Boss_Spell_data1[0]
            set Boss_Spell_data1[0]=i
            call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability03_Func_04)
            set Boss_Spell_data1[0]=index
            set x=$53C0
            set y=$9C0
            call Ltv(LAv("firegold.mdl",x,y,7))
            call SetRect(bj_lastMoveRect,$5BA0,-$A00,$6BC0,$560)
            call GroupEnumUnitsInRect(G,bj_lastMoveRect,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                    call KillUnitBJ(u)
                endif
            endloop
        endif
    else
        call DestroyGroup(Boss_Spell_group1[i])
        set Boss_Spell_group1[i]=null
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:647")
    endif
endfunction

function BossHDLZ___Ability03_Func_01 takes unit u returns nothing
    local integer id=GetUnitUserData(u)
    local integer i
    local real x
    local real y
    if(Je[(id)])==u then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=(Je[(id)])
        set Boss_Spell_unit2[i]=null
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=0
        set Boss_Spell_data3[i]=0
        set Boss_Spell_X[i]=0
        set Boss_Spell_Y[i]=0
        set Boss_Spell_Z[i]=0
        set Boss_Spell_group1[i]=CreateGroup()
        call TimerStart(NewTimer(i),.03125,true,function BossHDLZ___Ability03_Func_02)
        call NewTextTagInTarget_B((Je[(id)]),"|c00FF8000Energy is gathering.|r",18,$FF,$FF,$FF)
    endif
endfunction

function BossHDLZ___Ability02_Func_04 takes nothing returns nothing
    local unit u=GetEnumUnit()
    local integer index=GetUnitUserData(u)
    call SetUnitUserData(u,0)
    call UnitApplyTimedLife(u,0,.5)
    call UnitApplyTimedLife(Boss_Spell_unit1[index],0,.5)
    set Boss_Spell_unit1[index]=null
    call Boss_Spell_deallocate(index)
    set u=null
endfunction

function BossHDLZ___Ability02_Func_03 takes nothing returns nothing
    local integer i=Boss_Spell_data1[0]
    local integer index=GetUnitUserData(GetEnumUnit())
    local real x=GetUnitX(Boss_Spell_unit1[index])+Boss_Spell_X[index]*Boss_Spell_Z[index]
    local real y=GetUnitY(Boss_Spell_unit1[index])+Boss_Spell_Y[index]*Boss_Spell_Z[index]
    local unit u=GetEnumUnit()
    if IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY)then
        if Boss_Spell_data3[i]>1 then
            set Boss_Spell_data3[i]=1
        endif
    else
        call SetUnitX(u,x)
        call SetUnitY(u,y)
        call SetUnitX(Boss_Spell_unit1[index],x)
        call SetUnitY(Boss_Spell_unit1[index],y)
        call IssueNeutralTargetOrderById(Player($F),u,$D0106,Boss_Spell_unit1[index])
        if Boss_Spell_Z[index]<60 then
            set Boss_Spell_Z[index]=Boss_Spell_Z[index]+5
        endif
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y))
        call GroupEnumUnitsInRange(G,x,y,$96+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$96)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])and BossHDLZ___Buff2_cd[GetUnitUserData(u)]<(100000.-TimerGetRemaining(GameTimer))then
                set BossHDLZ___Buff2_cd[GetUnitUserData(u)]=(100000.-TimerGetRemaining(GameTimer))+.05
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($186A0)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
            endif
        endloop
    endif
    set u=null
endfunction

function BossHDLZ___Ability02_Func_02 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x
    local real y
    local unit u
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        call SetUnitX(Boss_Spell_unit1[i],Boss_Spell_X[i])
        call SetUnitY(Boss_Spell_unit1[i],Boss_Spell_Y[i])
        call PauseUnit(Boss_Spell_unit1[i],true)
        call TimerStart(GetExpiredTimer(),1,false,function BossHDLZ___Ability02_Func_02)
        call SetUnitAnimationByIndex(Boss_Spell_unit1[i],3)
        call SetUnitTimeScale(Boss_Spell_unit1[i],.5)
        call SetUnitFlyHeight(Boss_Spell_unit1[i],500,500)
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Spell_data1[i]=2
        set Boss_Spell_data3[i]=16*3
        call SetUnitTimeScale(Boss_Spell_unit1[i],.5/ 3)
        set CR=false
        set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',Boss_Spell_X[i],Boss_Spell_Y[i],Boss_z[0])
        call SetUnitX(Boss_Spell_unit2[i],Boss_Spell_X[i])
        call SetUnitY(Boss_Spell_unit2[i],Boss_Spell_Y[i])
        if UnitAddAbility(Boss_Spell_unit2[i],'Amrf')then
            call UnitRemoveAbility(Boss_Spell_unit2[i],'Amrf')
        endif
        call SetUnitFlyHeight(Boss_Spell_unit2[i],750,0)
        call SetUnitScale(Boss_Spell_unit2[i],$F,$F,$F)
        set Boss_Spell_eff[i]=AddSpecialEffectTarget("Abilities\\Weapons\\VengeanceMissile\\VengeanceMissile.mdl",Boss_Spell_unit2[i],"origin")
        set CR=true
        call TimerStart(GetExpiredTimer(),.03125*2,true,function BossHDLZ___Ability02_Func_02)
    elseif Boss_Spell_data1[i]==2 then
        set CR=false
        set Boss_x[0]=GetRandomReal(0,6.28)
        set Boss_y[0]=GetRandomReal(-90,90)/ bj_RADTODEG
        set Boss_z[0]=GetRandomReal(650,750)
        set Boss_x[1]=Boss_Spell_X[i]+Cos(Boss_x[0])*Cos(Boss_y[0])*Boss_z[0]
        set Boss_y[1]=Boss_Spell_Y[i]+Sin(Boss_x[0])*Cos(Boss_y[0])*Boss_z[0]
        set Boss_z[1]=750+Sin(Boss_y[0])*Boss_z[0]
        set u=CreateUnit(Player($F),'n040',Boss_x[1],Boss_y[1],Boss_y[0]*bj_RADTODEG+$B4)
        call SetUnitX(u,Boss_x[1])
        call SetUnitY(u,Boss_y[1])
        call SetUnitFlyHeight(u,Boss_z[1],0)
        call UnitApplyTimedLife(u,0,2)
        call IssueTargetOrderById(u,$D0106,Boss_Spell_unit1[i])
        set CR=true
        set Boss_Spell_data3[i]=Boss_Spell_data3[i]-1
        if Boss_Spell_data3[i]==0 then
            set Boss_Spell_data1[i]=3
            set Boss_Spell_data3[i]=$A+33
            call DestroyEffect(Boss_Spell_eff[i])
            set Boss_Spell_eff[i]=null
            call UnitApplyTimedLife(Boss_Spell_unit2[i],0,.5)
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
            call NewTextTagInTarget_B(Boss_Spell_unit1[i],"|c00FF8000Destroy it small guy!!|r",18,$FF,$FF,$FF)
            call TimerStart(GetExpiredTimer(),.03125,true,function BossHDLZ___Ability02_Func_02)
            set CR=false
            set Boss_x[0]=bj_PI*.25
            set Boss_y[0]=0
            set Boss_z[0]=8
            loop
                exitwhen Boss_z[0]==0
                set Boss_z[0]=Boss_z[0]-1
                set index=Boss_Spell_allocate()
                set Boss_Spell_X[index]=Cos(Boss_y[0])
                set Boss_Spell_Y[index]=Sin(Boss_y[0])
                set Boss_Spell_Z[index]=$A
                set Boss_x[1]=Boss_Spell_X[i]+Boss_Spell_X[index]*50
                set Boss_y[1]=Boss_Spell_Y[i]+Boss_Spell_Y[index]*50
                set u=CreateUnit(Player($F),'n040',Boss_x[1],Boss_y[1],0)
                call SetUnitX(u,Boss_x[1])
                call SetUnitY(u,Boss_y[1])
                call SetUnitFlyHeight(u,$7D0,Boss_z[1])
                set Boss_Spell_unit1[index]=CreateUnit(Player($F),'n03Z',Boss_x[1],Boss_y[1],0)
                call SetUnitX(Boss_Spell_unit1[index],Boss_x[1])
                call SetUnitY(Boss_Spell_unit1[index],Boss_y[1])
                call IssueNeutralTargetOrderById(Player($F),u,$D0106,Boss_Spell_unit1[index])
                call GroupAddUnit(Boss_Spell_group1[i],u)
                call SetUnitUserData(u,index)
                set Boss_y[0]=Boss_y[0]+Boss_x[0]
            endloop
            set CR=true
        endif
    elseif Boss_Spell_data1[i]==3 then
        set index=Boss_Spell_data1[0]
        set Boss_Spell_data1[0]=i
        set Boss_Spell_data3[i]=Boss_Spell_data3[i]-1
        if Boss_Spell_data3[i]==0 then
            call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability02_Func_04)
            call DestroyGroup(Boss_Spell_group1[i])
            set Boss_Spell_group1[i]=null
            set Boss_Spell_data1[i]=4
            call SetUnitAnimationByIndex(Boss_Spell_unit1[i],4)
            call TimerStart(GetExpiredTimer(),1,false,function BossHDLZ___Ability02_Func_02)
        else
            call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability02_Func_03)
        endif
        set Boss_Spell_data1[0]=index
    else
        set BossHDLZ___Order[Boss_Spell_data2[i]]=0
        call SetUnitFlyHeight(Boss_Spell_unit1[i],0,0)
        call SetUnitAnimation(Boss_Spell_unit1[i],"Stand")
        call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        call PauseUnit(Boss_Spell_unit1[i],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[i],false)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:648")
    endif
endfunction

function BossHDLZ___Ability02_Func_01 takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer id=GetUnitUserData(GetTriggerUnit())
    local integer i
    local real x
    local real y
    local unit u
    if EvelId==274 then
        if BossHDLZ___Order[id]==3 then
            set BossHDLZ___Order[id]=4
            call SetUnitNocontrol(id,false)
            call SetUnitInvulnerable((Je[(id)]),true)
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=(Je[(id)])
            set Boss_Spell_unit2[i]=null
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=id
            set Boss_Spell_data3[i]=0
            set Boss_Spell_X[i]=$53C0
            set Boss_Spell_Y[i]=$9C0
            call TimerStart(NewTimer(i),0,false,function BossHDLZ___Ability02_Func_02)
            if UnitAddAbility((Je[(id)]),'Amrf')then
                call UnitRemoveAbility((Je[(id)]),'Amrf')
            endif
        endif
    elseif EvelId==272 then
        if BossHDLZ___Order[id]==0 then
            set BossHDLZ___Order[id]=3
            call SetUnitNocontrol(id,true)
            call NewTextTagInTarget_B((Je[(id)]),"|c00FF8000Waiting for you is about to die!!|r",18,$FF,$FF,$FF)
            call SetUnitTimeScale((Je[(id)]),2)
            call SetUnitFacing((Je[(id)]),270)
        endif
    else
        if BossHDLZ___Order[id]==3 then
            set BossHDLZ___Order[id]=0
            call SetUnitTimeScale((Je[(id)]),1)
            call SetUnitNocontrol(id,false)
        endif
    endif
endfunction

function BossHDLZ___Buff1_Remove takes unit u returns nothing
    local integer id=GetUnitUserData(u)
    local integer i
    if BossHDLZ___Buff1_timer[id]!=null and u==(Je[(id)])then
        set i=ReleaseTimer(BossHDLZ___Buff1_timer[id],"[TimerUtils]Error:649")
        call RemoveUnitBJ(Boss_Spell_unit2[i],51)
        call s__Trig_remove((BossHDLZ___Buff1_deathid[id]))
        call Boss_Spell_deallocate(i)
        set BossHDLZ___Buff1_deathid[id]=0
        set BossHDLZ___Buff1_timer[id]=null
        call Unit_Cancel_Counter($446,id)
    endif
endfunction

function BossHDLZ___Buff1_Loop takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    set Boss_Spell_X[i]=Boss_Spell_X[i]-.1
    if Boss_Spell_X[i]<=0 or UnitAlive(Boss_Spell_unit1[i])==false then
        call BossHDLZ___Buff1_Remove(Boss_Spell_unit1[i])
    else
        if GetUnitAbilityLevel(Boss_Spell_unit1[i],'B08Y')==0 then
            call IssueTargetOrderById(Boss_Spell_unit2[i],$D0200,Boss_Spell_unit1[i])
        endif
    endif
endfunction

function BossHDLZ___Buff1_Death takes nothing returns nothing
    call BossHDLZ___Buff1_Remove(GetTriggerUnit())
endfunction

function BossHDLZ___Buff1_Add takes unit u,real r returns boolean
    local integer id=GetUnitUserData(u)
    local integer i
    if UnitAlive(u)and u==(Je[(id)])then
        if BossHDLZ___Buff1_timer[id]==null then
            set i=Boss_Spell_allocate()
            set BossHDLZ___Buff1_timer[id]=NewTimer(i)
            set BossHDLZ___Buff1_deathid[id]=AddUnitDeathTrigB(id,function BossHDLZ___Buff1_Death)
            call TimerStart(BossHDLZ___Buff1_timer[id],.1,true,function BossHDLZ___Buff1_Loop)
            call Unit_App_Counter($447,id)
            set Boss_Spell_unit1[i]=u
            set CR=false
            set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',GetUnitX(u),GetUnitY(u),0)
            call UnitAddAbility(Boss_Spell_unit2[i],'A0XN')
            set CR=true
            call IssueTargetOrderById(Boss_Spell_unit2[i],$D0200,Boss_Spell_unit1[i])
        else
            set i=(alloc__hpv(GetHandleId((BossHDLZ___Buff1_timer[id]))))
        endif
        set Boss_Spell_X[i]=r
        return true
    endif
    return false
endfunction

function BossHDLZ___Ability01_Func_05 takes nothing returns nothing
    local integer i=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:650")
    call RemoveUnitBJ(Boss_Spell_unit1[i],52)
    call Boss_Spell_deallocate(i)
endfunction

function BossHDLZ___Ability01_Func_04 takes nothing returns nothing
    call SetUnitFacing(GetEnumUnit(),Boss_z[0]*bj_RADTODEG)
endfunction

function BossHDLZ___Ability01_Func_03 takes nothing returns nothing
    call RemoveUnitBJ(GetEnumUnit(),53)
endfunction

function BossHDLZ___Ability01_Func_02 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x
    local real y
    local unit u
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data1[i]=1
        set x=GetUnitX(Boss_Spell_unit1[i])
        set y=GetUnitY(Boss_Spell_unit1[i])
        call PauseUnit(Boss_Spell_unit1[i],true)
        call TimerStart(GetExpiredTimer(),.03125,true,function BossHDLZ___Ability01_Func_02)
        call SetUnitAnimationByIndex(Boss_Spell_unit1[i],2)
        call SetUnitTimeScale(Boss_Spell_unit1[i],1.5)
        set CR=false
        set Boss_z[0]=GetUnitFacing(Boss_Spell_unit1[i])
        set index=30
        loop
            exitwhen index==0
            set index=index-1
            set u=CreateUnit(Player($F),GetUnitTypeId(Boss_Spell_unit1[i]),x,y,Boss_z[0])
            call UnitAddAbility(u,'Aloc')
            call SetUnitAnimationByIndex(u,2)
            call SetUnitTimeScale(u,1.5)
            call PauseUnit(u,true)
            call SetUnitVertexColor(u,$FF,$FF,$FF,0)
            call GroupAddUnit(Boss_Spell_group1[i],u)
        endloop
        set CR=true
    elseif Boss_Spell_data1[i]==1 then
        set x=GetUnitX(Boss_Spell_unit1[i])
        set y=GetUnitY(Boss_Spell_unit1[i])
        if IsUnitInRangeXY(Boss_Spell_unit2[i],x,y,$5DC)then
            set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit2[i])
            set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit2[i])
            set Boss_z[0]=Atan2(Boss_Spell_Y[i]-y,Boss_Spell_X[i]-x)
            call SetUnitFacing(Boss_Spell_unit1[i],Boss_z[0]*bj_RADTODEG)
            call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability01_Func_04)
            set Boss_z[1]=Pow(Pow(Boss_Spell_Y[i]-y,2)+Pow(Boss_Spell_X[i]-x,2),.5)
            if Boss_z[1]>$96 then
                set Boss_z[1]=RMinBJ(45,Boss_z[1]-$96)
            else
                set Boss_z[1]=Boss_z[1]*.1
            endif
            set Boss_x[0]=x+Boss_z[1]*Cos(Boss_z[0])
            set Boss_y[0]=y+Boss_z[1]*Sin(Boss_z[0])
            call SetUnitX(Boss_Spell_unit1[i],Boss_x[0])
            call SetUnitY(Boss_Spell_unit1[i],Boss_y[0])
            set Boss_Spell_data3[i]=Boss_Spell_data3[i]+1
            if ModuloInteger(Boss_Spell_data3[i],3)==1 then
                set u=FirstOfGroup(Boss_Spell_group1[i])
                call GroupRemoveUnit(Boss_Spell_group1[i],u)
                call SetUnitX(u,x)
                call SetUnitY(u,y)
                call SetUnitTimeScale(u,0)
                call SetUnitVertexColor(u,$FF,$FF,$FF,$80)
                set index=Boss_Spell_allocate()
                set Boss_Spell_unit1[index]=u
                call TimerStart(NewTimer(index),1,false,function BossHDLZ___Ability01_Func_05)
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y))
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y))
                set index=8
                loop
                    exitwhen index==0
                    set index=index-1
                    call zhv(index,$96,.5)
                endloop
            endif
            if Boss_z[1]<45 then
                set Boss_Spell_data1[i]=2
                call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability01_Func_03)
                call DestroyGroup(Boss_Spell_group1[i])
                if UnitAlive(Boss_Spell_unit2[i])then
                    set Boss_Spell_data1[i]=2
                    call SetUnitAnimation(Boss_Spell_unit1[i],"attack")
                    call TimerStart(GetExpiredTimer(),.75,false,function BossHDLZ___Ability01_Func_02)
                else
                    set BossHDLZ___Order[Boss_Spell_data2[i]]=0
                    call SetUnitAnimation(Boss_Spell_unit1[i],"Stand")
                    call SetUnitTimeScale(Boss_Spell_unit1[i],1)
                    call PauseUnit(Boss_Spell_unit1[i],false)
                    call SetUnitInvulnerable(Boss_Spell_unit1[i],false)
                    call Boss_Spell_deallocate(i)
                    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:651")
                endif
            endif
        else
            set BossHDLZ___Order[Boss_Spell_data2[i]]=0
            call SetUnitAnimation(Boss_Spell_unit1[i],"Stand")
            call SetUnitTimeScale(Boss_Spell_unit1[i],1)
            call PauseUnit(Boss_Spell_unit1[i],false)
            call SetUnitInvulnerable(Boss_Spell_unit1[i],false)
            call ForGroup(Boss_Spell_group1[i],function BossHDLZ___Ability01_Func_03)
            call DestroyGroup(Boss_Spell_group1[i])
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:652")
        endif
        call GroupEnumUnitsInRange(G,x,y,$96+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$96)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),(((($7530)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            endif
        endloop
    else
        if not BossHDLZ___Buff1_Add(Boss_Spell_unit2[i],5)then
        endif
        set BossHDLZ___Order[Boss_Spell_data2[i]]=0
        call SetUnitAnimation(Boss_Spell_unit1[i],"Stand")
        call SetUnitTimeScale(Boss_Spell_unit1[i],1)
        call PauseUnit(Boss_Spell_unit1[i],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[i],false)
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:653")
    endif
endfunction

function BossHDLZ___Ability01_Func_01 takes nothing returns nothing
    local integer EvelId=GetHandleId(GetTriggerEventId())
    local integer id=GetUnitUserData(GetTriggerUnit())
    local integer i
    local real x
    local real y
    local unit u
    if EvelId==274 then
        if BossHDLZ___Order[id]==1 then
            set BossHDLZ___Order[id]=2
            call SetUnitNocontrol(id,false)
            call SetUnitInvulnerable((Je[(id)]),true)
            set i=Boss_Spell_allocate()
            set Boss_Spell_unit1[i]=(Je[(id)])
            set Boss_Spell_unit2[i]=GetSpellTargetUnit()
            set Boss_Spell_group1[i]=CreateGroup()
            set Boss_Spell_data1[i]=0
            set Boss_Spell_data2[i]=id
            set Boss_Spell_data3[i]=0
            set Boss_Spell_X[i]=GetUnitX(Boss_Spell_unit2[i])
            set Boss_Spell_Y[i]=GetUnitY(Boss_Spell_unit2[i])
            call TimerStart(NewTimer(i),0,false,function BossHDLZ___Ability01_Func_02)
        endif
    elseif EvelId==272 then
        if BossHDLZ___Order[id]==0 then
            set BossHDLZ___Order[id]=1
            call SetUnitNocontrol(id,true)
            call NewTextTagInTarget_B((Je[(id)]),"|c00FF8000Stop over there!|r",18,$FF,$FF,$FF)
        endif
    else
        if BossHDLZ___Order[id]==1 then
            set BossHDLZ___Order[id]=0
            call SetUnitNocontrol(id,false)
        endif
    endif
endfunction

function BossHDLZ___BossSkill_A0ZS_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x
    local real y
    local unit u
    set Boss_Spell_V[data]=Boss_Spell_V[data]+.2
    set Boss_Spell_X[data]=Boss_Spell_X[data]+Cos(Boss_Spell_Z[data])*20
    set Boss_Spell_Y[data]=Boss_Spell_Y[data]+Sin(Boss_Spell_Z[data])*20
    if Boss_Spell_data3[data]<300 then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]+$A
    endif
    set x=Boss_Spell_X[data]+Cos(Boss_Spell_V[data])*Boss_Spell_data3[data]
    set y=Boss_Spell_Y[data]+Sin(Boss_Spell_V[data])*Boss_Spell_data3[data]
    if IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY)then
        set Boss_Spell_data2[data]=0
    else
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    endif
    call Ltv(LAv("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",x,y,1))
    call GroupEnumUnitsInRange(G,x,y,$96+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96)and not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
            call GroupAddUnit(Boss_Spell_group1[data],u)
            call UnitDamageTargetBY((((Je[(id)]))),((u)),(((($186A0)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        endif
    endloop
    if Boss_Spell_data2[data]==0 then
        call RecycleGroup(Boss_Spell_group1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:654")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_group1[data]=null
    endif
endfunction

function BossHDLZ___BossSkill_A0ZS_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real a=Atan2(ty,tx)
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=$C8
    set Boss_Spell_data3[data]=0
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=a
    set Boss_Spell_V[data]=a
    call TimerStart(Boss_Spell_timer[data],.01,true,function BossHDLZ___BossSkill_A0ZS_Start)
endfunction

function BossHDLZ___BossSkill_A0ZS_Channel takes nothing returns nothing
    call NewTextTagInTarget_B(GetTriggerUnit(),"|c00FF0000Purgatory!|r",18,$FF,$FF,$FF)
endfunction

function BossHDLZ___BossSkill_A0ZR_Start_func002 takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:655")
    local real x=(GetUnitX(II[(Boss_Spell_data1[data])]))
    local real y=(GetUnitY(II[(Boss_Spell_data1[data])]))
    local unit u
    call Ltv(Boss_Spell_data1[data])
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y))
    call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$C8)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),(((($4E20)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        endif
    endloop
    call Boss_Spell_deallocate(data)
    set Boss_Spell_unit1[data]=null
endfunction

function BossHDLZ___BossSkill_A0ZR_Start_func001 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=(GetUnitX(II[(Boss_Spell_data1[data])]))+Boss_Spell_X[data]
    local real y=(GetUnitY(II[(Boss_Spell_data1[data])]))+Boss_Spell_Y[data]
    local real t
    local real h
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]+1
    set t=Boss_Spell_data2[data]/ Boss_Spell_data3[data]
    set h=ParabolicBYRatio(Boss_Spell_Z[data],t)
    call LKv(Boss_Spell_data1[data],x)
    call Llv(Boss_Spell_data1[data],y)
    call SetUnitFlyHeight(II[(Boss_Spell_data1[data])],((h)*1.),0)
    if t>=1 then
        call TimerStart(Boss_Spell_timer[data],1.3,false,function BossHDLZ___BossSkill_A0ZR_Start_func002)
    endif
endfunction

function BossHDLZ___BossSkill_A0ZR_Start takes unit s,real x,real y,real tx,real ty returns nothing
    local integer data=Boss_Spell_allocate()
    local real dx=tx-x
    local real dy=ty-y
    local real r=SquareRoot(dx*dx+dy*dy)
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=LAv("Doodads\\Cinematic\\GlowingRunes\\GlowingRunes8.mdl",x,y,1.2)
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=R2I(r/ 32+5)
    set Boss_Spell_X[data]=(dx/ Boss_Spell_data3[data])
    set Boss_Spell_Y[data]=(dy/ Boss_Spell_data3[data])
    set Boss_Spell_Z[data]=RMaxBJ($96,r*.3)
    call TimerStart(Boss_Spell_timer[data],.03125,true,function BossHDLZ___BossSkill_A0ZR_Start_func001)
endfunction

function BossHDLZ___BossSkill_A0ZR_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real tx
    local real ty
    local real a
    local real r
    local integer i=1
    local integer j
    loop
        exitwhen i>6
        set j=i*3+GetRandomInt(2,4)
        loop
            exitwhen j==0
            set j=j-1
            set a=GetRandomReal(0,Lx)
            set r=i*$C8+GetRandomReal(-100,100)
            set tx=x+Cos(a)*r
            set ty=y+Sin(a)*r
            call BossHDLZ___BossSkill_A0ZR_Start((Je[(id)]),x,y,tx,ty)
        endloop
        set i=i+1
    endloop
endfunction

function BossHDLZ___BossSkill_A0ZR_Channel takes nothing returns nothing
    call NewTextTagInTarget_B(GetTriggerUnit(),"|c00FF0000No one will leave!!|r",18,$FF,$FF,$FF)
endfunction

function BossHDLZ___BossSkill_A0ZQ_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x
    local real y
    local unit u
    if UnitAlive((Je[(id)]))then
        if Boss_Spell_data2[data]==0 then
            call SetUnitAnimationByIndex((Je[(id)]),1)
        endif
        set x=GetUnitX((Je[(id)]))+Boss_Spell_X[data]
        set y=GetUnitY((Je[(id)]))+Boss_Spell_Y[data]
        if IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY)then
            set Boss_Spell_bool[data]=true
        else
            call SetUnitX((Je[(id)]),x)
            call SetUnitY((Je[(id)]),y)
            call Ltv(LAv("knockbackdust.mdl",x,y,1.5))
            call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$C8)and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),(((($7530)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                elseif GetUnitTypeId(u)=='uobs' then
                    set Boss_Spell_data2[data]=$F
                    call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",GetUnitX(u),GetUnitY(u),2))
                    call UnitRemoveAbility((Je[(id)]),'B09I')
                    call m2v((Je[(id)]),$A,'A500','B500',true)
                    call KillUnit(u)
                endif
            endloop
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]+1
            if Boss_Spell_data2[data]>=$F then
                call QueueUnitAnimation((Je[(id)]),"Stand")
                set Boss_Spell_bool[data]=true
            endif
        endif
    else
        set Boss_Spell_bool[data]=true
    endif
    if Boss_Spell_bool[data]then
        call PauseUnit((Je[(id)]),false)
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:656")
        set Boss_Spell_timer[data]=null
    endif
endfunction

function BossHDLZ___BossSkill_A0ZQ_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real a=Atan2(ty,tx)
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_bool[data]=false
    set Boss_Spell_X[data]=Cos(a)*64
    set Boss_Spell_Y[data]=Sin(a)*64
    call PauseUnit((Je[(id)]),true)
    call TimerStart(Boss_Spell_timer[data],.03125,true,function BossHDLZ___BossSkill_A0ZQ_Start)
endfunction

function BossHDLZ___BossSkill_A0ZO_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local integer target=Boss_Spell_data2[data]
    local unit u
    if UnitAlive((Je[(id)]))then
        if UnitAlive((Je[(target)]))and IsUnitInRange((Je[(target)]),(Je[(id)]),$9C4)then
            call IssueTargetOrderById((Je[(id)]),$D000F,(Je[(target)]))
        else
            set u=PickRandomVisibleHeroInRange(BossHDLZ___Unit_A,BossHDLZ___HOJU_X[8],BossHDLZ___HOJU_Y[8],$7D0)
            if u!=null then
                call IssueTargetOrderById((Je[(id)]),$D000F,u)
                set Boss_Spell_data2[data]=(GetUnitUserData((u)))
                set u=null
            endif
        endif
    else
        set Boss_Spell_data3[data]=0
    endif
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if Boss_Spell_data3[data]<=0 then
        call ModifyUnitAttack(id,-20*$2710)
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ZP','B09J')
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:657")
        set Boss_Spell_timer[data]=null
        set BossSkill_A0ZO_Data[id]=0
    endif
endfunction

function BossHDLZ___BossSkill_A0ZO_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=BossSkill_A0ZO_Data[id]
    if data==null then
        set data=Boss_Spell_allocate()
        set BossSkill_A0ZO_Data[id]=data
        set Boss_Spell_timer[data]=NewTimer(data)
        set Boss_Spell_data1[data]=id
        set Boss_Spell_data2[data]=0
        set Boss_Spell_data3[data]=$A
        call UnitAddAbilityBY((Je[(id)]),'A0ZP')
        call ModifyUnitAttack(id,20*$2710)
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",(Je[(id)]),"origin"))
    call TimerStart(Boss_Spell_timer[data],1,true,function BossHDLZ___BossSkill_A0ZO_Start)
    call NewTextTagInTarget_B((Je[(id)]),"|c00FF0000This is a devastating force!|r",18,$FF,$FF,$FF)
endfunction

function BossHDLZ___n04D_BeDamage takes nothing returns nothing
    if(DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC)and GetUnitAbilityLevel(BossHDLZ___Unit_A,'B09I')>0 then
        call DamageMinus(GetDamage()*.5)
    endif
endfunction

function BossHDLZ___Boss_uobs_Start_001_func001 takes nothing returns nothing
    local integer b=s__MissileTypeA_Last_Missile
    local real x=s__barrage_X[b]
    local real y=s__barrage_Y[b]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$96+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96)and IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[b])then
            exitwhen true
        endif
    endloop
    if u!=null then
        call UnitDamageTargetBY(((s__barrage_atkunit[b])),((u)),((((5000)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        call s__MissileTypeA_stop(b)
    else
        if IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY)then
            call s__MissileTypeA_stop(b)
        endif
    endif
    set u=null
endfunction

function Boss_uobs_Start_004 takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:658")
    local integer id=Boss_Spell_data1[data]
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local unit u
    call Ltv(LAv("desecrate.mdl",x,y,1.5))
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))and nC[(GetUnitUserData((u)))]then
            call UnitDamageTargetBY((((Je[(id)]))),((u)),(((($186A0)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        endif
    endloop
    call Boss_Spell_deallocate(data)
endfunction

function Boss_uobs_Start_003 takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data=Boss_uobs_Index[id]
    local real x
    local real y
    local real tx
    local real ty
    local real a
    local real r
    local unit u
    if UnitAlive((Je[(id)]))then
        if data==0 then
            if GetUnitState((Je[(id)]),UNIT_STATE_MANA)==GetUnitState((Je[(id)]),UNIT_STATE_MAX_MANA)then
                call SetUnitInvulnerable((Je[(id)]),true)
                call PauseUnit((Je[(id)]),true)
                call SetUnitNocontrol(id,true)
                set data=Boss_Spell_allocate()
                set Boss_Spell_data1[data]=0
                set Boss_Spell_X[data]=0
                set Boss_uobs_Index[id]=data
            endif
        else
            if Boss_Spell_data1[data]==0 then
                set Boss_Spell_X[data]=Boss_Spell_X[data]+.0625
                call SetUnitVertexColor((Je[(id)]),$96+R2I(Boss_Spell_X[data]*105),100-R2I(Boss_Spell_X[data]*100),-R2I(Boss_Spell_X[data]*100),$FF)
                if Boss_Spell_X[data]>=1 then
                    set Boss_Spell_data1[data]=1
                    set u=PickRandomVisibleHeroInRange((Je[(id)]),BossHDLZ___HOJU_X[8],BossHDLZ___HOJU_Y[8],$7D0)
                    if u!=null then
                        set Boss_Spell_X[data]=GetUnitX(u)
                        set Boss_Spell_Y[data]=GetUnitY(u)
                        set u=null
                    else
                        call KillUnit((Je[(id)]))
                        set Boss_Spell_data1[data]=id
                        call alloc__hPv(GetHandleId((GetExpiredTimer())),(data))
                        call TimerStart(GetExpiredTimer(),.3,false,function Boss_uobs_Start_004)
                    endif
                endif
            elseif Boss_Spell_data1[data]==1 then
                set x=GetUnitX((Je[(id)]))
                set y=GetUnitY((Je[(id)]))
                set tx=Boss_Spell_X[data]-x
                set ty=Boss_Spell_Y[data]-y
                if SquareRoot(tx*tx+ty*ty)>64 then
                    set a=GetUnitFacing((Je[(id)]))*bj_DEGTORAD
                    set r=Pow((Cos(Atan2(ty,tx)-a)+1)/ 2,2)*64
                    set x=x+Cos(a)*r
                    set y=y+Sin(a)*r
                    set tx=Boss_Spell_X[data]-x
                    set ty=Boss_Spell_Y[data]-y
                    set a=Atan2(ty,tx)*bj_RADTODEG
                    call SetUnitX((Je[(id)]),x)
                    call SetUnitY((Je[(id)]),y)
                    call SetUnitFacing((Je[(id)]),a)
                else
                    call SetUnitX((Je[(id)]),Boss_Spell_X[data])
                    call SetUnitY((Je[(id)]),Boss_Spell_Y[data])
                    call KillUnit((Je[(id)]))
                    set Boss_Spell_data1[data]=id
                    call alloc__hPv(GetHandleId((GetExpiredTimer())),(data))
                    call TimerStart(GetExpiredTimer(),.3,false,function Boss_uobs_Start_004)
                endif
            endif
        endif
    else
        if data!=0 then
            call Boss_Spell_deallocate(data)
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:659")
    endif
endfunction

function Boss_uobs_Start_002 takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))then
        call SetUnitInvulnerable((Je[(id)]),false)
        call SetUnitNocontrol(id,false)
        call SetUnitState((Je[(id)]),UNIT_STATE_MANA,0)
        call TimerStart(GetExpiredTimer(),.03125,true,function Boss_uobs_Start_003)
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:660")
    endif
endfunction

function Boss_uobs_Start_001 takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=Boss_uobs_Index[id]
    local integer b
    local real x
    local real y
    local real tx
    local real ty
    local real a
    local unit u
    if UnitAlive((Je[(id)]))then
        if Boss_uobs_Data[i+8]>0 then
            set Boss_uobs_Data[i+8]=Boss_uobs_Data[i+8]-1
        endif
        if Boss_uobs_Data[i+16]==0 then
            if GetUnitState((Je[(id)]),UNIT_STATE_MANA)==GetUnitState((Je[(id)]),UNIT_STATE_MAX_MANA)then
                call SetUnitInvulnerable((Je[(id)]),true)
                call SetUnitNocontrol(id,true)
                if IssueImmediateOrderById((Je[(id)]),$D0233)then
                    set Boss_uobs_Index[0]=Boss_uobs_Index[0]-1
                    set Boss_uobs_Data[i]=0
                    set Boss_uobs_Index[id]=0
                    call TimerStart(GetExpiredTimer(),1,false,function Boss_uobs_Start_002)
                else
                    set Boss_uobs_Data[i+8]=16
                    set Boss_uobs_Data[i+16]=2
                endif
            else
                if Boss_uobs_Data[i+8]==0 then
                    if not(Control_use[(id)])then
                        set u=PickRandomVisibleHeroInRange(BossHDLZ___Unit_A,BossHDLZ___HOJU_X[8],BossHDLZ___HOJU_Y[8],$7D0)
                        if u!=null then
                            set x=GetUnitX((Je[(id)]))
                            set y=GetUnitY((Je[(id)]))
                            set tx=GetUnitX(u)+GetRandomReal(-100,100)-x
                            set ty=GetUnitY(u)+GetRandomReal(-100,100)-y
                            set a=Atan2(ty,tx)
                            set b=CreateBarrageTypeD(x,y,125,x+Cos(a)*$FA0,y+Sin(a)*$FA0,0)
                            set s__barrage_atkunit[b]=(Je[(id)])
                            set s__barrage_speed[b]=$7D0*.03125
                            set s__MissileTypeA_f3[b]=Condition(function BossHDLZ___Boss_uobs_Start_001_func001)
                            call LMv(s__barrage_model[b],"Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl")
                            call s__MissileTypeA_fired(b)
                            set Boss_uobs_Data[i+8]=32
                            set Boss_uobs_Data[i+16]=1
                            call SetUnitAnimation((Je[(Boss_uobs_Data[i])]),"Attack Spell")
                            set u=null
                        endif
                    endif
                endif
            endif
        elseif Boss_uobs_Data[i+16]==1 then
            if Boss_uobs_Data[i+8]==0 then
                set Boss_uobs_Data[i+8]=32
                set Boss_uobs_Data[i+16]=0
            endif
        elseif Boss_uobs_Data[i+16]==2 then
            if Boss_uobs_Data[i+8]==0 then
                set Boss_uobs_Data[i+8]=16
                if IssueImmediateOrderById((Je[(id)]),$D0233)then
                    set Boss_uobs_Index[0]=Boss_uobs_Index[0]-1
                    set Boss_uobs_Data[i]=0
                endif
            endif
        endif
    else
        set Boss_uobs_Index[0]=Boss_uobs_Index[0]-1
        set Boss_uobs_Data[i]=0
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:661")
    endif
endfunction

function Boss_uobs_Create_func001 takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call ShowUnit((Je[(id)]),true)
    call TimerStart(GetExpiredTimer(),.03125,true,function Boss_uobs_Start_001)
endfunction

function Boss_uobs_Create takes real x,real y,real a returns integer
    local integer id=(GetUnitUserData((CreateUnit(P[$B],'uobs',x,y,a))))
    call SetUnitPosition((Je[(id)]),x,y)
    call ShowUnit((Je[(id)]),false)
    call Ltv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,2))
    call TimerStart(NewTimer(id),.5,false,function Boss_uobs_Create_func001)
    return id
endfunction

function BossHDLZ___Start_001_func002 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((BossHDLZ___Open_Timer))))
    local integer i
    local real life=GetWidgetLife(BossHDLZ___Unit_A)
    local real maxlife=GetUnitState(BossHDLZ___Unit_A,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local real x
    local real y
    local real tx
    local real ty
    local real a
    local unit u
    if Boss_uobs_Index[0]<8 then
        if Boss_Spell_data1[data]>0 then
            set Boss_Spell_data1[data]=Boss_Spell_data1[data]-1
        endif
        if Boss_Spell_data1[data]==0 then
            set Boss_Spell_data1[data]=50*32
            set Boss_uobs_Index[0]=Boss_uobs_Index[0]+1
            set i=GetRandomInt(0,7)
            loop
                exitwhen Boss_uobs_Data[i]==null
                if i==7 then
                    set i=0
                else
                    set i=i+1
                endif
            endloop
            set Boss_uobs_Data[i]=Boss_uobs_Create(BossHDLZ___HOJU_X[i],BossHDLZ___HOJU_Y[i],bj_RADTODEG*Atan2(BossHDLZ___HOJU_Y[8]-BossHDLZ___HOJU_Y[i],BossHDLZ___HOJU_X[8]-BossHDLZ___HOJU_X[i]))
            set Boss_uobs_Data[i+16]=0
            set Boss_uobs_Data[i+8]=0
            set Boss_uobs_Index[Boss_uobs_Data[i]]=i
        endif
    endif
    set i=GetUnitCurrentOrder(BossHDLZ___Unit_A)
    if i==0 or i==$D0006 or($D000E<i and i<$D0013)then
        set i=GetRandomInt(1,100)
        if i>90 and v<=.9 then
            call IssueImmediateOrderById(BossHDLZ___Unit_A,$D009F)
        elseif i>80 and v<=.95 then
            set u=PickRandomVisibleHeroInRange2(BossHDLZ___Unit_A,$3E8)
            if u==null then
                set u=PickRandomUnitInUnitRange(BossHDLZ___Unit_A,$3E8)
            endif
            if u!=null then
                if IssuePointOrderById(BossHDLZ___Unit_A,$D00FA,GetUnitX(u),GetUnitY(u))then
                endif
                set u=null
            endif
        elseif i>70 and v<=.9 then
            set u=PickRandomVisibleHeroInRange2(BossHDLZ___Unit_A,$4B0)
            if u!=null then
                call IssueImmediateOrderById(BossHDLZ___Unit_A,$D0076)
                set u=null
            endif
        elseif i>65 and v<=.8 then
            set u=PickRandomVisibleHeroInRange2(BossHDLZ___Unit_A,$3E8)
            if u==null then
                set u=PickRandomUnitInUnitRange(BossHDLZ___Unit_A,$3E8)
            endif
            if u!=null then
                if IssuePointOrderById(BossHDLZ___Unit_A,$D009D,GetUnitX(u),GetUnitY(u))then
                endif
                set u=null
            endif
        elseif i>50 then
            call IssueImmediateOrderById(BossHDLZ___Unit_A,$D00C4)
        endif
    endif
endfunction

function BossHDLZ___Start_001_func001 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((BossHDLZ___Open_Timer))))
    local real x=BossHDLZ___HOJU_X[8]
    local real y=BossHDLZ___HOJU_Y[8]
    local unit u
    if i>0 then
        call alloc__hPv(GetHandleId((BossHDLZ___Open_Timer)),(i-1))
        call AddSpecialEffectByAnnulus("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.5,$80*i,8)
    else
        set i=Boss_Spell_allocate()
        set Boss_Spell_data1[i]=50*32
        set Boss_Spell_data2[i]=0
        set Boss_Spell_data3[i]=0
        set Boss_Spell_group1[i]=NewGroup()
        call alloc__hPv(GetHandleId((BossHDLZ___Open_Timer)),(i))
        call TimerStart(BossHDLZ___Open_Timer,.03125,true,function BossHDLZ___Start_001_func002)
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,3),$FF,0,0,$FF))
        call ShowUnit(BossHDLZ___Unit_A,true)
        call PauseUnit(BossHDLZ___Unit_A,false)
        call Lettheactorsplaylines(BossHDLZ___Unit_A,"I do not welcome you here, so I will destroy you!!")
    endif
endfunction

function BossHDLZ___Start_001 takes nothing returns nothing
    local unit u
    local real x=BossHDLZ___HOJU_X[8]
    local real y=BossHDLZ___HOJU_Y[8]
    set BossHDLZ___Unit_A=CreateUnit(P[$B],'n04D',x,y,270)
    call SetUnitX(BossHDLZ___Unit_A,x)
    call SetUnitY(BossHDLZ___Unit_A,y)
    call ShowUnit(BossHDLZ___Unit_A,false)
    call PauseUnit(BossHDLZ___Unit_A,true)
    call UnitAddShieldTrig((GetUnitUserData((BossHDLZ___Unit_A))),function BossHDLZ___n04D_BeDamage)
    call alloc__hPv(GetHandleId((BossHDLZ___Open_Timer)),($A))
    call TimerStart(BossHDLZ___Open_Timer,.3,true,function BossHDLZ___Start_001_func001)
endfunction

function BossHDLZ___End takes nothing returns nothing
    local integer id
    local unit u
    loop
        set u=FirstOfGroup(BossHDLZ___Open_Group)
        exitwhen u==null
        call GroupRemoveUnit(BossHDLZ___Open_Group,u)
        set id=(GetUnitUserData((u)))
        call s__Trig_remove(BossHDLZ___Death_Trig[id])
        call s__Trig_remove(BossHDLZ___Remove_Trig[id])
    endloop
    call ReleaseTimer(BossHDLZ___Open_Timer,"[TimerUtils]Error:662")
endfunction

function BossHDLZ___Revive_Trig_Func takes nothing returns nothing
    local integer id=s__Trig_P
    local integer i
    if IsUnitInGroup((Je[(id)]),BossHDLZ___Open_Group)then
        if Off_A098_id[id]==0 then
            set BossHDLZ___Open_Count=BossHDLZ___Open_Count+1
            set Off_A098[id]=true
            set Off_A098_id[id]='n01T'
            set i=GetRandomInt(0,7)
            call tEv((Je[(id)]),BossHDLZ___HOJU_X[i],BossHDLZ___HOJU_Y[i],0)
        endif
    endif
    call s__Trig_remove(s__Trig_Index)
endfunction

function BossHDLZ___Death_Trig_Func_001 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:663")
    if Off_A098_id[id]!='n01T' then
        set BossHDLZ___Open_Count=BossHDLZ___Open_Count-1
        if BossHDLZ___Open_Count>0 then
            call ADD_HERO_REVIVE_EVENT(id,function BossHDLZ___Revive_Trig_Func)
        else
            call BossHDLZ___End()
        endif
    endif
endfunction

function BossHDLZ___Death_Trig_Func takes nothing returns nothing
    local integer id=s__Trig_P
    if Jg then
        call TimerStart(NewTimer(id),0,false,function BossHDLZ___Death_Trig_Func_001)
    else
        set BossHDLZ___Open_Count=BossHDLZ___Open_Count-1
        if BossHDLZ___Open_Count==0 then
            call BossHDLZ___End()
        endif
    endif
endfunction

function BossHDLZ___Remove_Trig_Func takes nothing returns nothing
    local integer id=le
    if Off_A098_id[id]=='n01T' then
        set BossHDLZ___Open_Count=BossHDLZ___Open_Count-1
        if BossHDLZ___Open_Count==0 then
            call BossHDLZ___End()
        endif
    endif
endfunction

function BossHDLZ___Open_Enter_Func_004 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetEnumUnit())))
    if Off_A098_id[id]=='n01T' then
        set BossHDLZ___Open_Count=BossHDLZ___Open_Count+1
        set BossHDLZ___Death_Trig[id]=AddUnitDeathTrigB(id,function BossHDLZ___Death_Trig_Func)
        set BossHDLZ___Remove_Trig[id]=UnitAddBeRemoveTrigB(id,Condition(function BossHDLZ___Remove_Trig_Func))
    endif
endfunction

function BossHDLZ___Open_Enter_Func_003 takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:664")
    call TimerDialogDisplay(ConvertVersion(GetHandleId(BossHDLZ___Open_Trig)),false)
    call DestroyTimerDialog(ConvertVersion(GetHandleId(BossHDLZ___Open_Trig)))
    call Ltv(fx)
    call BossHDLZ___Start_001()
    call ForGroup(BossHDLZ___Open_Group,function BossHDLZ___Open_Enter_Func_004)
    set BossHDLZ___Open_Trig=null
endfunction

function BossHDLZ___Open_Enter_Func_002 takes nothing returns nothing
    local integer i
    local real x=BossHDLZ___HOJU_X[18]
    local real y=BossHDLZ___HOJU_Y[18]
    local unit u
    local integer id
    call GroupEnumUnitsInRange(G,x,y,$96,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInGroup(u,BossHDLZ___Open_Group)and UnitAlive(u)then
            set i=(alloc__hpv(GetHandleId((BossHDLZ___Open_Timer))))
            call alloc__hPv(GetHandleId((BossHDLZ___Open_Timer)),(i+1))
            set id=(GetUnitUserData((u)))
            set Off_A098[id]=true
            set Off_A098_id[id]='n01T'
            call tEv(u,BossHDLZ___HOJU_X[i],BossHDLZ___HOJU_Y[i],0)
        endif
    endloop
endfunction

function BossHDLZ___Open_Enter_Func_001 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((BossHDLZ___Open_Timer))))
    local timer t
    if i==0 then
        call alloc__hPv(GetHandleId((BossHDLZ___Open_Timer)),(i+1))
        call TimerStart(BossHDLZ___Open_Timer,2,false,function BossHDLZ___Open_Enter_Func_001)
        call RemoveDestructable(gg_dest_B00D_11119)
        call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UCancelDeath\\UCancelDeath.mdl",BossHDLZ___HOJU_X[18],BossHDLZ___HOJU_Y[18],6))
    else
        call alloc__hPv(GetHandleId((BossHDLZ___Open_Timer)),(0))
        set t=NewTimer(Lfv(LAv("quietmoon2.mdl",BossHDLZ___HOJU_X[18],BossHDLZ___HOJU_Y[18],18),$FF,0,0,$FF))
        set BossHDLZ___Open_Trig=CreateTimerDialog(t)
        call TimerDialogSetTitle(ConvertVersion(GetHandleId(BossHDLZ___Open_Trig)),"|c00FF0000Time:|r")
        call TimerDialogDisplay(ConvertVersion(GetHandleId(BossHDLZ___Open_Trig)),true)
        call TimerStart(t,60,false,function BossHDLZ___Open_Enter_Func_003)
        call TimerStart(BossHDLZ___Open_Timer,.3125,true,function BossHDLZ___Open_Enter_Func_002)
        set t=null
    endif
endfunction

 //summon lord of chaos

 function BossHDLZ___Open_Enter_Loop takes nothing returns nothing
    local integer i
    local real x
    local real y
    local unit u
    local unit array u2
    local integer index
    local boolean b
    if BossHDLZ___Open_Count>=8 then
        set i=0
        set index=0
        loop
            exitwhen i>7
            set x=BossHDLZ___HOJU_X[$A+i]
            set y=BossHDLZ___HOJU_Y[$A+i]
            set b=false
            call GroupEnumUnitsInRange(G,x,y,75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInGroup(u,BossHDLZ___Open_Group)and UnitAlive(u)and IsItemCharges(GetItemOfTypeFromUnit(u,'I04X'),$C)then
                    if not b then
                        set u2[index]=u
                        set b=true
                    else
                        call GroupRemoveUnit(BossHDLZ___Open_Group,u)
                        set BossHDLZ___Open_Count=BossHDLZ___Open_Count-1
                    endif
                endif
            endloop
            if b then
                set index=index+1
            endif
            set i=i+1
        endloop
        if index==8 then
            set BossHDLZ___Open_Count=0
            call GroupClear(BossHDLZ___Open_Group)
            loop
                exitwhen index==0
                set index=index-1
                if GetHeroLevel(u2[index])>=380 then
                    call GroupAddUnit(BossHDLZ___Open_Group,u2[index])
                endif
                call RemoveItemByCharges(GetItemOfTypeFromUnit(u2[index],'I04X'),$C)
                set u2[index]=null
            endloop
            call DisplayTimedText("|c00FF0000The red powder|r disappeared and a weird noise came from the tower..",5)
            call SetDestructableAnimation(gg_dest_B00D_11119,"stand alternate")
            call QueueDestructableAnimation(gg_dest_B00D_11119,"stand work")
            call TimerStart(BossHDLZ___Open_Timer,5,false,function BossHDLZ___Open_Enter_Func_001)
            call DestroyTrigger(BossHDLZ___Open_Trig)
            call RemoveRegion(BossHDLZ___Open_Region)
            set BossHDLZ___Open_Trig=null
        endif
        loop
            exitwhen index==0
            set index=index-1
            set u2[index]=null
        endloop
    endif
 endfunction


function BossHDLZ___Open_Enter takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if nC[id]and not IsUnitInGroup((Je[(id)]),BossHDLZ___Open_Group)then
        if BossHDLZ___Open_Count==0 then
            set BossHDLZ___Open_Timer=NewTimer(0)
            call TimerStart(BossHDLZ___Open_Timer,.5,true,function BossHDLZ___Open_Enter_Loop)
        endif
        call GroupAddUnit(BossHDLZ___Open_Group,(Je[(id)]))
        set BossHDLZ___Open_Count=BossHDLZ___Open_Count+1
    endif
endfunction

function BossHDLZ___Open_Leave takes nothing returns boolean
    if IsUnitInGroup(GetFilterUnit(),BossHDLZ___Open_Group)then
        call GroupRemoveUnit(BossHDLZ___Open_Group,GetFilterUnit())
        set BossHDLZ___Open_Count=BossHDLZ___Open_Count-1
        if BossHDLZ___Open_Count==0 then
            call ReleaseTimer(BossHDLZ___Open_Timer,"[TimerUtils]Error:665")
        endif
    endif
    return false
endfunction

function BossHDLZ___onInit takes nothing returns nothing
    local real x
    local real y
    local integer i
    set BossHDLZ___Unit=gg_unit_h01T_0350
    call SetUnitInvulnerable(BossHDLZ___Unit,true)
    call PauseUnit(BossHDLZ___Unit,true)
    call ShowUnit(BossHDLZ___Unit,false)
    call RegisterSpellEffectEvent('A0XM',function BossHDLZ___Ability01_Func_01)
    call RegisterSpellChannelEvent('A0XM',function BossHDLZ___Ability01_Func_01)
    call RegisterSpellEndCastEvent('A0XM',function BossHDLZ___Ability01_Func_01)
    call RegisterSpellEffectEvent('A0XO',function BossHDLZ___Ability02_Func_01)
    call RegisterSpellChannelEvent('A0XO',function BossHDLZ___Ability02_Func_01)
    call RegisterSpellEndCastEvent('A0XO',function BossHDLZ___Ability02_Func_01)
    call RegisterSpellEffectEvent('A0ZO',function BossHDLZ___BossSkill_A0ZO_Actions)
    call RegisterSpellEffectEvent('A0ZQ',function BossHDLZ___BossSkill_A0ZQ_Actions)
    call RegisterSpellEffectEvent('A0ZR',function BossHDLZ___BossSkill_A0ZR_Actions)
    call RegisterSpellChannelEvent('A0ZR',function BossHDLZ___BossSkill_A0ZR_Channel)
    call RegisterSpellEffectEvent('A0ZS',function BossHDLZ___BossSkill_A0ZS_Actions)
    call RegisterSpellChannelEvent('A0ZS',function BossHDLZ___BossSkill_A0ZS_Channel)
    set BossHDLZ___HOJU_X[0]=$5800
    set BossHDLZ___HOJU_Y[0]=$C00
    set BossHDLZ___HOJU_X[1]=$5800
    set BossHDLZ___HOJU_Y[1]=$780
    set BossHDLZ___HOJU_X[2]=$5600
    set BossHDLZ___HOJU_Y[2]=$E00
    set BossHDLZ___HOJU_X[3]=$517C
    set BossHDLZ___HOJU_Y[3]=$E00
    set BossHDLZ___HOJU_X[4]=$4F80
    set BossHDLZ___HOJU_Y[4]=$C00
    set BossHDLZ___HOJU_X[5]=$4F80
    set BossHDLZ___HOJU_Y[5]=$780
    set BossHDLZ___HOJU_X[6]=$517C
    set BossHDLZ___HOJU_Y[6]=$580
    set BossHDLZ___HOJU_X[7]=$5600
    set BossHDLZ___HOJU_Y[7]=$580
    set BossHDLZ___HOJU_X[8]=$53C0
    set BossHDLZ___HOJU_Y[8]=$9C0
    set BossHDLZ___Open_Region=CreateRegion()
    set BossHDLZ___Open_Trig=CreateTrigger()
    set BossHDLZ___Open_Group=NewGroup()
    set bj_lastCreatedRegion=BossHDLZ___Open_Region
    set x=GetDestructableX(gg_dest_B00D_11119)
    set y=GetDestructableY(gg_dest_B00D_11119)
    set BossHDLZ___HOJU_X[18]=x
    set BossHDLZ___HOJU_Y[18]=y
    set i=0
    loop
        exitwhen i>7
        set BossHDLZ___HOJU_X[$A+i]=x+Cos(Lx/ 8*i)*360
        set BossHDLZ___HOJU_Y[$A+i]=y+Sin(Lx/ 8*i)*360
        call CreateDestructable('B00E',BossHDLZ___HOJU_X[$A+i],BossHDLZ___HOJU_Y[$A+i],.0,1,0)
        call RegisterEnterRect_V(BossHDLZ___HOJU_X[$A+i]-64,BossHDLZ___HOJU_Y[$A+i]-64,BossHDLZ___HOJU_X[$A+i]+64,BossHDLZ___HOJU_Y[$A+i]+64)
        set i=i+1
    endloop
    call TriggerRegisterLeaveRegion(BossHDLZ___Open_Trig,BossHDLZ___Open_Region,Filter(function BossHDLZ___Open_Leave))
    call TriggerRegisterEnterRegion(BossHDLZ___Open_Trig,BossHDLZ___Open_Region,Filter(function RegisterEnterRect_Filter))
    call TriggerAddCondition(BossHDLZ___Open_Trig,Filter(function BossHDLZ___Open_Enter))
endfunction

function Boss_n035_BuffA0ZU_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))then
        set Boss_n035_BuffA0ZU_Count[id]=Boss_n035_BuffA0ZU_Count[id]-1
        call UnitDamageTargetBY(((Boss_n035_BuffA0ZU_Source[id])),(((Je[(id)]))),(((($FA0)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c00A0FF00")))
    else
        set Boss_n035_BuffA0ZU_Count[id]=0
    endif
    if Boss_n035_BuffA0ZU_Count[id]==0 then
        call ReleaseTimer(Boss_n035_BuffA0ZU_Timer[id],"[TimerUtils]Error:666")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ZU','B09K')
        call Unit_Cancel_Counter($448,id)
        set Boss_n035_BuffA0ZU_Source[id]=null
        set Boss_n035_BuffA0ZU_Timer[id]=null
    endif
endfunction

function Boss_n035_BuffA0ZU takes unit s,unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if UnitAlive(u)and(Je[(id)])==u then
        if Boss_n035_BuffA0ZU_Timer[id]==null then
            set Boss_n035_BuffA0ZU_Timer[id]=NewTimer(id)
            call UnitAddAbilityBY(u,'A0ZU')
            call Unit_App_Counter($449,id)
            call TimerStart(Boss_n035_BuffA0ZU_Timer[id],1,true,function Boss_n035_BuffA0ZU_func)
        endif
        set Boss_n035_BuffA0ZU_Count[id]=$A
        set Boss_n035_BuffA0ZU_Source[id]=s
    endif
endfunction

function Boss_n035_Buff002_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:667")
    call SetUnitNocontrol(id,false)
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A10M','B09L')
    call Unit_Cancel_Counter($44A,id)
    set Boss_n035_Buff002_Timer=null
endfunction

function Boss_n035_Buff002_add takes nothing returns nothing
    if UnitAlive(Boss_n035_Unit)then
        if Boss_n035_Buff002_Timer==null then
            set Boss_n035_Buff002_Timer=NewTimer((GetUnitUserData((Boss_n035_Unit))))
            call SetUnitNocontrol((GetUnitUserData((Boss_n035_Unit))),true)
            call UnitAddAbilityBY(Boss_n035_Unit,'A10M')
            call Unit_App_Counter($44B,(GetUnitUserData((Boss_n035_Unit))))
        endif
        call TimerStart(Boss_n035_Buff002_Timer,$A,false,function Boss_n035_Buff002_Expired)
    endif
endfunction

function Boss_n035_Ability002_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local real tx
    local real ty
    local real r
    local unit u
    if UnitAlive(Boss_Spell_unit2[data])then
        if Boss_Spell_bool[data]then
            if UnitAlive(Boss_Spell_unit1[data])then
                set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit1[data])
                set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit1[data])
            else
                set Boss_Spell_bool[data]=false
            endif
        endif
        if GetUnitAbilityLevel(Boss_Spell_unit2[data],'B07A')==0 and GetUnitAbilityLevel(Boss_Spell_unit2[data],'Bfrz')==0 then
            set x=GetUnitX(Boss_Spell_unit2[data])
            set y=GetUnitY(Boss_Spell_unit2[data])
            set tx=Boss_Spell_X[data]-x
            set ty=Boss_Spell_Y[data]-y
            set r=$A/(SquareRoot(tx*tx+ty*ty)+.1)
            set x=x+tx*r
            set y=y+ty*r
            call SetUnitX(Boss_Spell_unit2[data],x)
            call SetUnitY(Boss_Spell_unit2[data],y)
            if r>=.2 then
                if Boss_Spell_bool[data]then
                    call SetUnitState(Boss_Spell_unit1[data],UNIT_STATE_MANA,GetUnitState(Boss_Spell_unit1[data],UNIT_STATE_MANA)+7)
                    call Ltv(LAv("Abilities\\Spells\\NightElf\\Taunt\\TauntCaster.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],2))
                    call NewTextTagInTarget_B(Boss_Spell_unit1[data],"|cFF339933Feeling good!|r",$C,$FF,$FF,$FF)
                    call UnitCureTaret(Boss_Spell_unit1[data],Boss_Spell_unit1[data],GetUnitState(Boss_Spell_unit1[data],UNIT_STATE_MAX_LIFE)*.1)
                    call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,$FA)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),(((($9C40)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                            call Boss_n035_BuffA0ZU(Boss_Spell_unit1[data],u)
                        endif
                    endloop
                    call ExecuteFunc("Boss_n035_Ability006_Start")
                endif
                call KillUnit(Boss_Spell_unit2[data])
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:668")
                call Boss_Spell_deallocate(data)
                set Boss_Spell_unit1[data]=null
                set Boss_Spell_unit2[data]=null
            endif
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:669")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function Boss_n035_Ability002_Actions takes nothing returns nothing
    local integer i=0
    local unit nmum=null
    local unit u
    local real x
    local real y
    call GroupEnumUnitsInRect(G,gg_rct_YWZD______________000,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if UnitAlive(u)and GetUnitTypeId(u)=='ufro' then
            set i=i+1
            if GetRandomInt(1,i)==1 then
                set nmum=u
            endif
        endif
    endloop
    if nmum!=null then
        set i=Boss_Spell_allocate()
        set x=GetUnitX(nmum)
        set y=GetUnitY(nmum)
        set Boss_Spell_X[i]=GetUnitX(Boss_n035_Unit)
        set Boss_Spell_Y[i]=GetUnitY(Boss_n035_Unit)
        set Boss_Spell_bool[i]=true
        set Boss_Spell_unit1[i]=Boss_n035_Unit
        set Boss_Spell_unit2[i]=CreateUnit(P[$B],'unec',x,y,Atan2(Boss_Spell_Y[i]-y,Boss_Spell_X[i]-x)*bj_RADTODEG)
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y,5))
        call TimerStart(NewTimer(i),.03125,true,function Boss_n035_Ability002_Start)
        set nmum=null
    endif
endfunction

function Boss_n035_Ability003_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local real tx
    local real ty
    local real r
    local real a
    local integer i
    local integer j
    local unit u
    set i=0
    loop
        exitwhen i>4
        set j=0
        set a=Boss_Spell_Z[data]+Boss_Spell_V[data]+bj_PI/ 2*i
        set r=0
        loop
            set j=j+1
            exitwhen j>$A
            set r=r+$C8
            set tx=x+Cos(a)*r
            set ty=y+Sin(a)*r
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\RaiseSkeletonWarrior\\RaiseSkeleton.mdl",tx,ty))
            call GroupEnumUnitsInRange(G,tx,ty,100+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,tx,ty,100)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),(((($186A0)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    call Boss_n035_BuffA0ZU(Boss_Spell_unit1[data],u)
                endif
            endloop
        endloop
        set i=i+1
    endloop
    set Boss_Spell_V[data]=Boss_Spell_V[data]+5*bj_DEGTORAD
    if Boss_Spell_V[data]>bj_PI/ 2 then
        call PauseUnit(Boss_n035_Unit,false)
        call SetUnitInvulnerable(Boss_n035_Unit,false)
        call SetUnitAnimation(Boss_n035_Unit,"stand")
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:670")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function Boss_n035_Ability003_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_unit1[data]=Boss_n035_Unit
    set Boss_Spell_X[data]=GetUnitX(Boss_n035_Unit)
    set Boss_Spell_Y[data]=GetUnitY(Boss_n035_Unit)
    set Boss_Spell_Z[data]=GetUnitFacing(Boss_n035_Unit)*bj_DEGTORAD
    set Boss_Spell_V[data]=0
    call PauseUnit(Boss_n035_Unit,true)
    call SetUnitInvulnerable(Boss_n035_Unit,true)
    call SetUnitAnimation(Boss_n035_Unit,"birth")
    call GFv_v(Boss_n035_Unit)
    call TimerStart(NewTimer(data),.1,true,function Boss_n035_Ability003_Start)
endfunction

function Boss_n035_Ability005_Actions_Func003 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:671")
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$96+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96)and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
            call UnitDamageTargetBY((((Je[(id)]))),((u)),(((($C350)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        endif
    endloop
endfunction

function Boss_n035_Ability005_Actions_Func002 takes nothing returns nothing
    local real life=GetWidgetLife((MF))
    local real maxlife=GetUnitState((MF),UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    if life-GetDamage()>.5 and v<.05 then
        call SetUnitExploded((MF),true)
        call KillUnit((MF))
        call TimerStart(NewTimer((pF)),0,false,function Boss_n035_Ability005_Actions_Func003)
    endif
endfunction

function Boss_n035_Ability005_Actions_Func001 takes nothing returns nothing
    set Boss_n035_Ability005_Number=Boss_n035_Ability005_Number+1
endfunction

function Boss_n035_Ability005_Actions takes nothing returns nothing
    local real x=GetRandomReal(GetRectMinX(gg_rct_YWZD______________001),GetRectMaxX(gg_rct_YWZD______________001))
    local real y=GetRandomReal(GetRectMinY(gg_rct_YWZD______________001),GetRectMaxY(gg_rct_YWZD______________001))
    local integer id=(GetUnitUserData((CreateUnit(P[$B],'ndrj',x,y,GetRandomReal(0,360)))))
    call UnitAddBeRemoveTrig(id,Condition(function Boss_n035_Ability005_Actions_Func001))
    call UnitAddBeDamagerTrig(id,function Boss_n035_Ability005_Actions_Func002)
    call UnitApplyTimedLife((Je[(id)]),'BTLF',0)
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2))
    set Boss_n035_Ability005_Number=Boss_n035_Ability005_Number-1
endfunction

function Boss_n035_Ability006_Start_func003 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=(GetUnitX(II[(Boss_Spell_data1[data])]))
    local real y=(GetUnitY(II[(Boss_Spell_data1[data])]))
    local real t=Sin(Boss_Spell_V[data])*72*bj_DEGTORAD
    local real a=Boss_Spell_Z[data]+t
    local unit u
    set Boss_Spell_V[data]=Boss_Spell_V[data]+$A*bj_DEGTORAD
    set x=x+Cos(a)*32
    set y=y+Sin(a)*32
    call LKv(Boss_Spell_data1[data],x)
    call Llv(Boss_Spell_data1[data],y)
    call GroupEnumUnitsInRange(G,x,y,100+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96)and IsUnitAliveAndEnemyNotAvul(u,Boss_n035_Unit)and IsUnitOfPlayerNotseckill(u)then
            call KillUnitBJ(u)
            call DestroyEffect(AddSpecialEffectTarget("desecrategreen.mdl",u,"origin"))
        endif
    endloop
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    if Boss_Spell_data2[data]==0 or IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY)then
        call Ltv(Boss_Spell_data1[data])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:672")
        call Boss_Spell_deallocate(data)
    endif
endfunction

function Boss_n035_Ability006_Start_func002 takes nothing returns nothing
    local integer v=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=0
    local integer j=Boss_n035_Ability006_Index
    local real x=GetUnitX(Boss_n035_Unit)
    local real y=GetUnitY(Boss_n035_Unit)
    local real a
    local real t=Lx/ j
    local real r
    if v>32 then
        set a=Boss_n035_Ability006_Ange+.05+.05*((64-v)/ 32.)
        set r=300
    else
        if v==32 then
            call NewTextTagInTarget_B(Boss_n035_Unit,"|c003A9115You are not welcome to roll here!|r",18,$FF,$FF,$FF)
        endif
        set a=Boss_n035_Ability006_Ange+.1*((v-8)/ 24.)
        set r=300*(v/ 32.)
    endif
    set Boss_n035_Ability006_Ange=a
    loop
        exitwhen i==j
        call LKv(Boss_n035_Ability006_Vessel[i],x+Cos(a)*r)
        call Llv(Boss_n035_Ability006_Vessel[i],y+Sin(a)*r)
        set i=i+1
        set a=a+t
    endloop
    if v==0 then
        loop
            exitwhen i==0
            set i=i-1
            set a=a-t
            set j=Boss_Spell_allocate()
            set Boss_Spell_data1[j]=Boss_n035_Ability006_Vessel[i]
            set Boss_Spell_data2[j]=$FA
            set Boss_Spell_X[j]=(GetUnitX(II[(Boss_Spell_data1[j])]))
            set Boss_Spell_Y[j]=(GetUnitY(II[(Boss_Spell_data1[j])]))
            set Boss_Spell_Z[j]=a+bj_PI
            set Boss_Spell_V[j]=-bj_PI/ 2
            call TimerStart(NewTimer(j),.01,true,function Boss_n035_Ability006_Start_func003)
        endloop
        set Boss_n035_Ability006_Ange=0
        set Boss_n035_Ability006_Index=0
        call ReleaseTimer(Boss_n035_Ability006_Timer,"[TimerUtils]Error:673")
    else
        call alloc__hPv(GetHandleId((GetExpiredTimer())),(v-1))
    endif
endfunction

function Boss_n035_Ability006_Start_func001 takes nothing returns nothing
    local integer i=0
    local integer j=Boss_n035_Ability006_Index
    local real x=GetUnitX(Boss_n035_Unit)
    local real y=GetUnitY(Boss_n035_Unit)
    local real a=Boss_n035_Ability006_Ange+.05
    local real t=Lx/ j
    if UnitAlive(Boss_n035_Unit)then
        set Boss_n035_Ability006_Ange=a
        loop
            exitwhen i==j
            call LKv(Boss_n035_Ability006_Vessel[i],x+Cos(a)*300)
            call Llv(Boss_n035_Ability006_Vessel[i],y+Sin(a)*300)
            set i=i+1
            set a=a+t
        endloop
        if Boss_n035_Ability006_Open>0 then
            set Boss_n035_Ability006_Open=Boss_n035_Ability006_Open-1
            if Boss_n035_Ability006_Index==$A and Boss_n035_Ability006_Open>0 then
                call alloc__hPv(GetHandleId((Boss_n035_Ability006_Timer)),(64))
                call TimerStart(Boss_n035_Ability006_Timer,.03125,true,function Boss_n035_Ability006_Start_func002)
            endif
        endif
    else
        loop
            exitwhen i==j
            call Ltv(Boss_n035_Ability006_Vessel[i])
            set i=i+1
        endloop
        set Boss_n035_Ability006_Ange=0
        set Boss_n035_Ability006_Index=0
        call ReleaseTimer(Boss_n035_Ability006_Timer,"[TimerUtils]Error:674")
    endif
endfunction

function Boss_n035_Ability006_Start takes nothing returns nothing
    local integer i=0
    local integer j=Boss_n035_Ability006_Index
    local real x=GetUnitX(Boss_n035_Unit)
    local real y=GetUnitY(Boss_n035_Unit)
    local real a=Boss_n035_Ability006_Ange
    local real t=Lx/(j+1)
    if Boss_n035_Ability006_Index<$A then
        loop
            exitwhen i==j
            call LKv(Boss_n035_Ability006_Vessel[i],x+Cos(a)*300)
            call Llv(Boss_n035_Ability006_Vessel[i],y+Sin(a)*300)
            set i=i+1
            set a=a+t
        endloop
        set Boss_n035_Ability006_Vessel[Boss_n035_Ability006_Index]=LNv("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl",x+Cos(a)*300,y+Sin(a)*300,$96,3)
        set Boss_n035_Ability006_Index=Boss_n035_Ability006_Index+1
        if Boss_n035_Ability006_Index==1 then
            set Boss_n035_Ability006_Timer=(NewTimer(0))
            call TimerStart(Boss_n035_Ability006_Timer,.03125,true,function Boss_n035_Ability006_Start_func001)
        endif
    endif
endfunction

function Boss_n035_AI takes unit s returns nothing
    local real life=GetWidgetLife(s)
    local real maxlife=GetUnitState(s,UNIT_STATE_MAX_LIFE)
    local real v=life/ maxlife
    local integer orderid=GetUnitCurrentOrder(s)
    local integer i
    local unit u
    local boolean b=true
    if Boss_n035_Ability003_Number<3 then
        if v>=Pow(2,Boss_n035_Ability003_Number+1)*.1+.15 then
            set Boss_n035_Ability003_Number=Boss_n035_Ability003_Number+1
        endif
    endif
    if orderid==0 or orderid==$D0006 or($D000E<orderid and orderid<$D0013)then
        set i=GetRandomInt(1,100)
        if Boss_n035_Ability003_Number>0 and v<=Pow(2,Boss_n035_Ability003_Number)*.1 then
            set Boss_n035_Ability003_Number=Boss_n035_Ability003_Number-1
            call Boss_n035_Ability003_Actions()
        else
            if i>80 then
                set u=PickRandomVisibleHeroInRange2(s,$578)
                if u==null then
                    set u=PickRandomUnitInUnitRange(s,$578)
                endif
                if u!=null then
                    set b=IssuePointOrderById(s,$D009D,GetUnitX(u),GetUnitY(u))
                    set u=null
                endif
            endif
            if b and i>70 and v<=.7 then
                set u=PickRandomVisibleHeroInRange2(s,$9C4)
                if u!=null then
                    set b=IssueImmediateOrderById(s,$D0076)
                    set u=null
                endif
            endif
            if b and v<=.95 then
                set u=PickRandomUnitInUnitRange(s,$5DC)
                if u!=null then
                    set b=IssueImmediateOrderById(s,$D011D)
                    set u=null
                endif
            endif
        endif
    endif
    set Boss_n035_Ability006_Open=320
endfunction

function Boss_n035_BeDamager takes nothing returns nothing
    call Boss_n035_AI((MF))
endfunction

function Boss_n035_onAttack takes nothing returns nothing
    call Boss_n035_AI((mF))
    call Boss_n035_BuffA0ZU((mF),(MF))
endfunction

function Boss_n035_Loop takes nothing returns nothing
    if UnitAlive(Boss_n035_Unit)then
        if GetUnitState(Boss_n035_Unit,UNIT_STATE_MANA)>=$A then
            call Boss_n035_Ability002_Actions()
            call SetUnitState(Boss_n035_Unit,UNIT_STATE_MANA,0)
        endif
        if Boss_n035_Ability005_Number>0 then
            set Boss_n035_Ability005_Time=Boss_n035_Ability005_Time+1
            if Boss_n035_Ability005_Time>=256 then
                set Boss_n035_Ability005_Time=0
                call Boss_n035_Ability005_Actions()
            endif
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:675")
    endif
endfunction

function Boss_ufro_Ability01_Start takes nothing returns nothing
    local integer m=s__SoulMissile_Last_Missile
    local real x=(GetUnitX(II[(s__barrage_model[m])]))
    local real y=(GetUnitY(II[(s__barrage_model[m])]))
    local unit u
    call Ltv(LAv("acid ex.mdl",x,y,3))
    call zHv(30,.5,x,y,500)
    call GroupEnumUnitsInRange(G,x,y,500+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,500)and IsUnitAliveAndEnemyNotAvul(u,Boss_n035_Unit)then
            call UnitDamageTargetBY(((Boss_n035_Unit)),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.5)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
        endif
    endloop
    call Boss_n035_Buff002_add()
endfunction

function Boss_ufro_Ability01_Actions takes integer id returns nothing
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local integer m=CreateBarrageTypeC(x,y,300,Boss_n035_Unit)
    call LMv(s__barrage_model[m],"Abilities\\Spells\\NightElf\\CorrosiveBreath\\CorrosiveBreathMissile.mdl")
    call s__SoulMissile_BarrageFiringByA(m,function Boss_ufro_Ability01_Start,((GetUnitFacing(II[(s__barrage_model[m])]))+GetRandomReal(-20,20))*bj_DEGTORAD,GetRandomReal(0,45)*bj_DEGTORAD,$3E8*.03125,0,1.65)
    call SetUnitState((Je[(id)]),UNIT_STATE_MANA,0)
    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",(Je[(id)]),"origin"))
    call DestroyEffect(Boss_ufro_Effect[id])
    set Boss_ufro_Effect[id]=null
endfunction

function Boss_ufro_BeDamager takes nothing returns nothing
    if GetWidgetLife((MF))-GetDamage()<=.5 then
        call SetUnitInvulnerable((MF),true)
        call PauseUnit((MF),true)
        call SetWidgetLife((MF),1)
        call SetUnitState((MF),UNIT_STATE_MANA,0)
        set Boss_ufro_Pause[(pF)]=$C8
    endif
endfunction

function Boss_ufro_Loop takes nothing returns nothing
    local integer i=0
    local integer id
    local real v
    loop
        set i=i+1
        exitwhen i>3
        if UnitAlive(Boss_ufro_Unit[i])then
            set id=(GetUnitUserData((Boss_ufro_Unit[i])))
            if Boss_ufro_Pause[id]>0 then
                set Boss_ufro_Pause[id]=Boss_ufro_Pause[id]-1
            elseif IsUnitPaused(Boss_ufro_Unit[i])then
                call SetUnitInvulnerable(Boss_ufro_Unit[i],false)
                call PauseUnit(Boss_ufro_Unit[i],false)
                call SetWidgetLife(Boss_ufro_Unit[i],GetUnitState(Boss_ufro_Unit[i],UNIT_STATE_MAX_LIFE))
            endif
            if not IsUnitPaused(Boss_ufro_Unit[i])then
                set v=GetUnitState(Boss_ufro_Unit[i],UNIT_STATE_MANA)+.2
                call SetUnitState(Boss_ufro_Unit[i],UNIT_STATE_MANA,v)
                if v>=100 then
                    if UnitAlive(Boss_n035_Unit)then
                        call Boss_ufro_Ability01_Actions(id)
                    endif
                elseif v>=50 and Boss_ufro_Effect[id]==null then
                    set Boss_ufro_Effect[id]=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Unsummon\\UnsummonTarget.mdl",Boss_ufro_Unit[i],"origin")
                endif
            endif
        endif
    endloop
endfunction

function Boss_n035_Open_func001 takes nothing returns nothing
    local integer i=0
    set Boss_n035_Open=false
    call s__Trig_remove(s__Trig_Index)
    set KF[HF]=PF+1000000.
    call PauseUnit(Boss_n035_Unit,false)
    call UnitAddBeDamagerTrig((GetUnitUserData((Boss_n035_Unit))),function Boss_n035_BeDamager)
    call UnitAddPAttackTrig((GetUnitUserData((Boss_n035_Unit))),function Boss_n035_onAttack)
    call TimerStart((NewTimer(0)),.5,true,function Boss_n035_Loop)
    call TimerStart((NewTimer(0)),.1,true,function Boss_ufro_Loop)
    loop
        set i=i+1
        exitwhen i>3
        if UnitAlive(Boss_ufro_Unit[i])then
            call UnitAddBeDamagerTrig((GetUnitUserData((Boss_ufro_Unit[i]))),function Boss_ufro_BeDamager)
        endif
    endloop
endfunction

function Bossn035___BossSkill_A0ZT_Start takes nothing returns nothing
    local integer m=s__SoulMissile_Last_Missile
    local real x=(GetUnitX(II[(s__barrage_model[m])]))
    local real y=(GetUnitY(II[(s__barrage_model[m])]))
    local unit u
    call Ltv(LAv("acid ex.mdl",x,y,3))
    call zHv(30,.5,x,y,400)
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)and IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[m])then
            call UnitDamageTargetBY(((s__barrage_atkunit[m])),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE)*.7)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            call Boss_n035_BuffA0ZU(s__barrage_atkunit[m],u)
        endif
    endloop
endfunction

function Bossn035___BossSkill_A0ZT_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real tx=GetSpellTargetX()
    local real ty=GetSpellTargetY()
    local real dx=tx-x
    local real dy=ty-y
    local real a=Atan2(dy,dx)
    local integer m=CreateBarrageTypeD(x,y,300,tx,ty,0)
    call LMv(s__barrage_model[m],GetAbilityEffectById('A0ZT',EFFECT_TYPE_MISSILE,0))
    call s__SoulMissile_BarrageFiringByA(m,function Bossn035___BossSkill_A0ZT_Start,a+GetRandomReal(-$A,$A)*bj_DEGTORAD,GetRandomReal(0,$F)*bj_DEGTORAD,$7D0*.03125,$3E8*.03125*.03125,1.65)
    set s__barrage_atkunit[m]=(Je[(id)])
endfunction

function Bossn035___BossSkill_A0ZT_Channel takes nothing returns nothing
    call NewTextTagInTarget_B(GetTriggerUnit(),"|cFF339933Yoyoyoyoyoyo!|r",18,$FF,$FF,$FF)
endfunction

function Bossn035___BossSkill_A0ZV_Start takes nothing returns nothing
    local integer m=s__SoulMissile_Last_Missile
    call UnitDamageTargetBY(((s__barrage_atkunit[m])),((s__barrage_target[m])),(((($2710)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
    call Boss_n035_BuffA0ZU(s__barrage_atkunit[m],s__barrage_target[m])
    call DestroyEffect(AddSpecialEffectTarget(GetAbilityEffectById('A0ZV',EFFECT_TYPE_MISSILE,0),s__barrage_target[m],"origin"))
endfunction

function Bossn035___BossSkill_A0ZV_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real tx
    local real ty
    local real dx
    local real dy
    local real a
    local integer m
    local integer i=0
    local integer j=0
    local integer k=0
    local unit u
    local unit array uv
    call GroupClear(G2)
    call GroupClear(G3)
    call GroupEnumUnitsInRange(G,x,y,$5DC+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$5DC)and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
            if nC[(GetUnitUserData((u)))]then
                set i=i+1
                call GroupAddUnit(G2,u)
            else
                set j=j+1
                call GroupAddUnit(G3,u)
            endif
        endif
    endloop
    loop
        set u=FirstOfGroup(G2)
        exitwhen u==null or k==5
        call GroupRemoveUnit(G2,u)
        set i=i-1
        if GetRandomInt(1,i)<=(5-k)then
            set k=k+1
            set uv[k]=u
        endif
    endloop
    loop
        set u=FirstOfGroup(G3)
        exitwhen u==null or k==5
        call GroupRemoveUnit(G3,u)
        set j=j-1
        if GetRandomInt(1,j)<=(5-k)then
            set k=k+1
            set uv[k]=u
        endif
    endloop
    loop
        exitwhen k==0
        set u=uv[k]
        set uv[k]=null
        set k=k-1
        set tx=GetUnitX(u)
        set ty=GetUnitY(u)
        set dx=tx-x
        set dy=ty-y
        set a=Atan2(dy,dx)
        set m=CreateBarrageTypeC(x,y,500,u)
        call LMv(s__barrage_model[m],GetAbilityEffectById('A0ZV',EFFECT_TYPE_MISSILE,0))
        call SetUnitScale(II[(s__barrage_model[m])],((1.5)*1.),0,0)
        call s__SoulMissile_BarrageFiringByA(m,function Bossn035___BossSkill_A0ZV_Start,a+GetRandomReal(-$A,$A)*bj_DEGTORAD,GetRandomReal(-$A,$A)*bj_DEGTORAD,$7D0*.03125,0,1.55)
        set s__barrage_atkunit[m]=(Je[(id)])
    endloop
endfunction

function Bossn035___BossSkill_A10O_Start_A takes nothing returns nothing
    local integer m=s__SoulMissile_Last_Missile
    local real x=(GetUnitX(II[(s__barrage_model[m])]))
    local real y=(GetUnitY(II[(s__barrage_model[m])]))
    local unit u
    call Ltv(LAv("desecrategreen.mdl",x,y,.75))
    call zHv(30,.5,x,y,$C8)
    call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$C8)and IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[m])then
            call UnitDamageTargetBY(((s__barrage_atkunit[m])),((u)),((((GetUnitState(u,UNIT_STATE_MAX_LIFE))*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
            call Boss_n035_BuffA0ZU(s__barrage_atkunit[m],u)
        endif
    endloop
endfunction

function Bossn035___BossSkill_A10O_Start_B takes nothing returns nothing
    local integer m=s__SoulMissile_Last_Missile
    call UnitCureTaret(s__barrage_atkunit[m],s__barrage_target[m],GetUnitState(s__barrage_target[m],UNIT_STATE_MAX_LIFE)*.05)
    call DestroyEffect(AddSpecialEffectTarget(GetAbilityEffectById('A10O',EFFECT_TYPE_TARGET,0),s__barrage_target[m],"origin"))
endfunction

function Bossn035___BossSkill_A10O_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer v=Boss_Spell_data1[data]
    local integer data2
    local integer i=Boss_Spell_data2[data]
    local integer m
    local real x=GetUnitX(Boss_Spell_unit1[data])
    local real y=GetUnitY(Boss_Spell_unit1[data])
    local real z=GetUnitFlyHeight(Boss_Spell_unit1[data])+400
    local real tx
    local real ty
    local real tz
    local real a
    local real h
    local unit u
    if Boss_Spell_data2[data]<8 then
        set a=GetRandomReal(0,Lx)
        set h=GetRandomReal(-Lx/ 8,Lx/ 8)
        if GetRandomInt(0,1)==0 then
            set h=bj_PI+h
        endif
        set Boss_x[0]=Cos(a)
        set Boss_y[0]=Sin(a)
        set Boss_x[1]=Cos(h)
        set Boss_y[1]=Sin(h)
        set data2=Boss_Spell_allocate()
        set Boss_Spell_X[data2]=a
        set Boss_Spell_Y[data2]=h
        set Boss_Spell_Z[data2]=GetRandomReal(0,Lx)
        set Boss_x[2]=Cos(Boss_Spell_Z[data2])
        set Boss_y[2]=Sin(Boss_Spell_Z[data2])
        set Boss_x[3]=Boss_x[2]*Boss_x[1]
        set Boss_z[4]=-Boss_x[2]*Boss_y[1]
        set Boss_x[4]=Boss_x[3]*Boss_x[0]-Boss_y[2]*Boss_y[0]
        set Boss_y[4]=Boss_y[2]*Boss_x[0]+Boss_x[3]*Boss_y[0]
        set tx=x+Boss_x[4]*300
        set ty=y+Boss_y[4]*300
        set tz=z+Boss_z[4]*300
        set Boss_Spell_data1[data2]=LNv(GetAbilityEffectById('A10O',EFFECT_TYPE_MISSILE,0),tx,ty,tz,1.5)
        call SaveInteger(BYHT,v,i,data2)
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]+1
    else
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    endif
    loop
        exitwhen i==0
        set i=i-1
        set data2=LoadInteger(BYHT,v,i)
        set Boss_Spell_Z[data2]=Boss_Spell_Z[data2]+5*bj_DEGTORAD
        set Boss_x[0]=Cos(Boss_Spell_X[data2])
        set Boss_y[0]=Sin(Boss_Spell_X[data2])
        set Boss_x[1]=Cos(Boss_Spell_Y[data2])
        set Boss_y[1]=Sin(Boss_Spell_Y[data2])
        set Boss_x[2]=Cos(Boss_Spell_Z[data2])
        set Boss_y[2]=Sin(Boss_Spell_Z[data2])
        set Boss_x[3]=Boss_x[2]*Boss_x[1]
        set Boss_z[4]=-Boss_x[2]*Boss_y[1]
        set Boss_x[4]=Boss_x[3]*Boss_x[0]-Boss_y[2]*Boss_y[0]
        set Boss_y[4]=Boss_y[2]*Boss_x[0]+Boss_x[3]*Boss_y[0]
        set tx=x+Boss_x[4]*300
        set ty=y+Boss_y[4]*300
        set tz=z+Boss_z[4]*300
        set Boss_x[0]=tx-(GetUnitX(II[(Boss_Spell_data1[data2])]))
        set Boss_y[0]=ty-(GetUnitY(II[(Boss_Spell_data1[data2])]))
        if Boss_Spell_data3[data]==0 then
            set Boss_z[0]=tz-(GetUnitFlyHeight(II[(Boss_Spell_data1[data2])]))+GetPointZ(Boss_x[0],Boss_y[0])
            set u=GroupPickRandomHeroInRange(Boss_Spell_unit1[data],x,y,$9C4,Boss_Spell_group1[data])
            if u!=null then
                set m=CreateBarrageTypeE(Boss_Spell_data1[data2],GetUnitX(u),GetUnitY(u),50)
                call s__SoulMissile_BarrageFiringByB(m,function Bossn035___BossSkill_A10O_Start_A,Boss_x[0],Boss_y[0],Boss_z[0],$7D0*.03125,0,1.5)
                call GroupAddUnit(Boss_Spell_group1[data],u)
                set u=null
            else
                set m=CreateBarrageTypeE(Boss_Spell_data1[data2],x,y,50)
                call s__SoulMissile_BarrageFiringByB(m,function Bossn035___BossSkill_A10O_Start_B,Boss_x[0],Boss_y[0],Boss_z[0],$5DC*.03125,0,1.55)
                set s__barrage_target[m]=Boss_Spell_unit1[data]
            endif
            set s__barrage_atkunit[m]=Boss_Spell_unit1[data]
            call Boss_Spell_deallocate(data2)
        endif
        call LKv(Boss_Spell_data1[data2],tx)
        call Llv(Boss_Spell_data1[data2],ty)
        call SetUnitFlyHeight(II[(Boss_Spell_data1[data2])],((tz-GetPointZ(tx,ty))*1.),0)
        call SetUnitFacing(II[(Boss_Spell_data1[data2])],((Atan2(Boss_y[0],Boss_x[0]))*1.)*bj_RADTODEG)
    endloop
    if Boss_Spell_data3[data]==0 then
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call RecycleGroup(Boss_Spell_group1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:676")
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function Bossn035___BossSkill_A10O_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=64
    set Boss_Spell_group1[data]=NewGroup()
    call PauseUnit((Je[(id)]),true)
    call SetUnitInvulnerable((Je[(id)]),true)
    call GFv_v((Je[(id)]))
    call TimerStart(NewTimer(data),.03125,true,function Bossn035___BossSkill_A10O_Start)
endfunction

function Bossn035___BossSkill_A10N_Start takes nothing returns nothing
    local integer m=s__SoulMissile_Last_Missile
    call UnitDamageTargetBY(((s__barrage_atkunit[m])),((s__barrage_target[m])),((((9999)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
    call m2v(s__barrage_target[m],5,'A500','B500',true)
endfunction

function Bossn035___BossSkill_A10N_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a=GetUnitFacing((Je[(id)]))
    local integer m=CreateBarrageTypeC(x,y,120,GetSpellTargetUnit())
    call LMv(s__barrage_model[m],"Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl")
    call s__SoulMissile_BarrageFiringByA(m,function Bossn035___BossSkill_A10N_Start,(a+GetRandomReal(-$F,$F))*bj_DEGTORAD,GetRandomReal($A,25)*bj_DEGTORAD,$3E8*.03125,100*.03125*.03125,1.65)
    set s__barrage_atkunit[m]=(Je[(id)])
endfunction

function Bossn035___onInit takes nothing returns nothing
    local integer i=0
    local integer j=3
    local integer k
    local integer array v
    local unit t
    set v[1]=0
    set v[2]=50
    set v[3]=100
    set Boss_n035_Unit=gg_unit_n035_0003
    set Boss_ufro_Unit[1]=gg_unit_ufro_1583
    set Boss_ufro_Unit[2]=gg_unit_ufro_1584
    set Boss_ufro_Unit[3]=gg_unit_ufro_1585
    set Boss_ufro_Pause[(GetUnitUserData((Boss_ufro_Unit[1])))]=0
    set Boss_ufro_Pause[(GetUnitUserData((Boss_ufro_Unit[2])))]=5*$A
    set Boss_ufro_Pause[(GetUnitUserData((Boss_ufro_Unit[3])))]=$A*$A
    call PauseUnit(Boss_n035_Unit,true)
    loop
        set i=i+1
        exitwhen i>3
        set k=GetRandomInt(1,j)
        call PauseUnit(Boss_ufro_Unit[i],true)
        call SetUnitInvulnerable(Boss_ufro_Unit[i],true)
        call SetWidgetLife(Boss_ufro_Unit[i],1)
        set Boss_ufro_Pause[(GetUnitUserData((Boss_ufro_Unit[i])))]=v[k]
        set v[k]=v[j]
        set j=j-1
    endloop
    call UnitAddShieldTrigB((GetUnitUserData((Boss_n035_Unit))),function Boss_n035_Open_func001)
    call RegisterSpellEffectEvent('A0ZT',function Bossn035___BossSkill_A0ZT_Actions)
    call RegisterSpellChannelEvent('A0ZT',function Bossn035___BossSkill_A0ZT_Channel)
    call RegisterSpellEffectEvent('A0ZV',function Bossn035___BossSkill_A0ZV_Actions)
    call RegisterSpellEffectEvent('A10O',function Bossn035___BossSkill_A10O_Actions)
    call RegisterSpellEffectEvent('A10N',function Bossn035___BossSkill_A10N_Actions)
    set t=null
endfunction

function Equip_Off takes integer id,item i,integer itemid returns nothing
    local integer h=GetHandleId(i)
    local integer v=6
    if HaveSavedInteger(BYHT2,Item_PickupOrDrop_event,itemid)then
        set ATv=false
        set Ahv=id
        call GameExecuteFunc(ConvertVersion(LoadInteger(BYHT2,Item_PickupOrDrop_event,itemid)))
    endif
    call s__suit_activate(id,itemid,false)
    loop
        exitwhen v==0
        set v=v-1
        if HaveSavedInteger(BYHT,Equip_trigSlot_O[v],h)then
            call s__Trig_remove(((LoadInteger(BYHT,Equip_trigSlot_O[v],h))))
            call RemoveSavedInteger(BYHT,Equip_trigSlot_O[v],h)
        endif
    endloop
endfunction

function Equip_On takes integer id,item i,integer itemid returns nothing
    local integer func
    local integer v=6
    local integer h=GetHandleId(i)
    loop
        exitwhen v==0
        set v=v-1
        if HaveSavedInteger(BYHT,Equip_trigSlot_O[v],itemid)then
            set func=LoadInteger(BYHT,Equip_trigSlot_O[v],itemid)
            call SaveInteger(BYHT,Equip_trigSlot_O[v],h,sc___prototype163_evaluate(func,(id),ConvertVersion(LoadInteger(BYHT2,Equip_trigSlot_O[v],itemid))))
        endif
    endloop
    call s__suit_activate(id,itemid,true)
    if HaveSavedInteger(BYHT2,Item_PickupOrDrop_event,itemid)then
        set ATv=true
        set Ahv=id
        call GameExecuteFunc(ConvertVersion(LoadInteger(BYHT2,Item_PickupOrDrop_event,itemid)))
    endif
endfunction

function s__poison_onInit takes nothing returns nothing
    set s__poison_R=calloc(6)
endfunction

function s__poison_end takes integer this returns nothing
    set s__poison_count[s__poison_targer[this]]=s__poison_count[s__poison_targer[this]]-1
    if s__poison_count[s__poison_targer[this]]==0 then
        call UnitRemoveAbilityandBuffBY((Je[(s__poison_targer[this])]),'A03Y','B01Y')
    endif
    call DestroyEffect(s__poison_eff[this])
    call RemoveSavedInteger(BYHT,((s__poison_R)+(s__poison_offset[this])),s__poison_targer[this])
    call Unit_Cancel_Counter(869,s__poison_which[this])
    call Unit_Cancel_Counter(870,s__poison_targer[this])
    call s__poison_deallocate(this)
    set s__poison_eff[this]=null
endfunction

function s__poison_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(s__poison_targer[this])]))then
        call UnitDamageTargetBY((((Je[(s__poison_which[this])]))),(((Je[(s__poison_targer[this])]))),((((s__poison_amount[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        set s__poison_maxtimed[this]=s__poison_maxtimed[this]-s__poison_retimed[this]
        if s__poison_maxtimed[this]<s__poison_retimed[this]then
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:536")
            call s__poison_end(this)
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:537")
        call s__poison_end(this)
    endif
endfunction

function s__poison_attack takes unit whichunit,unit targetunit,real damage,real maxt,real ret,integer typeid returns nothing
    local integer this
    local integer id=(GetUnitUserData((targetunit)))
    if HaveSavedInteger(BYHT,((s__poison_R)+(typeid)),id)then
        set this=LoadInteger(BYHT,((s__poison_R)+(typeid)),id)
        call DestroyEffect(s__poison_eff[this])
        call Unit_Cancel_Counter(871,s__poison_which[this])
        set s__poison_which[this]=(GetUnitUserData((whichunit)))
        set s__poison_eff[this]=AddSpecialEffectTarget("Abilities\\Weapons\\PoisonSting\\PoisonStingTarget.mdl",targetunit,"chest")
        set s__poison_amount[this]=damage
        set s__poison_maxtimed[this]=maxt
        call Unit_App_Counter(872,s__poison_which[this])
    else
        set this=s__poison__allocate()
        set s__poison_which[this]=(GetUnitUserData((whichunit)))
        set s__poison_targer[this]=id
        set s__poison_eff[this]=AddSpecialEffectTarget("Abilities\\Weapons\\PoisonSting\\PoisonStingTarget.mdl",targetunit,"chest")
        set s__poison_amount[this]=damage
        set s__poison_maxtimed[this]=maxt
        set s__poison_retimed[this]=ret
        set s__poison_offset[this]=typeid
        call SaveInteger(BYHT,((s__poison_R)+(s__poison_offset[this])),id,this)
        set s__poison_count[s__poison_targer[this]]=s__poison_count[s__poison_targer[this]]+1
        if s__poison_count[s__poison_targer[this]]==1 then
            call UnitAddAbilityBY(targetunit,'A03Y')
        endif
        call Unit_App_Counter(873,s__poison_which[this])
        call Unit_App_Counter(874,id)
        call TimerStart(NewTimer(this),ret,true,function s__poison_loop_c)
    endif
endfunction

function Highly_toxic_series_A_action takes nothing returns nothing
    call s__poison_attack((mF),(MF),400,4,1,1)
endfunction

function Highly_toxic_series_B_action takes nothing returns nothing
    call s__poison_attack((mF),(MF),800,4,1,2)
endfunction

function Highly_toxic_series_C_action takes nothing returns nothing
    call s__poison_attack((mF),(MF),$BB8,4,1,3)
endfunction

function Akers_mia_action takes nothing returns nothing
    local integer fx
    if GetRandomInt(1,$A)==1 then
        set fx=LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetUnitX((MF)),GetUnitY((MF)),1.5)
        call UnitDamageTargetBY((((mF))),(((MF))),((((7.5*GetHeroState2((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call LFv(fx,"Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl")
        call LFv(fx,"Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl")
        call Ltv(Lfv(fx,$FF,0,0,$FF))
    endif
endfunction

function Carla_fe_mia_action takes nothing returns nothing
    local integer fx
    if GetRandomInt(1,$A)==1 then
        set fx=LAv("Holystomp.mdl",GetUnitX((MF)),GetUnitY((MF)),1.5)
        call UnitDamageTargetBY((((mF))),(((MF))),((((7.5*GetHeroState1((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call LFv(fx,"Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl")
        call LFv(fx,"Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl")
        call Ltv(fx)
    endif
endfunction

function Bloodthirsty_A_action takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    local integer c=Bloodthirsty_num[id]+1
    local integer fx
    local unit u
    local real x
    local real y
    local real d
    if c<$E then
        set Bloodthirsty_num[id]=c
    else
        set Bloodthirsty_num[id]=0
        set c=GetRandomInt(1,2)
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set fx=LVv('e00X',x,y,GetUnitFacing((MF)))
        call SetUnitScale(II[(fx)],((2.75)*1.),0,0)
        call LDv(fx,1.66)
        if c==1 then
            set d=27.5*GetHeroPropertiesByAll((GetUnitUserData(((mF)))))
            call Lfv(fx,$FF,25,25,125)
            call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,2.75),$FF,55,55,$CD),.625)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.125),$FF,25,25,$CD))
            call NewTextTagInTarget_B((MF),"!",$A,$FF,55,55)
            call GroupEnumUnitsInRange(G,x,y,375,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endloop
        elseif c==2 then
            set d=$F*GetHeroPropertiesByAll((GetUnitUserData(((mF)))))
            call Lfv(fx,25,$FF,25,125)
            call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,2.75),55,$FF,55,$CD),.625)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.125),25,$FF,25,$CD))
            call NewTextTagInTarget_B((MF),"!",$A,55,$FF,55)
            call GroupEnumUnitsInRange(G,x,y,375,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitAppBuff((GetUnitUserData((u))),'A0HE',$D006B)
                    if not(IsUnitType((u),UNIT_TYPE_GIANT))then
                        call m1v(u,.75)
                    endif
                endif
            endloop
        endif
        call LHv(fx,3)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(mF),"origin"))
        call Ltv(LAv("BloodSlam.mdl",GetUnitX((mF)),GetUnitY((mF)),.75))
        call UnitCureTaret(null,(mF),$9C4+.6*GetHeroPropertiesByAll((GetUnitUserData(((mF))))))
        call zhv((GetPlayerId((GetOwningPlayer((mF))))),$F,.25)
        call PlaySoundAtPoint_BJ((cn),((125)*1.),((x)*1.),((y)*1.),0)
        call Lsv(fx,1.5)
    endif
endfunction

function Bloodthirsty_B_action takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    local integer c=Bloodthirsty_num[id]+1
    local integer fx
    local unit u
    local real x
    local real y
    local real d
    if c<$E then
        set Bloodthirsty_num[id]=c
    else
        set Bloodthirsty_num[id]=0
        set c=GetRandomInt(1,3)
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set fx=LVv('e00X',x,y,GetUnitFacing((MF)))
        call SetUnitScale(II[(fx)],((2.25)*1.),0,0)
        call LDv(fx,1.66)
        if c==1 then
            set d=22.5*GetHeroPropertiesByAll((GetUnitUserData(((mF)))))
            call Lfv(fx,$FF,25,25,125)
            call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,2.5),$FF,55,55,$CD),.625)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1),$FF,25,25,$CD))
            call NewTextTagInTarget_B((MF),"!",9,$FF,55,55)
            call GroupEnumUnitsInRange(G,x,y,375,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endloop
        elseif c==2 then
            call Lfv(fx,25,25,$FF,125)
            call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,2.5),55,55,$FF,$CD),.625)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1),55,25,$FF,$CD))
            call NewTextTagInTarget_B((mF),"!",9,55,55,$FF)
            call UnitCureTaret(null,(mF),$BB8+GetHeroPropertiesByAll((GetUnitUserData(((mF))))))
            call SetUnitState((mF),UNIT_STATE_MANA,GetUnitState((mF),UNIT_STATE_MANA)+.15*GetUnitState((mF),UNIT_STATE_MAX_MANA))
        elseif c==3 then
            set d=12.5*GetHeroPropertiesByAll((GetUnitUserData(((mF)))))
            call Lfv(fx,25,$FF,25,125)
            call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,2.5),55,$FF,55,$CD),.625)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1),25,$FF,25,$CD))
            call NewTextTagInTarget_B((MF),"!",9,55,$FF,55)
            call GroupEnumUnitsInRange(G,x,y,375,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitAppBuff((GetUnitUserData((u))),'A0HE',$D006B)
                    if not(IsUnitType((u),UNIT_TYPE_GIANT))then
                        call m1v(u,.75)
                    endif
                endif
            endloop
        endif
        call SetUnitAnimationByIndex(II[fx],3)
        call PlaySoundAtPoint_BJ((cn),((125)*1.),((x)*1.),((y)*1.),0)
        call Lsv(fx,1.25)
    endif
endfunction

function Series_of_Atlantis_A_action takes nothing returns nothing
    local integer fx
    if GetRandomInt(1,20)<4 then
        set fx=LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetUnitX((MF)),GetUnitY((MF)),1.5)
        call UnitDamageTargetBY((((mF))),(((MF))),(((($F*(GetHeroState1((mF),true)+GetHeroState2((mF),true)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call LFv(fx,"Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl")
        call LFv(fx,"Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl")
        call LFv(fx,"Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl")
        call Ltv(Lfv(fx,$FF,0,0,$FF))
    endif
endfunction

function Magic_dragon_series_A_action takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((4500+2.5*GetHeroStateByMax((mF)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function Magic_dragon_series_B_action takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((9000+4*GetHeroStateByMax((mF)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function Magic_dragon_series_C_action takes nothing returns nothing
    if GetDamage()>$C8 then
        call DamageMinus($C8)
    endif
endfunction

function Magic_dragon_series_D_action takes nothing returns nothing
    if GetDamage()>300 then
        call DamageMinus(300)
    endif
endfunction

function Lobster_series_A_actiom takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call UnitDamageTargetBY((((MF))),(((mF))),((((5*GetHeroState1((MF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((9)*1.))*1.),(("|c00d7b4eb")))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",(mF),"chest"))
    else
        call UnitDamageTargetBY((((MF))),(((mF))),((((.5*GetHeroState1((MF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call DestroyEffect(AddSpecialEffectTarget("blood damage impact.mdl",(mF),"chest"))
    endif
endfunction

function Lobster_series_B_actiom takes nothing returns nothing
    local unit u
    local real x
    local real y
    local real a
    if GetRandomInt(1,20)<4 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((600)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call UnitCureTaret((mF),(mF),600)
    endif
    if GetRandomInt(1,$A)<4 then
        set x=GetUnitX((mF))
        set y=GetUnitY((mF))
        set a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
        set x=x-64*Cos(a)
        set y=y-64*Sin(a)
        call GroupEnumUnitsInRange(G,x,y,375,null)
        call GroupRemoveUnit(G,(MF))
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)and IsUnitAliveAndEnemy(u,(mF))then
                if(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((a)*1.))>=Cos(((1.7)*1.)))then
                    call UnitDamageTargetBY(((mF)),(u),(((DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"chest"))
                endif
            endif
        endloop
    endif
endfunction

function Sea_series_A_action takes nothing returns nothing
    local unit u
    local real x
    local real y
    if GetRandomInt(1,$A)==1 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call Ltv(LAv("Abilities\\Spells\\Undead\\FreezingBreath\\FreezingBreathMissile.mdl",x,y,2))
        call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
        call GroupRemoveUnit(G,(MF))
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$C8)and IsUnitAliveAndEnemy(u,(mF))then
                call UnitDamageTargetBY(((mF)),(u),(((DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\CrushingWave\\CrushingWaveDamage.mdl",u,"origin"))
            endif
        endloop
    endif
endfunction

function Hill_series_A_action takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Impale\\ImpaleHitTarget.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),(((($9C4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function Corruptor_series_action_enable takes nothing returns nothing
    set Corruptor_series_Off[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:538"))]=false
endfunction

function Corruptor_series_action_loop takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=GetHandleId(Boss_Spell_unit1[i])
    local integer lv=Boss_Spell_data1[i]
    local integer j=5
    local real sA=Boss_Spell_Z[i]+Boss_Spell_data2[i]*bj_PI/ 6.
    local real fYv=60*Cos(sA)
    local real fzv=60*Sin(sA)
    local real pX
    local real pY
    local unit u
    loop
        set j=j-1
        set pX=Boss_Spell_X[i]+(j+1)*fYv
        set pY=Boss_Spell_Y[i]+(j+1)*fzv
        call GroupEnumUnitsInRange(G,pX,pY,96,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,pX,pY,48)then
                if not IsUnitInGroup(u,Boss_Spell_group1[i])and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call GroupAddUnit(Boss_Spell_group1[i],u)
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Boss_Spell_data3[i])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    if lv==2 then
                        call Auxiliary_TargetOrder(('A0HL'),null,1,$D00B5,u)
                    elseif lv==1 then
                        call Auxiliary_TargetOrder(('A0C6'),null,1,$D00B5,u)
                    elseif lv==3 then
                        call Auxiliary_TargetOrder(('A0VP'),null,1,$D00B5,u)
                    endif
                endif
            endif
        endloop
        if lv==2 then
            call Ltv(LAv("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",pX,pY,1.125))
        elseif lv==1 then
            call Ltv(LAv("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",pX,pY,1.125))
        elseif lv==3 then
            call Lqv(LAv("ShadowTrap.mdl",pX,pY,1.125),1.25)
        endif
        exitwhen j==0
    endloop
    if Boss_Spell_data2[i]>0 then
        set j=5
        set sA=Boss_Spell_Z[i]-Boss_Spell_data2[i]*bj_PI/ 6
        set fYv=60*Cos(sA)
        set fzv=60*Sin(sA)
        loop
            set j=j-1
            set pX=Boss_Spell_X[i]+(j+1)*fYv
            set pY=Boss_Spell_Y[i]+(j+1)*fzv
            call GroupEnumUnitsInRange(G,pX,pY,96,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,pX,pY,48)then
                    if not IsUnitInGroup(u,Boss_Spell_group1[i])and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call GroupAddUnit(Boss_Spell_group1[i],u)
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Boss_Spell_data3[i])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        if lv==2 then
                            call Auxiliary_TargetOrder(('A0HL'),null,1,$D00B5,u)
                        elseif lv==1 then
                            call Auxiliary_TargetOrder(('A0C6'),null,1,$D00B5,u)
                        elseif lv==3 then
                            call Auxiliary_TargetOrder(('A0VP'),null,1,$D00B5,u)
                        endif
                    endif
                endif
            endloop
            if lv==2 then
                call Ltv(LAv("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",pX,pY,1.125))
            elseif lv==1 then
                call Ltv(LAv("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",pX,pY,1.125))
            elseif lv==3 then
                call Lqv(LAv("ShadowTrap.mdl",pX,pY,1.125),1.25)
            endif
            exitwhen j==0
        endloop
    endif
    if Boss_Spell_data2[i]<2 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
    else
        call alloc__hPv(GetHandleId((GetExpiredTimer())),(id))
        call TimerStart(GetExpiredTimer(),4.25,false,function Corruptor_series_action_enable)
        call Unit_Cancel_Counter(875,id)
        call RecycleGroup(Boss_Spell_group1[i])
        call Boss_Spell_deallocate(i)
        set Boss_Spell_unit1[i]=null
        set Boss_Spell_group1[i]=null
    endif
endfunction

function Corruptor_series_action takes integer u,unit t,integer lv returns nothing
    local integer i=Boss_Spell_allocate()
    set Corruptor_series_Off[u]=true
    set Boss_Spell_unit1[i]=ConvertVersion(u)
    set Boss_Spell_group1[i]=NewGroup()
    set Boss_Spell_data1[i]=lv
    set Boss_Spell_data2[i]=0
    set Boss_Spell_X[i]=GetUnitX((Je[(u)]))
    set Boss_Spell_Y[i]=GetUnitY((Je[(u)]))
    set Boss_Spell_Z[i]=Atan2(GetUnitY(t)-Boss_Spell_Y[i],GetUnitX(t)-Boss_Spell_X[i])
    if lv==2 then
        set Boss_Spell_data3[i]=20*GetHeroState1((Je[(u)]),true)
        call DestroyEffect(AddSpecialEffectTarget("Evil Bomb.mdx",t,"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",t,"origin"))
    elseif lv==1 then
        set Boss_Spell_data3[i]=$F*GetHeroState1((Je[(u)]),true)
        call DestroyEffect(AddSpecialEffectTarget("CurseBoltGreen.mdl",t,"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",t,"chest"))
    elseif lv==3 then
        set Boss_Spell_data3[i]=R2I(32.5*GetHeroState1((Je[(u)]),true))
        call DestroyEffect(AddSpecialEffectTarget("CurseBoltPurple.mdl",t,"chest"))
        call TimerDestroyAddSpecialEffectTargetBY("DarkLightning.mdl",t,"chest",1.25)
    endif
    call UnitDamageTargetBY((((Je[(u)]))),((t)),((((Boss_Spell_data3[i])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    call TimerStart(NewTimer(i),.125,true,function Corruptor_series_action_loop)
    call Unit_App_Counter(876,u)
endfunction

function Corruptor_series_v_action takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    local integer lv=1
    if not Corruptor_series_Off[(id)]and GetRandomInt(1,100)<16 then
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('I0FC')))then
            set lv=3
        elseif(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('I0C9')))then
            set lv=2
        endif
        call Corruptor_series_action((id),(MF),lv)
    endif
endfunction

function LichKing_series_A_action takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call pmv((mF),1.5)
    endif
endfunction

function DeadOfTheClothes_action takes nothing returns nothing
    local integer id=(GetUnitUserData(((MF))))
    local real life
    local real damage
    if GetUnitAbilityLevel((MF),'Bcy2')>0 then
        call DamageMinus(.95*GetDamage())
    elseif Item_I0BS_cd[id]<(100000.-TimerGetRemaining(GameTimer))then
        set damage=GetDamage()
        set life=GetWidgetLife((MF))
        if life-damage<=.1*GetUnitState((MF),UNIT_STATE_MAX_LIFE)then
            set Item_I0BS_cd[id]=(100000.-TimerGetRemaining(GameTimer))+90
            call DamageMinus(damage-(life-RMaxBJ(.5,life-damage*.05)))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(MF),"origin"))
            call Auxiliary_TargetOrder(('A0HD'),null,1,$D006B,(MF))
        endif
    endif
endfunction

function Aspects_of_a_wind_enable takes nothing returns nothing
    local integer t=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:539")
    set Aspects_of_a_wind_off[t]=false
    call Unit_Cancel_Counter(877,t)
endfunction

function Aspects_of_a_wind_action takes nothing returns nothing
    local integer t=(pF)
    if(mF)!=(MF)and not Aspects_of_a_wind_off[t]and GetWidgetLife((MF))-GetDamage()<=.405 then
        set Aspects_of_a_wind_off[t]=true
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(t)]],('hval')))then
            call TimerStart(NewTimer(t),90,false,function Aspects_of_a_wind_enable)
            call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(t)]],('hval')))),90)
        else
            call TimerStart(NewTimer(t),45,false,function Aspects_of_a_wind_enable)
            call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(t)]],('will')))),90)
        endif
        call DestroyEffect(AddSpecialEffectTarget("FreezingRing.mdl",(MF),"origin"))
        call NewTextTagInTarget_B((MF),"|c007387ffBLOCK ("+I2S(R2I(GetDamage()))+")",$A,$FF,$FF,$FF)
        set KF[HF]=PF+1000000.
        call Unit_App_Counter(878,t)
    endif
endfunction

function HolyRelic_series_removebuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:540")
    if HolyRelic_series_atktrig[id]!=0 then
        call s__Trig_remove((HolyRelic_series_atktrig[id]))
        call DestroyEffectBY(HolyRelic_series_eff[id])
        set HolyRelic_series_atktrig[id]=0
    endif
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A06C','B05O')
    call ModifyUnitMagicDamage((id),-HolyRelic_series_MagicDamage[id])
    call ModifyUnitHpRegen((id),-HolyRelic_series_HpRegen[id])
    call Unit_Cancel_Counter(879,(id))
    set HolyRelic_series_timer[id]=null
endfunction

function HolyRelic_series_attack_action takes nothing returns nothing
    local integer id=s__Trig_P2[s__Trig_Index]
    call TimerDestroyAddSpecialEffectTargetBY("DarkLightning.mdl",(MF),"origin",1)
    call UnitDamageTargetBY((((mF))),(((MF))),(((((3+1.5*HolyRelic_series_lv[id])*GetHeroState3((MV[GetPlayerId(GetOwningPlayer(Je[((GetUnitUserData(((mF)))))]))]),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((7.5+1.5*HolyRelic_series_lv[id])*1.))*1.),(("|c00bcb3f2")))
    call s__Trig_remove((HolyRelic_series_atktrig[id]))
    call DestroyEffectBY(HolyRelic_series_eff[id])
    set HolyRelic_series_atktrig[id]=0
endfunction

function HolyRelic_series_addbuff takes unit u,integer lv returns nothing
    local integer id=(GetUnitUserData((u)))
    local real mdg
    local real hpr
    if HolyRelic_series_lv[id]!=lv then
        if lv==1 then
            set mdg=6.
            set hpr=150.
        elseif lv==2 then
            set mdg=7.5
            set hpr=200.
        elseif lv==3 then
            set mdg=10.
            set hpr=250.
        endif
        if HolyRelic_series_timer[id]==null then
            set HolyRelic_series_timer[id]=NewTimer(id)
            set HolyRelic_series_MagicDamage[id]=0
            set HolyRelic_series_HpRegen[id]=0
            call UnitAddAbilityBY(u,'A06C')
            call Unit_App_Counter(880,(id))
        endif
        if BNv((id))and HolyRelic_series_atktrig[id]==0 then
            set HolyRelic_series_atktrig[id]=UnitAddPAttackTrigB((id),function HolyRelic_series_attack_action)
            set s__Trig_P2[HolyRelic_series_atktrig[id]]=id
            set HolyRelic_series_eff[id]=(s__Effect_connect(((s__Effect_connect((CreateEffectFor()),(s__Effect_build(AddSpecialEffectTarget((("DarkHands.mdl")),((u)),(("hand right")))))))),(s__Effect_build(AddSpecialEffectTarget((("DarkHands.mdl")),((u)),(("hand left")))))))
        endif
        set HolyRelic_series_lv[id]=lv
        call ModifyUnitMagicDamage((id),mdg-HolyRelic_series_MagicDamage[id])
        call ModifyUnitHpRegen((id),hpr-HolyRelic_series_HpRegen[id])
        call TimerStart(HolyRelic_series_timer[id],2+2*lv,false,function HolyRelic_series_removebuff)
        set HolyRelic_series_MagicDamage[id]=mdg
        set HolyRelic_series_HpRegen[id]=hpr
    endif
endfunction

function HolyRelic_series_action takes nothing returns nothing
    local integer id=s__Trig_P
    local unit c=(Je[(id)])
    local unit u
    local integer lv=1
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('ram4')))then
        set lv=2
    elseif(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('rej5')))then
        set lv=3
    endif
    call GroupEnumUnitsInRange(G,x,y,450,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,375)and IsUnitAllyNotbag(u,c)then
            call HolyRelic_series_addbuff(u,lv)
        endif
    endloop
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,1.25),$FF,25,$FF,$AF))
    call Ltv(Lfv(LAv("Epicenter.mdl",x,y,1.25),45,25,$FF,$FF))
    set c=null
endfunction

function Wrath_of_the_thunder_Rage_A_action takes nothing returns nothing
    local integer fx
    local real x
    local real y
    if GetUnitAbilityLevel((mF),'B01R')>0 then
        if GetRandomInt(1,3)==1 then
            set x=GetUnitX((MF))
            set y=GetUnitY((MF))
            set fx=LAv("LightningWrath.mdl",x,y,1.25)
            call DestroyEffect(AddSpecialEffectTarget("s_MagicElectricMissile.mdl",(MF),"chest"))
            call PlaySoundOnUnit_BJ((kn),((100)*1.),((MF)))
            call UnitDamageTargetBY((((mF))),(((MF))),(((($AFC8+$F*GetHeroState2((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($A)*1.))*1.),(("|c00bbc7fb")))
            call Ltv(Lfv(LAv("Great Lightning.mdl",x,y,1),$9B,$9B,0,$FF))
            call LFv(fx,"Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl")
            call Ltv(fx)
        endif
    elseif GetRandomInt(1,9)==1 then
        set fx=LAv("LightningWrath.mdl",GetUnitX((MF)),GetUnitY((MF)),.75)
        call UnitDamageTargetBY((((mF))),(((MF))),(((($3A98+7.5*GetHeroState2((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call LFv(fx,"Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl")
        call Ltv(fx)
    endif
endfunction

function Wrath_of_the_thunder_Rage_B_action takes nothing returns nothing
    if GetRandomInt(1,9)==1 then
        call Auxiliary_TargetOrder(('A0IL'),null,1,$D0085,(Je[(s__Trig_P)]))
    endif
endfunction

function Wrath_of_the_thunder_action takes nothing returns nothing
    local integer fx
    if GetRandomInt(1,$A)==1 then
        set fx=LAv("LightningWrath.mdl",GetUnitX((MF)),GetUnitY((MF)),.75)
        call UnitDamageTargetBY((((mF))),(((MF))),(((($2EE0+3.5*GetHeroState2((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call LFv(fx,"Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl")
        call Ltv(fx)
    endif
endfunction

function Disaster_and_death_enable takes nothing returns nothing
    set Disaster_and_death_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:541")]=false
endfunction

function Disaster_and_death_action takes nothing returns nothing
    local integer id=s__Trig_P
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real Njv=275*GetHeroStateByMax((Je[(id)]))
    local unit u
    local group g
    if not Disaster_and_death_off[id]then
        set Disaster_and_death_off[id]=true
        set g=CreateGroup()
        call GroupEnumUnitsInRange(g,x,y,600+75.,null)
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupRemoveUnit(g,u)
            if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Njv)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($F)*1.))*1.),(("|c0031822f")))
                call m1v(u,2.5)
            endif
        endloop
        call DestroyGroup(g)
        set g=null
        call TimerStart(NewTimer(id),0,false,function Disaster_and_death_enable)
        call Ltv(Lbv(LVv('e027',x,y,0),4,.5))
        call Ltv(LAv("DesecrateGreen.mdx",x,y,1.75))
        call CUv((Kc[(id)]),105,$FF,105,1)
        call zhv((Kc[(id)]),50,1)
    endif
endfunction

function Equip_bzbf_Damaged_enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:542")
    call Unit_Cancel_Counter(881,(id))
    set Equip_bzbf_off[id]=false
endfunction

function Equip_bzbf_Damaged_action takes nothing returns nothing
    local integer id=(GetUnitUserData(((MF))))
    if not Equip_bzbf_off[id]and GetDamage()>0 and GetRandomInt(1,100)<=$A then
        set Equip_bzbf_off[id]=true
        call NewTextTagInTarget_B((MF),"ABSORB ("+I2S(R2I(GetDamage()))+")",9,125,125,$FF)
        call UnitCureTaret(null,(MF),GetDamage())
        set KF[HF]=PF+1000000.
        call DestroyEffect(AddSpecialEffectTarget("Energy_Release.mdl",(MF),"origin"))
        call TimerStart(NewTimer(id),4,false,function Equip_bzbf_Damaged_enable)
        call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('bzbf')))),4)
        call Unit_App_Counter(882,(id))
    endif
endfunction

function s__stel_switch takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:543")
    call Unit_Cancel_Counter(883,(id))
    set s__stel_off[id]=false
endfunction

function s__stel_StatUp takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local boolean isoff=(s__stel_timed[id]>=s__stel_timedmax)
    if not(UnitAlive((Je[(id)]))and(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('stel'))))then
        set isoff=true
    endif
    if isoff then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:544")
        call ModifyHeroProperties(id,-100*s__stel_timed[id])
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0QJ','B068')
    else
        set s__stel_timed[id]=s__stel_timed[id]+1
        call NewTextTagInTarget_B((Je[(id)]),"|c00bbc9e8+"+I2S(100)+" MAIN STAT",8,$FF,$FF,$FF)
        call ModifyHeroProperties(id,100)
    endif
endfunction

function s__stel_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    if not s__stel_off[id]and GetRandomInt(1,100)<=8 then
        set s__stel_off[id]=true
        set s__stel_timed[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0QJ')
        call UnitCureTaret(null,(Je[(id)]),.4*GetUnitMaxLifeById((id)))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",(Je[(id)]),"origin"))
        call TimerStart(NewTimer(id),10./ s__stel_timedmax,true,function s__stel_StatUp)
        call TimerStart(NewTimer(id),30.,false,function s__stel_switch)
        call Unit_App_Counter(884,(id))
    endif
endfunction

function s__sor3_onAttack takes nothing returns boolean
    local integer id=(GetUnitUserData(((mF))))
    local integer fx
    local boolean eSe
    local real x
    local real y
    local real d
    local unit u
    set s__sor3_hit_num[id]=ModuloInteger(s__sor3_hit_num[id]+1,s__sor3_hit_num_max)
    if s__sor3_hit_num[id]==0 then
        set eSe=GetUnitAbilityLevel((mF),'A0RP')==1
        set u=(mF)
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set d=40*GetHeroPropertiesByAll((GetUnitUserData(((mF)))))
        set fx=Lbv(LVv('e00X',x,y,GetUnitFacing((MF))),2.75,1.66)
        call GroupEnumUnitsInRange(G,x,y,375+75,null)
        call GroupRemoveUnit(G,u)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,375)then
                if eSe then
                    if IsUnitAliveAndEnemy(u,(mF))then
                        call DestroyEffect(AddSpecialEffectTarget("CurseBolt.mdl",u,"chest"))
                        call UnitDamageTargetBY((((mF))),((u)),((((3*d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00cc3939")))
                        call m1v(u,1)
                    elseif IsUnitAllyNotbag(u,(mF))then
                        call UnitCureTaret(null,u,$8CA+.45*GetHeroPropertiesByAll((GetUnitUserData(((mF))))))
                    endif
                elseif IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        if eSe then
            call zhv((GetPlayerId((GetOwningPlayer((mF))))),30,.25)
            call UnitCureTaret(null,(mF),4500+.9*GetHeroPropertiesByAll((GetUnitUserData(((mF))))))
            call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdl",x,y,1.25))
        else
            call zhv((GetPlayerId((GetOwningPlayer((mF))))),$F,.25)
            call UnitCureTaret(null,(mF),$BB8+.6*GetHeroPropertiesByAll((GetUnitUserData(((mF))))))
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.125),$FF,25,25,$CD))
        endif
        call Ltv(LAv("BloodWave.mdl",x,y,.75))
        call Ltv(LAv("BloodSlam.mdl",GetUnitX((mF)),GetUnitY((mF)),.875))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(mF),"origin"))
        call SetUnitAnimationByIndex(II[fx],3)
        call PlaySoundAtPoint_BJ((cn),(($7F)*1.),((x)*1.),((y)*1.),0)
        call Lsv(Lfv(fx,$FF,25,25,125),1.5)
    endif
    return false
endfunction

function s__sor3_switch takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:545")
    call Unit_Cancel_Counter(885,(id))
    set s__sor3_off[id]=false
endfunction

function s__sor3_removebuff takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0RP','B06Q')
    call ModifyHeroAgi((id),-500)
    call ModifyUnitHP((id),-5000)
    call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,$FF)
    call TimerStart(GetExpiredTimer(),s__sor3_CD-s__sor3_duration,false,function s__sor3_switch)
endfunction

function s__sor3_onCast takes nothing returns nothing
    local integer id=s__Trig_P
    if not s__sor3_off[id]and GetRandomInt(1,9)==1 then
        set s__sor3_off[id]=true
        call UnitAddAbilityBY((Je[(id)]),'A0RP')
        call ModifyHeroAgi((id),500)
        call ModifyUnitHP((id),5000)
        call NewTextTagInTarget_B((Je[(id)]),"|c00d66b6b+"+I2S(500)+" AGI
        +"+I2S(5000)+" HEALTH",10.5,$FF,$FF,$FF)

        call zKv((Kc[((id))]),$FF,25,25,.27)
        call SetUnitVertexColor((Je[(id)]),$FF,$CD,$CD,$FF)
        call DestroyEffect(AddSpecialEffectTarget("BloodEX-Special.mdl",(mF),"origin"))
        call TimerStart(NewTimer(id),s__sor3_duration,false,function s__sor3_removebuff)
        call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('sor3')))),s__sor3_CD)
        call Unit_App_Counter(886,(id))
    endif
endfunction

function Equip_I0C6_enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:546")
    set Equip_I0C6_Buff[id]=Equip_I0C6_Buff[id]-$2710
endfunction

function Equip_I0C6_removebuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:547")
    local integer i=Equip_I0C6_Buff[id]
    if(Je[(id)])!=null then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0EW','B02U')
        call HeroAddExtraStr((id),-Boss_Spell_data2[i])
    endif
    call Boss_Spell_deallocate(i)
    call Unit_Cancel_Counter(887,id)
    set Boss_Spell_timer[i]=null
    set Equip_I0C6_Buff[id]=0
endfunction

function Equip_I0C6_action takes nothing returns nothing
    local integer id=(GetUnitUserData(((MF))))
    local integer i
    local real nS
    local unit u
    local real x
    local real y
    local real d
    local real m
    if Equip_I0C6_Buff[id]<$2710 then
        set m=GetUnitMaxLifeById((GetUnitUserData(((MF)))))
        set d=GetWidgetLife((MF))-GetDamage()
        if d<.35*m and d>.405 then
            set i=Equip_I0C6_Buff[id]
            set nS=.05*GetHeroStrNotExtra((GetUnitUserData(((MF)))))
            set x=GetUnitX((MF))
            set y=GetUnitY((MF))
            set d=25*GetHeroState1((MF),true)
            if i==null then
                set i=Boss_Spell_allocate()
                set Equip_I0C6_Buff[id]=i
                set Boss_Spell_data1[i]=0
                set Boss_Spell_data2[i]=0
                set Boss_Spell_timer[i]=NewTimer(id)
                call UnitAddAbilityBY((MF),'A0EW')
                call Unit_App_Counter(888,id)
            else
                set i=i-i/ $2710*$2710
            endif
            set Equip_I0C6_Buff[id]=Equip_I0C6_Buff[id]+$2710
            set nS=nS*Pow(1.5,Boss_Spell_data1[i])
            call HeroAddExtraStr((id),R2I(nS)-Boss_Spell_data2[i])
            set Boss_Spell_data2[i]=R2I(nS)
            set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
            call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('I0C6')))),8)
            call UnitCureTaret(null,(MF),.14*m)
            call TimerDestroyAddSpecialEffectTargetBY("MagmaBurst.mdl",(MF),"origin",1.75)
            call DestroyEffect(AddSpecialEffectTarget("ExplosiveShot.mdl",(MF),"chest"))
            call TimerStart(NewTimer(id),8,false,function Equip_I0C6_enable)
            call TimerStart(Boss_Spell_timer[i],$A,false,function Equip_I0C6_removebuff)
            call GroupEnumUnitsInRange(G,x,y,400,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitAliveAndEnemy(u,(MF))then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Volcano\\VolcanoMissile.mdl",u,"chest"))
                    call UnitDamageTargetBY((((MF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitAppBuff((GetUnitUserData((u))),'A0HO',$D006B)
                endif
            endloop
        endif
    endif
endfunction

function Equip_I0AN_enable takes nothing returns nothing
    set Equip_I0AN_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:548")]=false
endfunction

function Equip_I0AN_action takes nothing returns nothing
    local integer id=(GetUnitUserData(((MF))))
    if not Equip_I0AN_off[id]and GetRandomInt(1,$A)==1 then
        set Equip_I0AN_off[id]=true
        call NewTextTagInTarget_B((MF),"|c008461cb-"+I2S(R2I(GetDamage())),9,$FF,$FF,$FF)
        call TimerDestroyAddSpecialEffectTargetBY("DarkShield.mdl",(MF),"origin",1.25)
        call TimerDestroyAddSpecialEffectTargetBY("Shade Bomb.mdx",(MF),"origin",1.25)
        call TimerStart(NewTimer(id),6,false,function Equip_I0AN_enable)
        set KF[HF]=PF+1000000.
    endif
endfunction

function Equip_I067_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    local integer fx
    set Equip_I067_hit_num[id]=Equip_I067_hit_num[id]+1
    if Equip_I067_hit_num[id]==8 then
        set Equip_I067_hit_num[id]=0
        set fx=LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",GetUnitX((MF)),GetUnitY((MF)),1.4)
        call UnitDamageTargetBY((((mF))),(((MF))),((((1.8*(GetHeroState1((mF),true)+1.5*GetHeroState2((mF),true)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call LFv(fx,"Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl")
        call LFv(fx,"Shiva'sWrath.mdx")
        call LFv(fx,"Doodads\\Cinematic\\FrostTrapUp\\FrostTrapUp.mdl")
        call Ltv(Lfv(fx,75,75,$FF,$FF))
    endif
endfunction

function Equip_I081_onAttack takes nothing returns nothing
    local integer fx
    if GetRandomInt(1,$A)==1 then
        set fx=LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX((MF)),GetUnitY((MF)),1.5)
        call UnitDamageTargetBY((((mF))),(((MF))),(((($2EE0+3.5*GetHeroState1((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call LFv(fx,"Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl")
        call Ltv(fx)
    endif
endfunction

function Equip_I097_removebuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:549")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A05H','B02G')
    call HeroAddExtraInt((id),-$FA)
    call Unit_Cancel_Counter(889,id)
    set Equip_I097_timer[id]=null
endfunction

function Equip_I097_onAttack takes nothing returns nothing
    local integer id
    if GetRandomInt(1,$A)==1 then
        set id=(GetUnitUserData(((mF))))
        if Equip_I097_timer[id]==null then
            set Equip_I097_timer[id]=NewTimer(id)
            call UnitAddAbilityBY((mF),'A05H')
            call HeroAddExtraInt((id),$FA)
            call Unit_App_Counter(890,id)
        endif
        call TimerStart(Equip_I097_timer[id],6,false,function Equip_I097_removebuff)
    endif
endfunction

function Equip_I099_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<9 then
        call TimerDestroyAddSpecialEffectTargetBY("BlizzardEruption.mdl",(MF),"origin",1.5)
        call Auxiliary_TargetOrder(('A05Q'),null,1,$D00B5,(MF))
    endif
    call UnitDamageTargetBY(((mF)),((MF)),(((DAK_AMOUNT[HF])*.1)*1.),false,false,true,false,DAK_ACTYPE[HF],DAK_DGTYPE[HF],.0,"")
    call UnitDamageTargetBY(((mF)),((MF)),((400)*1.),false,false,true,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),.0,"")
endfunction

function Equip_I0D5_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<$D then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(MF),"origin"))
        call Auxiliary_TargetOrder(('A0MK'),null,1,$D00B5,(MF))
    endif
endfunction

function Equip_I0BR_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    if(100000.-TimerGetRemaining(GameTimer))>Equip_I0BR_cd[id]then
        set Equip_I0BR_cd[id]=(100000.-TimerGetRemaining(GameTimer))+.75
        call UnitCureTaret((mF),(mF),500)
        call UnitDamageTargetBY(((mF)),((MF)),((500)*1.),false,false,true,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),.0,"")
        call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdl",(MF),"chest"))
    endif
endfunction

function Equip_I0C8_enable takes nothing returns nothing
    set Equip_I0C8_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:550")]=false
endfunction

function Equip_I0C8_removebuff takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0HF','BNcr')
    call ModifyUnitAttack((id),-$3A98)
    call ModifyHeroProperties((id),-900)
    call ModifyUnitHpRegen((id),-$3E8)
    call TimerStart(t,9,false,function Equip_I0C8_enable)
    call Unit_Cancel_Counter(891,id)
    set t=null
endfunction

function Equip_I0C8_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    if not Equip_I0C8_off[id]and GetRandomInt(1,20)==1 then
        set Equip_I0C8_off[id]=true
        call UnitAddAbilityBY((mF),'A0HF')
        call ModifyUnitAttack((id),$3A98)
        call ModifyHeroProperties((id),900)
        call ModifyUnitHpRegen((id),$3E8)
        call DestroyEffect(AddSpecialEffectTarget("ShadowAssault.mdl",(mF),"origin"))
        call TimerStart(NewTimer(id),6,false,function Equip_I0C8_removebuff)
        call Unit_App_Counter(892,id)
    endif
endfunction

function Equip_I0CU_Loop_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Equip_I0CU_Timed[id]=Equip_I0CU_Timed[id]-1
    call UnitDamageTargetBY((((Je[(Equip_I0CU_Atkunit[id])]))),(((Je[(id)]))),((((5*GetHeroState2((Je[(Equip_I0CU_Atkunit[id])]),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    if UnitAlive((Je[(id)]))and Equip_I0CU_Timed[id]>0 then
        if Equip_I0CU_Timed[id]>4 then
            set Equip_I0CU_num[id]=Equip_I0CU_num[id]+1
            call NewTextTagInTarget_B((Je[(id)]),"-20",9,$FF,105,105)
            call ModifyUnitArmor((id),-20)
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:551")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0IR','B02W')
        call ModifyUnitArmor((id),20*Equip_I0CU_num[id])
        call Unit_Cancel_Counter(893,Equip_I0CU_Atkunit[id])
        call Unit_Cancel_Counter(894,id)
    endif
endfunction

function Equip_I0CU_onAttack takes nothing returns nothing
    local integer id
    if GetUnitAbilityLevel((MF),'A0IR')==0 and GetRandomInt(1,8)==1 then
        set id=(GetUnitUserData(((MF))))
        set Equip_I0CU_Atkunit[id]=(GetUnitUserData(((mF))))
        set Equip_I0CU_Timed[id]=$A
        set Equip_I0CU_num[id]=0
        call UnitAddAbilityBY((MF),'A0IR')
        call TimerStart(NewTimer(id),1,true,function Equip_I0CU_Loop_c)
        call Unit_App_Counter(895,Equip_I0CU_Atkunit[id])
        call Unit_App_Counter(896,id)
    endif
endfunction

function Equip_bspd_onAttack takes nothing returns nothing
    if GetRandomInt(1,20)<4 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostArrows\\NagaColdArrowMissile.mdl",(MF),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("BluefireBolt.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((GetRandomReal(7.5,$A)*GetHeroState2((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c007387ff+")))
        call UnitAppBuffByLevel((GetUnitUserData(((MF)))),'AUfn',$D0102,2)
    endif
endfunction

function Equip_gmfr_onAttack takes nothing returns nothing
    local real x
    local real y
    if GetRandomInt(1,$A)==1 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call UnitDamageTargetBY((((mF))),(((MF))),(((($3A98+4.5*GetHeroState1((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call Ltv(LFv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.65),"Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl"))
        call Lqv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x,y,1.5),3)
    endif
endfunction

function Equip_kysn_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    local integer i
    local unit u
    local real x
    local real y
    local real a
    local real fYv
    local real fzv
    local real d
    set Equip_kysn_up[id]=Equip_kysn_up[id]+1
    if GetRandomReal(1,100)<2.+.125*Equip_kysn_up[id]then
        set Equip_kysn_up[id]=0
        set i=16
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set d=42*(GetHeroState1((mF),true)+GetHeroState2((mF),true))+7*(DAK_AMOUNT[HF])
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('tgxp')))then
            set d=d*1.2
        endif
        loop
            set i=i-1
            set a=i*Lx/ 16
            set fYv=$C8*Cos(a)
            set fzv=$C8*Sin(a)
            call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+fYv,y+fzv,1.75))
            call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+2*fYv,y+2*fzv,1.75))
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,525,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)and IsUnitAliveAndEnemy(u,(mF))then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,.25)
            endif
        endloop
        call NewTextTagInTarget_B((MF),I2S(R2I(d))+"!",$C,$FF,25,25)
        call Ltv(LAv("Desecrate.mdl",x,y,1.25))
        call zhv((GetPlayerId((GetOwningPlayer((mF))))),40,.5)
    elseif ModuloInteger(Equip_kysn_up[id],$A)==0 then
        call NewTextTagInTarget_B((mF),I2S(Equip_kysn_up[id])+" COMBO",9,$FF,55,55)
    endif
endfunction

function s__pgin_collision takes integer this,unit u returns boolean
    if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",u,"chest"))
        call UnitAppBuff((GetUnitUserData((u))),'A0M0',$D006B)
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__pgin_amount[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0080ff80")))
    elseif IsUnitAliveAndAlly(u,s__barrage_atkunit[this])then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",u,"chest"))
        call UnitCureTaret(s__barrage_atkunit[this],u,.05*GetUnitState(s__barrage_atkunit[this],UNIT_STATE_MAX_LIFE))
    endif
    return false
endfunction

function s__pgin_ReoveBarrage takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__pgin_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__pgin_launcher]
    local unit u
    if this!=s__pgin_launcher then
        call UseBarrage(s__pgin_launcher)
        loop
            exitwhen this==s__pgin_launcher
            if(s__barrage_outside[(this)])then
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call RemoveBarrage((this))
            else
                if s__barrage_CollisionRange[this]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                                call GroupAddUnit(s__barrage_enum_g[this],u)
                                if u!=s__barrage_target[this]and s__pgin_collision(this,u)then
                                    set u=null
                                    call RemoveBarrage((this))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__pgin_launcher]then
        set s__barrage_InOperation[s__pgin_launcher]=false
        call frv(s__pgin_launcher)
    endif
endfunction

function s__pgin_FiredBarrage takes integer this returns nothing
    call s__barrage_Filling((s__pgin_launcher),(this))
    if not s__barrage_InOperation[s__pgin_launcher]then
        set s__barrage_InOperation[s__pgin_launcher]=true
        call fov(s__pgin_func)
    endif
endfunction

function s__pgin_onInit takes nothing returns nothing
    set s__pgin_func=fxv(function s__pgin_start)
    set s__pgin_launcher=NewLauncher()
endfunction

function s__pgin_open takes nothing returns nothing
    set s__pgin_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:552")]=false
endfunction

function s__pgin_onAttack takes nothing returns nothing
    local unit c=(mF)
    local integer id=(GetUnitUserData((c)))
    local integer b
    local real x
    local real y
    local real a
    if not s__pgin_off[id]and GetRandomInt(1,$A)==1 then
        set s__pgin_off[id]=true
        set x=GetUnitX(c)
        set y=GetUnitY(c)
        set a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
        set b=CreateBarrageTypeD(x,y,0,x+600*Cos(a),y+600*Sin(a),0)
        call LMv(s__barrage_model[b],"ShockwaveMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[b])],((1.5)*1.),0,0)
        set s__barrage_atkunit[b]=c
        set s__barrage_speed[b]=.03125*375.
        set s__barrage_acceleration[b]=.03125*.03125*750.
        set s__barrage_CollisionRange[b]=225.
        set s__pgin_amount[b]=35*GetHeroState1(c,true)
        call Ltv(LAv("NatureExplosion.mdx",x,y,.75))
        call TimerStart(NewTimer(id),6,false,function s__pgin_open)
        call Lfv(s__barrage_model[b],0,$CD,55,$FF)
        call s__pgin_FiredBarrage(b)
    endif
    set c=null
endfunction

function Equip_pmna_onAttack takes nothing returns nothing
    local unit u
    local real x
    local real y
    local real a
    if GetRandomInt(1,4)==1 then
        set x=GetUnitX((mF))
        set y=GetUnitY((mF))
        set a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
        set x=x-64*Cos(a)
        set y=y-64*Sin(a)
        call GroupEnumUnitsInRange(G,x,y,325,null)
        call GroupRemoveUnit(G,(MF))
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitAliveAndEnemy(u,(mF))and(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((a)*1.))>=Cos(((1.7)*1.)))then
                call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"origin"))
                call UnitDamageTargetBY(((mF)),(u),(((DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
            endif
        endloop
    endif
endfunction

function Equip_prvt_onAttack takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostArrows\\NagaColdArrowMissile.mdl",(MF),"chest"))
    call UnitDamageTargetBY((((mF))),(((MF))),((((GetRandomInt(800,$5DC))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((8)*1.))*1.),(("|c007387ff+")))
    call UnitAppBuff((GetUnitUserData(((MF)))),'AUfn',$D0102)
endfunction

function Equip_ratc_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<$E then
        call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdl",(MF),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(MF),"origin"))
        call Ltv(LAv("ShadowSlam.mdl",GetUnitX((MF)),GetUnitY((MF)),.625))
        call Lqv(LAv("DarkLightning.mdl",GetUnitX((MF)),GetUnitY((MF)),1.75),1)
        call UnitDamageTargetBY((((mF))),(((MF))),((((35*GetHeroPropertiesByAll((GetUnitUserData(((mF))))))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($C)*1.))*1.),(("|c00800080")))
    endif
endfunction

function Equip_rin1_onAttack takes nothing returns nothing
    local unit u
    local real x
    local real y
    local real d
    if GetRandomInt(1,100)<9 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set d=$A*GetHeroState2((mF),true)
        call Ltv(Lfv(LAv("Acid Ex.mdl",x,y,1.5),$FF,$FF,$FF,$CD))
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,.75),55,$FF,55,$CD))
        call UnitDamageTargetBY((((mF))),(((MF))),((((1.5*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",(MF),"chest"))
        call GroupEnumUnitsInRange(G,x,y,325,null)
        call GroupRemoveUnit(G,(MF))
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)and IsUnitAliveAndEnemy(u,(mF))then
                call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",u,"chest"))
            endif
        endloop
    endif
endfunction

function Equip_rhth_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<$E then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",(MF),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl",(MF),"origin"))
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",GetUnitX((MF)),GetUnitY((MF)),1.25),1.5)
        call UnitDamageTargetBY((((mF))),(((MF))),(((($C*GetHeroState1((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($B)*1.))*1.),(("|c006c93ec")))
        call UnitAppBuff((GetUnitUserData(((MF)))),'A0KP',$D006B)
    endif
endfunction

function Equip_I0D6_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<$E then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",(MF),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl",(MF),"origin"))
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",GetUnitX((MF)),GetUnitY((MF)),1.25),1.5)
        call UnitDamageTargetBY((((mF))),(((MF))),(((($C*GetHeroState2((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($B)*1.))*1.),(("|c006c93ec")))
        call UnitAppBuff((GetUnitUserData(((MF)))),'A0KP',$D006B)
    endif
endfunction

function Equip_sbok_enable takes nothing returns nothing
    set Equip_sbok_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:553")]=false
endfunction

function Equip_sbok_removebuff takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0MH','B04P')
    call ModifyUnitAttack((id),-$6B6C)
    call ModifyHeroProperties((id),-825)
    call ModifyUnitCrit((id),-100)
    call TimerStart(t,6,false,function Equip_sbok_enable)
    call Unit_Cancel_Counter(897,id)
    set t=null
endfunction

function Equip_sbok_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    if not Equip_sbok_off[id]and GetRandomInt(1,$F)==1 then
        set Equip_sbok_off[id]=true
        call UnitAddAbilityBY((mF),'A0MH')
        call ModifyUnitAttack((id),$6B6C)
        call ModifyHeroProperties((id),825)
        call ModifyUnitCrit((id),100)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(mF),"origin"))
        call TimerStart(NewTimer(id),4,false,function Equip_sbok_removebuff)
        call Unit_App_Counter(898,id)
    endif
endfunction

function Equip_sehr_buff_remove takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:554")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0P2','B05J')
    call ModifyUnitAttack((id),-$4E2*Equip_sehr_buff_num[id])
    set Equip_sehr_timer[id]=null
    set Equip_sehr_buff_num[id]=0
    call Unit_Cancel_Counter(899,id)
endfunction

function Equip_sehr_onAttack takes nothing returns nothing
    local integer id
    local real x
    local real y
    if GetRandomInt(1,$A)==1 then
        set id=(GetUnitUserData(((mF))))
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        if Equip_sehr_timer[id]==null then
            set Equip_sehr_timer[id]=NewTimer(id)
            call UnitAddAbilityBY((mF),'A0P2')
            call Unit_App_Counter(900,id)
        endif
        if Equip_sehr_buff_num[id]<8 then
            set Equip_sehr_buff_num[id]=Equip_sehr_buff_num[id]+1
            call NewTextTagInTarget_B((mF),"+1250 DAMAGE",8,$FF,125,125)
            call ModifyUnitAttack((id),$4E2)
        endif
        call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),(((((DAK_AMOUNT[HF])+6*GetHeroState1((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call Ltv(LFv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.8),"Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl"))
        call Lqv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x,y,2.25),3)
        call Lqv(LAv("Flame Cyclone.mdl",x,y,1.75),1.25)
        call TimerStart(Equip_sehr_timer[id],8,false,function Equip_sehr_buff_remove)
    endif
endfunction

function Equip_shcw_onAttack takes nothing returns nothing
    if GetRandomInt(1,50)==1 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((50*GetHeroState1((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($D)*1.))*1.),(("|c00dc6565")))
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX((MF)),GetUnitY((MF)),1.5))
        call Lqv(LAv("MagmaBurst.mdl",GetUnitX((MF)),GetUnitY((MF)),.875),1.25)
        call zhv((GetPlayerId((GetOwningPlayer((mF))))),30,.4)
    endif
endfunction

function Equip_skrt_enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:555")
    set Equip_skrt_off[id]=false
    call Unit_Cancel_Counter(901,id)
endfunction

function Equip_skrt_attacktarget takes unit s,unit t returns nothing
    local integer id=(GetUnitUserData((s)))
    local integer b
    local integer i
    local real sX
    local real sY
    local real sA
    local real a
    if not Equip_skrt_off[id]and GetRandomInt(1,$C)==1 then
        set Equip_skrt_off[id]=true
        set i=5
        set sX=GetUnitX(s)
        set sY=GetUnitY(s)
        set sA=Atan2(GetUnitY(t)-sY,GetUnitX(t)-sX)
        loop
            set i=i-1
            set a=sA+(i-2.)*Lx/ 9.
            set b=CreateBarrageTypeC(sX-$C8*Cos(a),sY-$C8*Sin(a),100,t)
            set s__barrage_atkunit[b]=s
            call LMv(s__barrage_model[b],"Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl")
            set s__barrage_speed[b]=.03125*(500+$FA*i)
            set s__barrage_acceleration[b]=.03125*.03125*$5DC
            set s__FrostBarrage_damage[b]=GetRandomReal(4,6)*GetHeroState2(s,true)
            call s__FrostBarrage_Fired(b)
            exitwhen i==0
        endloop
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",s,"origin"))
        call TimerStart(NewTimer(id),6,false,function Equip_skrt_enable)
        call Unit_App_Counter(902,id)
    endif
endfunction

function Equip_skrt_onAttack takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostArrows\\NagaColdArrowMissile.mdl",(MF),"chest"))
    call UnitDamageTargetBY((((mF))),(((MF))),((((GetRandomReal(.75,1.25)*GetHeroState2((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((8)*1.))*1.),(("|c007387ff+")))
    call UnitAppBuff((GetUnitUserData(((MF)))),'AUfn',$D0102)
    call Equip_skrt_attacktarget((mF),(MF))
endfunction

function Equip_sor9_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<=$A then
        call DestroyEffect(AddSpecialEffectTarget("Soulfire Missile.mdl",(MF),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(MF),"origin"))
        call Ltv(LAv("ShadowAssault.mdl",GetUnitX((MF)),GetUnitY((MF)),2.25))
        call Ltv(LAv("DoomBlack.mdl",GetUnitX((MF)),GetUnitY((MF)),2.25))
        call UnitDamageTargetBY((((mF))),(((MF))),((((50*GetHeroPropertiesByAll((GetUnitUserData(((mF))))))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($E)*1.))*1.),(("|c006c78a2")))
    endif
endfunction

function s__IceStorm_move takes integer this returns boolean
    local integer i=4
    local integer fx
    local real a
    set s__IceStorm_num[this]=s__IceStorm_num[this]+1
    loop
        set i=i-1
        set a=(i/ 4.+s__IceStorm_num[this]/ 20.)*Lx
        set fx=LoadInteger(BYHT,s__IceStorm_vessel[this],i)
        call LKv(fx,s__barrage_X[this]+137.5*Cos(a))
        call Llv(fx,s__barrage_Y[this]+137.5*Sin(a))
        call SetUnitFacing(II[(fx)],((a+.25*Lx)*1.)*bj_RADTODEG)
        exitwhen i==0
    endloop
    if ModuloInteger(s__IceStorm_num[this],2)==0 then
        set fx=BRv(s__barrage_X[this],s__barrage_Y[this],s__barrage_Z[this],0,350,GetRandomReal(0,Lx),$4E2,500,GetRandomReal(.25,.5))
        call LMv(fx,"Abilities\\Weapons\\ZigguratFrostMissile\\ZigguratFrostMissile.mdl")
        call SetUnitScale(II[(fx)],((2)*1.),0,0)
        if ModuloInteger(s__IceStorm_num[this],6)==0 then
            call Ltv(LAv("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",s__barrage_X[this],s__barrage_Y[this],3))
        endif
    endif
    return false
endfunction

function s__IceStorm_impact takes integer this,unit u returns boolean
    if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",u,"origin"))
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__IceStorm_damage[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((18)*1.))*1.),(("|c007387ff")))
        call UnitAppBuff((GetUnitUserData((u))),'AUfn',$D0102)
    endif
    return false
endfunction

function s__IceStorm_remove takes integer this returns nothing
    local integer i=4
    loop
        set i=i-1
        call Ltv((LoadInteger(BYHT,s__IceStorm_vessel[this],i)))
        exitwhen i==0
    endloop
    call free(s__IceStorm_vessel[this])
    call RemoveBarrage(this)
endfunction

function s__IceStorm_stop takes nothing returns nothing
    call frv(s__IceStorm_func)
endfunction

function s__IceStorm_start takes nothing returns nothing
    call fov(s__IceStorm_func)
endfunction

function s__IceStorm_loop_c takes nothing returns boolean
    local integer this=s__barrage_FR[s__IceStorm_launcher]
    local unit u
    if this!=s__IceStorm_launcher then
        call UseBarrage(s__IceStorm_launcher)
        loop
            exitwhen this==s__IceStorm_launcher
            if(s__barrage_outside[(this)])or(s__barrage_finish[(this)])then
                call s__IceStorm_remove(this)
            else
                if s__IceStorm_move(this)then
                    call s__IceStorm_remove(this)
                endif
                if s__barrage_CollisionRange[this]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                                call GroupAddUnit(s__barrage_enum_g[this],u)
                                if u!=s__barrage_target[this]and s__IceStorm_impact(this,u)then
                                    set u=null
                                    call s__IceStorm_remove(this)
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__IceStorm_launcher]then
        set s__barrage_InOperation[s__IceStorm_launcher]=false
        call frv(s__IceStorm_func)
    endif
    return false
endfunction

function s__IceStorm_Fired takes integer this returns nothing
    if s__IceStorm_launcher==null then
        set s__IceStorm_func=fxv(function s__IceStorm_loop_c)
        set s__IceStorm_launcher=NewLauncher()
    endif
    if not s__barrage_InOperation[s__IceStorm_launcher]then
        set s__barrage_InOperation[s__IceStorm_launcher]=true
        call fov(s__IceStorm_func)
    endif
    call s__barrage_Filling((s__IceStorm_launcher),(this))
endfunction

function Equip_tkno_enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:556")
    set s__IceStorm_off[id]=false
    call Unit_Cancel_Counter(903,id)
endfunction

function Equip_tkno_atk takes unit s,unit t returns nothing
    local integer id=(GetUnitUserData((s)))
    local integer this
    local integer fx
    local integer i
    local real sX
    local real sY
    local real a
    if not s__IceStorm_off[id]and GetRandomInt(1,$F)==1 then
        set s__IceStorm_off[id]=true
        set i=4
        set sX=GetUnitX(s)
        set sY=GetUnitY(s)
        set a=Atan2(GetUnitY(t)-sY,GetUnitX(t)-sX)
        set sX=sX+75*Cos(a)
        set sY=sY+75*Sin(a)
        set this=CreateBarrageTypeD(sX,sY,0,sX+900*Cos(a),sY+900*Sin(a),0)
        set s__barrage_atkunit[this]=s
        call LMv(s__barrage_model[this],"Abilities\\Spells\\Other\\Tornado\\TornadoElemental.mdl")
        set s__barrage_speed[this]=.03125*750
        set s__barrage_acceleration[this]=.03125*.03125*$3E8
        call SetUnitScale(II[(s__barrage_model[this])],((1.5)*1.),0,0)
        set s__barrage_CollisionRange[this]=$FA
        set s__IceStorm_vessel[this]=malloc()
        set s__IceStorm_num[this]=0
        set s__IceStorm_damage[this]=GetRandomReal(40,60)*GetHeroState2(s,true)
        loop
            set i=i-1
            set a=Lx*i/ 4.
            set fx=Lnv(sX+137.5*Cos(a),sY+137.5*Sin(a),a+.25*Lx)
            call LMv(fx,"Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl")
            call SetUnitFlyHeight(II[(fx)],((25)*1.),0)
            call SaveInteger(BYHT,s__IceStorm_vessel[this],i,fx)
            exitwhen i==0
        endloop
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",s,"origin"))
        call TimerStart(NewTimer(id),9,false,function Equip_tkno_enable)
        call Lfv(s__barrage_model[this],95,95,$FF,$FF)
        call s__IceStorm_Fired(this)
        call Unit_App_Counter(904,id)
    endif
endfunction

function Equip_tkno_onAttack takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostArrows\\NagaColdArrowMissile.mdl",(MF),"chest"))
    call UnitDamageTargetBY((((mF))),(((MF))),((((GetRandomReal(1.5,2)*GetHeroState2((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((9)*1.))*1.),(("|c007387ff+")))
    call UnitAppBuff((GetUnitUserData(((MF)))),'AUfn',$D0102)
    call Equip_tkno_atk((mF),(MF))
endfunction

function Equip_k3m2_Enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:557")
    call Unit_Cancel_Counter(905,(id))
    set Equip_k3m2_off[id]=false
endfunction

function Equip_k3m2_RemoveBuff takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Equip_k3m2_num[id]=0
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0RF','B06L')
    call ModifyUnitAttack((id),-$7D0)
    call ModifyHeroProperties((id),-$3E8)
    call ModifyUnitHpRegen((id),-$3E8)
    call TimerStart(GetExpiredTimer(),9,false,function Equip_k3m2_Enable)
endfunction

function Equip_k3m2_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    if not Equip_k3m2_off[id]and GetRandomInt(1,100)<=5 then
        set Equip_k3m2_off[id]=true
        set Equip_k3m2_num[id]=3
        call UnitAddAbilityBY((mF),'A0RF')
        call ModifyUnitAttack((id),$7D0)
        call ModifyHeroProperties((id),$3E8)
        call ModifyUnitHpRegen((id),$3E8)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(mF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("ShadowAssault.mdl",(mF),"origin"))
        call TimerStart(NewTimer(id),6,false,function Equip_k3m2_RemoveBuff)
        call Unit_App_Counter(906,(id))
    elseif Equip_k3m2_num[id]>0 then
        set Equip_k3m2_num[id]=Equip_k3m2_num[id]-1
        call zhv((Kc[((GetUnitUserData(((mF)))))]),40,.5)
        call DestroyEffect(AddSpecialEffectTarget("CurseBolt.mdx",(MF),"chest"))
        call DamageAmplifyDis((DAK_AMOUNT[HF])-GetDamage(),$C,"|c00f8c4b1")
    endif
endfunction

function Equip_rde3_Enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:558")
    call Unit_Cancel_Counter(907,(id))
    set Equip_rde3_off[id]=false
endfunction

function Equip_rde3_RemoveBuff takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0RJ','B06N')
    call ModifyUnitCrit((id),-30)
    call TimerStart(GetExpiredTimer(),20-3,false,function Equip_rde3_Enable)
endfunction

function Equip_rde3_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((mF))))
    if not Equip_rde3_off[id]and GetRandomInt(1,100)<=5 then
        set Equip_rde3_off[id]=true
        call UnitAddAbilityBY((mF),'A0RJ')
        call ModifyUnitCrit((id),30)
        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Demon\\DarkConversion\\ZombifyTarget.mdl"),((mF)),("origin")))),1)
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(mF),"origin"))
        call TimerStart(NewTimer(id),3,false,function Equip_rde3_RemoveBuff)
        call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('rde3')))),20)
        call Unit_App_Counter(908,(id))
    endif
endfunction

function Equip_I0CM_Buff takes nothing returns nothing
    if GetUnitAbilityLevel((MF),'Bfro')==0 then
        call UnitDamageTargetBY((((mF))),(((MF))),((((7.5*GetHeroState3((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),(((($F*GetHeroState3((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($A)*1.))*1.),(("|c006d7bdc")))
    endif
    call DestroyEffect(AddSpecialEffectTarget("FrozenOrb.mdl",(MF),"chest"))
    call DestroyEffect(AddSpecialEffectTarget("WaterNovaTarget.mdl",(MF),"chest"))
    call UnitAppBuff((GetUnitUserData(((MF)))),'ACfn',$D0102)
    call UnitRemoveAbilityandBuffBY((mF),'A0IM','B01T')
    call s__Trig_remove(s__Trig_Index)
endfunction

function Equip_I0CM_onSpellEffect takes nothing returns nothing
    if GetUnitAbilityLevel((Je[(s__Trig_P)]),'A0IM')==0 then
        call UnitAddPAttackTrigB((s__Trig_P),function Equip_I0CM_Buff)
        call UnitAddAbilityBY((Je[(s__Trig_P)]),'A0IM')
    endif
endfunction

function Equip_I0DI_RemoveBuff takes integer id returns nothing
    if Equip_I0DI_Shield[id]!=0 then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A07Y','B00O')
        call s__Trig_remove(Equip_I0DI_Shield[id])
        call Unit_Cancel_Counter(909,(id))
        set Equip_I0DI_Shield[id]=0
    endif
endfunction

function Equip_I0DI_Shield_actions takes nothing returns nothing
    local integer id=(pF)
    if Equip_I0DI_Shield_life[id]>GetDamage()then
        set Equip_I0DI_Shield_life[id]=Equip_I0DI_Shield_life[id]-GetDamage()
        set KF[HF]=PF+1000000.
    else
        call DamageMinus(Equip_I0DI_Shield_life[id])
        call Equip_I0DI_RemoveBuff(id)
    endif
endfunction

function Equip_I0DI_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    if Equip_I0DI_Shield[id]==0 then
        set Equip_I0DI_Shield[id]=UnitAddShieldTrigB((id),function Equip_I0DI_Shield_actions)
        set Equip_I0DI_Shield_life[id]=$5DC
        call DestroyEffect(AddSpecialEffectTarget("ForestBolt.mdl",(Je[(id)]),"origin"))
        call UnitAddAbilityBY((Je[(id)]),'A07Y')
        call Unit_App_Counter(910,(id))
    else
        set Equip_I0DI_Shield_life[id]=MinR(Equip_I0DI_Shield_life[id]+$5DC,6000)
    endif
    call NewTextTagInTarget_B((Je[(id)]),"|c00bef2acSHIELD ("+I2S(R2I(Equip_I0DI_Shield_life[id]))+")",9,$FF,$FF,$FF)
endfunction

function Equip_afac_onAttack takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",(MF),"origin"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",(MF),"origin"))
    call UnitDamageTargetBY((((mF))),(((MF))),((((1.5*GetHeroState1((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
endfunction

function Equip_afac_Enable takes nothing returns nothing
    set Equip_afac_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:559")]=false
endfunction

function Equip_afac_Expired takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0IZ','B035')
    call ModifyHeroStr((id),-425)
    call s__Trig_remove(Equip_afac_atk[id])
    call TimerStart(GetExpiredTimer(),4,false,function Equip_afac_Enable)
    call Unit_Cancel_Counter(911,id)
endfunction

function Equip_afac_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    if not Equip_afac_off[id]then
        set Equip_afac_off[id]=true
        set Equip_afac_atk[id]=UnitAddPAttackTrigB((id),function Equip_afac_onAttack)
        call UnitAddAbilityBY((Je[(id)]),'A0IZ')
        call ModifyHeroStr((id),425)
        call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('afac')))),$A)
        call TimerStart(NewTimer(id),6,false,function Equip_afac_Expired)
        call Unit_App_Counter(912,id)
    endif
endfunction

function Equip_blba_onSpellEffect takes nothing returns nothing
    local unit c
    local unit u
    local real x
    local real y
    local real d
    if GetRandomInt(1,8)==1 then
        set c=(Je[(s__Trig_P)])
        set x=GetUnitX(c)
        set y=GetUnitY(c)
        set d=40*GetHeroPropertiesByAll((GetUnitUserData((c))))
        call GroupEnumUnitsInRange(G,x,y,425,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)and IsUnitAliveAndEnemy(u,c)then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,1)
            endif
        endloop
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.25),$FF,0,0,$FF))
        call CUv((GetPlayerId((GetOwningPlayer(c)))),$FF,125,125,.27)
        set c=null
    endif
endfunction

function Equip_cnhn_Enbale takes nothing returns nothing
    set Equip_cnhn_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:560")]=false
endfunction

function Equip_cnhn_RemoveBuff takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0P3','B05K')
    call ModifyUnitAttack((id),-$FA0*Equip_cnhn_count[id])
    call ModifyHeroStr((id),-575)
    call s__Trig_remove((Equip_cnhn_atk[id]))
    call TimerStart(GetExpiredTimer(),5,false,function Equip_cnhn_Enbale)
    call Unit_Cancel_Counter(913,id)
endfunction

function Equip_cnhn_onAttack takes nothing returns nothing
    local integer id
    if GetRandomInt(1,5)==1 then
        set id=(GetUnitUserData(((mF))))
        if Equip_cnhn_count[id]<5 then
            set Equip_cnhn_count[id]=Equip_cnhn_count[id]+1
            call NewTextTagInTarget_B((mF),"+4000 DAMAGE",$A,$FF,125,125)
            call ModifyUnitAttack((id),$FA0)
        endif
        call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",(MF),"origin"))
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX((MF)),GetUnitY((MF)),1.8))
        call Lqv(LAv("MagmaBurst.mdl",GetUnitX((MF)),GetUnitY((MF)),.75),1.5)
        call UnitDamageTargetBY((((mF))),(((MF))),(((((1+.2*Equip_cnhn_count[id])*(DAK_AMOUNT[HF])+$A*GetHeroState1((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((13.5)*1.))*1.),(("|c00ec7766")))
    endif
endfunction

function Equip_cnhn_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    if not Equip_cnhn_off[id]then
        set Equip_cnhn_off[id]=true
        set Equip_cnhn_atk[id]=UnitAddPAttackTrigB((id),function Equip_cnhn_onAttack)
        set Equip_cnhn_count[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0P3')
        call ModifyHeroStr((id),575)
        call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('afac')))),$C)
        call TimerStart(NewTimer(id),7.5,false,function Equip_cnhn_RemoveBuff)
        call Unit_App_Counter(914,id)
    endif
endfunction

function Equip_gobm_Remove takes integer id returns integer
    if Equip_gobm_timer[id]!=null then
        call ReleaseTimer(Equip_gobm_timer[id],"[TimerUtils]Error:561")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08J','B02Y')
        call Unit_Cancel_Counter(915,id)
        set Equip_gobm_timer[id]=null
        return Equip_gobm_bufflv[id]
    endif
    return 0
endfunction

function Equip_gobm_loop_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Equip_gobm_duration[id]=Equip_gobm_duration[id]-1
    call UnitDamageTargetBY((((Je[(Equip_gobm_Source[id])]))),(((Je[(id)]))),((((.5*Equip_gobm_bufflv[id]*GetHeroState2((Je[(Equip_gobm_Source[id])]),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),((((8)*1.))*1.),(("|c002d8017")))
    if not UnitAlive((Je[(id)]))or Equip_gobm_duration[id]<1 then
        call Equip_gobm_Remove(id)
    endif
endfunction

function Equip_gobm_onAttack takes nothing returns nothing
    local integer id=(GetUnitUserData(((MF))))
    if Equip_gobm_timer[id]==null then
        set Equip_gobm_timer[id]=NewTimer(id)
        set Equip_gobm_bufflv[id]=1
        call UnitAddAbilityBY((MF),'A08J')
        call TimerStart(Equip_gobm_timer[id],1,true,function Equip_gobm_loop_c)
        call Unit_App_Counter(916,id)
    elseif Equip_gobm_bufflv[id]<$A then
        set Equip_gobm_bufflv[id]=Equip_gobm_bufflv[id]+1
        if ModuloInteger(Equip_gobm_bufflv[id],5)==0 then
            call thv("|c002d8017"+I2S(Equip_gobm_bufflv[id])+" Charge",GetUnitX((MF)),GetUnitY((MF)),GetUnitFlyHeight((MF))+100,.075,.05,bj_PI/ 2,.6,1)
        endif
    endif
    set Equip_gobm_Source[id]=(GetUnitUserData(((mF))))
    set Equip_gobm_duration[id]=$A
    call Ltv(Lfv(LAv("CenarionFury.mdl",GetUnitX((MF)),GetUnitY((MF)),1.5),0,55,0,$FF))
    call UnitRemoveAbilityandBuffBY((mF),'A07R','B02X')
    call s__Trig_remove(s__Trig_Index)
endfunction

function Equip_gobm_onSpellEffect takes nothing returns nothing
    if GetUnitAbilityLevel((Je[(s__Trig_P)]),'A07R')==0 then
        call UnitAddPAttackTrigB((s__Trig_P),function Equip_gobm_onAttack)
        call UnitAddAbilityBY((Je[(s__Trig_P)]),'A07R')
    endif
endfunction

function s__hcun_enable takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:562")
    set s__hcun_off[this]=false
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\ReviveHuman\\ReviveHuman.mdl",(Je[(this)]),"origin"))
    call Unit_Cancel_Counter(917,(this))
endfunction

function s__hcun_recycle takes integer this returns nothing
    if s__hcun_use[this]then
        set s__hcun_FL[s__hcun_FR[this]]=s__hcun_FL[this]
        set s__hcun_FR[s__hcun_FL[this]]=s__hcun_FR[this]
        set s__hcun_use[this]=false
        if s__hcun_FR[(0)]==0 then
            call frv(s__hcun_func)
        endif
        call Unit_Cancel_Counter(918,(this))
    endif
endfunction

function s__hcun_loop_c takes nothing returns boolean
    local integer this=s__hcun_FR[(0)]
    local integer fx
    local integer i
    local real x
    local real y
    local real a
    loop
        exitwhen this==0
        if UnitAlive((Je[(this)]))then
            set s__hcun_duration[this]=s__hcun_duration[this]-1
            set s__hcun_ang[this]=s__hcun_ang[this]+.04+.02*s__hcun_bufflv[this]
            set i=s__hcun_bufflv[this]
            set x=GetUnitX((Je[(this)]))
            set y=GetUnitY((Je[(this)]))
            loop
                exitwhen i==0
                set i=i-1
                set a=s__hcun_ang[this]+i*Lx/ s__hcun_bufflv[this]
                set fx=LoadInteger(BYHT,s__hcun_vessel[this],i)
                call LKv(fx,x+s__hcun_Angle*Cos(a))
                call Llv(fx,y+s__hcun_Angle*Sin(a))
                call SetUnitFacing(II[(fx)],((a+.25*Lx)*1.)*bj_RADTODEG)
            endloop
        else
            set s__hcun_duration[this]=0
        endif
        if s__hcun_duration[this]<1 then
            set s__hcun_off[this]=true
            call TimerStart(NewTimer(this),5,false,function s__hcun_enable)
            call ModifyHeroStr((this),-125*s__hcun_bufflv[this])
            call ModifyUnitMagicDamage((this),-2.5*s__hcun_bufflv[this])
            call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(this)]],('hcun')))),5)
            call Unit_App_Counter(919,(this))
            loop
                exitwhen s__hcun_bufflv[this]==0
                set s__hcun_bufflv[this]=s__hcun_bufflv[this]-1
                call Ltv((LoadInteger(BYHT,s__hcun_vessel[this],s__hcun_bufflv[this])))
            endloop
            call s__Trig_remove((s__hcun_atk[this]))
            call free(s__hcun_vessel[this])
            call s__hcun_recycle(this)
        endif
        set this=s__hcun_FR[this]
    endloop
    return false
endfunction

function s__hcun_statr takes integer this returns boolean
    if not s__hcun_use[this]then
        if s__hcun_FR[(0)]==0 then
            if s__hcun_func==0 then
                set s__hcun_func=fxv(function s__hcun_loop_c)
            endif
            call fov(s__hcun_func)
        endif
        set s__hcun_FR[this]=s__hcun_FR[(0)]
        set s__hcun_FL[s__hcun_FR[(0)]]=this
        set s__hcun_FR[(0)]=this
        set s__hcun_FL[this]=0
        set s__hcun_use[this]=true
        call Unit_App_Counter(920,(this))
        return true
    endif
    return false
endfunction

function s__hcun_onattack takes nothing returns nothing
    local integer this=(GetUnitUserData(((mF))))
    if GetRandomInt(1,5)<4 then
        call DestroyEffect(AddSpecialEffectTarget("HolyBlast.mdl",(MF),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((1.5*s__hcun_bufflv[this]*GetHeroState1((mF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function s__hcun_addbuff takes integer this returns nothing
    local integer fx
    local real a
    if not s__hcun_off[this]then
        if s__hcun_statr(this)then
            set s__hcun_vessel[this]=malloc()
            set s__hcun_atk[this]=UnitAddPAttackTrigB((this),function s__hcun_onattack)
            set s__hcun_bufflv[this]=0
            set s__hcun_ang[this]=0
        endif
        if s__hcun_bufflv[this]<4 then
            set a=s__hcun_ang[this]+s__hcun_bufflv[this]*Lx/(s__hcun_bufflv[this]+1)
            set fx=Lnv(GetUnitX((Je[(this)]))+s__hcun_Angle*Cos(a),GetUnitY((Je[(this)]))+s__hcun_Angle*Sin(a),a+.25*Lx)
            call LMv(fx,"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
            call SetUnitFlyHeight(II[(fx)],((50)*1.),0)
            call SaveInteger(BYHT,s__hcun_vessel[this],s__hcun_bufflv[this],fx)
            set s__hcun_bufflv[this]=s__hcun_bufflv[this]+1
            set s__hcun_duration[this]=$A0
            if s__hcun_bufflv[this]==4 then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",(Je[(this)]),"origin"))
                call CSv((Kc[(this)]),30,.375)
            endif
            call Lfv(fx,$FF,125,125,$FF)
            call ModifyHeroStr((this),125)
            call ModifyUnitMagicDamage((this),2.5)
            call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(this)]],('hcun')))),5)
            call ttv((Je[(this)]),"|c00d7b4eb"+I2S(125*s__hcun_bufflv[this])+" STR
            +"+mYv(2.5*s__hcun_bufflv[this])+"% 技能伤害")

            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",(Je[(this)]),"origin"))
        endif
    endif
endfunction

function s__hcun_onSpellEffect takes nothing returns nothing
    call s__hcun_addbuff((s__Trig_P))
endfunction

function Equip_k3m3_Enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:563")
    set Equip_k3m3_off[id]=false
    call Unit_Cancel_Counter(921,id)
endfunction

function Equip_k3m3_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    local integer i
    if not Equip_k3m3_off[id]and GetRandomInt(1,20)==1 then
        set Equip_k3m3_off[id]=true
        set i=2
        loop
            if LoadInteger(BYHT,Hero_Skills_table[(id)],i)!='A10C' then
                call UnitResetCooldownById((Je[(id)]),LoadInteger(BYHT,Hero_Skills_table[(id)],i))
            endif
            exitwhen i==6
            set i=i+1
        endloop
        call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('k3m3')))),$96)
        call CUv((Kc[(id)]),$FF,$FF,$80,.5)
        call NewTextTagInTarget_B((Je[(id)]),"|c00ffff80Skill refresh!",$C,$FF,$FF,$FF)
        call Lqv(LAv("LightStrikeArray.mdx",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2.5),1.27)
        call TimerStart(NewTimer(id),$96,false,function Equip_k3m3_Enable)
        call Unit_App_Counter(922,id)
    endif
endfunction

function Equip_ofro_onAttack takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(mF),"origin"))
    call DestroyEffect(AddSpecialEffectTarget("ChaosExplosion.mdl",(MF),"origin"))
    call UnitDamageTargetBY((((mF))),(((MF))),((((5000+2*GetHeroStateByMax((mF)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    call UnitCureTaret(null,(mF),.025*GetUnitState((mF),UNIT_STATE_MAX_LIFE))
    call UnitRemoveAbilityandBuffBY((mF),'A097','BIil')
    call s__Trig_remove((s__Trig_Index))
endfunction

function Equip_ofro_onSpellEffect takes nothing returns nothing
    if GetUnitAbilityLevel((Je[(s__Trig_P)]),'A097')==0 then
        call UnitAddPAttackTrigB((s__Trig_P),function Equip_ofro_onAttack)
        call UnitAddAbilityBY((Je[(s__Trig_P)]),'A097')
    endif
endfunction

 //ring of eternal flame storm

 function Equip_I0EB_Enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:564")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A110','B09O')
    call ModifyUnitMagicDamage((id),-3*Equip_I0EB_count[id])
    call Unit_Cancel_Counter(923,(id))
    set Equip_I0EB_timer[id]=null
 endfunction


 function Equip_I0EB_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    if Equip_I0EB_timer[id]==null then
        set Equip_I0EB_timer[id]=NewTimer(id)
        set Equip_I0EB_count[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A110')
        call Unit_App_Counter(924,(id))
    endif
    if Equip_I0EB_count[id]<6 then
        set Equip_I0EB_count[id]=Equip_I0EB_count[id]+1
        call ModifyUnitMagicDamage((id),3)
        call ttv((Je[(id)]),"|c008bf3d1+"+I2S(R2I(3*Equip_I0EB_count[id]))+"% Skill damage")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIim\\AIimTarget.mdl",(Je[(id)]),"origin"))
    endif
    call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('I0EB')))),10)
    call TimerStart(Equip_I0EB_timer[id],10,false,function Equip_I0EB_Enable)
 endfunction

 //ring of storm

 function Equip_srtl_Enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:564")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ME','B04O')
    call ModifyUnitMagicDamage((id),-3*Equip_srtl_count[id])
    call Unit_Cancel_Counter(923,(id))
    set Equip_srtl_timer[id]=null
 endfunction


 function Equip_srtl_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    if Equip_srtl_timer[id]==null then
        set Equip_srtl_timer[id]=NewTimer(id)
        set Equip_srtl_count[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0ME')
        call Unit_App_Counter(924,(id))
    endif
    if Equip_srtl_count[id]<4 then
        set Equip_srtl_count[id]=Equip_srtl_count[id]+1
        call ModifyUnitMagicDamage((id),3)
        call ttv((Je[(id)]),"|c008bf3d1+"+I2S(R2I(3*Equip_srtl_count[id]))+"% Skill damage")
        call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",(Je[(id)]),"origin"))
    endif
    call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('srtl')))),6)
    call TimerStart(Equip_srtl_timer[id],6,false,function Equip_srtl_Enable)
 endfunction
 

function Equip_stwa_Removebuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:565")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0LW','B04G')
    call ModifyUnitHpRegen((id),-300)
    call ModifyUnitMagicDamage((id),-6)
    call Unit_Cancel_Counter(925,id)
    set Equip_stwa_timer[id]=null
endfunction

function Equip_stwa_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    if Equip_stwa_timer[id]==null then
        set Equip_stwa_timer[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A0LW')
        call ModifyUnitHpRegen((id),300)
        call ModifyUnitMagicDamage((id),6)
        call Unit_App_Counter(926,id)
    endif
    call TimerStart(Equip_stwa_timer[id],3,false,function Equip_stwa_Removebuff)
endfunction

function s__rat3_removebuff takes integer this returns nothing
    if s__rat3_time[this]!=null then
        call ReleaseTimer(s__rat3_time[this],"[TimerUtils]Error:566")
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A08J','B02Y')
        call Unit_Cancel_Counter(927,(this))
        set s__rat3_time[this]=null
    endif
endfunction

function s__rat3_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(this)]))then
        set s__rat3_duration[this]=s__rat3_duration[this]-1
        call UnitDamageTargetBY((((Je[(s__rat3_source[this])]))),(((Je[(this)]))),((((s__rat3_lv[this]*GetHeroState2((Je[(s__rat3_source[this])]),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),((((9)*1.))*1.),(("|c002d8017")))
    else
        set s__rat3_duration[this]=0
    endif
    if s__rat3_duration[this]<1 then
        call s__rat3_removebuff(this)
    endif
endfunction

function s__rat3_onattack takes nothing returns nothing
    local integer this=(pF)
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    if s__rat3_time[this]==null then
        set s__rat3_time[this]=NewTimer(this)
        set s__rat3_lv[this]=0
        call UnitAddAbilityBY((MF),'A08J')
        call TimerStart(s__rat3_time[this],1,true,function s__rat3_loop_c)
        call Unit_App_Counter(928,(this))
    endif
    if s__rat3_lv[this]<s__rat3_maxlv then
        set s__rat3_lv[this]=s__rat3_lv[this]+1
        if s__rat3_lv[this]==s__rat3_maxlv/ 2 then
            call thv("|c002d8017"+I2S(s__rat3_lv[this])+" STACK",GetUnitX((MF)),GetUnitY((MF)),GetUnitFlyHeight((MF))+100,.075,.05,bj_PI/ 2,.6,1)
        elseif s__rat3_lv[this]==s__rat3_maxlv then
            call UnitDamageTargetBY((((mF))),(((MF))),((((100*GetHeroState2((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c002d8017")))
            call m1v((MF),1)
            call DestroyEffect(AddSpecialEffectTarget("CurseBoltGreen.mdl",(MF),"chest"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ChimaeraAcidMissile\\ChimaeraAcidMissile.mdl",(MF),"chest"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ChimaeraAcidMissile\\ChimaeraAcidMissile.mdl",(MF),"chest"))
            call Ltv(Lfv(LAv("CenarionFury.mdl",x,y,3),0,$9B,0,$FF))
            call Ltv(LAv("DesecrateGreen.mdl",x,y,2.25))
            call zKv((Kc[((pF_v))]),125,$FF,125,1)
            call zhv((Kc[((pF_v))]),50,1)
            call s__rat3_removebuff(this)
        endif
    endif
    if s__rat3_time[this]!=null then
        set s__rat3_source[this]=(pF_v)
        set s__rat3_duration[this]=$A
        call Ltv(Lfv(LAv("CenarionFury.mdl",x,y,1.5),0,55,0,$FF))
    endif
    call UnitRemoveAbilityandBuffBY((mF),'A07R','B02X')
    call s__Trig_remove((s__Trig_Index))
endfunction

function s__rat3_onSpellEffect takes nothing returns nothing
    if GetUnitAbilityLevel((Je[(s__Trig_P)]),'A07R')==0 then
        call UnitAddAbilityBY((Je[(s__Trig_P)]),'A07R')
        call UnitAddPAttackTrigB((s__Trig_P),function s__rat3_onattack)
    endif
endfunction

function Equip_rag1_Enable takes nothing returns nothing
    set Equip_rag1_off[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:567")]=false
endfunction

function Equip_rag1_onCrit takes nothing returns nothing
    local integer id=(pF_v)
    if not Equip_rag1_off[id]then
        set Equip_rag1_off[id]=true
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",(MF),"chest"))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",GetUnitX((MF)),GetUnitY((MF)),1.25),$FF,$FF,125,$FF))
        call UnitDamageTargetBY((((mF))),(((MF))),((((3*(GetHeroState1((mF),true)+GetHeroState2((mF),true)+GetHeroState3((mF),true)))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00e7faab")))
        call UnitAppBuff((pF),'A0IT',$D006B)
        call TimerStart(NewTimer(id),2.5,false,function Equip_rag1_Enable)
    endif
endfunction

function Equip_I08C_beAttack takes nothing returns nothing
    if GetRandomInt(1,100)<$D then
        call Auxiliary_TargetOrder(('A0EP'),null,1,$D0062,(mF))
    endif
endfunction

function Equip_I08D_beAttack takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call Auxiliary_TargetOrder(('A0ES'),null,1,$D0101,(MF))
    endif
endfunction

function Equip_I088_Enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:568")
    call Unit_Cancel_Counter(929,(id))
    set Equip_I088_buff[id]=null
endfunction

function Equip_I088_RemoveBuff takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A073','B020')
    call ModifyUnitArmor((id),-$2710)
    call TimerStart(Equip_I088_buff[id],$C,false,function Equip_I088_Enable)
endfunction

function Equip_I088_beAttack takes nothing returns nothing
    local integer id=(pF)
    if Equip_I088_buff[id]==null and GetRandomInt(1,$A)==1 then
        set Equip_I088_buff[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A073')
        call ModifyUnitArmor((id),$2710)
        call TimerStart(Equip_I088_buff[id],4,false,function Equip_I088_RemoveBuff)
        call Unit_App_Counter(930,(id))
    endif
endfunction

function Equip_spsh_beAttack takes nothing returns nothing
    if(DAK_AMOUNT[HF])>300 then
        call UnitDamageTargetBY((((MF))),(((mF))),(((($4B0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    else
        call UnitDamageTargetBY((((MF))),(((mF))),((((4*(DAK_AMOUNT[HF]))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    endif
    call DestroyEffect(AddSpecialEffectTarget("blood damage impact.mdl",(mF),"chest"))
endfunction

function Equip_lgdh_Enable takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:569")
    set Equip_lgdh_off[id]=false
    call Unit_Cancel_Counter(931,id)
endfunction

function Equip_lgdh_beAttack takes nothing returns nothing
    local integer id=(pF)
    local unit u
    local real x
    local real y
    if not Equip_lgdh_off[id]and GetRandomInt(1,$A)==1 then
        set Equip_lgdh_off[id]=true
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call GroupEnumUnitsInRange(G,x,y,400,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)and IsUnitAliveAndEnemy(u,(MF))then
                call UnitDamageTargetBY((((MF))),((u)),(((($7530)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call pmv(u,1.5)
            endif
        endloop
        call Ltv(LAv("IceNova.mdl",x,y,1.5))
        call Ltv(LAv("FreezingRing.mdl",x,y,1.25))
        call TimerStart(NewTimer(id),60,false,function Equip_lgdh_Enable)
        call Unit_App_Counter(932,id)
    endif
endfunction

function Equip_I0CP_Shield takes nothing returns nothing
    local integer id=(pF)
    if(100000.-TimerGetRemaining(GameTimer))>Equip_I0CP_cd[id]and GetRandomInt(1,8)==1 then
        set Equip_I0CP_cd[id]=(100000.-TimerGetRemaining(GameTimer))+5
        call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Human\\Heal\\HealTarget.mdl",(MF),"origin",1)
        call UnitCureTaret((MF),(MF),.025*GetUnitMaxLifeById((pF)))
    endif
endfunction

function Equip_esaz_Shield takes nothing returns nothing
    local integer id=(pF)
    if(100000.-TimerGetRemaining(GameTimer))>Equip_esaz_cd[id]and GetRandomInt(1,8)==1 then
        set Equip_esaz_cd[id]=(100000.-TimerGetRemaining(GameTimer))+5
        call TimerDestroyAddSpecialEffectTargetBY("natureHeal.mdx",(MF),"origin",1)
        call UnitCureTaret((MF),(MF),.01*4.*GetUnitMaxLifeById((pF)))
        call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(id)]],('esaz')))),5.)
    endif
endfunction

function Equip_jpnt_RemoveBuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:570")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0QP','B06B')
    call DeUnitAdef((id),Equip_jpnt_def[id])
    call Unit_Cancel_Counter(933,(id))
endfunction

function Equip_jpnt_Shield takes nothing returns nothing
    local integer id=(pF)
    if(100000.-TimerGetRemaining(GameTimer))>Equip_jpnt_cd[id]and GetWidgetLife((MF))-GetDamage()<=.15*GetUnitMaxLifeById((id))then
        set Equip_jpnt_cd[id]=(100000.-TimerGetRemaining(GameTimer))+60
        set Equip_jpnt_def[id]=ModifyUnitAdef((id),90)
        call DamageMinus(.9*GetDamage())
        call zKv((Kc[((id))]),$CD,$FF,$CD,.27)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(MF),"origin"))
        call UnitCureTaret(null,(MF),.01*25.*GetUnitMaxLifeById((id)))
        call UnitAddAbilityBY((MF),'A0QP')
        call TimerStart(NewTimer(id),3.,false,function Equip_jpnt_RemoveBuff)
        call Unit_App_Counter(934,(id))
    endif
endfunction

function Equip_I0B5_Loop_c takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer Source=Boss_Spell_data1[data]
    local integer target=Boss_Spell_data2[data]
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    call UnitDamageTargetBY((((Je[(Source)]))),(((Je[(target)]))),((((Unit_DOT[(Source)]*Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    if Boss_Spell_data3[data]<1 then
        set Equip_I0B5_count[target]=Equip_I0B5_count[target]-1
        if Equip_I0B5_count[target]==0 then
            call UnitRemoveAbilityandBuffBY((Je[(target)]),'A0F0','Bmlt')
            call Unit_Cancel_Counter(935,target)
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:571")
        call Unit_Cancel_Counter(936,Source)
        call Boss_Spell_deallocate(data)
    endif
endfunction

function Equip_I0B5_Meleemagic takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer Source=(pF_v)
    local integer target=(pF)
    set Boss_Spell_data1[data]=Source
    set Boss_Spell_data2[data]=target
    set Boss_Spell_data3[data]=6
    set Boss_Spell_X[data]=.025*GetDamage()
    set Equip_I0B5_count[target]=Equip_I0B5_count[target]+1
    if Equip_I0B5_count[target]==1 then
        call UnitAddAbilityBY((MF),'A0F0')
        call Unit_App_Counter(937,target)
    endif
    call DestroyEffect(AddSpecialEffectTarget("DeathBladeRegeneration.mdl",(MF),"origin"))
    call TimerStart(NewTimer(data),.5,true,function Equip_I0B5_Loop_c)
    call Unit_App_Counter(938,Source)
endfunction

function s__glsk_list_recycle takes integer this returns nothing
    set s__glsk_list_last[s__glsk_list_next[this]]=s__glsk_list_last[this]
    set s__glsk_list_next[s__glsk_list_last[this]]=s__glsk_list_next[this]
    call s__glsk_list_deallocate(this)
endfunction

function s__glsk_list_alloc takes nothing returns integer
    local integer this=s__glsk_list__allocate()
    set s__glsk_list_next[this]=this
    set s__glsk_list_last[this]=this
    return this
endfunction

function s__glsk_list_link takes integer this,integer l returns nothing
    local integer t=s__glsk_list_last[this]
    local integer v=s__glsk_list_last[l]
    set s__glsk_list_last[this]=v
    set s__glsk_list_last[l]=t
    set s__glsk_list_next[t]=l
    set s__glsk_list_next[v]=this
endfunction

function s__glsk_list_clear takes integer this returns nothing
    local integer t=this
    loop
        call s__glsk_list_deallocate(t)
        set t=s__glsk_list_next[t]
        exitwhen t==this
    endloop
endfunction

function s__glsk_hash_create takes nothing returns integer
    local integer this=s__glsk_hash__allocate()
    set s__glsk_hash_vessel[this]=malloc()
    return this
endfunction

function s__glsk_hash_destroy takes integer this returns nothing
    call free(s__glsk_hash_vessel[this])
endfunction

function s__glsk_hash_have takes integer this,integer k returns boolean
    return HaveSavedInteger(BYHT,s__glsk_hash_vessel[this],k)
endfunction

function s__glsk_hash_remove takes integer this,integer k returns boolean
    if HaveSavedInteger(BYHT,s__glsk_hash_vessel[this],k)then
        set s__glsk_hash_size[this]=s__glsk_hash_size[this]-1
        call RemoveSavedInteger(BYHT,s__glsk_hash_vessel[this],k)
        return true
    endif
    return false
endfunction

function s__glsk_hash_load takes integer this,integer k returns integer
    return LoadInteger(BYHT,s__glsk_hash_vessel[this],k)
endfunction

function s__glsk_hash_save takes integer this,integer k,integer v returns boolean
    if s__glsk_hash_size[this]<s__glsk_hash_Max_size then
        set s__glsk_hash_size[this]=s__glsk_hash_size[this]+1
        call SaveInteger(BYHT,s__glsk_hash_vessel[this],k,v)
        return true
    endif
    return false
endfunction

function s__glsk_Recycle takes integer this returns nothing
    if s__glsk_Use[this]then
        set s__glsk_FL[s__glsk_FR[this]]=s__glsk_FL[this]
        set s__glsk_FR[s__glsk_FL[this]]=s__glsk_FR[this]
        set s__glsk_Use[this]=false
        if s__glsk_FR[(0)]==(0)then
            call frv(s__glsk_Func)
        endif
        call Unit_Cancel_Counter(939,(this))
    endif
endfunction

function s__glsk_loop_c takes nothing returns nothing
    local integer this=s__glsk_FR[(0)]
    local integer v
    local integer t
    local integer data
    local integer l
    local integer ht
    local integer Source
    loop
        exitwhen this==0
        if s__glsk_time[this]<$F then
            set s__glsk_time[this]=s__glsk_time[this]+1
        else
            set s__glsk_time[this]=0
        endif
        set ht=s__glsk_Ht[this]
        set v=s__glsk_List[this]
        set t=s__glsk_list_next[v]
        if not UnitAlive((Je[(this)]))or t==v then
            call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0RR','B06R')
            call DeUnitMdef((this),s__glsk_mdef[this])
            loop
                exitwhen t==v
                set Source=s__glsk_list_count[t]
                set data=(LoadInteger(BYHT,s__glsk_hash_vessel[(ht)],(Source)))
                call Unit_Cancel_Counter(940,(Source))
                call s__glsk_list_clear(data)
                set t=s__glsk_list_next[t]
            endloop
            call free(s__glsk_hash_vessel[(ht)])
            call s__glsk_list_clear(v)
            call s__glsk_Recycle(this)
            call UnitRemoveAbility((Je[(this)]),'A0RR')
        elseif s__glsk_time[this]==0 then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",(Je[(this)]),"chest"))
            loop
                exitwhen t==v
                set Source=s__glsk_list_count[t]
                call UnitDamageTargetBY((((Je[(Source)]))),(((Je[(this)]))),((((Unit_DOT[Source]*s__glsk_list_damage[t])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((8)*1.))*1.),(("|c00735e9d")))
                set data=(LoadInteger(BYHT,s__glsk_hash_vessel[(ht)],(Source)))
                set l=s__glsk_list_next[data]
                loop
                    if s__glsk_list_count[l]>1 then
                        set s__glsk_list_count[l]=s__glsk_list_count[l]-1
                    else
                        call s__glsk_list_recycle(l)
                    endif
                    set l=s__glsk_list_next[l]
                    exitwhen l==data
                endloop
                if data==s__glsk_list_next[data]then
                    call s__glsk_list_clear(data)
                    call s__glsk_hash_remove(ht,Source)
                    call s__glsk_list_recycle(t)
                endif
                set t=s__glsk_list_next[t]
            endloop
        endif
        set this=s__glsk_FR[this]
    endloop
endfunction

function s__glsk_Start takes integer this returns boolean
    if not s__glsk_Use[this]then
        if s__glsk_FR[(0)]==(0)then
            if s__glsk_Func==0 then
                set s__glsk_Func=fxv(function s__glsk_loop_c)
            endif
            call fov(s__glsk_Func)
        endif
        set s__glsk_FR[this]=s__glsk_FR[(0)]
        set s__glsk_FL[s__glsk_FR[(0)]]=this
        set s__glsk_FR[(0)]=this
        set s__glsk_FL[this]=(0)
        set s__glsk_Use[this]=true
        call Unit_App_Counter(941,(this))
        return true
    endif
    return false
endfunction

function s__glsk_onDirectHit takes nothing returns nothing
    local integer this=(pF)
    local integer v
    local integer t
    local integer data
    local integer l
    local integer ht
    if s__glsk_Start(this)then
        set ht=s__glsk_hash_create()
        set v=s__glsk_list_alloc()
        set s__glsk_List[this]=v
        set s__glsk_Ht[this]=ht
        set s__glsk_mdef[this]=ModifyUnitMdef((this),-s__glsk_mdef_v)
        set s__glsk_time[this]=0
        call DestroyEffect(AddSpecialEffectTarget("ShadowAssasult.mdl",(Je[(this)]),"origin"))
        call NewTextTagInTarget_B((MF),"|c00735e9d(sin)"+I2S(R2I(s__glsk_mdef_v))+"%",$A,$FF,$FF,$FF)
        call UnitAddAbilityBY((MF),'A0RR')
    else
        set ht=s__glsk_Ht[this]
        set v=s__glsk_List[this]
    endif
    if(HaveSavedInteger(BYHT,s__glsk_hash_vessel[(ht)],((pF_v))))then
        set data=(LoadInteger(BYHT,s__glsk_hash_vessel[(ht)],((pF_v))))
    else
        set data=s__glsk_list_alloc()
        if s__glsk_hash_save(ht,(pF_v),data)then
            set s__glsk_list_count[data]=(pF_v)
            set s__glsk_list_damage[data]=0
            set t=s__glsk_list_alloc()
            set s__glsk_list_count[t]=(pF_v)
            call s__glsk_list_link(v,t)
            call Unit_App_Counter(942,(pF_v))
        else
            call s__glsk_list_clear(data)
            set data=0
        endif
    endif
    if data!=null then
        set l=s__glsk_list_alloc()
        call s__glsk_list_link(data,l)
        set s__glsk_list_count[l]=6
        set s__glsk_list_damage[l]=.01*s__glsk_DamagePercent*GetDamage()/ 6
        set s__glsk_list_damage[data]=s__glsk_list_damage[data]+s__glsk_list_damage[l]
        call DestroyEffect(AddSpecialEffectTarget("DoomBlack.mdl",(MF),"origin"))
    endif
endfunction

function Equip_I0CC_onKillUnit takes nothing returns nothing
    call UnitCureTaret(IF,IF,500)
    call SetUnitState(IF,UNIT_STATE_MANA,GetUnitState(IF,UNIT_STATE_MANA)+500)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",IF,"origin"))
endfunction

function Equip_mort_removebuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:572")
    call SetHandicapXP((id),-$C)
    call ModifyUnitMpRegen((id),-$F)
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0B1','BNdc')
    call Unit_Cancel_Counter(943,id)
    set Equip_mort_timer[id]=null
endfunction

function Equip_mort_onKillUnit takes nothing returns nothing
    local integer id
    if UnitAlive(IF)and GetRandomInt(1,100)<9 then
        set id=(GetUnitUserData((IF)))
        if Equip_mort_timer[id]==null then
            set Equip_mort_timer[id]=NewTimer(id)
            call SetHandicapXP((id),$C)
            call ModifyUnitMpRegen((id),$F)
            call UnitAddAbilityBY((Je[(id)]),'A0B1')
            call Unit_App_Counter(944,id)
        endif
        call TimerStart(Equip_mort_timer[id],30,false,function Equip_mort_removebuff)
    endif
endfunction

function Equip_mcou_Removebuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:573")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0CM','BEfn')
    call ModifyUnitHP((id),-Equip_mcou_HP[id])
    call Unit_Cancel_Counter(945,(id))
    set Equip_mcou_Timer[id]=null
    set Equip_mcou_HP[id]=0
endfunction

function Equip_mcou_Addbuff takes integer id,real tJv returns nothing
    local integer up=Equip_mcou_HP[id]+R2I(.1*tJv)
    local integer up_max=R2I(.15*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))
    if up>up_max then
        set up=up_max
    endif
    if Equip_mcou_Timer[id]==null then
        set Equip_mcou_Timer[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A0CM')
        call Unit_App_Counter(946,(id))
    endif
    call ModifyUnitHP((id),up-Equip_mcou_HP[id])
    call TimerStart(Equip_mcou_Timer[id],6,false,function Equip_mcou_Removebuff)
    set Equip_mcou_HP[id]=up
endfunction

function Equip_mcou_onCured takes nothing returns nothing
    local real uplife=GetUnitState((Je[(BECURE_Unit)]),UNIT_STATE_MAX_LIFE)-GetWidgetLife((Je[(BECURE_Unit)]))
    if CURE_Damage>uplife then
        call Equip_mcou_Addbuff(BECURE_Unit,CURE_Damage-uplife)
        set CURE_Damage=uplife
    endif
endfunction

function MagicDragonSuit takes nothing returns nothing
    local integer data=le
    local unit u=(Je[(data)])
    local integer itemid
    local boolean b1
    local boolean b2
    local boolean b3
    if s__suit_IsActivate then
        set itemid=GetHeroEquipSlot(data,1)
        set b1=itemid=='I07R' or itemid=='I09S' or itemid=='I07S' or itemid=='I09T'
        set itemid=GetHeroEquipSlot(data,2)
        set b2=itemid=='I07U' or itemid=='I07W'
        set itemid=GetHeroEquipSlot(data,3)
        set b3=itemid=='I07Y' or itemid=='I07X'
        if b1 and b2 and b3 then
            call UnitAddAbilityBY((u),'A0G6')
            call ttv(u,"|c00ff8080+4000 HP
            +200 HP Regen

            

            

            

            

            

            

            

            

            

            

            

            

            

            

            

            +10% 技能伤害")

            call ModifyUnitHP((data),$FA0)
            call ModifyUnitHpRegen((data),$C8)
            call ModifyUnitMagicDamage((data),$A)
        endif
    else
        if GetUnitAbilityLevel(u,'A0G6')>0 then
            call UnitRemoveAbilityandBuffBY(u,'A0G6','BNdh')
            call ModifyUnitHP((data),-$FA0)
            call ModifyUnitHpRegen((data),-$C8)
            call ModifyUnitMagicDamage((data),-$A)
        endif
    endif
    set u=null
endfunction

function LobsterSuit takes nothing returns nothing
    local integer data=le
    local unit u=(Je[(data)])
    if s__suit_IsActivate then
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(data)]],('I0C0')))and(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(data)]],('I0C1')))then
            call UnitAddAbilityBY(u,'A0H0')
            call ttv(u,"|c00d7b4eb+3000 HP
            +7.5% 技能伤害")

            call ModifyUnitMagicDamage((data),7.5)
            call ModifyUnitHP((data),$BB8)
        endif
    else
        if GetUnitAbilityLevel(u,'A0H0')>0 then
            call UnitRemoveAbilityandBuffBY(u,'A0H0','BIcb')
            call ModifyUnitMagicDamage((data),-7.5)
            call ModifyUnitHP((data),-$BB8)
        endif
    endif
    set u=null
endfunction

function Jack_s_Suit takes nothing returns nothing
    local integer data=le
    local unit u=(Je[(data)])
    local integer itemid
    local boolean b1
    local boolean b2
    local boolean b3
    if s__suit_IsActivate then
        set itemid=GetHeroEquipSlot(data,1)
        set b1=itemid=='I0AY'
        set itemid=GetHeroEquipSlot(data,3)
        set b2=itemid=='I07O' or itemid=='I07N' or itemid=='I07M' or itemid=='I07P'
        set itemid=GetHeroEquipSlot(data,4)
        set b3=itemid=='cnob' or itemid=='shhn'
        if b1 and b2 and b3 then
            call UnitAddAbilityBY(u,'A0LR')
            call ttv(u,"|c0093a3ce+400 Main Stat
            +12% 技能伤害")

            call ModifyHeroProperties((data),400)
            call ModifyUnitMagicDamage((data),$C)
            call Ltv(LAv("Grin Curse.mdl",GetUnitX(u),GetUnitY(u),1.25))
        endif
    else
        if GetUnitAbilityLevel(u,'A0LR')>0 then
            call UnitRemoveAbilityandBuffBY(u,'A0LR','B04B')
            call ModifyHeroProperties((data),-400)
            call ModifyUnitMagicDamage((data),-$C)
        endif
    endif
    set u=null
endfunction

function Active_A05S_action takes nothing returns nothing
    local unit u=GetTriggerUnit()
    call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MANA)+.2*GetUnitState(u,UNIT_STATE_MAX_MANA))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIma\\AImaTarget.mdl",u,"origin"))
    set u=null
endfunction

function Active_A05S_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A05S',function Active_A05S_action)
    call SaveReal(BYHT,DroppableTimed,('I0CG'),((45)*1.))
endfunction

function Active_A0HB_buff_remove takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:574")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0HC','BNwm')
    call ModifyUnitMagicDamage((id),-$A)
    call s__Trig_remove((Active_A0HB_buff[id]))
    call Unit_Cancel_Counter(947,(id))
    set Active_A0HB_Timer[id]=null
endfunction

function Active_A0HB_buff_Cure takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:575")
    call UnitCureTaret(null,(Je[(id)]),Active_A0HB_life[id])
    set Active_A0HB_life[id]=0
endfunction

function Active_A0HB_buff_action takes nothing returns nothing
    local integer id
    if(DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC)then
        set id=(GetUnitUserData(((mF))))
        if Active_A0HB_life[id]==0 then
            call TimerStart(NewTimer(id),0,false,function Active_A0HB_buff_Cure)
        endif
        set Active_A0HB_life[id]=Active_A0HB_life[id]+.06*GetDamage()
    endif
endfunction

function Active_A0HB_Action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Active_A0HB_Timer[id]==null then
        set Active_A0HB_Timer[id]=NewTimer(id)
        set Active_A0HB_buff[id]=UnitAddDamagerTrigB((id),function Active_A0HB_buff_action)
        call UnitAddAbilityBY((Je[(id)]),'A0HC')
        call ModifyUnitMagicDamage((id),$A)
        call DestroyEffect(AddSpecialEffectTarget("ChaosExplosion.mdx",(Je[(id)]),"origin"))
        call Unit_App_Counter(948,(id))
    endif
    call TimerStart(Active_A0HB_Timer[id],9,false,function Active_A0HB_buff_remove)
endfunction

function Active_A0HB_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0HB',function Active_A0HB_Action)
    call SaveReal(BYHT,DroppableTimed,('I0BR'),((30)*1.))
endfunction

function Active_A0JN_removebuff takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:576")
    local integer id=Boss_Spell_data1[data]
    local integer target=Boss_Spell_data2[data]
    local integer eff=Boss_Spell_data3[data]
    call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",(GetUnitX(II[(eff)])),(GetUnitY(II[(eff)])),1.5))
    set Active_A0JN_Counter1[id]=Active_A0JN_Counter1[id]-1
    set Active_A0JN_Counter2[target]=Active_A0JN_Counter2[target]-1
    if Active_A0JN_Counter1[id]==0 then
        call ModifyUnitMagicDamage(id,-9)
    endif
    if Active_A0JN_Counter2[target]==0 then
        call UnitRemoveAbilityandBuffBY((Je[(target)]),'A0JO','B03K')
    endif
    call LTv(eff)
    call Unit_Cancel_Counter(949,id)
    call Unit_Cancel_Counter(950,target)
    call Boss_Spell_deallocate(data)
endfunction

function Active_A0JN_action takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer target=(GetUnitUserData((GetSpellTargetUnit())))
    local integer i=6
    local real x=GetUnitX((Je[(target)]))
    local real y=GetUnitY((Je[(target)]))
    local real z=60+GetUnitFlyHeight((Je[(target)]))
    local real a=Deg2Rad(GetUnitFacing((Je[(id)])))
    local integer eff=Lnv(GetUnitX((Je[(id)]))-100*Cos(a),GetUnitY((Je[(id)]))-100*Sin(a),a)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=target
    set Boss_Spell_data3[data]=eff
    call UnitDamageTargetBY((((Je[(id)]))),(((Je[(target)]))),(((($96*GetHeroPropertiesByAll(id))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((20)*1.))*1.),(("|c008000cd")))
    set Active_A0JN_Counter1[id]=Active_A0JN_Counter1[id]+1
    set Active_A0JN_Counter2[target]=Active_A0JN_Counter2[target]+1
    if Active_A0JN_Counter1[id]==1 then
        call ModifyUnitMagicDamage(id,9)
    endif
    if Active_A0JN_Counter2[target]==1 then
        call UnitAddAbilityBY((Je[(target)]),'A0JO')
    endif
    call zKv((Kc[id]),$80,$80,125,.45)
    call zhv((Kc[id]),40,.9)
    call LMv(eff,"GrimReaper.mdl")
    call SetUnitScale(II[(eff)],((1.5)*1.),0,0)
    call SetUnitFlyHeight(II[(eff)],((25)*1.),0)
    loop
        set i=i-1
        call Ltv(LIv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x,y,z,1.5,i*Lx/ 6.+GetRandomReal(-.1,.1),GetRandomReal(45,75)))
        exitwhen i==0
    endloop
    call LFv(eff,"s_ShadowEruption_Rain.mdl")
    call Ltv(LAv("ShadowTrap.mdl",x,y,3))
    call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",x,y,3),125,0,$FF,$CD))
    call Ltv(LAv("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",x,y,3))
    call Ltv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,3),0,0,0,$FF))
    call DestroyEffect(AddSpecialEffectTarget("ChaosExplosion.mdx",(Je[(target)]),"origin"))
    call TimerStart(NewTimer(data),$A,false,function Active_A0JN_removebuff)
    call Unit_App_Counter(951,id)
    call Unit_App_Counter(952,target)
endfunction

function Active_A0JN_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0JN',function Active_A0JN_action)
    call SaveReal(BYHT,DroppableTimed,('ratc'),(($96)*1.))
endfunction

function Active_Corruptor_End takes integer id returns nothing
    local integer data
    if Corruptor_Active_Buff[id]!=null then
        set data=Corruptor_Active_Buff[id]
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:577")
        if Corruptor_type[id]=='I0FC' then
            call ModifyUnitAttackSpeed((id),-50)
            call ModifyUnitCrit((id),-25)
        else
            call ModifyUnitAttackSpeed((id),-30)
            call ModifyUnitCrit((id),-20)
        endif
        call ModifyHeroStr((id),-Boss_Spell_data3[data]*Boss_Spell_data2[data])
        call ModifyUnitMagicDamage((id),-Boss_Spell_X[data]*Boss_Spell_data2[data])
        call zJv(Kc[(id)])
        call Unit_Cancel_Counter(953,(id))
        call Boss_Spell_deallocate(data)
        set Corruptor_Active_Buff[id]=0
        set Boss_Spell_timer[data]=null
    endif
endfunction

function Active_Corruptor_Loop_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data=Corruptor_Active_Buff[id]
    local integer abid
    local real h
    if Corruptor_type[id]=='I0FC' then
        set abid='B080'
    else
        set abid='B00C'
    endif
    if GetUnitAbilityLevel((Je[(id)]),abid)>0 then
        set Boss_Spell_data1[data]=Boss_Spell_data1[data]+1
        if Boss_Spell_data1[data]>31 then
            set Boss_Spell_data1[data]=0
            if Boss_Spell_data2[data]<$A then
                set Boss_Spell_data2[data]=Boss_Spell_data2[data]+1
                call ModifyHeroStr((id),Boss_Spell_data3[data])
                call ModifyUnitMagicDamage((id),Boss_Spell_X[data])
                if Corruptor_type[id]=='I0FC' then
                    set Boss_Spell_Y[data]=Boss_Spell_Y[data]+25
                else
                    set Boss_Spell_Y[data]=Boss_Spell_Y[data]+12.5
                endif
            endif
            if Corruptor_type[id]=='I0FC' then
                call DestroyEffect(AddSpecialEffectTarget("ShadowAssault.mdl",(Je[(id)]),"origin"))
                call zKv((Kc[(id)]),$FF,$FF,$FF-20*Boss_Spell_data2[data],1)
            else
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(Je[(id)]),"origin"))
                call zKv((Kc[(id)]),$FF,$FF-20*Boss_Spell_data2[data],$FF-20*Boss_Spell_data2[data],1)
            endif
            call Ltv(LAv("Grin Curse.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1.+.05*Boss_Spell_data2[data]))
            call zhv((Kc[(id)]),$F+2*Boss_Spell_data2[data],.375)
        endif
        set h=GetWidgetLife((Je[(id)]))-Boss_Spell_Y[data]
        if h<.5 then
            set h=.5
            if GetUnitAbilityLevel((Je[(id)]),'B00V')==0 and GetUnitAbilityLevel((Je[(id)]),'Avul')==0 then
                call UnitRemoveAbility((Je[(id)]),abid)
                call Active_Corruptor_End(id)
            endif
        endif
        call SetWidgetLife((Je[(id)]),h)
    else
        call Active_Corruptor_End(id)
    endif
endfunction

function Active_Corruptor_action takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Corruptor_Active_Buff[id]
    if data==null then
        set data=Boss_Spell_allocate()
        set Corruptor_Active_Buff[id]=data
        set Boss_Spell_timer[data]=NewTimer(id)
        set Boss_Spell_data1[data]=0
        set Boss_Spell_data2[data]=0
        if Corruptor_type[id]=='I0FC' then
            set Boss_Spell_X[data]=2
            set Boss_Spell_data3[data]=125
            set Boss_Spell_Y[data]=25
            call ModifyUnitAttackSpeed((id),50)
            call ModifyUnitCrit((id),25)
        else
            set Boss_Spell_X[data]=1.5
            if Corruptor_type[id]=='I0DU' then
                set Boss_Spell_data3[data]=$A5
            else
                set Boss_Spell_data3[data]=75
            endif
            set Boss_Spell_Y[data]=50
            call ModifyUnitAttackSpeed((id),30)
            call ModifyUnitCrit((id),20)
        endif
        call zKv(Kc[(id)],$FF,$FF,$FF,1)
        call TimerStart(Boss_Spell_timer[data],.03125,true,function Active_Corruptor_Loop_c)
        call Unit_App_Counter(954,(id))
    endif
    return false
endfunction

function Active_Corruptor_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0HN',function Active_Corruptor_action)
    call RegisterSpellEffectEvent('A0VQ',function Active_Corruptor_action)
endfunction

function s__HellDemon_end takes integer this returns nothing
    set s__HellDemon_next[s__HellDemon_last[this]]=s__HellDemon_next[this]
    set s__HellDemon_last[s__HellDemon_next[this]]=s__HellDemon_last[this]
    if s__HellDemon_next[(0)]==(0)then
        call frv(s__HellDemon_func)
    endif
endfunction

function s__HellDemon_loop_c takes nothing returns nothing
    local integer this=s__HellDemon_next[(0)]
    local unit u
    local integer p
    local real x
    local real y
    local real d
    loop
        exitwhen this==(0)
        if UnitAlive((Je[(this)]))then
            set s__HellDemon_num[this]=s__HellDemon_num[this]+1
            if ModuloInteger(s__HellDemon_num[this],8)==0 then
                set p=GetRandomInt(1,5)
                if p<3 then
                    call ModifyUnitAttack((this),$96)
                elseif p<5 then
                    call ModifyUnitArmor((this),$C)
                elseif ModuloInteger(s__HellDemon_num[this],16)==0 then
                    set x=GetUnitX((Je[(this)]))
                    set y=GetUnitY((Je[(this)]))
                    set d=5*GetHeroState3((Je[(s__HellDemon_summoner[this])]),true)
                    call GroupEnumUnitsInRange(G,x,y,256+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,256)then
                            if IsUnitAliveAndEnemy(u,(Je[(this)]))then
                                call UnitDamageTargetBY((((Je[(s__HellDemon_summoner[this])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        endif
                    endloop
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.5),$FF,$9B,$9B,$9B))
                    call SetWidgetLife((Je[(this)]),GetWidgetLife((Je[(this)]))+.2*d)
                endif
                call SetUnitVertexColor((Je[(this)]),GetRandomInt(0,125),GetRandomInt(0,125),GetRandomInt(0,125),$9B)
            endif
        else
            call Unit_Cancel_Counter(955,s__HellDemon_summoner[this])
            call Unit_Cancel_Counter(956,this)
            call s__HellDemon_end(this)
        endif
        set this=s__HellDemon_next[this]
    endloop
endfunction

function s__HellDemon_onInit takes nothing returns nothing
    set s__HellDemon_func=fxv(function s__HellDemon_loop_c)
endfunction

function s__HellDemon_start takes integer this returns integer
    if s__HellDemon_next[(0)]==(0)then
        call fov(s__HellDemon_func)
    endif
    set s__HellDemon_next[this]=s__HellDemon_next[(0)]
    set s__HellDemon_last[this]=(0)
    set s__HellDemon_last[s__HellDemon_next[this]]=this
    set s__HellDemon_next[(0)]=this
    return this
endfunction

function s__HellDemon_attack_action takes nothing returns nothing
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    local real a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
    local real d=.75*(DAK_AMOUNT[HF])
    local unit u=(MF)
    set x=x-40*Cos(a)
    set y=y-40*Sin(a)
    call GroupEnumUnitsInRange(G,x,y,256+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,256)then
            if IsUnitAliveAndEnemy(u,(mF))and(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((a)*1.))>=Cos(((1.8326)*1.)))then
                call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"chest"))
            endif
        endif
    endloop
endfunction

function s__HellDemon_create takes integer s,real x,real y returns integer
    local integer this
    local integer id
    if GetRandomInt(1,4)==1 then
        set id='nfgu'
    elseif GetRandomInt(1,2)==1 then
        set id='npfl'
    else
        set id='nvdw'
    endif
    set this=(GetUnitUserData((CreateUnit(GetOwningPlayer((Je[(s)])),id,x,y,GetRandomReal(0,359)))))
    set s__HellDemon_summoner[this]=s
    set s__HellDemon_num[this]=0
    if id=='nfgu' then
        call UnitAddPAttackTrig((this),function s__HellDemon_attack_action)
    elseif id=='npfl' then
        call ModifyUnitCrit((this),25)
    else
        call ModifyUnitDodge((this),25)
    endif
    call DestroyEffect(AddSpecialEffectTarget("DeathBladeRegeneration.mdl",(Je[(this)]),"origin"))
    call UnitApplyTimedLife((Je[(this)]),'Bply',40)
    call SetUnitVertexColor((Je[(this)]),125,125,125,$9B)
    call Unit_App_Counter(957,s)
    call Unit_App_Counter(958,this)
    call s__HellDemon_start(this)
    return this
endfunction

function Active_A0A7_action_c takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:578")
    call ModifyHeroInt(id,333)
    call Unit_Cancel_Counter(959,id)
endfunction

function Active_A0A7_action_b takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:579")
    local integer id=(GetUnitUserData((Boss_Spell_unit1[data])))
    local integer i=Boss_Spell_data2[data]
    local real x=(GetUnitX(II[(Boss_Spell_data1[data])]))
    local real y=(GetUnitY(II[(Boss_Spell_data1[data])]))
    local real a
    if id!=null then
        loop
            exitwhen i==0
            set i=i-1
            set a=i*Lx/ Boss_Spell_data2[data]+GetRandomReal(-.15,.15)
            call s__HellDemon_create(id,x+$80*Cos(a),y+$80*Sin(a))
        endloop
    endif
    call zhv((Kc[((id))]),75,1)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",x,y,5),$FF,55,55,$FF))
    call Ltv(Boss_Spell_data1[data])
    call Boss_Spell_deallocate(data)
    set Boss_Spell_unit1[data]=null
endfunction

function Active_A0A7_action takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=16
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    loop
        set i=i-1
        call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",x+$FA*Cos(i*Lx/ 16),y+$C8*Sin(i*Lx/ 16),1.5))
        exitwhen i==0
    endloop
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_data1[data]=LNv("Void.mdl",x,y,25,1.5)
    if GetSpellAbilityId()=='A0A7' then
        set Boss_Spell_data2[data]=4
        call ModifyHeroInt((id),-333)
        call Unit_App_Counter(960,id)
        call TimerStart(NewTimer(id),100,false,function Active_A0A7_action_c)
    elseif GetSpellAbilityId()=='A07P' then
        set Boss_Spell_data2[data]=6
    elseif GetSpellAbilityId()=='A0TE' then
        set Boss_Spell_data2[data]=8
    endif
    call TimerStart(NewTimer(data),1.5,false,function Active_A0A7_action_b)
endfunction

function Active_A0A7_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0A7',function Active_A0A7_action)
    call RegisterSpellEffectEvent('A07P',function Active_A0A7_action)
    call RegisterSpellEffectEvent('A0TE',function Active_A0A7_action)
    call SaveReal(BYHT,DroppableTimed,('ches'),((100)*1.))
    call SaveReal(BYHT,DroppableTimed,('rump'),((100)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0E4'),((100)*1.))
endfunction

function s__A0DW_kill takes integer this returns nothing
    call UnitRemoveAbilityandBuffBY(c4v(this),'A0DY','BNmr')
    call s__Trig_remove(s__A0DW_soul_t[this])
    call DestroyEffectBY(s__A0DW_soul_eff[this])
    call Lsv(s__A0DW_soul_model[this],.75)
    set s__A0DW_soul_life[this]=0
endfunction

function s__A0DW_dealloc takes integer this returns nothing
    if s__A0DW_soul_use[this]then
        set s__A0DW_FL[s__A0DW_FR[this]]=s__A0DW_FL[this]
        set s__A0DW_FR[s__A0DW_FL[this]]=s__A0DW_FR[this]
        set s__A0DW_soul_use[this]=false
        if s__A0DW_FR[(0)]==0 then
            call frv(s__A0DW_func)
        endif
        call s__A0DW_kill(this)
        call Unit_Cancel_Counter(961,(this))
    endif
endfunction

function s__A0DW_loop_c takes nothing returns boolean
    local integer this=s__A0DW_FR[(0)]
    local unit u
    local real x
    local real y
    local real d
    loop
        exitwhen this==0
        if UnitAlive((Je[(this)]))then
            set s__A0DW_soul_timed[this]=s__A0DW_soul_timed[this]-1
            set x=GetUnitX((Je[(this)]))
            set y=GetUnitY((Je[(this)]))
            call LKv(s__A0DW_soul_model[this],x)
            call Llv(s__A0DW_soul_model[this],y)
            call SetUnitFacing(II[(s__A0DW_soul_model[this])],((bj_DEGTORAD*GetUnitFacing((Je[(this)])))*1.)*bj_RADTODEG)
        else
            set s__A0DW_soul_timed[this]=0
        endif
        call Lfv(s__A0DW_soul_model[this],0,0,$FF,R2I($FF-s__A0DW_soul_timed[this]/ 2))
        if s__A0DW_soul_timed[this]<1 then
            call s__A0DW_dealloc(this)
        endif
        set this=s__A0DW_FR[this]
    endloop
    return false
endfunction

function s__A0DW_start takes integer this returns boolean
    if not s__A0DW_soul_use[this]then
        if s__A0DW_FR[(0)]==0 then
            if s__A0DW_func==0 then
                set s__A0DW_func=fxv(function s__A0DW_loop_c)
            endif
            call fov(s__A0DW_func)
        endif
        set s__A0DW_FR[this]=s__A0DW_FR[(0)]
        set s__A0DW_FL[this]=(0)
        set s__A0DW_FL[s__A0DW_FR[(0)]]=this
        set s__A0DW_FR[(0)]=this
        set s__A0DW_soul_use[this]=true
        call Unit_App_Counter(962,(this))
        return true
    endif
    return false
endfunction

function s__A0DW_onShield takes nothing returns nothing
    local integer this=(pF)
    local real damage=GetDamage()
    if damage>0 then
        if s__A0DW_soul_life[this]>damage then
            set s__A0DW_soul_life[this]=s__A0DW_soul_life[this]-damage
            set KF[HF]=PF+1000000.
        else
            call DamageMinus(s__A0DW_soul_life[this])
            call s__A0DW_dealloc(this)
        endif
    endif
endfunction

function s__A0DW_Active_skills takes nothing returns nothing
    local integer this=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(this)]))
    local real y=GetUnitY((Je[(this)]))
    if s__A0DW_start(this)then
        set s__A0DW_soul_t[this]=UnitAddShieldTrigB((this),function s__A0DW_onShield)
        set s__A0DW_soul_model[this]=Lnv(x,y,bj_DEGTORAD*GetUnitFacing((Je[(this)])))
        call LMv(s__A0DW_soul_model[this],"units\\undead\\Shade\\Shade.mdl")
        call SetUnitScale(II[(s__A0DW_soul_model[this])],((2)*1.),0,0)
        set s__A0DW_soul_eff[this]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl"),(II[s__A0DW_soul_model[this]]),("origin"))))
        call UnitAddAbilityBY((Je[(this)]),'A0DY')
    else
        call LKv(s__A0DW_soul_model[this],x)
        call Llv(s__A0DW_soul_model[this],y)
        call SetUnitFacing(II[(s__A0DW_soul_model[this])],((bj_DEGTORAD*GetUnitFacing((Je[(this)])))*1.)*bj_RADTODEG)
    endif
    set s__A0DW_soul_timed[this]=256
    set s__A0DW_soul_life[this]=1.2*GetUnitState((Je[(this)]),UNIT_STATE_MAX_MANA)+5.*GetHeroState3((Je[(this)]),true)
    call Lfv(s__A0DW_soul_model[this],0,0,$FF,125)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,1),0,0,$FF,$FF))
    call Ltv(Lfv(LAv("IceNova.mdl",x,y,.3),0,0,$FF,$FF))
endfunction

function s__A0DW_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0DW',function s__A0DW_Active_skills)
    call SaveReal(BYHT,DroppableTimed,('I0B4'),((75)*1.))
    call Luv('A0DW')
endfunction

function s__A0IN_Alloc takes nothing returns integer
    return D9v(s__A0IN_func)
endfunction

function s__A0IN_Recycle takes integer this returns nothing
    call fvv(this)
endfunction

function s__A0IN_loop_c takes nothing returns nothing
    local integer this=J[s__A0IN_func]
    local integer data
    local unit u
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen 0==this
        set s__A0IN_count[this]=s__A0IN_count[this]-1
        set data=s__A0IN_vessel[this]
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        call LKv(Boss_Spell_data3[data],x+400*Cos(Lx*s__A0IN_count[this]/ 24.))
        call Llv(Boss_Spell_data3[data],y+400*Sin(Lx*s__A0IN_count[this]/ 24.))
        if ModuloInteger(s__A0IN_count[this],8)==0 then
            call GroupEnumUnitsInRange(G,x,y,400+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,400)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ZigguratFrostMissile\\ZigguratFrostMissile.mdl",u,"chest"))
                        call UnitAppBuff((GetUnitUserData((u))),'ACfn',$D0102)
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            if ModuloInteger(s__A0IN_count[this],16)==0 then
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(50,350)
                set x=x+d*Cos(a)
                set y=y+d*Sin(a)
                call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$FA)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((4*Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call pmv(u,1)
                        endif
                    endif
                endloop
                call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,2.25),1.25)
                call Lqv(LAv("Shiva'sWrath.mdl",x,y,2.5),1.25)
            endif
        endif
        if s__A0IN_count[this]<1 then
            call Unit_Cancel_Counter(963,Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data3[data])
            call Ltv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            set Boss_Spell_unit1[data]=null
            call fvv((this))
        endif
        set this=K[this]
    endloop
endfunction

function s__A0IN_actions takes nothing returns nothing
    local integer this=(D9v(s__A0IN_func))
    local integer data=Boss_Spell_allocate()
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local unit u
    set s__A0IN_vessel[this]=data
    set s__A0IN_count[this]=$80
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=LAv("FreezingPrison.mdl",x,y,5)
    set Boss_Spell_data3[data]=Lnv(x+400,y,0)
    set Boss_Spell_X[data]=100./ 56.*GetHeroState3(Boss_Spell_unit1[data],true)
    call LMv(Boss_Spell_data3[data],"Abilities\\Weapons\\ZigguratFrostMissile\\ZigguratFrostMissile.mdl")
    call SetUnitScale(II[(Boss_Spell_data3[data])],((4)*1.),0,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],((50)*1.),0)
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((8*Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call pmv(u,2.5)
            endif
        endif
    endloop
    call Ltv(LAv("FrostNova.mdl",x,y,1.25))
    call Ltv(Lfv(LAv("AncientExplode.mdx",x,y,3),0,0,$9B,$9B))
    call zhv((Kc[(Boss_Spell_data1[data])]),25,.5)
    call Unit_App_Counter(964,Boss_Spell_data1[data])
endfunction

function s__A0IN_onInit takes nothing returns nothing
    set s__A0IN_func=fxv(function s__A0IN_loop_c)
    call RegisterSpellEffectEvent('A0IN',function s__A0IN_actions)
endfunction

function s__A0II_Alloc takes nothing returns integer
    return D9v(s__A0II_func)
endfunction

function s__A0II_Recycle takes integer this returns nothing
    call fvv(this)
endfunction

function s__A0II_loop_c takes nothing returns nothing
    local integer this=J[s__A0II_func]
    local integer data
    local unit u
    local real x
    local real y
    local real r
    loop
        exitwhen 0==this
        set data=s__A0II_vessel[this]
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        if Boss_Spell_data2[data]>=96 then
            set r=1.-(Boss_Spell_data2[data]-96.)/ 32.
            call SetUnitScale(II[(Boss_Spell_data3[data])],((1+r)*1.),0,0)
            call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],(($C8*r*r)*1.),0)
            call Lfv(Boss_Spell_data3[data],$FF,$FF,$FF,R2I($FF*r))
        elseif ModuloInteger(Boss_Spell_data2[data],24)==0 then
            set x=(GetUnitX(II[(Boss_Spell_data3[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data3[data])]))
            if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(Boss_Spell_data1[data])]],('I0DI')))and Boss_Spell_data2[data]<1 then
                call GroupEnumUnitsInRange(G,x,y,525+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,525)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((6*Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A0PA',$D00CB)
                            call m2v(u,1.5,'A500','B500',true)
                        elseif IsUnitAllyNotbag(u,Boss_Spell_unit1[data])then
                            call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Items\\AIhe\\AIheTarget.mdl",u,"origin",1.75)
                            call UnitCureTaret(null,u,5000+.25*GetUnitMaxLifeById((GetUnitUserData((u)))))
                        endif
                    endif
                endloop
                call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,2.25),$9B,$FF,$9B,125))
                call Ltv(LAv("ForestBolt.mdl",x,y,3.75))
            else
                call GroupEnumUnitsInRange(G,x,y,525+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,525)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A0PA',$D00CB)
                        elseif IsUnitAllyNotbag(u,Boss_Spell_unit1[data])then
                            call UnitCureTaret(null,u,$4E2+.075*GetUnitMaxLifeById((GetUnitUserData((u)))))
                            call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Items\\AIhe\\AIheTarget.mdl",u,"origin",1.75)
                        endif
                    endif
                endloop
                call Ltv(LNv("EarthNova.mdl",x,y,(GetUnitFlyHeight(II[(Boss_Spell_data3[data])])),.875))
            endif
            if Boss_Spell_data2[data]<1 then
                call Unit_Cancel_Counter(965,Boss_Spell_data1[data])
                call Lsv(Boss_Spell_data3[data],.5)
                call Boss_Spell_deallocate(data)
                set Boss_Spell_unit1[data]=null
                call fvv((this))
            endif
        endif
        set this=K[this]
    endloop
endfunction

function s__A0II_actions takes nothing returns nothing
    local integer this=(D9v(s__A0II_func))
    local integer data=Boss_Spell_allocate()
    set s__A0II_vessel[this]=data
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data3[data]=Lnv(GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),0)
    call LMv(Boss_Spell_data3[data],"EmeraldCore.mdl")
    set Boss_Spell_data2[data]=$80
    set Boss_Spell_X[data]=12.5*GetHeroState3(Boss_Spell_unit1[data],true)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Items\\TomeOfRetraining\\TomeOfRetrainingCaster.mdl",(GetUnitX(II[(Boss_Spell_data3[data])])),(GetUnitY(II[(Boss_Spell_data3[data])])),2.5),55,$FF,55,$FF))
    call Lfv(Boss_Spell_data3[data],$FF,$FF,$FF,0)
    call Unit_App_Counter(966,Boss_Spell_data1[data])
endfunction

function s__A0II_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0II',function s__A0II_actions)
    call SaveReal(BYHT,DroppableTimed,('I0DH'),((75)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0DI'),((75)*1.))
    set s__A0II_func=fxv(function s__A0II_loop_c)
endfunction

function Active_A094_Action takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u=GetSpellTargetUnit()
    local integer i=Equip_gobm_Remove((GetUnitUserData((u))))
    local real x
    local real y
    if i==0 then
        call IssueUnitStop_DisplayText(c,"Can not be reused")
    else
        set x=GetUnitX(u)
        set y=GetUnitY(u)
        if i>4 then
            call Ltv(Lfv(LAv("CenarionFury.mdl",x,y,3),0,$9B,0,$FF))
            call Ltv(LAv("DesecrateGreen.mdl",x,y,2))
            call zKv((Kc[(GetUnitUserData((c)))]),125,$FF,125,1)
            call zhv((Kc[(GetUnitUserData((c)))]),50,1)
        endif
        call UnitDamageTargetBY(((c)),((u)),((((8.5*i*GetHeroState2(c,true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A+.5*i)*1.))*1.),(("|c002d8017")))
        call Ltv(Lfv(LAv("CenarionFury.mdl",x,y,1.5),0,$9B,0,$FF))
        call DestroyEffect(AddSpecialEffectTarget("CurseBoltGreen.mdl",u,"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ChimaeraAcidMissile\\ChimaeraAcidMissile.mdl",u,"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ChimaeraAcidMissile\\ChimaeraAcidMissile.mdl",u,"chest"))
    endif
    set c=null
    set u=null
endfunction

function Active_A094_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A094',function Active_A094_Action)
    call SaveReal(BYHT,DroppableTimed,('gobm'),((100)*1.))
endfunction

function s__A0R0_removebuff takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:580")
    if s__A0R0_buff_atk[this]==0 then
        call HeroAddExtraAgi((this),-s__A0R0_buff_agi[this])
        call ModifyUnitCrit((this),-$A)
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0CI','Bbar')
    else
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0R1','B06F')
        call s__Trig_remove((s__A0R0_buff_atk[this]))
    endif
    call Unit_Cancel_Counter(967,(this))
    set s__A0R0_buff_timer[this]=null
endfunction

function s__A0R0_onattack takes nothing returns nothing
    local integer this=(pF)
    local real m=GetUnitState((MF),UNIT_STATE_MAX_LIFE)
    local real damage=GetDamage()
    if(mF)!=(MF)and damage>.1*m then
        if damage>m then
            set s__A0R0_buff_agi[this]=R2I(.3*GetHeroAgiNotExtra((this)))
            call UnitDamageTargetBY((((MF))),(((mF))),((((2*m)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00b1f8a5")))
        else
            set s__A0R0_buff_agi[this]=R2I((.15+.15*damage/ m)*GetHeroAgiNotExtra((this)))
            call UnitDamageTargetBY((((MF))),(((mF))),((((2*damage)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00b1f8a5")))
        endif
        if s__A0R0_buff_agi[this]>$4E2 then
            set s__A0R0_buff_agi[this]=$4E2
        endif
        call DestroyEffect(AddSpecialEffectTarget("CurseBoltGreen.mdl",(MF),"chest"))
        call NewTextTagInTarget_B((MF),"|c0080ff80BLOCK ("+I2S(R2I(GetDamage()))+")",$F,$FF,$FF,$FF)
        call Ltv(LAv("DesecrateGreen.mdl",GetUnitX((MF)),GetUnitY((MF)),.875))
        call m1v((mF),7.5)
        set KF[HF]=PF+1000000.
        call PlaySoundOnUnit_BJ((s__A0R0_snd_SargerasLaugh),((125)*1.),((MF)))
        call UnitRemoveAbilityandBuffBY((MF),'A0R1','B06F')
        call UnitAddAbilityBY((MF),'A0CI')
        call HeroAddExtraAgi((this),s__A0R0_buff_agi[this])
        call ModifyUnitCrit((this),$A)
        call zhv((Kc[((this))]),40,.5)
        call zKv((Kc[((this))]),$CD,$FF,$CD,.27)
        call TimerStart(s__A0R0_buff_timer[this],$F,false,function s__A0R0_removebuff)
        call s__Trig_remove((s__A0R0_buff_atk[this]))
        set s__A0R0_buff_atk[this]=0
    endif
endfunction

function s__A0R0_actions takes nothing returns nothing
    local integer this=(GetUnitUserData((GetTriggerUnit())))
    set s__A0R0_buff_atk[this]=UnitAddBeDamagerTrigB((this),function s__A0R0_onattack)
    set s__A0R0_buff_timer[this]=NewTimer(this)
    set s__A0R0_buff_agi[this]=0
    call UnitAddAbilityBY((Je[(this)]),'A0R1')
    call TimerStart(s__A0R0_buff_timer[this],6,false,function s__A0R0_removebuff)
    call Unit_App_Counter(968,(this))
endfunction

function s__A0R0_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0R0',function s__A0R0_actions)
    call SaveReal(BYHT,DroppableTimed,('rat3'),((105)*1.))
    set s__A0R0_snd_SargerasLaugh=CreateSound_BJ("Sound\\Ambient\\DoodadEffects\\SargerasLaugh.wav",false,true,true,$A,$A,"DefaultEAXON")
    call SetSoundParamsFromLabel_BJ(s__A0R0_snd_SargerasLaugh,"SargerasLaugh")
    call SetSoundDuration_BJ(s__A0R0_snd_SargerasLaugh,$CFE)
endfunction

function Active_A0FC_Removebuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:581")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0HU','B01F')
    call ModifyUnitHP((id),-$4E20)
    call ModifyUnitMP((id),-7500)
    call Unit_Cancel_Counter(969,(id))
endfunction

function Active_A0FC_Addbuff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if UnitAddAbilityBY((Je[(id)]),'A0HU')then
        call ModifyUnitHP((id),$4E20)
        call ModifyUnitMP((id),7500)
        call TimerStart(NewTimer(id),$F,true,function Active_A0FC_Removebuff)
        call Unit_App_Counter(970,(id))
    endif
endfunction

function Active_A0FC_Action takes nothing returns nothing
    local unit u=GetTriggerUnit()
    call Active_A0FC_Addbuff(u)
    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",u,"origin"))
    call PlaySoundOnUnit_BJ((hn),((125)*1.),(u))
    set u=null
endfunction

function Active_A0FC_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0FC',function Active_A0FC_Action)
    call SaveReal(BYHT,DroppableTimed,('I0CP'),(($B4)*1.))
endfunction

function s__A0RL_remove takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:582")
    if s__A0RL_bufftimer[this]!=null then
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0RK','B06O')
        call DeUnitAdef((this),s__A0RL_Aurabuff[this])
        call Unit_Cancel_Counter(971,(this))
        set s__A0RL_Aurabuff[this]=0
        set s__A0RL_bufftimer[this]=null
    endif
endfunction

function s__A0RL_addbuff takes unit u returns nothing
    local integer this=(GetUnitUserData((u)))
    if s__A0RL_bufftimer[this]==null then
        set s__A0RL_bufftimer[this]=NewTimer(this)
        set s__A0RL_Aurabuff[this]=ModifyUnitAdef((this),30.)
        call UnitAddAbilityBY(u,'A0RK')
        call Unit_App_Counter(972,(this))
    endif
    call TimerStart(s__A0RL_bufftimer[this],1,false,function s__A0RL_remove)
endfunction

function s__A0RL_Recycle takes integer this returns nothing
    if s__A0RL_AuraUnit[this]!=null then
        set s__A0RL_AuraUnit[this]=0
        set s__A0RL_FR[s__A0RL_FL[this]]=s__A0RL_FR[this]
        set s__A0RL_FL[s__A0RL_FR[this]]=s__A0RL_FL[this]
        if s__A0RL_FR[(0)]==(0)then
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:583")
        endif
    endif
endfunction

function s__A0RL_loop_c takes nothing returns nothing
    local integer this=s__A0RL_FR[(0)]
    local unit u
    local real x
    local real y
    loop
        exitwhen(0)==this
        if UnitAlive((Je[(s__A0RL_AuraUnit[this])]))and s__A0RL_AuraDuration[this]>1 then
            set s__A0RL_AuraDuration[this]=s__A0RL_AuraDuration[this]-1
            set x=GetUnitX((Je[(s__A0RL_AuraUnit[this])]))
            set y=GetUnitY((Je[(s__A0RL_AuraUnit[this])]))
            call LKv(s__A0RL_AuraModelA[this],x)
            call Llv(s__A0RL_AuraModelA[this],y)
            call LKv(s__A0RL_AuraModelB[this],x)
            call Llv(s__A0RL_AuraModelB[this],y)
            if ModuloInteger(s__A0RL_AuraDuration[this],R2I(32*.25))==0 then
                call GroupEnumUnitsInRange(G,x,y,s__A0RL_Range+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,s__A0RL_Range)then
                        if IsUnitAllyNotbag(u,(Je[(s__A0RL_AuraUnit[this])]))then
                            call s__A0RL_addbuff(u)
                        endif
                    endif
                endloop
            endif
        else
            set s__A0RL_AuraDuration[this]=0
        endif
        if s__A0RL_AuraDuration[this]<1 then
            call ModifyUnitHP(s__A0RL_AuraUnit[this],-$C350)
            call ModifyUnitMP(s__A0RL_AuraUnit[this],-$4E20)
            call Unit_Cancel_Counter(973,s__A0RL_AuraUnit[this])
            call Ltv(s__A0RL_AuraModelA[this])
            call Ltv(s__A0RL_AuraModelB[this])
            call s__A0RL_Recycle(this)
        endif
        set this=s__A0RL_FR[this]
    endloop
endfunction

function s__A0RL_Alloc takes integer this returns boolean
    if s__A0RL_AuraUnit[this]==null then
        if s__A0RL_FR[(0)]==(0)then
            call TimerStart((NewTimer(0)),.03125,true,function s__A0RL_loop_c)
        endif
        set s__A0RL_FR[this]=s__A0RL_FR[(0)]
        set s__A0RL_FL[this]=(0)
        set s__A0RL_FL[s__A0RL_FR[(0)]]=this
        set s__A0RL_FR[(0)]=this
        set s__A0RL_AuraUnit[this]=this
        return true
    endif
    return false
endfunction

function s__A0RL_actions takes nothing returns nothing
    local integer this=(GetUnitUserData((GetTriggerUnit())))
    if this>0 and s__A0RL_Alloc(this)then
        set s__A0RL_AuraModelA[this]=LAv("GreenChakra.mdl",GetUnitX((Je[(s__A0RL_AuraUnit[this])])),GetUnitY((Je[(s__A0RL_AuraUnit[this])])),3)
        set s__A0RL_AuraModelB[this]=LAv("EarthlyEminence.mdl",(GetUnitX(II[(s__A0RL_AuraModelA[this])])),(GetUnitY(II[(s__A0RL_AuraModelA[this])])),4)
        set s__A0RL_AuraDuration[this]=R2I(32*15.)
        call Ltv(LAv("NatureWave.mdl",(GetUnitX(II[(s__A0RL_AuraModelA[this])])),(GetUnitY(II[(s__A0RL_AuraModelA[this])])),2))
        call ModifyUnitHP(s__A0RL_AuraUnit[this],$C350)
        call ModifyUnitMP(s__A0RL_AuraUnit[this],$4E20)
        call Unit_App_Counter(974,s__A0RL_AuraUnit[this])
    endif
endfunction

function s__A0RL_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0RL',function s__A0RL_actions)
    call SaveReal(BYHT,DroppableTimed,('esaz'),((125)*1.))
endfunction

function Summon_h00L_onAttack takes nothing returns boolean
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local unit u
    call GroupEnumUnitsInRange(G2,x,y,675,null)
    call GroupRemoveUnit(G2,(MF))
    loop
        set u=FirstOfGroup(G2)
        exitwhen u==null
        call GroupRemoveUnit(G2,u)
        if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndEnemy(u,(mF))then
            call UnitDamageTargetBY((((mF))),((u)),((((GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        endif
    endloop
    call Ltv(LAv("FireNova.mdl",x,y,1.25))
    return false
endfunction

function Summon_h00L_Init takes nothing returns nothing
    set bj_lastCreatedUnit=GetSummonedUnit()
endfunction

function Active_A0CZ_SpellChannel takes nothing returns nothing
    call Ltv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",GetSpellTargetX(),GetSpellTargetY(),2))
endfunction

function Active_A0CZ_SpellEffect takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer id
    local integer i=5
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real d=30*GetHeroState3(c,true)
    local real a
    call GroupEnumUnitsInRange(G,x,y,675,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndEnemy(u,c)then
            call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call m1v(u,1)
        endif
    endloop
    loop
        set i=i-1
        set a=Lx*i/ 5
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x+350*Cos(a),y+350*Sin(a),2))
        call Lqv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x+350*Cos(a),y+350*Sin(a),2.5),7.5)
        exitwhen i==0
    endloop
    call Ltv(LAv("FireNova.mdx",x,y,1.5))
    call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,2))
    call Lqv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x,y,5),7.5)
    call zhv((GetPlayerId((GetOwningPlayer(c)))),40,.5)
    set bj_lastCreatedUnit=null
    call Auxiliary_PointOrder(('A0D3'),GetOwningPlayer(c),1,$D0108,x,y)
    if bj_lastCreatedUnit!=null then
        set id=(GetUnitUserData((bj_lastCreatedUnit)))
        call SummonedUnitSetMaster(id,(GetUnitUserData((c))))
        call UnitAddPAttackTrig(id,function Summon_h00L_onAttack)
        call ModifyUnitHP(id,5*GetHeroState3(c,true))
    endif
    set c=null
endfunction

function Active_A0IU_SpellEffect_c takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:584")
    local integer master=Boss_Spell_data1[data]
    local integer fx=Boss_Spell_data2[data]
    local real x=(GetUnitX(II[((fx))]))
    local real y=(GetUnitY(II[((fx))]))
    local real d=Boss_Spell_Z[data]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,325,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$FA)and IsUnitAliveAndEnemy(u,(Je[(master)]))then
            call UnitDamageTargetBY((((Je[(master)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call m1v(u,1)
        endif
    endloop
    call zhv(Boss_Spell_data3[data],30,.5)
    call Ltv((fx))
    call Unit_Cancel_Counter(975,master)
    call Boss_Spell_deallocate(data)
endfunction

function Active_A0IU_SpellEffect takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer master=(Master[((GetUnitUserData((GetTriggerUnit()))))])
    local integer fx=LAv("MeteorStrike.mdx",GetSpellTargetX(),GetSpellTargetY(),.75)
    local real d=30*GetHeroState3((Je[(master)]),true)
    if d<$7530 then
        set d=$7530
    endif
    set Boss_Spell_data1[data]=master
    set Boss_Spell_data2[data]=fx
    set Boss_Spell_data3[data]=GetPlayerId(GetTriggerPlayer())
    set Boss_Spell_Z[data]=d
    call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",GetSpellTargetX(),GetSpellTargetY(),1.25),.5)
    call TimerStart(NewTimer(data),.75,false,function Active_A0IU_SpellEffect_c)
    call Unit_App_Counter(976,master)
endfunction

function Active_A0IU_Init takes nothing returns nothing
    call RegisterSummonEvent('h00L',function Summon_h00L_Init)
    call RegisterSpellChannelEvent('A0CZ',function Active_A0CZ_SpellChannel)
    call RegisterSpellEffectEvent('A0CZ',function Active_A0CZ_SpellEffect)
    call RegisterSpellEffectEvent('A0IU',function Active_A0IU_SpellEffect)
    call SaveReal(BYHT,DroppableTimed,('I092'),(($B4)*1.))
endfunction

function Active_A0JX_removebuff takes integer id returns nothing
    if Active_A0JX_App_matk[id]then
        set Active_A0JX_App_matk[id]=false
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0JU','B03N')
        call ModifyUnitMagicDamage((id),-$A)
    endif
    if Active_A0JX_App_def[id]then
        set Active_A0JX_App_def[id]=false
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0JV','B03O')
        call DeUnitAdef((id),Active_A0JX_Adef[id])
    endif
    if Active_A0JX_App_regen[id]then
        set Active_A0JX_App_regen[id]=false
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0JW','B03P')
    endif
endfunction

function Active_A0JX_Addbuff takes integer id,integer i returns nothing
    local boolean a=i==1 or i==4
    local boolean b=i==2 or i==4
    local boolean c=i==3 or i==4
    local string s=""
    set Active_A0JX_duration[id]=8
    if a and not Active_A0JX_App_matk[id]then
        set Active_A0JX_App_matk[id]=true
        set s="|c00ff8080+10% Skill damage"
        call UnitAddAbilityBY((Je[(id)]),'A0JU')
        call ModifyUnitMagicDamage((id),$A)
    endif
    if b and not Active_A0JX_App_def[id]then
        set Active_A0JX_App_def[id]=true
        set Active_A0JX_Adef[id]=ModifyUnitAdef((id),16)
        if s=="" then
            set s="|c00adb3f5+16% Damage reduction"
        else
            set s=s+"
            |c00adb3f5+16% 减伤"

        endif
        call UnitAddAbilityBY((Je[(id)]),'A0JV')
    endif
    if c and not Active_A0JX_App_regen[id]then
        set Active_A0JX_App_regen[id]=true
        if s=="" then
            set s="|c0080ff80+Regeneration"
        else
            set s=s+"
            |c0080ff80+恢复速度"

        endif
        call UnitAddAbilityBY((Je[(id)]),'A0JW')
    endif
    call NewTextTagInTarget_B((Je[(id)]),s,9,$FF,$FF,$FF)
    call TimerStart(Active_A0JX_Timer[id],1,true,Active_A0JX_Loop_Func)
endfunction

function Active_A0JX_Loop_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))then
        set Active_A0JX_duration[id]=Active_A0JX_duration[id]-1
        if Active_A0JX_App_regen[id]then
            call UnitCureTaret((Je[(id)]),(Je[(id)]),.2*GetHeroPropertiesByAll((id)))
        endif
        if Active_A0JX_duration[id]<1 then
            call Active_A0JX_removebuff(id)
            call Active_A0JX_Addbuff(id,GetRandomInt(1,3))
        endif
    else
        set Active_A0JX_duration[id]=8
        call Active_A0JX_removebuff(id)
    endif
endfunction

function Active_A0JX_App takes integer id returns nothing
    set Active_A0JX_count[id]=Active_A0JX_count[id]+1
    if Active_A0JX_count[id]==1 and Active_A0JX_Timer[id]==null then
        set Active_A0JX_Timer[id]=NewTimer(id)
        set Active_A0JX_duration[id]=8
        call TimerStart(Active_A0JX_Timer[id],1,true,Active_A0JX_Loop_Func)
        call Unit_App_Counter(977,(id))
    endif
endfunction

function Active_A0JX_Cancel takes integer id returns nothing
    set Active_A0JX_count[id]=Active_A0JX_count[id]-1
    if Active_A0JX_count[id]==0 and Active_A0JX_Timer[id]!=null then
        call ReleaseTimer(Active_A0JX_Timer[id],"[TimerUtils]Error:585")
        call Active_A0JX_removebuff(id)
        call Unit_Cancel_Counter(978,(id))
        set Active_A0JX_Timer[id]=null
    endif
endfunction

function Active_A0JX_onSpellEffect takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    if Active_A0JX_Timer[id]!=null then
        call Active_A0JX_Addbuff(id,4)
    endif
    call zhv((Kc[(id)]),50,.5)
    call Ltv(LAv("BlackChakraExplosion.mdl",x,y,1.5))
    call Ltv(LAv("DarkWave.mdl",x,y,1.5))
    return false
endfunction

function Active_A0JX_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0JX',function Active_A0JX_onSpellEffect)
    call SaveReal(BYHT,DroppableTimed,('rat9'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0D9'),((90)*1.))
    set Active_A0JX_Loop_Func=function Active_A0JX_Loop_c
endfunction

function Active_A0C9_Timed_Actions takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    if ModuloInteger(Boss_Spell_data3[data],4)==0 then
        call LFv(Boss_Spell_data2[data],"ToxicField.mdl")
    endif
    call GroupEnumUnitsInRange(G,x,y,375+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,375)then
            if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",u,"chest"))
                call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'A0CA',$D006B)
            endif
        endif
    endloop
    if Boss_Spell_data3[data]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:586")
        call Boss_Spell_deallocate(data)
        call Unit_Cancel_Counter(979,Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
    endif
endfunction

function Active_A0C9_onSpellEffect takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=LAv("ToxicField.mdl",x,y,.9)
    set Boss_Spell_data3[data]=16
    set Boss_Spell_X[data]=5*GetHeroState3((Je[(Boss_Spell_data1[data])]),true)
    call Ltv(LAv("Acid Ex.mdl",x,y,2.5))
    call Lqv(LAv("Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl",x,y,3),1)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,3.5),55,$FF,55,$CD))
    call TimerStart(NewTimer(data),.5,true,function Active_A0C9_Timed_Actions)
    call zhv((GetPlayerId((GetOwningPlayer((Je[(Boss_Spell_data1[data])]))))),30,.4)
    call Unit_App_Counter(980,Boss_Spell_data1[data])
endfunction

function Active_A0C9_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0C9',function Active_A0C9_onSpellEffect)
endfunction

function s__A0QT_start takes integer this returns nothing
    call fov(s__A0QT_func)
endfunction

function s__A0QT_stop takes integer this returns nothing
    call frv(s__A0QT_func)
endfunction

function s__A0QT_impact takes integer this returns nothing
    if UnitAlive(s__barrage_target[this])then
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__A0QT_damage[this])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00c83e3e")))
        call m1v(s__barrage_target[this],1.)
    endif
    call zhv((GetPlayerId((GetOwningPlayer(s__barrage_atkunit[this])))),25,.5)
    call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX(s__barrage_target[this]),GetUnitY(s__barrage_target[this]),2.5))
    call DestroyEffectBY(s__A0QT_eff[this])
endfunction

function s__A0QT_proc takes integer this returns nothing
    call s__A0QT_impact(this)
    call RemoveBarrage(this)
endfunction

function s__A0QT_Barrage_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__A0QT_launcher]
    local unit u
    if this!=s__A0QT_launcher then
        call UseBarrage(s__A0QT_launcher)
        loop
            exitwhen this==s__A0QT_launcher
            if(s__barrage_outside[(this)])then
                call s__A0QT_proc(this)
            elseif(s__barrage_finish[(this)])then
                call s__A0QT_proc(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__A0QT_launcher]then
        set s__barrage_InOperation[s__A0QT_launcher]=false
        call s__A0QT_stop(this)
    endif
endfunction

function s__A0QT_FiredBarrage takes integer this returns nothing
    call s__barrage_Filling((s__A0QT_launcher),(this))
    if not s__barrage_InOperation[s__A0QT_launcher]then
        set s__barrage_InOperation[s__A0QT_launcher]=true
        call s__A0QT_start(this)
    endif
endfunction

function s__A0QT_Tm_Loop takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer fx
    local integer this
    local integer i
    if UnitAlive((Je[(Boss_Spell_data1[data])]))then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        set fx=LoadInteger(BYHT,Boss_Spell_data2[data],ModuloInteger(Boss_Spell_data3[data],4))
        set this=CreateBarrageTypeC((GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),(GetUnitFlyHeight(II[(fx)])),(Je[(Boss_Spell_data1[data])]))
        call LMv(s__barrage_model[this],"Abilities\\Weapons\\DemonHunterMissile\\DemonHunterMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[this])],((3)*1.),0,0)
        set s__barrage_atkunit[this]=Boss_Spell_unit1[data]
        set s__barrage_speed[this]=.03125*1500.
        set s__A0QT_damage[this]=10.*GetHeroState3(Boss_Spell_unit1[data],true)
        set s__A0QT_eff[this]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl"),(II[s__barrage_model[this]]),("origin"))))
        call Lfv(s__barrage_model[this],$FF,25,25,$FF)
        call s__A0QT_FiredBarrage(this)
    else
        set Boss_Spell_data3[data]=0
    endif
    if Boss_Spell_data3[data]<1 then
        set i=4
        loop
            exitwhen i==0
            set i=i-1
            call Lsv((LoadInteger(BYHT,Boss_Spell_data2[data],i)),1)
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:587")
        call Unit_Cancel_Counter(981,GetHandleId(Boss_Spell_unit2[data]))
        call Unit_Cancel_Counter(982,Boss_Spell_data1[data])
        call free(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function s__A0QT_onSpellEffect takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer c=(GetUnitUserData((GetTriggerUnit())))
    local integer i=4
    local integer fx
    local real x
    local real y
    local real a
    set Boss_Spell_unit1[data]=(Je[(c)])
    set Boss_Spell_unit2[data]=ConvertVersion(c)
    set Boss_Spell_data1[data]=(GetUnitUserData((GetSpellTargetUnit())))
    set Boss_Spell_data2[data]=malloc()
    set Boss_Spell_data3[data]=16
    set x=GetUnitX(Boss_Spell_unit1[data])
    set y=GetUnitY(Boss_Spell_unit1[data])
    loop
        exitwhen i==0
        set i=i-1
        set a=i*Lx/ 4+GetRandomReal(-1,1)*bj_DEGTORAD*20.
        set fx=Lnv(x-500.*Cos(a),y-500.*Sin(a),a)
        call LMv(fx,"Doodads\\Cinematic\\EyeOfSargeras\\EyeOfSargeras.mdl")
        call SetUnitScale(II[(fx)],((2)*1.),0,0)
        call SetUnitFlyHeight(II[(fx)],((400+GetRandomReal(-1,1)*200.)*1.),0)
        call SaveInteger(BYHT,Boss_Spell_data2[data],i,fx)
        call LFv(fx,"Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl")
        call Lfv(fx,$CD,$F,$F,$FF)
    endloop
    call TimerStart(NewTimer(data),2./ 16,true,function s__A0QT_Tm_Loop)
    call Unit_App_Counter(983,(c))
    call Unit_App_Counter(984,Boss_Spell_data1[data])
endfunction

function s__A0QT_onInit takes nothing returns nothing
    set s__A0QT_launcher=NewLauncher()
    set s__barrage_InOperation[s__A0QT_launcher]=false
    set s__A0QT_func=fxv(function s__A0QT_Barrage_loop_c)
    call RegisterSpellEffectEvent('A0QT',function s__A0QT_onSpellEffect)
    call SaveReal(BYHT,DroppableTimed,('kybl'),((75)*1.))
endfunction

function s__A0QR_impact takes integer this returns boolean
    local real x=(GetUnitX(II[(s__barrage_model[this])]))
    local real y=(GetUnitY(II[(s__barrage_model[this])]))
    local real d=$30D4+50*GetHeroState3(s__barrage_atkunit[this],true)
    local unit u
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00ea4f3e")))
                call m1v(u,4)
            endif
        endif
    endloop
    call UnitCureTaret(null,s__barrage_atkunit[this],$3A98)
    call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2.5))
    call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.25),$FF,55,55,$FF))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",s__barrage_atkunit[this],"chest"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",s__barrage_atkunit[this],"chest"))
    return true
endfunction

function s__A0QR_proc takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__A0QR_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__A0QR_launcher]
    local unit u
    if this!=s__A0QR_launcher then
        call UseBarrage(s__A0QR_launcher)
        loop
            exitwhen this==s__A0QR_launcher
            if(s__barrage_outside[(this)])then
                call RemoveBarrage((this))
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                if s__A0QR_impact(this)then
                    call RemoveBarrage((this))
                else
                    set s__barrage_finish[(this)]=false
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__A0QR_launcher]then
        set s__barrage_InOperation[s__A0QR_launcher]=false
        call frv(s__A0QR_func)
    endif
endfunction

function s__A0QR_FiredBarrage takes integer this returns nothing
    call s__barrage_Filling((s__A0QR_launcher),(this))
    if not s__barrage_InOperation[s__A0QR_launcher]then
        set s__barrage_InOperation[s__A0QR_launcher]=true
        call fov(s__A0QR_func)
    endif
endfunction

function s__A0QR_onSpell takes nothing returns nothing
    local integer this=CreateBarrageTypeA(GetTriggerUnit(),GetSpellTargetUnit())
    call LMv(s__barrage_model[this],"PumpkinNightmare_Projectile.mdl")
    call SetUnitScale(II[(s__barrage_model[this])],((2.5)*1.),0,0)
    set s__barrage_speed[this]=.03125*1500.
    call SetBarrageFlightRadianEZ(this,.15)
    call Lfv(s__barrage_model[this],$FF,55,55,$FF)
    call s__A0QR_FiredBarrage(this)
endfunction

function s__A0QR_onInit takes nothing returns nothing
    set s__A0QR_launcher=NewLauncher()
    set s__barrage_InOperation[s__A0QR_launcher]=false
    set s__A0QR_func=fxv(function s__A0QR_start)
    call RegisterSpellEffectEvent('A0QR',function s__A0QR_onSpell)
    call SaveReal(BYHT,DroppableTimed,('rde4'),((75)*1.))
endfunction

function Active_A0DR_RemoveBuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:588")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0G7','BUsl')
    call ModifyUnitMpRegen((id),-300)
    call ModifyUnitMagicDamage((id),-$A)
    call Unit_Cancel_Counter(985,(id))
endfunction

function Active_A0DR_AddBuff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if UnitAddAbilityBY((Je[(id)]),'A0G7')then
        call ModifyUnitMpRegen((id),300)
        call ModifyUnitMagicDamage((id),$A)
        call TimerStart(NewTimer(id),30,true,function Active_A0DR_RemoveBuff)
        call Unit_App_Counter(986,(id))
    endif
endfunction

function Active_A0DQ_RemoveBuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:589")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0FO','BUts')
    call ModifyUnitMpRegen((id),-$FA)
    call Unit_Cancel_Counter(987,(id))
endfunction

function Active_A0DQ_AddBuff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if UnitAddAbilityBY((Je[(id)]),'A0FO')then
        call ModifyUnitMpRegen((id),$FA)
        call TimerStart(NewTimer(id),18,true,function Active_A0DQ_RemoveBuff)
        call Unit_App_Counter(988,(id))
    endif
endfunction

function Active_A0DP_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer abilityid=GetSpellAbilityId()
    if LastSpellAbilityId[(GetUnitUserData((u)))]==0 then
        call NewTextTagInTarget_B(u,"Skills for the initial state",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(u,$D0004)
    else
        call NewTextTagInTarget_B(u,"Skill has been refreshed",7.5,$CD,$FF,$9B)
        call UnitResetCooldownById(u,LastSpellAbilityId[(GetUnitUserData((u)))])
        call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",u,"origin"))
        if abilityid=='A0DQ' then
            call Active_A0DQ_AddBuff(u)
        elseif abilityid=='A0DR' then
            call Active_A0DR_AddBuff(u)
        endif
    endif
    set u=null
endfunction

function Active_A0DP_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0DP',function Active_A0DP_Actions)
    call RegisterSpellEffectEvent('A0DQ',function Active_A0DP_Actions)
    call RegisterSpellEffectEvent('A0DR',function Active_A0DP_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0AZ'),(($96)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0B0'),(($87)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0B1'),((120)*1.))
    call SaveReal(BYHT,DroppableTimed,('I05I'),((120)*1.))
endfunction

function Active_A0F6_Loop_c takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2=Boss_Spell_data2[data]
    local integer id=Boss_Spell_data1[data]
    local unit u
    local integer i
    local real cX
    local real cY
    local real dX
    local real dY
    local real a
    if UnitAlive(Boss_Spell_unit1[data])then
        set Boss_Spell_X[data]=Boss_Spell_X[data]+Boss_Spell_X[data2]
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]+Boss_Spell_Y[data2]
        set cX=GetUnitX(Boss_Spell_unit1[data])
        set cY=GetUnitY(Boss_Spell_unit1[data])
        set dX=Boss_Spell_X[data]-cX
        set dY=Boss_Spell_Y[data]-cY
        if dX*dX+dY*dY>$5F5E10 then
            set Boss_Spell_data3[data]=0
        else
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            if ModuloInteger(Boss_Spell_data3[data],4)==0 then
                set i=8
                loop
                    set i=i-1
                    set a=i*Lx/ 8
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",Boss_Spell_X[data]+187.5*Cos(a),Boss_Spell_Y[data]+187.5*Sin(a),1.5),$FF,125,125,$FF))
                    exitwhen i==0
                endloop
                call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],2))
                call MoveLightningEx(Boss_Spell_lig[data],true,cX,cY,GetPointZ(cX,cY)+120,Boss_Spell_X[data],Boss_Spell_Y[data],GetPointZ(Boss_Spell_X[data],Boss_Spell_Y[data]))
                call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],325+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],325)then
                        if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                            call GroupAddUnit(Boss_Spell_group1[data],u)
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,1)
                            call addUnitdefbuff(u,'A0F7','BEsv',.08,$C)
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                        endif
                    endif
                endloop
            endif
        endif
    else
        set Boss_Spell_data3[data]=0
    endif
    if Boss_Spell_data3[data]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:590")
        call DestroyLightning(Boss_Spell_lig[data])
        call RecycleGroup(Boss_Spell_group1[data])
        call Unit_Cancel_Counter(989,id)
        call Boss_Spell_deallocate(data)
        call Boss_Spell_deallocate(data2)
        set Boss_Spell_group1[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_lig[data]=null
    endif
endfunction

function Active_A0F6_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer data2=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real cX
    local real cY
    local real a
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=data2
    set Boss_Spell_data3[data]=23
    set cX=GetUnitX(Boss_Spell_unit1[data])
    set cY=GetUnitY(Boss_Spell_unit1[data])
    set a=Atan2(GetSpellTargetY()-cY,GetSpellTargetX()-cX)
    set Boss_Spell_X[data2]=50*Cos(a)
    set Boss_Spell_Y[data2]=50*Sin(a)
    set Boss_Spell_X[data]=cX+Boss_Spell_X[data2]
    set Boss_Spell_Y[data]=cY+Boss_Spell_Y[data2]
    set Boss_Spell_Z[data]=100*GetHeroStateByMax(Boss_Spell_unit1[data])
    set Boss_Spell_lig[data]=AddLightningEx("AFOD",true,cX,cY,GetPointZ(cX,cY)+120,Boss_Spell_X[data],Boss_Spell_Y[data],GetPointZ(Boss_Spell_X[data],Boss_Spell_Y[data]))
    call SetItemDroppableTimedById((id),'I0B6',$96)
    call DestroyEffect(AddSpecialEffectTarget("ChaosExplosion.mdl",Boss_Spell_unit1[data],"origin"))
    call TimerStart(NewTimer(data),.03125,true,function Active_A0F6_Loop_c)
    call Unit_App_Counter(990,id)
endfunction

function Active_A0F6_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0F6',function Active_A0F6_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0B6'),(($96)*1.))
    call Luv('A0F6')
endfunction

function Active_A06K_ReBuff takes integer id returns nothing
    local integer l__tm
    local integer i
    if Active_A06K_Type[id]!=null then
        set l__tm=Active_A06K_Type[id]/ 2
        set i=Active_A06K_Type[id]-l__tm*2
        if i==1 then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0RH','B06M')
            call HeroAddExtraInt((id),-$3E8)
            call ModifyUnitMagicDamage((id),-7.5)
        else
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A06L','B02M')
            call HeroAddExtraInt((id),-750)
            call ModifyUnitMP((id),-5000)
        endif
        call ReleaseTimer(ConvertVersion(l__tm),"[TimerUtils]Error:591")
        call Unit_Cancel_Counter(991,(id))
        set Active_A06K_Type[id]=0
    endif
endfunction

function Active_A06K_Expired takes nothing returns nothing
    call Active_A06K_ReBuff((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function Active_A06K_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local integer id=(GetUnitUserData((c)))
    local timer l__tm
    local integer i
    if c==(Je[(id)])then
        call Active_A06K_ReBuff(id)
        set l__tm=NewTimer(id)
        set Active_A06K_Type[id]=GetHandleId(l__tm)*2
        set i=GetHeroEquipSlot(id,3)
        if i=='wtlg' then
            set Active_A06K_Type[id]=Active_A06K_Type[id]+1
            call UnitAddAbilityBY(c,'A0RH')
            call HeroAddExtraInt((id),$3E8)
            call ModifyUnitMagicDamage((id),7.5)
        else
            call UnitAddAbilityBY(c,'A06L')
            call HeroAddExtraInt((id),750)
            call ModifyUnitMP((id),5000)
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\ReplenishMana\\ReplenishManaCasterOverhead.mdl",c,"overhead"))
        call TimerStart(l__tm,8,false,function Active_A06K_Expired)
        call Unit_App_Counter(992,(id))
        set l__tm=null
    endif
    set c=null
endfunction

function Active_A06K_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A06K',function Active_A06K_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0AE'),((60)*1.))
    call SaveReal(BYHT,DroppableTimed,('wtlg'),((60)*1.))
endfunction

function Active_A0D4_Alloc takes nothing returns integer
    return D9v(Active_A0D4_Func)
endfunction

function Active_A0D4_Recycle takes integer data returns nothing
    call fvv(data)
endfunction

function Active_A0D4_Start takes nothing returns nothing
    local integer data=J[Active_A0D4_Func]
    local real x
    local real y
    local real dX
    local real dY
    local real a
    local real d
    loop
        exitwhen 0==data
        set x=(GetUnitX(II[(Active_A0D4_Pumpkin[data])]))
        set y=(GetUnitY(II[(Active_A0D4_Pumpkin[data])]))
        set dX=GetUnitX((Je[(Active_A0D4_Target[data])]))-x
        set dY=GetUnitY((Je[(Active_A0D4_Target[data])]))-y
        if(dX*dX+dY*dY<=1024.)then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",(Je[(Active_A0D4_Target[data])]),"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",(Je[(Active_A0D4_Target[data])]),"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",(Je[(Active_A0D4_AtkUnit[data])]),"chest"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",(Je[(Active_A0D4_AtkUnit[data])]),"chest"))
            call UnitDamageTargetBY((((Je[(Active_A0D4_AtkUnit[data])]))),(((Je[(Active_A0D4_Target[data])]))),((((7500+30*GetHeroState3((Je[(Active_A0D4_AtkUnit[data])]),true))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call UnitCureTaret(null,(Je[(Active_A0D4_AtkUnit[data])]),$2710)
            call m1v((Je[(Active_A0D4_Target[data])]),2)
            call Ltv(Active_A0D4_Pumpkin[data])
            call Unit_Cancel_Counter(993,Active_A0D4_AtkUnit[data])
            call Unit_Cancel_Counter(994,Active_A0D4_Target[data])
            call fvv((data))
        else
            set a=Atan2(dY,dX)
            call LKv(Active_A0D4_Pumpkin[data],x+37.5*Cos(a))
            call Llv(Active_A0D4_Pumpkin[data],y+37.5*Sin(a))
            call SetUnitFacing(II[(Active_A0D4_Pumpkin[data])],((a)*1.)*bj_RADTODEG)
        endif
        set data=K[data]
    endloop
endfunction

function Active_A0D4_Actions takes nothing returns nothing
    local integer data=(D9v(Active_A0D4_Func))
    set Active_A0D4_AtkUnit[data]=(GetUnitUserData((GetTriggerUnit())))
    set Active_A0D4_Target[data]=(GetUnitUserData((GetSpellTargetUnit())))
    set Active_A0D4_Pumpkin[data]=Lnv(GetUnitX((Je[(Active_A0D4_AtkUnit[data])])),GetUnitY((Je[(Active_A0D4_AtkUnit[data])])),0)
    call LMv(Active_A0D4_Pumpkin[data],"PumpkinNightmare_Projectile.mdl")
    call SetUnitScale(II[(Active_A0D4_Pumpkin[data])],((2)*1.),0,0)
    call SetUnitFlyHeight(II[(Active_A0D4_Pumpkin[data])],((60)*1.),0)
    call Unit_App_Counter(995,Active_A0D4_AtkUnit[data])
    call Unit_App_Counter(996,Active_A0D4_Target[data])
endfunction

function Active_A0D4_Init takes nothing returns nothing
    set Active_A0D4_Func=fxv(function Active_A0D4_Start)
    call RegisterSpellEffectEvent('A0D4',function Active_A0D4_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0AY'),((75)*1.))
endfunction

function Active_A08G_ReBuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:592")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PD','B05M')
    call ModifyUnitAttack((id),-$3A98)
    call HeroAddExtraStr((id),-800)
    call HeroAddExtraInt((id),-800)
    call Unit_Cancel_Counter(997,(id))
endfunction

function Active_A08G_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer id=(GetUnitUserData((c)))
    local integer i=8
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real tx
    local real ty
    local real d=25*GetHeroState1(c,true)+50*GetHeroState3(c,true)
    call GroupEnumUnitsInRange(G,x,y,450+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,450)then
            if IsUnitAliveAndEnemy(u,c)then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                call UnitDamageTargetBY(((c)),((u)),((((.075*GetUnitMaxLifeById((GetUnitUserData((u))))+d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c0074756c")))
                call m2v(u,1.5,'A500','B500',true)
            endif
        endif
    endloop
    loop
        set i=i-1
        set tx=125*Cos(Lx*i/ 8.)
        set ty=125*Sin(Lx*i/ 8.)
        call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",x+3*tx,y+3*ty,2.125))
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+2*tx,y+2*ty,2))
        call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",x+tx,y+ty,1.875))
        exitwhen i==0
    endloop
    call Ltv(LAv("DarkWave.mdl",x,y,1.5))
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.5),$FF,0,$FF,$FF))
    call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,2.5),$FF,0,$FF,$FF))
    call zhv((GetPlayerId((GetOwningPlayer(c)))),40,.5)
    if UnitAddAbilityBY((Je[(id)]),'A0PD')then
        call ModifyUnitAttack((id),$3A98)
        call HeroAddExtraStr((id),800)
        call HeroAddExtraInt((id),800)
        call TimerStart(NewTimer(id),$F,false,function Active_A08G_ReBuff)
        call Unit_App_Counter(998,(id))
    endif
    set c=null
endfunction

function Active_A08G_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A08G',function Active_A08G_Actions)
    call SaveReal(BYHT,DroppableTimed,('sorf'),((75)*1.))
endfunction

function Active_A0HK_Actions2 takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:593")
    local integer id=Boss_Spell_data1[data]
    local integer i=8
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local real d=Boss_Spell_Z[data]
    local real a
    local real c
    local real s
    local unit u
    loop
        set i=i-1
        set a=Lx*i/ 8.
        set c=100*Cos(a)
        set s=100*Sin(a)
        call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+1.5*c,y+1.5*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
        call Lqv(LFv(Lfv(LAv("Units\\Creeps\\ForgottenOne\\ForgottenOneTent.mdl",x+3*c,y+3*s,1.5),75,0,$9B,$FF),"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"),.375)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                set i=i+1
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call FloatedTargetBYStun(u,true)
            endif
        endif
    endloop
    if i>0 then
        call UnitCureTaret((Je[(id)]),(Je[(id)]),.125*i*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(Je[(id)]),"origin"))
    endif
    call zKv((GetPlayerId(((P[Kc[((id))]])))),$FF,$9B,$FF,.5)
    call PlaySoundAtPoint_BJ((Fn),(($C8)*1.),((x)*1.),((y)*1.),0)
    call Ltv(LAv("AquaSpike.mdl",x,y,2.5))
    call Unit_Cancel_Counter(999,(id))
    call Ltv(Boss_Spell_data2[data])
    call Boss_Spell_deallocate(data)
endfunction

function Active_A0HK_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=$C
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local unit u
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=LAv("Whirlpool.mdl",x,y,.5)
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=37.5*GetHeroPropertiesByAll((id))
    call GroupEnumUnitsInRange(G,x,y,800+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,800)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'A0GA',$D006B)
            endif
        endif
    endloop
    loop
        set i=i-1
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+300*Cos(Lx*i/ $C),y+300*Sin(Lx*i/ $C),1.25))
        exitwhen i==0
    endloop
    call Lqv(LAv("Abilities\\Spells\\Human\\CloudOfFog\\CloudOfFog.mdl",x,y,1.75),1.5)
    call TimerStart(NewTimer(data),1.5,false,function Active_A0HK_Actions2)
    call Unit_App_Counter($3E8,(id))
endfunction

function Active_A0HK_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0HK',function Active_A0HK_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0C2'),(($96)*1.))
endfunction

function Active_A079_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer i=8
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real fYv
    local real fzv
    local real a
    local real d=30*GetHeroState3(c,true)
    call GroupEnumUnitsInRange(G,x,y,750+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,750)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m2v(u,2.5,'A500','B500',true)
            endif
        endif
    endloop
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        set fYv=300*Cos(a)
        set fzv=300*Sin(a)
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x+fYv,y+fzv,2))
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",x+fYv,y+fzv,2))
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x+2*fYv,y+2*fzv,2))
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",x+2*fYv,y+2*fzv,2))
        exitwhen i==0
    endloop
    set c=null
endfunction

function Active_A079_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A079',function Active_A079_Actions)
    call SaveReal(BYHT,DroppableTimed,('I087'),((75)*1.))
    call SaveReal(BYHT,DroppableTimed,('I08I'),((75)*1.))
endfunction

function Active_A0SF_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer i=8
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real fYv
    local real fzv
    local real a
    local real d=3500000.
    call GroupEnumUnitsInRange(G,x,y,800+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,800)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    set c=null
endfunction

function Active_A0SF_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0SF',function Active_A0SF_Actions)
    call SaveReal(BYHT,DroppableTimed,('I00D'),((60)*1.))
endfunction

function Active_A0HI_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:594")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0HJ','BHca')
    call ModifyHeroProperties((id),-400)
    call s__Trig_remove(Active_A0HI_AtkTrig[id])
    call zKv((GetPlayerId((GetOwningPlayer((Je[(id)]))))),$FF,125,125,.1)
    call Unit_Cancel_Counter($3E9,(id))
    set Active_A0HI_Timer[id]=null
endfunction

function Active_A0HI_onAttack takes nothing returns nothing
    call UnitCureTaret((mF),(mF),.3*GetDamage())
    call DestroyEffect(AddSpecialEffectTarget("VampiricAuraTarget.mdx",(mF),"chest"))
endfunction

function Active_A0HI_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Active_A0HI_Timer[id]==null then
        set Active_A0HI_Timer[id]=NewTimer(id)
        set Active_A0HI_AtkTrig[id]=UnitAddPAttackTrigB((id),function Active_A0HI_onAttack)
        call UnitAddAbilityBY((Je[(id)]),'A0HJ')
        call ModifyHeroProperties((id),400)
        call Unit_App_Counter($3EA,(id))
    endif
    call zKv((GetPlayerId((GetOwningPlayer((Je[(id)]))))),$FF,125,125,8)
    call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdx",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2.25))
    call TimerStart(Active_A0HI_Timer[id],8,false,function Active_A0HI_Expired)
endfunction

function Active_A0HI_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0HI',function Active_A0HI_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0C3'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('I05T'),((90)*1.))
endfunction

function Active_A0D2_Actions2 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2=Boss_Spell_data2[data]
    local unit c=Boss_Spell_unit1[data]
    local unit u
    local real x
    local real y
    local real vx=Cos(Boss_Spell_Z[data])
    local real vy=Sin(Boss_Spell_Z[data])
    local real sx=Boss_Spell_X[data]+vx*Boss_Spell_data1[data2]
    local real sy=Boss_Spell_Y[data]+vy*Boss_Spell_data1[data2]
    local real tx
    local real ty
    local real a
    local real d=Boss_Spell_Z[data2]
    local real l=Boss_Spell_X[data2]
    local real slope=Boss_Spell_Y[data2]
    local real r=(Boss_Spell_data3[data2]+Boss_Spell_data2[data2])*.5
    set x=Boss_Spell_X[data]+vx*r
    set y=Boss_Spell_Y[data]+vy*r
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitAliveAndEnemy(u,c)then
            set tx=GetUnitX(u)-sx
            set ty=GetUnitY(u)-sy
            set a=RMinBJ(RMaxBJ(0,(tx*vx+ty*vy)+RAbsBJ(ty*vx-tx*vy)*slope),l)
            set tx=sx+vx*a
            set ty=sy+vy*a
            set a=Boss_Spell_data1[data2]+a*slope
            if IsUnitInRangeXY(u,tx,ty,a)then
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    set Boss_Spell_data1[data]=Boss_Spell_data1[data]-1
    if Boss_Spell_data1[data]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:595")
        call Boss_Spell_deallocate(data)
        call Boss_Spell_deallocate(data2)
        set Boss_Spell_unit1[data]=null
    endif
    set c=null
endfunction

function Active_MoLongTuXi_Actions takes unit u,real x,real y,real a,integer b,integer c,integer d,real r,integer num,real time returns nothing
    local integer data=Boss_Spell_allocate()
    local integer data2=Boss_Spell_allocate()
    local real l=I2R(d-b)
    local real h=I2R(c-b)
    set Boss_Spell_unit1[data]=u
    set Boss_Spell_data1[data]=num
    set Boss_Spell_data2[data]=data2
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=a
    set Boss_Spell_data1[data2]=b
    set Boss_Spell_data2[data2]=c
    set Boss_Spell_data3[data2]=d
    set Boss_Spell_X[data2]=l
    set Boss_Spell_Y[data2]=h/ SquareRoot(l*l-h*h)
    set Boss_Spell_Z[data2]=r/ num
    call TimerStart(NewTimer(data),time/ num,true,function Active_A0D2_Actions2)
endfunction

function Active_A0D2_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit c=GetTriggerUnit()
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    call Lqv(LMv(Lnv(x+100*Cos(a),y+100*Sin(a),a),"PinkRedLaser.mdl"),1.5)
    call Active_MoLongTuXi_Actions(c,x,y,a,100,$FA,$3E8,25000.,$A,.5)
    set c=null
endfunction

function Active_A0D5_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local integer fx=Lnv(x+100*Cos(a),y+100*Sin(a),a)
    call LMv(fx,"PinkRedLaser.mdl")
    call SetUnitScale(II[(fx)],((1.25)*1.),0,0)
    call Lqv(fx,1.5)
    call Lqv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",x,y,1.25),1)
    call Active_MoLongTuXi_Actions(u,x,y,a,100,350,$4E2,50000.,$A,.5)
    set u=null
endfunction

function Active_A0D2_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0D2',function Active_A0D2_Actions)
    call RegisterSpellEffectEvent('A0D5',function Active_A0D5_Actions)
    call SaveReal(BYHT,DroppableTimed,('I07T'),((60)*1.))
    call SaveReal(BYHT,DroppableTimed,('I07Q'),((60)*1.))
endfunction

function Active_A0HQ_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:596")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0HS','B00G')
    call s__Trig_remove((Active_A0HQ_AtkTrig[id]))
    call Unit_Cancel_Counter($3EB,(id))
    set Active_A0HQ_AtkTrig[id]=0
endfunction

function Active_A0HQ_onDamaged takes nothing returns nothing
    local real d=GetDamage()
    local real x
    local real y
    local unit u
    if d>0 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        call GroupEnumUnitsInRange(G,x,y,400+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,400)then
                if IsUnitAliveAndAlly(u,(MF))then
                    call UnitCureTaret((MF),u,d)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",u,"chest"))
                endif
            endif
        endloop
        call Lqv(LAv("DarkLightningNova.mdl",x,y,1.25),1.25)
        call Ltv(LAv("ArcaneExplosion.mdl",x,y,.75))
        set KF[HF]=PF+1000000.
    endif
endfunction

function Active_A0HQ_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Active_A0HQ_AtkTrig[id]==null then
        set Active_A0HQ_AtkTrig[id]=UnitAddShieldTrigB((id),function Active_A0HQ_onDamaged)
        call UnitAddAbilityBY((Je[(id)]),'A0HS')
        call Ltv(LAv("ShadowAssault.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2.5))
        call TimerStart(NewTimer(id),2,false,function Active_A0HQ_Expired)
        call Unit_App_Counter($3EC,(id))
    endif
endfunction

function Active_A0HQ_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0HQ',function Active_A0HQ_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0C5'),(($96)*1.))
endfunction

function Active_A05C_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:597")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A05D','B02E')
    call ModifyUnitAttack((id),-$2EE0)
    call HeroAddExtraStr((id),-$3E8)
    call Unit_Cancel_Counter($3ED,(id))
endfunction

function Active_A05C_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call Ltv(LAv("Shiva'sWrath.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2.5))
    call UnitAddAbilityBY((Je[(id)]),'A05D')
    call ModifyUnitAttack((id),$2EE0)
    call HeroAddExtraStr((id),$3E8)
    call TimerStart(NewTimer(id),8,false,function Active_A05C_Expired)
    call Unit_App_Counter($3EE,(id))
endfunction

function Active_A05C_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A05C',function Active_A05C_Actions)
    call SaveReal(BYHT,DroppableTimed,('I098'),(($C)*1.))
endfunction

function Active_A080_SummonedUnitDeath takes nothing returns nothing
    local integer id=s__Trig_P
    local unit u
    local real x
    local real y
    if not UnitAlive((Je[(id)]))then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                if IsUnitAliveAndAlly(u,(Je[(id)]))then
                    call DestroyEffect(AddSpecialEffectTarget("ForestBolt.mdl",u,"origin"))
                    call Auxiliary_TargetOrder(('Arej'),GetOwningPlayer((Je[(id)])),2,$D00C0,u)
                endif
            endif
        endloop
        call Ltv(LAv("NatureExplosion.mdl",x,y,2.5))
    endif
endfunction

function SummonedUnit_n02S_onAttack takes nothing returns nothing
    call DamageAmplify($7D0)
    call Passive_Skill_SpiriBreath_Addbuff((MF),false)
endfunction

function Active_A080_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real a=bj_DEGTORAD*GetUnitFacing(u)
    local integer c=(GetUnitUserData((u)))
    local integer id
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(c)]],('lhst')))then
        set id=(GetUnitUserData((CreateUnit(GetOwningPlayer(u),'n02S',GetUnitX(u)+$96*Cos(a),GetUnitY(u)+$96*Sin(a),a*bj_RADTODEG))))
        call UnitAddPAttackTrig((id),function SummonedUnit_n02S_onAttack)
    else
        set id=(GetUnitUserData((CreateUnit(GetOwningPlayer(u),'n01X',GetUnitX(u)+$96*Cos(a),GetUnitY(u)+$96*Sin(a),a*bj_RADTODEG))))
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\FaerieDragonInvis\\FaerieDragon_Invis.mdl",(Je[(id)]),"chest"))
    call UnitApplyTimedLife((Je[(id)]),'Bply',45)
    call AddUnitDeathTrig((id),function Active_A080_SummonedUnitDeath)
    call SummonedUnitSetMaster(id,c)
    set u=null
endfunction

function Active_A080_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A080',function Active_A080_Actions)
    call SaveReal(BYHT,DroppableTimed,('lhst'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0AV'),((90)*1.))
endfunction

function Active_A069_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer i=$A
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real fYv
    local real fzv
    local real a
    local real d=60*GetHeroState3(c,true)
    call GroupEnumUnitsInRange(G,x,y,750+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,750)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m2v(u,2.5,'A500','B500',true)
            endif
        endif
    endloop
    loop
        set i=i-1
        set a=bj_PI*i/ 5
        set fYv=$96*Cos(a)
        set fzv=$96*Sin(a)
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+4*fYv,y+4*fzv,2.25))
        call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",x+3*fYv,y+3*fzv,2.125))
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+2*fYv,y+2*fzv,2))
        call Ltv(LAv("Abilities\\Spells\\Orc\\FeralSpirit\\feralspirittarget.mdl",x+fYv,y+fzv,1.875))
        exitwhen i==0
    endloop
    call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,5))
    set c=null
endfunction

function Active_A069_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A069',function Active_A069_Actions)
    call SaveReal(BYHT,DroppableTimed,('I08M'),((75)*1.))
endfunction

function Active_A05G_Actions_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
    local real y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
    call LKv(Boss_Spell_data2[data],x)
    call Llv(Boss_Spell_data2[data],y)
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if ModuloInteger(Boss_Spell_data3[data],4)==0 then
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,2.5),1.27)
    endif
    call GroupEnumUnitsInRange(G,x,y,275+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,275)then
            if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                call GroupAddUnit(Boss_Spell_group1[data],u)
                call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    if Boss_Spell_data3[data]<=0 then
        call GroupEnumUnitsInRange(G,x,y,425+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,425)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call pmv(u,4)
                endif
            endif
        endloop
        call Ltv(LAv("FrostNova.mdl",x,y,2.5))
        call Ltv(LAv("Shiva'sWrath.mdl",x,y,4.5))
        call LTv(Boss_Spell_data2[data])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:598")
        call RecycleGroup(Boss_Spell_group1[data])
        call Unit_Cancel_Counter($3EF,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        set Boss_Spell_group1[data]=null
    endif
endfunction

function Active_A05G_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=Lnv(x,y,a)
    set Boss_Spell_data3[data]=30
    set Boss_Spell_X[data]=30*Cos(a)
    set Boss_Spell_Y[data]=30*Sin(a)
    set Boss_Spell_Z[data]=52.5*GetHeroState3(GetTriggerUnit(),true)
    call LMv(Boss_Spell_data2[data],"FrozenOrb.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((3.25)*1.),0,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((75)*1.),0)
    call Unit_App_Counter($3F0,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function Active_A05G_Actions_func)
endfunction

function Active_A05G_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A05G',function Active_A05G_Actions)
    call SaveReal(BYHT,DroppableTimed,('I096'),((75)*1.))
endfunction

function Active_A0MB_RemoveBuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:599")
    if Active_A0MB_Bool[id]then
        set Active_A0MB_Bool[id]=false
        call ModifyUnitMagicDamage((id),-5)
    endif
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0MC','B04N')
    call ModifyUnitHP((id),-Active_A0MB_HP[id])
    call Unit_Cancel_Counter($3F1,(id))
    set Active_A0MB_Timer[id]=null
endfunction

function Active_A0MB_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local integer id
    local integer value
    call GroupEnumUnitsInRange(G,x,y,550+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,550)then
            if IsUnitAllyNotbag(u,c)then
                set id=(GetUnitUserData((u)))
                if Active_A0MB_Timer[id]==null then
                    set Active_A0MB_Timer[id]=NewTimer(id)
                    set Active_A0MB_HP[id]=0
                    call UnitAddAbilityBY(u,'A0MC')
                    call Unit_App_Counter($3F2,(id))
                endif
                if u==c or IsUnitType(u,UNIT_TYPE_SUMMONED)then
                    set value=6000
                    if not Active_A0MB_Bool[id]then
                        set Active_A0MB_Bool[id]=true
                        call ModifyUnitMagicDamage((id),5)
                    endif
                    call NewTextTagInTarget_B(u,"|c00affc96+6000 HP
                    +5% Skill damage",9,$FF,$FF,$FF)

                else
                    set value=$BB8
                    call NewTextTagInTarget_B(u,"|c00affc96+3000 HP",9,$FF,$FF,$FF)
                endif
                call ModifyUnitHP((id),value-Active_A0MB_HP[id])
                call TimerStart(Active_A0MB_Timer[id],45,false,function Active_A0MB_RemoveBuff)
                set Active_A0MB_HP[id]=value
            endif
        endif
    endloop
    call Lqv(LAv("Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl",x,y,1.25),3)
    call Ltv(LAv("ForestBolt.mdl",x,y,4))
    set c=null
endfunction

function Active_A0MB_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0MB',function Active_A0MB_Actions)
    call SaveReal(BYHT,DroppableTimed,('I0D2'),((60)*1.))
endfunction

function Active_A0QL_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real exe=GetUnitState(c,UNIT_STATE_MANA)
    local real eoe=exe/ GetUnitState(c,UNIT_STATE_MAX_MANA)
    local real Njv=eoe*75*GetHeroState3(c,true)
    local unit u
    call GroupEnumUnitsInRange(G,x,y,550.+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,550.)then
            if IsUnitAllyNotbag(u,c)then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                call UnitCureTaret(null,u,.4*eoe*GetUnitMaxLifeById((GetUnitUserData((u)))))
            elseif IsUnitAliveAndEnemy(u,c)then
                if not(IsUnitType((u),UNIT_TYPE_GIANT))then
                    call m1v(u,2.5)
                endif
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                call UnitDamageTargetBY(((c)),((u)),((((Njv)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((9)*1.))*1.),(("|c00c1d2ee")))
            endif
        endif
    endloop
    call zhv((GetPlayerId((GetOwningPlayer(c)))),40,.75)
    call Ltv(LAv("ShadowAssault.mdl",x,y,3))
    call Ltv(LAv("DarkWave.mdx",x,y,1.5))
    call LQv(LAv("DarkPillar.mdx",x,y,3),2)
    call SetUnitState(c,UNIT_STATE_MANA,.3*exe)
    set c=null
endfunction

function Active_A0QL_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0QL',function Active_A0QL_Actions)
    call SaveReal(BYHT,DroppableTimed,('bzbe'),((30)*1.))
endfunction

function Active_A07O_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer fx
    local integer i=8
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real l=.1*GetUnitState(c,UNIT_STATE_MAX_LIFE)
    local real h=.6*l+1.5*GetHeroPropertiesByAll((GetUnitUserData((c))))
    local real a
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x+$FA*Cos(a),y+$FA*Sin(a),1.35))
        call Ltv(Lbv(LVv('e003',x+$C8*Cos(a),y+$C8*Sin(a),0),2,1.5))
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAllyNotbag(u,c)and Hc[(GetUnitUserData((u)))]then
                call Globals_Shield_Add(u,h,8,'A071','B02O')
            endif
        endif
    endloop
    call Ltv(LAv("TheHolyBomb.mdx",x,y,1.25))
    call SetItemDroppableTimedById((GetUnitUserData((c))),'crdt',60)
    call SetWidgetLife(c,MaxR(.5,GetWidgetLife(c)-l))
    set c=null
endfunction

function Active_A07O_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A07O',function Active_A07O_Actions)
    call SaveReal(BYHT,DroppableTimed,('crdt'),((60)*1.))
endfunction

function Active_A0DT_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:600")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0DU','BIsv')
    call ModifyHeroProperties((id),-350)
    call Unit_Cancel_Counter($3F3,id)
    set Active_A0DT_Buff_timer[id]=null
endfunction

function Active_A0DT_Actions_End takes integer data returns nothing
    if Boss_Spell_lig[data]!=null then
        call DestroyLightning(Boss_Spell_lig[data])
        set Boss_Spell_lig[data]=null
    endif
    call Unit_Cancel_Counter($3F4,Boss_Spell_data1[data])
    call Unit_Cancel_Counter($3F5,Boss_Spell_data2[data])
    call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:601")
    call Boss_Spell_deallocate(data)
    set Boss_Spell_timer[data]=null
endfunction

function Active_A0DT_Actions_Func02 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit c=Boss_Spell_unit1[data]
    local unit ta=Boss_Spell_unit2[data]
    local real cX
    local real cY
    local real tX
    local real tY
    if UnitAlive(c)then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if ModuloInteger(Boss_Spell_data3[data],32)==0 then
            if GetUnitAbilityLevel(ta,'Avul')==0 and GetUnitAbilityLevel(ta,'B00W')==0 and GetUnitAbilityLevel(ta,'B00X')==0 then
                call UnitCureTaret(c,c,Boss_Spell_X[data])
            endif
            call UnitDamageTargetBY(((c)),((ta)),((((8*GetHeroStateByMax(c)+Boss_Spell_X[data])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",c,"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",ta,"origin"))
        endif
        if not UnitAlive(ta)then
            if Active_A0DT_Buff_timer[Boss_Spell_data1[data]]==null then
                set Active_A0DT_Buff_timer[Boss_Spell_data1[data]]=NewTimer(Boss_Spell_data1[data])
                call UnitAddAbilityBY(c,'A0DU')
                call ModifyHeroProperties((Boss_Spell_data1[data]),350)
                call Unit_App_Counter($3F6,Boss_Spell_data1[data])
            endif
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",c,"origin"))
            call TimerStart(Active_A0DT_Buff_timer[Boss_Spell_data1[data]],300,false,function Active_A0DT_BuffExpired)
            call Active_A0DT_Actions_End(data)
        elseif Boss_Spell_data3[data]>0 then
            set cX=GetUnitX(c)
            set cY=GetUnitY(c)
            set tX=GetUnitX(ta)
            set tY=GetUnitY(ta)
            call MoveLightningEx(Boss_Spell_lig[data],true,cX,cY,GetPointZ(cX,cY)+120,tX,tY,GetPointZ(tX,tY)+GetUnitFlyHeight(ta)+50)
        else
            call Active_A0DT_Actions_End(data)
        endif
    else
        call Active_A0DT_Actions_End(data)
    endif
    set c=null
    set ta=null
endfunction

function Active_A0DT_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit c=GetTriggerUnit()
    local unit ta=GetSpellTargetUnit()
    local real cX=GetUnitX(c)
    local real cY=GetUnitY(c)
    local real tX=GetUnitX(ta)
    local real tY=GetUnitY(ta)
    set Boss_Spell_unit1[data]=c
    set Boss_Spell_unit2[data]=ta
    set Boss_Spell_data1[data]=(GetUnitUserData((c)))
    set Boss_Spell_data2[data]=(GetUnitUserData((ta)))
    set Boss_Spell_data3[data]=$A0
    set Boss_Spell_X[data]=GetUnitState(c,UNIT_STATE_MAX_LIFE)/ 7.5
    set Boss_Spell_lig[data]=AddLightningEx("AFOD",true,cX,cY,GetPointZ(cX,cY)+120,tX,tY,GetPointZ(tX,tY)+GetUnitFlyHeight(ta)+50)
    set Boss_Spell_timer[data]=NewTimer(data)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",c,"origin"))
    call Unit_App_Counter($3F7,Boss_Spell_data1[data])
    call Unit_App_Counter($3F8,Boss_Spell_data2[data])
    call TimerStart(Boss_Spell_timer[data],.03125,true,function Active_A0DT_Actions_Func02)
    set c=null
    set ta=null
endfunction

function Active_A0DT_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0DT',function Active_A0DT_Actions)
    call SaveReal(BYHT,DroppableTimed,('ktrm'),(($96)*1.))
    call Luv('A0DT')
endfunction

function Active_A0MJ_Alloc takes nothing returns integer
    return D9v(Active_A0MJ_Func)
endfunction

function Active_A0MJ_Stop takes integer t returns nothing
    call fvv(t)
endfunction

function Active_A0MJ_Start takes nothing returns nothing
    local integer t=J[Active_A0MJ_Func]
    local integer data
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real a
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set i=4
        set x=(GetUnitX(II[(Boss_Spell_data3[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data3[data])]))
        loop
            set i=i-1
            set a=(i/ 4.+Boss_Spell_Y[data]/ 20.)*Lx
            set fx=LoadInteger(BYHT,Boss_Spell_data2[data],i)
            call LKv(fx,x+275*Cos(a))
            call Llv(fx,y+275*Sin(a))
            exitwhen i==0
        endloop
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]-1
        if Boss_Spell_Y[data]==0 then
            set Boss_Spell_Y[data]=8
            set Boss_Spell_Z[data]=Boss_Spell_Z[data]-1
            if Boss_Spell_Z[data]<8 then
                call GroupEnumUnitsInRange(G,x,y,325+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,325)then
                        if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"origin"))
                            call Ltv(Lfv(LAv("LightningWrath.mdl",GetUnitX(u),GetUnitY(u),.5),$9B,$FF,$9B,$CD))
                            call Lqv(Lfv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",GetUnitX(u),GetUnitY(u),1.5),$9B,$FF,$9B,$CD),1)
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_X[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00fef3cf")))
                            call m2v(u,1,'A500','B500',true)
                        endif
                    endif
                endloop
                if Boss_Spell_Z[data]==0 then
                    set i=4
                    loop
                        set i=i-1
                        call LQv((LoadInteger(BYHT,Boss_Spell_data2[data],i)),1)
                        exitwhen i==0
                    endloop
                    call Unit_Cancel_Counter($3F9,(Boss_Spell_data1[data]))
                    call free(Boss_Spell_data2[data])
                    call Ltv(Boss_Spell_data3[data])
                    call Boss_Spell_deallocate(data)
                    call fvv((t))
                endif
            endif
        endif
        set t=K[t]
    endloop
endfunction

function Active_A0MJ_Actions takes nothing returns nothing
    local integer t=(D9v(Active_A0MJ_Func))
    local integer data=Boss_Spell_allocate()
    local integer i=4
    local integer fx
    local real x
    local real y
    local real a
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=malloc()
    set x=GetUnitX((Je[(Boss_Spell_data1[data])]))
    set y=GetUnitY((Je[(Boss_Spell_data1[data])]))
    set Boss_Spell_data3[data]=LAv("cumulonimbus.mdx",x,y,2.5)
    set Boss_Spell_X[data]=12.5*GetHeroPropertiesByAll((Boss_Spell_data1[data]))
    set Boss_Spell_Y[data]=16
    set Boss_Spell_Z[data]=9
    loop
        set i=i-1
        set a=i*Lx/ 4.
        set fx=Lnv(x+275*Cos(a),y+275*Sin(a),0)
        call LMv(fx,"Abilities\\Spells\\Other\\Tornado\\TornadoElementalSmall.mdl")
        call SetUnitScale(II[(fx)],((.75)*1.),0,0)
        call SaveInteger(BYHT,Boss_Spell_data2[data],i,fx)
        exitwhen i==0
    endloop
    call Unit_App_Counter($3FA,Boss_Spell_data1[data])
endfunction

function Active_A0MJ_Init takes nothing returns nothing
    set Active_A0MJ_Func=fxv(function Active_A0MJ_Start)
    call RegisterSpellEffectEvent('A0MJ',function Active_A0MJ_Actions)
    call SaveReal(BYHT,DroppableTimed,('srtl'),((120)*1.))
endfunction

function Active_A0CF_Remove takes integer id returns nothing
    if Active_A0CF_Timer[id]!=null then
        if Active_A0CF_DagTrig[id]==0 then
            call HeroAddExtraAgi((id),-Active_A0CF_Agi[id])
            call ModifyUnitAttackSpeed((id),-25)
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0CI','Bbar')
        else
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0CH','Bmfa')
            call s__Trig_remove((Active_A0CF_DagTrig[id]))
        endif
        call Unit_Cancel_Counter($3FB,(id))
        call ReleaseTimer(Active_A0CF_Timer[id],"[TimerUtils]Error:602")
        set Active_A0CF_Timer[id]=null
    endif
endfunction

function Active_A0CF_Expired takes nothing returns nothing
    call Active_A0CF_Remove((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function Active_A0CF_onDamaged takes nothing returns nothing
    local integer id=(pF)
    local real m=GetUnitState((MF),UNIT_STATE_MAX_LIFE)
    if(mF)!=(MF)and GetDamage()>.1*m then
        if GetDamage()>m then
            set Active_A0CF_Agi[id]=R2I(.25*GetHeroAgiNotExtra((id)))
            call UnitDamageTargetBY((((MF))),(((mF))),((((m)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        else
            set Active_A0CF_Agi[id]=R2I((.1+.15*GetDamage()/ m)*GetHeroAgiNotExtra((id)))
            call UnitDamageTargetBY((((MF))),(((mF))),((((GetDamage())*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
        if Active_A0CF_Agi[id]>$3E8 then
            set Active_A0CF_Agi[id]=$3E8
        endif
        call DestroyEffect(AddSpecialEffectTarget("CurseBoltGreen.mdl",(MF),"chest"))
        call NewTextTagInTarget_B((MF),"|c0080ff80BLOCK ("+I2S(R2I(GetDamage()))+")",$F,$FF,$FF,$FF)
        call m1v((mF),7.5)
        set KF[HF]=PF+1000000.
        call Ltv(LAv("DesecrateGreen.mdl",GetUnitX((MF)),GetUnitY((MF)),.75))
        call PlaySoundOnUnit_BJ((Bn),((125)*1.),((MF)))
        call UnitRemoveAbilityandBuffBY((MF),'A0CH','Bmfa')
        call UnitAddAbilityBY((MF),'A0CI')
        call HeroAddExtraAgi((id),Active_A0CF_Agi[id])
        call ModifyUnitAttackSpeed((id),25)
        call zhv((GetPlayerId((GetOwningPlayer((MF))))),25,.5)
        call TimerStart(Active_A0CF_Timer[id],$F,false,function Active_A0CF_Expired)
        call s__Trig_remove((Active_A0CF_DagTrig[id]))
        set Active_A0CF_DagTrig[id]=0
    endif
endfunction

function Active_A0CF_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call Active_A0CF_Remove(id)
    set Active_A0CF_Timer[id]=NewTimer(id)
    set Active_A0CF_DagTrig[id]=UnitAddBeDamagerTrigB((id),function Active_A0CF_onDamaged)
    set Active_A0CF_Agi[id]=0
    call UnitAddAbilityBY((Je[(id)]),'A0CH')
    call Unit_App_Counter($3FC,(id))
    call TimerStart(Active_A0CF_Timer[id],6,false,function Active_A0CF_Expired)
endfunction

function Active_A0CF_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0CF',function Active_A0CF_Actions)
    call SaveReal(BYHT,DroppableTimed,('kpin'),((120)*1.))
endfunction

function Active_A0RE_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))and GetWidgetLife((Je[(id)]))<GetUnitMaxLifeById((id))then
        if Active_A0RE_Lv[id]<5 then
            set Active_A0RE_Lv[id]=Active_A0RE_Lv[id]+1
            call NewTextTagInTarget_B((Je[(id)]),"+300 HP REGEN
            +5% MAGIC DEFENSE",$A,$9B,$9B,$FF)

            call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",(Je[(id)]),"origin"))
            call ModifyUnitHpRegen((id),300.)
            call UnitMdefChange((id),Active_A0RE_Mdef[id],5*Active_A0RE_Lv[id])
        endif
    else
        call ReleaseTimer(Active_A0RE_Timer[id],"[TimerUtils]Error:603")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0RD','B06K')
        call ModifyUnitHpRegen((id),-300.*Active_A0RE_Lv[id])
        call DeUnitMdef((id),Active_A0RE_Mdef[id])
        call Unit_Cancel_Counter($3FD,(id))
        set Active_A0RE_Timer[id]=null
    endif
endfunction

function Active_A0RE_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Active_A0RE_Timer[id]==null then
        set Active_A0RE_Timer[id]=NewTimer(id)
        set Active_A0RE_Mdef[id]=ModifyUnitMdef((id),0)
        set Active_A0RE_Lv[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0RD')
        call Unit_App_Counter($3FE,(id))
        call TimerStart(Active_A0RE_Timer[id],1.5,true,function Active_A0RE_Start)
    endif
    call PlaySoundOnUnit_BJ((Qa),(($7F)*1.),((Je[(id)])))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\ReviveNightElf\\ReviveNightElf.mdl",(Je[(id)]),"origin"))
endfunction

function Active_A0RE_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0RE',function Active_A0RE_Actions)
    call SaveReal(BYHT,DroppableTimed,('shwd'),((120)*1.))
endfunction

function Active_A0PJ_CureFunc takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:604")
    call UnitCureTaret(null,(Je[(id)]),Active_A0PJ_Damage[id])
    set Active_A0PJ_Damage[id]=0
    set Active_A0PJ_Bool[id]=false
endfunction

function Active_A0PJ_onAttack takes nothing returns nothing
    local integer id
    if(DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC)then
        set id=(pF_v)
        if not Active_A0PJ_Bool[id]then
            set Active_A0PJ_Bool[id]=true
            call TimerStart(NewTimer(id),0,false,function Active_A0PJ_CureFunc)
        endif
        set Active_A0PJ_Damage[id]=Active_A0PJ_Damage[id]+.025*GetDamage()
    endif
endfunction

function Active_A0PJ_Expired takes nothing returns nothing
    local integer t=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:605")
    local integer id=s__Trig_P2[t]
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PK','B05P')
    call s__Trig_remove(t)
    call Unit_Cancel_Counter($3FF,(id))
    set Active_A0PJ_Timer[id]=null
endfunction

function Active_A0PJ_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer t
    if Active_A0PJ_Timer[id]==null then
        set t=UnitAddDamagerTrigB((id),function Active_A0PJ_onAttack)
        set Active_A0PJ_Timer[id]=NewTimer(t)
        set s__Trig_P2[t]=id
        call UnitAddAbilityBY((Je[(id)]),'A0PK')
        call Unit_App_Counter($400,(id))
    endif
    call DestroyEffect(AddSpecialEffectTarget("Acid Ex.mdl",(Je[(id)]),"origin"))
    call TimerStart(Active_A0PJ_Timer[id],6,false,function Active_A0PJ_Expired)
endfunction

function Active_A0PJ_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PJ',function Active_A0PJ_Actions)
    call SaveReal(BYHT,DroppableTimed,('rst1'),(($F)*1.))
endfunction

function Active_A0P5_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:606")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0P7','B05H')
    call DeUnitAdef((id),Active_A0P5_Adef[id])
    call ModifyHeroProperties((id),-Active_A0P5_StatUp[id])
    call Unit_Cancel_Counter($401,(id))
    set Active_A0P5_StatUp[id]=0
    set Active_A0P5_Timer[id]=null
endfunction

function Active_A0P5_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local integer v=500
    local unit u
    if GetWidgetLife((Je[(id)]))<.4*GetUnitMaxLifeById((id))then
        set v=v+$96
        call GroupEnumUnitsInRange(G,x,y,425+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,425)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call m1v(u,3)
                endif
            endif
        endloop
        call Ltv(LAv("BlackChakraExplosion.mdx",x,y,1.2))
        call NewTextTagInTarget_B((Je[(id)]),"|c008080ffAll over to enlarge|r",$C,$FF,$FF,$FF)
        call UnitCureTaret(null,(Je[(id)]),.4*GetUnitMaxLifeById((id)))
    endif
    call Ltv(LAv("Grin Curse.mdl",x,y,2.25))
    if Active_A0P5_Timer[id]==null then
        set Active_A0P5_Timer[id]=NewTimer(id)
        set Active_A0P5_Adef[id]=ModifyUnitAdef((id),30)
        call UnitAddAbilityBY((Je[(id)]),'A0P7')
        call Unit_App_Counter($402,(id))
    endif
    if v!=Active_A0P5_StatUp[id]then
        call ModifyHeroProperties((id),v-Active_A0P5_StatUp[id])
        set Active_A0P5_StatUp[id]=v
    endif
    call zKv((Kc[(id)]),$AF,$AF,$FF,8)
    call TimerStart(Active_A0P5_Timer[id],8,false,function Active_A0P5_Expired)
    call Unit_App_Counter($403,(id))
endfunction

function Active_A0P5_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0P5',function Active_A0P5_Actions)
    call SaveReal(BYHT,DroppableTimed,('k3m1'),((75)*1.))
endfunction

function Active_A0P6_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:607")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0P7','B05H')
    call DeUnitAdef((id),Active_A0P6_Adef[id])
    call ModifyHeroProperties((id),-Active_A0P6_StatUp[id])
    call ModifyUnitCritDamage((id),-25)
    call Unit_Cancel_Counter($404,(id))
    set Active_A0P6_Timer[id]=null
    set Active_A0P6_StatUp[id]=0
endfunction

function Active_A0P6_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local integer v=600
    local real d
    local unit u
    if GetWidgetLife((Je[(id)]))<.4*GetUnitMaxLifeById((id))then
        set v=v+$C8
        set d=75*GetHeroStateByMax((Je[(id)]))
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,5)
                endif
            endif
        endloop
        call Ltv(LAv("BlackChakraExplosion.mdx",x,y,1.5))
        call Ltv(Lfv(LAv("uberdarkwave.mdx",x,y,.75),105,105,$FF,$FF))
        call NewTextTagInTarget_B((Je[(id)]),"|c008080ffKill! Kill! Can not stop! |r",$D,$FF,$FF,$FF)
        call UnitCureTaret(null,(Je[(id)]),.75*GetUnitMaxLifeById((id)))
    endif
    call Ltv(LAv("Grin Curse.mdl",x,y,2.5))
    call LQv(LAv("DarkLightningNova.mdx",x,y,2.5),1.5)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2),$9B,$9B,$FF,$FF))
    if Active_A0P6_Timer[id]==null then
        set Active_A0P6_Timer[id]=NewTimer(id)
        set Active_A0P6_Adef[id]=ModifyUnitAdef((id),40)
        call UnitAddAbilityBY((Je[(id)]),'A0P7')
        call ModifyUnitCritDamage((id),25)
        call Unit_App_Counter($405,(id))
    endif
    if v!=Active_A0P6_StatUp[id]then
        call ModifyHeroProperties((id),v-Active_A0P6_StatUp[id])
        set Active_A0P6_StatUp[id]=v
    endif
    call zKv((Kc[(id)]),$AF,$AF,$FF,8)
    call TimerStart(Active_A0P6_Timer[id],8,false,function Active_A0P6_Expired)
endfunction

function Active_A0P6_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0P6',function Active_A0P6_Actions)
    call SaveReal(BYHT,DroppableTimed,('dthb'),((60)*1.))
endfunction

function Active_A0QY_Buff_Remove takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:608")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0QX','B06E')
    call DeUnitMdef((id),Active_A0QY_Buff_mdef[id])
    call Unit_Cancel_Counter($406,(id))
    set Active_A0QY_Buff_timer[id]=null
endfunction

function Active_A0QY_Buff_Add takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if Active_A0QY_Buff_timer[id]==null then
        set Active_A0QY_Buff_timer[id]=NewTimer(id)
        set Active_A0QY_Buff_mdef[id]=ModifyUnitMdef((id),40.)
        call UnitAddAbilityBY(u,'A0QX')
        call Unit_App_Counter($407,(id))
    endif
    call TimerStart(Active_A0QY_Buff_timer[id],.5,false,function Active_A0QY_Buff_Remove)
endfunction

function Active_A0QY_Alloc takes nothing returns integer
    return D9v(Active_A0QY_Func)
endfunction

function Active_A0QY_Recycle takes integer t returns nothing
    call fvv(t)
endfunction

function Active_A0QY_Start takes nothing returns nothing
    local integer t=J[Active_A0QY_Func]
    local integer data
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        if UnitAlive((Je[(Boss_Spell_data1[data])]))then
            set Boss_Spell_X[data]=Boss_Spell_X[data]-1
            set u=(Je[(Boss_Spell_data1[data])])
            set x=GetUnitX((Je[(Boss_Spell_data1[data])]))
            set y=GetUnitY((Je[(Boss_Spell_data1[data])]))
            call LKv(Boss_Spell_data2[data],x)
            call Llv(Boss_Spell_data2[data],y)
            call GroupEnumUnitsInRange(G,x,y,225.+75,null)
            call GroupRemoveUnit(G,u)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,225.)then
                    if IsUnitAllyNotbag(u,(Je[(Boss_Spell_data1[data])]))then
                        call Active_A0QY_Buff_Add(u)
                    endif
                endif
            endloop
        else
            set Boss_Spell_X[data]=0
        endif
        if Boss_Spell_X[data]<1 then
            call DeUnitMdef(Boss_Spell_data1[data],Boss_Spell_data3[data])
            call Unit_Cancel_Counter($408,Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call fvv((t))
        endif
        set t=K[t]
    endloop
endfunction

function Active_A0QY_Actions takes nothing returns nothing
    local integer t=(D9v(Active_A0QY_Func))
    local integer data=Boss_Spell_allocate()
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=LAv("Abilities\\Spells\\Undead\\AntiMagicShell\\AntiMagicShell.mdl",GetUnitX((Je[(Boss_Spell_data1[data])])),GetUnitY((Je[(Boss_Spell_data1[data])])),5)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((500)*1.),0)
    set Boss_Spell_data3[data]=ModifyUnitMdef((Boss_Spell_data1[data]),80.)
    set Boss_Spell_X[data]=32*6.
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",GetUnitX((Je[(Boss_Spell_data1[data])])),GetUnitY((Je[(Boss_Spell_data1[data])])),3),55,$FF,55,$FF))
    call Unit_App_Counter($409,Boss_Spell_data1[data])
endfunction

function Active_A0QY_Init takes nothing returns nothing
    set Active_A0QY_Func=fxv(function Active_A0QY_Start)
    call RegisterSpellEffectEvent('A0QY',function Active_A0QY_Actions)
    call SaveReal(BYHT,DroppableTimed,('sor8'),((120)*1.))
endfunction

function Active_A0RA_GetDamage takes unit NZv,boolean b returns real
    if b then
        return 7.5*GetHeroState3(NZv,true)
    else
        return .75*GetHeroState3(NZv,true)
    endif
endfunction

function Active_A0RA_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real d
    if UnitAlive((Je[(id)]))then
        set Active_A0RA_Count[id]=Active_A0RA_Count[id]-1
        if Active_A0RA_IsCure[id]then
            call UnitCureTaret((Je[(Active_A0RA_Atkuint[id])]),(Je[(id)]),.5*Active_A0RA_GetDamage((Je[(Active_A0RA_Atkuint[id])]),false))
        else
            call UnitDamageTargetBY((((Je[(Active_A0RA_Atkuint[id])]))),(((Je[(id)]))),((((.5*Active_A0RA_GetDamage((Je[(Active_A0RA_Atkuint[id])]),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",(Je[(id)]),"chest"))
    else
        set Active_A0RA_Count[id]=0
    endif
    if Active_A0RA_Count[id]<1 then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set d=50.*GetHeroState3((Je[(Active_A0RA_Atkuint[id])]),true)
        call GroupEnumUnitsInRange(G,x,y,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)then
                if IsUnitAliveAndEnemy(u,(Je[(Active_A0RA_Atkuint[id])]))then
                    call UnitDamageTargetBY((((Je[(Active_A0RA_Atkuint[id])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,.5)
                endif
            endif
        endloop
        if Active_A0RA_IsCure[id]then
            call DeUnitMdef((id),Active_A0RA_Mdef[id])
        else
            call DeUnitBeCureRatio((id),Active_A0RA_Mdef[id])
        endif
        call ReleaseTimer(Active_A0RA_Timer[id],"[TimerUtils]Error:609")
        call Ltv(LAv("Acid Ex.mdl",x,y,2))
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.5),25,$FF,25,$CD))
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0RC','B06J')
        call Unit_Cancel_Counter($40A,(id))
        set Active_A0RA_Timer[id]=null
    endif
endfunction

function Active_A0RA_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    set Active_A0RA_Atkuint[id]=(GetUnitUserData((GetTriggerUnit())))
    set Active_A0RA_Count[id]=R2I($C/ .5)
    if Active_A0RA_Timer[id]==null then
        set Active_A0RA_Timer[id]=NewTimer(id)
        set Active_A0RA_IsCure[id]=IsUnitAliveAndAlly((Je[(id)]),(Je[(Active_A0RA_Atkuint[id])]))
        if Active_A0RA_IsCure[id]then
            set Active_A0RA_Mdef[id]=ModifyUnitMdef((id),40)
            call NewTextTagInTarget_B((Je[(id)]),"+40% MAGIC DEFENSE",$C,55,$FF,55)
        else
            set Active_A0RA_Mdef[id]=ModifyUnitBeCureRatio((id),-40)
            call NewTextTagInTarget_B((Je[(id)]),"-40% HEALING TAKEN",$C,55,$FF,55)
        endif
        call UnitAddAbilityBY((Je[(id)]),'A0RC')
        call Unit_App_Counter($40B,(id))
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",(Je[(id)]),"origin"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(Je[(id)]),"origin"))
    call TimerStart(Active_A0RA_Timer[id],.5,true,function Active_A0RA_Start)
endfunction

function Active_A0RA_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0RA',function Active_A0RA_Actions)
    call SaveReal(BYHT,DroppableTimed,('belv'),((75)*1.))
endfunction

function Active_cnob_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer i=5
    local integer j
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real pX
    local real pY
    loop
        set i=i-1
        set j=GetRandomInt(1,$A)
        set pX=x+GetRandomReal(-$C8,$C8)
        set pY=y+GetRandomReal(-$C8,$C8)
        if j<4 then
            call CreateItemG('pgma',pX,pY)
        elseif j<7 then
            call CreateItemG('pghe',pX,pY)
        elseif j<$A then
            call CreateItemG('fgdg',pX,pY)
        else
            call CreateItemG('pdiv',pX,pY)
        endif
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Polymorph\\PolyMorphDoneGround.mdl",pX,pY))
        exitwhen i==0
    endloop
    call Ltv(LFv(Lfv(LAv("Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl",x,y,2.5),$9B,$9B,$FF,$FF),"Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl"))
    set u=null
endfunction

function Active_shhn_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer i=5
    local integer j
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real pX
    local real pY
    loop
        set i=i-1
        set j=GetRandomInt(1,9)
        set pX=x+GetRandomReal(-$C8,$C8)
        set pY=y+GetRandomReal(-$C8,$C8)
        if j<4 then
            call CreateItemG('wild',pX,pY)
        elseif j<7 then
            call CreateItemG('totw',pX,pY)
        elseif j<$A then
            call CreateItemG('sres',pX,pY)
        endif
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Polymorph\\PolyMorphDoneGround.mdl",pX,pY))
        exitwhen i==0
    endloop
    call Ltv(LFv(Lfv(LAv("Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl",x,y,2.5),$9B,$9B,$FF,$FF),"Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl"))
    set u=null
endfunction

function Active_A020_Init takes nothing returns nothing
    call AddUnitUseItemById('cnob',function Active_cnob_Actions)
    call SaveReal(BYHT,DroppableTimed,('cnob'),((90)*1.))
    call AddUnitUseItemById('shhn',function Active_shhn_Actions)
    call SaveReal(BYHT,DroppableTimed,('shhn'),((90)*1.))
endfunction

function Active_A0JP_Buff_Remove takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:610")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0JT','B03M')
    call DeUnitMdef((id),Active_A0JP_Buff_mdef[id])
    call Unit_Cancel_Counter($40C,(id))
    set Active_A0JP_Buff_timer[id]=null
endfunction

function Active_A0JP_Buff_Add takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if Active_A0JP_Buff_timer[id]==null then
        set Active_A0JP_Buff_timer[id]=NewTimer(id)
        set Active_A0JP_Buff_mdef[id]=ModifyUnitMdef((id),-1.5)
        set Active_A0JP_Buff_lv[id]=1
        call UnitAddAbilityBY((Je[(id)]),'A0JT')
        call Unit_App_Counter($40D,(id))
    elseif Active_A0JP_Buff_lv[id]<4 then
        set Active_A0JP_Buff_lv[id]=Active_A0JP_Buff_lv[id]+1
        call UnitMdefChange((id),Active_A0JP_Buff_mdef[id],-1.5*Active_A0JP_Buff_lv[id])
    endif
    call TimerStart(Active_A0JP_Buff_timer[id],3,false,function Active_A0JP_Buff_Remove)
endfunction

function Active_A0JP_Alloc takes nothing returns integer
    return D9v(Active_A0JP_Func)
endfunction

function Active_A0JP_Recycle takes integer t returns nothing
    call fvv(t)
endfunction

function Active_A0JP_Start takes nothing returns nothing
    local integer t=J[Active_A0JP_Func]
    local integer data
    local integer b
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]-1
        set i=6
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        call LDv(Boss_Spell_data2[data],2.-Boss_Spell_Y[data]/ 128.)
        loop
            set i=i-1
            set a=Boss_Spell_Y[data]*Lx/ 48.+i*Lx/ 6.
            set fx=LoadInteger(BYHT,Boss_Spell_data3[data],i)
            call LKv(fx,x+400*Cos(a))
            call Llv(fx,y+400*Sin(a))
            call SetUnitFacing(II[(fx)],((a+Lx/ 4.)*1.)*bj_RADTODEG)
            exitwhen i==0
        endloop
        if ModuloInteger(R2I(Boss_Spell_Y[data]),8)==0 then
            set i=3
            loop
                set i=i-1
                set a=GetRandomReal(i*Lx,(i-1)*Lx)
                set b=CreateBarrageTypeD(x+475*Cos(a),y+475*Sin(a),GetRandomReal(50,$96),x,y,0)
                call SetBarrageFlightRadian(b,GetRandomReal(-.25,.25))
                set s__barrage_speed[b]=0
                set s__barrage_acceleration[b]=1.25
                call LMv(s__barrage_model[b],"Haunt_v2.mdl")
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(0,400)
                call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x+d*Cos(a),y+d*Sin(a)))
                call BOv(b)
                exitwhen i==0
            endloop
            if ModuloInteger(R2I(Boss_Spell_Y[data]),16)==0 then
                call GroupEnumUnitsInRange(G,x,y,400+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,400)then
                        if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call Active_A0JP_Buff_Add(u)
                        endif
                    endif
                endloop
                call Ltv(LAv("WarpDarkTarget.mdl",x,y,4))
                if ModuloInteger(R2I(Boss_Spell_Y[data]),48)==0 then
                    call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",x,y,4),125,0,$FF,$CD))
                endif
            endif
        endif
        if Boss_Spell_Y[data]<1 then
            set i=6
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,Boss_Spell_data3[data],i)))
                exitwhen i==0
            endloop
            call Unit_Cancel_Counter($40E,Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data2[data])
            call free(Boss_Spell_data3[data])
            call Boss_Spell_deallocate(data)
            call fvv((t))
        endif
        set t=K[t]
    endloop
endfunction

function Active_A0JP_Actions takes nothing returns nothing
    local integer t=(D9v(Active_A0JP_Func))
    local integer data=Boss_Spell_allocate()
    local integer i=6
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real a
    local integer fx
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=LVv('e00S',x,y,0)
    call LDv(Boss_Spell_data2[data],.125)
    set Boss_Spell_data3[data]=malloc()
    set Boss_Spell_X[data]=12.5*GetHeroState3((Je[(Boss_Spell_data1[data])]),true)
    set Boss_Spell_Y[data]=$80
    loop
        set i=i-1
        set a=Boss_Spell_Y[data]*Lx/ 48.+i*Lx/ 6.
        set fx=Lnv(x+400*Cos(a),y+400*Sin(a),a+Lx/ 4)
        call LMv(fx,"OrbOfCorruption.mdl")
        call SetUnitFlyHeight(II[(fx)],((75)*1.),0)
        call SaveInteger(BYHT,Boss_Spell_data3[data],i,fx)
        exitwhen i==0
    endloop
    call Unit_App_Counter($40F,Boss_Spell_data1[data])
endfunction

function Active_A0JP_Init takes nothing returns nothing
    set Active_A0JP_Func=fxv(function Active_A0JP_Start)
    call RegisterSpellEffectEvent('A0JP',function Active_A0JP_Actions)
    call SaveReal(BYHT,DroppableTimed,('rat6'),((75)*1.))
    call Luv('A0JP')
endfunction

function Active_A0JR_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:611")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0JQ','B03L')
    call HeroAddExtraInt((id),-850)
    call Unit_Cancel_Counter($410,id)
endfunction

function Active_A0JR_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real l=GetWidgetLife((Je[(id)]))-.4*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    if UnitAddAbilityBY((Je[(id)]),'A0JQ')then
        call HeroAddExtraInt((id),850)
        call TimerStart(NewTimer(id),$B,false,function Active_A0JR_Expired)
        call Unit_App_Counter($411,id)
    endif
    if l<1 then
        call KillUnit((Je[(id)]))
    else
        call SetWidgetLife((Je[(id)]),l)
    endif
    call DestroyEffect(AddSpecialEffectTarget("DeathBladeRegeneration.mdl",(Je[(id)]),"origin"))
    call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",x,y,1.5),125,0,$FF,$CD))
endfunction

function Active_A0JR_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0JR',function Active_A0JR_Actions)
    call SaveReal(BYHT,DroppableTimed,('ward'),((120)*1.))
endfunction

function s__A0C7_stop takes integer this returns nothing
    if s__A0C7_use[this]then
        set s__A0C7_FL[s__A0C7_FR[this]]=s__A0C7_FL[this]
        set s__A0C7_FR[s__A0C7_FL[this]]=s__A0C7_FR[this]
        set s__A0C7_use[this]=false
        if s__A0C7_FR[(0)]==0 then
            call frv(s__A0C7_func)
        endif
        call Unit_Cancel_Counter($412,(this))
    endif
endfunction

function s__A0C7_loop_c takes nothing returns nothing
    local integer this=s__A0C7_FR[(0)]
    loop
        exitwhen this==0
        if UnitAlive((Je[(this)]))then
            set s__A0C7_count[this]=s__A0C7_count[this]-1
            if ModuloInteger(s__A0C7_count[this],16)==0 then
                call UnitCureTaret((Je[(this)]),(Je[(this)]),.01*GetUnitMaxLifeById((this)))
            endif
            call SetUnitVertexColor((Je[(this)]),GetRandomInt(1,$FF),GetRandomInt(1,$FF),GetRandomInt(1,$FF),$CD)
        else
            set s__A0C7_count[this]=0
        endif
        if s__A0C7_count[this]<1 then
            if kc[(this)]=='H00H' then
                call SetUnitScale((Je[(this)]),1.55,1,1)
            elseif kc[(this)]=='H001' then
                call SetUnitScale((Je[(this)]),1.45,1,1)
            elseif kc[(this)]=='Hamg' then
                call SetUnitScale((Je[(this)]),1.4,1,1)
            elseif kc[(this)]=='H003' then
                call SetUnitScale((Je[(this)]),1.2,1,1)
            elseif kc[(this)]=='H009' or kc[(this)]=='H007' then
                call SetUnitScale((Je[(this)]),1.15,1,1)
            elseif kc[(this)]=='H004' or kc[(this)]=='H008' then
                call SetUnitScale((Je[(this)]),1.1,1,1)
            elseif kc[(this)]=='H002' then
                call SetUnitScale((Je[(this)]),1,1,1)
            elseif kc[(this)]=='H000' or kc[(this)]=='H01H' then
                call SetUnitScale((Je[(this)]),.95,1,1)
            elseif kc[(this)]=='H00E' or kc[(this)]=='H006' then
                call SetUnitScale((Je[(this)]),.9,1,1)
            elseif kc[(this)]=='H00Z' or kc[(this)]=='H005' or kc[(this)]=='H01I' then
                call SetUnitScale((Je[(this)]),.8,1,1)
            elseif kc[(this)]=='Hmkg' then
                call SetUnitScale((Je[(this)]),.78,1,1)
            elseif kc[(this)]=='Hblm' then
                call SetUnitScale((Je[(this)]),.75,1,1)
            else
                call SetUnitScale((Je[(this)]),1,1,1)
            endif
            call SetUnitVertexColor((Je[(this)]),$FF,$FF,$FF,$FF)
            call DeUnitMdef((this),s__A0C7_mdef[this])
            call ModifyHeroAllStat((this),-$FA)
            call s__A0C7_stop(this)
        endif
        set this=s__A0C7_FR[this]
    endloop
endfunction

function s__A0C7_start takes integer this returns boolean
    if not s__A0C7_use[this]then
        if s__A0C7_FR[(0)]==0 then
            if s__A0C7_func==0 then
                set s__A0C7_func=fxv(function s__A0C7_loop_c)
            endif
            call fov(s__A0C7_func)
        endif
        set s__A0C7_FR[this]=s__A0C7_FR[(0)]
        set s__A0C7_FL[s__A0C7_FR[(0)]]=this
        set s__A0C7_FR[(0)]=this
        set s__A0C7_FL[this]=0
        set s__A0C7_use[this]=true
        call Unit_App_Counter($413,(this))
        return true
    endif
    return false
endfunction

function s__A0C7_action takes nothing returns nothing
    local integer this=(GetUnitUserData((GetTriggerUnit())))
    if s__A0C7_start(this)then
        set s__A0C7_mdef[this]=ModifyUnitMdef((this),60)
        call ModifyHeroAllStat((this),$FA)
    endif
    set s__A0C7_count[this]=384
    call Ltv(LAv("Acid Ex.mdl",GetUnitX((Je[(this)])),GetUnitY((Je[(this)])),1.5))
    call SetUnitScale((Je[(this)]),.5,.5,.5)
endfunction

function s__A0C7_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0C7',function s__A0C7_action)
    call SaveReal(BYHT,DroppableTimed,('evtl'),((120)*1.))
endfunction

function Active_A0MF_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    call DestroyEffect(AddSpecialEffectTarget("BloodEX-Special.mdl",c,"origin"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",c,"origin"))
    call UnitCureTaret(c,c,.3*GetUnitState(c,UNIT_STATE_MAX_LIFE))
    set c=null
endfunction

function Active_A0MF_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0MF',function Active_A0MF_Actions)
    call SaveReal(BYHT,DroppableTimed,('clfm'),((20)*1.))
endfunction

function Active_A06H_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real h=$FA0+.25*GetUnitState(c,UNIT_STATE_MAX_LIFE)
    call GroupEnumUnitsInRange(G,x,y,450+75,null)
    call GroupRemoveUnit(G,c)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,450)then
            if IsUnitAliveAndAlly(u,c)then
                call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Human\\HumanBlood\\BloodElfSpellThiefBlood.mdl",u,"chest"))
                call UnitCureTaret(c,u,h)
            endif
        endif
    endloop
    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Human\\HumanBlood\\BloodElfSpellThiefBlood.mdl",c,"chest"))
    call UnitCureTaret(c,c,h)
    set c=null
endfunction

function Active_A06H_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A06H',function Active_A06H_Actions)
    call SaveReal(BYHT,DroppableTimed,('I03Z'),((60)*1.))
endfunction

function Active_A0S0_Actions takes nothing returns nothing
    call SetUnitState(GetTriggerUnit(),UNIT_STATE_LIFE,GetUnitState(GetTriggerUnit(),UNIT_STATE_MAX_LIFE))
endfunction

function Active_A0S0_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0S0',function Active_A0S0_Actions)
    call SaveReal(BYHT,DroppableTimed,('kymn'),((75)*1.))
endfunction

function Active_A0AS_Alloc takes nothing returns integer
    return D9v(Active_A0AS_TimerFunc)
endfunction

function Active_A0AS_Recycle takes integer t returns nothing
    call fvv(t)
endfunction

function Active_A0AS_Start takes nothing returns nothing
    local integer t=J[Active_A0AS_TimerFunc]
    local integer data
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
        call LKv(Boss_Spell_data2[data],x)
        call Llv(Boss_Spell_data2[data],y)
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if ModuloInteger(Boss_Spell_data3[data],4)==0 then
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+GetRandomReal(-300,300),y+GetRandomReal(-300,300),1.25))
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+GetRandomReal(-300,300),y+GetRandomReal(-300,300),1.25))
        endif
        call GroupEnumUnitsInRange(G,x,y,400+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,400)then
                if UnitAlive(u)and not IsUnitInGroup(u,Boss_Spell_group1[data])then
                    call GroupAddUnit(Boss_Spell_group1[data],u)
                    call DestroyEffect(AddSpecialEffectTarget("AquaSpike.mdl",u,"origin"))
                    if IsUnitEnemy(u,GetOwningPlayer(Boss_Spell_unit1[data]))then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    else
                        call UnitCureTaret(Boss_Spell_unit1[data],u,$BB8)
                        call Auxiliary_TargetOrder(('ACbb'),null,1,$D0085,u)
                    endif
                endif
            endif
        endloop
        if Boss_Spell_data3[data]<=0 then
            call RecycleGroup(Boss_Spell_group1[data])
            call Ltv(Boss_Spell_data2[data])
            call Unit_Cancel_Counter($414,Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call fvv((t))
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_group1[data]=null
        endif
        set t=K[t]
    endloop
endfunction

function Active_A0AS_Actions takes nothing returns nothing
    local integer t=(D9v(Active_A0AS_TimerFunc))
    local integer data=Boss_Spell_allocate()
    local real a
    set Timer_List[t]=data
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set a=bj_DEGTORAD*GetUnitFacing((Je[(Boss_Spell_data1[data])]))
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_Z[data]=$FA0+25*GetHeroStateByMax((Je[(Boss_Spell_data1[data])]))
    set Boss_Spell_data3[data]=40
    set Boss_Spell_X[data]=40*Cos(a)
    set Boss_Spell_Y[data]=40*Sin(a)
    set Boss_Spell_data2[data]=Lnv(GetUnitX(Boss_Spell_unit1[data])-20*Boss_Spell_X[data],GetUnitY(Boss_Spell_unit1[data])-20*Boss_Spell_Y[data],a)
    call LMv(Boss_Spell_data2[data],"Abilities\\Spells\\Other\\CrushingWave\\CrushingWaveMissile.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((2)*1.),0,0)
    call Unit_App_Counter($415,Boss_Spell_data1[data])
endfunction

function Active_A0AS_Init takes nothing returns nothing
    set Active_A0AS_TimerFunc=fxv(function Active_A0AS_Start)
    call RegisterSpellEffectEvent('A0AS',function Active_A0AS_Actions)
    call SaveReal(BYHT,DroppableTimed,('ciri'),((60)*1.))
endfunction

function SummonedUnit_otau_onAttack takes nothing returns nothing
    local unit s=(Je[((Master[((pF_v))]))])
    if GetRandomInt(1,20)<4 then
        call UnitDamageTargetBY(((s)),(((MF))),(((($9C4+2.5*GetHeroState3(s,true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((8)*1.))*1.),(("|c007387ff+")))
    endif
    call UnitAppBuff((pF),'AUfn',$D0102)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl",(MF),"chest"))
    set s=null
endfunction

function Active_A0CC_Expired takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:612")
    local integer i=Boss_Spell_data3[data]
    local integer fx
    local real x
    local real y
    local unit s=Boss_Spell_unit1[data]
    local unit u
    local real d=5000+$F*GetHeroState3(s,true)
    local player p=GetOwningPlayer(s)
    loop
        exitwhen i==0
        set i=i-1
        set fx=LoadInteger(BYHT,Boss_Spell_data2[data],i)
        set x=(GetUnitX(II[(fx)]))
        set y=(GetUnitY(II[(fx)]))
        set u=CreateUnit(p,'otau',x,y,GetRandomReal(0,359))
        call SummonedUnitSetMaster((GetUnitUserData((u))),Boss_Spell_data1[data])
        call UnitAddPAttackTrig((GetUnitUserData((u))),function SummonedUnit_otau_onAttack)
        call SetUnitVertexColor(u,$FF,$FF,$FF,$CD)
        call UnitApplyTimedLife(u,'Bply',$C)
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)then
                if IsUnitAliveAndEnemy(u,s)then
                    call UnitDamageTargetBY(((s)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitAppBuff((GetUnitUserData((u))),'ACfn',$D0102)
                endif
            endif
        endloop
        call Ltv(LAv("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",x,y,1.75))
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,1.75),1.25)
        call Lqv(LAv("Shiva'sWrath.mdl",x,y,1.5),1.75)
        call Ltv(fx)
    endloop
    call Unit_Cancel_Counter($416,Boss_Spell_data1[data])
    call free(Boss_Spell_data2[data])
    call Boss_Spell_deallocate(data)
    set Boss_Spell_unit1[data]=null
    set p=null
    set s=null
endfunction

function Active_A0CC_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer i=4
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real tx
    local real ty
    local real a
    local integer fx
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((Boss_Spell_unit1[data])))
    set Boss_Spell_data2[data]=malloc()
    set Boss_Spell_data3[data]=i
    loop
        set i=i-1
        set a=i*Lx/ 4
        set tx=x+125*Cos(a)
        set ty=y+125*Sin(a)
        set fx=LAv("SnowyBlizzardTarget.mdl",tx,ty,1.5)
        call SaveInteger(BYHT,Boss_Spell_data2[data],i,fx)
        exitwhen i==0
    endloop
    call TimerStart(NewTimer(data),1,false,function Active_A0CC_Expired)
    call Unit_App_Counter($417,Boss_Spell_data1[data])
endfunction

function Active_A0CC_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0CC',function Active_A0CC_Actions)
    call SaveReal(BYHT,DroppableTimed,('ssil'),((120)*1.))
endfunction

function s__Redemption_cancel takes integer this returns nothing
    if s__Redemption_timed[this]>0 then
        set s__Redemption_timed[this]=0
        if GetUnitAbilityLevel((Je[(this)]),'A07Z')>0 then
            call UnitRemoveAbilityandBuffBY((Je[(this)]),'A07Z','B01M')
            call ModifyUnitHpRegen((this),-$9C4)
        elseif GetUnitAbilityLevel((Je[(this)]),'A09W')>0 then
            call UnitRemoveAbilityandBuffBY((Je[(this)]),'A09W','B031')
            call ModifyUnitHpRegen((this),-$DAC)
        endif
    endif
endfunction

function s__Redemption_stop takes integer this returns nothing
    if s__Redemption_is_app[this]then
        set s__Redemption_FL[s__Redemption_FR[this]]=s__Redemption_FL[this]
        set s__Redemption_FR[s__Redemption_FL[this]]=s__Redemption_FR[this]
        set s__Redemption_is_app[this]=false
        if s__Redemption_FR[(0)]==0 then
            call frv(s__Redemption_func)
        endif
        call s__Redemption_cancel(this)
        call Unit_Cancel_Counter($418,this)
    endif
endfunction

function s__Redemption_loop_c takes nothing returns boolean
    local integer this=s__Redemption_FR[(0)]
    loop
        exitwhen this==0
        if s__Redemption_timed[this]>0 then
            if not UnitAlive((Je[(this)]))or s__Redemption_timed[this]==1 then
                call s__Redemption_cancel(this)
            else
                set s__Redemption_timed[this]=s__Redemption_timed[this]-1
            endif
        elseif(100000.-TimerGetRemaining(GameTimer))>s__Redemption_cd[this]and UnitAlive((Je[(this)]))and GetWidgetLife((Je[(this)]))<=.3*GetUnitState((Je[(this)]),UNIT_STATE_MAX_LIFE)then
            set s__Redemption_timed[this]=320
            if s__Redemption_is_sbch[this]then
                set s__Redemption_cd[this]=(100000.-TimerGetRemaining(GameTimer))+35
                call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(this)]],('sbch')))),35)
                call UnitAddAbilityBY((Je[(this)]),'A09W')
                call ModifyUnitHpRegen(this,$DAC)
            else
                set s__Redemption_cd[this]=(100000.-TimerGetRemaining(GameTimer))+55
                call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(this)]],('I08X')))),55)
                call UnitAddAbilityBY((Je[(this)]),'A07Z')
                call ModifyUnitHpRegen(this,$9C4)
            endif
        endif
        set this=s__Redemption_FR[this]
    endloop
    return false
endfunction

function s__Redemption_start takes integer this returns boolean
    if not s__Redemption_is_app[this]then
        if s__Redemption_FR[(0)]==0 then
            if s__Redemption_func==0 then
                set s__Redemption_func=fxv(function s__Redemption_loop_c)
            endif
            call fov(s__Redemption_func)
        endif
        set s__Redemption_FR[this]=s__Redemption_FR[(0)]
        set s__Redemption_FL[s__Redemption_FR[(0)]]=this
        set s__Redemption_FR[(0)]=this
        set s__Redemption_FL[this]=0
        set s__Redemption_is_app[this]=true
        call Unit_App_Counter($419,this)
        return true
    endif
    return false
endfunction

function s__Redemption_Passive takes nothing returns nothing
    local integer id=Ahv
    local boolean b=ATv
    if b then
        call s__Redemption_start(id)
        set s__Redemption_is_sbch[id]=((LasManipulatedEquipTypeId)=='sbch')
    else
        call s__Redemption_stop(id)
    endif
endfunction

function Corruptor_series_B_action takes nothing returns nothing
    local integer id=Ahv
    local boolean b=ATv
    if b then
        set Corruptor_type[id]=LasManipulatedEquipTypeId
    else
        call Active_Corruptor_End(id)
        set Corruptor_type[id]=0
    endif
endfunction

function s__AubreyFurHats_RemoveBuff takes integer this returns nothing
    if s__AubreyFurHats_isbuff[this]then
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0PL','B05Q')
        call HeroAddExtraInt((this),-s__AubreyFurHats_Int[this])
        set s__AubreyFurHats_isbuff[this]=false
    endif
endfunction

function s__AubreyFurHats_End takes integer this returns nothing
    if s__AubreyFurHats_use[this]then
        set s__AubreyFurHats_FL[s__AubreyFurHats_FR[this]]=s__AubreyFurHats_FL[this]
        set s__AubreyFurHats_FR[s__AubreyFurHats_FL[this]]=s__AubreyFurHats_FR[this]
        set s__AubreyFurHats_use[this]=false
        if s__AubreyFurHats_FR[(0)]==0 then
            call frv(s__AubreyFurHats_func)
        endif
        call s__AubreyFurHats_RemoveBuff(this)
        call Unit_Cancel_Counter($41A,(this))
    endif
endfunction

function s__AubreyFurHats_loop_c takes nothing returns boolean
    local integer this=s__AubreyFurHats_FR[(0)]
    local unit u
    local real x
    local real y
    local real d
    loop
        exitwhen this==0
        if not UnitAlive((Je[(this)]))then
            set s__AubreyFurHats_timed[this]=0
        elseif s__AubreyFurHats_timed[this]>0 then
            set s__AubreyFurHats_timed[this]=s__AubreyFurHats_timed[this]-1
        elseif not s__AubreyFurHats_isbuff[this]and GetWidgetLife((Je[(this)]))<.25*GetUnitMaxLifeById((this))then
            set s__AubreyFurHats_isbuff[this]=true
            set s__AubreyFurHats_timed[this]=480
            call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[((this))]],(GetHeroEquipSlot((this),3))))),$F)
            set x=GetUnitX((Je[(this)]))
            set y=GetUnitY((Je[(this)]))
            if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((this))]],('sor6')))then
                set s__AubreyFurHats_Int[this]=R2I(.12*GetHeroIntNotExtra((this)))
                set d=50*GetHeroState3((Je[(this)]),true)
            else
                set s__AubreyFurHats_Int[this]=R2I(.15*GetHeroIntNotExtra((this)))
                set d=75*GetHeroState3((Je[(this)]),true)
            endif
            call Ltv(LAv("ShadowWave.mdl",x,y,1.5))
            call Ltv(LAv("Desecrate.mdl",x,y,1.5))
            call zhv((Kc[(this)]),25,.27)
            call zKv((Kc[(this)]),$FF,25,$FF,.27)
            call UnitAddAbilityBY((Je[(this)]),'A0PL')
            call HeroAddExtraInt((this),s__AubreyFurHats_Int[this])
            call UnitCureTaret(null,(Je[(this)]),.4*GetUnitMaxLifeById((this)))
            call GroupEnumUnitsInRange(G,x,y,475,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,400)and IsUnitAliveAndEnemy(u,(Je[(this)]))then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    call UnitDamageTargetBY((((Je[(this)]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00625676")))
                    call m2v(u,1.5,'A500','B500',true)
                endif
            endloop
        endif
        if s__AubreyFurHats_timed[this]<1 then
            call s__AubreyFurHats_RemoveBuff(this)
        endif
        set this=s__AubreyFurHats_FR[this]
    endloop
    return false
endfunction

function s__AubreyFurHats_strt takes integer this returns integer
    if s__AubreyFurHats_use[this]then
        call s__AubreyFurHats_RemoveBuff(this)
    else
        if s__AubreyFurHats_FR[(0)]==0 then
            if s__AubreyFurHats_func==0 then
                set s__AubreyFurHats_func=fxv(function s__AubreyFurHats_loop_c)
            endif
            call fov(s__AubreyFurHats_func)
        endif
        set s__AubreyFurHats_FR[this]=s__AubreyFurHats_FR[(0)]
        set s__AubreyFurHats_FL[s__AubreyFurHats_FR[(0)]]=this
        set s__AubreyFurHats_FR[(0)]=this
        set s__AubreyFurHats_FL[this]=0
        set s__AubreyFurHats_use[this]=true
        call Unit_App_Counter($41B,(this))
    endif
    return this
endfunction

function s__AubreyFurHats_Passive takes nothing returns nothing
    local integer id=Ahv
    local boolean b=ATv
    if b then
        call s__AubreyFurHats_strt(id)
    else
        call s__AubreyFurHats_End(id)
    endif
endfunction

function s__rej4_removebuff takes integer this returns nothing
    call ModifyHeroInt((this),-100*s__rej4_int[this])
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0QI','B067')
    set s__rej4_int[this]=0
endfunction

function s__rej4_loop_c takes nothing returns nothing
    local integer this=s__rej4_FL[(0)]
    local unit local_hero
    local unit u
    local integer i
    local real x
    local real y
    local integer local_num
    local integer local_num_max=$C
    local integer local_timed_mod=R2I(32*.25)
    loop
        exitwhen this==0
        set s__rej4_timed[this]=ModuloInteger(s__rej4_timed[this]+1,local_timed_mod)
        if s__rej4_timed[this]==0 then
            set local_num=0
            set local_hero=(Je[(this)])
            set i=GetPlayerId(GetOwningPlayer(local_hero))
            if UnitAlive(local_hero)then
                set x=GetUnitX(local_hero)
                set y=GetUnitY(local_hero)
                call GroupEnumUnitsInRange(G,x,y,750.+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,750.)then
                        if IsUnitType(u,UNIT_TYPE_MECHANICAL)and IsUnitOwnedByPlayer(u,P[i])then
                            set local_num=local_num+1
                            exitwhen local_num==local_num_max
                        endif
                    endif
                endloop
            endif
            if local_num<1 and GetUnitAbilityLevel(local_hero,'A0QI')==1 then
                call UnitRemoveAbilityandBuffBY(local_hero,'A0QI','B067')
            elseif local_num>0 and GetUnitAbilityLevel(local_hero,'A0QI')==0 then
                call UnitAddAbilityBY(local_hero,'A0QI')
            endif
            if local_num!=s__rej4_int[this]then
                call ModifyHeroInt((this),100*(local_num-s__rej4_int[this]))
                set s__rej4_int[this]=local_num
            endif
            set local_hero=null
        endif
        set this=s__rej4_FL[this]
    endloop
    set u=null
endfunction

function s__rej4_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if s__rej4_use[this]then
            call s__rej4_removebuff(this)
        else
            if s__rej4_FL[(0)]==0 then
                if s__rej4_func==0 then
                    set s__rej4_func=fxv(function s__rej4_loop_c)
                endif
                call fov(s__rej4_func)
            endif
            set s__rej4_FL[this]=s__rej4_FL[(0)]
            set s__rej4_FR[s__rej4_FL[(0)]]=this
            set s__rej4_FL[(0)]=this
            set s__rej4_FR[this]=0
            set s__rej4_use[this]=true
            call Unit_App_Counter($41C,this)
        endif
    else
        if s__rej4_use[this]then
            set s__rej4_FR[s__rej4_FL[this]]=s__rej4_FR[this]
            set s__rej4_FL[s__rej4_FR[this]]=s__rej4_FL[this]
            set s__rej4_use[this]=false
            if s__rej4_FL[(0)]==0 then
                call frv(s__rej4_func)
            endif
            call s__rej4_removebuff(this)
            call Unit_Cancel_Counter($41D,this)
        endif
    endif
endfunction

function s__bzbe_stop takes nothing returns nothing
    call frv(s__bzbe_func)
endfunction

function s__bzbe_ReoveBarrage takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__bzbe_proc takes integer this returns boolean
    if UnitAlive(s__barrage_target[this])then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\OrbOfDeath\\OrbOfDeathMissile.mdl",s__barrage_target[this],"chest"))
        call UnitCureTaret(null,s__barrage_target[this],.01*4.5*GetUnitMaxLifeById((GetUnitUserData((s__barrage_target[this])))))
        call SetUnitState(s__barrage_target[this],UNIT_STATE_MANA,GetUnitState(s__barrage_target[this],UNIT_STATE_MANA)+.01*3.*GetUnitState(s__barrage_target[this],UNIT_STATE_MAX_MANA))
    endif
    return true
endfunction

function s__bzbe_start takes nothing returns boolean
    local integer this=s__barrage_FR[s__bzbe_launcher]
    local unit u
    if this!=s__bzbe_launcher then
        call UseBarrage(s__bzbe_launcher)
        loop
            exitwhen this==s__bzbe_launcher
            if(s__barrage_outside[(this)])then
                call s__bzbe_proc(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                if s__bzbe_proc(this)then
                    call RemoveBarrage((this))
                else
                    set s__barrage_finish[(this)]=false
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__bzbe_launcher]then
        set s__barrage_InOperation[s__bzbe_launcher]=false
        call frv(s__bzbe_func)
    endif
    return false
endfunction

function s__bzbe_FiredBarrage takes integer this returns nothing
    call s__barrage_Filling((s__bzbe_launcher),(this))
    if not s__barrage_InOperation[s__bzbe_launcher]then
        set s__barrage_InOperation[s__bzbe_launcher]=true
        call fov(s__bzbe_func)
    endif
endfunction

function s__bzbe_onInit takes nothing returns nothing
    set s__bzbe_func=fxv(function s__bzbe_start)
    set s__bzbe_launcher=NewLauncher()
endfunction

function s__bzbe_loop_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer b
    local integer i
    local real a
    local real x
    local real y
    if UnitAlive((Je[(id)]))then
        set i=3
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set a=GetRandomReal(0,Lx)
        loop
            exitwhen i==0
            set i=i-1
            set a=a+Lx/ 3
            set b=CreateBarrageTypeC(x+250.*Cos(a),y+250.*Sin(a),50,(Je[(id)]))
            call LMv(s__barrage_model[b],"Punishment_Missle.mdl")
            call SetUnitScale(II[(s__barrage_model[b])],((.75)*1.),0,0)
            set s__barrage_speed[b]=.03125*750.
            call SetBarrageFlightRadian(b,.3)
            call s__bzbe_FiredBarrage(b)
        endloop
    endif
endfunction

function s__bzbe_Passive takes nothing returns nothing
    local integer id=Ahv
    local boolean b=ATv
    if b then
        if s__bzbe_Tm[id]==null then
            set s__bzbe_Tm[id]=NewTimer(id)
        endif
        call TimerStart(s__bzbe_Tm[id],5.,true,function s__bzbe_loop_c)
    else
        if s__bzbe_Tm[id]!=null then
            call ReleaseTimer(s__bzbe_Tm[id],"[TimerUtils]Error:613")
            set s__bzbe_Tm[id]=null
        endif
    endif
endfunction

function s__I0CE_removebuff takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:614")
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0IA','B019')
    call ModifyHeroAgi((this),-60*s__I0CE_bufflv[this])
    call Unit_Cancel_Counter($41E,(this))
    set s__I0CE_buff_tm[this]=null
    set s__I0CE_bufflv[this]=0
endfunction

function s__I0CE_Equip_I0CE_AddBuff takes integer this returns nothing
    if s__I0CE_buff_tm[this]==null then
        set s__I0CE_buff_tm[this]=NewTimer(this)
        call UnitAddAbilityBY((Je[(this)]),'A0IA')
        call Unit_App_Counter($41F,(this))
    endif
    if s__I0CE_bufflv[this]<$A then
        set s__I0CE_bufflv[this]=s__I0CE_bufflv[this]+1
        call ModifyHeroAgi((this),60)
    endif
    call TimerStart(s__I0CE_buff_tm[this],7,false,function s__I0CE_removebuff)
endfunction

function s__I0CE_onAttack takes nothing returns nothing
    local integer this=(GetUnitUserData(((mF))))
    if GetRandomInt(1,8)==1 then
        call DestroyEffect(AddSpecialEffectTarget("DarkLightning.mdl",MF,"origin"))
        call DestroyEffect(AddSpecialEffectTarget("DarkLightningNova.mdl",MF,"origin"))
        call UnitDamageTargetBY((((mF))),((MF)),(((($3A98+6*GetHeroStateByMax((mF)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((20)*1.))*1.),(("|cFFFF6600")))
        call UnitCureTaret(null,(mF),.075*GetUnitState((mF),UNIT_STATE_MAX_LIFE))
    else
        call DestroyEffect(AddSpecialEffectTarget("ShadowAssault.mdl",MF,"origin"))
        call DestroyEffect(AddSpecialEffectTarget("DarknessExplosion.mdl",MF,"origin"))
        call UnitDamageTargetBY((((mF))),((MF)),((((7500+2.5*GetHeroStateByMax((mF)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call UnitCureTaret(null,(mF),.03*GetUnitState((mF),UNIT_STATE_MAX_LIFE))
    endif
    call s__I0CE_Equip_I0CE_AddBuff(this)
    call TimerDestroyAddSpecialEffectTargetBY("ShadowTrap.mdl",(mF),"origin",1.25)
    call UnitRemoveAbilityandBuffBY((mF),'A0I9','B013')
    call s__Trig_remove(s__I0CE_atk[this])
    set s__I0CE_atk[this]=0
endfunction

function s__I0CE_onSpellEffect takes nothing returns nothing
    local integer this=s__Trig_P
    if s__I0CE_atk[this]==null then
        set s__I0CE_atk[this]=UnitAddPAttackTrigB((this),function s__I0CE_onAttack)
        call UnitAddAbilityBY((Je[(this)]),'A0I9')
    endif
endfunction

function s__I0CE_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b==false then
        if s__I0CE_atk[this]>0 then
            call s__Trig_remove(s__I0CE_atk[this])
            set s__I0CE_atk[this]=0
        endif
    endif
endfunction

function Equip_I0DI_PickupOrDrop takes nothing returns nothing
    call Equip_I0DI_RemoveBuff(Ahv)
endfunction

function s__odef_Removebuff takes integer this returns nothing
    if s__odef_Source[this]!=0 then
        if s__odef_Type_Id[this]==3 then
            call UnitRemoveAbilityandBuffBY((Je[(s__odef_Source[this])]),'A0VR','B081')
        else
            call UnitRemoveAbilityandBuffBY((Je[(s__odef_Source[this])]),'A0IV','B034')
        endif
        call s__Trig_remove((s__odef_Atk_trig[this]))
        call Unit_Cancel_Counter($420,s__odef_Source[this])
        set s__odef_Source[this]=0
    endif
endfunction

function s__odef_onattakc takes nothing returns nothing
    local integer this=s__Trig_P2[s__Trig_Index]
    local boolean crit=false
    local integer lv=s__odef_Type_Id[this]
    local integer v=GetHeroState1((Je[(this)]),true)+GetHeroState2((Je[(this)]),true)+GetHeroState3((Je[(this)]),true)
    local integer index=3
    if lv==3 then
        if IsUnitType((mF),UNIT_TYPE_SUMMONED)then
            set index=index-1
        endif
        set crit=GetRandomInt(1,3)==1
    elseif lv==2 then
        if IsUnitType((mF),UNIT_TYPE_SUMMONED)then
            set index=index-1
        endif
        set crit=GetRandomInt(1,5)==1
    elseif lv==1 then
        if IsUnitType((mF),UNIT_TYPE_SUMMONED)==false then
            set index=index+1
        endif
    endif
    set s__odef_time[this]=32*index
    if lv!=3 then
        if crit then
            call UnitDamageTargetBY((((Je[(this)]))),(((MF))),(((($F*v)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),((((20)*1.))*1.),(("|c00f2fed6")))
            call Ltv(Lfv(LAv("NatureExplosion.mdl",GetUnitX((MF)),GetUnitY((MF)),1.25),125,125,125,125))
        else
            call UnitDamageTargetBY((((Je[(this)]))),(((MF))),((((7.5*v)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($F)*1.))*1.),(("|c00f2fed6")))
            call Ltv(Lfv(LAv("NatureExplosion.mdl",GetUnitX((MF)),GetUnitY((MF)),.75),125,125,125,125))
        endif
        call DestroyEffect(AddSpecialEffectTarget("Ultima.mdl",(MF),"origin"))
        call PlaySoundOnUnit_BJ((s__odef_snd_ReviveNightElf),((75)*1.),((MF)))
        call UnitAppBuff((pF),'A0VS',$D006B)
    else
        if crit then
            call UnitDamageTargetBY((((Je[(this)]))),(((MF))),((((3*12.5*v)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),((((20)*1.))*1.),(("|c00a799d0")))
        else
            call UnitDamageTargetBY((((Je[(this)]))),(((MF))),((((12.5*v)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($F)*1.))*1.),(("|c00a799d0")))
        endif
        call DestroyEffect(AddSpecialEffectTarget("CurseBoltPurple.mdl",(MF),"chest"))
        call Lqv(LAv("DarkLightningNova.mdl",GetUnitX((MF)),GetUnitY((MF)),.75),1.25)
        call UnitAppBuff((pF),'A0SU',$D006B)
    endif
    call s__odef_Removebuff(this)
endfunction

function s__odef_Recycle takes integer this returns nothing
    if s__odef_Use[this]then
        set s__odef_FL[s__odef_FR[this]]=s__odef_FL[this]
        set s__odef_FR[s__odef_FL[this]]=s__odef_FR[this]
        set s__odef_Use[this]=false
        if s__odef_FR[(0)]==(0)then
            call frv(s__odef_Func)
        endif
        call s__odef_Removebuff(this)
        call Unit_Cancel_Counter($421,(this))
    endif
endfunction

function s__odef_loop_c takes nothing returns nothing
    local integer this=s__odef_FR[(0)]
    local integer id
    local integer fx
    local real a
    local real zA
    loop
        exitwhen this==0
        if s__odef_time[this]>0 then
            set s__odef_time[this]=s__odef_time[this]-1
        elseif s__odef_Source[this]==0 then
            set id=HeroSkills_A089_Target[(this)]
            if id==0 or not UnitAlive((Je[(id)]))then
                set id=this
            endif
            if UnitAlive((Je[(id)]))then
                set s__odef_Source[this]=id
                set s__odef_Atk_trig[this]=UnitAddPAttackTrigB((s__odef_Source[this]),function s__odef_onattakc)
                set s__Trig_P2[s__odef_Atk_trig[this]]=this
                set s__odef_count[this]=0
                if s__odef_Type_Id[this]==3 then
                    call UnitAddAbilityBY((Je[(s__odef_Source[this])]),'A0VR')
                else
                    call UnitAddAbilityBY((Je[(s__odef_Source[this])]),'A0IV')
                endif
                call Unit_App_Counter($422,s__odef_Source[this])
            endif
        elseif not UnitAlive((Je[(s__odef_Source[this])]))then
            call s__odef_Removebuff(this)
        else
            set id=HeroSkills_A089_Target[(this)]
            if id==0 then
                set id=this
            endif
            if id!=s__odef_Source[this]then
                call s__odef_Removebuff(this)
            else
                set s__odef_count[this]=s__odef_count[this]+1
                if ModuloInteger(s__odef_count[this],6)==0 then
                    set a=GetRandomReal(0,Lx)
                    set zA=GetRandomReal(0,Lx/ 2.)
                    set fx=CreateBarrageTypeC(GetUnitX((Je[(s__odef_Source[this])]))+125*Cos(a)*Sin(zA),GetUnitY((Je[(s__odef_Source[this])]))+125*Sin(a)*Sin(zA),GetUnitFlyHeight((Je[(s__odef_Source[this])]))+60+125*Cos(zA),(Je[(s__odef_Source[this])]))
                    set s__barrage_speed[fx]=7.5
                    set s__barrage_acceleration[fx]=5
                    if s__odef_Type_Id[this]==3 then
                        call LMv(s__barrage_model[fx],"DarkTrail.mdl")
                        call SetUnitScale(II[(s__barrage_model[fx])],((.75)*1.),0,0)
                    else
                        call LMv(s__barrage_model[fx],"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
                        call SetUnitScale(II[(s__barrage_model[fx])],((.675)*1.),0,0)
                    endif
                    call Lfv(s__barrage_model[fx],$9B,$9B,$9B,$9B)
                    call BOv(fx)
                    if s__odef_count[this]>=60 then
                        set s__odef_count[this]=0
                        if s__odef_Type_Id[this]==3 then
                            call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",(Je[(s__odef_Source[this])]),"chest"))
                        else
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Invisibility\\InvisibilityTarget.mdl",(Je[(s__odef_Source[this])]),"chest"))
                        endif
                    endif
                endif
            endif
        endif
        set this=s__odef_FR[this]
    endloop
endfunction

function s__odef_Start takes integer this returns boolean
    if not s__odef_Use[this]then
        if s__odef_FR[(0)]==(0)then
            if s__odef_Func==0 then
                set s__odef_Func=fxv(function s__odef_loop_c)
            endif
            call fov(s__odef_Func)
        endif
        set s__odef_FR[this]=s__odef_FR[(0)]
        set s__odef_FL[s__odef_FR[(0)]]=this
        set s__odef_FR[(0)]=this
        set s__odef_FL[this]=(0)
        set s__odef_Use[this]=true
        call Unit_App_Counter($423,(this))
        return true
    endif
    return false
endfunction

function s__odef_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if LasManipulatedEquipTypeId=='I0FB' then
            set s__odef_Type_Id[this]=3
            set s__odef_time[this]=32*3
        elseif LasManipulatedEquipTypeId=='odef' then
            set s__odef_Type_Id[this]=2
            set s__odef_time[this]=32*4
        else
            set s__odef_Type_Id[this]=1
            set s__odef_time[this]=32*5
        endif
        call s__odef_Start(this)
    else
        call s__odef_Recycle(this)
    endif
endfunction

function s__odef_onInit takes nothing returns nothing
    set s__odef_snd_ReviveNightElf=CreateSound_BJ("Abilities\\Spells\\NightElf\\ReviveNightElf\\ReviveNightElf.wav",false,true,true,$A,$A,"SpellsEAX")
    call SetSoundParamsFromLabel_BJ(s__odef_snd_ReviveNightElf,"ReviveNightElf")
    call SetSoundDuration_BJ(s__odef_snd_ReviveNightElf,$CC4)
endfunction

function s__I092_RemoveBuff takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call ReleaseTimer(s__I092_Buff[this],"[TimerUtils]Error:615")
    call ModifyUnitHpRegen(this,-$96)
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0D0','BCtc')
    call Unit_Cancel_Counter($424,(this))
    set s__I092_Buff[this]=null
endfunction

function s__I092_Loop_c takes nothing returns nothing
    local integer Halo=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer this
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(Halo)]))then
        set x=GetUnitX((Je[(Halo)]))
        set y=GetUnitY((Je[(Halo)]))
        call GroupEnumUnitsInRange(G,x,y,825,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,750)and IsUnitAliveAndAlly(u,(Je[(Halo)]))and(IsUnitType(u,UNIT_TYPE_HERO)or IsUnitType(u,UNIT_TYPE_MECHANICAL))then
                set this=(GetUnitUserData((u)))
                if s__I092_Buff[this]==null then
                    set s__I092_Buff[this]=NewTimer(this)
                    call UnitAddAbilityBY(u,'A0D0')
                    call ModifyUnitHpRegen(this,$96)
                    call Unit_App_Counter($425,(this))
                endif
                call TimerStart(s__I092_Buff[this],2,false,function s__I092_RemoveBuff)
            endif
        endloop
    endif
endfunction

function s__I092_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if s__I092_Timer[this]==null then
            set s__I092_Timer[this]=NewTimer(this)
            call TimerStart(s__I092_Timer[this],1,true,function s__I092_Loop_c)
        endif
    else
        if s__I092_Timer[this]!=null then
            call ReleaseTimer(s__I092_Timer[this],"[TimerUtils]Error:616")
            set s__I092_Timer[this]=null
        endif
    endif
endfunction

function s__I0D8_RemoveBuff takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call ReleaseTimer(s__I0D8_Buff[this],"[TimerUtils]Error:617")
    call ModifyUnitHpRegen(this,-$C8)
    call ModifyUnitAttack(this,-6666)
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0N6','B04R')
    call Unit_Cancel_Counter($426,(this))
    set s__I0D8_Buff[this]=null
endfunction

function s__I0D8_Loop_c takes nothing returns nothing
    local integer Halo=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer this
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(Halo)]))then
        set x=GetUnitX((Je[(Halo)]))
        set y=GetUnitY((Je[(Halo)]))
        call GroupEnumUnitsInRange(G,x,y,825,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,750)and IsUnitAliveAndAlly(u,(Je[(Halo)]))and(IsUnitType(u,UNIT_TYPE_HERO)or IsUnitType(u,UNIT_TYPE_MECHANICAL))then
                set this=(GetUnitUserData((u)))
                if s__I0D8_Buff[this]==null then
                    set s__I0D8_Buff[this]=NewTimer(this)
                    call UnitAddAbilityBY(u,'A0N6')
                    call ModifyUnitHpRegen(this,$C8)
                    call ModifyUnitAttack(this,6666)
                    call Unit_App_Counter($427,(this))
                endif
                call TimerStart(s__I0D8_Buff[this],2,false,function s__I0D8_RemoveBuff)
            endif
        endloop
    endif
endfunction

function s__I0D8_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if s__I0D8_Timer[this]==null then
            set s__I0D8_Timer[this]=NewTimer(this)
            call TimerStart(s__I0D8_Timer[this],1,true,function s__I0D8_Loop_c)
        endif
    else
        if s__I0D8_Timer[this]!=null then
            call ReleaseTimer(s__I0D8_Timer[this],"[TimerUtils]Error:618")
            set s__I0D8_Timer[this]=null
        endif
    endif
endfunction

function s__I0B2_table_new takes nothing returns integer
    local integer this=s__I0B2_table__allocate()
    set s__I0B2_table_vessel[this]=malloc()
    return this
endfunction

function s__I0B2_table_recycle takes integer this returns nothing
    call free(s__I0B2_table_vessel[this])
endfunction

function s__I0B2_removebuff takes integer this returns nothing
    if s__I0B2_table_timer_dt[this]!=null then
        loop
            exitwhen s__I0B2_table_v_size[this]==0
            set s__I0B2_table_v_size[this]=s__I0B2_table_v_size[this]-1
            call Ltv((LoadInteger(BYHT,s__I0B2_table_vessel[this],s__I0B2_table_v_size[this])))
        endloop
        call ReleaseTimer(s__I0B2_table_timer_dt[this],"[TimerUtils]Error:619")
        call UnitRemoveAbilityandBuffBY((Je[(s__I0B2_table_user[this])]),'A0FA','BNsl')
        call ModifyUnitHP((s__I0B2_table_user[this]),-s__I0B2_table_value_hp[this])
        set s__I0B2_table_timer_dt[this]=null
        set s__I0B2_table_value_hp[this]=0
        set s__I0B2_table_value_ang[this]=0
    endif
endfunction

function s__I0B2_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=s__I0B2_table_v_size[this]
    local real x=GetUnitX((Je[(s__I0B2_table_user[this])]))
    local real y=GetUnitY((Je[(s__I0B2_table_user[this])]))
    local integer fx
    if s__I0B2_table_value_cd[this]>0 then
        set s__I0B2_table_value_cd[this]=s__I0B2_table_value_cd[this]-1
    endif
    set s__I0B2_table_value_duration[this]=s__I0B2_table_value_duration[this]-1
    set s__I0B2_table_value_ang[this]=s__I0B2_table_value_ang[this]+Lx/ 64.
    if s__I0B2_table_value_duration[this]>0 and UnitAlive((Je[(this)]))then
        loop
            exitwhen i==0
            set i=i-1
            set fx=LoadInteger(BYHT,s__I0B2_table_vessel[this],i)
            call LKv(fx,x+80*Cos(s__I0B2_table_value_ang[this]+i*Lx/ 3))
            call Llv(fx,y+80*Sin(s__I0B2_table_value_ang[this]+i*Lx/ 3))
        endloop
    else
        call s__I0B2_removebuff(this)
    endif
endfunction

function s__I0B2_addbuff takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:620")
    local integer UUv=R2I(2*GetHeroState2((Je[(s__I0B2_table_user[this])]),true))
    local integer i
    local integer fx
    set s__I0B2_table_value_duration[this]=256
    if s__I0B2_table_value_hp[this]!=UUv then
        set i=s__I0B2_table_value_hp[this]+R2I(s__I0B2_table_value_damage[this])
        if i>UUv then
            set i=UUv
        endif
        if s__I0B2_table_timer_dt[this]==null then
            set s__I0B2_table_timer_dt[this]=NewTimer(this)
            call UnitAddAbilityBY((Je[(s__I0B2_table_user[this])]),'A0FA')
            call TimerStart(s__I0B2_table_timer_dt[this],.03125,true,function s__I0B2_loop_c)
        endif
        if s__I0B2_table_value_cd[this]==0 and s__I0B2_table_value_damage[this]>1 then
            set s__I0B2_table_value_cd[this]=$C
            call NewTextTagInTarget_B((Je[(s__I0B2_table_user[this])]),"+"+I2S(i-s__I0B2_table_value_hp[this]),8,$FF,105,105)
            call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdl",(Je[(s__I0B2_table_user[this])]),"chest"))
        endif
        call ModifyUnitHP((s__I0B2_table_user[this]),i-s__I0B2_table_value_hp[this])
        set s__I0B2_table_value_hp[this]=i
        if i==UUv then
            set i=3
        else
            set i=R2I(3.*i/ UUv)
        endif
        loop
            exitwhen s__I0B2_table_v_size[this]>=i
            set fx=Lnv(GetUnitX((Je[(s__I0B2_table_user[this])]))+80*Cos(s__I0B2_table_value_ang[this]+s__I0B2_table_v_size[this]*Lx/ 3),GetUnitY((Je[(s__I0B2_table_user[this])]))+80*Sin(s__I0B2_table_value_ang[this]+s__I0B2_table_v_size[this]*Lx/ 3),0)
            call LMv(fx,"BloodySplat Missile.mdl")
            call SetUnitScale(II[(fx)],((.75)*1.),0,0)
            call SetUnitFlyHeight(II[(fx)],((50)*1.),0)
            call Lfv(fx,$FF,125,125,105)
            call SaveInteger(BYHT,s__I0B2_table_vessel[this],s__I0B2_table_v_size[this],fx)
            set s__I0B2_table_v_size[this]=s__I0B2_table_v_size[this]+1
        endloop
    endif
    set s__I0B2_table_timer_dg[this]=null
    set s__I0B2_table_value_damage[this]=0
endfunction

function s__I0B2_onDamaged takes nothing returns nothing
    local integer this=s__I0B2_Table[(pF_v)]
    if s__I0B2_table_timer_dg[this]==null then
        set s__I0B2_table_timer_dg[this]=NewTimer(this)
        call TimerStart(s__I0B2_table_timer_dg[this],0,false,function s__I0B2_addbuff)
    endif
    set s__I0B2_table_value_damage[this]=s__I0B2_table_value_damage[this]+.007*GetDamage()
endfunction

function s__I0B2_cancel takes integer id returns nothing
    local integer this=s__I0B2_Table[id]
    call s__I0B2_removebuff(this)
    call s__Trig_remove(s__I0B2_table_trig_dg[this])
    if s__I0B2_table_timer_dg[this]!=null then
        call ReleaseTimer(s__I0B2_table_timer_dg[this],"[TimerUtils]Error:621")
        if s__I0B2_table_value_agi[this]>0 then
            call HeroAddExtraAgi((id),-s__I0B2_table_value_agi[this])
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0F8','BNso')
            set s__I0B2_table_value_agi[this]=0
        endif
    endif
    call free(s__I0B2_table_vessel[(this)])
    set s__I0B2_Table[id]=0
    call Unit_Cancel_Counter($428,(id))
endfunction

function s__I0B2_app takes integer id returns nothing
    local integer this=s__I0B2_table_new()
    set s__I0B2_table_user[this]=id
    set s__I0B2_table_trig_dg[this]=UnitAddDamagerTrigB((id),function s__I0B2_onDamaged)
    set s__I0B2_Table[id]=this
    call Unit_App_Counter($429,(id))
endfunction

function s__I0B2_onSpell_end takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:622")
    local integer id=s__I0B2_table_user[this]
    call HeroAddExtraAgi((id),-s__I0B2_table_value_agi[this])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0F8','BNso')
    call Unit_Cancel_Counter($42A,(id))
    set s__I0B2_table_trig_dg[this]=UnitAddDamagerTrigB((id),function s__I0B2_onDamaged)
    set s__I0B2_table_timer_dg[this]=null
    set s__I0B2_table_value_agi[this]=0
endfunction

function s__I0B2_onSpell takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer this=s__I0B2_Table[id]
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real c
    local real s
    local real d
    if s__I0B2_table_timer_dt[this]==null then
        call IssueUnitStop_DisplayText((Je[(id)]),"|c00ff8080Not enough blood is stored|r")
    else
        call s__Trig_remove(s__I0B2_table_trig_dg[this])
        set s__I0B2_table_trig_dg[this]=0
        if s__I0B2_table_timer_dg[this]==null then
            set s__I0B2_table_timer_dg[this]=NewTimer(this)
        endif
        set s__I0B2_table_value_agi[this]=IMaxBJ(1,R2I(.15*GetHeroAgiNotExtra((id))))
        set i=16
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set d=30*s__I0B2_table_value_hp[this]
        loop
            set i=i-1
            set a=Lx*i/ 16
            set c=125*Cos(a)
            set s=125*Sin(a)
            call Ltv(LAv("blood.mdl",x+c,y+s,1.5))
            call Ltv(LAv("blood.mdl",x+2*c,y+2*s,1.5))
            call Ltv(LAv("blood.mdl",x+3*c,y+3*s,1.5))
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,675,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitAliveAndEnemy(u,(Je[(id)]))and IsUnitInRangeXY(u,x,y,600)then
                call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdl",u,"chest"))
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,2.5)
            endif
        endloop
        call HeroAddExtraAgi((id),s__I0B2_table_value_agi[this])
        call UnitAddAbilityBY((Je[(id)]),'A0F8')
        call Ltv(LAv("BloodSlam.mdl",x,y,1.5))
        call Ltv(LAv("BigBloodEX-NoSplat-NoGutz.mdl",x,y,2))
        call TimerStart(s__I0B2_table_timer_dg[this],$C,false,function s__I0B2_onSpell_end)
        call Unit_App_Counter($42B,(id))
        call s__I0B2_removebuff(this)
    endif
endfunction

function s__I0B2_Passive takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        call s__I0B2_app(id)
    else
        call s__I0B2_cancel(id)
    endif
endfunction

function s__I0B2_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0F9',function s__I0B2_onSpell)
    call SaveReal(BYHT,DroppableTimed,('I0B2'),(($96)*1.))
endfunction

function s__I0B3_removebuff takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:623")
    if s__I0B3_buff_lv[this]==1 then
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0DV','BNrd')
    elseif s__I0B3_buff_lv[this]==2 then
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0MY','B04T')
    endif
    call ModifyHeroAllStatPercent(this,-s__I0B3_buff_stat[this])
    call Unit_Cancel_Counter($42C,this)
    set s__I0B3_buff_t[this]=null
endfunction

function s__I0B3_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    local unit u
    local integer i
    local real percent
    local real x
    local real y
    if UnitAlive((Je[(this)]))then
        set percent=.04+.01*s__I0B3_Lv[this]
        set x=GetUnitX((Je[(this)]))
        set y=GetUnitY((Je[(this)]))
        call GroupEnumUnitsInRange(G,x,y,775,null)
        if s__I0B3_Lv[this]==1 then
            call GroupRemoveUnit(G,(Je[(this)]))
        endif
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,700)and IsUnitAliveAndAlly(u,(Je[(this)]))and nC[(GetUnitUserData((u)))]then
                set id=(GetUnitUserData((u)))
                if s__I0B3_buff_t[id]==null then
                    set s__I0B3_buff_t[id]=NewTimer(id)
                    set s__I0B3_buff_lv[id]=0
                    set s__I0B3_buff_stat[id]=0
                    call Unit_App_Counter($42D,id)
                endif
                if s__I0B3_Lv[this]>=s__I0B3_buff_lv[id]then
                    if s__I0B3_Lv[this]!=s__I0B3_buff_lv[id]then
                        if s__I0B3_buff_lv[id]==1 then
                            call UnitRemoveAbilityandBuffBY(u,'A0DV','BNrd')
                        elseif s__I0B3_buff_lv[id]==2 then
                            call UnitRemoveAbilityandBuffBY(u,'A0MY','B04T')
                        endif
                        set s__I0B3_buff_lv[id]=s__I0B3_Lv[this]
                        if s__I0B3_buff_lv[id]==1 then
                            call UnitAddAbilityBY(u,'A0DV')
                        elseif s__I0B3_buff_lv[id]==2 then
                            call UnitAddAbilityBY(u,'A0MY')
                        endif
                    endif
                    if percent!=s__I0B3_buff_stat[id]then
                        call ModifyHeroAllStatPercent(id,percent-s__I0B3_buff_stat[id])
                        set s__I0B3_buff_stat[id]=percent
                    endif
                endif
                call TimerStart(s__I0B3_buff_t[id],.625,false,function s__I0B3_removebuff)
            endif
        endloop
    endif
endfunction

function s__I0B3_cancel takes integer this returns nothing
    if s__I0B3_time[this]!=null then
        call ReleaseTimer(s__I0B3_time[this],"[TimerUtils]Error:624")
        call DestroyEffectBY(s__I0B3_model[this])
        call Unit_Cancel_Counter($42E,(this))
        set s__I0B3_time[this]=null
    endif
endfunction

function s__I0B3_app takes integer this,integer lv returns nothing
    if s__I0B3_time[this]==null then
        set s__I0B3_time[this]=NewTimer(this)
        set s__I0B3_Lv[this]=lv
        if s__I0B3_Lv[this]==1 then
            set s__I0B3_model[this]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Orc\\LiquidFire\\Liquidfire.mdl"),((Je[(this)])),("origin"))))
        elseif s__I0B3_Lv[this]==2 then
            set s__I0B3_model[this]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl"),((Je[(this)])),("origin"))))
        endif
        call TimerStart(s__I0B3_time[this],.3125,true,function s__I0B3_loop_c)
        call Unit_App_Counter($42F,(this))
    endif
endfunction

function Equip_I0B3_Passive takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        call s__I0B3_app((id),1)
    else
        call s__I0B3_cancel((id))
    endif
endfunction

function Equip_rat9_Passive takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        call Active_A0JX_App(id)
    else
        call Active_A0JX_Cancel(id)
    endif
endfunction

function Equip_I0D9_Passive takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        call s__I0B3_app((id),2)
        call Active_A0JX_App(id)
    else
        call s__I0B3_cancel((id))
        call Active_A0JX_Cancel(id)
    endif
endfunction

function Equip_I0C7_Loop takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer h
    local integer iI
    if Equip_I0D9_CD[id]==0 then
        set h=R2I(.02*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))
        if h>$4B0 then
            set h=$4B0
        endif
        if Equip_I0D9_Int[id]<h then
            set iI=h-Equip_I0D9_Int[id]
            if iI>74 then
                set iI=75
                set Equip_I0D9_CD[id]=16
                call NewTextTagInTarget_B((Je[(id)]),"+75",8,$FF,105,105)
                call DestroyEffect(AddSpecialEffectTarget("ExplosiveShot.mdl",(Je[(id)]),"chest"))
            endif
            set Equip_I0D9_Int[id]=Equip_I0D9_Int[id]+iI
            call HeroAddExtraInt((id),iI)
        endif
    else
        set Equip_I0D9_CD[id]=Equip_I0D9_CD[id]-1
    endif
endfunction

function Equip_I0C7_Passive takes nothing returns nothing
    local integer id=Ahv
    local boolean b=ATv
    if b then
        if Equip_I0D9_Timer[id]==null then
            set Equip_I0D9_Timer[id]=NewTimer(id)
            set Equip_I0D9_CD[id]=0
            call UnitAddAbilityBY((Je[(id)]),'A0HP')
            call TimerStart(Equip_I0D9_Timer[id],.03125,true,function Equip_I0C7_Loop)
            call Unit_App_Counter($430,(id))
        endif
    elseif Equip_I0D9_Timer[id]!=null then
        call ReleaseTimer(Equip_I0D9_Timer[id],"[TimerUtils]Error:625")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0HP','B00F')
        call HeroAddExtraInt((id),-Equip_I0D9_Int[id])
        call Unit_Cancel_Counter($431,(id))
        set Equip_I0D9_Timer[id]=null
        set Equip_I0D9_Int[id]=0
    endif
endfunction

function s__I0CA_removebuff takes integer this returns nothing
    if s__I0CA_buff_timer[this]!=null then
        call ReleaseTimer(s__I0CA_buff_timer[this],"[TimerUtils]Error:626")
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0I6','B012')
        call HeroAddExtraInt((this),-s__I0CA_buff_int[this])
        set s__I0CA_buff_timer[this]=null
        set s__I0CA_user_spell[this]=false
        set s__I0CA_buff_int[this]=0
        set s__I0CA_buff_textdis[this]=75
    endif
endfunction

function s__I0CA_expired takes nothing returns nothing
    call s__I0CA_removebuff(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function s__I0CA_addbuff takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:627")
    local integer i
    local integer tI
    if s__I0CA_buff_timer[this]==null then
        set s__I0CA_buff_timer[this]=NewTimer(this)
        call UnitAddAbilityBY((Je[(this)]),'A0I6')
    endif
    if s__I0CA_buff_int[this]<600 then
        set i=R2I(s__I0CA_buff_int[this]+s__I0CA_tak_damage[this])
        if i>600 then
            set i=600
        endif
        if i>=s__I0CA_buff_textdis[this]then
            set tI=75*(i/ 75)
            set s__I0CA_buff_textdis[this]=tI+75
            call NewTextTagInTarget_B((Je[(this)]),"~"+I2S(tI)+"~",9,$CD,$9B,$9B)
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",(Je[(this)]),"chest"))
        endif
        call HeroAddExtraInt((this),i-s__I0CA_buff_int[this])
        set s__I0CA_buff_int[this]=i
    endif
    call TimerStart(s__I0CA_buff_timer[this],8,false,function s__I0CA_expired)
    set s__I0CA_tak_timer[this]=null
    set s__I0CA_tak_damage[this]=0
endfunction

function s__I0CA_onDamage takes nothing returns nothing
    local integer this=(pF_v)
    if not s__I0CA_user_spell[this]then
        if s__I0CA_tak_timer[this]==null then
            set s__I0CA_tak_timer[this]=NewTimer(this)
            call TimerStart(s__I0CA_tak_timer[this],0,false,function s__I0CA_addbuff)
        endif
        set s__I0CA_tak_damage[this]=s__I0CA_tak_damage[this]+.00035*GetDamage()
    endif
endfunction

function s__I0CA_cancel takes integer this returns nothing
    call s__I0CA_removebuff(this)
    if s__I0CA_tak_timer[this]!=null then
        call ReleaseTimer(s__I0CA_tak_timer[this],"[TimerUtils]Error:628")
        set s__I0CA_tak_timer[this]=null
    endif
    call s__Trig_remove((s__I0CA_tak_trig[this]))
    call Unit_Cancel_Counter($432,(this))
endfunction

function s__I0CA_app takes integer this returns nothing
    set s__I0CA_tak_trig[this]=UnitAddDamagerTrigB((this),function s__I0CA_onDamage)
    set s__I0CA_buff_int[this]=0
    set s__I0CA_buff_textdis[this]=75
    set s__I0CA_tak_damage[this]=0
    call Unit_App_Counter($433,(this))
endfunction

function s__I0CA_onSpell takes nothing returns nothing
    local integer this=(GetUnitUserData((GetTriggerUnit())))
    local unit u
    local real r
    local real x
    local real y
    local real d
    if s__I0CA_buff_int[this]<300 then
        call IssueUnitStop_DisplayText((Je[(this)]),"|c00ff8080Intelligence needed: "+I2S(300-s__I0CA_buff_int[this]))
    else
        set x=GetSpellTargetX()
        set y=GetSpellTargetY()
        set r=.5+(s__I0CA_buff_int[this]-300.)/ 600.
        set d=r*90*GetHeroState3((Je[(this)]),true)
        set s__I0CA_user_spell[this]=true
        call GroupEnumUnitsInRange(G,x,y,450*r,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitAliveAndEnemy(u,(Je[(this)]))then
                call m2v(u,4*r,'A500','B500',true)
                call UnitDamageTargetBY((((Je[(this)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
            endif
        endloop
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.25*r),0,$9B,$9B,$FF))
        call Ltv(LAv("uberdarkwave.mdl",x,y,.5*r))
        call CSv((Kc[(this)]),35,.3)
        call s__I0CA_removebuff(this)
    endif
endfunction

function s__I0CA_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        call s__I0CA_app(this)
    else
        call s__I0CA_cancel(this)
    endif
endfunction

function s__I0CA_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0I4',function s__I0CA_onSpell)
    call SaveReal(BYHT,DroppableTimed,('I0CA'),((75)*1.))
endfunction

function s__I0CO_end takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:629")
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A03U','B01D')
    set s__I0CO_buff_timer[this]=null
endfunction

function s__I0CO_enable takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:630")
    set s__I0CO_buff_timer[this]=null
    set s__I0CO_cooling_user[this]=false
endfunction

function s__I0CO_onDamaged takes nothing returns nothing
    local integer this=(pF)
    local unit u
    local integer nG
    local real x
    local real y
    if(JF[HF])then
        if GetRandomInt(1,6)==1 then
            call UnitDamageTargetBY((((MF))),(((mF))),((((5*GetHeroState1((MF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((9)*1.))*1.),(("|c00bbc7fb")))
            call DestroyEffect(AddSpecialEffectTarget("LightningSphere_FX.mdl",(mF),"chest"))
        else
            call UnitDamageTargetBY((((MF))),(((mF))),((((.6*GetHeroState1((MF),true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            call DestroyEffect(AddSpecialEffectTarget("LightningArrow1.mdl",(mF),"chest"))
        endif
    endif
    if not s__I0CO_cooling_user[this]then
        if s__I0CO_buff_timer[this]==null then
            set s__I0CO_buff_timer[this]=NewTimer(this)
            set s__I0CO_charged_rate[this]=0
            set s__I0CO_charged_max[this]=$A*GetUnitState((MF),UNIT_STATE_MAX_LIFE)
            set s__I0CO_charged_value[this]=0
            call UnitAddAbilityBY((MF),'A03U')
        endif
        if(DAK_AMOUNT[HF])>.2*s__I0CO_charged_max[this]then
            set s__I0CO_charged_value[this]=s__I0CO_charged_value[this]+.2*s__I0CO_charged_max[this]
        else
            set s__I0CO_charged_value[this]=s__I0CO_charged_value[this]+(DAK_AMOUNT[HF])
        endif
        if s__I0CO_charged_value[this]<s__I0CO_charged_max[this]then
            set nG=R2I(10.*s__I0CO_charged_value[this]/ s__I0CO_charged_max[this])
            if nG>s__I0CO_charged_rate[this]then
                set s__I0CO_charged_rate[this]=nG
                call DestroyEffect(AddSpecialEffectTarget("BluefireBolt.mdl",(MF),"chest"))
                call NewTextTagInTarget_B((MF),"|c006fa4f2"+I2S($A*nG)+"%",9,$FF,$FF,$FF)
            endif
            call TimerStart(s__I0CO_buff_timer[this],8,false,function s__I0CO_end)
        else
            set s__I0CO_cooling_user[this]=true
            set x=GetUnitX((MF))
            set y=GetUnitY((MF))
            call SetItemDroppableTimed((ConvertVersion(LoadInteger(BYHT2,EquipSlot_R[EquipSlot[(this)]],('I0CO')))),5)
            call UnitRemoveAbilityandBuffBY((MF),'A03U','B01D')
            call Lqv(Lfv(LAv("Abilities\\Spells\\NightElf\\Blink\\BlinkTarget.mdl",x,y,3.5),125,125,$FF,$CD),2)
            call Lqv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,3),125,125,$FF,$CD),2)
            call DestroyEffect(AddSpecialEffectTarget("Energy_Release.mdl",(MF),"origin"))
            call TimerStart(s__I0CO_buff_timer[this],5,false,function s__I0CO_enable)
            call GroupEnumUnitsInRange(G,x,y,525,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,450)and IsUnitAliveAndEnemy(u,(MF))then
                    call UnitDamageTargetBY((((MF))),((u)),((((1.75*s__I0CO_charged_max[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,2.5)
                endif
            endloop
        endif
    endif
endfunction

function s__I0CO_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        set s__I0CO_atk_trig[this]=UnitAddShieldTrigB((this),function s__I0CO_onDamaged)
        call Unit_App_Counter($434,(this))
    else
        if s__I0CO_buff_timer[this]!=null then
            call ReleaseTimer(s__I0CO_buff_timer[this],"[TimerUtils]Error:631")
            call UnitRemoveAbilityandBuffBY((Je[(this)]),'A03U','B01D')
            set s__I0CO_buff_timer[this]=null
        endif
        call s__Trig_remove(s__I0CO_atk_trig[this])
        call Unit_Cancel_Counter($435,(this))
    endif
endfunction

function s__I0CR_End takes integer this returns nothing
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0IK','B01G')
    set s__I0CR_Count[this]=0
endfunction

function s__I0CR_onDamaged takes nothing returns nothing
    local integer this=s__Trig_P2[s__Trig_Index]
    if s__I0CR_Count[this]>0 and GetDamage()>0 then
        set s__I0CR_Count[this]=s__I0CR_Count[this]-1
        call DestroyEffect(AddSpecialEffectTarget("BlackBlink.mdl",(MF),"origin"))
        call thv("|c00ff0000MISS!",GetUnitX((mF)),GetUnitY((mF)),GetUnitFlyHeight((mF))+35,.035,.025,bj_PI/ 2,1,1.5)
        set KF[HF]=PF+1000000.
        if s__I0CR_Count[this]<1 then
            call s__I0CR_End(this)
        endif
    endif
endfunction

function s__I0CR_Loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set s__I0CR_Count[this]=3
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",(Je[(this)]),"origin"))
    call UnitAddAbilityBY((Je[(this)]),'A0IK')
endfunction

function s__I0CR_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        set s__I0CR_Shield[this]=UnitAddShieldTrigB((this),function s__I0CR_onDamaged)
        set s__Trig_P2[s__I0CR_Shield[this]]=this
        set s__I0CR_Time[this]=NewTimer(this)
        set s__I0CR_Count[this]=0
        call TimerStart(s__I0CR_Time[this],20,true,function s__I0CR_Loop_c)
        call Unit_App_Counter($436,(this))
    else
        if s__I0CR_Time[this]!=null then
            call s__I0CR_End(this)
            call s__Trig_remove(s__I0CR_Shield[this])
            call ReleaseTimer(s__I0CR_Time[this],"[TimerUtils]Error:632")
            call Unit_Cancel_Counter($437,(this))
            set s__I0CR_Time[this]=null
        endif
    endif
endfunction

function s__dsum_Loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(this)]))then
        set x=GetUnitX((Je[(this)]))
        set y=GetUnitY((Je[(this)]))
        call GroupEnumUnitsInRange(G,x,y,275,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$C8)and IsUnitAliveAndEnemy(u,(Je[(this)]))then
                call UnitDamageTargetBY((((Je[(this)]))),((u)),(((($960)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedDamage.mdl",u,"chest",.5)
            endif
        endloop
    endif
endfunction

function s__dsum_Cancel takes integer this returns nothing
    if s__dsum_Time[this]!=null then
        call ReleaseTimer(s__dsum_Time[this],"[TimerUtils]Error:633")
        call DestroyEffectBY(s__dsum_Effect[this])
        call Unit_Cancel_Counter($438,(this))
        set s__dsum_Time[this]=null
    endif
endfunction

function s__dsum_App takes integer this returns nothing
    if s__dsum_Time[this]==null then
        set s__dsum_Time[this]=NewTimer(this)
        set s__dsum_Effect[this]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedTarget.mdl"),((Je[(this)])),("chest"))))
        call TimerStart(s__dsum_Time[this],1,true,function s__dsum_Loop_c)
        call Unit_App_Counter($439,(this))
    endif
endfunction

function s__dsum_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        call s__dsum_App(this)
    else
        call s__dsum_Cancel(this)
    endif
endfunction

function s__kybl_RemoveBuff takes integer this returns nothing
    if s__kybl_buff_timer[this]!=null then
        call ReleaseTimer(s__kybl_buff_timer[this],"[TimerUtils]Error:634")
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0QV','B06D')
        call ModifyHeroInt((this),-s__kybl_unit_Int*s__kybl_buff_lv[this])
        call ModifyUnitMagicDamage((this),-s__kybl_unit_MATK*s__kybl_buff_lv[this])
        call SetUnitVertexColor((Je[(this)]),$FF,$FF,$FF,$FF)
        set s__kybl_buff_timer[this]=null
    endif
endfunction

function s__kybl_expired takes nothing returns nothing
    call s__kybl_RemoveBuff(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function s__kybl_onSpellEffect takes nothing returns nothing
    local integer this=s__Trig_P
    if s__kybl_buff_timer[this]==null then
        set s__kybl_buff_timer[this]=NewTimer(this)
        set s__kybl_buff_lv[this]=0
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",(Je[(this)]),"origin"))
        call SetUnitVertexColor((Je[(this)]),$FF,$CD,$CD,$FF)
        call UnitAddAbilityBY((Je[(this)]),'A0QV')
    endif
    if s__kybl_buff_lv[this]<5 then
        set s__kybl_buff_lv[this]=s__kybl_buff_lv[this]+1
        call NewTextTagInTarget_B((Je[(this)]),"|c00de6969+"+I2S(s__kybl_unit_Int*s__kybl_buff_lv[this])+" INT
        +"+I2S(R2I(s__kybl_unit_MATK*s__kybl_buff_lv[this]))+"% skill damage",8+.5*s__kybl_buff_lv[this],$FF,$FF,$FF)

        call ModifyHeroInt((this),s__kybl_unit_Int)
        call ModifyUnitMagicDamage((this),s__kybl_unit_MATK)
    endif
    call TimerStart(s__kybl_buff_timer[this],6.,false,function s__kybl_expired)
endfunction

function s__kybl_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if s__kybl_spell_trig[this]==0 then
            set s__kybl_spell_trig[this]=HeroAddSpellEffectTrigB((this),function s__kybl_onSpellEffect)
            call Unit_App_Counter($43A,(this))
        endif
    else
        if s__kybl_spell_trig[this]!=0 then
            call s__Trig_remove((s__kybl_spell_trig[this]))
            call Unit_Cancel_Counter($43B,(this))
            set s__kybl_spell_trig[this]=0
        endif
        call s__kybl_RemoveBuff(this)
    endif
endfunction

function s__rde4_RemoveBuff takes integer this returns nothing
    if s__rde4_buff_timer[this]!=null then
        call ReleaseTimer(s__rde4_buff_timer[this],"[TimerUtils]Error:635")
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0QU','B06C')
        call ModifyHeroInt((this),-50*s__rde4_buff_lv[this])
        call ModifyUnitMagicDamage((this),-s__rde4_unit_MATK*s__rde4_buff_lv[this])
        set s__rde4_buff_timer[this]=null
    endif
endfunction

function s__rde4_expired takes nothing returns nothing
    call s__rde4_RemoveBuff(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function s__rde4_onSpellEffect takes nothing returns nothing
    local integer this=s__Trig_P
    if s__rde4_buff_timer[this]==null then
        set s__rde4_buff_timer[this]=NewTimer(this)
        set s__rde4_buff_lv[this]=0
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",(Je[(this)]),"origin"))
        call UnitAddAbilityBY((Je[(this)]),'A0QU')
    endif
    if s__rde4_buff_lv[this]<5 then
        set s__rde4_buff_lv[this]=s__rde4_buff_lv[this]+1
        call NewTextTagInTarget_B((Je[(this)]),"|c00de6969+"+I2S(50*s__rde4_buff_lv[this])+" INT
        +"+I2S(R2I(s__rde4_unit_MATK*s__rde4_buff_lv[this]))+"% skill damage",8+.5*s__rde4_buff_lv[this],$FF,$FF,$FF)

        call ModifyHeroInt((this),50)
        call ModifyUnitMagicDamage((this),s__rde4_unit_MATK)
    endif
    call TimerStart(s__rde4_buff_timer[this],6.,false,function s__rde4_expired)
endfunction

function s__rde4_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if s__rde4_spell_trig[this]==0 then
            set s__rde4_spell_trig[this]=HeroAddSpellEffectTrigB((this),function s__rde4_onSpellEffect)
            call Unit_App_Counter($43C,(this))
        endif
    else
        if s__rde4_spell_trig[this]!=0 then
            call s__Trig_remove((s__rde4_spell_trig[this]))
            call Unit_Cancel_Counter($43D,(this))
            set s__rde4_spell_trig[this]=0
        endif
        call s__rde4_RemoveBuff(this)
    endif
endfunction

function s__rde2_onAttack takes nothing returns nothing
    local unit u
    local real x
    local real y
    local real d
    if GetUnitAbilityLevel((mF),'A0QO')==1 then
        set u=(MF)
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set d=50.*GetHeroState2((mF),true)
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        call GroupRemoveUnit(G,u)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemy(u,(mF))then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",u,"chest"))
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(mF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((1.5*d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call UnitCureTaret(null,(mF),.08*GetUnitMaxLifeById((pF_v)))
        call Ltv(Lfv(LAv("Acid Ex.mdl",x,y,2),$FF,$FF,$FF,$CD))
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1),55,$FF,55,$CD))
        call UnitRemoveAbilityandBuffBY((mF),'A0QO','B06A')
    endif
endfunction

function s__rde2_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(this)]))then
        call UnitAddAbilityBY((Je[(this)]),'A0QO')
    endif
endfunction


 function s__rde2_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if s__rde2_time[this]==null then
            set s__rde2_time[this]=NewTimer(this)
            set s__rde2_atk_trig[this]=UnitAddPAttackTrigB((this),function s__rde2_onAttack)
            call HeroSkillsreplace((this),'A06A','A0QN')
            call Unit_App_Counter($43E,(this))
        endif
        call TimerStart(s__rde2_time[this],6,true,function s__rde2_loop_c)
    else
        if s__rde2_time[this]!=null then
            call ReleaseTimer(s__rde2_time[this],"[TimerUtils]Error:636")
            call s__Trig_remove(s__rde2_atk_trig[this])
            call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0QO','B06A')
            call HeroSkillsreplace((this),'A0QN','A06A')
            call Unit_Cancel_Counter($43F,(this))
            set s__rde2_time[this]=null
        endif
    endif
 endfunction


function s__sclp_removebuff takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:637")
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A0QM','B069')
    call ModifyUnitArmor((this),-$96)
    call DeUnitMdef((this),s__sclp_buff_mdef[this])
    call Unit_Cancel_Counter($440,(this))
    set s__sclp_buff_time[this]=null
endfunction

function s__sclp_addbuff takes unit u returns nothing
    local integer this=(GetUnitUserData((u)))
    if s__sclp_buff_time[this]==null then
        set s__sclp_buff_time[this]=NewTimer(this)
        set s__sclp_buff_mdef[this]=ModifyUnitMdef((this),10.)
        call UnitAddAbilityBY(u,'A0QM')
        call ModifyUnitArmor((this),$96)
        call Unit_App_Counter($441,(this))
    endif
    call TimerStart(s__sclp_buff_time[this],2*.5,false,function s__sclp_removebuff)
endfunction

function s__sclp_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if UnitAlive((Je[(this)]))then
        set x=GetUnitX((Je[(this)]))
        set y=GetUnitY((Je[(this)]))
        call GroupEnumUnitsInRange(G,x,y,800.+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,800.)then
                if IsUnitAllyNotbag(u,(Je[(this)]))then
                    call s__sclp_addbuff(u)
                endif
            endif
        endloop
    endif
endfunction

function s__sclp_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        if s__sclp_time[this]==null then
            set s__sclp_time[this]=NewTimer(this)
            set s__sclp_model[this]=(s__Effect_build(AddSpecialEffectTarget(("HealingWater.mdl"),((Je[(this)])),("origin"))))
            call Unit_App_Counter($442,(this))
        endif
        call TimerStart(s__sclp_time[this],.5,true,function s__sclp_loop_c)
    else
        if s__sclp_time[this]!=null then
            call ReleaseTimer(s__sclp_time[this],"[TimerUtils]Error:638")
            call DestroyEffectBY(s__sclp_model[this])
            call Unit_Cancel_Counter($443,(this))
            set s__sclp_time[this]=null
        endif
    endif
endfunction

function s__I06D_removebuff takes integer this returns nothing
    call UnitRemoveAbilityandBuffBY((Je[(this)]),'A07Y','B00O')
    set s__I06D_shield_life[this]=0
endfunction

function s__I06D_onDamaged takes nothing returns nothing
    local integer this=s__Trig_P2[s__Trig_Index]
    if s__I06D_shield_life[this]>0 then
        if s__I06D_shield_life[this]>GetDamage()then
            set s__I06D_shield_life[this]=s__I06D_shield_life[this]-GetDamage()
            set KF[HF]=PF+1000000.
        else
            call DamageMinus(s__I06D_shield_life[this])
            call s__I06D_removebuff(this)
        endif
    endif
endfunction

function s__I06D_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((this))]],('clsd')))then
        set s__I06D_shield_life[this]=5000
    else
        set s__I06D_shield_life[this]=$BB8
    endif
    call UnitAddAbilityBY((Je[(this)]),'A07Y')
endfunction

function s__I06D_Passive takes nothing returns nothing
    local integer this=Ahv
    local boolean b=ATv
    if b then
        set s__I06D_time[this]=NewTimer(this)
        set s__I06D_shield_trig[this]=UnitAddShieldTrigB((this),function s__I06D_onDamaged)
        set s__Trig_P2[s__I06D_shield_trig[this]]=this
        call TimerStart(s__I06D_time[this],8,true,function s__I06D_loop_c)
        call Unit_App_Counter($444,(this))
    else
        call s__I06D_removebuff(this)
        call ReleaseTimer(s__I06D_time[this],"[TimerUtils]Error:639")
        call s__Trig_remove(s__I06D_shield_trig[this])
        call Unit_Cancel_Counter($445,(this))
        set s__I06D_time[this]=null
    endif
endfunction

function EquipTrigger_onInit2 takes nothing returns nothing
    local integer s
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I08X'),GetHandleId(Filter((function s__Redemption_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('sbch'),GetHandleId(Filter((function s__Redemption_Passive))))
    call Equipment_to_build_TrigSlot('I06Y',Equip_trigSlot_A,(1),function Highly_toxic_series_A_action)
    call Equipment_to_build_TrigSlot('I06Z',Equip_trigSlot_A,(1),function Highly_toxic_series_A_action)
    call Equipment_to_build_TrigSlot('I070',Equip_trigSlot_A,(1),function Highly_toxic_series_A_action)
    call Equipment_to_build_TrigSlot('I071',Equip_trigSlot_A,(1),function Highly_toxic_series_A_action)
    call Equipment_to_build_TrigSlot('I09F',Equip_trigSlot_A,(1),function Highly_toxic_series_A_action)
    call Equipment_to_build_TrigSlot('I0GY',Equip_trigSlot_A,(1),function Highly_toxic_series_A_action)
    call Equipment_to_build_TrigSlot('I077',Equip_trigSlot_A,(1),function Highly_toxic_series_B_action)
    call Equipment_to_build_TrigSlot('I078',Equip_trigSlot_A,(1),function Highly_toxic_series_B_action)
    call Equipment_to_build_TrigSlot('I079',Equip_trigSlot_A,(1),function Highly_toxic_series_B_action)
    call Equipment_to_build_TrigSlot('I07A',Equip_trigSlot_A,(1),function Highly_toxic_series_B_action)
    call Equipment_to_build_TrigSlot('I09D',Equip_trigSlot_A,(1),function Highly_toxic_series_B_action)
    call Equipment_to_build_TrigSlot('I0GZ',Equip_trigSlot_A,(1),function Highly_toxic_series_B_action)
    call Equipment_to_build_TrigSlot('I07B',Equip_trigSlot_A,(1),function Highly_toxic_series_C_action)
    call Equipment_to_build_TrigSlot('I086',Equip_trigSlot_A,(1),function Akers_mia_action)
    call Equipment_to_build_TrigSlot('I08H',Equip_trigSlot_A,(1),function Akers_mia_action)
    call Equipment_to_build_TrigSlot('I09O',Equip_trigSlot_A,(1),function Akers_mia_action)
    call Equipment_to_build_TrigSlot('I09Q',Equip_trigSlot_A,(1),function Akers_mia_action)
    call Equipment_to_build_TrigSlot('I085',Equip_trigSlot_A,(1),function Carla_fe_mia_action)
    call Equipment_to_build_TrigSlot('I08G',Equip_trigSlot_A,(1),function Carla_fe_mia_action)
    call Equipment_to_build_TrigSlot('ckng',Equip_trigSlot_A,(1),function Bloodthirsty_A_action)
    call Equipment_to_build_TrigSlot('gopr',Equip_trigSlot_A,(1),function Bloodthirsty_A_action)
    call Equipment_to_build_TrigSlot('I0BQ',Equip_trigSlot_A,(1),function Bloodthirsty_B_action)
    call Equipment_to_build_TrigSlot('I0CB',Equip_trigSlot_A,(1),function Bloodthirsty_B_action)
    call Equipment_to_build_TrigSlot('I08L',Equip_trigSlot_A,(1),function Series_of_Atlantis_A_action)
    call Equipment_to_build_TrigSlot('I09P',Equip_trigSlot_A,(1),function Series_of_Atlantis_A_action)
    call Equipment_to_build_TrigSlot('I07R',Equip_trigSlot_A,(1),function Magic_dragon_series_A_action)
    call Equipment_to_build_TrigSlot('I09S',Equip_trigSlot_A,(1),function Magic_dragon_series_A_action)
    call Equipment_to_build_TrigSlot('I07S',Equip_trigSlot_A,(1),function Magic_dragon_series_B_action)
    call Equipment_to_build_TrigSlot('I09T',Equip_trigSlot_A,(1),function Magic_dragon_series_B_action)
    call Equipment_to_build_TrigSlot('I07U',Equip_trigSlot_D,(2),function Magic_dragon_series_C_action)
    call Equipment_to_build_TrigSlot('I07W',Equip_trigSlot_D,(2),function Magic_dragon_series_D_action)
    call Equipment_to_build_TrigSlot('I0C0',Equip_trigSlot_D,(2),function Lobster_series_A_actiom)
    call Equipment_to_build_TrigSlot('I0C1',Equip_trigSlot_A,(1),function Lobster_series_B_actiom)
    call Equipment_to_build_TrigSlot('I0BL',Equip_trigSlot_A,(1),function Sea_series_A_action)
    call Equipment_to_build_TrigSlot('I0BM',Equip_trigSlot_A,(1),function Sea_series_A_action)
    call Equipment_to_build_TrigSlot('I0BN',Equip_trigSlot_A,(1),function Sea_series_A_action)
    call Equipment_to_build_TrigSlot('I0BO',Equip_trigSlot_A,(1),function Sea_series_A_action)
    call Equipment_to_build_TrigSlot('I0H1',Equip_trigSlot_A,(1),function Sea_series_A_action)
    call Equipment_to_build_TrigSlot('I0A5',Equip_trigSlot_A,(1),function Hill_series_A_action)
    call Equipment_to_build_TrigSlot('I0A6',Equip_trigSlot_A,(1),function Hill_series_A_action)
    call Equipment_to_build_TrigSlot('I0A7',Equip_trigSlot_A,(1),function Hill_series_A_action)
    call Equipment_to_build_TrigSlot('I0A8',Equip_trigSlot_A,(1),function Hill_series_A_action)
    call Equipment_to_build_TrigSlot('I0A9',Equip_trigSlot_A,(1),function Hill_series_A_action)
    call Equipment_to_build_TrigSlot('I0H0',Equip_trigSlot_A,(1),function Hill_series_A_action)
    call Equipment_to_build_TrigSlot('phlt',Equip_trigSlot_A,(1),function Corruptor_series_v_action)
    call Equipment_to_build_TrigSlot('I0C9',Equip_trigSlot_A,(1),function Corruptor_series_v_action)
    call Equipment_to_build_TrigSlot('I0FC',Equip_trigSlot_A,(1),function Corruptor_series_v_action)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('phlt'),GetHandleId(Filter((function Corruptor_series_B_action))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0C9'),GetHandleId(Filter((function Corruptor_series_B_action))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0DU'),GetHandleId(Filter((function Corruptor_series_B_action))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0FC'),GetHandleId(Filter((function Corruptor_series_B_action))))
    call Equipment_to_build_TrigSlot('I08R',Equip_trigSlot_D,(2),function LichKing_series_A_action)
    call Equipment_to_build_TrigSlot('I08E',Equip_trigSlot_D,(2),function LichKing_series_A_action)
    call Equipment_to_build_TrigSlot('I0BS',Equip_trigSlot_C,(3),function DeadOfTheClothes_action)
    call Equipment_to_build_TrigSlot('hval',Equip_trigSlot_C,(3),function Aspects_of_a_wind_action)
    call Equipment_to_build_TrigSlot('will',Equip_trigSlot_C,(3),function Aspects_of_a_wind_action)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('sor6'),GetHandleId(Filter((function s__AubreyFurHats_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('sor7'),GetHandleId(Filter((function s__AubreyFurHats_Passive))))
    call Equipment_to_build_TrigSlot('sksh',Equip_trigSlot_B,(4),function HolyRelic_series_action)
    call Equipment_to_build_TrigSlot('ram4',Equip_trigSlot_B,(4),function HolyRelic_series_action)
    call Equipment_to_build_TrigSlot('rej5',Equip_trigSlot_B,(4),function HolyRelic_series_action)
    call Equipment_to_build_TrigSlot('I0CN',Equip_trigSlot_A,(1),function Wrath_of_the_thunder_Rage_A_action)
    call Equipment_to_build_TrigSlot('I0CN',Equip_trigSlot_B,(4),function Wrath_of_the_thunder_Rage_B_action)
    call Equipment_to_build_TrigSlot('I080',Equip_trigSlot_A,(1),function Wrath_of_the_thunder_action)
    call Equipment_to_build_TrigSlot('crys',Equip_trigSlot_F,(5),function Disaster_and_death_action)
    call Equipment_to_build_TrigSlot('gcel',Equip_trigSlot_F,(5),function Disaster_and_death_action)
    call Equipment_to_build_TrigSlot('bzbf',Equip_trigSlot_C,(3),function Equip_bzbf_Damaged_action)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rej4'),GetHandleId(Filter((function s__rej4_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('bzbe'),GetHandleId(Filter((function s__bzbe_Passive))))
    call Equipment_to_build_TrigSlot('stel',Equip_trigSlot_A,(1),function s__stel_onAttack)
    call Equipment_to_build_TrigSlot('sor3',Equip_trigSlot_A,(1),function s__sor3_onAttack)
    call Equipment_to_build_TrigSlot('sor3',Equip_trigSlot_B,(4),function s__sor3_onCast)
    call Equipment_to_build_TrigSlot('I0C6',Equip_trigSlot_E,(6),function Equip_I0C6_action)
    call Equipment_to_build_TrigSlot('I0AN',Equip_trigSlot_E,(6),function Equip_I0AN_action)
    call Equipment_to_build_TrigSlot('I067',Equip_trigSlot_A,(1),function Equip_I067_onAttack)
    call Equipment_to_build_TrigSlot('I081',Equip_trigSlot_A,(1),function Equip_I081_onAttack)
    call Equipment_to_build_TrigSlot('I097',Equip_trigSlot_A,(1),function Equip_I097_onAttack)
    call Equipment_to_build_TrigSlot('I099',Equip_trigSlot_A,(1),function Equip_I099_onAttack)
    call Equipment_to_build_TrigSlot('I0D5',Equip_trigSlot_A,(1),function Equip_I0D5_onAttack)
    call Equipment_to_build_TrigSlot('I0BR',Equip_trigSlot_A,(1),function Equip_I0BR_onAttack)
    call Equipment_to_build_TrigSlot('I0C8',Equip_trigSlot_A,(1),function Equip_I0C8_onAttack)
    call Equipment_to_build_TrigSlot('I0CU',Equip_trigSlot_A,(1),function Equip_I0CU_onAttack)
    call Equipment_to_build_TrigSlot('bspd',Equip_trigSlot_A,(1),function Equip_bspd_onAttack)
    call Equipment_to_build_TrigSlot('gmfr',Equip_trigSlot_A,(1),function Equip_gmfr_onAttack)
    call Equipment_to_build_TrigSlot('kysn',Equip_trigSlot_A,(1),function Equip_kysn_onAttack)
    call Equipment_to_build_TrigSlot('tgxp',Equip_trigSlot_A,(1),function Equip_kysn_onAttack)
    call Equipment_to_build_TrigSlot('pgin',Equip_trigSlot_A,(1),function s__pgin_onAttack)
    call Equipment_to_build_TrigSlot('pmna',Equip_trigSlot_A,(1),function Equip_pmna_onAttack)
    call Equipment_to_build_TrigSlot('prvt',Equip_trigSlot_A,(1),function Equip_prvt_onAttack)
    call Equipment_to_build_TrigSlot('ratc',Equip_trigSlot_A,(1),function Equip_ratc_onAttack)
    call Equipment_to_build_TrigSlot('rin1',Equip_trigSlot_A,(1),function Equip_rin1_onAttack)
    call Equipment_to_build_TrigSlot('rhth',Equip_trigSlot_A,(1),function Equip_rhth_onAttack)
    call Equipment_to_build_TrigSlot('I0D6',Equip_trigSlot_A,(1),function Equip_I0D6_onAttack)
    call Equipment_to_build_TrigSlot('sbok',Equip_trigSlot_A,(1),function Equip_sbok_onAttack)
    call Equipment_to_build_TrigSlot('sehr',Equip_trigSlot_A,(1),function Equip_sehr_onAttack)
    call Equipment_to_build_TrigSlot('shcw',Equip_trigSlot_A,(1),function Equip_shcw_onAttack)
    call Equipment_to_build_TrigSlot('skrt',Equip_trigSlot_A,(1),function Equip_skrt_onAttack)
    call Equipment_to_build_TrigSlot('sor9',Equip_trigSlot_A,(1),function Equip_sor9_onAttack)
    call Equipment_to_build_TrigSlot('tkno',Equip_trigSlot_A,(1),function Equip_tkno_onAttack)
    call Equipment_to_build_TrigSlot('k3m2',Equip_trigSlot_A,(1),function Equip_k3m2_onAttack)
    call Equipment_to_build_TrigSlot('rde3',Equip_trigSlot_A,(1),function Equip_rde3_onAttack)
    call Equipment_to_build_TrigSlot('I0CE',Equip_trigSlot_B,(4),function s__I0CE_onSpellEffect)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0CE'),GetHandleId(Filter((function s__I0CE_Passive))))
    call Equipment_to_build_TrigSlot('I0CM',Equip_trigSlot_B,(4),function Equip_I0CM_onSpellEffect)
    call Equipment_to_build_TrigSlot('I0DI',Equip_trigSlot_B,(4),function Equip_I0DI_onSpellEffect)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0DI'),GetHandleId(Filter((function Equip_I0DI_PickupOrDrop))))
    call Equipment_to_build_TrigSlot('afac',Equip_trigSlot_B,(4),function Equip_afac_onSpellEffect)
    call Equipment_to_build_TrigSlot('blba',Equip_trigSlot_B,(4),function Equip_blba_onSpellEffect)
    call Equipment_to_build_TrigSlot('cnhn',Equip_trigSlot_B,(4),function Equip_cnhn_onSpellEffect)
    call Equipment_to_build_TrigSlot('gobm',Equip_trigSlot_B,(4),function Equip_gobm_onSpellEffect)
    call Equipment_to_build_TrigSlot('hcun',Equip_trigSlot_B,(4),function s__hcun_onSpellEffect)
    call Equipment_to_build_TrigSlot('k3m3',Equip_trigSlot_B,(4),function Equip_k3m3_onSpellEffect)
    call Equipment_to_build_TrigSlot('ofro',Equip_trigSlot_B,(4),function Equip_ofro_onSpellEffect)
    call Equipment_to_build_TrigSlot('srtl',Equip_trigSlot_B,(4),function Equip_srtl_onSpellEffect)
    call Equipment_to_build_TrigSlot('stwa',Equip_trigSlot_B,(4),function Equip_stwa_onSpellEffect)
    call Equipment_to_build_TrigSlot('rat3',Equip_trigSlot_B,(4),function s__rat3_onSpellEffect)
    call Equipment_to_build_TrigSlot('rag1',Equip_trigSlot_A,(7),function Equip_rag1_onCrit)
    call Equipment_to_build_TrigSlot('I08C',Equip_trigSlot_D,(2),function Equip_I08C_beAttack)
    call Equipment_to_build_TrigSlot('I08D',Equip_trigSlot_D,(2),function Equip_I08D_beAttack)
    call Equipment_to_build_TrigSlot('I088',Equip_trigSlot_D,(2),function Equip_I088_beAttack)
    call Equipment_to_build_TrigSlot('spsh',Equip_trigSlot_D,(2),function Equip_spsh_beAttack)
    call Equipment_to_build_TrigSlot('lgdh',Equip_trigSlot_D,(2),function Equip_lgdh_beAttack)
    call Equipment_to_build_TrigSlot('I0CP',Equip_trigSlot_D,(3),function Equip_I0CP_Shield)
    call Equipment_to_build_TrigSlot('esaz',Equip_trigSlot_C,(3),function Equip_esaz_Shield)
    call Equipment_to_build_TrigSlot('jpnt',Equip_trigSlot_C,(3),function Equip_jpnt_Shield)
    call Equipment_to_build_TrigSlot('I0B5',Equip_trigSlot_C,(8),function Equip_I0B5_Meleemagic)
    call Equipment_to_build_TrigSlot('glsk',Equip_trigSlot_C,(8),function s__glsk_onDirectHit)
    call Equipment_to_build_TrigSlot('I0CC',Equip_trigSlot_E,(9),function Equip_I0CC_onKillUnit)
    call Equipment_to_build_TrigSlot('mort',Equip_trigSlot_E,(9),function Equip_mort_onKillUnit)
    call Equipment_to_build_TrigSlot('mcou',Equip_trigSlot_C,($A),function Equip_mcou_onCured)
    call Equipment_to_build_TrigSlot('I00A',Equip_trigSlot_A,(1),Item_I00A_Func)
    call Equipment_to_build_TrigSlot('I00C',Equip_trigSlot_C,(6),Item_I00C_Func)
    call Equipment_to_build_TrigSlot('I00E',Equip_trigSlot_A,(1),Item_I00E_Func)
    call Equipment_to_build_TrigSlot('I05H',Equip_trigSlot_A,(1),Item_I05H_Func)
    call Equipment_to_build_TrigSlot('I0H2',Equip_trigSlot_A,(1),Item_I05H_Func)
    call Equipment_to_build_TrigSlot('I0DT',Equip_trigSlot_A,(1),Item_I0DT_Func)
    call Equipment_to_build_TrigSlot('I0DU',Equip_trigSlot_A,(1),Item_I0DU_Func)
    call Equipment_to_build_TrigSlot('I0DW',Equip_trigSlot_F,(5),Item_I0DW_Func)
    call Equipment_to_build_TrigSlot('I0DX',Equip_trigSlot_A,(1),Item_I0DX_Func)
    call Equipment_to_build_TrigSlot('I0DZ',Equip_trigSlot_A,(1),Item_I0DZ_Func)
    call Equipment_to_build_TrigSlot('I0E0',Equip_trigSlot_A,(1),Item_I0E0_Func)
    call Equipment_to_build_TrigSlot('I0E2',Equip_trigSlot_A,(1),Item_I0E2_Func)
    call Equipment_to_build_TrigSlot('I0E3',Equip_trigSlot_B,(4),Item_I0E3_Func)
    call Equipment_to_build_TrigSlot('I0E5',Equip_trigSlot_A,(1),Item_I0E5_Func)
    call Equipment_to_build_TrigSlot('I0E6',Equip_trigSlot_A,(1),Item_I0E6_Func)
    call Equipment_to_build_TrigSlot('I0E7',Equip_trigSlot_A,(1),Item_I0E7_Func)
    call Equipment_to_build_TrigSlot('I0EB',Equip_trigSlot_B,(4),function Equip_I0EB_onSpellEffect)
    call Equipment_to_build_TrigSlot('I0EC',Equip_trigSlot_A,(1),Item_I0EC_Func)
    call Equipment_to_build_TrigSlot('azhr',Equip_trigSlot_C,(6),Item_azhr_Func)
    call Equipment_to_build_TrigSlot('I0EV',Equip_trigSlot_A,(1),Item_I0EV_Func)
    call Equipment_to_build_TrigSlot('I0EW',Equip_trigSlot_A,(1),Item_I0EW_Func)
    call Equipment_to_build_TrigSlot('I0EX',Equip_trigSlot_A,(1),Item_I0EX_Func)
    call Equipment_to_build_TrigSlot('I0EZ',Equip_trigSlot_B,(4),Item_I0EZ_Func)
    call Equipment_to_build_TrigSlot('I0F2',Equip_trigSlot_B,(4),Item_I0F2_Func)
    call Equipment_to_build_TrigSlot('I0F4',Equip_trigSlot_A,(1),Item_I0F4_Func)
    call Equipment_to_build_TrigSlot('I0F5',Equip_trigSlot_C,($B),Item_I0F5_Func)
    call Equipment_to_build_TrigSlot('I0F7',Equip_trigSlot_A,(1),Item_I0F7_Func)
    call Equipment_to_build_TrigSlot('I0FD',Equip_trigSlot_F,(5),Item_I0FD_Func)
    call Equipment_to_build_TrigSlot('I0FO',Equip_trigSlot_A,(1),Item_I0FO_Func)
    call Equipment_to_build_TrigSlot('I0FP',Equip_trigSlot_A,(1),Item_I0FP_Func)
    call Equipment_to_build_TrigSlot('I0EY',Equip_trigSlot_A,(1),Item_I0EY_Func)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0DV'),GetHandleId(Filter((Item_I0DV_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0DY'),GetHandleId(Filter((Item_I0DY_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0E1'),GetHandleId(Filter((Item_I0E1_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('ches'),GetHandleId(Filter((Item_I0E4_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rump'),GetHandleId(Filter((Item_I0E4_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0E4'),GetHandleId(Filter((Item_I0E4_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0E8'),GetHandleId(Filter((Item_I0E8_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0F0'),GetHandleId(Filter((Item_I0F0_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0F1'),GetHandleId(Filter((Item_I0F1_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0CH'),GetHandleId(Filter((Item_I0CH_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I05U'),GetHandleId(Filter((Item_I05U_Func))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rej6'),GetHandleId(Filter((function s__odef_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('odef'),GetHandleId(Filter((function s__odef_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0FB'),GetHandleId(Filter((function s__odef_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I092'),GetHandleId(Filter((function s__I092_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0D8'),GetHandleId(Filter((function s__I0D8_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0B2'),GetHandleId(Filter((function s__I0B2_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0B3'),GetHandleId(Filter((function Equip_I0B3_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rat9'),GetHandleId(Filter((function Equip_rat9_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0D9'),GetHandleId(Filter((function Equip_I0D9_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0C7'),GetHandleId(Filter((function Equip_I0C7_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0CA'),GetHandleId(Filter((function s__I0CA_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0CO'),GetHandleId(Filter((function s__I0CO_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0CR'),GetHandleId(Filter((function s__I0CR_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('dsum'),GetHandleId(Filter((function s__dsum_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('kybl'),GetHandleId(Filter((function s__kybl_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rde4'),GetHandleId(Filter((function s__rde4_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rde2'),GetHandleId(Filter((function s__rde2_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('sclp'),GetHandleId(Filter((function s__sclp_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I06D'),GetHandleId(Filter((function s__I06D_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('clsd'),GetHandleId(Filter((function s__I06D_Passive))))
    set s=s__suit_new(function MagicDragonSuit)
    call s__suit_add(s__suit_add(s__suit_add(s__suit_add(s,'I07R'),'I09S'),'I07S'),'I09T')
    call s__suit_add(s__suit_add(s,'I07U'),'I07W')
    call s__suit_add(s__suit_add(s,'I07Y'),'I07X')
    set s=s__suit_new(function LobsterSuit)
    call s__suit_add(s__suit_add(s,'I0C0'),'I0C0')
    set s=s__suit_new(function Jack_s_Suit)
    call s__suit_add(s,'I0AY')
    call s__suit_add(s__suit_add(s__suit_add(s__suit_add(s,'I07O'),'I07N'),'I07M'),'I07P')
    call s__suit_add(s__suit_add(s,'cnob'),'shhn')
    call Active_A05S_Init()
    call Active_A0HB_Init()
    call Active_A0JN_Init()
    call Active_Corruptor_Init()
    call Active_A0A7_Init()
    call Active_A094_Init()
    call Active_A0FC_Init()
    call Active_A0IU_Init()
    call Active_A0JX_Init()
    call RegisterSpellEffectEvent('A0C9',function Active_A0C9_onSpellEffect)
    call Active_A0DP_Init()
    call Active_A0F6_Init()
    call Active_A06K_Init()
    call Active_A0D4_Init()
    call Active_A08G_Init()
    call Active_A0HK_Init()
    call Active_A079_Init()
    call Active_A0SF_Init()
    call Active_A0HI_Init()
    call Active_A0D2_Init()
    call Active_A0HQ_Init()
    call Active_A05C_Init()
    call Active_A080_Init()
    call Active_A069_Init()
    call Active_A05G_Init()
    call Active_A0MB_Init()
    call Active_A0QL_Init()
    call Active_A07O_Init()
    call Active_A0DT_Init()
    call Active_A0MJ_Init()
    call Active_A0CF_Init()
    call Active_A0RE_Init()
    call Active_A0PJ_Init()
    call Active_A0P5_Init()
    call Active_A0P6_Init()
    call Active_A0QY_Init()
    call Active_A0RA_Init()
    call Active_A020_Init()
    call Active_A0JP_Init()
    call Active_A0JR_Init()
    call Active_A0MF_Init()
    call Active_A06H_Init()
    call Active_A0S0_Init()
    call Active_A0AS_Init()
    call Active_A0CC_Init()
    call SaveReal(BYHT,DroppableTimed,('I084'),((20)*1.))
endfunction

function EquipTrigger_onInit takes nothing returns nothing
    set Equip_trigSlot_A=malloc()
    set Equip_trigSlot_B=malloc()
    set Equip_trigSlot_C=malloc()
    set Equip_trigSlot_D=malloc()
    set Equip_trigSlot_E=malloc()
    set Equip_trigSlot_F=malloc()
    set Equip_trigSlot_O[0]=Equip_trigSlot_F
    set Equip_trigSlot_O[1]=Equip_trigSlot_E
    set Equip_trigSlot_O[2]=Equip_trigSlot_D
    set Equip_trigSlot_O[3]=Equip_trigSlot_C
    set Equip_trigSlot_O[4]=Equip_trigSlot_B
    set Equip_trigSlot_O[5]=Equip_trigSlot_A
    call TimerStart((NewTimer(0)),.01,false,function EquipTrigger_onInit2)
endfunction

function GameInformation___TimedToString takes nothing returns string
    local integer t=R2I((100000.-TimerGetRemaining(GameTimer)))
    local integer h
    local integer m
    local string s
    set h=t/ $E10
    set t=t-h*$E10
    set m=t/ 60
    set t=t-m*60
    set s=I2S(t)
    if t<$A then
        set s="0"+s
    endif
    set s=I2S(m)+":"+s
    if m<$A then
        set s="0"+s
    endif
    set s=I2S(h)+":"+s
    if h<$A then
        set s="0"+s
    endif
    return s
endfunction

function GameInformation___Refresh takes nothing returns nothing
    local integer i
    set GameInformation___AC=GameInformation___AC+1
    if GameInformation___AC==60 then
        set i=8
        set GameInformation___AC=0
        set GameInformation___IC=GameInformation___IC+1
        set GameInformation___NC=GameInformation___NC+1
        loop
            set i=i-1
            if MV[i]!=null and not IsPointInRect(GetUnitX(MV[i]),GetUnitY(MV[i]),gg_rct_XSC___________000)then
                call Cpv(((GetUnitUserData((MV[i])))),1)
            endif
            exitwhen i==0
        endloop
        if GameInformation___NC==60 then
            set GameInformation___NC=0
            set GameInformation___bC=GameInformation___bC+1
        endif
    endif
    if GameInformation___IC==$A then
        set GameInformation___IC=$B
        call StartSound(Ca)
        call DisplayTimedText("|c0000FF00If you are newbie, open F9 to watch some info. To find team and strategy for bosses, join QQ group: 240519071|r",$F)
        call DisplayTimedText("|c0000FF00Translated by Vodka Team :|r",$F)
        call DisplayTimedText("|c008000FFPyCCKuu_4eJl|r",$F)
        call DisplayTimedText("|c00DC143CBaleriy|r",$F)
        call DisplayTimedText("|cFF66FF66Xatsi|r",$F)
        call DisplayTimedText("|c0000FF00Join eng community discord!|r",$F)
        call DisplayTimedText("|c0000FF00https://discord.gg/UwQVjft <--- invite that wont expire!|r",$F)
    elseif GameInformation___IC==20 then
        set GameInformation___IC=0
        call StartSound(Ca)
        call DisplayTimedText("|c0000FF00If you are newbie, open F9 to watch some info. To find team and strategy for bosses, join QQ group: 240519071|r",$F)
        call DisplayTimedText("|c0000FF00Translated by Vodka Team :|r",$F)
        call DisplayTimedText("|c008000FFPyCCKuu_4eJl|r",$F)
        call DisplayTimedText("|c00DC143CBaleriy|r",$F)
        call DisplayTimedText("|cFF66FF66Xatsi|r",$F)
        call DisplayTimedText("|c0000FF00Join eng community discord!|r",$F)
        call DisplayTimedText("|c0000FF00https://discord.gg/UwQVjft|r",$F)
    endif
    call MultiboardSetItemValueBY(TV,$A,1,GameInformation___TimedToString())
endfunction

function GameInformation___Initialize takes nothing returns nothing
    local integer i=8
    local integer c
    set TV=NewMultiboard($B,5)
    call MultiboardSetItemsStyle(s__Multiboard_Ie[(TV)],(true),(false))
    call MultiboardSetItemRowStyleBY(TV,0,true,true)
    call MultiboardSetItemColumnWidthBY(TV,0,.055)//players
    call MultiboardSetItemColumnValueBY(TV,2,"0")//level
    call MultiboardSetItemColumnWidthBY(TV,2,.04)
    call MultiboardSetItemColumnValueBY(TV,3,"0")//stats
    call MultiboardSetItemColumnWidthBY(TV,3,.04)
    call MultiboardSetItemColumnValueBY(TV,4,"0")
    call MultiboardSetItemIconBY(TV,0,0,"ReplaceableTextures\\CommandButtons\\BTNAnkh.blp")
    call MultiboardSetItemIconBY(TV,0,1,"ReplaceableTextures\\CommandButtons\\BTNOrb.blp")
    call MultiboardSetItemWidthBY(TV,0,1,.05)//name
    call MultiboardSetItemIconBY(TV,0,2,"ReplaceableTextures\\CommandButtons\\BTNTransmute.blp")
    call MultiboardSetItemIconBY(TV,0,3,"ReplaceableTextures\\CommandButtons\\BTNStatUp.blp")
    call MultiboardSetItemIconBY(TV,0,4,"ReplaceableTextures\\CommandButtons\\BTNSkillz.tga")
    call MultiboardSetItemWidthBY(TV,0,4,.05)//fatigue
    call MultiboardSetItemRowStyleBY(TV,9,false,false)
    call MultiboardSetItemStyleBY(TV,$A,1,true,false)
    call MultiboardSetTitleText(s__Multiboard_Ie[(TV)],("[|c0000FFFFHoly Spirit II ORPG 1.00 eng|r]"))
    call MultiboardSetItemValueBY(TV,0,0,"|c0052E252Player|r")
    call MultiboardSetItemValueBY(TV,0,1,"|c0087CEEBHero|r")
    call MultiboardSetItemValueBY(TV,0,2,"|cFFFFCC00Level|r")
    call MultiboardSetItemValueBY(TV,0,3,"|c00FF8200Stats|r")
    call MultiboardSetItemValueBY(TV,0,4,"|c00FF0000Fatigue|r")
    call MultiboardSetItemValueBY(TV,$A,0,"|c002040F0Game time|r :")
    call MultiboardSetItemValueBY(TV,$A,1,GameInformation___TimedToString())
    call MultiboardSetItemWidthBY(TV,$A,1,.05)
    call MultiboardSetItemValueBY(TV,$A,2,"")
    call MultiboardSetItemWidthBY(TV,$A,2,.02)
    call MultiboardSetItemValueBY(TV,$A,3,"")
    call MultiboardSetItemWidthBY(TV,$A,3,.04)
    call MultiboardSetItemValueBY(TV,$A,4,"")
    loop
        set c=i
        set i=i-1
        if pV[i]then
            call MultiboardSetItemValueBY(TV,c,0,"|c00FFB6C1"+Game_PlayerName[i])
        else
            call MultiboardSetItemValueBY(TV,c,0,"|c00808080Free Slot")
        endif
        call MultiboardSetItemWidthBY(TV,c,1,.055)
        call MultiboardSetItemWidthBY(TV,c,4,.05)
        exitwhen i==0
    endloop
    call MultiboardDisplay(s__Multiboard_Ie[(TV)],(true))
    call MultiboardMinimize(s__Multiboard_Ie[(TV)],(true))
    call TimerStart(GetExpiredTimer(),1.,true,function GameInformation___Refresh)
endfunction

function GameInformation___onInit takes nothing returns nothing
    call TimerStart((NewTimer(0)),.0,false,function GameInformation___Initialize)
endfunction

function HeroSkills_A08U_End takes nothing returns nothing
    local integer id=le
    if HeroSkills_A08U_App[id]then
        set HeroSkills_A08U_Last[HeroSkills_A08U_Next[id]]=HeroSkills_A08U_Next[id]
        set HeroSkills_A08U_Next[HeroSkills_A08U_Last[id]]=HeroSkills_A08U_Last[id]
        set HeroSkills_A08U_App[id]=false
        call Unit_Cancel_Counter(366,(id))
        if HeroSkills_A08U_Next[0]==0 then
            call frv(HeroSkills_A08U_Func)
        endif
    endif
endfunction

function HeroSkills_A08U_Loop takes nothing returns nothing
    local integer id=HeroSkills_A08U_Next[0]
    local integer local_str
    loop
        exitwhen id==0
        set local_str=GetHeroState1((Je[(id)]),true)
        if HeroSkills_A08U_Str[id]!=local_str then
            call ModifyUnitHP(id,(local_str-HeroSkills_A08U_Str[id])*8)
            set HeroSkills_A08U_Str[id]=local_str
        endif
        set id=HeroSkills_A08U_Next[id]
    endloop
endfunction

function HeroSkills_A08U_Open takes integer id returns boolean
    if HeroSkills_A08U_App[id]then
        return false
    endif
    if HeroSkills_A08U_Next[0]==0 then
        call fov(HeroSkills_A08U_Func)
    endif
    set HeroSkills_A08U_Last[id]=0
    set HeroSkills_A08U_Next[id]=HeroSkills_A08U_Next[0]
    set HeroSkills_A08U_Last[HeroSkills_A08U_Next[0]]=id
    set HeroSkills_A08U_Next[0]=id
    set HeroSkills_A08U_App[id]=true
    call Unit_App_Counter(367,(id))
    return true
endfunction

function HeroSkills_A08U_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A08U')
    if lv>HeroSkills_A08U_Lv[id]then
        set HeroSkills_A08U_Lv[id]=lv
        call UnitAdefChange(id,HeroSkills_A08U_Adef[id],lv*2.5)
    endif
endfunction

function Hero_EnterWorld_H000 takes nothing returns nothing
    local integer id=le
    if HeroSkills_A08U_Open(id)then
        set HeroSkills_A08U_Lv[id]=1
        set HeroSkills_A08U_Str[id]=GetHeroState1((Je[(id)]),true)
        set HeroSkills_A08U_Adef[id]=ModifyUnitAdef((id),2.5)
        call ModifyUnitHP(id,HeroSkills_A08U_Str[id]*8)
        call UnitAddBeRemoveTrig(id,Filter(function HeroSkills_A08U_End))
    endif
endfunction

function HeroSkills_A08U_Init takes nothing returns nothing
    set HeroSkills_A08U_Func=fxv(function HeroSkills_A08U_Loop)
    call RegisterHeroInitEvent('H000',function Hero_EnterWorld_H000)
    call RegisterHeroSkillEvent('A08U',function HeroSkills_A08U_Actions)
    call Luv('A08U')
endfunction

function HeroSkills_A01O_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer target=(GetUnitUserData((GetSpellTargetUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A01O')
    local real d=(450*lv+($F+3.5*lv)*GetHeroState1((Je[(id)]),true))
    local real x=GetUnitX((Je[(target)]))
    local real y=GetUnitY((Je[(target)]))
    local unit u
    if MB[target]then
        call IssueTargetOrderById((Je[(target)]),$D000F,(Je[(id)]))
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",(Je[(target)]),"origin"))
    call UnitDamageTargetBY((((Je[(id)]))),(((Je[(target)]))),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    call m1v((Je[(target)]),.5)
    call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
    call GroupRemoveUnit(G,(Je[(target)]))
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$C8)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,.5)
            endif
        endif
    endloop
endfunction

function HeroSkills_A01O_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01O',function HeroSkills_A01O_Actions)
    call Luv('A01O')
endfunction

function HeroSkills_A00B_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:317")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KJ','B03Y')
    call DeUnitMdef(id,HeroSkills_A00B_Mdef[id])
    call ModifyUnitArmor(id,-HeroSkills_A00B_Lv[id]*40)
    set HeroSkills_A00B_Timer[id]=null
    set HeroSkills_A00B_Lv[id]=0
endfunction

function HeroSkills_A00B_Actions_func takes unit s,real r,real d returns nothing
    local integer f=CreateEffectFor()
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local unit u
    call TimerDestroyEffectBY(f,2)
    call Ltv(LAv("Abilities\\Spells\\NightElf\\Taunt\\TauntCaster.mdl",x,y,r/ $C8))
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            if IsUnitAliveAndEnemy(u,s)then
                if UnitIsSleeping(u)then
                    call UnitWakeUp(u)
                endif
                call s__Effect_connect((f),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Spells\\Other\\Silence\\SilenceTarget.mdl")),((u)),(("overhead"))))))
                call UnitDamageTargetBY(((s)),((u)),((((d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call IssueTargetOrderById(u,$D000F,s)
            endif
        endif
    endloop
endfunction

function HeroSkills_A00B_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A00B')
    if HeroSkills_A00B_Timer[id]==null then
        set HeroSkills_A00B_Timer[id]=NewTimer(id)
        set HeroSkills_A00B_Mdef[id]=ModifyUnitMdef(id,30)
        call UnitAddAbilityBY((Je[(id)]),'A0KJ')
        call Unit_App_Counter(368,(id))
    endif
    if HeroSkills_A00B_Lv[id]!=lv then
        call ModifyUnitArmor(id,(lv-HeroSkills_A00B_Lv[id])*40)
        set HeroSkills_A00B_Lv[id]=lv
    endif
    call DestroyEffect(AddSpecialEffectTarget("Energy_Release.mdl",(Je[(id)]),"origin"))
    call TimerStart(HeroSkills_A00B_Timer[id],$A,false,function HeroSkills_A00B_Expired)
    call HeroSkills_A00B_Actions_func((Je[(id)]),$C8+lv*70,850*lv+(25+4*lv)*GetHeroState1((Je[(id)]),true))
endfunction

function HeroSkills_A00B_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00B',function HeroSkills_A00B_Actions)
    call Luv('A00B')
endfunction

function HeroSkills_A019_Stop takes integer data returns nothing
    call SetUnitAnimation(Boss_Spell_unit1[data],"Stand Ready")
    call SetUnitPathing(Boss_Spell_unit1[data],true)
    call PauseUnit(Boss_Spell_unit1[data],false)
    call Ltv(Boss_Spell_data3[data])
    call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:318")
    call Boss_Spell_deallocate(data)
    set Boss_Spell_unit1[data]=null
    set Boss_Spell_unit2[data]=null
    set Boss_Spell_eff[data]=null
    set Boss_Spell_timer[data]=null
endfunction

function HeroSkills_A019_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local integer lv
    local real x
    local real y
    local real dX
    local real dY
    local real a
    local real d
    local real damage
    local real time
    local real s
    local boolean local_bool
    if not UnitAlive(Boss_Spell_unit1[data])then
        call HeroSkills_A019_Stop(data)
        return
    endif
    set x=GetUnitX(Boss_Spell_unit1[data])
    set y=GetUnitY(Boss_Spell_unit1[data])
    if Boss_Spell_bool[data]then
        if UnitAlive(Boss_Spell_unit2[data])and IsUnitInRangeXY(Boss_Spell_unit2[data],Boss_Spell_X[data],Boss_Spell_Y[data],256)then
            set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit2[data])
            set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit2[data])
        else
            set Boss_Spell_bool[data]=false
        endif
    endif
    set dX=Boss_Spell_X[data]-x
    set dY=Boss_Spell_Y[data]-y
    set a=Atan2(dY,dX)
    set d=SquareRoot(dX*dX+dY*dY)
    set s=30+d/ 17.5
    set x=x+s*Cos(a)
    set y=y+s*Sin(a)
    if d>$80 and(Boss_Spell_unit2[data]!=null or IsTerrainWalkable(x,y))then
        set Boss_Spell_data1[data]=Boss_Spell_data1[data]+R2I(s*100)
        call SetUnitX(Boss_Spell_unit1[data],x)
        call SetUnitY(Boss_Spell_unit1[data],y)
        call LKv(Boss_Spell_data3[data],x+(s+$A)*Cos(a))
        call Llv(Boss_Spell_data3[data],y+(s+$A)*Sin(a))
        if Boss_Spell_eff[data]==null then
        endif
        call SetUnitFacingTimed(Boss_Spell_unit1[data],a*bj_RADTODEG,0)
        call Lqv(LAv("KnockbackDust.mdl",x,y,1),.75)
        if Boss_Spell_data2[data]==0 then
            set Boss_Spell_data2[data]=CreatePhantom('e00M',3,x,y,bj_RADTODEG*a)
        else
            set Boss_Spell_data2[data]=0
        endif
    else
        set d=0
    endif
    if d==0 then
        call LDv(Boss_Spell_data3[data],3)
        if Boss_Spell_data1[data]>$9C40 then
            set damage=Boss_Spell_V[data]*1.5
            set time=2.25
            call Ltv(Lfv(LFv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.5),"AncientExplode.mdl"),0,55,$FF,$FF))
        else
            set damage=Boss_Spell_V[data]
            set time=1.5
            call Ltv(Lfv(LFv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.125),"AncientExplode.mdl"),0,55,$FF,$FF))
        endif
        set local_bool=Boss_Spell_eff[data]!=null
        if local_bool then
            call zhv((GetPlayerId((GetOwningPlayer(Boss_Spell_unit1[data])))),40,.5)
            call Lqv(LAv("BlizzardEruption.mdl",x,y,2.25),2.5)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,2),0,0,$FF,$FF))
            call Ltv(LAv("ColdBlast.mdl",x,y,1.75))
        endif
        call GroupEnumUnitsInRange(G,x,y,275+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,275)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    if local_bool then
                        if u==Boss_Spell_unit2[data]then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((3.5*damage)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00acbefd")))
                        else
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((2.5*damage)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00acbefd")))
                        endif
                    elseif u==Boss_Spell_unit2[data]then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((damage)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    else
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((damage)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                    call m2v(u,time,'A500','B500',true)
                endif
            endif
        endloop
        call HeroSkills_A019_Stop(data)
    endif
endfunction

function HeroSkills_A019_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A019')
    local real v=GetUnitMoveSpeed(GetTriggerUnit())
    local real x
    local real y
    local real a
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_data1[data]=0
    set Boss_Spell_data2[data]=0
    set Boss_Spell_bool[data]=true
    set Boss_Spell_eff[data]=null
    set Boss_Spell_timer[data]=NewTimer(data)
    if Boss_Spell_unit2[data]!=null then
        set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit2[data])
        set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit2[data])
    else
        set Boss_Spell_X[data]=GetSpellTargetX()
        set Boss_Spell_Y[data]=GetSpellTargetY()
    endif
    set Boss_Spell_V[data]=$41A*lv+(30+3*lv)*GetHeroState1(Boss_Spell_unit1[data],true)
    set x=GetUnitX(Boss_Spell_unit1[data])
    set y=GetUnitY(Boss_Spell_unit1[data])
    set a=Atan2(Boss_Spell_Y[data]-y,Boss_Spell_X[data]-x)
    set Boss_Spell_data3[data]=LVv('e00L',x+$A*Cos(a),y+$A*Sin(a),bj_RADTODEG*a)
    call LDv(Boss_Spell_data3[data],.6)
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y))
    call SetUnitAnimation(II[Boss_Spell_data3[data]],"Birth")
    call SetUnitPathing(Boss_Spell_unit1[data],false)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],3)
    if v>345 then
        call TimerStart(Boss_Spell_timer[data],.03125*345/ v,true,function HeroSkills_A019_Start)
    else
        call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A019_Start)
    endif
endfunction

function HeroSkills_A019_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A019',function HeroSkills_A019_Actions)
    call Luv('A019')
endfunction

function HeroSkills_A00D_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:319")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KL','B041')
    call DeUnitMdef((id),HeroSkills_A08W_Buff_Mdef[id])
    call Unit_Cancel_Counter(369,(id))
    set HeroSkills_A08W_Buff_Timer[id]=null
endfunction

function HeroSkills_A00D_BuffAdd takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A08W_Buff_Timer[id]==null then
        set HeroSkills_A08W_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A08W_Buff_Mdef[id]=ModifyUnitMdef((id),30)
        call UnitAddAbilityBY((Je[(id)]),'A0KL')
        call Unit_App_Counter(370,(id))
    endif
    call TimerStart(HeroSkills_A08W_Buff_Timer[id],5,false,function HeroSkills_A00D_BuffExpired)
endfunction

function HeroSkills_A00D_Explode takes integer id returns nothing
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real s=1.+2.*HeroSkills_A08W_Energy[id]/ HeroSkills_A08W_MaxEnergy[id]
    local unit u
    local boolean b=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('sbch')))
    set HeroSkills_A08W_Energy[id]=HeroSkills_A08W_Energy[id]+$BB8*GetUnitAbilityLevel((Je[(id)]),'A00D')
    call GroupEnumUnitsInRange(G,x,y,500+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,500)then
            if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                if b then
                    call BrokenShield_A(u)
                endif
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A08W_Energy[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m2v(u,s,'A500','B500',true)
            elseif IsUnitAliveAndAlly(u,(Je[(id)]))then
                call HeroSkills_A00D_BuffAdd(u)
                if b then
                    call UnitCureTaret((Je[(id)]),u,GetUnitMaxLifeById((GetUnitUserData((u))))*.25)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIma\\AImaTarget.mdl",u,"origin"))
                endif
            endif
        endif
    endloop
    call Ltv(LAv("ManaWave.mdl",x,y,3))
    call Lqv(LAv("FreezingRing.mdl",x,y,2),2.5)
    call PlaySoundAtPoint_BJ((wa),((100)*1.),((x)*1.),((y)*1.),0)
    call UnitRemoveAbilityBY((Je[(id)]),'A08W')
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08V','BOwk')
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A00D',true)
    call DestroyTextTag(HeroSkills_A08W_TextTag[id])
    call s__Trig_remove((HeroSkills_A08W_Trig[id]))
    set HeroSkills_A08W_TextTag[id]=null
endfunction

function HeroSkills_A08W_TextTagFollow takes integer id returns nothing
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    if HeroSkills_A08W_TextTagSize[id]>.025 then
        set HeroSkills_A08W_TextTagSize[id]=HeroSkills_A08W_TextTagSize[id]-.0025
    endif
    call SetTextTagPos(HeroSkills_A08W_TextTag[id],x,y,50)
    call SetTextTagText(HeroSkills_A08W_TextTag[id],I2S(R2I(HeroSkills_A08W_Energy[id])),HeroSkills_A08W_TextTagSize[id])
endfunction

function HeroSkills_A00D_End takes integer id returns nothing
    if HeroSkills_A08W_Open[id]then
        set HeroSkills_A08W_Last[HeroSkills_A08W_Next[id]]=HeroSkills_A08W_Last[id]
        set HeroSkills_A08W_Next[HeroSkills_A08W_Last[id]]=HeroSkills_A08W_Next[id]
        set HeroSkills_A08W_Open[id]=false
        if HeroSkills_A08W_Next[(0)]==0 then
            call frv(HeroSkills_A08W_Func)
        endif
        call HeroSkills_A00D_Explode(id)
        call Unit_Cancel_Counter(371,(id))
    endif
endfunction

function HeroSkills_A00D_Loop_c takes nothing returns boolean
    local integer id=HeroSkills_A08W_Next[(0)]
    loop
        exitwhen id==0
        set HeroSkills_A08W_Duration[id]=HeroSkills_A08W_Duration[id]-1
        if HeroSkills_A08W_Duration[id]>0 then
            call HeroSkills_A08W_TextTagFollow(id)
        else
            call HeroSkills_A00D_End(id)
        endif
        set id=HeroSkills_A08W_Next[id]
    endloop
    return false
endfunction

function HeroSkills_A00D_App takes integer id returns integer
    if HeroSkills_A08W_Open[id]then
        call HeroSkills_A00D_Explode(id)
    else
        if HeroSkills_A08W_Next[(0)]==0 then
            if HeroSkills_A08W_Func==0 then
                set HeroSkills_A08W_Func=fxv(function HeroSkills_A00D_Loop_c)
            endif
            call fov(HeroSkills_A08W_Func)
        endif
        set HeroSkills_A08W_Next[id]=HeroSkills_A08W_Next[(0)]
        set HeroSkills_A08W_Last[HeroSkills_A08W_Next[(0)]]=id
        set HeroSkills_A08W_Next[(0)]=id
        set HeroSkills_A08W_Last[id]=0
        set HeroSkills_A08W_Open[id]=true
        call Unit_App_Counter(372,(id))
    endif
    return id
endfunction

function HeroSkills_A00D_BeDamager takes nothing returns nothing
    local integer id=(pF)
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local real n=HeroSkills_A08W_Energy[id]+(DAK_AMOUNT[HF])
    local integer fx=Lnv(x,y,Atan2(GetUnitY((mF))-y,GetUnitX((mF))-x))
    call LMv(fx,"Abilities\\Spells\\Items\\SpellShieldAmulet\\SpellShieldCaster.mdl")
    call SetUnitScale(II[(fx)],((1.25)*1.),0,0)
    set HeroSkills_A08W_TextTagSize[id]=.04
    if n>HeroSkills_A08W_MaxEnergy[id]then
        set HeroSkills_A08W_Energy[id]=HeroSkills_A08W_MaxEnergy[id]
    else
        set HeroSkills_A08W_Energy[id]=n
    endif
    call SetTextTagText(HeroSkills_A08W_TextTag[id],I2S(R2I(HeroSkills_A08W_Energy[id])),HeroSkills_A08W_TextTagSize[id])
    call DamageMinus(HeroSkills_A08W_DefRatio[id]*GetDamage())
    call Ltv(Lfv(fx,55,55,$FF,$FF))
endfunction

function HeroSkills_A08W_Actions takes nothing returns nothing
    call HeroSkills_A00D_End(((GetUnitUserData((GetTriggerUnit())))))
endfunction

function HeroSkills_A00D_Actions takes nothing returns nothing
    local integer id=HeroSkills_A00D_App((GetUnitUserData((GetTriggerUnit()))))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A00D')
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local unit u
    set HeroSkills_A08W_Trig[id]=UnitAddBeDamagerTrigB((id),function HeroSkills_A00D_BeDamager)
    set HeroSkills_A08W_TextTag[id]=CreateTextTag()
    set HeroSkills_A08W_Duration[id]=384
    set HeroSkills_A08W_Energy[id]=0
    set HeroSkills_A08W_DefRatio[id]=.6+.0275*lv
    set HeroSkills_A08W_MaxEnergy[id]=(50+5*lv)*GetHeroState1((Je[(id)]),true)
    set HeroSkills_A08W_TextTagSize[id]=.025
    call GroupEnumUnitsInRange(G,x,y,500+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,500)then
            if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call IssueTargetOrderById(u,$D000F,(Je[(id)]))
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\ManaFlare\\ManaFlareMissile.mdl",u,"chest"))
            endif
        endif
    endloop
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A00D',false)
    call SetTextTagColor(HeroSkills_A08W_TextTag[id],75,75,$FF,$FF)
    call UnitAddAbilityBY((Je[(id)]),'A08W')
    call UnitAddAbilityBY((Je[(id)]),'A08V')
    call HeroSkills_A08W_TextTagFollow(id)
endfunction

function HeroSkills_A00D_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00D',function HeroSkills_A00D_Actions)
    call RegisterSpellEffectEvent('A08W',function HeroSkills_A08W_Actions)
    call Luv('A00D')
endfunction

function HeroSkills_A00N_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))then
        set HeroSkills_A00N_Duration[id]=HeroSkills_A00N_Duration[id]-.5
        call UnitCureTaret((Je[(id)]),(Je[(id)]),HeroSkills_A00N_Damage[id]/ $A*.5)
    else
        set HeroSkills_A00N_Duration[id]=0
    endif
    if HeroSkills_A00N_Duration[id]<=0 then
        call SetUnitNocontrol(id,false)
        call SetUnitNotSeckill(id,false)
        call DeUnitAdef((id),HeroSkills_A00N_Adef[id])
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A009','Bcmg')
        call Unit_Cancel_Counter(373,(id))
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:320")
        set HeroSkills_A00N_Timer[id]=null
    endif
endfunction

function HeroSkills_A00N_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A00N')
    if HeroSkills_A00N_Timer[id]==null then
        set HeroSkills_A00N_Timer[id]=NewTimer(id)
        set HeroSkills_A00N_Adef[id]=ModifyUnitAdef((id),100)
        call SetUnitNocontrol(id,true)
        call SetUnitNotSeckill(id,true)
        call UnitAddAbilityBY((Je[(id)]),'A009')
        call Unit_App_Counter(374,(id))
    endif
    set HeroSkills_A00N_Duration[id]=$A
    set HeroSkills_A00N_Damage[id]=500*lv+1.5*lv*GetHeroState1((Je[(id)]),true)
    call Ltv(LAv("Abilities\\Spells\\NightElf\\BattleRoar\\RoarCaster.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1.5))
    call TimerStart(HeroSkills_A00N_Timer[id],.5,true,function HeroSkills_A00N_Start)
endfunction

function HeroSkills_A00N_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00N',function HeroSkills_A00N_Actions)
    call Luv('A00N')
endfunction

function HeroSkills_A00S_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:321")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0F1','BNbr')
    call DeUnitAdef((id),HeroSkills_A00S_Buff_Adef[id])
    call Unit_Cancel_Counter(375,(id))
    set HeroSkills_A00S_Buff_Timer[id]=null
endfunction

function HeroSkills_A00S_BuffApp takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A00S_Buff_Timer[id]==null then
        set HeroSkills_A00S_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A00S_Buff_Adef[id]=ModifyUnitAdef((id),100)
        call UnitAddAbilityBY(u,'A0F1')
        call Unit_App_Counter(376,(id))
    endif
    call DestroyEffect(AddSpecialEffectTarget("ZLightArrowImpact.mdl",u,"chest"))
    call TimerStart(HeroSkills_A00S_Buff_Timer[id],4,false,function HeroSkills_A00S_BuffExpired)
endfunction

function HeroSkills_A00S_Outburst takes unit s,real x,real y,real a,real b,real c,real d,real e,boolean local_bool returns nothing
    local unit u
    local real vx=Cos(a)
    local real vy=Sin(a)
    local real sx=x+vx*b
    local real sy=y+vy*b
    local real tx
    local real ty
    local real l=d-b
    local real h=c-b
    local real slope=h/ SquareRoot(l*l-h*h)
    local real r=(c+d)*.5
    local real ang
    set x=x+vx*r
    set y=y+vy*r
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        set tx=GetUnitX(u)-sx
        set ty=GetUnitY(u)-sy
        set ang=RMinBJ(RMaxBJ(0,(tx*vx+ty*vy)+RAbsBJ(ty*vx-tx*vy)*slope),l)
        set tx=sx+vx*ang
        set ty=sy+vy*ang
        set ang=b+ang*slope
        if IsUnitInRangeXY(u,tx,ty,ang)then
            if IsUnitAliveAndEnemyNotAvul(u,s)then
                call UnitDamageTargetBY(((s)),((u)),((((e)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FFFF80")))
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"origin"))
                if local_bool then
                    call Gjv(u,50,a,.5,"KnockbackDust.mdx")
                    call m1v(u,5)
                else
                    call m1v(u,.5)
                endif
            elseif nC[(GetUnitUserData((u)))]and IsUnitAliveAndAlly(u,s)then
                call HeroSkills_A00S_BuffApp(u)
            endif
        endif
    endloop
endfunction

function HeroSkills_A00S_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer cFv
    local unit u
    local integer i
    local real x
    local real y
    local real z
    local real an
    set HeroSkills_A00S_Buff_Number[id]=HeroSkills_A00S_Buff_Number[id]-1
    if HeroSkills_A00S_Buff_Number[id]>=24 then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        if HeroSkills_A00S_Buff_Number[id]>=48 then
            call Lqv(Lfv(LIv("Abilities\\Spells\\Human\\ReviveHuman\\ReviveHuman.mdl",x,y,50,.75,HeroSkills_A00S_Buff_Angle[id]+.5*Lx-Cos(96.-HeroSkills_A00S_Buff_Number[id])*Lx/ 4.,$A),0,0,0,$FF),2)
            if HeroSkills_A00S_Buff_Number[id]==48 then
                call SetUnitAnimation((Je[(id)]),"Spell Channel one")
            endif
        elseif HeroSkills_A00S_Buff_Number[id]==40 then
            call SetUnitAnimation((Je[(id)]),"Spell Channel Two")
        elseif HeroSkills_A00S_Buff_Number[id]==24 then
            set z=GetPointZ(x,y)+50
            set x=x+HeroSkills_A00S_Buff_VectorX[id]
            set y=y+HeroSkills_A00S_Buff_VectorY[id]
            set HeroSkills_A00S_Buff_Effect[id]=Lnv(x,y,HeroSkills_A00S_Buff_Angle[id])
            call LHv(HeroSkills_A00S_Buff_Effect[id],0)
            call LMv(HeroSkills_A00S_Buff_Effect[id],"Abilities\\Spells\\Human\\ReviveHuman\\ReviveHuman.mdl")
            call SetUnitScale(II[(HeroSkills_A00S_Buff_Effect[id])],((5)*1.),0,0)
            call SetUnitFlyHeight(II[(HeroSkills_A00S_Buff_Effect[id])],((z-GetPointZ(x,y))*1.),0)
            call zhv(Kc[id],30,.3)
        endif
    elseif HeroSkills_A00S_Buff_Number[id]>0 then
        set x=(GetUnitX(II[(HeroSkills_A00S_Buff_Effect[id])]))
        set y=(GetUnitY(II[(HeroSkills_A00S_Buff_Effect[id])]))
        if HeroSkills_A00S_Buff_Number[id]>=8 then
            if HeroSkills_A00S_Buff_Number[id]>=16 and ModuloInteger(HeroSkills_A00S_Buff_Number[id],2)==0 then
                call LFv(HeroSkills_A00S_Buff_Effect[id],"Abilities\\Spells\\Human\\ReviveHuman\\ReviveHuman.mdl")
                if HeroSkills_A00S_Buff_Number[id]==16 then
                    call Ltv(LVv('e03T',x-HeroSkills_A00S_Buff_VectorX[id],y-HeroSkills_A00S_Buff_VectorY[id],HeroSkills_A00S_Buff_Angle[id]))
                endif
            endif
            if HeroSkills_A00S_Buff_Number[id]==8 then
                call QueueUnitAnimation((Je[(id)]),"stand")
                call PauseUnit((Je[(id)]),false)
                call SetUnitInvulnerable((Je[(id)]),false)
                call zhv(Kc[id],50,1)
            endif
        endif
        call GroupEnumUnitsInRange(G,x,y,500+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,500)then
                if UnitAlive(u)then
                    if not IsUnitInGroup(u,HeroSkills_A00S_Buff_Group[id])and nC[(GetUnitUserData((u)))]and IsUnitAliveAndAlly(u,(Je[(id)]))then
                        call GroupAddUnit(HeroSkills_A00S_Buff_Group[id],u)
                        call HeroSkills_A00S_BuffApp(u)
                    endif
                endif
            endif
        endloop
        if HeroSkills_A00S_Buff_Number[id]<=$A then
            set x=x-HeroSkills_A00S_Buff_VectorX[id]
            set y=y-HeroSkills_A00S_Buff_VectorY[id]
            call HeroSkills_A00S_Outburst((Je[(id)]),x,y,HeroSkills_A00S_Buff_Angle[id],350,$C8,512*4,HeroSkills_A00S_Buff_Damage[id]/ $A,false)
        endif
    else
        if HeroSkills_A00S_Buff_Number[id]<=$A then
            set x=(GetUnitX(II[(HeroSkills_A00S_Buff_Effect[id])]))-HeroSkills_A00S_Buff_VectorX[id]
            set y=(GetUnitY(II[(HeroSkills_A00S_Buff_Effect[id])]))-HeroSkills_A00S_Buff_VectorY[id]
            call HeroSkills_A00S_Outburst((Je[(id)]),x,y,HeroSkills_A00S_Buff_Angle[id],520,300,512*4,HeroSkills_A00S_Buff_Damage[id],true)
        endif
        call Unit_Cancel_Counter(377,(id))
        call Ltv(HeroSkills_A00S_Buff_Effect[id])
        call RecycleGroup(HeroSkills_A00S_Buff_Group[id])
        call ReleaseTimer(HeroSkills_A00S_Timer[id],"[TimerUtils]Error:322")
        set HeroSkills_A00S_Timer[id]=null
        set HeroSkills_A00S_Buff_Group[id]=null
    endif
endfunction

function HeroSkills_A00S_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A00S_Timer[id]=NewTimer(id)
    set HeroSkills_A00S_Buff_Group[id]=NewGroup()
    set HeroSkills_A00S_Buff_Number[id]=80
    set HeroSkills_A00S_Buff_Angle[id]=Atan2(GetSpellTargetY()-GetUnitY((Je[(id)])),GetSpellTargetX()-GetUnitX((Je[(id)])))
    set HeroSkills_A00S_Buff_VectorX[id]=$80*Cos(HeroSkills_A00S_Buff_Angle[id])
    set HeroSkills_A00S_Buff_VectorY[id]=$80*Sin(HeroSkills_A00S_Buff_Angle[id])
    set HeroSkills_A00S_Buff_Damage[id]=450*GetHeroState1((Je[(id)]),true)
    call PauseUnit((Je[(id)]),true)
    call SetUnitInvulnerable((Je[(id)]),true)
    call SetUnitAnimation((Je[(id)]),"Spell Channel")
    call Unit_App_Counter(378,(id))
    call TimerStart(HeroSkills_A00S_Timer[id],.03125,true,function HeroSkills_A00S_Start)
endfunction

function HeroSkills_A00S_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00S',function HeroSkills_A00S_Actions)
    call Luv('A00S')
endfunction

function Hero_H000_Init takes nothing returns nothing
    local integer i=0
    call HeroSkills_A08U_Init()
    call HeroSkills_A01O_Init()
    call HeroSkills_A00B_Init()
    call HeroSkills_A019_Init()
    call HeroSkills_A00D_Init()
    call HeroSkills_A00N_Init()
    call HeroSkills_A00S_Init()
endfunction

function Hero_Skills_QuickDraw_Stop takes integer id returns nothing
    set Hero_QuickDraw_Crit[id]=false
    if Hero_QuickDraw_On[id]then
        set Hero_QuickDraw_On[id]=false
        call UnitRemoveAbilityBY((Je[(id)]),'A001')
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0GR',false)
    endif
endfunction

function Hero_H001_onAttack_Actions takes nothing returns nothing
    local integer id=(pF_v)
    local boolean b=not Hero_QuickDraw_On[id]
    local integer lv=GetUnitAbilityLevel((mF),'A000')
    local real ratio=1.75+.075*lv
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    local real a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
    local real d=(1+Unit_MATK[(id)])
    local unit u=(MF)
    if b then
        set d=d*(ratio-1)*GetDamage()
        if Hero_QuickDraw_Crit[id]then
            call DamageAmplify(1.5*d)
            call Ltv(Lfv(LIv("basicstrike.mdl",x,y,25,1.4,a,90),$FF,105,105,$9B))
        else
            call DamageAmplify(d)
            call Ltv(Lfv(LIv("basicstrike.mdl",x,y,25,1.1,a,90),$FF,$9B,$9B,$9B))
        endif
        call DestroyEffect(AddSpecialEffectTarget("blood damage impact.mdl",(MF),"chest"))
    else
        set d=d*((3*ratio-1)*GetDamage()+(1.5+.15*lv)*GetHeroState2((mF),true))
        if Hero_QuickDraw_Crit[id]then
            call DamageAmplifyDis(1.5*d,20,"|c00ff8080")
            call Ltv(Lfv(LIv("basicstrike.mdl",x,y,30,2.125,a,90),$FF,25,25,$CD))
            call Ltv(Lfv(LIv("basicstrike.mdl",x,y,30,2.375,a,90),25,25,$FF,$CD))
        else
            call DamageAmplifyDis(d,$F,"|c00ff8080")
            call Ltv(Lfv(LIv("basicstrike.mdl",x,y,30,1.75,a,90),$FF,25,25,$CD))
        endif
        call DestroyEffect(AddSpecialEffectTarget("blood.mdl",(MF),"chest"))
        call zhv((Kc[((id))]),25,.175)
        call Hero_Skills_QuickDraw_Stop(id)
    endif
    set x=x-64*Cos(a)
    set y=y-64*Sin(a)
    set d=.6*ratio*(DAK_AMOUNT[HF])
    call GroupEnumUnitsInRange(G,x,y,256+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,256)then
            if IsUnitAliveAndEnemyNotAvul(u,(mF))and(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((a)*1.))>=Cos(((1.7)*1.)))then
                call UnitDamageTargetBY(((mF)),(u),((d)*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
                if b then
                    call DestroyEffect(AddSpecialEffectTarget("blood damage impact.mdl",u,"chest"))
                else
                    call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"chest"))
                endif
            endif
        endif
    endloop
endfunction

function Hero_H001_Crit_Actions takes nothing returns nothing
    local integer id=(pF_v)
    set Hero_QuickDraw_Crit[id]=true
endfunction

function Hero_H001_onSpell_Actions takes nothing returns nothing
    local integer id=s__Trig_P
    if not Hero_QuickDraw_On[id]then
        set Hero_QuickDraw_On[id]=true
        call UnitAddAbilityBY((Je[(id)]),'A001')
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0GR',true)
    endif
endfunction

function Hero_H001_Death_Actions takes nothing returns nothing
    call Hero_Skills_QuickDraw_Stop(s__Trig_P)
endfunction

function Hero_H001_onRemoved_Actions takes nothing returns nothing
    local integer id=le
    set Hero_QuickDraw_Crit[id]=false
    set Hero_QuickDraw_On[id]=false
endfunction

function Hero_EnterWorld_H001 takes nothing returns nothing
    local integer id=le
    local unit u=(Je[(id)])
    call UnitAddAbilityBY(u,'A0AD')
    call UnitAddPAttackTrig(id,function Hero_H001_onAttack_Actions)
    call HeroAddCritTrig(id,function Hero_H001_Crit_Actions)
    call HeroAddSpellEffectTrig(id,function Hero_H001_onSpell_Actions)
    call AddUnitDeathTrig(id,function Hero_H001_Death_Actions)
    call UnitAddBeRemoveTrig(id,Condition(function Hero_H001_onRemoved_Actions))
    call SetPlayerAbilityAvailable(GetOwningPlayer(u),'A0AD',false)
    call SetPlayerAbilityAvailable(GetOwningPlayer(u),'A0GR',false)
    set u=null
endfunction

function Hero_H001_SkillsDefault takes integer id returns nothing
    if Hero_H001_SkillsSet_Timer[id]!=null then
        if Hero_H001_SkillsSet_Type[id]==1 then
            call UnitRemoveAbilityBY((Je[(id)]),'A005')
            call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0BM',true)
        elseif Hero_H001_SkillsSet_Type[id]==2 then
            call UnitRemoveAbilityBY((Je[(id)]),'A021')
            call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0BL',true)
        elseif Hero_H001_SkillsSet_Type[id]==3 then
            call UnitRemoveAbilityBY((Je[(id)]),'A0BN')
            call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A003',true)
        endif
        call ReleaseTimer(Hero_H001_SkillsSet_Timer[id],"[TimerUtils]Error:323")
        set Hero_H001_SkillsSet_Timer[id]=null
    endif
endfunction

function Hero_H001_SkillsSet_End takes nothing returns nothing
    call Hero_H001_SkillsDefault(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function Hero_H001_SkillsSet takes integer id,integer tp returns nothing
    call Hero_H001_SkillsDefault(id)
    set Hero_H001_SkillsSet_Timer[id]=NewTimer(id)
    set Hero_H001_SkillsSet_Type[id]=tp
    if tp==1 then
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0BM',false)
        call UnitAddAbilityLevelBY((Je[(id)]),'A005',GetUnitAbilityLevel((Je[(id)]),'A003'))
        call TimerStart(Hero_H001_SkillsSet_Timer[id],2.5,false,function Hero_H001_SkillsSet_End)
    elseif tp==2 then
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0BL',false)
        call UnitAddAbilityLevelBY((Je[(id)]),'A021',GetUnitAbilityLevel((Je[(id)]),'A0BM'))
        call TimerStart(Hero_H001_SkillsSet_Timer[id],2.5,false,function Hero_H001_SkillsSet_End)
    elseif tp==3 then
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A003',false)
        call UnitAddAbilityLevelBY((Je[(id)]),'A0BN',GetUnitAbilityLevel((Je[(id)]),'A0BL'))
        call TimerStart(Hero_H001_SkillsSet_Timer[id],3.5,false,function Hero_H001_SkillsSet_End)
    endif
endfunction

function HeroSkills_A003_Stop takes integer data returns nothing
    local integer id=Boss_Spell_data1[data]
    call SetUnitTimeScale((Je[(id)]),1)
    call PauseUnit((Je[(id)]),false)
    call Hero_H001_SkillsSet((id),1)
    call DestroyEffectBY(Boss_Spell_data3[data])
    call Unit_Cancel_Counter(379,(id))
    call Unit_Cancel_Counter(380,Boss_Spell_data2[data])
    call Boss_Spell_deallocate(data)
endfunction

function HeroSkills_A003_End takes nothing returns nothing
    call HeroSkills_A003_Stop((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:324")))
endfunction

function HeroSkills_A003_Start takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer data=(alloc__hpv(GetHandleId((t))))
    local integer id=Boss_Spell_data1[data]
    local unit u
    local integer lv
    local real d
    if UnitAlive((Je[(id)]))then
        set lv=GetUnitAbilityLevel((Je[(id)]),'A003')
        set d=Unit_Fire_Damage[(id)]*(100*lv+(5+.5*lv)*GetHeroState2((Je[(id)]),true))
        set u=(Je[(Boss_Spell_data2[data])])
        call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],300+75,null)
        call GroupRemoveUnit(G,u)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],300)then
                if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))and(Cos(((Atan2(GetUnitY(u)-Boss_Spell_Y[data],GetUnitX(u)-Boss_Spell_X[data]))*1.)-((Boss_Spell_Z[data])*1.))>=Cos(((1.8)*1.)))then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIfb\\AIfbSpecialArt.mdl",u,"chest"))
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((.75*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,.45)
                endif
            endif
        endloop
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIfb\\AIfbSpecialArt.mdl",(Je[(Boss_Spell_data2[data])]),"chest"))
        call Ltv(LIv("Flame Cyclone.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],0,1.25,Boss_Spell_Z[data],120))
        call Ltv(LAv("s_LavaBomb.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],3))
        call UnitDamageTargetBY((((Je[(id)]))),(((Je[(Boss_Spell_data2[data])]))),((((d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call m1v((Je[(Boss_Spell_data2[data])]),.6)
        call zhv((Kc[(id)]),25,.4)
        call QueueUnitAnimation((Je[(id)]),"Stand")
        call TimerStart(t,.25,false,function HeroSkills_A003_End)
    else
        call ReleaseTimer(t,"[TimerUtils]Error:325")
        call HeroSkills_A003_Stop(id)
    endif
    set t=null
endfunction

function HeroSkills_A003_Prepare takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer data=(alloc__hpv(GetHandleId((t))))
    local integer id=Boss_Spell_data1[data]
    call Lqv(LAv("KnockbackDust.mdl",Boss_Spell_X[data]-50*Cos(Boss_Spell_Z[data]),Boss_Spell_Y[data]-50*Sin(Boss_Spell_Z[data]),.75),.5)
    call PlaySoundOnUnit_BJ((nn),((75)*1.),((Je[(id)])))
    call PauseUnit((Je[(id)]),true)
    call SetUnitAnimation((Je[(id)]),"Spell Five")
    call TimerStart(t,.3,false,function HeroSkills_A003_Start)
    set t=null
endfunction

function HeroSkills_A003_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=(GetUnitUserData((GetSpellTargetUnit())))
    set Boss_Spell_data3[data]=CreateEffectFor()
    set Boss_Spell_X[data]=GetUnitX((Je[(Boss_Spell_data2[data])]))
    set Boss_Spell_Y[data]=GetUnitY((Je[(Boss_Spell_data2[data])]))
    set Boss_Spell_Z[data]=Atan2(Boss_Spell_Y[data]-GetUnitY((Je[(id)])),Boss_Spell_X[data]-GetUnitX((Je[(id)])))
    call s__Effect_connect((Boss_Spell_data3[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile_mini.mdl")),(((Je[(id)]))),(("hand right"))))))
    call s__Effect_connect((Boss_Spell_data3[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")),(((Je[(id)]))),(("hand right"))))))
    call SetUnitTimeScale((Je[(id)]),1.5)
    call TimerStart(NewTimer(data),0,false,function HeroSkills_A003_Prepare)
    call Unit_App_Counter(381,(id))
    call Unit_App_Counter(382,Boss_Spell_data2[data])
endfunction

function HeroSkills_A003_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A003',function HeroSkills_A003_Actions)
    call Luv('A003')
endfunction

function HeroSkills_A005_Stop takes integer id returns nothing
    call SetUnitTimeScale((Je[(id)]),1)
    call PauseUnit((Je[(id)]),false)
    call Unit_Cancel_Counter(383,(id))
endfunction

function HeroSkills_A005_End takes nothing returns nothing
    call HeroSkills_A005_Stop((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:326")))
endfunction

function HeroSkills_A005_Start takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    local group g
    local unit u
    local integer lv
    local integer i
    local real cX
    local real cY
    local real a
    local real d
    if UnitAlive((Je[(id)]))then
        set g=NewGroup()
        set lv=GetUnitAbilityLevel((Je[(id)]),'A005')
        set i=6
        set d=$C8*lv+(8+.5*lv)*GetHeroState2((Je[(id)]),true)
        set cX=GetUnitX((Je[(id)]))
        set cY=GetUnitY((Je[(id)]))
        set a=Atan2(HeroSkills_A005_TargetY[id]-cY,HeroSkills_A005_TargetX[id]-cX)
        loop
            set i=i-1
            set cX=cX+75*Cos(a)
            set cY=cY+75*Sin(a)
            if not IsTerrainWalkable(cX,cY)then
                set cX=IsTerrainWalkable_X
                set cY=IsTerrainWalkable_Y
                set i=0
            endif
            call GroupEnumUnitsInRange(G,cX,cY,$80+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,cX,cY,$80)then
                    if not IsUnitInGroup(u,g)and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                        call GroupAddUnit(g,u)
                        call DestroyEffect(AddSpecialEffectTarget("Blood.mdl",u,"chest"))
                        call m1v(u,2.5)
                        if GetUnitAbilityLevel(u,'Bcor')>0 then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
                            call DestroyEffect(AddSpecialEffectTarget("LightningSphere_FX.mdl",u,"chest"))
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((1.75*d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),((((12.5)*1.))*1.),(("|c00a6cdf9")))
                        else
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endif
            endloop
            call Ltv(LAv("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",cX,cY,1.5))
            exitwhen i==0
        endloop
        call Hero_H001_SkillsDefault((id))
        call sc__PhantomSword_AddNumber((id),1)
        call SetUnitX((Je[(id)]),cX)
        call SetUnitY((Je[(id)]),cY)
        call zhv((GetPlayerId((GetOwningPlayer((Je[(id)]))))),35,.4)
        call QueueUnitAnimation((Je[(id)]),"Stand")
        call TimerStart(t,.25,false,function HeroSkills_A005_End)
        call RecycleGroup(g)
        set g=null
    else
        call ReleaseTimer(t,"[TimerUtils]Error:327")
        call HeroSkills_A005_Stop(id)
    endif
    set t=null
endfunction

function HeroSkills_A005_Prepare takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    call Ltv(Lfv(LAv("Abilities\\Spells\\NightElf\\Blink\\BlinkTarget.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1.25),$9B,$9B,$9B,$FF))
    call IssueImmediateOrderById((Je[(id)]),$D0004)
    call PauseUnit((Je[(id)]),true)
    call SetUnitAnimation((Je[(id)]),"Spell Three")
    call TimerStart(t,.3,false,function HeroSkills_A005_Start)
endfunction

function HeroSkills_A005_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A005_TargetX[id]=GetSpellTargetX()
    set HeroSkills_A005_TargetY[id]=GetSpellTargetY()
    call SetUnitTimeScale((Je[(id)]),3)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Invisibility\\InvisibilityTarget.mdl",(Je[(id)]),"hand right"))
    call TimerStart(NewTimer(id),0,false,function HeroSkills_A005_Prepare)
    call Unit_App_Counter(384,(id))
endfunction

function HeroSkills_A005_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A005',function HeroSkills_A005_Actions)
    call SaveBoolean(BYHT,HeroOnSpellEffect_t,('A005'),true)
    call Luv('A005')
endfunction

function HeroSkills_A0BM_BuffRemove takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:328")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0BY','Bcor')
    call ModifyUnitArmor((id),HeroSkills_A0BM_Buff_Armor[id])
    call Unit_Cancel_Counter(385,(id))
    set HeroSkills_A0BM_Buff_Timer[id]=null
endfunction

function HeroSkills_A0BM_Buffadd takes unit u,integer lv returns nothing
    local integer id
    local integer value
    if UnitAlive(u)then
        set id=(GetUnitUserData((u)))
        set value=R2I(.12*GetUnitDefaultArmor(id))+5*lv
        if HeroSkills_A0BM_Buff_Timer[id]==null then
            set HeroSkills_A0BM_Buff_Timer[id]=NewTimer(id)
            set HeroSkills_A0BM_Buff_Armor[id]=0
            call UnitAddAbilityBY(u,'A0BY')
            call Unit_App_Counter(386,id)
        endif
        call ModifyUnitArmor(id,HeroSkills_A0BM_Buff_Armor[id]-value)
        set HeroSkills_A0BM_Buff_Armor[id]=value
        call TimerStart(HeroSkills_A0BM_Buff_Timer[id],6,false,function HeroSkills_A0BM_BuffRemove)
    endif
endfunction

function HeroSkills_A0BM_Stop takes integer t returns nothing
    local integer data=Timer_List[t]
    local integer id=GetHandleId(Boss_Spell_unit2[data])
    if UnitAlive(Boss_Spell_unit1[data])then
        call QueueUnitAnimation(Boss_Spell_unit1[data],"Stand")
        call Hero_H001_SkillsSet(id,2)
    endif
    call DeUnitDodge(id,Boss_Spell_data1[data])
    call SetUnitTimeScale(Boss_Spell_unit1[data],1)
    call PauseUnit(Boss_Spell_unit1[data],false)
    call SetUnitPathing(Boss_Spell_unit1[data],true)
    call SetUnitVertexColor(Boss_Spell_unit1[data],$FF,$FF,$FF,$FF)
    call Unit_Cancel_Counter(387,id)
    call Boss_Spell_deallocate(data)
    set Boss_Spell_unit1[data]=null
    set Boss_Spell_unit2[data]=null
    call fvv(t)
endfunction

function HeroSkills_A0BM_Alloc takes nothing returns integer
    return D9v(HeroSkills_A0BM_Func)
endfunction

function HeroSkills_A0BM_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A0BM_Func]
    local integer data=Timer_List[t]
    local unit u
    local integer lv
    local integer i
    local real x
    local real y
    local real tx
    local real ty
    local real ang
    local real d
    loop
        exitwhen 0==t
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        if UnitAlive(Boss_Spell_unit1[data])and Boss_Spell_data2[data]>0 then
            set Boss_x[0]=Cos(Boss_Spell_Z[data])
            set Boss_y[0]=Sin(Boss_Spell_Z[data])
            if Boss_Spell_data2[data]>$D then
                set i=Boss_Spell_data2[data]-$E
                set d=$F+2.5*i
                call SetUnitX(Boss_Spell_unit1[data],GetUnitX(Boss_Spell_unit1[data])-d*Boss_x[0])
                call SetUnitY(Boss_Spell_unit1[data],GetUnitY(Boss_Spell_unit1[data])-d*Boss_y[0])
                call SetUnitVertexColor(Boss_Spell_unit1[data],$FF,$FF,$FF,R2I(255./ 8.*i))
                if Boss_Spell_data2[data]==$E then
                    set x=GetUnitX(Boss_Spell_unit1[data])
                    set y=GetUnitY(Boss_Spell_unit1[data])
                    loop
                        exitwhen Boss_Spell_data3[data]<=0
                        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
                        set x=x+64*Boss_x[0]
                        set y=y+64*Boss_y[0]
                        set ang=Boss_Spell_Z[data]+GetRandomReal(-bj_PI/ 1.5,bj_PI/ 1.5)
                        call Ltv(Lfv(LIv("BlackBlink.mdl",x+64*Cos(ang),y+64*Sin(ang),0,.9,Boss_Spell_Z[data]-ang,90),$9B,$9B,$9B,$9B))
                    endloop
                endif
            elseif Boss_Spell_data2[data]<$C and Boss_Spell_data2[data]>7 then
                set i=Boss_Spell_data2[data]-8
                set d=5*i*i+7.5*i
                call SetUnitX(Boss_Spell_unit1[data],Boss_Spell_X[data]-d*Boss_x[0])
                call SetUnitY(Boss_Spell_unit1[data],Boss_Spell_Y[data]-d*Boss_y[0])
                call SetUnitVertexColor(Boss_Spell_unit1[data],$FF,$FF,$FF,R2I($FF-255./ 4.*i))
            elseif Boss_Spell_data2[data]==6 then
                set i=3
                set x=GetUnitX(Boss_Spell_unit1[data])
                set y=GetUnitY(Boss_Spell_unit1[data])
                loop
                    set i=i-1
                    set ang=Boss_Spell_Z[data]+i*bj_PI/ 4
                    call Ltv(Lfv(LIv("moon strike.mdl",x-24*Cos(ang),y-24*Sin(ang),0,2.75,ang,90),125,125,125,$E1))
                    exitwhen i==0
                endloop
                set lv=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A0BJ')
                set x=x-64*Boss_x[0]
                set y=y-64*Boss_y[0]
                set d=300*lv+(7.5+lv)*GetHeroState2(Boss_Spell_unit1[data],true)
                set Boss_z[0]=Tan(1.9)
                call GroupEnumUnitsInRange(G,x,y,375+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,375)then
                        set Boss_x[1]=GetUnitX(u)-x
                        set Boss_y[1]=GetUnitY(u)-y
                        set tx=Boss_x[1]*Boss_x[0]+Boss_y[1]*Boss_y[0]
                        set ty=RAbsBJ(Boss_y[1]*Boss_x[0]-Boss_x[1]*Boss_y[0])
                        if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])and(tx>=0 or tx>=ty/ Boss_z[0])then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AbsorbMana\\AbsorbManaBirthMissile.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("BluefireBolt.mdl",u,"chest"))
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call HeroSkills_A0BM_Buffadd(u,lv)
                        endif
                    endif
                endloop
                call PlaySoundAtPoint_BJ((An),((125)*1.),((x)*1.),((y)*1.),0)
            endif
        else
            call HeroSkills_A0BM_Stop(t)
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A0BM_Prepare takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:329")
    call PauseUnit((Je[(id)]),true)
    call SetUnitPathing((Je[(id)]),false)
    call SetUnitTimeScale((Je[(id)]),3)
    call SetUnitAnimationByIndex((Je[(id)]),4)
endfunction

function HeroSkills_A0BM_Actions takes nothing returns nothing
    local integer t=(D9v(HeroSkills_A0BM_Func))
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=0
    local integer index
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real tx
    local real ty
    local real dX
    local real dY
    local real pwv
    set Timer_List[t]=data
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=ConvertVersion(id)
    set Boss_Spell_data1[data]=ModifyUnitDodge(id,90)
    set Boss_Spell_data2[data]=22
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set dX=GetSpellTargetX()-x
    set dY=GetSpellTargetY()-y
    set pwv=SquareRoot(dX*dX+dY*dY)/ 64.
    if pwv>0 then
        set Boss_Spell_Z[data]=Atan2(dY,dX)
        set tx=dX/ pwv
        set ty=dY/ pwv
    else
        set Boss_Spell_Z[data]=GetUnitFacing(GetTriggerUnit())*bj_DEGTORAD
        set tx=Cos(Boss_Spell_Z[data])*64
        set ty=Sin(Boss_Spell_Z[data])*64
    endif
    set index=R2I(pwv)
    call Lqv(Lfv(LIv("Abilities\\Spells\\NightElf\\Starfall\\StarfallCaster.mdl",x,y,50,1.75,Boss_Spell_Z[data],0),0,0,0,$FF),2)
    call Ltv(LIv("Enchantment.mdl",x,y,25,1.25,Boss_Spell_Z[data],0))
    call TimerStart(NewTimer(id),0,false,function HeroSkills_A0BM_Prepare)
    call Unit_App_Counter(388,id)
    loop
        if i==index then
            set x=x+(pwv-index)*tx
            set y=y+(pwv-index)*ty
        else
            set x=x+tx
            set y=y+ty
        endif
        exitwhen not IsTerrainWalkable(x,y)
        set Boss_Spell_X[data]=x
        set Boss_Spell_Y[data]=y
        exitwhen i==index
        set i=i+1
    endloop
    set Boss_Spell_data3[data]=i
endfunction

function HeroSkills_A0BM_Init takes nothing returns nothing
    set HeroSkills_A0BM_Func=fxv(function HeroSkills_A0BM_Start)
    call RegisterSpellEffectEvent('A0BM',function HeroSkills_A0BM_Actions)
    call Luv('A0BM')
endfunction

function HeroSkills_A021_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:330")
    call Hero_H001_SkillsDefault((id))
    call SetUnitAnimation((Je[(id)]),"Spell Five")
    call QueueUnitAnimation((Je[(id)]),"Stand")
endfunction

function HeroSkills_A021_Start takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer id=(GetUnitUserData((c)))
    local integer lv=GetUnitAbilityLevel(c,'A021')
    local integer i=6
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real d=Unit_Gas_Damage[(GetUnitUserData((c)))]*(450*lv+($F+lv)*GetHeroState2(c,true))
    local real a
    loop
        set i=i-1
        set a=i*Lx/ 6+GetRandomReal(-.15,.15)
        call Ltv(Lfv(LIv("moon strike.mdl",x-50*Cos(a),y-50*Sin(a),0,4,a,90),125,125,$FF,$CD))
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitAliveAndEnemyNotAvul(u,c)then
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'A026',$D006B)
                if not(IsUnitType((u),UNIT_TYPE_GIANT))then
                    call Gjv(u,40,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),.375,"KnockbackDust.mdl")
                endif
            endif
        endif
    endloop
    call sc__PhantomSword_AddNumber((id),1)
    call Ltv(Lfv(LAv("ManaWave.mdx",x,y,.75),$FF,$FF,$FF,105))
    call zhv((GetPlayerId((GetOwningPlayer(c)))),30,.3125)
    call TimerStart(NewTimer(id),0,false,function HeroSkills_A021_End)
    set c=null
endfunction

function HeroSkills_A021_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A021',function HeroSkills_A021_Start)
    call SaveBoolean(BYHT,HeroOnSpellEffect_t,('A021'),true)
    call Luv('A021')
endfunction

function HeroSkills_A0BL_Largen takes integer id returns nothing
    local integer i
    if HeroSkills_A0BL_Vessel[id]!=0 then
        set HeroSkills_A0BL_Count[id]=8
        set i=16
        loop
            set i=i-1
            call SetUnitScale(II[((LoadInteger(BYHT,HeroSkills_A0BL_Vessel[id],i)))],((2.25)*1.),0,0)
            exitwhen i==0
        endloop
    endif
endfunction

function HeroSkills_A0BL_Start takes nothing returns nothing
    local integer id=HeroSkills_A0BL_Next[(0)]
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen id==0
        if HeroSkills_A0BL_Count[id]>0 then
            set HeroSkills_A0BL_Count[id]=HeroSkills_A0BL_Count[id]-1
            if HeroSkills_A0BL_Count[id]==0 then
                set i=16
                loop
                    set i=i-1
                    call SetUnitScale(II[((LoadInteger(BYHT,HeroSkills_A0BL_Vessel[id],i)))],((1.5)*1.),0,0)
                    exitwhen i==0
                endloop
            endif
        endif
        set i=16
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        call LKv(HeroSkills_A0BL_Effect[id],x)
        call Llv(HeroSkills_A0BL_Effect[id],y)
        set HeroSkills_A0BL_Duration[id]=HeroSkills_A0BL_Duration[id]-1
        loop
            set i=i-1
            set fx=LoadInteger(BYHT,HeroSkills_A0BL_Vessel[id],3*i)
            set a=LoadReal(BYHT,(HeroSkills_A0BL_Vessel[id]),3*i+1)+.18
            set d=LoadReal(BYHT,(HeroSkills_A0BL_Vessel[id]),3*i+2)
            call LKv(fx,x+d*Cos(a))
            call Llv(fx,y+d*Sin(a))
            call SetUnitFacing(II[(fx)],((a+bj_PI/ 2)*1.)*bj_RADTODEG)
            call SaveReal(BYHT,(HeroSkills_A0BL_Vessel[id]),3*i+1,a)
            exitwhen i==0
        endloop
        if ModuloInteger(HeroSkills_A0BL_Duration[id],$C)==0 then
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"chest"))
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Unit_DOT[(id)]*HeroSkills_A0BL_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
        endif
        if HeroSkills_A0BL_Duration[id]==$94 and HeroSkills_A0BL_Mdef[id]!=0 then
            call DeUnitMdef((id),HeroSkills_A0BL_Mdef[id])
            set HeroSkills_A0BL_Mdef[id]=0
        endif
        if HeroSkills_A0BL_Duration[id]<=0 or not UnitAlive((Je[(id)]))then
            set HeroSkills_A0BL_Last[HeroSkills_A0BL_Next[id]]=HeroSkills_A0BL_Last[id]
            set HeroSkills_A0BL_Next[HeroSkills_A0BL_Last[id]]=HeroSkills_A0BL_Next[id]
            if HeroSkills_A0BL_Next[0]==0 then
                call frv(HeroSkills_A0BL_Func)
            endif
            set i=16
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,HeroSkills_A0BL_Vessel[id],3*i)))
                exitwhen i==0
            endloop
            if HeroSkills_A0BL_Mdef[id]!=0 then
                call DeUnitMdef((id),HeroSkills_A0BL_Mdef[id])
                set HeroSkills_A0BL_Mdef[id]=0
            endif
            call UnitRemoveAbilityBY((Je[(id)]),'A0C0')
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0BZ','Bvng')
            call SetUnitDecay(II[HeroSkills_A0BL_Effect[id]],$9B,$9B,$9B,105,.875)
            call Unit_Cancel_Counter(389,(id))
            call LQv(HeroSkills_A0BL_Effect[id],.875)
            call free(HeroSkills_A0BL_Vessel[id])
            set HeroSkills_A0BL_Vessel[id]=0
        endif
        set id=HeroSkills_A0BL_Next[id]
    endloop
endfunction

function HeroSkills_A0BL_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0BL')
    local integer i
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    local real d
    local integer fx
    if HeroSkills_A0BL_Vessel[id]==0 then
        if HeroSkills_A0BL_Next[0]==0 then
            call fov(HeroSkills_A0BL_Func)
        endif
        set HeroSkills_A0BL_Next[id]=HeroSkills_A0BL_Next[0]
        set HeroSkills_A0BL_Last[id]=0
        set HeroSkills_A0BL_Last[HeroSkills_A0BL_Next[0]]=id
        set HeroSkills_A0BL_Next[0]=id
        set HeroSkills_A0BL_Vessel[id]=malloc()
        set HeroSkills_A0BL_Effect[id]=LAv("ShadowTornado.mdl",x,y,.875)
        set i=16
        loop
            set i=i-1
            set a=i*Lx/ 16+GetRandomReal(-.1,.1)
            set d=GetRandomReal(64,256)
            set fx=Lnv(x+d*Cos(a),y+d*Sin(a),a+bj_PI/ 2)
            call LMv(fx,"Abilities\\Spells\\Other\\Tornado\\Tornado_Target.mdl")
            call SetUnitScale(II[(fx)],((1.5)*1.),0,0)
            call SetUnitFlyHeight(II[(fx)],((GetRandomReal(32,96))*1.),0)
            call SaveInteger(BYHT,HeroSkills_A0BL_Vessel[id],3*i,fx)
            call SaveReal(BYHT,(HeroSkills_A0BL_Vessel[id]),3*i+1,a)
            call SaveReal(BYHT,(HeroSkills_A0BL_Vessel[id]),3*i+2,d)
            exitwhen i==0
        endloop
        call Lfv(HeroSkills_A0BL_Effect[id],$9B,$9B,$9B,105)
        call UnitAddAbilityBY((Je[(id)]),'A0C0')
        call UnitAddAbilityBY((Je[(id)]),'A0BZ')
        call Unit_App_Counter(390,(id))
    endif
    if HeroSkills_A0BL_Mdef[id]==0 then
        set HeroSkills_A0BL_Mdef[id]=ModifyUnitMdef(id,70)
    endif
    set HeroSkills_A0BL_Duration[id]=$C0
    set HeroSkills_A0BL_Damage[id]=Unit_Gas_Damage[id]*(75*lv+(2+.15*lv)*GetHeroState2((Je[(id)]),true))
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,1.5),0,0,0,$CD))
    call Ltv(Lfv(LAv("Epicenter.mdl",x,y,1.25),0,55,$FF,$FF))
    call Hero_H001_SkillsSet((id),3)
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('penr')))then
        set HeroSkills_A0BN_Number[id]=4
    else
        set HeroSkills_A0BN_Number[id]=3
    endif
    set HeroSkills_A0BN_MaxNumber[id]=HeroSkills_A0BN_Number[id]
endfunction

function HeroSkills_A0BL_Init takes nothing returns nothing
    set HeroSkills_A0BL_Func=fxv(function HeroSkills_A0BL_Start)
    call RegisterSpellEffectEvent('A0BL',function HeroSkills_A0BL_Actions)
    call Luv('A0BL')
endfunction

function HeroSkills_A0BN_Func01 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:331")
    call SetUnitAnimation((Je[(id)]),"Spell Two")
    call QueueUnitAnimation((Je[(id)]),"Stand")
endfunction

function HeroSkills_A0BN_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit t=GetSpellTargetUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real dX=GetUnitX(t)-x
    local real dY=GetUnitY(t)-y
    local real a=Atan2(dY,dX)
    local real vector_x=96*Cos(a)
    local real vector_y=96*Sin(a)
    local real pwv=SquareRoot(dX*dX+dY*dY)
    local integer i=R2I(pwv/ 96.)
    local integer lv=GetUnitAbilityLevel(c,'A0BN')
    local integer id=(GetUnitUserData((c)))
    local real r=1.+pwv/ 1500.
    local real d=Unit_Gas_Damage[(GetUnitUserData((c)))]*r*($A+lv)*GetHeroState2(c,true)
    local real ang
    local group g
    if not IsTerrainWalkable(dX+x,dY+y)then
        call IssueUnitStop_DisplayText(c,"The target area can not be transmitted")
    else
        if HeroSkills_A0BN_Number[id]>0 then
            set HeroSkills_A0BN_Number[id]=HeroSkills_A0BN_Number[id]-1
            set g=NewGroup()
            call Ltv(LIv("Enchantment.mdl",x,y,25,1,a,0))
            call Ltv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,.75))
            loop
                exitwhen i<1
                set i=i-1
                set x=x+vector_x
                set y=y+vector_y
                set ang=a+GetRandomReal(-bj_PI/ 1.5,bj_PI/ 1.5)
                call Lsv(Lfv(LAv("ShadowTornado.mdl",x,y,.875),125,125,125,55),.5)
                call Ltv(Lfv(LIv("BlackBlink.mdl",x+64*Cos(ang),y+64*Sin(ang),0,1,a-ang,90),$9B,$9B,$9B,$9B))
                call DestroyEffect(AddSpecialEffect("FeatherCrow.mdl",x+GetRandomReal(-$C8,$C8),y+GetRandomReal(-$C8,$C8)))
                call GroupEnumUnitsInRange(G,x,y,325+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,325)then
                        if not IsUnitInGroup(u,g)and IsUnitAliveAndEnemy(u,c)then
                            call GroupAddUnit(g,u)
                            call DestroyEffect(AddSpecialEffectTarget("BluefireBolt.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"chest"))
                            call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,1)
                        endif
                    endif
                endloop
            endloop
            call NewTextTagInTarget_B(c,"|c000080ff"+I2S(HeroSkills_A0BN_MaxNumber[id]-HeroSkills_A0BN_Number[id])+" COMBO!",$A,$FF,$FF,$FF)
            call Ltv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",GetUnitX(c),GetUnitY(c),.75))
            call UnitDamageTargetBY(((c)),((t)),((((r*750*lv+d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call m1v(t,1)
            call SetUnitX(c,GetUnitX(t)+80*Cos(a))
            call SetUnitY(c,GetUnitY(t)+80*Sin(a))
            call SetUnitFacing(c,bj_RADTODEG*a+$B4)
            call TimerStart(NewTimer(id),0,false,function HeroSkills_A0BN_Func01)
            call sc__PhantomSword_AddNumber((id),1)
            call HeroSkills_A0BL_Largen(id)
            call RecycleGroup(g)
            if HeroSkills_A0BN_Number[id]>0 then
                call Hero_H001_SkillsSet((id),3)
            else
                call Hero_H001_SkillsDefault((id))
            endif
            set g=null
        else
            call Hero_H001_SkillsDefault((id))
        endif
    endif
    set c=null
    set t=null
endfunction

function HeroSkills_A0BN_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0BN',function HeroSkills_A0BN_Actions)
    call SaveBoolean(BYHT,HeroOnSpellEffect_t,('A0BN'),true)
    call Luv('A0BN')
endfunction

function s__PhantomSword_loop_c takes nothing returns nothing
    local integer this=s__PhantomSword_next[(0)]
    local integer fx
    local integer i
    local integer alpha
    local real x
    local real y
    local real a
    loop
        exitwhen 0==this
        set i=s__PhantomSword_count[this]
        if GetUnitTypeId((Je[(this)]))==0 then
            set s__PhantomSword_next[s__PhantomSword_last[this]]=s__PhantomSword_next[this]
            set s__PhantomSword_last[s__PhantomSword_next[this]]=s__PhantomSword_last[this]
            if s__PhantomSword_next[(0)]==(0)then
                call frv(s__PhantomSword_func)
            endif
            loop
                exitwhen i<=0
                set i=i-1
                call DestroyEffectBY((LoadInteger(BYHT,s__PhantomSword_vessel[this],2*i+1)))
                call Ltv((LoadInteger(BYHT,s__PhantomSword_vessel[this],2*i)))
            endloop
            call Unit_Cancel_Counter(391,(this))
            call free(s__PhantomSword_vessel[this])
            set s__PhantomSword_count[this]=0
            set s__PhantomSword_cycle[this]=0
            set s__PhantomSword_time[this]=0
            set s__PhantomSword_vessel[this]=0
        else
            if UnitAlive((Je[(this)]))then
                if s__PhantomSword_time[this]<32 then
                    set s__PhantomSword_time[this]=s__PhantomSword_time[this]+1
                endif
            else
                if s__PhantomSword_time[this]>=0 then
                    set s__PhantomSword_time[this]=s__PhantomSword_time[this]-1
                endif
            endif
            if s__PhantomSword_time[this]>=0 then
                set s__PhantomSword_cycle[this]=s__PhantomSword_cycle[this]+1
                set x=GetUnitX((Je[(this)]))
                set y=GetUnitY((Je[(this)]))
                set alpha=R2I((125+30.*(s__PhantomSword_cycle[this])/(64.))*s__PhantomSword_time[this]/ 32.)
                if s__PhantomSword_cycle[this]==64 then
                    set s__PhantomSword_cycle[this]=0
                endif
                loop
                    exitwhen i<=0
                    set i=i-1
                    set fx=LoadInteger(BYHT,s__PhantomSword_vessel[this],2*i)
                    set a=Lx*(i/ I2R(s__PhantomSword_count[this])+s__PhantomSword_cycle[this]/ 64.)
                    call LKv(fx,x+$96*Cos(a))
                    call Llv(fx,y+$96*Sin(a))
                    call SetUnitFacing(II[(fx)],(((GetUnitFacing(II[(fx)]))+Lx/ 64)*1.)*bj_RADTODEG)
                    call Lfv(fx,45,45,45,alpha)
                endloop
            endif
        endif
        set this=s__PhantomSword_next[this]
    endloop
endfunction

function s__PhantomSword_AddNumber takes integer this,integer i returns nothing
    local integer fx
    local integer maxcount
    local integer value
    local real a
    if s__PhantomSword_vessel[this]==0 then
        if GetUnitAbilityLevel((Je[(this)]),'A0C1')>0 then
            if s__PhantomSword_next[(0)]==(0)then
                call fov(s__PhantomSword_func)
            endif
            set s__PhantomSword_next[this]=s__PhantomSword_next[(0)]
            set s__PhantomSword_last[s__PhantomSword_next[this]]=this
            set s__PhantomSword_next[(0)]=this
            set s__PhantomSword_last[this]=0
            set s__PhantomSword_vessel[this]=malloc()
            call Unit_App_Counter(392,(this))
        endif
    endif
    if s__PhantomSword_vessel[this]!=0 then
        set maxcount=5+(GetUnitAbilityLevel((Je[(this)]),'A0C1')+1)/ 3
        if GetHeroEquipSlot(this,1)=='I0FX' then
            set maxcount=maxcount+5
        endif
        if s__PhantomSword_count[this]+i>maxcount then
            set i=maxcount-s__PhantomSword_count[this]
        endif
        call ModifyHeroAgiPercent(this,.015*i)
        loop
            exitwhen i<=0
            set i=i-1
            set a=Lx*s__PhantomSword_cycle[this]/ 55
            set fx=Lnv(GetUnitX((Je[(this)]))+$96*Cos(a),GetUnitY((Je[(this)]))+$96*Sin(a),a)
            call LMv(fx,"Frostmourne.mdl")
            call SetUnitFlyHeight(II[(fx)],((212.5)*1.),0)
            call SetUnitScale(II[(fx)],((1.25)*1.),0,0)
            call LHv(fx,0)
            call SaveInteger(BYHT,s__PhantomSword_vessel[this],2*s__PhantomSword_count[this],fx)
            call SaveInteger(BYHT,s__PhantomSword_vessel[this],2*s__PhantomSword_count[this]+1,(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl"),(II[fx]),("origin")))))
            set s__PhantomSword_count[this]=s__PhantomSword_count[this]+1
            call Lfv(fx,45,45,45,$9B)
        endloop
    endif
endfunction

function HeroSkills_A0C1_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:332")
    set HeroSkills_A0C1_BuffTimer[id]=null
    set HeroSkills_A0C1_BuffLv[id]=0
endfunction

function HeroSkills_A0C1_Stop takes integer data returns nothing
    local unit u
    local integer cS
    local integer lv
    local real x
    local real y
    local real d
    if UnitAlive((Je[(HeroSkills_A0C1_Target[data])]))then
        set u=(Je[(HeroSkills_A0C1_Target[data])])
        set cS=HeroSkills_A0C1_BuffLv[HeroSkills_A0C1_Target[data]]
        set lv=GetUnitAbilityLevel((Je[(HeroSkills_A0C1_AtkUnit[data])]),'A0C1')
        set x=GetUnitX((Je[(HeroSkills_A0C1_Target[data])]))
        set y=GetUnitY((Je[(HeroSkills_A0C1_Target[data])]))
        set d=Unit_Gas_Damage[(HeroSkills_A0C1_AtkUnit[data])]*Unit_Dark_Damage[(HeroSkills_A0C1_AtkUnit[data])]*(1+(.15+Unit_MATK[(HeroSkills_A0C1_AtkUnit[data])])*cS)*(600*lv+(5+.5*lv)*GetHeroState2((Je[(HeroSkills_A0C1_AtkUnit[data])]),true))
        if cS>8 then
            set cS=8
        endif
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        call GroupRemoveUnit(G,u)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0C1_AtkUnit[data])]))then
                    call DestroyEffect(AddSpecialEffectTarget("Evil Bomb.mdl",u,"origin"))
                    call UnitDamageTargetBY((((Je[(HeroSkills_A0C1_AtkUnit[data])]))),((u)),((((.6*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,1.5)
                endif
            endif
        endloop
        call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdl",(Je[(HeroSkills_A0C1_Target[data])]),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Evil Bomb.mdl",(Je[(HeroSkills_A0C1_Target[data])]),"origin"))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,2+.2*cS),$FF,0,0,$CD))
        call Ltv(LAv("Desecrate.mdl",x,y,1+.125*cS))
        call Ltv(LAv("DarkWave.mdl",x,y,1.25+.1*cS))
        call zhv((Kc[(HeroSkills_A0C1_AtkUnit[data])]),50,.25)
        call UnitDamageTargetBY((((Je[(HeroSkills_A0C1_AtkUnit[data])]))),(((Je[(HeroSkills_A0C1_Target[data])]))),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C+cS)*1.))*1.),(("|c00d83030")))
        call m1v((Je[(HeroSkills_A0C1_Target[data])]),1.5+.25*cS)
        if HeroSkills_A0C1_BuffTimer[HeroSkills_A0C1_Target[data]]==null then
            set HeroSkills_A0C1_BuffTimer[HeroSkills_A0C1_Target[data]]=NewTimer(HeroSkills_A0C1_Target[data])
        endif
        set HeroSkills_A0C1_BuffLv[HeroSkills_A0C1_Target[data]]=cS+1
        call TimerStart(HeroSkills_A0C1_BuffTimer[HeroSkills_A0C1_Target[data]],1.5,false,function HeroSkills_A0C1_End)
    endif
    call SetUnitDecay(II[HeroSkills_A0C1_Sword[data]],45,45,45,$9B,1)
    call Unit_Cancel_Counter(393,HeroSkills_A0C1_AtkUnit[data])
    call Unit_Cancel_Counter(394,HeroSkills_A0C1_Target[data])
    call LQv(HeroSkills_A0C1_Sword[data],1)
    call DestroyEffectBY(HeroSkills_A0C1_Effect[data])
    call fvv(data)
endfunction

function HeroSkills_A0C1_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0C1_Func]
    local real x
    local real y
    local real dX
    local real dY
    local real a
    local real d
    loop
        exitwhen 0==data
        if UnitAlive((Je[(HeroSkills_A0C1_Target[data])]))then
            if HeroSkills_A0C1_Const[data]>0 then
                set HeroSkills_A0C1_Const[data]=HeroSkills_A0C1_Const[data]-1
                call SetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])],(((GetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])]))+12.5)*1.),0)
                if HeroSkills_A0C1_Const[data]==0 then
                    call Ltv(LNv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(GetUnitX(II[(HeroSkills_A0C1_Sword[data])])),(GetUnitY(II[(HeroSkills_A0C1_Sword[data])])),(GetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])])),1.5))
                endif
            else
                set HeroSkills_A0C1_Time[data]=HeroSkills_A0C1_Time[data]+1
                set x=(GetUnitX(II[(HeroSkills_A0C1_Sword[data])]))
                set y=(GetUnitY(II[(HeroSkills_A0C1_Sword[data])]))
                set dX=GetUnitX((Je[(HeroSkills_A0C1_Target[data])]))-x
                set dY=GetUnitY((Je[(HeroSkills_A0C1_Target[data])]))-y
                set a=Atan2(dY,dX)
                set d=SquareRoot(dX*dX+dY*dY)
                call LKv(HeroSkills_A0C1_Sword[data],x+56*Cos(a))
                call Llv(HeroSkills_A0C1_Sword[data],y+56*Sin(a))
                call SetUnitFacing(II[(HeroSkills_A0C1_Sword[data])],((a)*1.)*bj_RADTODEG)
                call LHv(HeroSkills_A0C1_Sword[data],90-R2I(bj_RADTODEG*Atan2((GetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])])),d)))
                if(GetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])]))>25 then
                    call SetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])],((.95*(GetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])]))-5)*1.),0)
                endif
                if ModuloInteger(HeroSkills_A0C1_Time[data],4)==0 then
                    call Ltv(LNv("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(GetUnitX(II[(HeroSkills_A0C1_Sword[data])])),(GetUnitY(II[(HeroSkills_A0C1_Sword[data])])),(GetUnitFlyHeight(II[(HeroSkills_A0C1_Sword[data])])),1.25))
                endif
                if d<=96 then
                    call HeroSkills_A0C1_Stop(data)
                endif
            endif
        else
            call HeroSkills_A0C1_Stop(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0C1_Launch takes integer atku,integer target,integer sword,integer eff,integer t returns nothing
    local integer data=D9v(HeroSkills_A0C1_Func)
    local real tX=GetUnitX((Je[(target)]))
    local real tY=GetUnitY((Je[(target)]))
    local real a
    set HeroSkills_A0C1_AtkUnit[data]=atku
    set HeroSkills_A0C1_Target[data]=target
    set HeroSkills_A0C1_Sword[data]=sword
    set HeroSkills_A0C1_Effect[data]=eff
    set HeroSkills_A0C1_Const[data]=t
    set HeroSkills_A0C1_Time[data]=0
    call Unit_App_Counter(395,HeroSkills_A0C1_AtkUnit[data])
    call Unit_App_Counter(396,HeroSkills_A0C1_Target[data])
endfunction

function HeroSkills_A0C1_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer target=(GetUnitUserData((GetSpellTargetUnit())))
    call ModifyHeroAgiPercent(id,-.015*s__PhantomSword_count[id])
    loop
        exitwhen s__PhantomSword_count[id]==0
        set s__PhantomSword_count[id]=s__PhantomSword_count[id]-1
        call HeroSkills_A0C1_Launch(id,target,LoadInteger(BYHT,s__PhantomSword_vessel[id],2*s__PhantomSword_count[id]),LoadInteger(BYHT,s__PhantomSword_vessel[id],2*s__PhantomSword_count[id]+1),24+4*s__PhantomSword_count[id])
    endloop
endfunction

function HeroSkills_A0C1_Channel_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if s__PhantomSword_count[id]==0 then
        call IssueImmediateOrderById((Je[(id)]),$D0004)
        call NewTextTagInTarget_B((Je[(id)]),"The target can not be moved",8,$80,$80,$9B)
    endif
endfunction

function HeroSkills_A0C1_Init takes nothing returns nothing
    set s__PhantomSword_func=fxv(function s__PhantomSword_loop_c)
    set HeroSkills_A0C1_Func=fxv(function HeroSkills_A0C1_Start)
    call RegisterSpellChannelEvent('A0C1',function HeroSkills_A0C1_Channel_Actions)
    call RegisterSpellEffectEvent('A0C1',function HeroSkills_A0C1_Actions)
    call Luv('A0C1')
endfunction

function hSe takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:333")
    call DeUnitMdef((id),HeroSkills_A0C2_Buff_Mdef[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0C3','Bmfl')
    call Unit_Cancel_Counter(397,(id))
    set HeroSkills_A0C2_Buff_TImer[id]=null
endfunction

function HeroSkills_A0C2_BuffAdd takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0C2_Buff_TImer[id]==null then
        set HeroSkills_A0C2_Buff_TImer[id]=NewTimer(id)
        set HeroSkills_A0C2_Buff_Mdef[id]=ModifyUnitMdef((id),-$A)
        call UnitAddAbilityBY(u,'A0C3')
        call Unit_App_Counter(398,(id))
    endif
    call TimerStart(HeroSkills_A0C2_Buff_TImer[id],$C,false,function hSe)
endfunction

function HeroSkills_A0C2_Alloc takes nothing returns integer
    return D9v(HeroSkills_A0C2_Func)
endfunction

function HeroSkills_A0C2_Stop takes integer data returns nothing
    call fvv(data)
endfunction

function HeroSkills_A0C2_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A0C2_Func]
    local integer data
    local integer id
    local integer fx
    local unit u
    local integer i
    local real tX
    local real tY
    local real a
    local real d
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set id=GetHandleId(Boss_Spell_unit2[data])
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        if ModuloInteger(Boss_Spell_data2[data],4)==0 then
            set i=$F
            loop
                set i=i-1
                set fx=LoadInteger(BYHT,Boss_Spell_data1[data],i)
                set a=Atan2((GetUnitY(II[(fx)]))-Boss_Spell_Y[data],(GetUnitX(II[(fx)]))-Boss_Spell_X[data])+bj_PI+GetRandomReal(-bj_PI/ $C,bj_PI/ $C)
                set tX=Boss_Spell_X[data]+Boss_Spell_V[data]*Cos(a)
                set tY=Boss_Spell_Y[data]+Boss_Spell_V[data]*Sin(a)
                call LKv(fx,tX)
                call Llv(fx,tY)
                call SetUnitFacing(II[(fx)],((a+bj_PI)*1.)*bj_RADTODEG)
                call SetUnitAnimation(II[fx],"Spell One")
                call DestroyEffect(AddSpecialEffect("blood.mdl",tX,tY))
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],Boss_Spell_V[data]+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],Boss_Spell_V[data])then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                        call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdl",u," chest"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Unit_DOT[(id)]*Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m1v(u,2.5)
                    endif
                endif
            endloop
            if ModuloInteger(Boss_Spell_data2[data],8)==0 then
                set i=6
                loop
                    set i=i-1
                    set a=i*Lx/ 6+GetRandomReal(-.25,.25)
                    set d=GetRandomReal(25,Boss_Spell_V[data]-25)
                    call Ltv(LAv("FeatherCrow.mdl",Boss_Spell_X[data]+d*Cos(a),Boss_Spell_Y[data]+d*Sin(a),1.25))
                    exitwhen i==0
                endloop
                if ModuloInteger(Boss_Spell_data2[data],16)==0 then
                    call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],Boss_Spell_V[data]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],Boss_Spell_V[data])then
                            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                                call HeroSkills_A0C2_BuffAdd(u)
                            endif
                        endif
                    endloop
                    call Ltv(Lfv(LAv("BloodSlam.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],1.35+Boss_Spell_V[data]/ 1000.),$CD,$CD,$CD,125))
                    call Ltv(Lfv(LAv("Epicenter.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],1.35+Boss_Spell_V[data]/ 1000.),$FF,0,0,$FF))
                endif
            endif
        endif
        if Boss_Spell_data2[data]<=0 then
            set i=$F
            loop
                set i=i-1
                set fx=LoadInteger(BYHT,Boss_Spell_data1[data],i)
                call Ltv(LAv("s_ShadowEruption_Rain.mdl",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),.75))
                call SetUnitDecay(II[fx],125,125,125,$87,.75)
                call LQv(fx,.75)
                exitwhen i==0
            endloop
            call s__PhantomSword_AddNumber((id),4)
            call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
            call PauseUnit(Boss_Spell_unit1[data],false)
            call ShowUnit(Boss_Spell_unit1[data],true)
            if GetLocalPlayer()==GetOwningPlayer(Boss_Spell_unit1[data])then
                call ClearSelection()
                call SelectUnit(Boss_Spell_unit1[data],true)
            endif
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_unit2[data]=null
            call Unit_Cancel_Counter(399,id)
            call free(Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call fvv((t))
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A0C2_Actions takes nothing returns nothing
    local integer t=(D9v(HeroSkills_A0C2_Func))
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=$F
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A0C2')
    local integer fx
    local real a
    set Timer_List[t]=data
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=ConvertVersion(id)
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_data2[data]=80
    set Boss_Spell_V[data]=375+25*lv
    set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit1[data])
    set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit1[data])
    set Boss_Spell_Z[data]=(4*lv*GetHeroAttack((id))+(75+$A*lv)*GetHeroState2(Boss_Spell_unit1[data],true))/ 20.
    loop
        set i=i-1
        set a=i*Lx/ $F
        set fx=LVv('e00R',Boss_Spell_X[data]-Boss_Spell_V[data]*Cos(a),Boss_Spell_Y[data]-Boss_Spell_V[data]*Sin(a),bj_RADTODEG*a)
        call SetUnitOwner(II[(fx)],(GetOwningPlayer(Boss_Spell_unit1[data])),false)
        call LDv(fx,7.5)
        call SaveInteger(BYHT,Boss_Spell_data1[data],i,fx)
        call Lfv(fx,125,125,125,$87)
        exitwhen i==0
    endloop
    call zhv((GetPlayerId((GetOwningPlayer(Boss_Spell_unit1[data])))),40,3)
    call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call ShowUnit(Boss_Spell_unit1[data],false)
    call Unit_App_Counter(400,id)
endfunction

function HeroSkills_A0C2_Init takes nothing returns nothing
    set HeroSkills_A0C2_Func=fxv(function HeroSkills_A0C2_Start)
    call RegisterSpellEffectEvent('A0C2',function HeroSkills_A0C2_Actions)
    call Luv('A0C2')
endfunction

function HeroSkills_A0C4_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer fx
    local unit u
    local integer i
    local real pX
    local real pY
    local real a
    local real d
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    if not UnitAlive(Boss_Spell_unit1[data])then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:334")
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call Unit_Cancel_Counter(401,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
    elseif Boss_Spell_data2[data]>2 then
        set a=GetRandomReal(0,Lx)
        set d=GetRandomReal(100,600)
        set pX=Boss_Spell_X[data]+d*Cos(a)
        set pY=Boss_Spell_Y[data]+d*Sin(a)
        set a=a*bj_RADTODEG
        call SetUnitX(Boss_Spell_unit1[data],pX)
        call SetUnitY(Boss_Spell_unit1[data],pY)
        call SetUnitFacing(Boss_Spell_unit1[data],a)
        call SetUnitAnimation(Boss_Spell_unit1[data],"Spell One")
        call Ltv(Lbv(LVv('e00V',pX,pY,a),2.25,2))
        call Ltv(LIv("PoisonStream.mdl",pX,pY,50,1.25,(a+90)*bj_DEGTORAD,0))
        call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",pX,pY,3.5))
        call Lqv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",pX,pY,3.5),1)
        call GroupEnumUnitsInRange(G,pX,pY,500+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,pX,pY,500)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"chest"))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                endif
            endif
        endloop
    elseif Boss_Spell_data2[data]==2 then
        call SetUnitAnimation(Boss_Spell_unit1[data],"Spell")
    elseif Boss_Spell_data2[data]==0 then
        set i=8
        set pX=Boss_Spell_X[data]
        set pY=Boss_Spell_Y[data]
        set a=GetRandomReal(0,Lx)*bj_RADTODEG
        set Boss_Spell_Z[data]=12.*Boss_Spell_Z[data]
        call SetUnitX(Boss_Spell_unit1[data],pX)
        call SetUnitY(Boss_Spell_unit1[data],pY)
        call SetUnitFacing(Boss_Spell_unit1[data],a)
        call Ltv(LVv('e004',pX,pY,a+90.))
        call Ltv(Lbv(LVv('e00V',pX,pY,a),2.25,2))
        call Lqv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",pX,pY,3),1)
        loop
            set i=i-1
            set a=i*Lx/ 8
            call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",pX+$96*Cos(a),pY+$96*Sin(a),3))
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,pX,pY,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,pX,pY,600)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"chest"))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",u,"origin"))
                    call SetUnitAnimation(u,"death")
                endif
            endif
        endloop
        call s__PhantomSword_AddNumber((Boss_Spell_data1[data]),8)
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:335")
        call Unit_Cancel_Counter(402,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function HeroSkills_A0C4_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit u=GetTriggerUnit()
    set Boss_Spell_unit1[data]=u
    set Boss_Spell_data1[data]=(GetUnitUserData((u)))
    set Boss_Spell_data2[data]=30
    set Boss_Spell_X[data]=GetUnitX(u)
    set Boss_Spell_Y[data]=GetUnitY(u)
    set Boss_Spell_Z[data]=25*GetHeroState2(u,true)
    call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],600+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],600)then
            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                call m2v(u,3,'A500','B500',true)
            endif
        endif
    endloop
    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl",Boss_Spell_unit1[data],"hand, right",4.5)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
    call SetUnitTimeScale(Boss_Spell_unit1[data],2)
    call TimerStart(NewTimer(data),.1,true,function HeroSkills_A0C4_Start)
    call Unit_App_Counter(403,Boss_Spell_data1[data])
endfunction

function HeroSkills_A0C4_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0C4',function HeroSkills_A0C4_Actions)
    call Luv('A0C4')
endfunction

function Hero_H001_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H001',function Hero_EnterWorld_H001)
    call HeroSkills_A003_Init()
    call HeroSkills_A005_Init()
    call HeroSkills_A0BM_Init()
    call HeroSkills_A021_Init()
    call HeroSkills_A0BL_Init()
    call HeroSkills_A0BN_Init()
    call HeroSkills_A0C1_Init()
    call HeroSkills_A0C2_Init()
    call HeroSkills_A0C4_Init()
endfunction

function HeroSkills_Aspb_AuraAbility1_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:336")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09H','Beye')
    call ModifyUnitAttack((id),-HeroSkills_Aspb_AuraAbility1_Damage[id])
    call Unit_Cancel_Counter(404,(id))
    set HeroSkills_Aspb_AuraAbility1_timer[id]=null
    set HeroSkills_Aspb_AuraAbility1_HaloOwner[id]=0
    set HeroSkills_Aspb_AuraAbility1_Damage[id]=0
endfunction

function HeroSkills_Aspb_AuraAbility2_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:337")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09I','Bstt')
    call ModifyUnitArmor((id),-HeroSkills_Aspb_AuraAbility2_Def[id])
    call Unit_Cancel_Counter(405,(id))
    set HeroSkills_Aspb_AuraAbility2_timer[id]=null
    set HeroSkills_Aspb_AuraAbility2_HaloOwner[id]=0
    set HeroSkills_Aspb_AuraAbility2_Def[id]=0
endfunction

function HeroSkills_Aspb_AuraAbility3_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:338")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09J','Bena')
    call ModifyUnitHpRegen((id),-HeroSkills_Aspb_AuraAbility3_HpRegen[id])
    call Unit_Cancel_Counter(406,(id))
    set HeroSkills_Aspb_AuraAbility3_timer[id]=null
    set HeroSkills_Aspb_AuraAbility3_HaloOwner[id]=0
    set HeroSkills_Aspb_AuraAbility3_HpRegen[id]=.0
endfunction

function HeroSkills_Aspb_AuraAbility4_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:339")
    call UnitRemoveAbility((Je[(id)]),'Bens')
    call Unit_Cancel_Counter(407,(id))
    set HeroSkills_Aspb_AuraAbility4_timer[id]=null
endfunction

function HeroSkills_Aspb_AuraAbility takes integer id,integer c,integer i,integer lv returns nothing
    local real value
    local real value_max
    if i==1 then
        if HeroSkills_Aspb_AuraAbility1_timer[id]==null then
            set HeroSkills_Aspb_AuraAbility1_timer[id]=NewTimer(id)
            call UnitAddAbilityBY((Je[(id)]),'A09H')
            call Unit_App_Counter(408,(id))
        endif
        set value=$A*lv*lv+2*GetHeroState1((Je[(c)]),true)-$A
        if IsUnitType((Je[(id)]),UNIT_TYPE_HERO)then
            set value_max=100*GetHeroLevel((Je[(id)]))
            if value>value_max then
                set value=value_max
            endif
        endif
        if id!=c then
            set value=.5*value
        endif
        if R2I(value)>HeroSkills_Aspb_AuraAbility1_Damage[id]or HeroSkills_Aspb_Type[(HeroSkills_Aspb_AuraAbility1_HaloOwner[id])]!=1 or not IsUnitInRange((Je[(id)]),(Je[(HeroSkills_Aspb_AuraAbility1_HaloOwner[id])]),600)then
            call ModifyUnitAttack((id),R2I(value)-HeroSkills_Aspb_AuraAbility1_Damage[id])
            set HeroSkills_Aspb_AuraAbility1_HaloOwner[id]=c
            set HeroSkills_Aspb_AuraAbility1_Damage[id]=R2I(value)
        endif
        call TimerStart(HeroSkills_Aspb_AuraAbility1_timer[id],1,false,function HeroSkills_Aspb_AuraAbility1_Expired)
    elseif i==2 then
        if HeroSkills_Aspb_AuraAbility2_timer[id]==null then
            set HeroSkills_Aspb_AuraAbility2_timer[id]=NewTimer(id)
            call UnitAddAbilityBY((Je[(id)]),'A09I')
            call Unit_App_Counter(409,(id))
        endif
        set value=($A+.75*SquareRoot(GetHeroState1((Je[(c)]),true)))*lv
        if id!=c then
            set value=.5*value
        endif
        if R2I(value)>HeroSkills_Aspb_AuraAbility2_Def[id]or HeroSkills_Aspb_Type[(HeroSkills_Aspb_AuraAbility2_HaloOwner[id])]!=2 or not IsUnitInRange((Je[(id)]),(Je[(HeroSkills_Aspb_AuraAbility2_HaloOwner[id])]),600)then
            call ModifyUnitArmor((id),R2I(value)-HeroSkills_Aspb_AuraAbility2_Def[id])
            set HeroSkills_Aspb_AuraAbility2_HaloOwner[id]=c
            set HeroSkills_Aspb_AuraAbility2_Def[id]=R2I(value)
        endif
        call TimerStart(HeroSkills_Aspb_AuraAbility2_timer[id],1,false,function HeroSkills_Aspb_AuraAbility2_Expired)
    elseif i==3 then
        if HeroSkills_Aspb_AuraAbility3_timer[id]==null then
            set HeroSkills_Aspb_AuraAbility3_timer[id]=NewTimer(id)
            call UnitAddAbilityBY((Je[(id)]),'A09J')
            call Unit_App_Counter(410,(id))
        endif
        set value=.006*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)+3*SquareRoot(GetHeroState1((Je[(c)]),true))
        if value>HeroSkills_Aspb_AuraAbility3_HpRegen[id]or HeroSkills_Aspb_Type[(HeroSkills_Aspb_AuraAbility3_HaloOwner[id])]!=3 or not IsUnitInRange((Je[(id)]),(Je[(HeroSkills_Aspb_AuraAbility3_HaloOwner[id])]),600)then
            call ModifyUnitHpRegen((id),value-HeroSkills_Aspb_AuraAbility3_HpRegen[id])
            set HeroSkills_Aspb_AuraAbility3_HaloOwner[id]=c
            set HeroSkills_Aspb_AuraAbility3_HpRegen[id]=value
        endif
        call TimerStart(HeroSkills_Aspb_AuraAbility3_timer[id],1,false,function HeroSkills_Aspb_AuraAbility3_Expired)
    elseif i==4 then
        if HeroSkills_Aspb_AuraAbility4_timer[id]==null then
            set HeroSkills_Aspb_AuraAbility4_timer[id]=NewTimer(id)
            call Auxiliary_TargetOrder(('Ablo'),null,1,$D0085,(Je[(id)]))
            call Unit_App_Counter(411,(id))
        endif
        call TimerStart(HeroSkills_Aspb_AuraAbility4_timer[id],1,false,function HeroSkills_Aspb_AuraAbility4_Expired)
    endif
endfunction

function HeroSkills_Aspb_Attack_Type4_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:340")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09O','Blsh')
    call ModifyHeroAllStatPercent(id,-.1)
endfunction

function HeroSkills_Aspb_AttackEffect takes unit s,unit t returns nothing
    local integer id=(GetUnitUserData((s)))
    if HeroSkills_Aspb_Type[id]==1 then
        call UnitDamageTargetBY(((s)),((t)),((((25*HeroSkills_Aspb_Level[id]+(2.5+HeroSkills_Aspb_Level[id]+.1*SquareRoot(GetHeroState1(s,true)))*GetHeroState1(s,true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call UnitDamageTargetBY(((s)),((t)),((((25*HeroSkills_Aspb_Level[id]+(2.5+.5*HeroSkills_Aspb_Level[id])*GetHeroState1(s,true))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        if HeroSkills_Aspb_Type[id]==2 then
            call UnitAppBuff((GetUnitUserData((t))),'ACcr',$D00DD)
        elseif HeroSkills_Aspb_Type[id]==3 then
            if(100000.-TimerGetRemaining(GameTimer))>=HeroSkills_Aspb_Type3_cd[id]then
                set HeroSkills_Aspb_Type3_cd[id]=(100000.-TimerGetRemaining(GameTimer))+6
                call UnitCureTaret(s,s,.1*GetUnitMaxLifeById((GetUnitUserData((s)))))
                call DestroyEffect(AddSpecialEffectTarget("HolyLight.mdl",s,"origin"))
            endif
        elseif HeroSkills_Aspb_Type[id]==4 then
            if HeroSkills_Aspb_Type4_Timer[id]==null then
                set HeroSkills_Aspb_Type4_Timer[id]=NewTimer(id)
                call ModifyHeroAllStatPercent(id,.1)
                call UnitAddAbilityBY(s,'A09O')
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",s,"chest"))
                call Unit_App_Counter(412,(id))
            endif
            call TimerStart(HeroSkills_Aspb_Type4_Timer[id],60,false,function HeroSkills_Aspb_Attack_Type4_Expired)
        endif
    endif
    call DestroyEffect(AddSpecialEffectTarget("HolyBlast.mdl",t,"chest"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",t,"origin"))
endfunction

function HeroSkills_Aspb_onAttack takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call HeroSkills_Aspb_AttackEffect((mF),(MF))
    endif
endfunction

function HeroSkills_Aspb_Loop_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if GetUnitTypeId((Je[(id)]))==0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:341")
        call Unit_Cancel_Counter(413,(id))
        set HeroSkills_Aspb_Type[id]=0
    elseif UnitAlive((Je[(id)]))then
        set HeroSkills_Aspb_Level[id]=GetUnitAbilityLevel((Je[(id)]),LoadInteger(BYHT,HeroSkills_Aspb_List,HeroSkills_Aspb_Type[id]))
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        call GroupEnumUnitsInRange(G,x,y,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,600)then
                if Hc[(GetUnitUserData((u)))]and IsUnitAliveAndAlly(u,(Je[(id)]))then
                    call HeroSkills_Aspb_AuraAbility(((GetUnitUserData((u)))),id,HeroSkills_Aspb_Type[id],HeroSkills_Aspb_Level[id])
                endif
            endif
        endloop
    endif
endfunction

function HeroSkills_Aspb_Switch takes integer id,integer i returns nothing
    if HeroSkills_Aspb_Type[id]==0 then
        set HeroSkills_Aspb_Level[id]=1
        call UnitAddAbilityBY((Je[(id)]),LoadInteger(BYHT,HeroSkills_Aspb_List,i))
    else
        set HeroSkills_Aspb_Level[id]=GetUnitAbilityLevel((Je[(id)]),LoadInteger(BYHT,HeroSkills_Aspb_List,HeroSkills_Aspb_Type[id]))
        call HeroSkillsreplace((id),LoadInteger(BYHT,HeroSkills_Aspb_List,HeroSkills_Aspb_Type[id]),LoadInteger(BYHT,HeroSkills_Aspb_List,i))
    endif
    set HeroSkills_Aspb_Type[id]=i
endfunction

function HeroSkills_Aspb_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call HeroSkills_Aspb_Switch(id,LoadInteger(BYHT,HeroSkills_Aspb_List,GetSpellAbilityId()))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",(Je[(id)]),"origin"))
endfunction

function Hero_EnterWorld_H003 takes nothing returns nothing
    local integer id=le
    call HeroSkills_Aspb_Switch(id,1)
    call UnitAddPAttackTrig((id),function HeroSkills_Aspb_onAttack)
    call TimerStart(NewTimer(id),.5,true,function HeroSkills_Aspb_Loop_c)
    call Unit_App_Counter(414,(id))
endfunction

function HeroSkills_Aspb_Register takes integer i,integer ida,integer idb returns boolean
    call SaveInteger(BYHT,HeroSkills_Aspb_List,ida,i)
    call SaveInteger(BYHT,HeroSkills_Aspb_List,i,idb)
    call Luv(ida)
    call Luv(idb)
    call RegisterSpellEffectEvent(ida,function HeroSkills_Aspb_Actions)
    return true
endfunction

function HeroSkills_Aspb_Init takes nothing returns nothing
    set HeroSkills_Aspb_List=malloc()
    call HeroSkills_Aspb_Register(1,'A01G','Aspb')
    call HeroSkills_Aspb_Register(2,'A06Y','A09E')
    call HeroSkills_Aspb_Register(3,'A09A','A09F')
    call HeroSkills_Aspb_Register(4,'A09C','A09G')
    call RegisterHeroInitEvent('H003',function Hero_EnterWorld_H003)
endfunction

function HeroSkills_A02M_SetSwitch takes boolean b returns nothing
    set HeroSkills_A02M_DamageNotA006=b
endfunction

function HeroSkills_A02M_DeBuff_End takes integer id returns nothing
    if HeroSkills_A02M_DeBuff_Timer[id]!=null then
        call ReleaseTimer(HeroSkills_A02M_DeBuff_Timer[id],"[TimerUtils]Error:342")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09K','BOhx')
        call s__Trig_remove((HeroSkills_A02M_DeBuff_Trig[id]))
        call Unit_Cancel_Counter(415,(id))
        set HeroSkills_A02M_DeBuff_Timer[id]=null
    endif
endfunction

function Fhe takes nothing returns nothing
    call HeroSkills_A02M_DeBuff_End(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function HeroSkills_A02M_DeBuff_onDamaged takes nothing returns nothing
    local integer id=(pF)
    if HeroSkills_A02M_DamageNotA006 and(DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC)then
        if(Control_abid[(id)])=='A500' then
            call mDv((MF),1)
        else
            call m1v((MF),2)
        endif
        call DamageAmplifyDis(.15*GetDamage(),$F,"|c00fadc91")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationCaster.mdl",(MF),"chest"))
        call HeroSkills_A02M_DeBuff_End(id)
    endif
endfunction

function HeroSkills_A02M_DeBuffAdd takes unit u returns nothing
    local integer id
    if UnitAlive(u)and(Control_abid[((GetUnitUserData((u))))])!='ACfb' then
        set id=(GetUnitUserData((u)))
        if HeroSkills_A02M_DeBuff_Timer[id]==null then
            set HeroSkills_A02M_DeBuff_Timer[id]=NewTimer(id)
            set HeroSkills_A02M_DeBuff_Trig[id]=UnitAddShieldTrigB((id),function HeroSkills_A02M_DeBuff_onDamaged)
            call UnitAddAbilityBY((Je[(id)]),'A09K')
            call Unit_App_Counter(416,(id))
        endif
        call TimerStart(HeroSkills_A02M_DeBuff_Timer[id],8,false,function Fhe)
    endif
endfunction

function HeroSkills_A02M_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    set x=(GetUnitX(II[(Boss_Spell_data3[data])]))+Boss_Spell_X[data]
    set y=(GetUnitY(II[(Boss_Spell_data3[data])]))+Boss_Spell_Y[data]
    call LKv(Boss_Spell_data3[data],x)
    call Llv(Boss_Spell_data3[data],y)
    set Boss_Spell_data1[data]=Boss_Spell_data1[data]-1
    call GroupEnumUnitsInRange(G,x,y,$96+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96)then
            if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
                call GroupAddUnit(Boss_Spell_group1[data],u)
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",u,"origin"))
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call HeroSkills_A02M_DeBuffAdd(u)
            endif
            exitwhen Boss_Spell_data2[data]==0 and Boss_Spell_eff[data]==null
        endif
    endloop
    if Boss_Spell_data1[data]<=0 or Boss_Spell_data2[data]<=0 then
        if Boss_Spell_eff[data]!=null then
            call GroupEnumUnitsInRange(G,x,y,450+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,450)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",u,"origin"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((3*Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call HeroSkills_A02M_DeBuffAdd(u)
                    endif
                endif
            endloop
            call Ltv(LAv("LightNova.mdl",x,y,1.5))
            call Ltv(LAv("TheHolyBomb.mdl",x,y,1.25))
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:343")
        call RecycleGroup(Boss_Spell_group1[data])
        call Ltv(Boss_Spell_data3[data])
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_group1[data]=null
        set Boss_Spell_eff[data]=null
    endif
endfunction

function HeroSkills_A02M_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A02M')
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_eff[data]=ConvertVersion(GetUnitAbilityLevel(Boss_Spell_group1[data],'A09U'))
    set Boss_Spell_data1[data]=30
    set Boss_Spell_data2[data]=4
    set Boss_Spell_Z[data]=$FA*lv+($A+lv)*GetHeroState1(Boss_Spell_unit1[data],true)
    set Boss_Spell_X[data]=30*Cos(a)
    set Boss_Spell_Y[data]=30*Sin(a)
    set Boss_Spell_data3[data]=Lnv(x,y,a)
    call LMv(Boss_Spell_data3[data],"Holy Cross.mdl")
    call SetUnitScale(II[(Boss_Spell_data3[data])],((2.4)*1.),0,0)
    call Ltv(LIv("TheHolyBomb.mdl",x,y,125,.85,a,0))
    call PlaySoundAtPoint_BJ((Ya),((100)*1.),((x)*1.),((y)*1.),0)
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A02M_Start)
endfunction

function HeroSkills_A02M_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02M',function HeroSkills_A02M_Actions)
    call Luv('A02M')
endfunction

function HeroSkills_Absk_End takes integer id returns nothing
    if HeroSkills_Absk_AtkTrig[id]!=0 then
        call s__Trig_remove((HeroSkills_Absk_AtkTrig[id]))
        set HeroSkills_Absk_AtkTrig[id]=0
    endif
    call ReleaseTimer(HeroSkills_Absk_Timer[id],"[TimerUtils]Error:344")
    call UnitRemoveAbilityBY((Je[(id)]),'Absk')
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A09L',true)
    call UnitRemoveAbility((Je[(id)]),'Bdvv')
    call Unit_Cancel_Counter(417,(id))
    set HeroSkills_Absk_Timer[id]=null
endfunction

function HeroSkills_Absk_Expired takes nothing returns nothing
    call HeroSkills_Absk_End(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function HeroSkills_Absk_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    local real tx=GetUnitX((MF))-x
    local real ty=GetUnitY((MF))-y
    local real a=SquareRoot(tx*tx+ty*ty)
    local unit u
    if a>0 then
        set tx=tx/ a
        set ty=ty/ a
    else
        set a=GetUnitFacing((mF))*bj_DEGTORAD
        set tx=Cos(a)
        set ty=Sin(a)
    endif
    if GetUnitAbilityLevel((mF),'A09U')>0 then
        call DestroyEffect(AddSpecialEffectTarget("HolyStomp.mdl",(MF),"origin"))
        call DamageAmplifyDis(9*GetDamage()+$F*GetHeroState1((mF),true),17.5,"|c00fadc91")
        call zhv((Kc[((id))]),50,.4)
    else
        call DamageAmplifyDis(4*GetDamage()+2.5*GetHeroState1((mF),true),12.5,"|c00fadc91")
        call zhv((Kc[((id))]),37.5,.4)
    endif
    call Ltv(LIv("Explosion.mdl",x+$A*Cos(a),y+$A*Sin(a),125,1,a,0))
    call HeroSkills_Absk_End(id)
    set x=x-40*tx
    set y=y-40*ty
    set a=Tan(1.8326)
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitAliveAndEnemy(u,(mF))then
                set Boss_x[0]=GetUnitX(u)-x
                set Boss_y[0]=GetUnitY(u)-y
                set Boss_x[1]=Boss_x[0]*tx+Boss_y[0]*ty
                if Boss_x[1]>=0 or Boss_x[1]>=RAbsBJ(Boss_y[0]*tx-Boss_x[0]*ty)/ a then
                    if not(IsUnitType((u),UNIT_TYPE_GIANT))then
                        call Gjv(u,40,a,1.5,"Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl")
                    endif
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"chest"))
                    call UnitDamageTargetBY((((mF))),((u)),((((GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                    call HeroSkills_Aspb_AttackEffect((mF),u)
                endif
            endif
        endif
    endloop
endfunction

function HeroSkills_Absk_App takes integer id returns nothing
    set HeroSkills_Absk_Timer[id]=NewTimer(id)
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A09L',false)
    call UnitAddAbilityBY((Je[(id)]),'Absk')
    call TimerStart(HeroSkills_Absk_Timer[id],3,false,function HeroSkills_Absk_Expired)
    call Unit_App_Counter(418,(id))
endfunction

function HeroSkills_Absk_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_Absk_AtkTrig[id]=UnitAddPAttackTrigB((id),function HeroSkills_Absk_onAttack)
    call TimerStart(HeroSkills_Absk_Timer[id],6,false,function HeroSkills_Absk_Expired)
endfunction

function HeroSkills_A09L_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer b=Boss_Spell_data2[data]
    local unit u
    local boolean VZe
    local integer lv
    local real t=RMinBJ(Boss_Spell_Y[data]+Boss_Spell_X[data],1)
    local real x=s__BezierCurve_getx(b,t)
    local real y=s__BezierCurve_gety(b,t)
    local real z=s__BezierCurve_getz(b,t)
    local real d
    call SetUnitX(Boss_Spell_unit1[data],x)
    call SetUnitY(Boss_Spell_unit1[data],y)
    call SetUnitFlyHeight(Boss_Spell_unit1[data],z,0)
    if t>=1 then
        set VZe=false
        set lv=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A09L')
        set d=500*lv+($F+lv)*GetHeroState1(Boss_Spell_unit1[data],true)
        call GroupEnumUnitsInRange(G,x,y,275+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,275)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    set VZe=true
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,1)
                endif
            endif
        endloop
        if VZe then
            call HeroSkills_Absk_App((Boss_Spell_data1[data]))
        endif
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x,y,2))
        call Ltv(LAv("TheHolyBomb.mdl",x,y,1.5))
        call Ltv(LAv("Explosion.mdl",x,y,1.75))
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call SetUnitPathing(Boss_Spell_unit1[data],true)
        call QueueUnitAnimation(Boss_Spell_unit1[data],"Stand Ready")
        call DestroyEffect(Boss_Spell_eff[data])
        call Unit_Cancel_Counter(419,Boss_Spell_data1[data])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:345")
        call Boss_Spell_deallocate(data)
        call s__BezierCurve_deallocate(b)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_eff[data]=null
    else
        set Boss_Spell_Y[data]=t
        set Boss_Spell_X[data]=Boss_Spell_X[data]+.0025
    endif
endfunction

function HeroSkills_A09L_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real tx=GetSpellTargetX()
    local real ty=GetSpellTargetY()
    local real dX=(tx-x)/ 3.
    local real dY=(ty-y)/ 3.
    local integer b=s__BezierCurve_Power2(x,y,0,x+dX,y+dY,500+SquareRoot(dX*dX+dY*dY),tx,ty,0)
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=b
    set Boss_Spell_eff[data]=AddSpecialEffectTarget("s_HolymagicProjectile.mdl",Boss_Spell_unit1[data],"weapon")
    set Boss_Spell_X[data]=.025
    set Boss_Spell_Y[data]=0
    if UnitAddAbility(Boss_Spell_unit1[data],'Amrf')then
        call UnitRemoveAbility(Boss_Spell_unit1[data],'Amrf')
    endif
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
    call SetUnitPathing(Boss_Spell_unit1[data],false)
    call SetUnitAnimation(Boss_Spell_unit1[data],"Attack Slam")
    call Unit_App_Counter(420,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A09L_Start)
endfunction

function HeroSkills_A09L_ChannelActions takes nothing returns nothing
    if not IsTerrainWalkable(GetSpellTargetX(),GetSpellTargetY())then
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    endif
endfunction

function HeroSkills_A09L_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A09L',function HeroSkills_A09L_ChannelActions)
    call RegisterSpellEffectEvent('A09L',function HeroSkills_A09L_Actions)
    call RegisterSpellEffectEvent('Absk',function HeroSkills_Absk_Actions)
    call SaveBoolean(BYHT,HeroOnSpellEffect_t,('Absk'),true)
    call Luv('A09L')
    call Luv('Absk')
endfunction

function HeroSkills_A027_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real d
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if UnitAlive(Boss_Spell_unit2[data])then
        set x=GetUnitX(Boss_Spell_unit2[data])
        set y=GetUnitY(Boss_Spell_unit2[data])
        call LKv(Boss_Spell_data1[data],x)
        call Llv(Boss_Spell_data1[data],y)
        call LKv(Boss_Spell_data2[data],x)
        call Llv(Boss_Spell_data2[data],y)
    endif
    call Lfv(Boss_Spell_data2[data],$FF,$FF,$FF,R2I(255./ $80*Boss_Spell_data3[data]))
    if ModuloInteger(Boss_Spell_data3[data],28)==0 then
        set x=(GetUnitX(II[(Boss_Spell_data1[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data1[data])]))
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x,y,3.5))
        if Boss_Spell_data3[data]<=0 then
            if UnitAlive(Boss_Spell_unit2[data])then
                set d=GetWidgetLife(Boss_Spell_unit2[data])/ GetUnitState(Boss_Spell_unit2[data],UNIT_STATE_MAX_LIFE)
            else
                set d=0
            endif
            if GetUnitAbilityLevel(Boss_Spell_unit1[data],'A09U')>0 then
                set Boss_Spell_X[data]=(2.5-1.5*d)*Boss_Spell_X[data]
                call Lqv(LAv("LightStrikeArray.mdl",x,y,3),2)
            else
                set Boss_Spell_X[data]=(1.75-.75*d)*Boss_Spell_X[data]
            endif
            call GroupEnumUnitsInRange(G,x,y,300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,300)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                        if u==Boss_Spell_unit2[data]then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_X[data])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        else
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((.6*Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                        call DestroyEffect(AddSpecialEffectTarget("ZLightArrowImpact.mdl",u,"chest"))
                        call m1v(u,2.5)
                    endif
                endif
            endloop
            call AddSpecialEffectByAnnulus("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x,y,1,$C8,8)
            call Ltv(LAv("HolyStomp.mdl",x,y,2.125))
            call Ltv(LAv("TheHolyBomb.mdl",x,y,1.75))
            call LTv(Boss_Spell_data1[data])
            call LTv(Boss_Spell_data2[data])
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:346")
            call Boss_Spell_deallocate(data)
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_unit2[data]=null
        endif
    endif
endfunction

function HeroSkills_A027_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A027')
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_data1[data]=LVv('e008',GetUnitX(Boss_Spell_unit2[data]),GetUnitY(Boss_Spell_unit2[data]),0)
    call LDv(Boss_Spell_data1[data],.065)
    call SetUnitOwner(II[(Boss_Spell_data1[data])],(GetOwningPlayer(Boss_Spell_unit1[data])),false)
    set Boss_Spell_data2[data]=LVv('e009',(GetUnitX(II[(Boss_Spell_data1[data])])),(GetUnitY(II[(Boss_Spell_data1[data])])),90)
    set Boss_Spell_data3[data]=112
    set Boss_Spell_X[data]=GetHeroAttack((GetUnitUserData((Boss_Spell_unit1[data]))))*lv+(20+2*lv)*GetHeroState1(Boss_Spell_unit1[data],true)
    call UnitAppBuff((GetUnitUserData((Boss_Spell_unit2[data]))),'AEer',$D00CB)
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A027_Start)
endfunction

function HeroSkills_A027_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A027',function HeroSkills_A027_Actions)
    call Luv('A027')
endfunction

function HeroSkills_A09M_Type1_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:347")
    call ModifyUnitMagicDamage((id),-20)
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09Q','Bblo')
    call Unit_Cancel_Counter(421,(id))
    set HeroSkills_A09M_Type1_Timer[id]=null
endfunction

function HeroSkills_A09M_Type2_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:348")
    call DeUnitAdef((id),HeroSkills_A09M_Type2_Adef[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09R','Beng')
    call Unit_Cancel_Counter(422,(id))
    set HeroSkills_A09M_Type2_Timer[id]=null
endfunction

function HeroSkills_A09M_Type4_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:349")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09S','Bprg')
    call Unit_Cancel_Counter(423,(id))
    call SetUnitNocontrol((id),false)
    set HeroSkills_A09M_Type4_Timer[id]=null
endfunction

function HeroSkills_A09M_BuffApp takes integer id,integer c,integer local_type,real time returns nothing
    if local_type==1 then
        if HeroSkills_A09M_Type1_Timer[id]==null then
            set HeroSkills_A09M_Type1_Timer[id]=NewTimer(id)
            call UnitAddAbilityBY((Je[(id)]),'A09Q')
            call ModifyUnitMagicDamage((id),20)
            call TimerStart(HeroSkills_A09M_Type1_Timer[id],time,false,function HeroSkills_A09M_Type1_Expired)
            call Unit_App_Counter(424,(id))
        elseif TimerGetRemaining(HeroSkills_A09M_Type1_Timer[id])<time then
            call TimerStart(HeroSkills_A09M_Type1_Timer[id],time,false,function HeroSkills_A09M_Type1_Expired)
        endif
    elseif local_type==2 then
        if HeroSkills_A09M_Type2_Timer[id]==null then
            set HeroSkills_A09M_Type2_Timer[id]=NewTimer(id)
            set HeroSkills_A09M_Type2_Adef[id]=ModifyUnitAdef((id),25)
            call UnitAddAbilityBY((Je[(id)]),'A09R')
            call TimerStart(HeroSkills_A09M_Type2_Timer[id],time,false,function HeroSkills_A09M_Type2_Expired)
            call Unit_App_Counter(425,(id))
        elseif TimerGetRemaining(HeroSkills_A09M_Type2_Timer[id])<time then
            call TimerStart(HeroSkills_A09M_Type2_Timer[id],time,false,function HeroSkills_A09M_Type2_Expired)
        endif
    elseif local_type==3 then
        call UnitCureTaret((Je[(c)]),(Je[(id)]),.4*(GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)-GetWidgetLife((Je[(id)])))+2.5*GetHeroState1((Je[(c)]),true))
    elseif local_type==4 then
        call SetUnitNocontrol((id),true)
        set time=.0375*time
        if HeroSkills_A09M_Type4_Timer[id]==null then
            set HeroSkills_A09M_Type4_Timer[id]=NewTimer(id)
            call UnitAddAbilityBY((Je[(id)]),'A09S')
            call TimerStart(HeroSkills_A09M_Type4_Timer[id],time,false,function HeroSkills_A09M_Type4_Expired)
            call Unit_App_Counter(426,(id))
        elseif TimerGetRemaining(HeroSkills_A09M_Type4_Timer[id])<time then
            call TimerStart(HeroSkills_A09M_Type4_Timer[id],time,false,function HeroSkills_A09M_Type4_Expired)
        endif
    endif
endfunction

function HeroSkills_A09M_Loop_c takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i
    local real pX
    local real pY
    local real a
    set Boss_Spell_data1[data]=Boss_Spell_data1[data]-1
    set i=9
    loop
        set i=i-1
        set a=i*bj_PI/ 4.5
        set pX=Boss_Spell_X[data]+(375-Boss_Spell_data1[data]*375/ $C)*Cos(a)
        set pY=Boss_Spell_Y[data]+(375-Boss_Spell_data1[data]*375/ $C)*Sin(a)
        call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",pX,pY,1.25))
        call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",pX,pY,2))
        exitwhen i==0
    endloop
    if Boss_Spell_data1[data]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:350")
        call Boss_Spell_deallocate(data)
    endif
endfunction

function HeroSkills_A09M_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer cue=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(cue)]),'A09M')
    local integer local_type=HeroSkills_Aspb_Type[(cue)]
    local real d=$7D0*lv+(30+2*lv)*GetHeroState1((Je[(cue)]),true)
    local real time
    local unit u
    if GetUnitAbilityLevel((Je[(cue)]),'A09U')>0 then
        set time=24
    else
        set time=8
    endif
    set Boss_Spell_data1[data]=2
    set Boss_Spell_X[data]=GetUnitX((Je[(cue)]))
    set Boss_Spell_Y[data]=GetUnitY((Je[(cue)]))
    call TimerStart(NewTimer(data),.2,true,function HeroSkills_A09M_Loop_c)
    call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],450+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],450)then
            if IsUnitAliveAndEnemy(u,(Je[(cue)]))then
                call UnitDamageTargetBY((((Je[(cue)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            elseif IsUnitAllyNotbag(u,(Je[(cue)]))then
                call HeroSkills_A09M_BuffApp(((GetUnitUserData((u)))),cue,local_type,time)
            endif
        endif
    endloop
    call Ltv(LAv("BattleCryCaster.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],2.5))
    call Ltv(LAv("TheHolyBomb.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],2.5))
endfunction

function HeroSkills_A09M_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A09M',function HeroSkills_A09M_Actions)
    call Luv('A09M')
endfunction

function HeroSkills_A09N_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer fx=GetHandleId(Boss_Spell_eff[data])
    local unit u
    local boolean local_bool
    local boolean ls
    local boolean bn
    local integer i
    local real x=GetUnitX(Boss_Spell_unit1[data])
    local real y=GetUnitY(Boss_Spell_unit1[data])
    call LKv(fx,x)
    call Llv(fx,y)
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if ModuloInteger(Boss_Spell_data3[data],2)==0 then
        set i=3
        call GroupEnumUnitsInRange(G,x,y,500+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,500)then
                if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    set i=i-1
                    call GroupAddUnit(Boss_Spell_group1[data],u)
                    call DestroyEffect(AddSpecialEffectTarget("JudgementTarget.mdl",u,"origin"))
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    exitwhen i==0
                endif
            endif
        endloop
        if ModuloInteger(Boss_Spell_data3[data],8)==0 then
            if Boss_Spell_X[data]==0 and GetUnitAbilityLevel(Boss_Spell_unit1[data],'Bbof')==0 then
                if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((Boss_Spell_data1[data]))]],('afac')))or(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((Boss_Spell_data1[data]))]],('cnhn')))then
                    call Auxiliary_TargetOrder(('ANso'),(GetOwningPlayer(Je[(Boss_Spell_data1[data])])),2,$D02BC,Boss_Spell_unit1[data])
                else
                    call Auxiliary_TargetOrder(('ANso'),(GetOwningPlayer(Je[(Boss_Spell_data1[data])])),1,$D02BC,Boss_Spell_unit1[data])
                endif
            endif
            call GroupClear(Boss_Spell_group1[data])
            if ModuloInteger(Boss_Spell_data3[data],32)==0 then
                set local_bool=Boss_Spell_X[data]>0
                set ls=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((Boss_Spell_data1[data]))]],('afac')))
                set bn=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((Boss_Spell_data1[data]))]],('cnhn')))
                set i=0
                call Ltv(LAv("TheHolyBomb.mdl",x,y,2.5))
                call GroupEnumUnitsInRange(G,x,y,700+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,700)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            if(ls or bn)and GetRandomInt(1,20)<8 then
                                if ls then
                                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"chest"))
                                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"chest"))
                                    call Ltv(LFv(LAv("LightningWrath.mdl",GetUnitX(u),GetUnitY(u),.875),"Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl"))
                                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),(((($C*Boss_Spell_Z[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($D)*1.))*1.),(("|c00f2fed6")))
                                else
                                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",u,"chest"))
                                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",u,"chest"))
                                    call Lqv(LFv(LAv("Flame Cyclone.mdl",GetUnitX(u),GetUnitY(u),2),"Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl"),1.5)
                                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),(((($F*Boss_Spell_Z[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00ea3e3e")))
                                endif
                                if local_bool then
                                    call m1v(u,2)
                                else
                                    call UnitAppBuff((GetUnitUserData((u))),'ANso',$D006B)
                                    call m1v(u,.5)
                                endif
                                set i=i+1
                            else
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((3*Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                if local_bool then
                                    call m1v(u,1.5)
                                else
                                    call UnitAppBuff((GetUnitUserData((u))),'ANso',$D006B)
                                endif
                            endif
                        endif
                    endif
                endloop
                if i>0 then
                    call zhv((Kc[(Boss_Spell_data1[data])]),$F+5*SquareRoot(i),.25)
                endif
                if Boss_Spell_data3[data]<1 then
                    if GetLocalPlayer()==GetOwningPlayer(Boss_Spell_unit1[data])then
                        call CameraSetSourceNoise(0,0)
                        call CameraSetTargetNoise(0,0)
                    endif
                    call UnitRemoveAbility(Boss_Spell_unit1[data],'Bbof')
                    call DeUnitAdef((Boss_Spell_data1[data]),Boss_Spell_data2[data])
                    call RecycleGroup(Boss_Spell_group1[data])
                    call Unit_Cancel_Counter(427,Boss_Spell_data1[data])
                    call Ltv(fx)
                    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:351")
                    call Boss_Spell_deallocate(data)
                    set Boss_Spell_unit1[data]=null
                    set Boss_Spell_group1[data]=null
                    set Boss_Spell_eff[data]=null
                endif
            endif
        endif
    endif
    set u=null
endfunction

function HeroSkills_A09N_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=ModifyUnitAdef((Boss_Spell_data1[data]),40)
    set Boss_Spell_eff[data]=ConvertVersion(LAv("Judgement.mdl",GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),1.5))
    set Boss_Spell_X[data]=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A09U')
    set Boss_Spell_Z[data]=(2.75+.25*GetUnitAbilityLevel(Boss_Spell_unit1[data],'A09N'))*GetHeroState1(Boss_Spell_unit1[data],true)
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((Boss_Spell_data1[data]))]],('afac')))or(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((Boss_Spell_data1[data]))]],('cnhn')))then
        set Boss_Spell_data3[data]=$E0
    else
        set Boss_Spell_data3[data]=$C0
    endif
    if GetLocalPlayer()==GetTriggerPlayer()then
        call CameraSetTargetNoiseEx(25,75,true)
        call CameraSetSourceNoiseEx(25,75,true)
    endif
    call Unit_App_Counter(428,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A09N_Start)
endfunction

function HeroSkills_A09N_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A09N',function HeroSkills_A09N_Actions)
    call Luv('A09N')
endfunction

function HeroSkills_A006_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real d
    if UnitAlive((Je[(id)]))then
        set HeroSkills_A006_Duration[id]=HeroSkills_A006_Duration[id]-1
        set i=8
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        loop
            set i=i-1
            set fx=LoadInteger(BYHT,HeroSkills_A006_Vessel[id],3*i)
            set a=LoadReal(BYHT,(HeroSkills_A006_Vessel[id]),3*i+1)+.18
            set d=LoadReal(BYHT,(HeroSkills_A006_Vessel[id]),3*i+2)
            call LKv(fx,x+d*Cos(a))
            call Llv(fx,y+d*Sin(a))
            call SetUnitFacing(II[(fx)],((a+bj_PI/ 2)*1.)*bj_RADTODEG)
            call SaveReal(BYHT,(HeroSkills_A006_Vessel[id]),3*i+1,a)
            exitwhen i==0
        endloop
        if ModuloInteger(HeroSkills_A006_Duration[id],8)==0 then
            set HeroSkills_A02M_DamageNotA006=(false)
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if not IsUnitInRangeXY(u,x,y,$96)and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Unit_DOT[(id)]*HeroSkills_A006_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call DestroyEffect(AddSpecialEffectTarget("ZLightArrowImpact.mdl",u,"chest"))
                    endif
                endif
            endloop
            set HeroSkills_A02M_DamageNotA006=(true)
            if ModuloInteger(HeroSkills_A006_Duration[id],24)==0 then
                call Ltv(LAv("HolyStomp.mdl",x,y,2))
            endif
        endif
    else
        set HeroSkills_A006_Duration[id]=0
    endif
    if HeroSkills_A006_Duration[id]<1 then
        set i=8
        loop
            set i=i-1
            call Ltv((LoadInteger(BYHT,HeroSkills_A006_Vessel[id],3*i)))
            exitwhen i==0
        endloop
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09U','Bhwd')
        call DeUnitAdef((id),HeroSkills_A006_Adef[id])
        call ModifyUnitMagicDamage((id),-40)
        call ModifyHeroAllStatPercent(id,-.3)
        call free(HeroSkills_A006_Vessel[id])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:352")
        set HeroSkills_A006_Vessel[id]=0
    endif
endfunction

function HeroSkills_A006_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    local real d
    local integer fx
    if HeroSkills_A006_Vessel[id]==0 then
        set HeroSkills_A006_Vessel[id]=malloc()
        set HeroSkills_A006_Adef[id]=ModifyUnitAdef((id),60)
        call ModifyHeroAllStatPercent(id,.3)
        call UnitAddAbilityBY((Je[(id)]),'A09U')
        call ModifyUnitMagicDamage((id),40)
        set i=8
        loop
            set i=i-1
            set a=.125*i*Lx+GetRandomReal(-.15,.15)
            set d=GetRandomReal($AF,350)
            set fx=Lnv(x+d*Cos(a),y+d*Sin(a),a+.25*Lx)
            call LMv(fx,"HolySpiral.mdl")
            call SetUnitFlyHeight(II[(fx)],((GetRandomReal(75,100))*1.),0)
            call SaveInteger(BYHT,HeroSkills_A006_Vessel[id],3*i,fx)
            call SaveReal(BYHT,(HeroSkills_A006_Vessel[id]),3*i+1,a)
            call SaveReal(BYHT,(HeroSkills_A006_Vessel[id]),3*i+2,d)
            exitwhen i==0
        endloop
        call TimerStart(NewTimer(id),.03125,true,function HeroSkills_A006_Start)
    endif
    set HeroSkills_A006_Duration[id]=640
    set HeroSkills_A006_Damage[id]=3*GetHeroState1((Je[(id)]),true)
    call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x,y,5))
    call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x,y,4))
endfunction

function HeroSkills_A006_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A006',function HeroSkills_A006_Actions)
    call Luv('A006')
endfunction

function Hero_H003_Init takes nothing returns nothing
    local integer i=0
    call HeroSkills_Aspb_Init()
    call HeroSkills_A02M_Init()
    call HeroSkills_A09L_Init()
    call HeroSkills_A027_Init()
    call HeroSkills_A09M_Init()
    call HeroSkills_A09N_Init()
    call HeroSkills_A006_Init()
endfunction

function Hero_H004_IsSkillsCrit takes integer id,unit u returns boolean
    return GetRandomReal(1,100)<$A+.5*GetUnitAbilityLevel((Je[(id)]),'A05M')+(UnitCrit[(id)])+5*Hero_Skills_A05L_BuffLv[((GetUnitUserData((u))))]
endfunction

function IsUnitInSmokeBomb takes integer id returns boolean
    return SmokeBomb_Duration[id]>=(100000.-TimerGetRemaining(GameTimer))
endfunction

function Hero_Skills_Invisible_On takes nothing returns nothing
    local integer id
    if GetIssuedOrderId()==$D00C2 then
        set id=(GetUnitUserData((GetTriggerUnit())))
        set Hero_Skills_Invisible_activate[id]=true
        if Hero_Skills_Invisible_Adef[id]!=0 then
            call UnitRemoveAbilityBY((Je[(id)]),'Agho')
            call UnitAddAbilityBY((Je[(id)]),'A0LC')
        endif
    endif
endfunction

function Hero_Skills_Invisible_Off takes nothing returns nothing
    local integer id
    if GetIssuedOrderId()==$D00C3 then
        set id=(GetUnitUserData((GetTriggerUnit())))
        set Hero_Skills_Invisible_activate[id]=false
        if Hero_Skills_Invisible_Adef[id]!=0 then
            call UnitRemoveAbilityBY((Je[(id)]),'A0LC')
            call UnitAddAbilityBY((Je[(id)]),'Agho')
        endif
    endif
endfunction

function UnitLiftTheInvisible takes integer id returns boolean
    local boolean b=false
    if Hero_Skills_Invisible_Down[id]<97 then
        if Hero_Skills_Invisible_Adef[id]!=0 then
            call DeUnitAdef((id),Hero_Skills_Invisible_Adef[id])
            call UnitRemoveAbilityBY((Je[(id)]),'Agho')
            call UnitRemoveAbilityBY((Je[(id)]),'A0LC')
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0EZ','B026')
            set Hero_Skills_Invisible_Adef[id]=0
            set b=true
        endif
        call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,$FF)
    endif
    set Hero_Skills_Invisible_Down[id]=$80
    call UnitRemoveAbility((Je[(id)]),'B01K')
    return b
endfunction

function UnitMakeInvisible takes integer id returns nothing
    set Hero_Skills_Invisible_Down[id]=0
    if Hero_Skills_Invisible_Adef[id]==0 then
        set Hero_Skills_Invisible_Adef[id]=ModifyUnitAdef((id),40)
        if Hero_Skills_Invisible_activate[id]then
            call UnitAddAbilityBY((Je[(id)]),'A0LC')
        else
            call UnitAddAbilityBY((Je[(id)]),'Agho')
        endif
        call NewTextTagInTarget_B((Je[(id)]),"HIDDEN",8,$87,105,$CD)
        call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,120)
        call DestroyEffect(AddSpecialEffectTarget("BlackBlink.mdl",(Je[(id)]),"origin"))
        call UnitAddAbilityBY((Je[(id)]),'A0EZ')
    endif
endfunction

function Hero_Skills_Invisible_Cancel takes integer id returns nothing
    if Hero_Skills_Invisible_Use[id]then
        set Hero_Skills_Invisible_Next[Hero_Skills_Invisible_Last[id]]=Hero_Skills_Invisible_Next[id]
        set Hero_Skills_Invisible_Last[Hero_Skills_Invisible_Next[id]]=Hero_Skills_Invisible_Last[id]
        set Hero_Skills_Invisible_Use[id]=false
        if Hero_Skills_Invisible_Last[(0)]==0 then
            call frv(Hero_Skills_Invisible_Func)
        endif
        call Unit_Cancel_Counter(429,(id))
    endif
endfunction

function Hero_Skills_Invisible_Start takes nothing returns nothing
    local integer id=Hero_Skills_Invisible_Last[(0)]
    local real x
    local real y
    loop
        exitwhen id==0
        if not UnitAlive((Je[(id)]))then
            if GetUnitTypeId((Je[(id)]))==0 then
                call Hero_Skills_Invisible_Cancel(id)
            else
                call UnitLiftTheInvisible(id)
            endif
        elseif(Control_use[((id))])then
            call UnitLiftTheInvisible(id)
        elseif Hero_Skills_Invisible_Down[id]>0 then
            if(SmokeBomb_Duration[(id)]>=(100000.-TimerGetRemaining(GameTimer)))then
                set Hero_Skills_Invisible_Down[id]=Hero_Skills_Invisible_Down[id]-4
            else
                set Hero_Skills_Invisible_Down[id]=Hero_Skills_Invisible_Down[id]-1
            endif
            if Hero_Skills_Invisible_Down[id]<1 then
                call UnitMakeInvisible(id)
            elseif Hero_Skills_Invisible_Down[id]<97 then
                call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,R2I(120.+135.*Hero_Skills_Invisible_Down[id]/ 96.))
            endif
        endif
        set id=Hero_Skills_Invisible_Last[id]
    endloop
endfunction

function Hero_Skills_Invisible_App takes integer id returns integer
    if not Hero_Skills_Invisible_Use[id]then
        if Hero_Skills_Invisible_Last[(0)]==0 then
            if Hero_Skills_Invisible_Func==0 then
                set Hero_Skills_Invisible_Func=fxv(function Hero_Skills_Invisible_Start)
            endif
            call fov(Hero_Skills_Invisible_Func)
        endif
        set Hero_Skills_Invisible_Last[id]=Hero_Skills_Invisible_Last[(0)]
        set Hero_Skills_Invisible_Next[Hero_Skills_Invisible_Last[(0)]]=id
        set Hero_Skills_Invisible_Last[(0)]=id
        set Hero_Skills_Invisible_Next[id]=0
        set Hero_Skills_Invisible_Use[id]=true
        set Hero_Skills_Invisible_Down[id]=$80
        call Unit_App_Counter(430,(id))
    endif
    return id
endfunction

function Hero_H004_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local boolean b=GetUnitAbilityLevel((mF),'B01K')==1
    local real d=0
    local real x
    local real y
    local real a
    if UnitLiftTheInvisible(id)then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set a=RAbsBJ(GetUnitFacing((MF))-Atan2(y-GetUnitY((mF)),x-GetUnitX((mF)))*bj_RADTODEG)
        if a>$B4 then
            set a=360-a
        endif
        if a<108 then
            set d=(5+3.5*GetUnitAbilityLevel((mF),'A05M'))*GetHeroState2((mF),true)
            if Hero_H004_IsSkillsCrit(id,(MF))then
                set d=(1.+(Unit_C_DMG[(id)]))*d
                call UnitDamageTargetBY((((mF))),(((MF))),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($F+2.5*(Unit_C_DMG[(id)]))*1.))*1.),(("|c008080ff")))
                call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",x,y,1.5),125,0,$FF,125))
                call Ltv(LIv("BloodEX-Special.mdl",x,y,37.5,1.25,a,60))
                call zKv((Kc[(id)]),$E1,125,$AF,.375)
                call zhv((Kc[(id)]),40,.375)
            else
                call UnitDamageTargetBY((((mF))),(((MF))),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($C)*1.))*1.),(("|c008080ff")))
                call zhv((Kc[(id)]),25,.375)
            endif
            call Ltv(LNv("SmallBloodEX-NoSplat.mdl",x,y,$C8,3))
            call Ltv(LAv("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",x,y,2))
            call Ltv(Lfv(LIv("Units\\Undead\\Abomination\\AbominationExplosion.mdl",x,y,37.5,.75,a,30),125,0,25,$FF))
        endif
    endif
    if b then
        call sc___prototype177_evaluate(2,(mF),(MF),(DAK_AMOUNT[HF])+d)
    endif
    call DamageAmplify(1)
endfunction

function Hero_EnterWorld_H004 takes nothing returns nothing
    local integer id=le
    call Hero_Skills_Invisible_App(id)
    call UnitAddPAttackTrig((id),function Hero_H004_onAttack)
endfunction

function Hero_Skills_A05L_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:353")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A05O','B01O')
    call Unit_Cancel_Counter(431,(id))
    set Hero_Skills_A05L_BuffTimer[id]=null
    set Hero_Skills_A05L_BuffLv[id]=0
endfunction

function Hero_Skills_A05L_Start takes integer cue,real x,real y,real a,real d,real range returns nothing
    local real r=362.5*range
    local real angle
    local integer id
    local unit u
    call Ltv(LIv("ShadowAssault.mdl",x,y,37.5,1.25*range,a,30))
    call Ltv(Lfv(LIv("basicstrike.mdl",x,y,0,2*range,a,90),125,0,$FF,$FF))
    call Ltv(Lfv(LIv("moon strike.mdl",x,y,0,3*range,a,90),125,0,$FF,$FF))
    set x=x-75*Cos(a)
    set y=y-75*Sin(a)
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            set angle=RAbsBJ(Atan2(GetUnitY(u)-y,GetUnitX(u)-x)-a)
            if angle>bj_PI then
                set angle=Lx-angle
            endif
            if IsUnitAliveAndEnemy(u,(Je[(cue)]))and angle<1.7 then
                if Hero_H004_IsSkillsCrit((cue),u)then
                    call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdl",u,"chest"))
                    call UnitDamageTargetBY((((Je[(cue)]))),((u)),(((((1+(Unit_C_DMG[(cue)]))*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00361760")))
                else
                    call UnitDamageTargetBY((((Je[(cue)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                if UnitAlive(u)then
                    set id=(GetUnitUserData((u)))
                    if Hero_Skills_A05L_BuffTimer[id]==null then
                        set Hero_Skills_A05L_BuffTimer[id]=NewTimer(id)
                        set Hero_Skills_A05L_BuffLv[id]=1
                        call UnitAddAbilityBY(u,'A05O')
                        call Unit_App_Counter(432,(id))
                    elseif Hero_Skills_A05L_BuffLv[id]<5 then
                        set Hero_Skills_A05L_BuffLv[id]=Hero_Skills_A05L_BuffLv[id]+1
                        if Hero_Skills_A05L_BuffLv[id]==5 then
                            call NewTextTagInTarget_B(u,"5 STACK!",$A,$87,105,$CD)
                        endif
                    endif
                    call TimerStart(Hero_Skills_A05L_BuffTimer[id],8,false,function Hero_Skills_A05L_BuffExpired)
                endif
            endif
        endif
    endloop
endfunction

function Hero_Skills_A05L_Enum takes integer t returns nothing
    local real d=Boss_Spell_Z[0]
    call Hero_Skills_A05L_Start(s__Shadow_Storm_id[t],(GetUnitX(II[((s__Shadow_Storm_fb[t]))])),(GetUnitY(II[((s__Shadow_Storm_fb[t]))])),bj_DEGTORAD*(GetUnitFacing(II[((s__Shadow_Storm_fb[t]))])),.5*d,1.5)
    call SetUnitTimeScale(II[(s__Shadow_Storm_fb[t])],1.75)
    call SetUnitAnimationByIndex(II[(s__Shadow_Storm_fb[t])],3)
    call sc___prototype3_evaluate(2,t)
endfunction

function HeroSkills_A05L_Actions takes nothing returns nothing
    local integer cue=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(cue)]),'A05L')
    local real d=(1.+.04*lv)*GetHeroAttack((cue))+(5+.5*lv)*GetHeroState2((Je[(cue)]),true)
    local real v=Boss_Spell_Z[0]
    if HeroSkills_A0G6_list[cue]>0 then
        set Boss_Spell_Z[0]=d
        call sc__Shadow_Storm_enum(HeroSkills_A0G6_list[cue],(3))
        set Boss_Spell_Z[0]=v
    endif
    call UnitLiftTheInvisible((cue))
    call Hero_Skills_A05L_Start(cue,GetUnitX((Je[(cue)])),GetUnitY((Je[(cue)])),bj_DEGTORAD*GetUnitFacing((Je[(cue)])),d,1+.025*lv)
    call zhv((Kc[(cue)]),30,.375)
endfunction

function HeroSkills_A05L_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A05L',function HeroSkills_A05L_Actions)
    call Luv('A05L')
endfunction

function HeroSkills_A05N_Buff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:354")
    if HeroSkills_A05N_Buff_MDG[id]>0 then
        call ModifyUnitMagicDamage((id),-HeroSkills_A05N_Buff_MDG[id])
        set HeroSkills_A05N_Buff_MDG[id]=0
    endif
    call ModifyUnitAttack((id),-HeroSkills_A05N_Buff_PDG[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A01Q','B02K')
    call Unit_Cancel_Counter(433,(id))
    set HeroSkills_A05N_Buff_Timer[id]=null
    set HeroSkills_A05N_Buff_PDG[id]=0
endfunction

function HeroSkills_A05N_Buff_Add takes integer id,integer lv,integer mKv returns nothing
    local integer v=R2I(40*lv+(3.75+.375*lv)*mKv)
    if HeroSkills_A05N_Buff_Timer[id]==null then
        set HeroSkills_A05N_Buff_Timer[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A01Q')
        call Unit_App_Counter(434,(id))
    endif
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('kpin')))then
        set v=R2I(1.12*v)
        if HeroSkills_A05N_Buff_MDG[id]==0 then
            set HeroSkills_A05N_Buff_MDG[id]=6
            call ModifyUnitMagicDamage((id),HeroSkills_A05N_Buff_MDG[id])
        endif
    endif
    call ModifyUnitAttack((id),v-HeroSkills_A05N_Buff_PDG[id])
    set HeroSkills_A05N_Buff_PDG[id]=v
    call TimerStart(HeroSkills_A05N_Buff_Timer[id],6,false,function HeroSkills_A05N_Buff_Expired)
endfunction

function HeroSkills_A05N_Alloc takes nothing returns integer
    return D9v(HeroSkills_A05N_Func)
endfunction

function HeroSkills_A05N_Stop takes integer data returns nothing
    if HeroSkills_A05N_FB[data]==0 then
        call SetUnitVertexColor((Je[(HeroSkills_A05N_AtkUnit[data])]),$FF,$FF,$FF,$FF)
        call PauseUnit((Je[(HeroSkills_A05N_AtkUnit[data])]),false)
        call SetUnitTimeScale((Je[(HeroSkills_A05N_AtkUnit[data])]),1)
        call QueueUnitAnimation((Je[(HeroSkills_A05N_AtkUnit[data])]),"Stand")
    else
        call sc___prototype3_evaluate(2,(HeroSkills_A05N_FB[data]))
        set HeroSkills_A05N_FB[data]=0
    endif
    call Unit_Cancel_Counter(435,HeroSkills_A05N_AtkUnit[data])
    call Unit_Cancel_Counter(436,HeroSkills_A05N_Target[data])
    call fvv(data)
endfunction

function HeroSkills_A05N_Loop_c takes nothing returns nothing
    local integer data=J[HeroSkills_A05N_Func]
    local integer lv
    local real a
    local real d
    local real l
    loop
        exitwhen 0==data
        if UnitAlive((Je[(HeroSkills_A05N_AtkUnit[data])]))then
            if HeroSkills_A05N_IsRun[data]then
                set HeroSkills_A05N_Duration[data]=HeroSkills_A05N_Duration[data]-HeroSkills_A05N_Decay[data]
                if HeroSkills_A05N_Duration[data]<1 then
                    set HeroSkills_A05N_IsRun[data]=false
                    if HeroSkills_A05N_FB[data]==0 then
                        set HeroSkills_A05N_Duration[data]=8
                        call SetUnitVertexColor((Je[(HeroSkills_A05N_AtkUnit[data])]),$9B,$9B,$9B,0)
                        call SetUnitFacingTimed((Je[(HeroSkills_A05N_AtkUnit[data])]),GetUnitFacing((Je[(HeroSkills_A05N_Target[data])])),0)
                    else
                        set HeroSkills_A05N_Duration[data]=GetRandomInt(5,8)
                        call SetUnitFacing(II[(HeroSkills_A05N_FB[data])],((bj_DEGTORAD*GetUnitFacing((Je[(HeroSkills_A05N_Target[data])])))*1.)*bj_RADTODEG)
                        call Lfv(HeroSkills_A05N_FB[data],$9B,$9B,$9B,0)
                    endif
                elseif HeroSkills_A05N_FB[data]==0 then
                    call SetUnitVertexColor((Je[(HeroSkills_A05N_AtkUnit[data])]),$9B,$9B,$9B,HeroSkills_A05N_Duration[data])
                else
                    call Lfv(HeroSkills_A05N_FB[data],$9B,$9B,$9B,HeroSkills_A05N_Duration[data])
                endif
            else
                set HeroSkills_A05N_Duration[data]=HeroSkills_A05N_Duration[data]-1
                set lv=GetUnitAbilityLevel((Je[(HeroSkills_A05N_AtkUnit[data])]),'A05N')
                if HeroSkills_A05N_Duration[data]==4 then
                    set a=(GetUnitFacing((Je[(HeroSkills_A05N_Target[data])]))-$B4)*bj_DEGTORAD
                    set d=750*lv+($F+1.5*lv)*GetHeroState2((Je[(HeroSkills_A05N_AtkUnit[data])]),true)
                    if HeroSkills_A05N_FB[data]==0 then
                        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((HeroSkills_A05N_AtkUnit[data]))]],('kpin')))then
                            set l=GetUnitState((Je[(HeroSkills_A05N_AtkUnit[data])]),UNIT_STATE_MAX_LIFE)
                            if GetWidgetLife((Je[(HeroSkills_A05N_AtkUnit[data])]))/ l<=.2 then
                                call UnitCureTaret((Je[(HeroSkills_A05N_AtkUnit[data])]),(Je[(HeroSkills_A05N_AtkUnit[data])]),.15*l)
                                call TimerDestroyAddSpecialEffectTargetBY("Healing Surge.mdl",(Je[(HeroSkills_A05N_AtkUnit[data])]),"origin",1)
                            endif
                        endif
                        call SetUnitX((Je[(HeroSkills_A05N_AtkUnit[data])]),GetUnitX((Je[(HeroSkills_A05N_Target[data])]))+96*Cos(a))
                        call SetUnitY((Je[(HeroSkills_A05N_AtkUnit[data])]),GetUnitY((Je[(HeroSkills_A05N_Target[data])]))+96*Sin(a))
                        call DestroyEffect(AddSpecialEffectTarget("WarpDarkTarget.mdx",(Je[(HeroSkills_A05N_AtkUnit[data])]),"origin"))
                    else
                        call LKv(HeroSkills_A05N_FB[data],GetUnitX((Je[(HeroSkills_A05N_Target[data])]))+96*Cos(a))
                        call Llv(HeroSkills_A05N_FB[data],GetUnitY((Je[(HeroSkills_A05N_Target[data])]))+96*Sin(a))
                        set d=.5*d
                        call Ltv(LIv("BloodEX-Special.mdl",GetUnitX((Je[(HeroSkills_A05N_Target[data])])),GetUnitY((Je[(HeroSkills_A05N_Target[data])])),45,GetRandomReal(1.5,2),a,60))
                        call LFv(HeroSkills_A05N_FB[data],"WarpDarkTarget.mdx")
                    endif
                    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Human\\HumanLargeDeathExplode\\HumanLargeDeathExplode.mdl",(Je[(HeroSkills_A05N_Target[data])]),"origin"))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(Je[(HeroSkills_A05N_Target[data])]),"origin"))
                    call m1v((Je[(HeroSkills_A05N_Target[data])]),3)
                    if Hero_H004_IsSkillsCrit((HeroSkills_A05N_AtkUnit[data]),(Je[(HeroSkills_A05N_Target[data])]))then
                        if HeroSkills_A05N_FB[data]==0 then
                            call UnitDamageTargetBY((((Je[(HeroSkills_A05N_AtkUnit[data])]))),(((Je[(HeroSkills_A05N_Target[data])]))),((((HeroSkills_A05N_Damage[data]*d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((17.5+2.5*HeroSkills_A05N_Damage[data])*1.))*1.),(("|c00ff0000")))
                        else
                            call UnitDamageTargetBY((((Je[(HeroSkills_A05N_AtkUnit[data])]))),(((Je[(HeroSkills_A05N_Target[data])]))),((((HeroSkills_A05N_Damage[data]*d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C+2*HeroSkills_A05N_Damage[data])*1.))*1.),(("|c00ff0000")))
                        endif
                        call Ltv(Lfv(LIv("Units\\Undead\\Abomination\\AbominationExplosion.mdl",GetUnitX((Je[(HeroSkills_A05N_Target[data])])),GetUnitY((Je[(HeroSkills_A05N_Target[data])])),37.5,1.25,a,30),125,0,25,$FF))
                        call zKv(((GetPlayerId(GetOwningPlayer((Je[(((HeroSkills_A05N_AtkUnit[data])))]))))),$FF,105,105,.5)
                        call zhv(((GetPlayerId(GetOwningPlayer((Je[(((HeroSkills_A05N_AtkUnit[data])))]))))),40,.5)
                    else
                        call UnitDamageTargetBY((((Je[(HeroSkills_A05N_AtkUnit[data])]))),(((Je[(HeroSkills_A05N_Target[data])]))),((((d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                elseif HeroSkills_A05N_Duration[data]<1 then
                    if HeroSkills_A05N_FB[data]==0 then
                        call HeroSkills_A05N_Buff_Add((HeroSkills_A05N_AtkUnit[data]),lv,GetHeroState2((Je[(HeroSkills_A05N_AtkUnit[data])]),true))
                    endif
                    call HeroSkills_A05N_Stop(data)
                endif
            endif
        else
            call HeroSkills_A05N_Stop(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A05N_Start takes integer hke,integer hKe,integer fx,boolean eSe,integer HBe,integer dC returns nothing
    local integer data=(D9v(HeroSkills_A05N_Func))
    set HeroSkills_A05N_AtkUnit[data]=hke
    set HeroSkills_A05N_Target[data]=hKe
    set HeroSkills_A05N_FB[data]=fx
    set HeroSkills_A05N_IsRun[data]=true
    set HeroSkills_A05N_Duration[data]=HBe
    set HeroSkills_A05N_Decay[data]=dC
    if eSe then
        set HeroSkills_A05N_Damage[data]=1.+(2.+.05*GetUnitAbilityLevel((Je[(HeroSkills_A05N_AtkUnit[data])]),'A05N'))*(Unit_C_DMG[(HeroSkills_A05N_AtkUnit[data])])
        if fx==0 then
            call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",(Je[(HeroSkills_A05N_AtkUnit[data])]),"hand right"))
            call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",(Je[(HeroSkills_A05N_AtkUnit[data])]),"hand left"))
        else
            call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",II[fx],"hand right"))
            call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",II[fx],"hand left"))
        endif
    else
        set HeroSkills_A05N_Damage[data]=1.+1.5*(Unit_C_DMG[(HeroSkills_A05N_AtkUnit[data])])
    endif
    if fx==0 then
        call PauseUnit((Je[(HeroSkills_A05N_AtkUnit[data])]),true)
        call SetUnitTimeScale((Je[(HeroSkills_A05N_AtkUnit[data])]),2)
        call SetUnitAnimationByIndex((Je[(HeroSkills_A05N_AtkUnit[data])]),5)
        call DestroyEffect(AddSpecialEffect("WarpDarkCaster.mdx",GetUnitX((Je[(HeroSkills_A05N_AtkUnit[data])])),GetUnitY((Je[(HeroSkills_A05N_AtkUnit[data])]))))
    else
        call SetUnitTimeScale(II[fx],3)
        call SetUnitAnimationByIndex(II[fx],5)
        call DestroyEffect(AddSpecialEffect("WarpDarkCaster.mdx",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)]))))
        call Ltv(LAv("FeatherCrow.mdl",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),3))
    endif
    call Unit_App_Counter(437,HeroSkills_A05N_AtkUnit[data])
    call Unit_App_Counter(438,HeroSkills_A05N_Target[data])
endfunction

function HeroSkills_A05N_Enum takes integer t returns nothing
    local integer vessel=Boss_Spell_data1[0]
    local integer i=Boss_Spell_data2[0]
    if i>0 then
        set i=i-1
        call SaveInteger(BYHT,vessel,i,t)
        set Boss_Spell_data2[0]=i
    endif
endfunction

function HeroSkills_A05N_Actions takes nothing returns nothing
    local integer hke=(GetUnitUserData((GetTriggerUnit())))
    local integer hKe=(GetUnitUserData((GetSpellTargetUnit())))
    local boolean eSe=UnitLiftTheInvisible((hke))
    local integer t
    local integer i=5
    local integer v=Boss_Spell_data1[0]
    local integer v2=Boss_Spell_data2[0]
    if HeroSkills_A0G6_list[hke]>0 then
        set Boss_Spell_data1[0]=malloc()
        set Boss_Spell_data2[0]=i
        call sc__Shadow_Storm_enum(HeroSkills_A0G6_list[hke],(4))
        loop
            exitwhen Boss_Spell_data2[0]==i
            set Boss_Spell_data2[0]=Boss_Spell_data2[0]+1
            set t=LoadInteger(BYHT,Boss_Spell_data1[0],Boss_Spell_data2[0])
            set s__Shadow_Storm_count[t]=$C0
            call HeroSkills_A05N_Start(hke,hKe,t,eSe,$9B-20*Boss_Spell_data2[0],5)
        endloop
        call free(Boss_Spell_data1[0])
    endif
    call HeroSkills_A05N_Start(hke,hKe,0,eSe,$FF,30)
    set Boss_Spell_data1[0]=v
    set Boss_Spell_data2[0]=v2
endfunction

function HeroSkills_A05N_Init takes nothing returns nothing
    set HeroSkills_A05N_Func=fxv(function HeroSkills_A05N_Loop_c)
    call RegisterSpellEffectEvent('A05N',function HeroSkills_A05N_Actions)
    call Luv('A05N')
endfunction

function HeroSkills_A05K_Alloc takes nothing returns integer
    return D9v(HeroSkills_A05K_Func)
endfunction

function HeroSkills_A05K_Stop takes integer data returns nothing
    call fvv(data)
endfunction

function HeroSkills_A05K_Loop_c takes nothing returns nothing
    local integer data=J[HeroSkills_A05K_Func]
    local real a
    local real x
    local real y
    local real tx
    local real ty
    loop
        exitwhen 0==data
        if UnitAlive((Je[(HeroSkills_A05K_AtkUnit[data])]))and UnitAlive((Je[(HeroSkills_A05K_Target[data])]))then
            set HeroSkills_A05K_Count[data]=HeroSkills_A05K_Count[data]-1
            if ModuloInteger(HeroSkills_A05K_Count[data],5)==0 then
                set x=GetUnitX((Je[(HeroSkills_A05K_AtkUnit[data])]))
                set y=GetUnitY((Je[(HeroSkills_A05K_AtkUnit[data])]))
                set tx=GetUnitX((Je[(HeroSkills_A05K_Target[data])]))
                set ty=GetUnitY((Je[(HeroSkills_A05K_Target[data])]))
                call LFv(CreatePhantom('e00D',3,x,y,bj_RADTODEG*Atan2(ty-y,tx-x)),"BlackBlink.mdl")
                set a=GetRandomReal(0,Lx)
                set x=tx+90*Cos(a)
                set y=ty+90*Sin(a)
                call SetUnitX((Je[(HeroSkills_A05K_AtkUnit[data])]),x)
                call SetUnitY((Je[(HeroSkills_A05K_AtkUnit[data])]),y)
                call SetUnitFacing((Je[(HeroSkills_A05K_AtkUnit[data])]),bj_RADTODEG*a-$B4)
                call SetUnitAnimation((Je[(HeroSkills_A05K_AtkUnit[data])]),"Attack Slam")
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",(Je[(HeroSkills_A05K_Target[data])]),"origin"))
                call m1v((Je[(HeroSkills_A05K_Target[data])]),1.25)
                if Hero_H004_IsSkillsCrit((HeroSkills_A05K_AtkUnit[data]),(Je[(HeroSkills_A05K_Target[data])]))then
                    call UnitDamageTargetBY((((Je[(HeroSkills_A05K_AtkUnit[data])]))),(((Je[(HeroSkills_A05K_Target[data])]))),(((((1.+(Unit_C_DMG[(HeroSkills_A05K_AtkUnit[data])]))*HeroSkills_A05K_Damage[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c00ff0000")))
                else
                    call UnitDamageTargetBY((((Je[(HeroSkills_A05K_AtkUnit[data])]))),(((Je[(HeroSkills_A05K_Target[data])]))),((((HeroSkills_A05K_Damage[data])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        else
            set HeroSkills_A05K_Count[data]=0
        endif
        if HeroSkills_A05K_Count[data]<1 then
            call PauseUnit((Je[(HeroSkills_A05K_AtkUnit[data])]),false)
            call Unit_Cancel_Counter(439,HeroSkills_A05K_AtkUnit[data])
            call Unit_Cancel_Counter(440,HeroSkills_A05K_Target[data])
            call fvv((data))
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A05K_Start takes unit s,unit t,real d returns nothing
    local integer data=(D9v(HeroSkills_A05K_Func))
    set HeroSkills_A05K_AtkUnit[data]=(GetUnitUserData((s)))
    set HeroSkills_A05K_Target[data]=(GetUnitUserData((t)))
    set HeroSkills_A05K_Damage[data]=.375*d+(5+.5*GetUnitAbilityLevel(s,'A05K'))*GetHeroState2(s,true)
    set HeroSkills_A05K_Count[data]=22
    call PauseUnit(s,true)
    call Unit_App_Counter(441,HeroSkills_A05K_AtkUnit[data])
    call Unit_App_Counter(442,HeroSkills_A05K_Target[data])
endfunction

function HeroSkills_A05K_Actions takes nothing returns nothing
    call UnitMakeInvisible(((GetUnitUserData((GetTriggerUnit())))))
endfunction

function HeroSkills_A05K_Init takes nothing returns nothing
    set HeroSkills_A05K_Func=fxv(function HeroSkills_A05K_Loop_c)
    call RegisterSpellEffectEvent('A05K',function HeroSkills_A05K_Actions)
    call Luv('A05K')
endfunction

function HeroSkills_A05V_Stop takes integer s returns nothing
    if HeroSkills_A05V_Use[s]then
        set HeroSkills_A05V_Last[HeroSkills_A05V_Next[s]]=HeroSkills_A05V_Last[s]
        set HeroSkills_A05V_Next[HeroSkills_A05V_Last[s]]=HeroSkills_A05V_Next[s]
        set HeroSkills_A05V_Use[s]=false
        if HeroSkills_A05V_Next[(0)]==0 then
            call frv(HeroSkills_A05V_Func)
        endif
    endif
endfunction

function HeroSkills_A05V_Loop_c takes nothing returns nothing
    local integer s=HeroSkills_A05V_Next[(0)]
    local integer id
    local unit u
    local real x
    local real y
    local real t=(100000.-TimerGetRemaining(GameTimer))
    loop
        exitwhen s==0
        set HeroSkills_A05V_Time[s]=HeroSkills_A05V_Time[s]-1
        set x=(GetUnitX(II[((s))]))
        set y=(GetUnitY(II[((s))]))
        if ModuloInteger(HeroSkills_A05V_Time[s],4)==0 then
            call GroupEnumUnitsInRange(G,x,y,425+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,425)then
                    set id=(GetUnitUserData((u)))
                    if u==(Je[(id)])then
                        set SmokeBomb_Duration[id]=t+.13
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A05V_Which[s])]))then
                            call UnitDamageTargetBY((((Je[(HeroSkills_A05V_Which[s])]))),((u)),((((Unit_DOT[(HeroSkills_A05V_Which[s])]*HeroSkills_A05V_Damage[s])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A05P',$D00DE)
                        endif
                    endif
                endif
            endloop
            if HeroSkills_A05V_Time[s]<1 then
                call Unit_Cancel_Counter(443,HeroSkills_A05V_Which[s])
                call Ltv((s))
                call HeroSkills_A05V_Stop(s)
            endif
        endif
        set s=HeroSkills_A05V_Next[s]
    endloop
endfunction

function HeroSkills_A05V_Start takes integer s returns integer
    if not HeroSkills_A05V_Use[s]then
        if HeroSkills_A05V_Next[(0)]==0 then
            call fov(HeroSkills_A05V_Func)
        endif
        set HeroSkills_A05V_Next[s]=HeroSkills_A05V_Next[(0)]
        set HeroSkills_A05V_Last[HeroSkills_A05V_Next[(0)]]=s
        set HeroSkills_A05V_Next[(0)]=s
        set HeroSkills_A05V_Last[s]=0
        set HeroSkills_A05V_Use[s]=true
    endif
    return s
endfunction

function HeroSkills_A05V_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local integer s=HeroSkills_A05V_Start(Lnv(GetUnitX(c),GetUnitY(c),0))
    local integer lv=GetUnitAbilityLevel(c,'A05V')
    call LMv((s),"smoke.mdl")
    call SetUnitFlyHeight(II[((s))],((100)*1.),0)
    call SetUnitOwner(II[((s))],(GetOwningPlayer(c)),false)
    set HeroSkills_A05V_Which[s]=(GetUnitUserData((c)))
    set HeroSkills_A05V_Time[s]=256
    set HeroSkills_A05V_Damage[s]=37.5*lv+(.5+.025*lv)*GetHeroState2(c,true)
    call LFv((s),"IceSparks.mdl")
    call UnitAddAbility(II[(s)],'A0BW')
    call UnitLiftTheInvisible((HeroSkills_A05V_Which[s]))
    call Unit_App_Counter(444,HeroSkills_A05V_Which[s])
    set c=null
endfunction

function HeroSkills_A05V_Init takes nothing returns nothing
    set HeroSkills_A05V_Func=fxv(function HeroSkills_A05V_Loop_c)
    call RegisterSpellEffectEvent('A05V',function HeroSkills_A05V_Actions)
    call Luv('A05V')
endfunction

function s__Shadow_Storm_new takes nothing returns integer
    local integer this=s__Shadow_Storm__allocate()
    set s__Shadow_Storm_L[this]=this
    set s__Shadow_Storm_R[this]=this
    return this
endfunction

function s__Shadow_Storm_addfor takes integer this returns integer
    local integer re=s__Shadow_Storm__allocate()
    set s__Shadow_Storm_L[re]=this
    set s__Shadow_Storm_R[re]=s__Shadow_Storm_R[this]
    set s__Shadow_Storm_L[s__Shadow_Storm_R[this]]=re
    set s__Shadow_Storm_R[this]=re
    return re
endfunction

function s__Shadow_Storm_remove takes integer this returns integer
    local integer re
    if s__Shadow_Storm_L[this]!=this then
        set re=s__Shadow_Storm_L[this]
        set s__Shadow_Storm_R[re]=s__Shadow_Storm_R[this]
        set s__Shadow_Storm_L[s__Shadow_Storm_R[this]]=re
    else
        set re=0
    endif
    call s__Shadow_Storm_deallocate(this)
    return re
endfunction

function s__Shadow_Storm_clear takes integer this returns nothing
    local integer re=this
    loop
        set this=s__Shadow_Storm_L[this]
        exitwhen this==re
        call s__Shadow_Storm_deallocate(this)
    endloop
    call s__Shadow_Storm_deallocate(this)
endfunction

function s__Shadow_Storm_enum takes integer this,integer f returns nothing
    local integer t=this
    local integer i=0
    local integer array v
    loop
        set v[i]=t
        set i=i+1
        set t=s__Shadow_Storm_R[t]
        exitwhen t==this
    endloop
    loop
        exitwhen i==0
        set i=i-1
        call sc___prototype3_evaluate(f,v[i])
    endloop
endfunction

function HeroSkills_ShadowStorm_Stop takes integer id returns nothing
    if HeroSkills_ShadowStorm_Use[id]then
        set HeroSkills_ShadowStorm_Last[HeroSkills_ShadowStorm_Next[id]]=HeroSkills_ShadowStorm_Last[id]
        set HeroSkills_ShadowStorm_Next[HeroSkills_ShadowStorm_Last[id]]=HeroSkills_ShadowStorm_Next[id]
        set HeroSkills_ShadowStorm_Use[id]=false
        if HeroSkills_ShadowStorm_Next[(0)]==0 then
            call frv(HeroSkills_ShadowStorm_Func)
        endif
    endif
endfunction

function HeroSkills_ShadowStorm_End takes integer t returns nothing
    local integer de
    call Ltv(s__Shadow_Storm_fx[t])
    call LSv((s__Shadow_Storm_fb[t]),$9B,$9B,$9B,$9B,1)
    set de=s__Shadow_Storm_remove(t)
    if t==HeroSkills_A0G6_list[s__Shadow_Storm_id[t]]then
        set HeroSkills_A0G6_list[s__Shadow_Storm_id[t]]=de
        if HeroSkills_A0G6_list[s__Shadow_Storm_id[t]]==0 then
            call HeroSkills_ShadowStorm_Stop(s__Shadow_Storm_id[t])
        endif
    endif
endfunction

function HeroSkills_ShadowStorm_Enum takes integer t returns nothing
    local integer fb=s__Shadow_Storm_fb[t]
    local integer fx=s__Shadow_Storm_fx[t]
    local real a
    set s__Shadow_Storm_count[t]=s__Shadow_Storm_count[t]-1
    set a=.03125*Lx*s__Shadow_Storm_count[t]
    call LKv(fx,(GetUnitX(II[((fb))]))+125*Cos(a))
    call Llv(fx,(GetUnitY(II[((fb))]))+125*Sin(a))
    call SetUnitFacing(II[(fx)],((a+.5*bj_PI)*1.)*bj_RADTODEG)
    call SetUnitScale(II[(fx)],((1.+.0078*s__Shadow_Storm_count[t])*1.),0,0)
    if s__Shadow_Storm_count[t]<1 then
        call HeroSkills_ShadowStorm_End(t)
    elseif ModuloInteger(s__Shadow_Storm_count[t],32)==0 then
        call Lqv(LAv("Gravitone.mdl",(GetUnitX(II[((fb))])),(GetUnitY(II[((fb))])),1.25),1.5)
    endif
endfunction

function HeroSkills_ShadowStorm_Loop_c takes nothing returns nothing
    local integer id=HeroSkills_ShadowStorm_Next[(0)]
    loop
        exitwhen id==0
        call s__Shadow_Storm_enum(HeroSkills_A0G6_list[id],(5))
        set id=HeroSkills_ShadowStorm_Next[id]
    endloop
endfunction

function HeroSkills_ShadowStorm_Start takes integer id,integer fb returns integer
    local integer t
    if HeroSkills_ShadowStorm_Use[id]then
        set t=s__Shadow_Storm_addfor(HeroSkills_A0G6_list[id])
    else
        if HeroSkills_ShadowStorm_Next[(0)]==0 then
            call fov(HeroSkills_ShadowStorm_Func)
        endif
        set HeroSkills_ShadowStorm_Next[id]=HeroSkills_ShadowStorm_Next[(0)]
        set HeroSkills_ShadowStorm_Last[HeroSkills_ShadowStorm_Next[(0)]]=id
        set HeroSkills_ShadowStorm_Next[(0)]=id
        set HeroSkills_ShadowStorm_Last[id]=0
        set HeroSkills_ShadowStorm_Use[id]=true
        set t=s__Shadow_Storm_new()
        set HeroSkills_A0G6_list[id]=t
    endif
    set s__Shadow_Storm_id[t]=id
    set s__Shadow_Storm_fb[t]=fb
    return t
endfunction

function HeroSkills_A06G_StormRevolve takes integer id,integer fb returns nothing
    local integer t=HeroSkills_ShadowStorm_Start(id,fb)
    set s__Shadow_Storm_fx[t]=Lnv((GetUnitX(II[(fb)]))+125,(GetUnitY(II[(fb)])),.5*bj_PI)
    call LMv(s__Shadow_Storm_fx[t],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
    call SetUnitScale(II[(s__Shadow_Storm_fx[t])],((1.5)*1.),0,0)
    call SetUnitFlyHeight(II[(s__Shadow_Storm_fx[t])],((50)*1.),0)
    set s__Shadow_Storm_count[t]=$C0
endfunction

function HeroSkills_A06G_Alloc takes nothing returns integer
    return D9v(HeroSkills_A06G_Func)
endfunction

function HeroSkills_A06G_Stop takes integer data returns nothing
    call fvv(data)
endfunction

function HeroSkills_A06G_Loop_c takes nothing returns nothing
    local integer data=J[HeroSkills_A06G_Func]
    local integer cFv
    local unit u
    local integer i
    local real x
    local real y
    local real a
    loop
        exitwhen 0==data
        if HeroSkills_A06G_HY[data]!=0 and HeroSkills_A06G_Speed[data]>8 then
            set HeroSkills_A06G_Speed[data]=HeroSkills_A06G_Speed[data]-1
            if HeroSkills_A06G_Speed[data]<9 then
                call LDv(HeroSkills_A06G_HY[data],2.5)
                call SetUnitAnimation(II[HeroSkills_A06G_HY[data]],"spell")
                call QueueUnitAnimation(II[HeroSkills_A06G_HY[data]],"stand")
            endif
        elseif UnitAlive((Je[(HeroSkills_A06G_Which[data])]))then
            set i=4
            set x=(GetUnitX(II[(HeroSkills_A06G_Effect[data])]))+HeroSkills_A06G_VectorX[data]
            set y=(GetUnitY(II[(HeroSkills_A06G_Effect[data])]))+HeroSkills_A06G_VectorY[data]
            if HeroSkills_A06G_HY[data]==0 then
                if not IsTerrainWalkable(x-.5*HeroSkills_A06G_VectorX[data],y-.5*HeroSkills_A06G_VectorY[data])then
                    set x=IsTerrainWalkable_X
                    set y=IsTerrainWalkable_Y
                elseif not IsTerrainWalkable(x,y)then
                    set x=IsTerrainWalkable_X
                    set y=IsTerrainWalkable_Y
                endif
                call SetUnitX((Je[(HeroSkills_A06G_Which[data])]),x)
                call SetUnitY((Je[(HeroSkills_A06G_Which[data])]),y)
            else
                call LKv(HeroSkills_A06G_HY[data],x)
                call Llv(HeroSkills_A06G_HY[data],y)
            endif
            call LKv(HeroSkills_A06G_Effect[data],x)
            call Llv(HeroSkills_A06G_Effect[data],y)
            set HeroSkills_A06G_Speed[data]=HeroSkills_A06G_Speed[data]-1
            set HeroSkills_A06G_Angle[data]=HeroSkills_A06G_Angle[data]+.3
            loop
                set i=i-1
                set a=HeroSkills_A06G_Angle[data]+i*Lx/ 4
                set cFv=LoadInteger(BYHT,HeroSkills_A06G_Vessel[data],i)
                call LKv(cFv,x+HeroSkills_A06G_AngX[data]*Cos(a))
                call Llv(cFv,y+HeroSkills_A06G_AngY[data]*Cos(a))
                call SetUnitFlyHeight(II[(cFv)],((HeroSkills_A06G_BasedHighly+HeroSkills_A06G_Radii*Sin(a))*1.),0)
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,287.5+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,287.5)then
                    if not IsUnitInGroup(u,HeroSkills_A06G_Group[data])and IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A06G_Which[data])]))then
                        if HeroSkills_A06G_HY[data]==0 then
                            if Hero_H004_IsSkillsCrit((HeroSkills_A06G_Which[data]),u)then
                                call UnitDamageTargetBY((((Je[(HeroSkills_A06G_Which[data])]))),((u)),(((((1+(Unit_C_DMG[(HeroSkills_A06G_Which[data])]))*HeroSkills_A06G_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((20)*1.))*1.),(("|c008080c0")))
                                call Ltv(Lfv(LIv("Units\\Undead\\Abomination\\AbominationExplosion.mdl",GetUnitX(u),GetUnitY(u),50,2,(GetUnitFacing(II[(HeroSkills_A06G_Effect[data])])),30),125,0,25,$FF))
                                call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdx",u,"chest"))
                            else
                                call UnitDamageTargetBY((((Je[(HeroSkills_A06G_Which[data])]))),((u)),((((HeroSkills_A06G_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c008080c0")))
                            endif
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdl",u,"chest"))
                        elseif Hero_H004_IsSkillsCrit((HeroSkills_A06G_Which[data]),u)then
                            call UnitDamageTargetBY((((Je[(HeroSkills_A06G_Which[data])]))),((u)),(((((1+(Unit_C_DMG[(HeroSkills_A06G_Which[data])]))*HeroSkills_A06G_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c008080c0")))
                            call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdx",u,"chest"))
                        else
                            call UnitDamageTargetBY((((Je[(HeroSkills_A06G_Which[data])]))),((u)),((((HeroSkills_A06G_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c008080c0")))
                        endif
                        call GroupAddUnit(HeroSkills_A06G_Group[data],u)
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                        call zKv((Kc[(HeroSkills_A06G_Which[data])]),125,$80,$C0,.2)
                    endif
                endif
            endloop
            if ModuloInteger(HeroSkills_A06G_Speed[data],4)==0 then
                set cFv=LVv('e01G',x,y,(GetUnitFacing(II[(HeroSkills_A06G_Effect[data])])))
                call LDv(cFv,2)
                call Ltv(cFv)
            endif
        else
            set HeroSkills_A06G_Speed[data]=0
        endif
        if HeroSkills_A06G_Speed[data]<1 then
            set i=4
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,HeroSkills_A06G_Vessel[data],i)))
                exitwhen i==0
            endloop
            if HeroSkills_A06G_HY[data]==0 then
                call SetUnitPathing((Je[(HeroSkills_A06G_Which[data])]),true)
                call PauseUnit((Je[(HeroSkills_A06G_Which[data])]),false)
                call SetUnitInvulnerable((Je[(HeroSkills_A06G_Which[data])]),false)
                call UnitLiftTheInvisible((HeroSkills_A06G_Which[data]))
                call Unit_Cancel_Counter(445,HeroSkills_A06G_Which[data])
            else
                if UnitAlive((Je[(HeroSkills_A06G_Which[data])]))then
                    call SetUnitFacing(II[(HeroSkills_A06G_HY[data])],((bj_DEGTORAD*(GetUnitFacing(II[(HeroSkills_A06G_Effect[data])]))+bj_PI)*1.)*bj_RADTODEG)
                    call HeroSkills_A06G_StormRevolve(HeroSkills_A06G_Which[data],HeroSkills_A06G_HY[data])
                else
                    call LSv(HeroSkills_A06G_HY[data],$9B,$9B,$9B,$9B,.5)
                endif
                set HeroSkills_A06G_HY[data]=0
            endif
            call RecycleGroup(HeroSkills_A06G_Group[data])
            call free(HeroSkills_A06G_Vessel[data])
            call Ltv(HeroSkills_A06G_Effect[data])
            call fvv((data))
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A06G_Start takes integer id,real x,real y,real a,real d,integer dC returns nothing
    local integer data=(D9v(HeroSkills_A06G_Func))
    local integer i=4
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A06G')
    local integer cFv
    set HeroSkills_A06G_Which[data]=id
    set HeroSkills_A06G_Vessel[data]=malloc()
    set HeroSkills_A06G_Group[data]=NewGroup()
    set HeroSkills_A06G_Effect[data]=Lfv(Lnv(x,y,a),125,0,$FF,$FF)
    call LMv(HeroSkills_A06G_Effect[data],"OrbOfCorruption.mdl")
    call SetUnitFlyHeight(II[(HeroSkills_A06G_Effect[data])],((HeroSkills_A06G_BasedHighly)*1.),0)
    set HeroSkills_A06G_Damage[data]=$9C4*lv+(30+3*lv)*GetHeroState2((Je[(id)]),true)
    set HeroSkills_A06G_Angle[data]=a
    set HeroSkills_A06G_AngX[data]=HeroSkills_A06G_Radii*Cos(a+.25*Lx)
    set HeroSkills_A06G_AngY[data]=HeroSkills_A06G_Radii*Sin(a+.25*Lx)
    if dC==0 then
        call SetUnitScale(II[(HeroSkills_A06G_Effect[data])],((3.25)*1.),0,0)
        set HeroSkills_A06G_Speed[data]=24
        call zhv((Kc[(id)]),75,.75)
        call zKv((Kc[(id)]),105,105,105,.75)
        call UnitMakeInvisible((id))
        call SetUnitPathing((Je[(id)]),false)
        call PauseUnit((Je[(id)]),true)
        call SetUnitInvulnerable((Je[(id)]),true)
        call SetUnitAnimation((Je[(id)]),"spell")
        call QueueUnitAnimation((Je[(id)]),"stand")
        call Unit_App_Counter(446,id)
    else
        set HeroSkills_A06G_HY[data]=Lfv(LVv('e00D',x,y,bj_RADTODEG*a),$9B,$9B,$9B,$9B)
        call SetUnitOwner(II[(HeroSkills_A06G_HY[data])],((P[Kc[((id))]])),false)
        call SetUnitScale(II[(HeroSkills_A06G_Effect[data])],((2.)*1.),0,0)
        set HeroSkills_A06G_Speed[data]=8
        set HeroSkills_A06G_Damage[data]=.25*HeroSkills_A06G_Damage[data]
        call Ltv(LAv("WarpDarkCaster.mdx",x,y,2.5))
    endif
    set d=d/ HeroSkills_A06G_Speed[data]
    set HeroSkills_A06G_VectorX[data]=d*Cos(a)
    set HeroSkills_A06G_VectorY[data]=d*Sin(a)
    set HeroSkills_A06G_Speed[data]=HeroSkills_A06G_Speed[data]+dC
    loop
        set i=i-1
        set a=HeroSkills_A06G_Angle[data]+i*Lx/ 4
        set cFv=Lnv(x+HeroSkills_A06G_AngX[data]*Cos(a),y+HeroSkills_A06G_AngY[data]*Cos(a),HeroSkills_A06G_Angle[data])
        call LMv(cFv,"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
        call SetUnitScale(II[(cFv)],((2.75)*1.),0,0)
        call SetUnitFlyHeight(II[(cFv)],((HeroSkills_A06G_BasedHighly+HeroSkills_A06G_Radii*Sin(a))*1.),0)
        call SaveInteger(BYHT,HeroSkills_A06G_Vessel[data],i,cFv)
        exitwhen i==0
    endloop
    call Ltv(LIv("ShadowAssault.mdl",x,y,50,2.5,a+bj_PI,$F))
endfunction

function HeroSkills_A06G_Actions takes nothing returns nothing
    local integer c=(GetUnitUserData((GetTriggerUnit())))
    local integer HTe=4
    local integer i
    local real x=GetUnitX((Je[(c)]))
    local real y=GetUnitY((Je[(c)]))
    local real dX=GetSpellTargetX()-x
    local real dY=GetSpellTargetY()-y
    local real a=Atan2(dY,dX)
    local real d=SquareRoot(dX*dX+dY*dY)
    local real tX
    local real tY
    local real fA
    if d<500 then
        set d=500
    endif
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((c))]],('penr')))then
        set HTe=HTe+1
    endif
    set i=HTe
    set tX=x+d*Cos(a)
    set tY=y+d*Sin(a)
    loop
        set i=i-1
        set fA=a+(i+.5)*Lx/ HTe
        call HeroSkills_A06G_Start(c,tX+600*Cos(fA),tY+600*Sin(fA),fA+bj_PI,900,2*(i+1))
        exitwhen i==0
    endloop
    call HeroSkills_A06G_Start(c,x,y,a,d,0)
    call Ltv(LAv("FeatherCrow.mdl",x,y,3))
endfunction

function HeroSkills_A06G_Init takes nothing returns nothing
    set HeroSkills_ShadowStorm_Func=fxv(function HeroSkills_ShadowStorm_Loop_c)
    set HeroSkills_A06G_Func=fxv(function HeroSkills_A06G_Loop_c)
    call RegisterSpellEffectEvent('A06G',function HeroSkills_A06G_Actions)
    call Luv('A06G')
endfunction

function HeroSkills_A06E_Start_func02 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local integer fx
    local integer i
    local real x
    local real y
    set i=3
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    set x=(GetUnitX(II[((LoadInteger(BYHT,Boss_Spell_data1[data],1)))]))
    set y=(GetUnitY(II[((LoadInteger(BYHT,Boss_Spell_data1[data],1)))]))
    call GroupEnumUnitsInRange(G,x,y,$96+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96)then
            if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                call GroupAddUnit(Boss_Spell_group1[data],u)
                if Hero_H004_IsSkillsCrit(Boss_Spell_data3[data],u)then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),(((((1+(Unit_C_DMG[(Boss_Spell_data3[data])]))*Boss_Spell_Z[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c008080c0")))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                else
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
                call DestroyEffect(AddSpecialEffectTarget("Hit.mdl",u,"chest"))
            endif
        endif
    endloop
    loop
        set i=i-1
        set fx=LoadInteger(BYHT,Boss_Spell_data1[data],i)
        call LKv(fx,(GetUnitX(II[(fx)]))+Boss_Spell_X[data])
        call Llv(fx,(GetUnitY(II[(fx)]))+Boss_Spell_Y[data])
        exitwhen i==0
    endloop
    if Boss_Spell_data2[data]<=0 then
        set i=3
        loop
            set i=i-1
            call Ltv((LoadInteger(BYHT,Boss_Spell_data1[data],i)))
            exitwhen i==0
        endloop
        call RecycleGroup(Boss_Spell_group1[data])
        call free(Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:355")
        set Boss_Spell_group1[data]=null
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function HeroSkills_A06E_Start_func01 takes unit c,real x,real y,real a,real d returns nothing
    local integer data=Boss_Spell_allocate()
    local integer fx
    local integer i=3
    local real oA
    set Boss_Spell_unit1[data]=c
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data2[data]=30
    set Boss_Spell_data3[data]=(GetUnitUserData((c)))
    set Boss_Spell_Z[data]=d
    set Boss_Spell_X[data]=35*Cos(a)
    set Boss_Spell_Y[data]=35*Sin(a)
    loop
        set i=i-1
        set oA=a+(i-1)*bj_PI/ 3
        set fx=Lnv(x+40*Cos(oA),y+40*Sin(oA),a)
        call LMv(fx,"White Claw.mdl")
        call SaveInteger(BYHT,Boss_Spell_data1[data],i,fx)
        exitwhen i==0
    endloop
    call TimerStart(NewTimer(data),.03128,true,function HeroSkills_A06E_Start_func02)
endfunction

function HeroSkills_A06E_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=(GetUnitUserData((Boss_Spell_unit1[data])))
    local integer fx
    local unit u
    local integer i
    local integer v
    local real x
    local real y
    local real a
    local real d
    local real pX
    local real pY
    local boolean b=false
    if id!=null then
        set x=GetUnitX(Boss_Spell_unit1[data])
        set y=GetUnitY(Boss_Spell_unit1[data])
        if Boss_Spell_data2[data]==0 then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            if ModuloInteger(Boss_Spell_data3[data],4)==0 then
                set i=4
                loop
                    set i=i-1
                    set v=Boss_Spell_data3[data]/ 4+4*i
                    set d=GetRandomReal(550,600)
                    set a=v*Lx/ $F+GetRandomReal(-.1,.1)
                    set pX=x-d*Cos(a)
                    set pY=y-d*Sin(a)
                    set fx=LVv('e00D',pX,pY,bj_RADTODEG*a)
                    call DestroyEffect(AddSpecialEffect("WarpDarkTarget.mdl",pX,pY))
                    call SetUnitAnimation(II[fx],"Attack Slam")
                    call Lfv(fx,$A5,$A5,$A5,$9B)
                    call HeroSkills_A06E_Start_func01(Boss_Spell_unit1[data],pX,pY,a,Boss_Spell_Z[data])
                    call Ltv(LAv("FeatherCrow.mdl",pX+GetRandomReal(-125,125),pY+GetRandomReal(-125,125),1.75))
                    call SaveInteger(BYHT,Boss_Spell_data1[data],v,fx)
                    exitwhen i==0
                endloop
                if Boss_Spell_data3[data]<1 then
                    set i=16
                    set Boss_Spell_data2[data]=1
                    set Boss_Spell_data3[data]=16
                    loop
                        set i=i-1
                        set fx=LoadInteger(BYHT,Boss_Spell_data1[data],i)
                        call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Items\\AIlb\\AIlbSpecialArt.mdl",II[fx],"chest",1.5)
                        call UnitAddAbility(II[fx],'A02T')
                        exitwhen i==0
                    endloop
                endif
            endif
        elseif Boss_Spell_data2[data]==1 then
            set i=16
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            loop
                set i=i-1
                call Lfv((LoadInteger(BYHT,Boss_Spell_data1[data],i)),$F+$A*Boss_Spell_data3[data],$F+$A*Boss_Spell_data3[data],$F+$A*Boss_Spell_data3[data],$9B)
                exitwhen i==0
            endloop
            if Boss_Spell_data3[data]<1 then
                set Boss_Spell_data2[data]=2
                set Boss_Spell_data3[data]=16
            endif
        elseif Boss_Spell_data2[data]==2 then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            if Boss_Spell_data3[data]<1 then
                set Boss_Spell_data2[data]=3
                set Boss_Spell_data3[data]=20
                call GroupEnumUnitsInRange(G,x,y,550+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,550)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"chest"))
                            call m1v(u,5)
                        endif
                    endif
                endloop
                call Ltv(LAv("FeatherCrow.mdl",x,y,5))
                set i=16
                loop
                    set i=i-1
                    set fx=LoadInteger(BYHT,Boss_Spell_data1[data],i)
                    set a=(GetUnitFacing(II[(fx)]))*bj_DEGTORAD
                    set pX=x+500*Cos(a)
                    set pY=y+500*Sin(a)
                    call LKv(fx,pX)
                    call Llv(fx,pY)
                    call SetUnitAnimation(II[fx],"Attack Slam")
                    set fx=Lnv(pX,pY,a)
                    call LMv(fx,"Katana_1.mdl")
                    call SetUnitScale(II[(fx)],((1.15)*1.),0,0)
                    call Ltv(Lfv(fx,125,0,125,$FF))
                    call DestroyEffect(AddSpecialEffect("FeatherCrow.mdl",pX,pY))
                    call DestroyEffect(AddSpecialEffect("s_ShadowEruption_Rain.mdx",pX,pY))
                    exitwhen i==0
                endloop
            endif
        elseif Boss_Spell_data2[data]==3 then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            if Boss_Spell_data3[data]<1 then
                set Boss_Spell_Z[data]=35*Boss_Spell_Z[data]
                call SetUnitNotSeckill(id,false)
                call GroupEnumUnitsInRange(G,x,y,550+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,550)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            if Hero_H004_IsSkillsCrit((id),u)then
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),(((((1+(Unit_C_DMG[(id)]))*Boss_Spell_Z[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((24)*1.))*1.),(("|c008080c0")))
                                call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",GetUnitX(u),GetUnitY(u),2),125,0,$FF,125))
                                call Ltv(LAv("BloodEX-Special.mdl",GetUnitX(u),GetUnitY(u),1.5))
                            else
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                            call DestroyEffect(AddSpecialEffectTarget("BigBloodEX-NoSplat-NoGutz.mdl",u,"origin"))
                            call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",u,"origin"))
                        endif
                    endif
                endloop
                call ShowUnit(Boss_Spell_unit1[data],true)
                call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
                call PauseUnit(Boss_Spell_unit1[data],false)
                if GetLocalPlayer()==GetOwningPlayer(Boss_Spell_unit1[data])then
                    call ClearSelection()
                    call SelectUnit(Boss_Spell_unit1[data],true)
                endif
                call zhv((Kc[(id)]),80,.75)
                call zJv((Kc[(id)]))
                call Ltv(LAv("ShadowWave.mdx",x,y,5))
                set b=true
            endif
        endif
    else
        set b=true
    endif
    if b then
        set i=16
        loop
            set i=i-1
            call LTv((LoadInteger(BYHT,Boss_Spell_data1[data],i)))
            exitwhen i==0
        endloop
        call RemoveUnitBJ(Boss_Spell_unit2[data],39)
        call free(Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:356")
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function HeroSkills_A06E_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=malloc()
    set CR=false
    set Boss_Spell_unit2[data]=CreateUnit(GetTriggerPlayer(),'e01H',GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),0)
    set CR=true
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=16
    set Boss_Spell_Z[data]=$A*GetHeroState2(Boss_Spell_unit1[data],true)
    call SetUnitNotSeckill(id,true)
    call UnitMakeInvisible((id))
    call ShowUnit(Boss_Spell_unit1[data],false)
    call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call zKv((Kc[(id)]),125,125,125,5)
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A06E_Start)
endfunction

function HeroSkills_A06E_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A06E',function HeroSkills_A06E_Actions)
    call Luv('A06E')
endfunction

function Hero_H004_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H004',function Hero_EnterWorld_H004)
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_ON)],(Filter((function Hero_Skills_Invisible_On))))
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_OFF)],(Filter((function Hero_Skills_Invisible_Off))))
    call HeroSkills_A05L_Init()
    call HeroSkills_A05N_Init()
    call HeroSkills_A05K_Init()
    call HeroSkills_A05V_Init()
    call HeroSkills_A06G_Init()
    call HeroSkills_A06E_Init()
endfunction

function HeroSkills_A01M_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))then
        set HeroSkills_A01M_BuffDuration[id]=HeroSkills_A01M_BuffDuration[id]-1
        call UnitCureTaret((Je[(HeroSkills_A01M_BuffSource[id])]),(Je[(id)]),.05*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))
    else
        set HeroSkills_A01M_BuffDuration[id]=0
    endif
    if HeroSkills_A01M_BuffDuration[id]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:357")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0EH','BNsa')
        call DeUnitAdef((id),HeroSkills_A01M_BuffAmdef[id])
        call Unit_Cancel_Counter(447,(id))
        call Unit_Cancel_Counter(448,HeroSkills_A01M_BuffSource[id])
    endif
endfunction

function HeroSkills_A01M_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local integer c=(GetUnitUserData((GetTriggerUnit())))
    local real r=20.+1.*GetUnitAbilityLevel((Je[(c)]),'A01M')
    if HeroSkills_A01M_BuffDuration[id]==0 then
        set HeroSkills_A01M_BuffAmdef[id]=ModifyUnitAdef((id),r)
        call UnitAddAbilityBY((Je[(id)]),'A0EH')
        call TimerStart(NewTimer(id),1,true,function HeroSkills_A01M_Start)
        call Unit_App_Counter(449,(id))
    else
        call UnitAdefChange((id),HeroSkills_A01M_BuffAmdef[id],r)
        call Unit_Cancel_Counter(450,HeroSkills_A01M_BuffSource[id])
    endif
    set HeroSkills_A01M_BuffSource[id]=c
    set HeroSkills_A01M_BuffDuration[id]=8
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationCaster.mdl",(Je[(id)]),"chest"))
    call Unit_App_Counter(451,c)
endfunction

function HeroSkills_A01M_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01M',function HeroSkills_A01M_Actions)
    call Luv('A01M')
endfunction

function HeroSkills_A01A_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local group g=NewGroup()
    local boolean Lhe=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((GetUnitUserData((c))))]],('rej5')))
    local integer lv=GetUnitAbilityLevel(c,'A01A')
    local integer mlv=GetHeroState3(c,true)
    local integer i=$A
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local real h=($A+3*lv)*SquareRoot(20*mlv)
    local real d=400*lv+(3.75+.375*lv)*mlv
    local real fYv=80*Cos(a)
    local real fzv=80*Sin(a)
    loop
        set i=i-1
        set x=x+fYv
        set y=y+fzv
        call GroupEnumUnitsInRange(G,x,y,$C8+75,GroupEnumUnitsFilterNull)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$C8)then
                if not IsUnitInGroup(u,g)then
                    call GroupAddUnit(g,u)
                    if IsUnitAliveAndEnemy(u,c)then
                        call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    elseif IsUnitAliveAndAlly(u,c)then
                        if Lhe then
                            call sc___prototype100_evaluate(2,u,3)
                        endif
                        call UnitCureTaret(c,u,.12*GetUnitState(u,UNIT_STATE_MAX_LIFE)+h)
                    endif
                endif
            endif
        endloop
        call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x,y,1.3))
        exitwhen i==0
    endloop
    call RecycleGroup(g)
    set g=null
    set c=null
endfunction

function HeroSkills_A01A_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01A',function HeroSkills_A01A_Actions)
    call Luv('A01A')
endfunction

function HeroSkills_A01L_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:358")
    call UnitRemoveAbility((Je[(id)]),'B00K')
    call HeroAddExtraStatAll((id),-HeroSkills_A01L_Stat[id])
    call Unit_Cancel_Counter(452,(id))
    set HeroSkills_A01L_Timer[id]=null
endfunction

function HeroSkills_A01L_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local integer c
    local integer lv
    local integer d
    local integer maxd
    if nC[(id)]then
        set c=(GetUnitUserData((GetTriggerUnit())))
        set d=R2I($C*GetUnitAbilityLevel((Je[(c)]),'A01L')+.075*GetHeroIntNotExtra((c)))
        set maxd=4*GetHeroLevel((Je[(id)]))
        if d>maxd then
            set d=maxd
        endif
        if HeroSkills_A01L_Timer[id]==null then
            set HeroSkills_A01L_Timer[id]=NewTimer(id)
            set HeroSkills_A01L_Stat[id]=0
            call Unit_App_Counter(453,(id))
        endif
        call HeroAddExtraStatAll((id),d-HeroSkills_A01L_Stat[id])
        call TimerStart(HeroSkills_A01L_Timer[id],120,false,function HeroSkills_A01L_Expired)
        set HeroSkills_A01L_Stat[id]=d
    endif
endfunction

function HeroSkills_A01L_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01L',function HeroSkills_A01L_Actions)
    call Luv('A01L')
endfunction

function HeroSkills_A092_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    local unit u
    local boolean Lhe
    local real x
    local real y
    local real r=(100000.-TimerGetRemaining(GameTimer))
    set Boss_Spell_X[data]=Boss_Spell_X[data]-1
    if Boss_Spell_X[data]<289 then
        if Boss_Spell_X[data]==288 then
            call LMv(Boss_Spell_data2[data],"ChaosRunicAura.mdl")
            call SetUnitScale(II[(Boss_Spell_data2[data])],((4)*1.),0,0)
            call LMv(Boss_Spell_data3[data],"Consecrate.mdl")
            call SetUnitScale(II[(Boss_Spell_data3[data])],((3)*1.),0,0)
        else
            set Lhe=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(Boss_Spell_data1[data])]],('rej5')))
            set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
            call GroupEnumUnitsInRange(G,x,y,300+75,GroupEnumUnitsFilterNull)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if UnitAlive(u)and(GetUnitAbilityLevel((u),'A04P')==0)and IsUnitInRangeXY(u,x,y,300)then
                    set id=(GetUnitUserData((u)))
                    if HeroSkills_A092_cd[id]<r then
                        set HeroSkills_A092_cd[id]=r+.95
                        if IsUnitAlly(u,GetOwningPlayer(Boss_Spell_unit1[data]))then
                            if Lhe then
                                call sc___prototype100_evaluate(2,u,3)
                            endif
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",u,"chest"))
                            call UnitCureTaret(Boss_Spell_unit1[data],u,.225*Boss_Spell_Z[data])
                        elseif IsUnitEnemy(u,GetOwningPlayer(Boss_Spell_unit1[data]))and GetUnitAbilityLevel(u,'Avul')==0 then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",u,"chest"))
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endif
            endloop
        endif
        if Boss_Spell_X[data]<1 then
            call Unit_Cancel_Counter(454,Boss_Spell_data1[data])
            call LTv(Boss_Spell_data2[data])
            call LTv(Boss_Spell_data3[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:359")
            set Boss_Spell_unit1[data]=null
        endif
    endif
endfunction

function HeroSkills_A092_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=Lnv(GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),0)
    set Boss_Spell_data3[data]=Lnv((GetUnitX(II[(Boss_Spell_data2[data])])),(GetUnitY(II[(Boss_Spell_data2[data])])),0)
    set Boss_Spell_X[data]=320
    set lv=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A092')
    set Boss_Spell_Z[data]=$C8*lv+(2.+.15*lv)*GetHeroState3(Boss_Spell_unit1[data],true)
    call Ltv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",(GetUnitX(II[(Boss_Spell_data2[data])])),(GetUnitY(II[(Boss_Spell_data2[data])])),3))
    call Unit_App_Counter(455,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A092_Start)
endfunction

function HeroSkills_A092_Learn takes nothing returns nothing
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A092')
    if lv==1 then
        call UnitAddAbilityBY(GetTriggerUnit(),'A093')
        call SetPlayerAbilityAvailable(GetOwningPlayer(GetTriggerUnit()),'A093',false)
    else
        call SetUnitAbilityLevel(GetTriggerUnit(),'A01P',lv)
    endif
endfunction

function HeroSkills_A092_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A092',function HeroSkills_A092_Learn)
    call RegisterSpellEffectEvent('A092',function HeroSkills_A092_Actions)
    call Luv('A092')
endfunction

function HeroSkills_A01E_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer fx
    local integer lv=GetUnitAbilityLevel(c,'A01E')
    local integer i=8
    local integer local_int=GetHeroState3(c,true)
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real d=$5DC*lv+($F+2*lv)*local_int
    local real h=(3+.3*lv)*local_int
    local real a
    local boolean b=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((GetUnitUserData((c))))]],('I0ED')))
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        set fx=LVv('e003',x+$C8*Cos(a),y+$C8*Sin(a),0)
        call SetUnitScale(II[(fx)],((2)*1.),0,0)
        call LDv(fx,1.5)
        call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x+$FA*Cos(a),y+$FA*Sin(a),1.35))
        call Ltv(fx)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAliveAndEnemyNotAvul(u,c)then
                if b then
                    call m1v(u,1)
                endif
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'Acrs',$D00DE)
            elseif IsUnitAliveAndAlly(u,c)and Hc[(GetUnitUserData((u)))]then
                call Globals_Shield_Add(u,h,8,'A071','B02O')
            endif
        endif
    endloop
    call Ltv(LAv("TheHolyBomb.mdx",x,y,1.25))
    set c=null
endfunction

function HeroSkills_A01E_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01E',function HeroSkills_A01E_Actions)
    call Luv('A01E')
endfunction

function HeroSkills_A02F_Start takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:360")
    local integer id=Boss_Spell_data1[data]
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A02F')
    local integer object
    local unit u
    call KillUnit(HeroSkills_A02F_Unit[id])
    if lv==3 then
        set object='h00C'
    elseif lv==2 then
        set object='h00B'
    else
        set object='h00A'
    endif
    set HeroSkills_A02F_Unit[id]=CreateUnit((P[Kc[((id))]]),object,(GetUnitX(II[(Boss_Spell_data2[data])])),(GetUnitY(II[(Boss_Spell_data2[data])])),(GetUnitFacing(II[(Boss_Spell_data2[data])])))
    call SummonedUnitSetMaster((GetUnitUserData((HeroSkills_A02F_Unit[id]))),id)
    call UnitApplyTimedLife(HeroSkills_A02F_Unit[id],'Bvul',97)
    call Ltv(LAv("LightStrikeArray.mdl",(GetUnitX(II[(Boss_Spell_data2[data])])),(GetUnitY(II[(Boss_Spell_data2[data])])),2.5))
    call Boss_Spell_deallocate(data)
endfunction

function HeroSkills_A02F_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=8
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x+$FA*Cos(a),y+$FA*Sin(a),2.5))
        exitwhen i==0
    endloop
    set a=bj_DEGTORAD*GetUnitFacing((Je[(id)]))
    set x=x+100*Cos(a)
    set y=y+100*Sin(a)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=Lnv(x,y,a)
    call LMv(Boss_Spell_data2[data],"Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((3)*1.),0,0)
    call Ltv(LAv("HolyLight.mdl",x,y,3))
    call Ltv(LAv("HolyBlast.mdl",x,y,3))
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A01T',false)
    call TimerStart(NewTimer(data),1.25,false,function HeroSkills_A02F_Start)
    call Lqv(Lfv(Boss_Spell_data2[data],$9B,$9B,$9B,$9B),1.5)
endfunction

function SummonedUnitSkills_AHhb_Actions takes nothing returns nothing
    call UnitCureTaret(GetTriggerUnit(),GetSpellTargetUnit(),GetUnitState(GetSpellTargetUnit(),UNIT_STATE_MAX_LIFE)-GetWidgetLife(GetSpellTargetUnit()))
endfunction

function SummonedUnitSkills_A048_Expired takes nothing returns nothing
    call RemoveHeroReviveBuff(((alloc__hpv(GetHandleId((GetExpiredTimer()))))),1)
endfunction

function SummonedUnitSkills_A048_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local integer i
    local real x
    local real y
    if nC[(id)]then
        if Item_I0E9_timer[(id)]==null then
            set i=8
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            loop
                set i=i-1
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x+125*Cos(i*Lx/ 8.),y+125*Sin(i*Lx/ 8.)))
                exitwhen i==0
            endloop
            if SummonedUnitSkills_A048_Timer[id]==null then
                set SummonedUnitSkills_A048_Timer[id]=NewTimer(id)
                call UnitAddAbilityBY((Je[(id)]),'A072')
                call Unit_App_Counter(456,(id))
            endif
            call Ltv(LAv("EmpyreanSigil.mdl",x,y,1.25))
            call TimerStart(SummonedUnitSkills_A048_Timer[id],9,false,function SummonedUnitSkills_A048_Expired)
        else
            call IssueUnitStop_DisplayText(GetTriggerUnit(),"The goal can not be a follower of Spring Brother")
        endif
    else
        call IssueUnitStop_DisplayText(GetTriggerUnit(),"Casts the target")
    endif
endfunction

function SummonedUnitSkills_A082_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2=Boss_Spell_data3[data]
    local real cX
    local real cY
    local real dX
    local real dY
    local real tX
    local real tY
    local real a
    local real r
    local real t
    local real z
    set cX=Boss_Spell_X[data2]
    set cY=Boss_Spell_Y[data2]
    set tX=Boss_Spell_X[data]
    set tY=Boss_Spell_Y[data]
    set dX=tX-cX
    set dY=tY-cY
    set r=SquareRoot(dX*dX+dY*dY)
    set a=(40/ r)
    if r>120 then
        set t=(r-120)/ Boss_Spell_Z[data]
        set tX=tX-dX*a
        set tY=tY-dY*a
        set z=ParabolicBYRatio(Boss_Spell_Z[data]/ 3.75+25,t)
        call MoveLightningEx(Boss_Spell_lig[data],true,cX,cY,Boss_Spell_Z[data2],tX,tY,GetPointZ(tX,tY)+z+60)
        set Boss_Spell_X[data]=tX
        set Boss_Spell_Y[data]=tY
    else
        set tX=cX+dX*a
        set tY=cY+dY*a
        set z=0
        set SummonedUnitSkills_A082_Bool[Boss_Spell_data2[data]]=false
        call DestroyLightning(Boss_Spell_lig[data])
        call DestroyEffect(Boss_Spell_eff[data])
        call DestroyEffect(Boss_Spell_eff[data2])
        call PauseUnit((Je[(Boss_Spell_data1[data])]),false)
        call SetUnitPathing((Je[(Boss_Spell_data2[data])]),true)
        call SetUnitInvulnerable((Je[(Boss_Spell_data1[data])]),false)
        call SetUnitInvulnerable((Je[(Boss_Spell_data2[data])]),false)
        call SetUnitAnimation((Je[(Boss_Spell_data1[data])]),"stand")
        call Unit_Cancel_Counter(457,Boss_Spell_data1[data])
        call Unit_Cancel_Counter(458,Boss_Spell_data2[data])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:361")
        call Boss_Spell_deallocate(data)
        call Boss_Spell_deallocate(data2)
        set Boss_Spell_eff[data]=null
        set Boss_Spell_eff[data2]=null
    endif
    call SetUnitX((Je[(Boss_Spell_data2[data])]),tX)
    call SetUnitY((Je[(Boss_Spell_data2[data])]),tY)
    call SetUnitFlyHeight((Je[(Boss_Spell_data2[data])]),z,0)
endfunction

function SummonedUnitSkills_A082_Actions takes nothing returns nothing
    local integer CMv=GetPlayerId(GetOwningPlayer(GetSpellTargetUnit()))
    local integer data
    local integer data2
    local real cX
    local real cY
    local real dX
    local real dY
    local real tX
    local real tY
    local real a
    local real h
    local real r
    local real t
    if CMv==8 or CMv==$F or GetUnitAbilityLevel(GetSpellTargetUnit(),'Avul')==1 or SummonedUnitSkills_A082_Bool[(GetUnitUserData((GetSpellTargetUnit())))]then
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    else
        set cX=GetUnitX(GetTriggerUnit())
        set cY=GetUnitY(GetTriggerUnit())
        set tX=GetUnitX(GetSpellTargetUnit())
        set tY=GetUnitY(GetSpellTargetUnit())
        set dX=tX-cX
        set dY=tY-cY
        set r=SquareRoot(dX*dX+dY*dY)
        if r>120 then
            set t=(40/ r)
            set h=GetPointZ(cX,cY)+60
            set data=Boss_Spell_allocate()
            set data2=Boss_Spell_allocate()
            set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
            set Boss_Spell_data2[data]=(GetUnitUserData((GetSpellTargetUnit())))
            set Boss_Spell_data3[data]=data2
            set Boss_Spell_eff[data]=AddSpecialEffectTarget("Abilities\\Spells\\Human\\DivineShield\\DivineShieldTarget.mdl",(Je[(Boss_Spell_data2[data])]),"origin")
            set Boss_Spell_eff[data2]=AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\Barkskin\\BarkSkinTarget.mdl",(Je[(Boss_Spell_data1[data])]),"hand right")
            set Boss_Spell_X[data]=tX
            set Boss_Spell_Y[data]=tY
            set Boss_Spell_X[data2]=cX+dX*t
            set Boss_Spell_Y[data2]=cY+dY*t
            set Boss_Spell_Z[data]=(r-120)
            set Boss_Spell_Z[data2]=h
            set Boss_Spell_lig[data]=AddLightningEx("HWSB",true,Boss_Spell_X[data2],Boss_Spell_Y[data2],h,Boss_Spell_X[data],Boss_Spell_Y[data],GetPointZ(Boss_Spell_X[data],Boss_Spell_Y[data])+60)
            set SummonedUnitSkills_A082_Bool[Boss_Spell_data2[data]]=true
            if UnitAddAbility((Je[(Boss_Spell_data2[data])]),'Amrf')then
                call UnitRemoveAbility((Je[(Boss_Spell_data2[data])]),'Amrf')
            endif
            call PauseUnit((Je[(Boss_Spell_data1[data])]),true)
            call SetUnitPathing((Je[(Boss_Spell_data2[data])]),false)
            call SetUnitInvulnerable((Je[(Boss_Spell_data1[data])]),true)
            call SetUnitInvulnerable((Je[(Boss_Spell_data2[data])]),true)
            call SetUnitAnimation((Je[(Boss_Spell_data1[data])]),"Stand Channel")
            call IssueImmediateOrderById((Je[(Boss_Spell_data2[data])]),$D0004)
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationCaster.mdl",(Je[(Boss_Spell_data1[data])]),"hand right"))
            call Unit_App_Counter(459,Boss_Spell_data1[data])
            call Unit_App_Counter(460,Boss_Spell_data2[data])
            call TimerStart(NewTimer(data),.03125,TRUE,function SummonedUnitSkills_A082_Start)
        else
            call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
        endif
    endif
endfunction

function HeroSkills_A02F_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02F',function HeroSkills_A02F_Actions)
    call RegisterSpellEffectEvent('AHhb',function SummonedUnitSkills_AHhb_Actions)
    call RegisterSpellEffectEvent('A048',function SummonedUnitSkills_A048_Actions)
    call RegisterSpellEffectEvent('A082',function SummonedUnitSkills_A082_Actions)
    call Luv('A082')
    call Luv('A048')
    call Luv('A02F')
endfunction

function HeroSkills_A02N_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer i=$C
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a
    local real c
    local real s
    local integer fx=LAv("ringofbright.mdl",x,y,3)
    local boolean b=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((GetUnitUserData((u))))]],('I0ED')))
    call UnitAddAbility(II[fx],'A025')
    call SetUnitOwner(II[(fx)],(GetOwningPlayer(u)),false)
    call Lfv(fx,$FF,$FF,$FF,105)
    if b then
        call SetUnitAbilityLevel(II[fx],'A025',2)
        call SetUnitScale(II[(fx)],((3*1.3)*1.),0,0)
        call Lqv(fx,45)
    else
        call Lqv(fx,40)
    endif
    loop
        set i=i-1
        set a=bj_PI*i/ 6
        set c=$C8*Sin(a)
        set s=$C8*Cos(a)
        call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x+4*c,y+4*s,4),$FF,$FF,$FF,$CD))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x+3*c,y+3*s,3),$FF,$FF,$FF,$CD))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x+2*c,y+2*s,2),$FF,$FF,$FF,$CD))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",x+c,y+s,1),$FF,$FF,$FF,$CD))
        exitwhen i==0
    endloop
    set u=null
endfunction

function HeroSkills_A02N_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02N',function HeroSkills_A02N_Actions)
    call Luv('A02N')
endfunction

function Hero_H007_Init takes nothing returns nothing
    local integer i=0
    call HeroSkills_A01M_Init()
    call HeroSkills_A01A_Init()
    call HeroSkills_A01L_Init()
    call HeroSkills_A092_Init()
    call HeroSkills_A01E_Init()
    call HeroSkills_A02F_Init()
    call HeroSkills_A02N_Init()
endfunction

function Hero_H008_SkillsPower takes integer id returns real
    return 1.+.12*HeroSkills_A002_Number[id]
endfunction

function HeroSkills_A002_SoulExpend takes integer id,integer i returns integer
    loop
        set i=i-1
        set HeroSkills_A002_Number[id]=HeroSkills_A002_Number[id]-1
        exitwhen i<=0
        call Ltv((LoadInteger(BYHT,HeroSkills_A002_Vessel[id],HeroSkills_A002_Number[id])))
    endloop
    if HeroSkills_A002_Number[id]==0 then
        call RemoveUnitBJ(HeroSkills_A002_SoulUnit1[id],40)
        set HeroSkills_A002_SoulUnit1[id]=null
    endif
    if HeroSkills_A002_Number[id]<2 and HeroSkills_A002_SoulUnit2[id]!=null then
        call RemoveUnitBJ(HeroSkills_A002_SoulUnit2[id],41)
        set HeroSkills_A002_SoulUnit2[id]=null
    endif
    if HeroSkills_A002_SoulUnit3[id]!=null then
        call RemoveUnitBJ(HeroSkills_A002_SoulUnit3[id],42)
        set HeroSkills_A002_SoulUnit3[id]=null
    endif
    return LoadInteger(BYHT,HeroSkills_A002_Vessel[id],HeroSkills_A002_Number[id])
endfunction

function HeroSkills_A002_End takes integer id returns nothing
    if HeroSkills_A002_Use[id]then
        set HeroSkills_A002_Last[HeroSkills_A002_Next[id]]=HeroSkills_A002_Last[id]
        set HeroSkills_A002_Next[HeroSkills_A002_Last[id]]=HeroSkills_A002_Next[id]
        set HeroSkills_A002_Use[id]=false
        if HeroSkills_A002_Next[(0)]==0 then
            call frv(HeroSkills_A002_Func)
        endif
        call Unit_Cancel_Counter(461,(id))
    endif
endfunction

function HeroSkills_A002_Loop_c takes nothing returns nothing
    local integer id=HeroSkills_A002_Next[(0)]
    local integer fx
    local integer i
    local real x
    local real y
    local real a
    local real r
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set i=HeroSkills_A002_Number[id]
            set HeroSkills_A002_Cycle[id]=HeroSkills_A002_Cycle[id]+1
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            if HeroSkills_A002_Cycle[id]==55 then
                set HeroSkills_A002_Cycle[id]=0
            endif
            if i!=0 then
                set r=i
                loop
                    set i=i-1
                    set fx=LoadInteger(BYHT,HeroSkills_A002_Vessel[id],i)
                    set a=Lx*(i/ r+HeroSkills_A002_Cycle[id]/ 55.)
                    call LKv(fx,x+107.5*Cos(a))
                    call Llv(fx,y+107.5*Sin(a))
                    call SetUnitFacing(II[(fx)],((a+.25*Lx)*1.)*bj_RADTODEG)
                    exitwhen i==0
                endloop
            endif
        endif
        set id=HeroSkills_A002_Next[id]
    endloop
endfunction

function HeroSkills_A002_Stop takes nothing returns nothing
    local integer id=le
    local integer i=HeroSkills_A002_Number[id]
    loop
        exitwhen i==0
        set i=i-1
        call Ltv((LoadInteger(BYHT,HeroSkills_A002_Vessel[id],i)))
    endloop
    call ReleaseTimer(HeroSkills_A002_Timer[id],"[TimerUtils]Error:362")
    call free(HeroSkills_A002_Vessel[id])
    call HeroSkills_A002_End(id)
    set HeroSkills_A002_Timer[id]=null
endfunction

function HeroSkills_A002_App takes integer id returns integer
    if not HeroSkills_A002_Use[id]then
        if HeroSkills_A002_Next[(0)]==0 then
            if HeroSkills_A002_Func==0 then
                set HeroSkills_A002_Func=fxv(function HeroSkills_A002_Loop_c)
            endif
            call fov(HeroSkills_A002_Func)
        endif
        set HeroSkills_A002_Next[id]=HeroSkills_A002_Next[(0)]
        set HeroSkills_A002_Last[HeroSkills_A002_Next[(0)]]=id
        set HeroSkills_A002_Next[(0)]=id
        set HeroSkills_A002_Last[id]=0
        set HeroSkills_A002_Use[id]=true
        call Unit_App_Counter(462,(id))
    endif
    return id
endfunction

function HeroSkills_A002_SoulCreate takes integer id returns nothing
    local integer fx
    local real a
    if HeroSkills_A002_Number[id]<3+(GetUnitAbilityLevel((Je[(id)]),'A002')+1)/ 4 then
        set a=Lx*HeroSkills_A002_Cycle[id]/ 55
        set fx=Lnv(GetUnitX((Je[(id)]))+107.5*Cos(a),GetUnitY((Je[(id)]))+107.5*Sin(a),a)
        call LMv(fx,"CurseBoltGreen.mdl")
        call SetUnitFlyHeight(II[(fx)],((80)*1.),0)
        call SetUnitScale(II[(fx)],((.8)*1.),0,0)
        call SaveInteger(BYHT,HeroSkills_A002_Vessel[id],HeroSkills_A002_Number[id],fx)
        set HeroSkills_A002_Number[id]=HeroSkills_A002_Number[id]+1
        if HeroSkills_A002_SoulUnit1[id]==null then
            set HeroSkills_A002_SoulUnit1[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'e006',0,0,0)
        elseif HeroSkills_A002_Number[id]>1 and HeroSkills_A002_SoulUnit2[id]==null then
            set HeroSkills_A002_SoulUnit2[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'e00H',0,0,0)
        endif
        if HeroSkills_A002_Number[id]==5 then
            set HeroSkills_A002_SoulUnit3[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'e007',0,0,0)
        endif
    endif
endfunction

function HeroSkills_A002_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real r=8-.4*GetUnitAbilityLevel((Je[(id)]),'A002')-UnitMpRegen[(id)]/ 200.
    if r<1. then
        set r=1.
    endif
    call HeroSkills_A002_SoulCreate(id)
    if HeroSkills_A002_Number2[id]>0 then
        set HeroSkills_A002_Number2[id]=HeroSkills_A002_Number2[id]-1
        if HeroSkills_A002_Number2[id]==0 then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08O','Bclf')
            call TimerStart(HeroSkills_A002_Timer[id],r,false,function HeroSkills_A002_Start)
        else
            call TimerStart(HeroSkills_A002_Timer[id],1,false,function HeroSkills_A002_Start)
        endif
    else
        call TimerStart(HeroSkills_A002_Timer[id],r,false,function HeroSkills_A002_Start)
    endif
endfunction

function HeroSkills_A002_SoulFastRecovery takes integer id returns nothing
    set HeroSkills_A002_Number2[id]=20
    call UnitAddAbilityBY((Je[(id)]),'A08O')
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2))
    call TimerStart(HeroSkills_A002_Timer[id],1,false,function HeroSkills_A002_Start)
endfunction

function Hero_EnterWorld_H008 takes nothing returns nothing
    local integer id=HeroSkills_A002_App(le)
    local unit u=(Je[(id)])
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    set HeroSkills_A002_Vessel[id]=malloc()
    set HeroSkills_A002_Timer[id]=NewTimer(id)
    set HeroSkills_A002_Number[id]=0
    set HeroSkills_A002_Cycle[id]=0
    call TimerStart(HeroSkills_A002_Timer[id],8-.4,false,function HeroSkills_A002_Start)
    call UnitAddBeRemoveTrig(id,Condition(function HeroSkills_A002_Stop))
    set u=null
endfunction

function HeroSkills_A002_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H008',function Hero_EnterWorld_H008)
endfunction

function HeroSkills_SoulBarrage_collision takes nothing returns nothing
    local integer b=s__SoulMissile_Last_Missile
    if UnitAlive(s__barrage_target[b])then
        if s__SoulMissile_Type[b]==1 then
            call UnitCureTaret(s__barrage_target[b],s__barrage_target[b],.25*GetUnitState(s__barrage_target[b],UNIT_STATE_MAX_LIFE))
        elseif s__SoulMissile_Type[b]==2 then
            call UnitCureTaret(s__barrage_target[b],s__barrage_target[b],.45*GetHeroState3(s__barrage_target[b],true))
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",s__barrage_target[b],"origin"))
        call HeroSkills_A002_SoulCreate((GetUnitUserData((s__barrage_target[b]))))
    endif
endfunction

function HeroSkills_SoulBarrage_Create takes unit host,unit t,integer i returns nothing
    local integer b
    if UnitAlive(host)then
        set b=CreateBarrageTypeC(GetUnitX(host),GetUnitY(host),GetUnitFlyHeight(host)+75,t)
    else
        set b=CreateBarrageTypeC(GetUnitX(host),GetUnitY(host),GetUnitFlyHeight(host),t)
    endif
    set s__SoulMissile_Type[b]=i
    call LMv(s__barrage_model[b],"Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[b])],((.75)*1.),0,0)
    call s__SoulMissile_BarrageFiringByA(b,function HeroSkills_SoulBarrage_collision,GetRandomReal(0,6.28),GetRandomReal(0,bj_PI),45,0,1.6)
endfunction

function HeroSkills_A00O_End takes integer id returns nothing
    call UnitRemoveAbilityBY((Je[(id)]),'A00O')
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A00E',true)
endfunction

function HeroSkills_A00O_Stop takes integer id returns nothing
    if HeroSkills_A00O_Use[id]then
        set HeroSkills_A00O_Last[HeroSkills_A00O_Next[id]]=HeroSkills_A00O_Last[id]
        set HeroSkills_A00O_Next[HeroSkills_A00O_Last[id]]=HeroSkills_A00O_Next[id]
        set HeroSkills_A00O_Use[id]=false
        if HeroSkills_A00O_Next[(0)]==0 then
            call frv(HeroSkills_A00O_Func)
        endif
        call HeroSkills_A00O_End(id)
        call Unit_Cancel_Counter(463,(id))
    endif
endfunction

function HeroSkills_A00O_Loop_c takes nothing returns nothing
    local integer id=HeroSkills_A00O_Next[(0)]
    loop
        exitwhen id==0
        set HeroSkills_A00O_Duration[id]=HeroSkills_A00O_Duration[id]-1
        if GetUnitTypeId((Je[(HeroSkills_A00O_Target[id])]))==0 or HeroSkills_A00O_Duration[id]<1 then
            call HeroSkills_A00O_Stop(id)
        endif
        set id=HeroSkills_A00O_Next[id]
    endloop
endfunction

function HeroSkills_A00O_App takes integer id returns boolean
    if not HeroSkills_A00O_Use[id]then
        if HeroSkills_A00O_Next[(0)]==0 then
            if HeroSkills_A00O_Func==0 then
                set HeroSkills_A00O_Func=fxv(function HeroSkills_A00O_Loop_c)
            endif
            call fov(HeroSkills_A00O_Func)
        endif
        set HeroSkills_A00O_Next[id]=HeroSkills_A00O_Next[(0)]
        set HeroSkills_A00O_Last[HeroSkills_A00O_Next[(0)]]=id
        set HeroSkills_A00O_Next[(0)]=id
        set HeroSkills_A00O_Last[id]=0
        set HeroSkills_A00O_Use[id]=true
        call Unit_App_Counter(464,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A00O_CurseTarget takes unit s,unit t returns nothing
    local integer id=(GetUnitUserData((s)))
    if HeroSkills_A00O_App(id)then
        call UnitAddAbilityLevelBY(s,'A00O',GetUnitAbilityLevel(s,'A00E'))
    endif
    set HeroSkills_A00O_Target[id]=(GetUnitUserData((t)))
    set HeroSkills_A00O_Duration[id]=64
endfunction

function HeroSkills_A00O_Start takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A00O')
    local real d=($96*lv+GetHeroState3((Je[(id)]),true)*(7.5+.5*lv))*sc___prototype151_evaluate(1,(id))
    local real x=GetUnitX((Je[(HeroSkills_A00O_Target[id])]))
    local real y=GetUnitY((Je[(HeroSkills_A00O_Target[id])]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,450+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,450)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitAppBuff((GetUnitUserData((u))),'A00G',$D00DD)
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                if u==(Je[(HeroSkills_A00O_Target[id])])then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                else
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call Puv("DRAL",u,(Je[(HeroSkills_A00O_Target[id])]),1.25,1,0)
                endif
            endif
        endif
    endloop
    call Ltv(LAv("EarthNova.mdl",x,y,.625))
    call HeroSkills_A00O_Stop(id)
endfunction

function HeroSkills_A00O_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00O',function HeroSkills_A00O_Start)
    call Luv('A00O')
endfunction

function s__SoulBoltBuff_Stop takes integer this returns nothing
    if s__SoulBoltBuff_Use[this]then
        set s__SoulBoltBuff_Last[s__SoulBoltBuff_Next[this]]=s__SoulBoltBuff_Last[this]
        set s__SoulBoltBuff_Next[s__SoulBoltBuff_Last[this]]=s__SoulBoltBuff_Next[this]
        set s__SoulBoltBuff_Use[this]=false
        if s__SoulBoltBuff_Next[(0)]==0 then
            call frv(s__SoulBoltBuff_Func)
        endif
        call UnitRemoveAbilityandBuffBY((Je[(this)]),'A00M','B006')
        call Unit_Cancel_Counter(465,s__SoulBoltBuff_Source[this])
        call Unit_Cancel_Counter(466,(this))
    endif
endfunction

function s__SoulBoltBuff_Loop_c takes nothing returns nothing
    local integer this=s__SoulBoltBuff_Next[(0)]
    loop
        exitwhen this==0
        if UnitAlive((Je[(this)]))then
            set s__SoulBoltBuff_Duration[this]=s__SoulBoltBuff_Duration[this]-1
        else
            set s__SoulBoltBuff_Duration[this]=0
            call HeroSkills_SoulBarrage_Create((Je[(this)]),(Je[(s__SoulBoltBuff_Source[this])]),1)
        endif
        if s__SoulBoltBuff_Duration[this]<1 then
            call s__SoulBoltBuff_Stop(this)
        endif
        set this=s__SoulBoltBuff_Next[this]
    endloop
endfunction

function s__SoulBoltBuff_APP takes integer this returns boolean
    if not s__SoulBoltBuff_Use[this]then
        if s__SoulBoltBuff_Next[(0)]==0 then
            if s__SoulBoltBuff_Func==0 then
                set s__SoulBoltBuff_Func=fxv(function s__SoulBoltBuff_Loop_c)
            endif
            call fov(s__SoulBoltBuff_Func)
        endif
        set s__SoulBoltBuff_Next[this]=s__SoulBoltBuff_Next[(0)]
        set s__SoulBoltBuff_Last[s__SoulBoltBuff_Next[(0)]]=this
        set s__SoulBoltBuff_Next[(0)]=this
        set s__SoulBoltBuff_Last[this]=0
        set s__SoulBoltBuff_Use[this]=true
        call Unit_App_Counter(467,(this))
        return true
    endif
    return false
endfunction

function s__SoulBoltBuff_AtkTarget takes unit s,unit u returns nothing
    local integer this=(GetUnitUserData((u)))
    if not(PB[(this)])then
        if s__SoulBoltBuff_APP(this)then
            call UnitAddAbilityBY((Je[(this)]),'A00M')
        else
            call Unit_Cancel_Counter(468,s__SoulBoltBuff_Source[this])
        endif
        set s__SoulBoltBuff_Source[this]=(GetUnitUserData((s)))
        set s__SoulBoltBuff_Duration[this]=288
        call Unit_App_Counter(469,s__SoulBoltBuff_Source[this])
    endif
endfunction

function s__SoulBolt_collision takes integer this returns boolean
    local integer lv
    if UnitAlive(s__barrage_target[this])then
        set lv=GetUnitAbilityLevel(s__barrage_atkunit[this],'A00E')
        call s__SoulBoltBuff_AtkTarget(s__barrage_atkunit[this],s__barrage_target[this])
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__SoulBolt_damage[this]*($96*lv+GetHeroState3(s__barrage_atkunit[this],true)*(5+.5*lv)))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
    call HeroSkills_A00O_CurseTarget(s__barrage_atkunit[this],s__barrage_target[this])
    return true
endfunction

function s__SoulBolt_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__SoulBolt_launcher]
    local unit u
    if this!=s__SoulBolt_launcher then
        call UseBarrage(s__SoulBolt_launcher)
        loop
            exitwhen this==s__SoulBolt_launcher
            if(s__barrage_outside[(this)])or(s__barrage_finish[(this)])then
                call s__SoulBolt_collision(this)
                call RemoveBarrage(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__SoulBolt_launcher]then
        set s__barrage_InOperation[s__SoulBolt_launcher]=false
        call frv(s__SoulBolt_func)
    endif
endfunction

function s__SoulBolt_fired takes integer this returns nothing
    call s__barrage_Filling((s__SoulBolt_launcher),(this))
    if not s__barrage_InOperation[s__SoulBolt_launcher]then
        set s__barrage_InOperation[s__SoulBolt_launcher]=true
        call fov(s__SoulBolt_func)
    endif
endfunction

function HeroSkills_A00E_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real m=(1.+.12*HeroSkills_A002_Number[((id))])
    local integer t=CreateBarrageTypeB((Je[(id)]),GetSpellTargetUnit(),HeroSkills_A002_SoulExpend((id),1))
    set s__barrage_speed[t]=45
    set s__SoulBolt_damage[t]=m
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A00E',false)
    call s__SoulBolt_fired(t)
endfunction

function HeroSkills_A00E_Init takes nothing returns nothing
    set s__SoulBolt_func=fxv(function s__SoulBolt_start)
    set s__SoulBolt_launcher=NewLauncher()
    call RegisterSpellEffectEvent('A00E',function HeroSkills_A00E_Actions)
    call Luv('A00E')
endfunction

function HeroSkills_A01U_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    set HeroSkills_A01U_Duration[id]=HeroSkills_A01U_Duration[id]-1
    if HeroSkills_A01U_Duration[id]>0 and UnitAlive((Je[(id)]))then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A01U_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("EvilMissileofShadowyDOOMV2.mdl",u,"chest"))
                endif
            endif
        endloop
    else
        call ReleaseTimer(HeroSkills_A01U_Timer[id],"[TimerUtils]Error:363")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A047','B01L')
        call ModifyUnitMagicDamage((id),-HeroSkills_A01U_MDG[id])
        call DeUnitMdef((id),HeroSkills_A01U_Mdef[id])
        call Unit_Cancel_Counter(470,(id))
        set HeroSkills_A01U_Timer[id]=null
        set HeroSkills_A01U_MDG[id]=0
    endif
endfunction

function HeroSkills_A01U_Actions_func01 takes nothing returns nothing
    local integer b=s__SoulMissile_Last_Missile
    local unit c
    local integer id=(GetUnitUserData((s__barrage_target[b])))
    local integer lv
    local real d
    if s__SoulMissile_Type[b]>0 then
        if UnitAlive(s__barrage_target[b])then
            set c=s__barrage_atkunit[b]
            set lv=s__SoulMissile_Type[b]
            set d=$A+lv
            set HeroSkills_A01U_Duration[id]=40
            set HeroSkills_A01U_Damage[id]=GetHeroState3(c,true)*(2+.2*lv)*(1.+.12*HeroSkills_A002_Number[((GetUnitUserData((c))))])
            if d>HeroSkills_A01U_MDG[id]then
                call ModifyUnitMagicDamage((id),d-HeroSkills_A01U_MDG[id])
                set HeroSkills_A01U_MDG[id]=d
            endif
            if HeroSkills_A01U_Timer[id]==null then
                set HeroSkills_A01U_Timer[id]=NewTimer(id)
                set HeroSkills_A01U_Mdef[id]=ModifyUnitMdef((id),$F)
                call UnitAddAbilityBY((Je[(id)]),'A047')
                call TimerStart(HeroSkills_A01U_Timer[id],1.5,true,function HeroSkills_A01U_Start)
                call Unit_App_Counter(471,(id))
            endif
            set c=null
        else
            set s__SoulMissile_Type[b]=0
            set s__barrage_target[b]=s__barrage_atkunit[b]
            set s__barrage_finish[(b)]=false
        endif
    else
        if UnitAlive(s__barrage_target[b])then
            call HeroSkills_A002_SoulCreate(id)
        endif
    endif
endfunction

function HeroSkills_A01U_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local unit c
    local integer lv
    local real d
    local integer b
    if Hc[(id)]then
        set b=CreateBarrageTypeB(GetTriggerUnit(),GetSpellTargetUnit(),HeroSkills_A002_SoulExpend((GetUnitUserData((GetTriggerUnit()))),1))
        set s__SoulMissile_Type[b]=GetUnitAbilityLevel(GetTriggerUnit(),'A01U')
        call s__SoulMissile_BarrageFiringByA(b,function HeroSkills_A01U_Actions_func01,(GetUnitFacing(II[(s__barrage_model[b])]))*bj_DEGTORAD,GetRandomReal(.15,.25),60,0,1.6)
    else
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    endif
endfunction

function HeroSkills_A01U_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01U',function HeroSkills_A01U_Actions)
    call Luv('A01U')
endfunction

function Summon_h019_BuffA0LG_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:364")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0LH','B047')
    call ModifyUnitAttackSpeed((id),-30*Summon_h019_BuffA0LG_Lv[id])
    call Unit_Cancel_Counter(472,(id))
    set Summon_h019_BuffA0LG_Timer[id]=null
endfunction

function Summon_h019_KillMonsters takes nothing returns nothing
    local unit SoulVega=(Je[((Master[((GetUnitUserData((IF))))]))])
    if IsUnitInRange(IF,SoulVega,$BB8)and GetRandomInt(1,100)<30+3*GetUnitAbilityLevel(SoulVega,'A0LE')then
        call HeroSkills_SoulBarrage_Create(GetTriggerUnit(),SoulVega,0)
    endif
    set SoulVega=null
endfunction

function Summon_h019_onAttkex takes nothing returns nothing
    local integer id=(pF_v)
    local integer s=(Master[((pF_v))])
    local unit SoulVega=(Je[(s)])
    call DamageAmplify((1.5*GetHeroState3(SoulVega,true))*(1.+Unit_MATK[s])*(1.-GetUnitMdef((pF)))*ROrBY((IsUnitType(((MF)),UNIT_TYPE_GIANT)),.4,1))
    if Summon_h019_BuffA0LG_Timer[id]==null then
        set Summon_h019_BuffA0LG_Timer[id]=NewTimer(id)
        set Summon_h019_BuffA0LG_Lv[id]=0
        call UnitAddAbilityBY((mF),'A0LH')
        call Unit_App_Counter(473,(id))
    endif
    if Summon_h019_BuffA0LG_Lv[id]<3 then
        set Summon_h019_BuffA0LG_Lv[id]=Summon_h019_BuffA0LG_Lv[id]+1
        call ModifyUnitAttackSpeed((id),30)
    endif
    if IsUnitInRange(IF,SoulVega,$BB8)and GetRandomReal(1,100)<3.+.4*GetUnitAbilityLevel(SoulVega,'A0LE')then
        call HeroSkills_SoulBarrage_Create((MF),SoulVega,0)
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",(MF),"chest"))
    call TimerStart(Summon_h019_BuffA0LG_Timer[id],2,false,function Summon_h019_BuffA0LG_Expired)
    set SoulVega=null
endfunction

function Summon_h019_Init takes nothing returns nothing
    call UnitAddPAttackTrig((le),function Summon_h019_onAttkex)
    call HeroAddKillTrig((le),function Summon_h019_KillMonsters)
endfunction

function HeroSkills_A0LE_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local integer i
    local real x
    local real y
    local real a
    if UnitAlive(Boss_Spell_unit2[data])then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        set x=GetUnitX(Boss_Spell_unit2[data])
        set y=GetUnitY(Boss_Spell_unit2[data])
        if ModuloInteger(Boss_Spell_data3[data],8)==0 then
            set Boss_Spell_Z[data]=Boss_Spell_Z[data]+.125*Lx
            set i=4
            loop
                set i=i-1
                set a=Boss_Spell_Z[data]+i*Lx/ 4.
                call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+$E1*Cos(a),y+$E1*Sin(a),1.25))
                call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+450*Cos(a),y+450*Sin(a),1.25))
                call Ltv(LAv("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",x+450*Cos(a),y+450*Sin(a),3))
                exitwhen i==0
            endloop
        endif
        call SetUnitVertexColor(Boss_Spell_unit2[data],25,35,25,R2I(255.-255.*Boss_Spell_data3[data]/ 80.))
    else
        set Boss_Spell_data3[data]=0
    endif
    if Boss_Spell_data3[data]<1 then
        call SetUnitNotSeckill(Boss_Spell_data2[data],false)
        if UnitAlive(Boss_Spell_unit2[data])then
            set i=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A0LE')
            call GroupEnumUnitsInRange(G,x,y,350+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,350)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                        call m1v(u,3)
                    endif
                endif
            endloop
            if i>=5 then
                if UnitHasItemOfType(Boss_Spell_unit1[data],'rwiz')then
                    call UnitAddAbilityBY(Boss_Spell_unit2[data],'A0LM')
                else
                    call UnitAddAbilityBY(Boss_Spell_unit2[data],'A0LJ')
                endif
                call UnitAddAbilityBY(Boss_Spell_unit2[data],'A0CN')
                call SetUnitAbilityLevelBY(Boss_Spell_unit2[data],'A0LI',i)
                if i>=9 then
                    call UnitAddAbilityBY(Boss_Spell_unit2[data],'A0LK')
                endif
            endif
            call PauseUnit(Boss_Spell_unit2[data],false)
            call SetUnitInvulnerable(Boss_Spell_unit2[data],false)
            call SetUnitPathing(Boss_Spell_unit2[data],true)
            call zhv((Kc[(Boss_Spell_data1[data])]),40,.75)
            call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,3),0,$CD,0,$FF))
        endif
        call Unit_Cancel_Counter(474,Boss_Spell_data1[data])
        call Unit_Cancel_Counter(475,Boss_Spell_data2[data])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:365")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function HeroSkills_A0LE_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit u
    local integer lv
    local real x
    local real y
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((Boss_Spell_unit1[data])))
    call KillUnit(HeroSkills_A0LE_Summon[Boss_Spell_data1[data]])
    set Boss_Spell_Z[data]=bj_DEGTORAD*GetUnitFacing(Boss_Spell_unit1[data])
    set lv=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A0LE')
    set x=GetUnitX(Boss_Spell_unit1[data])+$80*Cos(Boss_Spell_Z[data])
    set y=GetUnitY(Boss_Spell_unit1[data])+$80*Sin(Boss_Spell_Z[data])
    set HeroSkills_A0LE_Summon[Boss_Spell_data1[data]]=CreateUnit((P[Kc[((Boss_Spell_data1[data]))]]),'h019',x,y,bj_RADTODEG*Boss_Spell_Z[data])
    set Boss_Spell_unit2[data]=HeroSkills_A0LE_Summon[Boss_Spell_data1[data]]
    set Boss_Spell_data2[data]=(GetUnitUserData((Boss_Spell_unit2[data])))
    set Boss_Spell_data3[data]=80
    call SetUnitNotSeckill(Boss_Spell_data2[data],true)
    call ModifyUnitHP((Boss_Spell_data2[data]),R2I($FA0*lv+2.5*GetHeroState3(Boss_Spell_unit1[data],true)))
    call SummonedUnitSetMaster(Boss_Spell_data2[data],Boss_Spell_data1[data])
    call UnitApplyTimedLife(Boss_Spell_unit2[data],'BTLF',600)
    call PauseUnit(Boss_Spell_unit2[data],true)
    call SetUnitInvulnerable(Boss_Spell_unit2[data],true)
    call SetUnitPathing(Boss_Spell_unit2[data],false)
    call SetUnitVertexColor(Boss_Spell_unit2[data],25,35,25,0)
    call SetPlayerTechResearched((P[Kc[((Boss_Spell_data1[data]))]]),'Rhar',lv)
    call Ltv(Lfv(LAv("Abilities\\Spells\\Items\\AIso\\AIsoTarget.mdl",x,y,5),0,$CD,0,$FF))
    call Unit_App_Counter(476,Boss_Spell_data1[data])
    call Unit_App_Counter(477,Boss_Spell_data2[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A0LE_Start)
endfunction

function SummonSkills_A0LM_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local integer i
    local real x
    local real y
    local real a
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    call Lfv(Boss_Spell_data2[data],25,$FF,25,R2I(85.+40.*Boss_Spell_data3[data]/ 16.))
    if ModuloInteger(Boss_Spell_data3[data],4)==0 then
        set i=5
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        loop
            set i=i-1
            set a=Lx*(i/ 5.+Boss_Spell_data3[data]/ 8.)
            call Ltv(Lfv(LNv("CurseBoltGreen.mdl",x+325*Cos(a),y+325*Sin(a),50,1.25),55,$FF,55,$9B))
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,400+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,400)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((.125*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("EvilMissileofShadowyDOOMV2.mdl",u,"chest"))
                endif
            endif
        endloop
        if Boss_Spell_data3[data]<1 then
            call GroupEnumUnitsInRange(G,x,y,400+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,400)then
                    if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        if s__SoulBoltBuff_Use[((GetUnitUserData((u))))]then
                            call sc___prototype195_evaluate(1,u,(Je[(Boss_Spell_data1[data])]),2)
                            call s__SoulBoltBuff_Stop(((GetUnitUserData((u)))))
                        endif
                        call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((.25*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Possession\\PossessionMissile.mdl",u,"chest"))
                    endif
                endif
            endloop
            call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.25),25,$FF,25,$9B))
            call LSv(Boss_Spell_data2[data],25,$FF,25,85,.5)
            call Unit_Cancel_Counter(478,Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:366")
        endif
    endif
endfunction

function SummonSkills_A0LM_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local integer id=(GetUnitUserData((u)))
    local integer c=(Master[(id)])
    local integer data
    if IsUnitInRange(u,(Je[(c)]),$4B0)then
        set data=Boss_Spell_allocate()
        set Boss_Spell_data1[data]=c
        set Boss_Spell_data2[data]=LVv('e00X',x,y,GetUnitFacing(u))
        call LDv(Boss_Spell_data2[data],1.5)
        set Boss_Spell_data3[data]=16
        set Boss_Spell_V[data]=40*GetHeroState3((Je[(Boss_Spell_data1[data])]),true)*sc___prototype151_evaluate(1,(Boss_Spell_data1[data]))
        call GroupEnumUnitsInRange(G,x,y,400+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,400)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call m1v(u,3)
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((.25*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    call DestroyEffect(AddSpecialEffectTarget("EvilMissileofShadowyDOOMV2.mdl",u,"chest"))
                endif
            endif
        endloop
        call Lfv(Boss_Spell_data2[data],25,$FF,25,125)
        call SetUnitAnimationByIndex(II[Boss_Spell_data2[data]],3)
        call Ltv(sc___prototype10_evaluate(1,(Boss_Spell_data1[data]),1))
        call zhv((Kc[(Boss_Spell_data1[data])]),$F,.25)
        call PlaySoundAtPoint_BJ((cn),((125)*1.),((x)*1.),((y)*1.),0)
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.75),25,$FF,25,$CD))
        call Unit_App_Counter(479,Boss_Spell_data1[data])
        call TimerStart(NewTimer(data),.03125,true,function SummonSkills_A0LM_Start)
    endif
    call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,4),55,$FF,55,$CD),.625)
    set u=null
endfunction

function SummonSkills_A0LM_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0LM',function SummonSkills_A0LM_Actions)
    call Luv('A0LM')
endfunction

function SummonSkills_A0LK_End takes integer id returns nothing
    if SummonSkills_A0LK_EffA[id]!=0 then
        call Ltv(SummonSkills_A0LK_EffA[id])
        set SummonSkills_A0LK_EffA[id]=0
    endif
    if SummonSkills_A0LK_EffB[id]!=0 then
        call Ltv(SummonSkills_A0LK_EffB[id])
        set SummonSkills_A0LK_EffB[id]=0
    endif
    call DestroyLightning(SummonSkills_A0LK_Lig[id])
    call Unit_Cancel_Counter(480,SummonSkills_A0LK_Master[id])
    set SummonSkills_A0LK_Lig[id]=null
endfunction

function SummonSkills_A0LK_Stop takes integer id returns nothing
    if SummonSkills_A0LK_Use[id]then
        set SummonSkills_A0LK_Last[SummonSkills_A0LK_Next[id]]=SummonSkills_A0LK_Last[id]
        set SummonSkills_A0LK_Next[SummonSkills_A0LK_Last[id]]=SummonSkills_A0LK_Next[id]
        set SummonSkills_A0LK_Use[id]=false
        if SummonSkills_A0LK_Next[(0)]==0 then
            call frv(SummonSkills_A0LK_Func)
        endif
        call SummonSkills_A0LK_End(id)
        call Unit_Cancel_Counter(481,(id))
    endif
endfunction

function SummonSkills_A0LK_Start takes nothing returns nothing
    local integer id=SummonSkills_A0LK_Next[(0)]
    local real x
    local real y
    local real z
    local real fX
    local real fY
    local real tX
    local real tY
    local real tZ
    local real dX
    local real dY
    local real r
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))and UnitAlive((Je[(SummonSkills_A0LK_Master[id])]))then
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            set tX=GetUnitX((Je[(SummonSkills_A0LK_Master[id])]))
            set tY=GetUnitY((Je[(SummonSkills_A0LK_Master[id])]))
            set dX=tX-x
            set dY=tY-y
            set r=SquareRoot(dX*dX+dY*dY)
            if r>$7D0 then
                set SummonSkills_A0LK_Time[id]=0
            else
                set SummonSkills_A0LK_Time[id]=SummonSkills_A0LK_Time[id]-1
                set z=90+GetUnitFlyHeight((Je[(id)]))
                set tZ=60+GetUnitFlyHeight((Je[(SummonSkills_A0LK_Master[id])]))
                call MoveLightningEx(SummonSkills_A0LK_Lig[id],true,x,y,z+GetPointZ(x,y),tX,tY,tZ+GetPointZ(tX,tY))
                if SummonSkills_A0LK_Count[id]==1 then
                    set r=.0625*SummonSkills_A0LK_Time[id]
                    call LKv(SummonSkills_A0LK_EffA[id],x+dX*r)
                    call Llv(SummonSkills_A0LK_EffA[id],y+dY*r)
                    call SetUnitFlyHeight(II[(SummonSkills_A0LK_EffA[id])],((z+(tZ-z)*r)*1.),0)
                    call LKv(SummonSkills_A0LK_EffB[id],tX-dX*r)
                    call Llv(SummonSkills_A0LK_EffB[id],tY-dY*r)
                    call SetUnitFlyHeight(II[(SummonSkills_A0LK_EffB[id])],((tZ-(tZ-z)*r)*1.),0)
                    if SummonSkills_A0LK_Time[id]<1 then
                        call SetUnitPosition((Je[(SummonSkills_A0LK_Master[id])]),x+.5*dX,y+.5*dY)
                        call SetUnitPosition((Je[(id)]),tX,tY)
                        call SetUnitPosition((Je[(SummonSkills_A0LK_Master[id])]),x,y)
                        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y))
                        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",tX,tY))
                        call Ltv(LAv("DesecrateGreen.mdx",x,y,.375))
                        call Ltv(LAv("DesecrateGreen.mdx",tX,tY,.75))
                        call zhv(((GetPlayerId(GetOwningPlayer((Je[(((SummonSkills_A0LK_Master[id])))]))))),40,.5)
                        call sc___prototype3_evaluate(6,(SummonSkills_A0LK_Master[id]))
                        call sc___prototype3_evaluate(6,(SummonSkills_A0LK_Master[id]))
                        call Ltv(SummonSkills_A0LK_EffA[id])
                        call Ltv(SummonSkills_A0LK_EffB[id])
                        set SummonSkills_A0LK_EffA[id]=0
                        set SummonSkills_A0LK_EffB[id]=0
                        set SummonSkills_A0LK_Count[id]=2
                        set SummonSkills_A0LK_Time[id]=8
                    endif
                else
                    call SetLightningColor(SummonSkills_A0LK_Lig[id],1,1,1,.125*SummonSkills_A0LK_Time[id])
                endif
            endif
        else
            set SummonSkills_A0LK_Time[id]=0
        endif
        if SummonSkills_A0LK_Time[id]<1 then
            call SummonSkills_A0LK_Stop(id)
        endif
        set id=SummonSkills_A0LK_Next[id]
    endloop
endfunction

function SummonSkills_A0LK_Open takes integer id returns integer
    if SummonSkills_A0LK_Use[id]then
        call SummonSkills_A0LK_End(id)
    else
        if SummonSkills_A0LK_Next[(0)]==0 then
            if SummonSkills_A0LK_Func==0 then
                set SummonSkills_A0LK_Func=fxv(function SummonSkills_A0LK_Start)
            endif
            call fov(SummonSkills_A0LK_Func)
        endif
        set SummonSkills_A0LK_Next[id]=SummonSkills_A0LK_Next[(0)]
        set SummonSkills_A0LK_Last[SummonSkills_A0LK_Next[(0)]]=id
        set SummonSkills_A0LK_Next[(0)]=id
        set SummonSkills_A0LK_Last[id]=0
        set SummonSkills_A0LK_Use[id]=true
        call Unit_App_Counter(482,(id))
    endif
    return id
endfunction

function SummonSkills_A0LK_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer c=(Master[(id)])
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real z=90+GetUnitFlyHeight((Je[(id)]))
    local real tX
    local real tY
    local real tZ
    if IsUnitInRange((Je[(id)]),(Je[(c)]),$3E8)then
        call SummonSkills_A0LK_Open(id)
        set SummonSkills_A0LK_Master[id]=c
        set tX=GetUnitX((Je[(SummonSkills_A0LK_Master[id])]))
        set tY=GetUnitY((Je[(SummonSkills_A0LK_Master[id])]))
        set tZ=60+GetUnitFlyHeight((Je[(SummonSkills_A0LK_Master[id])]))
        set SummonSkills_A0LK_Lig[id]=AddLightningEx("DRAL",true,x,y,z+GetPointZ(x,y),tX,tY,tZ+GetPointZ(tX,tY))
        set SummonSkills_A0LK_EffA[id]=LNv("GhostMissile2.mdx",x,y,z,1.5)
        set SummonSkills_A0LK_EffB[id]=LNv("GhostMissile2.mdx",tX,tY,tZ,1.5)
        set SummonSkills_A0LK_Count[id]=1
        set SummonSkills_A0LK_Time[id]=16
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",(Je[(id)]),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(Je[(id)]),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl",(Je[(SummonSkills_A0LK_Master[id])]),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(Je[(SummonSkills_A0LK_Master[id])]),"origin"))
        call Ltv(sc___prototype10_evaluate(1,(SummonSkills_A0LK_Master[id]),1))
        call Unit_App_Counter(483,SummonSkills_A0LK_Master[id])
    else
        call IssueUnitStop_DisplayText((Je[(id)]),"1000Soul nearby yard")
    endif
endfunction

function SummonSkills_A0LK_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0LK',function SummonSkills_A0LK_Actions)
    call Luv('A0LK')
endfunction

function HeroSkills_A0LE_Init takes nothing returns nothing
    call SummonSkills_A0LM_Init()
    call SummonSkills_A0LK_Init()
    call RegisterEnterworldEvent('h019',function Summon_h019_Init)
    call RegisterSpellEffectEvent('A0LE',function HeroSkills_A0LE_Actions)
    call Luv('A0LE')
endfunction

function HeroSkills_A00U_Buff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:367")
    call DeUnitMdef((id),HeroSkills_A00U_Buff_Mdef[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A02H','B01J')
    call Unit_Cancel_Counter(484,(id))
    set HeroSkills_A00U_Buff_Timer[id]=null
endfunction

function HeroSkills_A00U_Buff_App takes unit u,real r returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A00U_Buff_Timer[id]==null then
        set HeroSkills_A00U_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A00U_Buff_Mdef[id]=ModifyUnitMdef((id),r)
        call UnitAddAbilityBY((Je[(id)]),'A02H')
        call Unit_App_Counter(485,(id))
    elseif r<(100*s__unitseate_table_v[(HeroSkills_A00U_Buff_Mdef[id])])then
        call UnitMdefChange((id),HeroSkills_A00U_Buff_Mdef[id],r)
    endif
    call TimerStart(HeroSkills_A00U_Buff_Timer[id],$C,false,function HeroSkills_A00U_Buff_Expired)
endfunction

function HeroSkills_A00U_Start takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:368")
    local integer lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A00U')
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,325+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,325)then
            if IsUnitAliveAndEnemyNotAvul(u,(Je[(Boss_Spell_data1[data])]))then
                call m1v(u,2.5+.2*lv)
                call HeroSkills_A00U_Buff_App(u,-($A+.5*lv))
            endif
        endif
    endloop
    call DestroyEffect(AddSpecialEffect("DarkPillar.mdl",x,y))
    call DestroyEffect(AddSpecialEffect("DarkNova.mdl",x,y))
    call PlaySoundAtPoint_BJ((pa),((100)*1.),((x)*1.),((y)*1.),0)
    call Unit_Cancel_Counter(486,Boss_Spell_data1[data])
    call Boss_Spell_deallocate(data)
endfunction

function HeroSkills_A00U_Actions_func03 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer bc=Boss_Spell_data3[data]
    local real t=Boss_Spell_Y[data]+.05
    local real x=s__BezierCurve_getx(bc,t)
    local real y=s__BezierCurve_gety(bc,t)
    local real z=s__BezierCurve_getz(bc,t)
    local unit u
    call LKv(Boss_Spell_data2[data],x)
    call Llv(Boss_Spell_data2[data],y)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((z)*1.),0)
    if Boss_Spell_Y[data]>=1 then
        call GroupEnumUnitsInRange(G,x,y,$E1+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$E1)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y))
        call Ltv(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:369")
    else
        set Boss_Spell_Y[data]=t
    endif
endfunction

function HeroSkills_A00U_Actions_func02 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call LMv(Boss_Spell_data2[data],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((1.25)*1.),0,0)
    call TimerStart(GetExpiredTimer(),.03125,true,function HeroSkills_A00U_Actions_func03)
endfunction

function HeroSkills_A00U_Actions_func01 takes integer id,real damage,real sx,real px,real x1,real x2,real sy,real py,real y1,real y2,real sz,real pz,real z1,real z2,real time returns nothing
    local integer data=Boss_Spell_allocate()
    local integer bc=s__BezierCurve_Power3(sx,sy,sz,px,py,pz,x1,y1,z1,x2,y2,z2)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=Lnv(sx,sy,Atan2(y2-sy,x2-sx))
    set Boss_Spell_data3[data]=bc
    set Boss_Spell_X[data]=damage
    set Boss_Spell_Y[data]=0
    call TimerStart(NewTimer(data),time,false,function HeroSkills_A00U_Actions_func02)
endfunction

function HeroSkills_A00U_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit u=GetTriggerUnit()
    local integer lv=GetUnitAbilityLevel(u,'A00U')
    local integer i=$A
    local real damage=($C8*lv+(2.5+.2*lv)*GetHeroState3(u,true))*sc___prototype151_evaluate(1,(GetUnitUserData((u))))
    local integer fx=HeroSkills_A002_SoulExpend((GetUnitUserData((u))),2)
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local real tx=GetSpellTargetX()
    local real ty=GetSpellTargetY()
    local real dx=tx-x
    local real dy=ty-y
    local real a=Atan2(dy,dx)
    local real rz
    local real ra
    local real PUe
    local real ta
    local real td
    set Boss_Spell_data1[data]=(GetUnitUserData((u)))
    set Boss_Spell_X[data]=tx
    set Boss_Spell_Y[data]=ty
    loop
        set i=i-1
        set rz=GetRandomReal(525,675)
        set td=GetRandomReal(75,275)
        set ta=GetRandomReal(0,Lx)
        if i>4 then
            set ra=a+GetRandomReal(.2618,.9163)
            set PUe=ra-2.8944
        else
            set ra=a-GetRandomReal(.2618,.9163)
            set PUe=ra+2.8944
        endif
        call HeroSkills_A00U_Actions_func01(Boss_Spell_data1[data],damage,x,x-300*Cos(PUe),x+400*Cos(ra),tx+td*Cos(ta),y,y-300*Sin(PUe),y+400*Sin(ra),ty+td*Sin(ta),0,rz,.175*rz,0,.2+.04*i)
        exitwhen i==0
    endloop
    call TimerStart(NewTimer(data),1.25,false,function HeroSkills_A00U_Start)
    call PlaySoundAtPoint_BJ((Ma),((100)*1.),((x)*1.),((y)*1.),0)
    call Ltv(fx)
    call Unit_App_Counter(487,Boss_Spell_data1[data])
    set u=null
endfunction

function HeroSkills_A00U_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00U',function HeroSkills_A00U_Actions)
    call Luv('A00U')
endfunction

function HeroSkills_A05I_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real d
    if UnitAlive(Boss_Spell_unit1[data])then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        set i=$A
        set x=GetUnitX(Boss_Spell_unit1[data])
        set y=GetUnitY(Boss_Spell_unit1[data])
        if Boss_Spell_data3[data]>56 then
            set d=525.-461.*(Boss_Spell_data3[data]-56.)/ 8.
        else
            set d=525.
            call GroupEnumUnitsInRange(G,x,y,562.5+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,562.5)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            call zKv((Kc[(Boss_Spell_data1[data])]),125,$FF,125,.125)
            call zhv((Kc[(Boss_Spell_data1[data])]),35,.125)
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\Impale\\ImpaleMissTarget.mdl",x+GetRandomReal(-450,300),y+GetRandomReal(-450,450)))
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\Impale\\ImpaleMissTarget.mdl",x+GetRandomReal(-450,300),y+GetRandomReal(-450,450)))
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\Impale\\ImpaleHitTarget.mdl",x+GetRandomReal(-450,300),y+GetRandomReal(-450,450)))
        endif
        loop
            set i=i-1
            set a=(i/ 10.+Boss_Spell_data3[data]/ 32.)*Lx
            set fx=LoadInteger(BYHT,Boss_Spell_data2[data],i)
            call LKv(fx,x+d*Cos(a))
            call Llv(fx,y+d*Sin(a))
            call SetUnitFacing(II[(fx)],((a-.25*Lx)*1.)*bj_RADTODEG)
            exitwhen i==0
        endloop
    else
        set Boss_Spell_data3[data]=0
    endif
    if Boss_Spell_data3[data]<1 then
        set i=$A
        loop
            set i=i-1
            call Ltv((LoadInteger(BYHT,Boss_Spell_data2[data],i)))
            exitwhen i==0
        endloop
        call SetUnitAnimation(Boss_Spell_unit1[data],"stand")
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call Unit_Cancel_Counter(488,Boss_Spell_data1[data])
        call free(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:370")
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function HeroSkills_A05I_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer i=$A
    local integer lv
    local integer fx
    local unit u
    local real x
    local real y
    local real a
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=malloc()
    set Boss_Spell_data3[data]=64
    set lv=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A05I')
    set Boss_Spell_X[data]=($ABE*lv+GetHeroState3(Boss_Spell_unit1[data],true)*(25.+5.*lv))*sc___prototype151_evaluate(1,(Boss_Spell_data1[data]))/ 56.
    set x=GetUnitX(Boss_Spell_unit1[data])
    set y=GetUnitY(Boss_Spell_unit1[data])
    loop
        set i=i-1
        set a=i*Lx/ 10.
        set fx=Lnv(x+64*Cos(a),y+64*Sin(a),a-.25*Lx)
        call LMv(fx,"Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl")
        call SetUnitScale(II[(fx)],((.6)*1.),0,0)
        call SetUnitFlyHeight(II[(fx)],((50)*1.),0)
        call SaveInteger(BYHT,Boss_Spell_data2[data],i,fx)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,525+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,525)then
            if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                call m2v(u,4,'A500','B500',true)
                call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",u,"origin"))
            endif
        endif
    endloop
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
    call SetUnitAnimation(Boss_Spell_unit1[data],"Spell Channel")
    call Ltv(LAv("DesecrateGreen.mdl",x,y,2.5))
    call Ltv(sc___prototype10_evaluate(1,(Boss_Spell_data1[data]),2))
    call Unit_App_Counter(489,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A05I_Start)
endfunction

function HeroSkills_A05I_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A05I',function HeroSkills_A05I_Actions)
    call Luv('A05I')
endfunction

function HeroSkills_A04Q_Alloc takes nothing returns integer
    return D9v(HeroSkills_A04Q_Func)
endfunction

function HeroSkills_A04Q_Stop takes integer t returns nothing
    call fvv(t)
endfunction

function HeroSkills_A04Q_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A04Q_Func]
    local integer data
    local integer id
    local unit u
    local integer i
    local real x
    local real y
    local real nX
    local real nY
    local real nD
    local real a
    local real d
    local real c
    local real s
    local real vx=.9689
    local real vy=.2474
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        call GroupEnumUnitsInRange(G,x,y,575+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,575)then
                set id=(GetUnitUserData((u)))
                if(Je[(id)])==u and(not MB[id])and GetUnitMoveSpeed(u)>0 and IsUnitAliveAndEnemyNotAvul(u,(Je[(Boss_Spell_data1[data])]))then
                    set nX=GetUnitX(u)-x
                    set nY=GetUnitY(u)-y
                    set nD=SquareRoot(nX*nX+nY*nY)
                    set nD=(nD*.975-2.5)/ nD
                    set a=x+(vx*nX-vy*nY)*nD
                    set d=y+(vx*nY+vy*nX)*nD
                    if IsTerrainWalkable(a,d)then
                        call SetUnitX(u,a)
                        call SetUnitY(u,d)
                    endif
                endif
            endif
        endloop
        if Boss_Spell_data3[data]<1 then
            set i=$A
            set d=418*GetHeroState3((Je[(Boss_Spell_data1[data])]),true)
            loop
                set i=i-1
                set a=i*Lx/ $A
                set c=$C8*Cos(a)
                set s=$C8*Sin(a)
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+c,y+s))
                call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x+c,y+s))
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x+1.5*c,y+1.5*s))
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,425+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,425)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(Boss_Spell_data1[data])]))then
                        call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call UnitAppBuff((GetUnitUserData((u))),'A05J',$D02BC)
                    endif
                endif
            endloop
            call sc___prototype3_evaluate(7,(Boss_Spell_data1[data]))
            call Unit_Cancel_Counter(490,Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call fvv((t))
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A04Q_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer t=(D9v(HeroSkills_A04Q_Func))
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=Lnv(x,y,0)
    call LMv(Boss_Spell_data2[data],"VoidGreen.mdl")
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((50)*1.),0)
    call SetUnitScale(II[(Boss_Spell_data2[data])],((1.25)*1.),0,0)
    set Boss_Spell_data3[data]=108
    call PlaySoundAtPoint_BJ((Pa),((100)*1.),((x)*1.),((y)*1.),0)
    call Ltv(sc___prototype10_evaluate(1,(Boss_Spell_data1[data]),5))
    call Unit_App_Counter(491,Boss_Spell_data1[data])
endfunction

function HeroSkills_A04Q_Init takes nothing returns nothing
    set HeroSkills_A04Q_Func=fxv(function HeroSkills_A04Q_Start)
    call RegisterSpellEffectEvent('A04Q',function HeroSkills_A04Q_Actions)
endfunction

function Hero_H008_Init takes nothing returns nothing
    local integer i=0
    loop
        exitwhen i==16
        call SetPlayerAbilityAvailable(Player(i),'A0CN',false)
        set i=i+1
    endloop
    call RegisterHeroInitEvent('H008',function Hero_EnterWorld_H008)
    call HeroSkills_A00O_Init()
    call HeroSkills_A00E_Init()
    call HeroSkills_A01U_Init()
    call HeroSkills_A0LE_Init()
    call HeroSkills_A00U_Init()
    call HeroSkills_A05I_Init()
    call HeroSkills_A04Q_Init()
endfunction

function Hero_H009_Player takes integer id returns player
    return P[Kc[id]]
endfunction

function HeroSkills_A00T_Loop_c takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local integer c=Boss_Spell_data2[data]
    local real a
    local real d
    if UnitAlive((Je[(id)]))and UnitAlive((Je[(c)]))then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]+1
        if IsUnitInRange((Je[(id)]),(Je[(c)]),$3E8)==false then
            set a=GetRandomReal(0,Lx)
            set d=GetRandomReal(100,$96)
            call SetUnitPosition((Je[(id)]),GetUnitX((Je[(c)]))+d*Cos(a),GetUnitY((Je[(c)]))+d*Sin(a))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",(Je[(id)]),"origin"))
        elseif Boss_Spell_data3[data]>=32 then
            set Boss_Spell_data3[data]=0
            if GetUnitCurrentOrder((Je[(id)]))==0 then
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(125,$AF)
                call IssuePointOrderById((Je[(id)]),$D000F,GetUnitX((Je[(c)]))+d*Cos(a),GetUnitY((Je[(c)]))+d*Sin(a))
            endif
        endif
    else
        if UnitAlive((Je[(id)]))then
            call KillUnit((Je[(id)]))
        endif
        call DestroyEffect(AddSpecialEffect("Units\\NightElf\\Wisp\\WispExplode.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)]))))
        call Unit_Cancel_Counter(492,(id))
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:371")
    endif
endfunction

function HeroSkills_A00T_Create takes integer c,real x,real y returns nothing
    local integer data
    local integer id
    local integer mlv=GetHeroState3((Je[(c)]),true)
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A00T')
    local integer i=R2I(2+(lv-1)/ 3)
    local real a
    call SetPlayerTechResearched(GetOwningPlayer((Je[(c)])),'Rhst',R2I(lv/ 2))
    loop
        set i=i-1
        set id=(GetUnitUserData((CreateUnit((P[Kc[((c))]]),'hwt3',x+GetRandomReal(-$96,$96),y+GetRandomReal(-$96,$96),0))))
        call UnitApplyTimedLife((Je[(id)]),'B003',30)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",(Je[(id)]),"origin"))
        call SetUnitVertexColor((Je[(id)]),$CD,$CD,$CD,$CD)
        call ModifyUnitHP((id),R2I((2+.2*lv)*mlv))
        call ModifyUnitHpRegen((id),mlv/ $A)
        call Unit_App_Counter(493,(id))
        set data=Boss_Spell_allocate()
        set Boss_Spell_data1[data]=id
        set Boss_Spell_data2[data]=c
        set Boss_Spell_data3[data]=0
        call SummonedUnitSetMaster(id,c)
        call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A00T_Loop_c)
        exitwhen i==0
    endloop
endfunction

function HeroSkills_A00T_End takes integer id returns nothing
    call ReleaseTimer(HeroSkills_A00T_Timer[id],"[TimerUtils]Error:372")
    call Ltv(HeroSkills_A00T_Model[id])
    call Unit_Cancel_Counter(494,(id))
    set HeroSkills_A00T_Timer[id]=null
endfunction

function HeroSkills_A00T_IsStart takes integer u,real x,real y returns boolean
    if HeroSkills_A00T_Timer[(u)]!=null then
        set x=(GetUnitX(II[(HeroSkills_A00T_Model[(u)])]))-x
        set y=(GetUnitY(II[(HeroSkills_A00T_Model[(u)])]))-y
        if SquareRoot(x*x+y*y)<=256 then
            call HeroSkills_A00T_End((u))
            return true
        endif
    endif
    return false
endfunction

function HeroSkills_A00T_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=(GetUnitX(II[(HeroSkills_A00T_Model[id])]))
    local real y=(GetUnitY(II[(HeroSkills_A00T_Model[id])]))
    local unit u
    call GroupEnumUnitsOfPlayer(G,(P[Kc[((id))]]),null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitType(u,UNIT_TYPE_MECHANICAL)then
            call SetUnitPosition(u,x+GetRandomReal(-125,125),y+GetRandomReal(-125,125))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",u,"origin"))
        endif
    endloop
    call HeroSkills_A00T_Create(id,x,y)
    call HeroSkills_A00T_End(id)
endfunction

function HeroSkills_A00T_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A00T_Timer[id]==null then
        set HeroSkills_A00T_Model[id]=Lnv(GetSpellTargetX(),GetSpellTargetY(),0)
        call LMv(HeroSkills_A00T_Model[id],"Nebula.mdl")
        set HeroSkills_A00T_Timer[id]=NewTimer(id)
        call Unit_App_Counter(495,(id))
    else
        call LKv(HeroSkills_A00T_Model[id],GetSpellTargetX())
        call Llv(HeroSkills_A00T_Model[id],GetSpellTargetY())
    endif
    call PlaySoundAtPoint_BJ((Qa),((100)*1.),(((GetUnitX(II[(HeroSkills_A00T_Model[id])])))*1.),(((GetUnitY(II[(HeroSkills_A00T_Model[id])])))*1.),0)
    call TimerStart(HeroSkills_A00T_Timer[id],1.75,false,function HeroSkills_A00T_Start)
endfunction

function HeroSkills_A00T_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00T',function HeroSkills_A00T_Actions)
    call Luv('A00T')
endfunction

function HeroSkills_A01R_Start takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:373")
    local integer mlv=GetHeroState3((Je[(id)]),true)
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A01R')
    local integer i
    local real x=(GetUnitX(II[(HeroSkills_A01R_Model[id])]))
    local real y=(GetUnitY(II[(HeroSkills_A01R_Model[id])]))
    local real d
    local real a
    local unit u
    if HeroSkills_A01R_Bool[id]then
        set i=8
        set d=Unit_Fire_Damage[(id)]*(500*lv+($A+5*lv)*mlv)
        set HeroSkills_A01R_Bool[id]=false
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y))
        loop
            set i=i-1
            set a=bj_PI*i/ 4
            call Ltv(LAv("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",x+$C8*Cos(a),y+$C8*Sin(a),1.25))
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,400+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,400)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,2.5)
                endif
            endif
        endloop
    endif
    set Hero_H009_LastSummoningUnit=id
    call SetPlayerTechResearched(GetOwningPlayer((Je[(id)])),'Rhse',lv-1)
    call Auxiliary_PointOrder(('ANin'),GetOwningPlayer((Je[(id)])),R2I(1+lv/ 5),$D0108,x,y)
    call Ltv(HeroSkills_A01R_Model[id])
    call Unit_Cancel_Counter(496,(id))
endfunction

function HeroSkills_A01R_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A01R_Model[id]=Lnv(GetSpellTargetX(),GetSpellTargetY(),Atan2(GetSpellTargetY()-GetUnitY((Je[(id)])),GetSpellTargetX()-GetUnitX((Je[(id)]))))
    call LMv(HeroSkills_A01R_Model[id],"Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl")
    set HeroSkills_A01R_Bool[id]=HeroSkills_A00T_IsStart(id,(GetUnitX(II[(HeroSkills_A01R_Model[id])])),(GetUnitY(II[(HeroSkills_A01R_Model[id])])))
    if HeroSkills_A01R_Bool[id]then
        call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl",(GetUnitX(II[(HeroSkills_A01R_Model[id])])),(GetUnitY(II[(HeroSkills_A01R_Model[id])])),2.25),3)
    else
        call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl",(GetUnitX(II[(HeroSkills_A01R_Model[id])])),(GetUnitY(II[(HeroSkills_A01R_Model[id])])),1.5),3)
    endif
    call TimerStart(NewTimer(id),.925,false,function HeroSkills_A01R_Start)
    call Unit_App_Counter(497,(id))
endfunction

function Summon_nlv1_RemoveBuff takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:374")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08H','BHfs')
    call ModifyUnitMagicDamage((id),-25*Summon_nlv1_Buff_Lv[id])
    call ModifyUnitAttackSpeed((id),-50*Summon_nlv1_Buff_Lv[id])
    call Unit_Cancel_Counter(498,(id))
    set Summon_nlv1_Buff_Timer[id]=null
    set Summon_nlv1_Buff_Lv[id]=0
endfunction

function Summon_nlv1_onAttkex takes nothing returns nothing
    local integer id=(pF_v)
    local integer c=(Master[((pF_v))])
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    local real a=Atan2(GetUnitY((MF))-y,GetUnitX((MF))-x)
    local real d=.5*Unit_Fire_Damage[(c)]*GetDamage()
    local real r=325
    local unit u=(MF)
    set x=x-40*Cos(a)
    set y=y-40*Sin(a)
    if GetUnitAbilityLevel((mF),'Ansk')>0 then
        set d=2*d
        set r=r+100
        if Summon_nlv1_Buff_Lv[id]==0 then
            set Summon_nlv1_Buff_Timer[id]=NewTimer(id)
            call UnitAddAbilityBY((mF),'A08H')
            call Unit_App_Counter(499,(id))
        endif
        if Summon_nlv1_Buff_Lv[id]<3 then
            set Summon_nlv1_Buff_Lv[id]=Summon_nlv1_Buff_Lv[id]+1
            call ModifyUnitMagicDamage((id),25)
            call ModifyUnitAttackSpeed((id),50)
        endif
        call UnitDamageTargetBY((((mF))),(((MF))),((((.5*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",(MF),"origin"))
        call TimerStart(Summon_nlv1_Buff_Timer[id],5,false,function Summon_nlv1_RemoveBuff)
    endif
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            if IsUnitAliveAndEnemy(u,(mF))and(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((a)*1.))>=Cos(((1.8326)*1.)))then
                call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",u,"chest"))
            endif
        endif
    endloop
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\BallsOfFireMissile\\BallsOfFireMissile.mdl",(MF),"origin"))
endfunction

function Summon_nlv1_Init takes nothing returns nothing
    local integer c=Hero_H009_LastSummoningUnit
    local integer id=(GetUnitUserData((GetSummonedUnit())))
    local integer mlv=GetHeroState3((Je[(c)]),true)
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A01R')
    if UnitAlive(HeroSkills_A01R_SummonUnit[c])then
        call KillUnit(HeroSkills_A01R_SummonUnit[c])
    endif
    if lv>2 then
        set s__AEim_Off[(id)]=true
        call UnitAddAbilityBY((Je[(id)]),'AEim')
        if lv>4 then
            set s__A08B_Off[(id)]=true
            call UnitAddAbilityBY((Je[(id)]),'A08B')
        endif
    endif
    if GetUnitTypeId((Je[(id)]))=='osw1' then
        call SetUnitAnimation((Je[(id)]),"Spell")
        call QueueUnitAnimation((Je[(id)]),"Walk")
    endif
    set HeroSkills_A01R_SummonUnit[c]=(Je[(id)])
    call ModifyUnitHP((id),R2I(Unit_Fire_Damage[(c)]*($3E8*lv+R2I((5+1.5*lv)*mlv))))
    call ModifyUnitHpRegen((id),Unit_Fire_Damage[(c)]*mlv/ 30)
    call UnitAddPAttackTrig((id),function Summon_nlv1_onAttkex)
    call SetUnitVertexColor((Je[(id)]),$FF,$CD,$CD,$CD)
    call SummonedUnitSetMaster(id,c)
endfunction

function s__AEim_open takes integer this returns boolean
    if s__AEim_Off[this]then
        if s__AEim_next[(0)]==(0)then
            call fov(s__AEim_func)
        endif
        set s__AEim_next[this]=s__AEim_next[(0)]
        set s__AEim_last[this]=(0)
        set s__AEim_last[s__AEim_next[this]]=this
        set s__AEim_next[(0)]=this
        call Unit_App_Counter(500,this)
        set s__AEim_Off[this]=false
        return true
    endif
    return false
endfunction

function s__AEim_shut takes integer this returns nothing
    set s__AEim_last[s__AEim_next[this]]=s__AEim_last[this]
    set s__AEim_next[s__AEim_last[this]]=s__AEim_next[this]
    call Unit_Cancel_Counter(501,this)
    set s__AEim_Off[this]=true
    if s__AEim_next[(0)]==(0)then
        call frv(s__AEim_func)
    endif
endfunction

function s__AEim_loop_c takes nothing returns nothing
    local integer this=s__AEim_next[(0)]
    local integer c
    local unit t
    local unit u
    local real x
    local real y
    local real l
    local real p
    local real d
    loop
        exitwhen(0)==this
        if GetUnitAbilityLevel((Je[(this)]),'BEim')>0 then
            set s__AEim_Timed[this]=s__AEim_Timed[this]-1
            if s__AEim_Timed[this]<=0 then
                set c=(Master[(this)])
                set t=(Je[(this)])
                set u=(Je[(c)])
                set x=GetUnitX(t)
                set y=GetUnitY(t)
                set l=GetWidgetLife(t)
                set p=l/ GetUnitState(t,UNIT_STATE_MAX_LIFE)
                set d=Unit_Fire_Damage[c]*Unit_DOT[c]*p*5*GetHeroState3(u,true)
                set s__AEim_Timed[this]=R2I(52-36*p)
                if GetUnitAbilityLevel(t,'Ansk')>0 then
                    call SetWidgetLife(t,.95*l)
                else
                    call SetWidgetLife(t,.875*l)
                endif
                call DestroyEffect(AddSpecialEffectTarget("firegold.mdl",t,"origin"))
                call GroupEnumUnitsInRange(G,x,y,375+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,375)then
                        if IsUnitAliveAndEnemy(u,t)then
                            call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedDamage.mdl",u,"overhead",1)
                            call UnitDamageTargetBY(((t)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
            endif
        else
            call s__AEim_shut(this)
        endif
        set this=s__AEim_next[this]
    endloop
    set t=null
endfunction

function s__AEim_onInit takes nothing returns nothing
    set s__AEim_func=fxv(function s__AEim_loop_c)
endfunction

function s__A08B_open takes integer this returns boolean
    if s__A08B_Off[this]then
        if s__A08B_next[(0)]==(0)then
            call fov(s__A08B_func)
        endif
        set s__A08B_next[this]=s__A08B_next[(0)]
        set s__A08B_last[this]=(0)
        set s__A08B_last[s__A08B_next[this]]=this
        set s__A08B_next[(0)]=this
        call Unit_App_Counter(502,this)
        set s__A08B_Off[this]=false
        return true
    endif
    return false
endfunction

function s__A08B_shut takes integer this returns nothing
    set s__A08B_last[s__A08B_next[this]]=s__A08B_last[this]
    set s__A08B_next[s__A08B_last[this]]=s__A08B_next[this]
    call Unit_Cancel_Counter(503,this)
    if s__A08B_next[(0)]==(0)then
        call frv(s__A08B_func)
    endif
endfunction

function s__A08B_loop_c takes nothing returns nothing
    local integer this=s__A08B_next[(0)]
    local unit u
    local integer Kbe
    local integer i
    local real x
    local real y
    local real a
    local real r
    local real bav
    loop
        exitwhen(0)==this
        set s__A08B_Range[this]=s__A08B_Range[this]-8
        call Lfv(s__A08B_Effect[this],$CD,75,75,s__A08B_Range[this])
        if ModuloInteger(s__A08B_Range[this],80)==0 then
            set i=$A
            set x=(GetUnitX(II[(s__A08B_Effect[this])]))
            set y=(GetUnitY(II[(s__A08B_Effect[this])]))
            set r=450-1.75*s__A08B_Range[this]
            set bav=1.75-s__A08B_Range[this]/ $AF
            loop
                set i=i-1
                set a=bj_PI*i/ 5
                set Kbe=Lnv(x+r*Cos(a),y+r*Sin(a),0)
                call SetUnitScale(II[(Kbe)],((bav)*1.),0,0)
                call LMv(Kbe,"Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl")
                call LFv(Kbe,"Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl")
                call Ltv(Kbe)
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,r+96+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,r+96)then
                    if not IsUnitInGroup(u,s__A08B_Group[this])and IsUnitAliveAndEnemy(u,(Je[(this)]))then
                        call GroupAddUnit(s__A08B_Group[this],u)
                        call UnitDamageTargetBY((((Je[(this)]))),((u)),((((s__A08B_Damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
            call LFv(s__A08B_Effect[this],"firegold.mdl")
        endif
        if s__A08B_Range[this]<1 then
            call UnitRemoveAbilityandBuffBY((Je[(this)]),'A08C','Bshs')
            call KillUnit((Je[(this)]))
            call RecycleGroup(s__A08B_Group[this])
            call LTv(s__A08B_Effect[this])
            call s__A08B_shut(this)
            set s__A08B_Group[this]=null
        endif
        set this=s__A08B_next[this]
    endloop
endfunction

function s__A08B_onInit takes nothing returns nothing
    set s__A08B_func=fxv(function s__A08B_loop_c)
endfunction

function SummonSkills_A08B_Start takes unit u returns nothing
    local integer t=(GetUnitUserData((u)))
    local integer c
    if s__A08B_open(t)then
        set s__A08B_Group[t]=NewGroup()
        set s__A08B_Effect[t]=LVv('e00E',GetUnitX((Je[(t)])),GetUnitY((Je[(t)])),GetUnitFacing((Je[(t)])))
        set c=(Master[(t)])
        set s__A08B_Damage[t]=Unit_Fire_Damage[(c)]*(1-.5*GetWidgetLife((Je[(t)]))/ GetUnitState((Je[(t)]),UNIT_STATE_MAX_LIFE))*62.5*GetHeroState3((Je[(c)]),true)
        set s__A08B_Range[t]=$A8
        call LDv(s__A08B_Effect[t],1.75)
        call Lfv(s__A08B_Effect[t],$CD,75,75,$A8)
        call SetUnitAnimation(II[s__A08B_Effect[t]],"Spell")
    endif
endfunction

function SummonSkills_AEim_Actions takes nothing returns nothing
    local integer t=(GetUnitUserData((GetTriggerUnit())))
    if s__AEim_open(t)then
        set s__AEim_Timed[t]=R2I(52-36*GetWidgetLife((Je[(t)]))/ GetUnitState((Je[(t)]),UNIT_STATE_MAX_LIFE))
    endif
endfunction

function SummonSkills_A08B_Actions takes nothing returns nothing
    call SummonSkills_A08B_Start(GetTriggerUnit())
endfunction

function HeroSkills_A01R_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01R',function HeroSkills_A01R_Actions)
    call RegisterSummonEvent('nlv1',function Summon_nlv1_Init)
    call RegisterSummonEvent('osw1',function Summon_nlv1_Init)
    call RegisterSpellEffectEvent('AEim',function SummonSkills_AEim_Actions)
    call RegisterSpellEffectEvent('A08B',function SummonSkills_A08B_Actions)
    call Luv('AEim')
    call Luv('A08B')
endfunction

function HeroSkills_A02O_Start takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:375")
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A02O')
    local integer i
    local integer fx
    local real a
    local real x=HeroSkills_A02O_SpellX[id]
    local real y=HeroSkills_A02O_SpellY[id]
    set Hero_H009_LastSummoningUnit=id
    if HeroSkills_A02O_Bool[id]then
        set i=6
        set fx=LVv('e00G',x,y,0)
        call SetUnitOwner(II[(fx)],(GetOwningPlayer((Je[(id)]))),false)
        loop
            set i=i-1
            set a=i*bj_PI/ 3
            call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x+125*Cos(a),y+125*Sin(a),1.25))
            exitwhen i==0
        endloop
        call LQv(fx,7.5)
    else
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x,y,1.5))
    endif
    call SetPlayerTechResearched(GetOwningPlayer((Je[(id)])),'Rhra',lv-1)
    call Auxiliary_PointOrder(('SNin'),GetOwningPlayer((Je[(id)])),R2I(1+lv/ 5),$D0100,x,y)
    call Unit_Cancel_Counter(504,(id))
endfunction

function HeroSkills_A02O_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    set HeroSkills_A02O_SpellX[id]=x
    set HeroSkills_A02O_SpellY[id]=y
    set HeroSkills_A02O_Bool[id]=HeroSkills_A00T_IsStart(id,x,y)
    if HeroSkills_A02O_Bool[id]then
        call Ltv(LAv("Whirlpool.mdl",x,y,.2))
    else
        call Ltv(LAv("Whirlpool.mdl",x,y,.125))
    endif
    call PlaySoundAtPoint_BJ((sa),((100)*1.),((x)*1.),((y)*1.),0)
    call TimerStart(NewTimer(id),1,false,function HeroSkills_A02O_Start)
    call Unit_App_Counter(505,(id))
endfunction

function Summon_hwat_onAttkex takes nothing returns nothing
    local integer id=(pF)
    local integer lv
    if not(PB[((id))])then
        set lv=GetUnitAbilityLevel((MF),'Bslo')
        if lv<5 then
            set lv=lv+1
        endif
        call Auxiliary_TargetOrder(('ACsw'),null,lv,$D006B,(MF))
    endif
endfunction

function Summon_hwat_Init takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSummonedUnit())))
    local integer c=(Hero_H009_LastSummoningUnit)
    local integer mlv=GetHeroState3((Je[(c)]),true)
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A02O')
    if UnitAlive(HeroSkills_A02O_SummonUnit[c])then
        call KillUnit(HeroSkills_A02O_SummonUnit[c])
    endif
    if lv>2 then
        call UnitAddAbilityBY((Je[(id)]),'Ahea')
        if lv>4 then
            call UnitAddAbilityBY((Je[(id)]),'AOhw')
        endif
    endif
    set HeroSkills_A02O_SummonUnit[c]=(Je[(id)])
    call ModifyUnitHP((id),R2I(Unit_Frost_Damage[(c)]*($5DC*lv+(5+1.75*lv)*mlv)))
    call ModifyUnitHpRegen((id),Unit_Frost_Damage[(c)]*mlv/ 25)
    call UnitAddPAttackTrig((id),function Summon_hwat_onAttkex)
    call SetUnitVertexColor((Je[(id)]),$AF,$AF,$FF,$CD)
    call SummonedUnitSetMaster(id,c)
endfunction

function SummonSkills_Ahea_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:376")
    call UnitRemoveAbility((Je[(id)]),'BHds')
    call ModifyUnitHpRegen((id),-SummonSkills_Ahea_Buff_HpRegen[id])
    call Unit_Cancel_Counter(506,(id))
    set SummonSkills_Ahea_Buff_Timer[id]=null
    set SummonSkills_Ahea_Buff_HpRegen[id]=0
endfunction

function SummonSkills_Ahea_BuffAdd takes unit u,real v returns nothing
    local integer id=(GetUnitUserData((u)))
    local real up=.015*v*GetUnitState(u,UNIT_STATE_MAX_LIFE)
    if SummonSkills_Ahea_Buff_Timer[id]==null then
        set SummonSkills_Ahea_Buff_Timer[id]=NewTimer(id)
        call Unit_App_Counter(507,(id))
    endif
    call ModifyUnitHpRegen((id),up-SummonSkills_Ahea_Buff_HpRegen[id])
    call Auxiliary_TargetOrder(('Acri'),null,1,$D00DD,u)
    call TimerStart(SummonSkills_Ahea_Buff_Timer[id],$A,false,function SummonSkills_Ahea_BuffExpired)
    set SummonSkills_Ahea_Buff_HpRegen[id]=up
endfunction

function SummonSkills_Ahea_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit o=(MV[GetPlayerId(GetOwningPlayer(Je[((GetUnitUserData((c))))]))])
    local unit t=GetSpellTargetUnit()
    local real r=Unit_Frost_Damage[(GetUnitUserData((o)))]
    call UnitCureTaret(o,t,r*($96+.75*GetHeroState3(o,true)))
    call SetUnitState(t,UNIT_STATE_MANA,GetUnitState(t,UNIT_STATE_MANA)+.01*r*GetUnitState(t,UNIT_STATE_MAX_MANA))
    if GetUnitAbilityLevel(c,'A08G')>0 and Hc[(GetUnitUserData((t)))]then
        call SummonSkills_Ahea_BuffAdd(t,r)
    endif
    set c=null
    set o=null
    set t=null
endfunction

function HeroSkills_A02O_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02O',function HeroSkills_A02O_Actions)
    call RegisterSummonEvent('hwat',function Summon_hwat_Init)
    call RegisterSummonEvent('osw2',function Summon_hwat_Init)
    call RegisterSpellEffectEvent('Ahea',function SummonSkills_Ahea_Actions)
    call Luv('Ahea')
    call Luv('AOhw')
endfunction

function HeroSkills_A03I_Start takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:377")
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A03I')
    local integer i
    local unit u
    local real a
    local real x=HeroSkills_A03I_SpellX[id]
    local real y=HeroSkills_A03I_SpellY[id]
    set Hero_H009_LastSummoningUnit=id
    if HeroSkills_A03I_Bool[id]then
        set i=8
        loop
            set i=i-1
            set a=i*bj_PI/ 4
            call Lqv(LAv("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl",x+$AF*Cos(a),y+$AF*Sin(a),1.875),1.5)
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,425+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,425)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call m2v(u,4,'A500','B500',true)
                endif
            endif
        endloop
        call Ltv(LAv("LightningWrath.mdl",x,y,2))
        call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.5))
    endif
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",x,y,3),$FF,$FF,$9B,$FF))
    call PlaySoundAtPoint_BJ((Sa),((100)*1.),((x)*1.),((y)*1.),0)
    call SetPlayerTechResearched((P[Kc[((id))]]),'Rhpm',lv-1)
    call Auxiliary_PointOrder(('A06S'),(P[Kc[((id))]]),R2I(1+lv/ 5),$D0108,x,y)
    call Unit_Cancel_Counter(508,(id))
endfunction

function HeroSkills_A03I_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    set HeroSkills_A03I_SpellX[id]=x
    set HeroSkills_A03I_SpellY[id]=y
    set HeroSkills_A03I_Bool[id]=HeroSkills_A00T_IsStart(id,x,y)
    if HeroSkills_A03I_Bool[id]then
        call Ltv(LAv("Abilities\\Spells\\NightElf\\Blink\\BlinkTarget.mdl",x,y,4))
    else
        call Ltv(LAv("Abilities\\Spells\\NightElf\\Blink\\BlinkTarget.mdl",x,y,2.5))
    endif
    call TimerStart(NewTimer(id),.5,false,function HeroSkills_A03I_Start)
    call Unit_App_Counter(509,(id))
endfunction

function Summon_hwt2_onAttack_func06 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:378")
    call DeUnitMdef((id),Summon_hwt2_onAttack_BuffMdef[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0EY','BHbn')
    call Unit_Cancel_Counter(510,(id))
    set Summon_hwt2_onAttack_BuffTimer[id]=null
endfunction

function Summon_hwt2_onAttack_func05 takes unit u,real r returns nothing
    local integer id=(GetUnitUserData((u)))
    if Summon_hwt2_onAttack_BuffTimer[id]==null then
        set Summon_hwt2_onAttack_BuffTimer[id]=NewTimer(id)
        set Summon_hwt2_onAttack_BuffMdef[id]=ModifyUnitMdef((id),r)
        call UnitAddAbilityBY((Je[(id)]),'A0EY')
        call Unit_App_Counter(511,(id))
    elseif r<(100*s__unitseate_table_v[(Summon_hwt2_onAttack_BuffMdef[id])])then
        call UnitMdefChange((id),Summon_hwt2_onAttack_BuffMdef[id],r)
    endif
    call TimerStart(Summon_hwt2_onAttack_BuffTimer[id],3,false,function Summon_hwt2_onAttack_func06)
endfunction

function Summon_hwt2_onAttack_func04 takes integer data,unit u returns unit
    local real x
    local real y
    if GetUnitTypeId((Boss_Spell_unit2[data]))!=0 then
        set x=GetUnitX((Boss_Spell_unit2[data]))
        set y=GetUnitY((Boss_Spell_unit2[data]))
        call GroupEnumUnitsInRange(G,x,y,450+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,450)then
                exitwhen not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,(Boss_Spell_unit1[data]))
            endif
        endloop
    endif
    return u
endfunction

function Summon_hwt2_onAttack_func03 takes integer data,unit c,unit t returns nothing
    set Boss_Spell_unit2[data]=(t)
    call Puv("CLPB",c,t,1,1,0)
    call UnitDamageTargetBY((((Boss_Spell_unit1[data]))),((t)),((((Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    call Summon_hwt2_onAttack_func05(t,-7-Boss_Spell_data1[data])
    call SetUnitState((Boss_Spell_unit1[data]),UNIT_STATE_MANA,GetUnitState((Boss_Spell_unit1[data]),UNIT_STATE_MANA)+2.5)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",t,"origin"))
    call GroupAddUnit(Boss_Spell_group1[data],t)
endfunction

function Summon_hwt2_onAttack_func02 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u=Summon_hwt2_onAttack_func04(data,null)
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    if GetUnitAbilityLevel((Boss_Spell_unit1[data]),'SCae')==0 then
        set Boss_Spell_X[data]=.85*Boss_Spell_X[data]
    endif
    if Boss_Spell_data2[data]<=0 or u==null then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:379")
        call RecycleGroup(Boss_Spell_group1[data])
        call Boss_Spell_deallocate(data)
        set Boss_Spell_group1[data]=null
    else
        call Summon_hwt2_onAttack_func03(data,(Boss_Spell_unit2[data]),u)
    endif
    set u=null
endfunction

function Summon_hwt2_onAttack_func01 takes unit u,unit t,real damage returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_unit1[data]=(u)
    set Boss_Spell_unit2[data]=(t)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data1[data]=GetUnitAbilityLevel((Je[((Master[((GetUnitUserData((u))))]))]),'A03I')
    set Boss_Spell_data2[data]=3
    set Boss_Spell_X[data]=damage
    call GroupAddUnit(Boss_Spell_group1[data],t)
    call Summon_hwt2_onAttack_func05(t,-7-Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.15,true,function Summon_hwt2_onAttack_func02)
endfunction

function Summon_hwt2_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local integer c=(Master[(id)])
    local real damage=GetDamage()
    set Summon_hwt2_onAttack_Count[id]=Summon_hwt2_onAttack_Count[id]+1
    if GetUnitAbilityLevel((mF),'SCae')>0 then
        set damage=(1.+.0075*GetUnitState((mF),UNIT_STATE_MANA))*damage
    endif
    if Summon_hwt2_onAttack_Count[id]==8 then
        set damage=GetRandomReal(6,8+5*Unit_MATK[c])*damage
        call DestroyEffect(AddSpecialEffectTarget("Great Lightning.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((damage-GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call SetUnitState((mF),UNIT_STATE_MANA,GetUnitState((mF),UNIT_STATE_MANA)+$F)
        call NewTextTagInTarget_B((mF),"+15",8,125,125,$FF)
        call NewTextTagInTarget_B((MF),I2S(R2I(damage))+"!",$C,$FF,$FF,$80)
        call m1v((MF),1)
    elseif damage>GetDamage()then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\ForkedLightning\\ForkedLightningTarget.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((damage-GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((9)*1.))*1.),(("|c008080ff")))
    endif
    if GetUnitAbilityLevel((mF),'Afbt')>0 and ModuloInteger(Summon_hwt2_onAttack_Count[id],4)==0 then
        call Summon_hwt2_onAttack_func01((mF),(MF),damage)
    endif
    if Summon_hwt2_onAttack_Count[id]==8 then
        set Summon_hwt2_onAttack_Count[id]=0
    endif
endfunction

function Summon_hwt2_Init takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSummonedUnit())))
    local integer c=Hero_H009_LastSummoningUnit
    local integer mlv=GetHeroState3((Je[(c)]),true)
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A03I')
    if UnitAlive(HeroSkills_A03I_SummonUnit[c])then
        call KillUnit(HeroSkills_A03I_SummonUnit[c])
    endif
    if lv>2 then
        call UnitAddAbilityBY((Je[(id)]),'Afbt')
        if lv>4 then
            call UnitAddAbilityBY((Je[(id)]),'A087')
        endif
    endif
    set HeroSkills_A03I_SummonUnit[c]=(Je[(id)])
    call ModifyUnitHP((id),$9C4*lv+R2I((7.5+lv)*mlv))
    call ModifyUnitHpRegen((id),mlv/ 30)
    call UnitAddPAttackTrig((id),function Summon_hwt2_onAttack)
    call SetUnitVertexColor((Je[(id)]),$FF,$FF,$80,$CD)
    call SummonedUnitSetMaster(id,c)
endfunction

function s__A087_open takes integer this returns boolean
    if not s__A087_use[this]then
        if s__A087_next[(0)]==(0)then
            call fov(s__A087_func)
        endif
        set s__A087_next[this]=s__A087_next[(0)]
        set s__A087_last[this]=(0)
        set s__A087_last[s__A087_next[this]]=this
        set s__A087_next[(0)]=this
        call Unit_App_Counter(512,this)
        set s__A087_use[this]=true
        return true
    endif
    return false
endfunction

function s__A087_shut takes integer this returns nothing
    if s__A087_use[this]then
        set s__A087_last[s__A087_next[this]]=s__A087_last[this]
        set s__A087_next[s__A087_last[this]]=s__A087_next[this]
        call UnitRemoveAbilityBY((Je[(this)]),'Abun')
        call UnitRemoveAbilityBY((Je[(this)]),'A088')
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(this)])),'A087',true)
        call SetUnitAnimation((Je[(this)]),"Stand")
        call DestroyLightning(s__A087_lig[this])
        call Unit_Cancel_Counter(513,(this))
        set s__A087_lig[this]=null
        set s__A087_use[this]=false
        set cT[(this)]=false
        if s__A087_next[(0)]==(0)then
            call frv(s__A087_func)
        endif
    endif
endfunction

function s__A087_loop_c takes nothing returns nothing
    local integer this=s__A087_next[(0)]
    local integer c
    local unit t
    local unit u
    local real x
    local real y
    local real a
    local real m
    local real damage
    local real r
    local real tx
    local real ty
    loop
        exitwhen(0)==this
        if UnitAlive((Je[(this)]))then
            set r=0
            set c=(Master[(this)])
            set t=(Je[(this)])
            set u=(Je[(c)])
            set x=GetUnitX(t)
            set y=GetUnitY(t)
            set a=GetUnitFacing((Je[(this)]))*bj_DEGTORAD
            set m=GetUnitState((Je[(this)]),UNIT_STATE_MANA)-.3125
            set tx=64*Cos(a)
            set ty=64*Sin(a)
            set HeroSkills_A0CU_Px[(this)]=x
            set HeroSkills_A0CU_Py[(this)]=y
            set s__A087_count[this]=s__A087_count[this]+1
            if GetUnitAbilityLevel((Je[(this)]),'SChe')>0 then
                set damage=Unit_DOT[(GetUnitUserData((u)))]*(1.+m/ 200.)*s__A087_Damage[this]
            else
                set damage=Unit_DOT[(GetUnitUserData((u)))]*s__A087_Damage[this]
            endif
            if s__A087_count[this]==1 then
                call SetUnitAnimation((Je[(this)]),"Stand Channel")
            elseif ModuloInteger(s__A087_count[this],40)==0 then
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y))
            endif
            loop
                set x=x+tx
                set y=y+ty
                call GroupEnumUnitsInRange(G,x,y,96+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,96)then
                        exitwhen IsUnitAliveAndEnemy(u,(Je[(this)]))
                    endif
                endloop
                if u!=null then
                    call GroupEnumUnitsInRange(G,x,y,256+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,256)then
                            if IsUnitAliveAndEnemy(u,(Je[(this)]))then
                                call UnitDamageTargetBY((((Je[(this)]))),((u)),((((damage)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        endif
                    endloop
                    call PlaySoundAtPoint_BJ((ua),((100)*1.),((x)*1.),((y)*1.),0)
                    exitwhen true
                endif
                set r=r+64
                exitwhen r>=768
            endloop
            call MoveLightningEx(s__A087_lig[this],true,HeroSkills_A0CU_Px[(this)],HeroSkills_A0CU_Py[(this)],GetPointZ(HeroSkills_A0CU_Px[(this)],HeroSkills_A0CU_Py[(this)])+75,x,y,GetPointZ(x,y)+45)
            call Ltv(LAv("Abilities\\Spells\\Other\\ForkedLightning\\ForkedLightningTarget.mdl",x,y,2.5))
            if m>.0 then
                call SetUnitState((Je[(this)]),UNIT_STATE_MANA,m)
            else
                call s__A087_shut(this)
            endif
        else
            call s__A087_shut(this)
        endif
        set this=s__A087_next[this]
    endloop
    set t=null
endfunction

function s__A087_onInit takes nothing returns nothing
    set s__A087_func=fxv(function s__A087_loop_c)
endfunction

function SummonSkills_A088_Actions takes nothing returns nothing
    call s__A087_shut(((GetUnitUserData((GetTriggerUnit())))))
endfunction

function SummonSkills_A087_Actions takes nothing returns nothing
    local integer t=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(t)]))
    local real y=GetUnitY((Je[(t)]))
    local real a=GetUnitFacing((Je[(t)]))*bj_DEGTORAD
    local real x2=x+800*Cos(a)
    local real y2=y+800*Sin(a)
    if cT[(t)]==false and s__A087_open(t)then
        set cT[(t)]=true
        set HeroSkills_A0CU_Px[(t)]=x
        set HeroSkills_A0CU_Py[(t)]=y
        set s__A087_lig[t]=AddLightningEx("CLPB",true,x,y,GetPointZ(x,y)+75,x2,y2,GetPointZ(x2,y2)+45)
        set s__A087_count[t]=0
        set s__A087_Damage[t]=GetHeroState3((Je[((Master[(t)]))]),true)
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(t)])),'A087',false)
        call UnitAddAbilityBY((Je[(t)]),'Abun')
        call UnitAddAbilityBY((Je[(t)]),'A088')
    endif
endfunction

function HeroSkills_A03I_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A03I',function HeroSkills_A03I_Actions)
    call RegisterSummonEvent('hwt2',function Summon_hwt2_Init)
    call RegisterSummonEvent('osw3',function Summon_hwt2_Init)
    call RegisterSpellEffectEvent('A087',function SummonSkills_A087_Actions)
    call RegisterSpellEffectEvent('A088',function SummonSkills_A088_Actions)
    call Luv('Afbt')
    call Luv('A087')
endfunction

function HeroSkills_A03J_ShieldRemove takes integer id returns boolean
    if HeroSkills_A03J_Shield_Timer[id]!=null then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08I','BNhs')
        call ReleaseTimer(HeroSkills_A03J_Shield_Timer[id],"[TimerUtils]Error:380")
        call s__Trig_remove((HeroSkills_A03J_Shield_Trig[id]))
        call Unit_Cancel_Counter(514,(id))
        set HeroSkills_A03J_Shield_Timer[id]=null
        set HeroSkills_A03J_Shield_Life[id]=0
        return true
    endif
    return false
endfunction

function HeroSkills_A03J_ShieldExpired takes nothing returns nothing
    call sc___prototype15_evaluate(3,((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function HeroSkills_A03J_ShieldFunc takes nothing returns nothing
    local integer id=(pF)
    if HeroSkills_A03J_Shield_Life[id]>GetDamage()then
        set HeroSkills_A03J_Shield_Life[id]=HeroSkills_A03J_Shield_Life[id]-GetDamage()
        set KF[HF]=PF+1000000.
    else
        call DamageMinus(HeroSkills_A03J_Shield_Life[id])
        call sc___prototype15_evaluate(3,id)
    endif
endfunction

function HeroSkills_A03J_ShieldAdd takes integer id,real r returns nothing
    if Hc[(id)]then
        if HeroSkills_A03J_Shield_Timer[id]==null then
            set HeroSkills_A03J_Shield_Trig[id]=UnitAddShieldTrigB((id),function HeroSkills_A03J_ShieldFunc)
            set HeroSkills_A03J_Shield_Timer[id]=NewTimer(id)
            call UnitAddAbilityBY((Je[(id)]),'A08I')
            call Unit_App_Counter(515,(id))
        endif
        if r>HeroSkills_A03J_Shield_Life[id]then
            set HeroSkills_A03J_Shield_Life[id]=r
        endif
        call TimerStart(HeroSkills_A03J_Shield_Timer[id],$C,false,function HeroSkills_A03J_ShieldExpired)
    endif
endfunction

function HeroSkills_A03J_Start_EffectEnd takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer fx
    local integer i
    local real pX
    local real pY
    local real a
    set i=6
    if Boss_Spell_Z[data]>50 then
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]-$A
        set Boss_Spell_V[data]=Boss_Spell_V[data]-.125
        loop
            set i=i-1
            set a=Boss_Spell_V[data]-i*bj_PI/ 3
            set fx=LoadInteger(BYHT,Boss_Spell_data1[data],i)
            set pX=Boss_Spell_X[data]+Boss_Spell_Z[data]*Cos(a)
            set pY=Boss_Spell_Y[data]+Boss_Spell_Z[data]*Sin(a)
            call SetUnitFacing(II[(fx)],((Atan2(pY-(GetUnitY(II[(fx)])),pX-(GetUnitX(II[(fx)]))))*1.)*bj_RADTODEG)
            call LKv(fx,pX)
            call Llv(fx,pY)
            call SetUnitFlyHeight(II[(fx)],(((GetUnitFlyHeight(II[(fx)]))-$A)*1.),0)
            exitwhen i==0
        endloop
    else
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\NightElf\\EntBirthTarget\\EntBirthTarget.mdl",Boss_Spell_X[data],Boss_Spell_Y[data]))
        loop
            set i=i-1
            call Ltv((LoadInteger(BYHT,Boss_Spell_data1[data],i)))
            exitwhen i==0
        endloop
        call free(Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:381")
    endif
endfunction

function HeroSkills_A03J_Start_Effect takes real pX,real pY,boolean qfv returns nothing
    local integer data=Boss_Spell_allocate()
    local integer i=6
    local integer fx
    local real a
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_X[data]=pX
    set Boss_Spell_Y[data]=pY
    set Boss_Spell_Z[data]=$FA
    set Boss_Spell_V[data]=0
    loop
        set i=i-1
        set a=i*bj_PI/ 3
        set fx=Lnv(pX+Boss_Spell_Z[data]*Cos(a),pY+Boss_Spell_Z[data]*Sin(a),a+bj_PI/ 2)
        call LMv(fx,"Abilities\\Weapons\\KeeperGroveMissile\\KeeperGroveMissile.mdl")
        call SetUnitFlyHeight(II[(fx)],(($FA)*1.),0)
        call LHv(fx,45)
        if not qfv then
            call SetUnitScale(II[(fx)],((.75)*1.),0,0)
        endif
        call SaveInteger(BYHT,Boss_Spell_data1[data],i,fx)
        exitwhen i==0
    endloop
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A03J_Start_EffectEnd)
endfunction

function HeroSkills_A03J_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local integer i
    local integer lv
    local real s
    local real r
    local real a
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    if Boss_Spell_data2[data]>=5 then
        call HeroSkills_A03J_Start_Effect(Boss_Spell_X[data],Boss_Spell_Y[data],Boss_Spell_bool[data])
    elseif Boss_Spell_data2[data]<=0 then
        set Hero_H009_LastSummoningUnit=Boss_Spell_data1[data]
        set i=5
        set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A03J')
        if Boss_Spell_bool[data]then
            set s=.75
            set r=(2+.5*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true)
            call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],350+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],350)then
                    if IsUnitAliveAndAlly(u,(Je[(Boss_Spell_data1[data])]))then
                        call HeroSkills_A03J_ShieldAdd(((GetUnitUserData((u)))),r)
                    endif
                endif
            endloop
        else
            set s=.5
        endif
        loop
            set i=i-1
            set a=bj_PI*i/ 2.5
            call Ltv(LAv("NatureExplosion.mdl",Boss_Spell_X[data]+$96*Cos(a),Boss_Spell_Y[data]+$96*Sin(a),s))
            exitwhen i==0
        endloop
        call Ltv(LAv("NatureExplosion.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],1+s))
        call PlaySoundAtPoint_BJ((Ta),((100)*1.),((Boss_Spell_X[data])*1.),((Boss_Spell_Y[data])*1.),0)
        call SetPlayerTechResearched(GetOwningPlayer((Je[(Boss_Spell_data1[data])])),'Rhrt',lv-1)
        call Auxiliary_PointOrder(('A06T'),GetOwningPlayer((Je[(Boss_Spell_data1[data])])),R2I(1+lv/ 5),$D0108,Boss_Spell_X[data],Boss_Spell_Y[data])
        call Unit_Cancel_Counter(516,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:382")
    endif
endfunction

function HeroSkills_A03J_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=9
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set Boss_Spell_bool[data]=HeroSkills_A00T_IsStart(Boss_Spell_data1[data],Boss_Spell_X[data],Boss_Spell_Y[data])
    call Unit_App_Counter(517,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.125,true,function HeroSkills_A03J_Start)
endfunction

function Summon_hmil_onAttack takes nothing returns nothing
    local integer mlv=GetHeroState3((Je[((Master[((pF))]))]),true)
    local integer id
    local unit u
    local real x
    local real y
    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\Cleave\\CleaveDamageTarget.mdl",(mF),"chest",1)
    call UnitDamageTargetBY((((MF))),(((mF))),((((.25*(DAK_AMOUNT[HF])+.75*mlv)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    if GetUnitAbilityLevel((MF),'A0F3')>0 then
        set id=(pF)
        if Summon_hmil_onAttack_cd[id]>(100000.-TimerGetRemaining(GameTimer))and GetRandomInt(1,100)<=25 then
            set x=GetUnitX((MF))
            set y=GetUnitY((MF))
            set Summon_hmil_onAttack_cd[id]=(100000.-TimerGetRemaining(GameTimer))+2.5
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndAlly(u,(MF))then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\FaerieDragonInvis\\FaerieDragon_Invis.mdl",u,"chest"))
                        call SetWidgetLife(u,GetWidgetLife(u)+mlv)
                    endif
                endif
            endloop
            call SetWidgetLife((MF),GetWidgetLife((MF))+1.5*mlv)
            call SetUnitState((MF),UNIT_STATE_MANA,GetUnitState((MF),UNIT_STATE_MANA)+$A)
            call DestroyEffect(AddSpecialEffectTarget("NatureExplosion.mdl",(MF),"origin"))
        endif
    endif
endfunction

function Summon_hmil_Init takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSummonedUnit())))
    local integer c=Hero_H009_LastSummoningUnit
    local integer mlv=GetHeroState3((Je[(c)]),true)
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A03J')
    if UnitAlive(HeroSkills_A03J_SummonUnit[c])then
        call KillUnit(HeroSkills_A03J_SummonUnit[c])
    endif
    if lv>2 then
        call UnitAddAbilityBY((Je[(id)]),'ANta')
        if lv>4 then
            set s__ACim_Off[(id)]=true
            call UnitAddAbilityBY((Je[(id)]),'ACim')
        endif
    endif
    if GetUnitTypeId((Je[(id)]))=='hfoo' then
        call SetUnitAnimation((Je[(id)]),"Morph Alternate")
        call QueueUnitAnimation((Je[(id)]),"Stand")
    endif
    set HeroSkills_A03J_SummonUnit[c]=(Je[(id)])
    call ModifyUnitHP((id),$FA0*lv+R2I((7.5+2*lv)*mlv))
    call ModifyUnitHpRegen((id),mlv/ 20)
    call ModifyUnitArmor((id),lv*R2I(60+SquareRoot(mlv)))
    call UnitAddBePAttackTrigB((id),function Summon_hmil_onAttack)
    call SetUnitVertexColor((Je[(id)]),$AF,$FF,$AF,$CD)
endfunction

function SummonSkills_ANta_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    call Auxiliary_ImmediateOrder(('Acht'),GetOwningPlayer(u),1,$D026C,GetUnitX(u),GetUnitY(u))
    set u=null
endfunction

function s__ACim_open takes integer this returns boolean
    if s__ACim_Off[this]then
        if s__ACim_next[(0)]==(0)then
            call fov(s__ACim_func)
        endif
        set s__ACim_next[this]=s__ACim_next[(0)]
        set s__ACim_last[this]=(0)
        set s__ACim_last[s__ACim_next[this]]=this
        set s__ACim_next[(0)]=this
        call Unit_App_Counter(518,this)
        set s__ACim_Off[this]=false
        return true
    endif
    return false
endfunction

function s__ACim_shut takes integer this returns nothing
    set s__ACim_last[s__ACim_next[this]]=s__ACim_last[this]
    set s__ACim_next[s__ACim_last[this]]=s__ACim_next[this]
    call Unit_Cancel_Counter(519,this)
    set s__ACim_Off[this]=true
    if s__ACim_next[(0)]==(0)then
        call frv(s__ACim_func)
    endif
endfunction

function s__ACim_loop_c takes nothing returns nothing
    local integer this=s__ACim_next[(0)]
    local integer c
    local unit t
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen(0)==this
        if GetUnitAbilityLevel((Je[(this)]),'BEar')>0 then
            set s__ACim_Timed[this]=s__ACim_Timed[this]+1
            if s__ACim_Timed[this]>=32 then
                set s__ACim_Timed[this]=0
                set i=8
                set c=(Master[(this)])
                set t=(Je[(this)])
                set u=(Je[(c)])
                set x=GetUnitX(t)
                set y=GetUnitY(t)
                set d=(1.+Unit_MATK[(GetUnitUserData((u)))])*Unit_DOT[(GetUnitUserData((u)))]*4*GetHeroState3(u,true)
                loop
                    set i=i-1
                    set a=i*bj_PI/ 4
                    call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",x+$AF*Cos(a),y+$AF*Sin(a)))
                    exitwhen i==0
                endloop
                call DestroyEffect(AddSpecialEffect("Epicenter.mdl",x,y))
                call GroupEnumUnitsInRange(G,x,y,375+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,375)then
                        if IsUnitAliveAndEnemy(u,t)then
                            call UnitDamageTargetBY(((t)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A08D',$D006B)
                        endif
                    endif
                endloop
            endif
        else
            call ModifyUnitHpRegen(this,-s__ACim_HpRegen[this])
            call s__ACim_shut(this)
        endif
        set this=s__ACim_next[this]
    endloop
    set t=null
endfunction

function s__ACim_onInit takes nothing returns nothing
    set s__ACim_func=fxv(function s__ACim_loop_c)
endfunction

function SummonSkills_ACim_Actions takes nothing returns nothing
    local integer t=(GetUnitUserData((GetTriggerUnit())))
    if s__ACim_open(t)then
        set s__ACim_HpRegen[t]=R2I(.01*GetUnitState((Je[(t)]),UNIT_STATE_MAX_LIFE))
        set s__ACim_Timed[t]=0
        call ModifyUnitHpRegen(t,s__ACim_HpRegen[t])
    endif
endfunction

function HeroSkills_A03J_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A03J',function HeroSkills_A03J_Actions)
    call RegisterSummonEvent('hmil',function Summon_hmil_Init)
    call RegisterSummonEvent('hfoo',function Summon_hmil_Init)
    call RegisterSpellEffectEvent('ANta',function SummonSkills_ANta_Actions)
    call RegisterSpellEffectEvent('ACim',function SummonSkills_ACim_Actions)
    call Luv('ANta')
    call Luv('ACim')
endfunction

function HeroSkills_A089_A0F3_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:383")
    call DeUnitAdef((id),HeroSkills_A089_A0F3_Buff_Adef[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0F4','Bssd')
    call Unit_Cancel_Counter(520,(id))
    set HeroSkills_A089_A0F3_Buff_Timer[id]=null
endfunction

function HeroSkills_A089_A0F3_BuffAdd takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A089_A0F3_Buff_Timer[id]==null then
        set HeroSkills_A089_A0F3_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A089_A0F3_Buff_Adef[id]=ModifyUnitAdef((id),$F)
        call UnitAddAbilityBY((Je[(id)]),'A0F4')
        call Unit_App_Counter(521,(id))
    endif
    call TimerStart(HeroSkills_A089_A0F3_Buff_Timer[id],1,false,function HeroSkills_A089_A0F3_BuffExpired)
endfunction

function HeroSkills_A089_A0OO_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:384")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08E','Bpxf')
    call ModifyUnitFrostDamage((id),-$F)
    call ModifyHeroAllStatPercent((id),-HeroSkills_A089_A0OO_Buff_v[id])
    call Unit_Cancel_Counter(522,(id))
    set HeroSkills_A089_A0OO_Buff_v[id]=0
    set HeroSkills_A089_A0OO_Buff_Timer[id]=null
endfunction

function HeroSkills_A089_A0OO_BuffAdd takes integer c,unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    local real v=.08*Unit_Frost_Damage[(c)]
    if HeroSkills_A089_A0OO_Buff_Timer[id]==null then
        set HeroSkills_A089_A0OO_Buff_Timer[id]=NewTimer(id)
        call UnitAddAbilityBY(u,'A08E')
        call ModifyUnitFrostDamage((id),$F)
        call Ltv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",GetUnitX(u),GetUnitY(u),.4))
        call Unit_App_Counter(523,(id))
    endif
    if HeroSkills_A089_A0OO_Buff_v[id]!=v then
        call ModifyHeroAllStatPercent((id),v-HeroSkills_A089_A0OO_Buff_v[id])
        set HeroSkills_A089_A0OO_Buff_v[id]=v
    endif
    call TimerStart(HeroSkills_A089_A0OO_Buff_Timer[id],45,false,function HeroSkills_A089_A0OO_BuffExpired)
endfunction

function HeroSkills_A089_Stop takes integer id returns nothing
    local integer Cjv=GetUnitTypeId((Je[(HeroSkills_A089_Target[id])]))
    if Cjv!=0 then
        if Cjv=='hmil' or Cjv=='hfoo' then
            call SetUnitNotSeckill((HeroSkills_A089_Target[id]),false)
            call SetUnitNocontrol((HeroSkills_A089_Target[id]),false)
        endif
        call UnitRemoveAbilityBY((Je[(HeroSkills_A089_Target[id])]),LoadInteger(BYHT,HeroSkills_A089_HT,Cjv))
        call UnitRemoveAbilityandBuffBY((Je[(HeroSkills_A089_Target[id])]),'A08C','Bshs')
    endif
    call DestroyLightning(HeroSkills_A089_Lig[id])
    call Unit_Cancel_Counter(524,HeroSkills_A089_Target[id])
endfunction

function HeroSkills_A089_End takes integer id returns nothing
    if not UnitAlive((Je[(HeroSkills_A089_Target[id])]))and GetUnitAbilityLevel((Je[(HeroSkills_A089_Target[id])]),'Ansk')>0 then
        call SummonSkills_A08B_Start((Je[(HeroSkills_A089_Target[id])]))
    endif
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08C','Bshs')
    call HeroSkills_A089_Stop(id)
    call s__Trig_remove((HeroSkills_A089_ShieldTrig[id]))
    call Unit_Cancel_Counter(525,(id))
    set HeroSkills_A089_Lig[id]=null
    set HeroSkills_A089_Target[id]=0
endfunction

function HeroSkills_A089_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real tX
    local real tY
    local real dX
    local real dY
    local boolean b=false
    if UnitAlive((Je[(id)]))and UnitAlive((Je[(HeroSkills_A089_Target[id])]))then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set tX=GetUnitX((Je[(HeroSkills_A089_Target[id])]))
        set tY=GetUnitY((Je[(HeroSkills_A089_Target[id])]))
        set dX=tX-x
        set dY=tY-y
        if dX*dX+dY*dY>HeroSkills_A089_Shield_R[id]then
            set b=true
        else
            set HeroSkills_A089_Count[id]=ModuloInteger(HeroSkills_A089_Count[id]+1,8)
            if HeroSkills_A089_Count[id]==0 then
                if GetUnitAbilityLevel((Je[(HeroSkills_A089_Target[id])]),'A0F3')>0 then
                    call GroupEnumUnitsInRange(G,tX,tY,600+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,tX,tY,600)then
                            if IsUnitAllyNotbag(u,(Je[(HeroSkills_A089_Target[id])]))then
                                call HeroSkills_A089_A0F3_BuffAdd(u)
                            endif
                        endif
                    endloop
                elseif GetUnitAbilityLevel((Je[(HeroSkills_A089_Target[id])]),'A0OO')>0 then
                    call GroupEnumUnitsInRange(G,tX,tY,750+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,tX,tY,750)then
                            if nC[(GetUnitUserData((u)))]and IsUnitAllyNotbag(u,(Je[(HeroSkills_A089_Target[id])]))then
                                call HeroSkills_A089_A0OO_BuffAdd(id,u)
                            endif
                        endif
                    endloop
                endif
            endif
            call MoveLightningEx(HeroSkills_A089_Lig[id],true,x,y,GetPointZ(x,y)+45,tX,tY,GetPointZ(tX,tY)+90)
        endif
    else
        set b=true
    endif
    if b then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:385")
        call HeroSkills_A089_End(id)
    endif
endfunction

function HeroSkills_A089_Shield_Func takes nothing returns nothing
    local integer id=(pF)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\ReplenishHealth\\ReplenishHealthCasterOverhead.mdl",(MF),"overhead"))
    call SetWidgetLife((Je[(HeroSkills_A089_Target[id])]),GetWidgetLife((Je[(HeroSkills_A089_Target[id])]))-HeroSkills_A089_Shield_v[id]*GetDamage())
    call DamageMinus(HeroSkills_A089_Shield_v[id]*GetDamage())
endfunction

function HeroSkills_A089_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local unit t=GetSpellTargetUnit()
    local integer Type=GetUnitTypeId(t)
    local integer lv
    local real x
    local real y
    local real tX
    local real tY
    if not HaveSavedInteger(BYHT,HeroSkills_A089_HT,Type)or GetOwningPlayer(t)!=(P[Kc[((id))]])or(Je[(HeroSkills_A089_Target[id])])==t then
        call IssueImmediateOrderById((Je[(id)]),$D0004)
    else
        if HeroSkills_A089_Target[id]==0 then
            set HeroSkills_A089_ShieldTrig[id]=UnitAddShieldTrigB((id),function HeroSkills_A089_Shield_Func)
            call UnitAddAbilityBY((Je[(id)]),'A08C')
            call Unit_App_Counter(526,(id))
            call TimerStart(NewTimer(id),.03125,true,function HeroSkills_A089_Start)
        else
            call HeroSkills_A089_Stop(id)
        endif
        set lv=GetUnitAbilityLevel((Je[(id)]),'A089')
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set tX=GetUnitX(t)
        set tY=GetUnitY(t)
        set HeroSkills_A089_Target[id]=(GetUnitUserData((t)))
        set HeroSkills_A089_Lig[id]=AddLightningEx("SPLK",false,x,y,GetPointZ(x,y)+45,tX,tY,GetPointZ(tX,tY)+90)
        set HeroSkills_A089_Count[id]=0
        set HeroSkills_A089_Shield_v[id]=.25+.125*lv
        set HeroSkills_A089_Shield_R[id]=750+$E1*lv
        set HeroSkills_A089_Shield_R[id]=HeroSkills_A089_Shield_R[id]*HeroSkills_A089_Shield_R[id]
        if Type=='hmil' or Type=='hfoo' then
            call SetUnitNotSeckill((HeroSkills_A089_Target[id]),true)
            call SetUnitNocontrol((HeroSkills_A089_Target[id]),true)
        elseif Type=='hwat' or Type=='osw2' then
            call Ltv(Lfv(LAv("AquaSpike.mdl",tX,tY,2.5),$FF,$FF,$9B,$FF))
        endif
        call UnitAddAbilityBY(t,'A08C')
        call UnitAddAbilityBY(t,LoadInteger(BYHT,HeroSkills_A089_HT,Type))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationTarget.mdl",(Je[(id)]),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationTarget.mdl",t,"chest"))
        call Unit_App_Counter(527,HeroSkills_A089_Target[id])
    endif
    set t=null
endfunction

function HeroSkills_A089_Init takes nothing returns nothing
    set HeroSkills_A089_HT=malloc()
    call SaveInteger(BYHT,HeroSkills_A089_HT,'nlv1','Ansk')
    call SaveInteger(BYHT,HeroSkills_A089_HT,'osw1','Ansk')
    call SaveInteger(BYHT,HeroSkills_A089_HT,'hwat','A0OO')
    call SaveInteger(BYHT,HeroSkills_A089_HT,'osw2','A0OO')
    call SaveInteger(BYHT,HeroSkills_A089_HT,'hwt2','SCae')
    call SaveInteger(BYHT,HeroSkills_A089_HT,'osw3','SCae')
    call SaveInteger(BYHT,HeroSkills_A089_HT,'hmil','A0F3')
    call SaveInteger(BYHT,HeroSkills_A089_HT,'hfoo','A0F3')
    call RegisterSpellEffectEvent('A089',function HeroSkills_A089_Actions)
endfunction

function SummonSkills_A08S_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real d
    if Boss_Spell_Z[data]>=Boss_Spell_V[data]then
        set Boss_Spell_V[data]=1.05*Boss_Spell_V[data]+2.5
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]-Boss_Spell_V[data]
    else
        set Boss_Spell_V[data]=Boss_Spell_Z[data]
        set Boss_Spell_Z[data]=0
    endif
    set x=GetUnitX((Je[(Boss_Spell_data1[data])]))+Boss_Spell_V[data]*Boss_Spell_X[data]
    set y=GetUnitY((Je[(Boss_Spell_data1[data])]))+Boss_Spell_V[data]*Boss_Spell_Y[data]
    if not IsTerrainWalkable(x,y)then
        set x=IsTerrainWalkable_X
        set y=IsTerrainWalkable_Y
        set Boss_Spell_Z[data]=0
    endif
    call SetUnitX((Je[(Boss_Spell_data1[data])]),x)
    call SetUnitY((Je[(Boss_Spell_data1[data])]),y)
    if Boss_Spell_Z[data]>0 then
        call CreatePhantom('e00J',2,x,y,Boss_Spell_data2[data])
        call SetUnitAnimationByIndex((Je[(Boss_Spell_data1[data])]),2)
    else
        set d=40*GetHeroState3(Boss_Spell_unit1[data],true)
        call GroupEnumUnitsInRange(G,x,y,425+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,425)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,5)
                endif
            endif
        endloop
        call Ltv(LAv("BlackChakraExplosion.mdl",x,y,3))
        call Ltv(LAv("DarkNova.mdl",x,y,2))
        call Ltv(LAv("DarkPillar.mdl",x,y,3))
        call SetUnitVertexColor((Je[(Boss_Spell_data1[data])]),$FF,$FF,$FF,$FF)
        call SetUnitPathing((Je[(Boss_Spell_data1[data])]),true)
        call SetUnitAnimation((Je[(Boss_Spell_data1[data])]),"Spell")
        call QueueUnitAnimation((Je[(Boss_Spell_data1[data])]),"Stand")
        call PauseUnit((Je[(Boss_Spell_data1[data])]),false)
        call Unit_Cancel_Counter(528,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:386")
    endif
endfunction

function SummonSkills_A08S_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real dx=GetSpellTargetX()-x
    local real dy=GetSpellTargetY()-y
    local real a=Atan2(dy,dx)
    set Boss_Spell_unit1[data]=(Je[((Master[((GetUnitUserData((u))))]))])
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_Z[data]=SquareRoot(dx*dx+dy*dy)
    set Boss_Spell_V[data]=75
    set Boss_Spell_X[data]=Cos(a)
    set Boss_Spell_Y[data]=Sin(a)
    set Boss_Spell_data2[data]=R2I(a*bj_RADTODEG)
    call SetUnitVertexColor(u,$9B,$9B,$9B,$9B)
    call SetUnitPathing(u,false)
    call PauseUnit(u,true)
    call Unit_App_Counter(529,(GetUnitUserData((u))))
    call TimerStart(NewTimer(data),.03125,TRUE,function SummonSkills_A08S_Start)
    set u=null
endfunction

function SummonSkills_A08S_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A08S',function SummonSkills_A08S_Actions)
endfunction

function SummonSkills_A08Q_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local integer i
    local real x
    local real y
    local real nX
    local real nY
    local real nD
    local real rD
    local real a
    set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    set rD=Unit_DOT[(GetUnitUserData((MV[(GetPlayerId(GetOwningPlayer((Je[(((Boss_Spell_data1[data])))]))))])))]*Boss_Spell_V[data]
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if ModuloInteger(Boss_Spell_data3[data],16)==0 then
        set i=$A
        loop
            set i=i-1
            set a=i*bj_PI/ 5
            call Ltv(LAv("s_ShadowEruption_Rain.mdl",x+$FA*Cos(a),y+$FA*Sin(a),1.25))
            exitwhen i==0
        endloop
    endif
    call GroupEnumUnitsInRange(G,x,y,550+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,550)then
            if IsUnitAliveAndEnemyNotAvul(u,(Je[(Boss_Spell_data1[data])]))then
                set nX=GetUnitX(u)-x
                set nY=GetUnitY(u)-y
                set a=Atan2(nY,nX)
                set nD=.9*SquareRoot(nX*nX+nY*nY)-5
                set nX=x+nD*Cos(a)
                set nY=y+nD*Sin(a)
                call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((rD)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                if IsTerrainWalkable(nX,nY)then
                    call SetUnitX(u,nX)
                    call SetUnitY(u,nY)
                endif
            endif
        endif
    endloop
    if GetUnitCurrentOrder((Je[(Boss_Spell_data1[data])]))!=$D0265 or Boss_Spell_data3[data]<=0 then
        call Unit_Cancel_Counter(530,Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:387")
    endif
endfunction

function SummonSkills_A08Q_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=LAv("VoidDrown.mdl",GetUnitX((Je[(Boss_Spell_data1[data])])),GetUnitY((Je[(Boss_Spell_data1[data])])),3.5)
    set Boss_Spell_data3[data]=32
    set Boss_Spell_V[data]=2.34375*GetHeroState3((Je[((Master[(Boss_Spell_data1[data])]))]),true)
    call PlaySoundOnUnit_BJ((Pa),((100)*1.),((Je[(Boss_Spell_data1[data])])))
    call Unit_App_Counter(531,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,TRUE,function SummonSkills_A08Q_Start)
endfunction

function SummonSkills_A08Q_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A08Q',function SummonSkills_A08Q_Actions)
endfunction

function SummonSkills_A08R_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real px
    local real py
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]+1
    if Boss_Spell_data3[data]<48 then
        call Lfv(Boss_Spell_data2[data],25,25,25,R2I($FF/ 48*Boss_Spell_data3[data]))
    else
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        set Boss_Spell_X[data]=Boss_Spell_X[data]-9.375
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+.75-Boss_Spell_X[data]/ $4E2
        set px=x+Boss_Spell_X[data]*Cos(Boss_Spell_Z[data])
        set py=y+Boss_Spell_X[data]*Sin(Boss_Spell_Z[data])
        if Boss_Spell_lig[data]==null then
            set Boss_Spell_lig[data]=AddLightningEx("AFOD",true,x,y,GetPointZ(x,y)+700,px,py,GetPointZ(px,py))
        else
            call MoveLightningEx(Boss_Spell_lig[data],true,x,y,GetPointZ(x,y)+700,px,py,GetPointZ(px,py))
        endif
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",px,py,1.25))
        if ModuloInteger(Boss_Spell_data3[data],3)==0 then
            call DestroyEffect(AddSpecialEffect("ChaosExplosion.mdl",px,py))
            call GroupEnumUnitsInRange(G,px,py,256+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,px,py,256)then
                    if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        if IsUnitInGroup(u,Boss_Spell_group1[data])then
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data]/ 4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        else
                            call GroupAddUnit(Boss_Spell_group1[data],u)
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endif
            endloop
        endif
        if Boss_Spell_X[data]<=100 then
            call DestroyLightning(Boss_Spell_lig[data])
            call RecycleGroup(Boss_Spell_group1[data])
            call Ltv(Boss_Spell_data2[data])
            call Unit_Cancel_Counter(532,Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:388")
            set Boss_Spell_lig[data]=null
            set Boss_Spell_group1[data]=null
        endif
    endif
endfunction

function SummonSkills_A08R_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local real x
    local real y
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set x=GetUnitX((Je[(Boss_Spell_data1[data])]))
    set y=GetUnitY((Je[(Boss_Spell_data1[data])]))
    set Boss_Spell_data2[data]=LAv("Doodads\\Cinematic\\EyeOfSargeras\\EyeOfSargeras.mdl",x,y,2.5)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((400)*1.),0)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data3[data]=0
    set Boss_Spell_V[data]=125*GetHeroState3(MV[GetPlayerId(GetOwningPlayer((Je[(Boss_Spell_data1[data])])))],true)
    set Boss_Spell_Z[data]=0
    set Boss_Spell_X[data]=750
    set Boss_Spell_lig[data]=null
    call Ltv(LIv("Dimension Slash.mdl",x,y,400,1.5,0,90))
    call Lfv(Boss_Spell_data2[data],25,25,25,0)
    call Unit_App_Counter(533,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,TRUE,function SummonSkills_A08R_Start)
endfunction

function SummonSkills_A08R_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A08R',function SummonSkills_A08R_Actions)
endfunction

function HeroSkills_A08N_Start_Func01_Loop takes nothing returns nothing
    local integer data=J[HeroSkills_A08N_Start_Func01_Timer]
    loop
        exitwhen 0==data
        set HeroSkills_A08N_Start_Func01_Count[data]=HeroSkills_A08N_Start_Func01_Count[data]-1
        call LKv(HeroSkills_A08N_Start_Func01_Eff[data],(GetUnitX(II[(HeroSkills_A08N_Start_Func01_Eff[data])]))+HeroSkills_A08N_Start_Func01_X[data])
        call Llv(HeroSkills_A08N_Start_Func01_Eff[data],(GetUnitY(II[(HeroSkills_A08N_Start_Func01_Eff[data])]))+HeroSkills_A08N_Start_Func01_Y[data])
        call SetUnitFlyHeight(II[(HeroSkills_A08N_Start_Func01_Eff[data])],(((GetUnitFlyHeight(II[(HeroSkills_A08N_Start_Func01_Eff[data])]))+1)*1.),0)
        if HeroSkills_A08N_Start_Func01_Count[data]<=0 then
            call Ltv(HeroSkills_A08N_Start_Func01_Eff[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A08N_Start_Func01 takes real x,real y,unit u returns nothing
    local integer data=D9v(HeroSkills_A08N_Start_Func01_Timer)
    local real sX=GetUnitX(u)
    local real sY=GetUnitY(u)
    local real dX=x-sX
    local real dY=y-sY
    local real a=Atan2(dY,dX)
    local real d=SquareRoot(dX*dX+dY*dY)/ 112
    set HeroSkills_A08N_Start_Func01_Eff[data]=Lnv(sX,sY,a)
    call LMv(HeroSkills_A08N_Start_Func01_Eff[data],"Abilities\\Weapons\\SpiritOfVengeanceMissile\\SpiritOfVengeanceMissile.mdl")
    call SetUnitFlyHeight(II[(HeroSkills_A08N_Start_Func01_Eff[data])],((75)*1.),0)
    call SetUnitScale(II[(HeroSkills_A08N_Start_Func01_Eff[data])],((4.5)*1.),0,0)
    set HeroSkills_A08N_Start_Func01_Count[data]=112
    set HeroSkills_A08N_Start_Func01_X[data]=d*Cos(a)
    set HeroSkills_A08N_Start_Func01_Y[data]=d*Sin(a)
    call Lfv(HeroSkills_A08N_Start_Func01_Eff[data],$FF,125,125,$FF)
    call Ltv(LAv("Objects\\Spawnmodels\\NightElf\\NEDeathMedium\\NEDeath.mdl",sX,sY,2))
    call KillUnit(u)
endfunction

function Summon_hphx_onAttack takes nothing returns nothing
    local integer NNv=(pF_v)
    local unit u=(MF)
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local real d=.75*GetDamage()
    set Summon_hphx_onAttack_Count[NNv]=Summon_hphx_onAttack_Count[NNv]+1
    if Summon_hphx_onAttack_Count[NNv]<4 then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(MF),"origin"))
    else
        set Summon_hphx_onAttack_Count[NNv]=0
        set d=4*d
        call UnitDamageTargetBY((((mF))),(((MF))),((((3*GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
        call Ltv(LAv("DarkNova.mdl",x,y,2.25))
    endif
    call GroupEnumUnitsInRange(G,x,y,500+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,500)then
            if IsUnitAliveAndEnemy(u,(mF))then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
            endif
        endif
    endloop
endfunction

function HeroSkills_A08N_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local integer c
    local integer mlv
    local real x
    local real y
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,$80-Boss_Spell_data3[data])
    if ModuloInteger(Boss_Spell_data3[data],16)==0 then
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",x,y,2.5))
        call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x,y,1.25))
    endif
    if Boss_Spell_data3[data]<1 then
        set c=(Master[(id)])
        set mlv=GetHeroState3((Je[(c)]),true)
        call SetUnitNotSeckill(id,false)
        call UnitAddPAttackTrig((id),function Summon_hphx_onAttack)
        call ModifyUnitHP((id),40*mlv)
        call ModifyUnitHpRegen((id),mlv/ $A)
        call ModifyUnitAttackSpeed((id),80)
        call Ltv(LAv("BlackChakraExplosion.mdl",x,y,2.5))
        call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,$FF)
        call UnitApplyTimedLife((Je[(id)]),'B003',30)
        call SetUnitInvulnerable((Je[(id)]),false)
        call SetUnitPathing((Je[(id)]),true)
        call PauseUnit((Je[(id)]),false)
        call Unit_Cancel_Counter(534,id)
        call LTv(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:389")
    endif
endfunction

function HeroSkills_A08N_Conditions takes integer c,unit t returns boolean
    return IsUnitInRange((Je[(c)]),(t),$5DC)
endfunction

function HeroSkills_A08N_Actions takes nothing returns nothing
    local integer c=(GetUnitUserData((GetTriggerUnit())))
    local integer id
    local integer data
    local real x
    local real y
    local real a
    if(IsUnitInRange((Je[((c))]),((HeroSkills_A01R_SummonUnit[c])),$5DC))and(IsUnitInRange((Je[((c))]),((HeroSkills_A02O_SummonUnit[c])),$5DC))and(IsUnitInRange((Je[((c))]),((HeroSkills_A03I_SummonUnit[c])),$5DC))and(IsUnitInRange((Je[((c))]),((HeroSkills_A03J_SummonUnit[c])),$5DC))then
        set data=Boss_Spell_allocate()
        set x=GetSpellTargetX()
        set y=GetSpellTargetY()
        set a=Atan2(y-GetUnitY((Je[(c)])),x-GetUnitX((Je[(c)])))*bj_RADTODEG
        set id=(GetUnitUserData((CreateUnit((P[Kc[((c))]]),'hphx',x,y,a))))
        call SetUnitNotSeckill(id,true)
        set Boss_Spell_data1[data]=id
        set Boss_Spell_data2[data]=LVv('e00I',x,y,a)
        call LDv(Boss_Spell_data2[data],.2)
        set Boss_Spell_data3[data]=120
        call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,0)
        call SetUnitInvulnerable((Je[(id)]),true)
        call SetUnitPathing((Je[(id)]),false)
        call PauseUnit((Je[(id)]),true)
        call HeroSkills_A08N_Start_Func01(x,y,HeroSkills_A01R_SummonUnit[c])
        call HeroSkills_A08N_Start_Func01(x,y,HeroSkills_A02O_SummonUnit[c])
        call HeroSkills_A08N_Start_Func01(x,y,HeroSkills_A03I_SummonUnit[c])
        call HeroSkills_A08N_Start_Func01(x,y,HeroSkills_A03J_SummonUnit[c])
        call Unit_App_Counter(535,id)
        call SummonedUnitSetMaster(id,c)
        call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A08N_Start)
    else
        call IssueImmediateOrderById((Je[(c)]),$D0004)
        call NewTextTagInTarget_B((Je[(c)]),"All sprites collection",8,$CD,$FF,$9B)
    endif
endfunction

function HeroSkills_A08N_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A08N',function HeroSkills_A08N_Actions)
    set HeroSkills_A08N_Start_Func01_Timer=fxv(function HeroSkills_A08N_Start_Func01_Loop)
    call RegisterSpellEffectEvent('A08S',function SummonSkills_A08S_Actions)
    call RegisterSpellEffectEvent('A08Q',function SummonSkills_A08Q_Actions)
    call RegisterSpellEffectEvent('A08R',function SummonSkills_A08R_Actions)
endfunction

function Hero_H009_Init takes nothing returns nothing
    local integer i=0
    call HeroSkills_A00T_Init()
    call HeroSkills_A01R_Init()
    call HeroSkills_A02O_Init()
    call HeroSkills_A03I_Init()
    call HeroSkills_A03J_Init()
    call HeroSkills_A089_Init()
    call HeroSkills_A08N_Init()
endfunction

function s__Bleeding_start takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer s=s__Bleeding_source[this]
    local integer t=s__Bleeding_target[this]
    set s__Bleeding_duration[this]=s__Bleeding_duration[this]-1
    call UnitDamageTargetBY((((Je[(s)]))),(((Je[(t)]))),((((Unit_DOT[s]*s__Bleeding_damage[this])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    if s__Bleeding_duration[this]<=0 then
        set s__Bleeding_counts[t]=s__Bleeding_counts[t]-1
        if s__Bleeding_counts[t]==0 then
            call UnitRemoveAbilityandBuffBY((Je[(t)]),'A033','B02A')
            call Unit_Cancel_Counter(536,t)
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:390")
        call Unit_Cancel_Counter(537,s)
        call s__Bleeding_deallocate(this)
    endif
endfunction

function s__Bleeding_attacktarget takes integer s,integer t,real d returns nothing
    local integer this=s__Bleeding__allocate()
    set s__Bleeding_source[this]=s
    set s__Bleeding_target[this]=t
    set s__Bleeding_duration[this]=4
    set s__Bleeding_damage[this]=d
    set s__Bleeding_counts[t]=s__Bleeding_counts[t]+1
    if s__Bleeding_counts[t]==1 then
        call UnitAddAbilityBY((Je[(t)]),'A033')
        call Unit_App_Counter(538,t)
    endif
    call Unit_App_Counter(539,s)
    call TimerStart(NewTimer(this),.5,true,function s__Bleeding_start)
endfunction

function Hero_H00H_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local integer lv=GetUnitAbilityLevel((mF),'A01K')
    local boolean b=GetUnitAbilityLevel((mF),'B00V')>0 and GetRandomInt(1,$A)<4
    local real r
    if GetRandomInt(1,20)<4 then
        call DestroyEffect(AddSpecialEffectTarget("blood.mdx",(MF),"chest"))
        call s__Bleeding_attacktarget((pF_v),(pF),.25*lv*GetHeroState1((mF),true)+.15*GetDamage())
    else
        call DestroyEffect(AddSpecialEffectTarget("blood damage impact.mdl",(MF),"chest"))
    endif
    if b or HeroSkills_A01K_Number[id]>0 then
        if HeroSkills_A01K_Number[id]>0 then
            set HeroSkills_A01K_Number[id]=HeroSkills_A01K_Number[id]-1
            if HeroSkills_A01K_Number[id]<1 and HeroSkills_A01K_Effect[id]!=0 then
                call ModifyUnitCrit((id),-100)
                call DestroyEffectBY(HeroSkills_A01K_Effect[id])
                set HeroSkills_A01K_Effect[id]=0
            endif
        endif
        if b then
            call UnitDamageTargetBY((((mF))),(((MF))),((((($A+3*GetUnitAbilityLevel((mF),'A037'))*GetHeroState1((mF),true))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        else
            call UnitDamageTargetBY((((mF))),(((MF))),((((($A+3*GetUnitAbilityLevel((mF),'A037'))*GetHeroState1((mF),true))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
        call SetWidgetLife((mF),MaxR(.5,GetWidgetLife((mF))-.03*GetUnitState((mF),UNIT_STATE_MAX_LIFE)))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",(MF),"origin"))
        call TimerDestroyAddSpecialEffectTargetBY("Objects\\Spawnmodels\\Human\\HumanBlood\\HumanBloodLarge0.mdl",(MF),"chest",1.5)
    endif
    set r=UnitCure_Drain((mF),(.15+.005*lv)*GetDamage(),.04*GetUnitState((mF),UNIT_STATE_MAX_LIFE))
    if r>.5 then
        call thv("|c0069ff2d+"+I2S(R2I(r+.5)),GetUnitX((mF)),GetUnitY((mF)),GetUnitFlyHeight((mF))+25,.03,.02,bj_PI/ 2,.5,.75)
    endif
endfunction

function HeroSkills_A01K_AddBuff takes integer id returns nothing
    if GetUnitAbilityLevel((Je[(id)]),'A037')>0 then
        set HeroSkills_A01K_Number[id]=3
        if GetHeroEquipSlot(id,1)=='I0AP' then
            set HeroSkills_A01K_Number[id]=HeroSkills_A01K_Number[id]+2
        endif
        if HeroSkills_A01K_Effect[id]==0 then
            set HeroSkills_A01K_Effect[id]=CreateEffectFor()
            call s__Effect_connect((HeroSkills_A01K_Effect[id]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile_mini.mdl")),(((Je[(id)]))),(("weapon"))))))
            call s__Effect_connect((HeroSkills_A01K_Effect[id]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")),(((Je[(id)]))),(("weapon"))))))
            call ModifyUnitCrit((id),100)
        endif
    endif
endfunction

function HeroSkills_A04S_Actions_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:391")
    call SetUnitTimeScale((Je[(id)]),1)
    call HeroSkills_A01K_AddBuff((id))
endfunction

function HeroSkills_A04S_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local integer id=(GetUnitUserData((c)))
    local integer lv=GetUnitAbilityLevel(c,'A04S')
    local real d=$FA*lv+($A+lv)*GetHeroState1(c,true)
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real a
    local real t=SquareRoot(tx*tx+ty*ty)
    local unit u
    if t>0 then
        set a=Atan2(ty,tx)
        set tx=tx/ t
        set ty=ty/ t
    else
        set a=GetUnitFacing(c)*bj_DEGTORAD
        set tx=Cos(a)
        set ty=Sin(a)
    endif
    set t=Tan(1.8326)
    set x=x-40*tx
    set y=y-40*ty
    call SetUnitTimeScale(c,1.5)
    call SetUnitAnimation(c,"Attack slam")
    call DestroyEffect(AddSpecialEffectTarget("basicstrike.mdx",c,"origin"))
    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile_mini.mdl",c,"weapon",1.25)
    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl",c,"weapon",1.25)
    call SetWidgetLife(c,.5+.88*GetWidgetLife(c))
    call TimerStart(NewTimer(id),.265,false,function HeroSkills_A04S_Actions_func)
    call GroupEnumUnitsInRange(G,x,y,300+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,300)then
            if GetUnitAbilityLevel(u,'Avul')==0 and IsUnitAliveAndEnemy(u,c)then
                set Boss_x[0]=GetUnitX(u)-x
                set Boss_y[0]=GetUnitY(u)-y
                set Boss_x[1]=Boss_x[0]*tx+Boss_y[0]*ty
                if Boss_x[1]>=0 or Boss_x[1]>=RAbsBJ(Boss_y[0]*tx-Boss_x[0]*ty)/ t then
                    call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"chest"))
                    if not(IsUnitType((u),UNIT_TYPE_GIANT))then
                        call GGv(u,125,a,.21875)
                    endif
                endif
            endif
        endif
    endloop
    set c=null
endfunction

function HeroSkills_A04S_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A04S',function HeroSkills_A04S_Actions)
    call Luv('A04S')
endfunction

function HeroSkills_A01B_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer lv=GetUnitAbilityLevel(c,'A01B')
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real d=600*lv+($F+1.5*lv)*GetHeroState1(c,true)
    call GroupEnumUnitsInRange(G,x,y,375+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,375)then
            if IsUnitAliveAndEnemy(u,c)then
                call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call Auxiliary_TargetOrder(('A00C'),null,lv,$D0062,u)
                call m1v(u,.75)
            endif
        endif
    endloop
    call SetWidgetLife(c,.5+.85*GetWidgetLife(c))
    call Ltv(LAv("BloodWave.mdx",x,y,1.75))
    call Ltv(LAv("BlackChakraExplosion.mdx",x,y,1.2))
    set c=null
endfunction

function HeroSkills_A01B_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01B',function HeroSkills_A01B_Actions)
    call Luv('A01B')
endfunction

function HeroSkills_A04U_Loop_c takes nothing returns nothing
    local integer id=HeroSkills_A04U_Next[(0)]
    local real v
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set v=1-GetWidgetLife((Je[(id)]))/ GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)
            call ModifyUnitAttack((id),-HeroSkills_A04U_ValueAtk[id])
            call ModifyUnitMagicDamage((id),-HeroSkills_A04U_ValueMdg[id])
            set HeroSkills_A04U_ValueAtk[id]=R2I((2+.4*GetUnitAbilityLevel((Je[(id)]),'A04U'))*GetHeroState1((Je[(id)]),true)*v)
            set HeroSkills_A04U_ValueMdg[id]=R2I(40*v)
            call ModifyUnitAttack((id),HeroSkills_A04U_ValueAtk[id])
            call ModifyUnitMagicDamage((id),HeroSkills_A04U_ValueMdg[id])
            call SetUnitVertexColor((Je[(id)]),$FF,$FF-R2I($9B*v),$FF-R2I($9B*v),$FF)
        endif
        set id=HeroSkills_A04U_Next[id]
    endloop
endfunction

function Hero_H00H_BeRemove takes nothing returns nothing
    local integer id=le
    set HeroSkills_A04U_Buff_Index[id]=0
    set HeroSkills_A04U_Buff_Str[id]=0
    set HeroSkills_A04U_ValueAtk[id]=0
    set HeroSkills_A04U_ValueMdg[id]=0
    set HeroSkills_A04U_Last[HeroSkills_A04U_Next[id]]=HeroSkills_A04U_Last[id]
    set HeroSkills_A04U_Next[HeroSkills_A04U_Last[id]]=HeroSkills_A04U_Next[id]
    call Unit_Cancel_Counter(540,(id))
    if HeroSkills_A04U_Next[(0)]==0 then
        call frv(HeroSkills_A04U_Func)
    endif
endfunction

function HeroSkills_A04U_BuffExpired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:392")
    call ModifyUnitAttackSpeed((id),-$F*HeroSkills_A04U_Buff_Index[id])
    call HeroAddExtraStr((id),-HeroSkills_A04U_Buff_Str[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A04V','B027')
    call Unit_Cancel_Counter(541,(id))
    set HeroSkills_A04U_Buff_timer[id]=null
    set HeroSkills_A04U_Buff_Index[id]=0
    set HeroSkills_A04U_Buff_Str[id]=0
endfunction

function HeroSkills_A04U_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local integer v
    if HeroSkills_A04U_Buff_Index[id]<5 then
        if HeroSkills_A04U_Buff_timer[id]==null then
            set HeroSkills_A04U_Buff_timer[id]=NewTimer(id)
            call UnitAddAbilityBY((mF),'A04V')
            call Unit_App_Counter(542,(id))
        endif
        set HeroSkills_A04U_Buff_Index[id]=HeroSkills_A04U_Buff_Index[id]+1
        call ModifyUnitAttackSpeed((id),$F)
    endif
    set v=HeroSkills_A04U_Buff_Index[id]*R2I(5*GetUnitAbilityLevel((mF),'A04U')+.04*GetHeroStrNotExtra((id)))
    call HeroAddExtraStr((id),v-HeroSkills_A04U_Buff_Str[id])
    set HeroSkills_A04U_Buff_Str[id]=v
    call TimerStart(HeroSkills_A04U_Buff_timer[id],4,false,function HeroSkills_A04U_BuffExpired)
endfunction

function HeroSkills_A04U_Actions takes nothing returns nothing
    local integer id
    if HeroSkills_A04U_App[(GetUnitUserData((GetTriggerUnit())))]then
        set id=(GetUnitUserData((GetTriggerUnit())))
        set HeroSkills_A04U_App[id]=false
        if HeroSkills_A04U_Next[(0)]==0 then
            call fov(HeroSkills_A04U_Func)
        endif
        set HeroSkills_A04U_Next[id]=HeroSkills_A04U_Next[(0)]
        set HeroSkills_A04U_Last[id]=0
        set HeroSkills_A04U_Last[HeroSkills_A04U_Next[(0)]]=id
        set HeroSkills_A04U_Next[(0)]=id
        call UnitAddPAttackTrig((id),function HeroSkills_A04U_onAttack)
        call UnitAddBeRemoveTrig(id,Condition(function Hero_H00H_BeRemove))
        call Unit_App_Counter(543,(id))
    endif
endfunction

function HeroSkills_A04U_Init takes nothing returns nothing
    set HeroSkills_A04U_Func=fxv(function HeroSkills_A04U_Loop_c)
    call RegisterHeroSkillEvent('A04U',function HeroSkills_A04U_Actions)
    call Luv('A04U')
endfunction

function HeroSkills_A04W_Alloc takes nothing returns integer
    return D9v(HeroSkills_A04W_Func)
endfunction

function HeroSkills_A04W_Stop takes integer data returns nothing
    call fvv(data)
endfunction

function HeroSkills_A04W_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A04W_Func]
    local unit c
    local unit u
    local integer i
    local real x
    local real y
    local real s
    local real a
    loop
        exitwhen 0==data
        if HeroSkills_A04W_Crash[data]then
            set HeroSkills_A04W_Crash[data]=false
            set s=$F
        else
            set s=27.5
        endif
        if s>HeroSkills_A04W_Distance[data]then
            set s=HeroSkills_A04W_Distance[data]
        endif
        set c=(Je[(HeroSkills_A04W_Source[data])])
        set HeroSkills_A04W_time[data]=HeroSkills_A04W_time[data]-1
        set HeroSkills_A04W_Distance[data]=HeroSkills_A04W_Distance[data]-s
        set x=GetUnitX(c)+s*HeroSkills_A04W_VectorX[data]
        set y=GetUnitY(c)+s*HeroSkills_A04W_VectorY[data]
        if not IsTerrainWalkable(x,y)then
            set x=IsTerrainWalkable_X
            set y=IsTerrainWalkable_Y
        endif
        call LKv(HeroSkills_A04W_Storm[data],x)
        call Llv(HeroSkills_A04W_Storm[data],y)
        call SetUnitX(c,x)
        call SetUnitY(c,y)
        call IssueImmediateOrderById(c,$D0004)
        call SetUnitAnimation(c,"Attack Walk Stand Spin")
        if ModuloInteger(HeroSkills_A04W_time[data],3)==0 then
            set i=$A
            call DestroyEffect(AddSpecialEffect("FeatherCrow.mdl",x+GetRandomReal(-$C8,$C8),y+GetRandomReal(-$C8,$C8)))
            loop
                set i=i-1
                set a=.6283*i
                call DestroyEffect(AddSpecialEffect("blood.mdl",x+$96*Cos(a),y+$96*Sin(a)))
                exitwhen i==0
            endloop
        endif
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)then
                if IsUnitAliveAndEnemyNotAvul(u,c)then
                    set HeroSkills_A04W_Crash[data]=true
                    call DestroyEffect(AddSpecialEffectTarget("blood.mdl",u,"chest"))
                    if IsUnitInGroup(u,HeroSkills_A04W_Group[data])then
                        if GetUnitAbilityLevel(u,'A033')==0 then
                            call UnitDamageTargetBY(((c)),((u)),((((Unit_DOT[(HeroSkills_A04W_Source[data])]*.05*HeroSkills_A04W_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        else
                            call UnitDamageTargetBY(((c)),((u)),((((Unit_DOT[(HeroSkills_A04W_Source[data])]*.0875*HeroSkills_A04W_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    else
                        call GroupAddUnit(HeroSkills_A04W_Group[data],u)
                        if GetUnitAbilityLevel(u,'A033')==0 then
                            call UnitDamageTargetBY(((c)),((u)),((((Unit_DOT[(HeroSkills_A04W_Source[data])]*HeroSkills_A04W_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        else
                            call UnitDamageTargetBY(((c)),((u)),((((Unit_DOT[(HeroSkills_A04W_Source[data])]*1.75*HeroSkills_A04W_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c00f53d3d")))
                        endif
                    endif
                endif
            endif
        endloop
        if not UnitAlive(c)or HeroSkills_A04W_Distance[data]<=0 then
            call SetUnitPathing(c,true)
            call SetUnitAnimation(c,"stand")
            call RecycleGroup(HeroSkills_A04W_Group[data])
            call DestroyEffectBY(HeroSkills_A04W_Effect[data])
            call LTv(HeroSkills_A04W_Storm[data])
            call Unit_Cancel_Counter(544,HeroSkills_A04W_Source[data])
            call fvv((data))
            set HeroSkills_A04W_Group[data]=null
        endif
        set data=K[data]
    endloop
    set c=null
endfunction

function HeroSkills_A04W_Actions takes nothing returns nothing
    local integer data=(D9v(HeroSkills_A04W_Func))
    local integer lv
    local real x
    local real y
    local real dX
    local real dY
    local real ang
    set HeroSkills_A04W_Source[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A04W_Effect[data]=CreateEffectFor()
    set HeroSkills_A04W_Group[data]=NewGroup()
    set x=GetUnitX((Je[(HeroSkills_A04W_Source[data])]))
    set y=GetUnitY((Je[(HeroSkills_A04W_Source[data])]))
    set dX=GetSpellTargetX()-x
    set dY=GetSpellTargetY()-y
    set ang=Atan2(dY,dX)
    set HeroSkills_A04W_Storm[data]=Lnv(x,y,ang)
    call LMv(HeroSkills_A04W_Storm[data],"BloodTornado.mdx")
    call SetUnitScale(II[(HeroSkills_A04W_Storm[data])],((1.25)*1.),0,0)
    set HeroSkills_A04W_Crash[data]=false
    set HeroSkills_A04W_time[data]=60
    set HeroSkills_A04W_Distance[data]=SquareRoot(dX*dX+dY*dY)
    set HeroSkills_A04W_VectorX[data]=Cos(ang)
    set HeroSkills_A04W_VectorY[data]=Sin(ang)
    set lv=GetUnitAbilityLevel((Je[(HeroSkills_A04W_Source[data])]),'A04W')
    set HeroSkills_A04W_Damage[data]=$3E8*lv+GetHeroState1((Je[(HeroSkills_A04W_Source[data])]),true)*($F+2*lv)
    if GetHeroEquipSlot(HeroSkills_A04W_Source[data],1)=='I0AP' then
        set HeroSkills_A04W_Damage[data]=HeroSkills_A04W_Damage[data]*2
    endif
    if HeroSkills_A04W_Distance[data]<400 then
        set HeroSkills_A04W_Distance[data]=400
    endif
    call s__Effect_connect((HeroSkills_A04W_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile_mini.mdl")),(((Je[(HeroSkills_A04W_Source[data])]))),(("weapon"))))))
    call s__Effect_connect((HeroSkills_A04W_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")),(((Je[(HeroSkills_A04W_Source[data])]))),(("weapon"))))))
    call SetUnitAnimation((Je[(HeroSkills_A04W_Source[data])]),"Attack Walk Stand Spin")
    call SetWidgetLife((Je[(HeroSkills_A04W_Source[data])]),.5+.8*GetWidgetLife((Je[(HeroSkills_A04W_Source[data])])))
    call SetUnitPathing((Je[(HeroSkills_A04W_Source[data])]),false)
    call Unit_App_Counter(545,HeroSkills_A04W_Source[data])
endfunction

function HeroSkills_A04W_Init takes nothing returns nothing
    set HeroSkills_A04W_Func=fxv(function HeroSkills_A04W_Start)
    call RegisterSpellEffectEvent('A04W',function HeroSkills_A04W_Actions)
    call Luv('A04W')
endfunction

function HeroSkills_A037_Loop_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    if UnitAlive((Je[(id)]))then
        set HeroSkills_A037_Duration[id]=HeroSkills_A037_Duration[id]-1
        call Ltv(Lfv(LVv('e005',x,y,0),$FF,0,0,$FF))
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.25))
    else
        set HeroSkills_A037_Duration[id]=0
    endif
    if HeroSkills_A037_Duration[id]<1 then
        if HeroSkills_A037_NotSeckill[id]then
            set HeroSkills_A037_NotSeckill[id]=not HeroSkills_A037_NotSeckill[id]
            call SetUnitNotSeckill((id),HeroSkills_A037_NotSeckill[id])
        endif
        call s__Trig_remove((HeroSkills_A037_App[id]))
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:393")
        call UnitRemoveAbility((Je[(id)]),'B00V')
        call Unit_Cancel_Counter(546,(id))
        set HeroSkills_A037_App[id]=0
    endif
endfunction

function HeroSkills_A037_onDamaged takes nothing returns nothing
    if GetUnitAbilityLevel((MF),'B00V')>0 then
        call DamageAmplify(.25*GetDamage())
        if GetWidgetLife((MF))-GetDamage()<=1 then
            set KF[HF]=PF+1000000.
            call SetWidgetLife((MF),.5)
        endif
    endif
endfunction

function HeroSkills_A037_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=8
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    local boolean b=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('I0C9')))or(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('I0FC')))
    if HeroSkills_A037_App[id]==null then
        set HeroSkills_A037_App[id]=UnitAddBeDamagerTrigB(id,function HeroSkills_A037_onDamaged)
        call TimerStart(NewTimer(id),1,true,function HeroSkills_A037_Loop_c)
        call Unit_App_Counter(547,(id))
    endif
    if HeroSkills_A037_NotSeckill[id]!=b then
        set HeroSkills_A037_NotSeckill[id]=not HeroSkills_A037_NotSeckill[id]
        call SetUnitNotSeckill((id),HeroSkills_A037_NotSeckill[id])
    endif
    set HeroSkills_A037_Duration[id]=$F
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        call Ltv(Lbv(LVv('e004',x+$E1*Cos(a),y+$E1*Sin(a),0),3.5,.75))
        exitwhen i==0
    endloop
    call PlaySoundOnUnit_BJ((qa),((100)*1.),((Je[(id)])))
    call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,4))
endfunction

function HeroSkills_A037_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A037',function HeroSkills_A037_Actions)
    call Luv('A037')
endfunction

function HeroSkills_A00A_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit c
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real co
    local real s
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    if not UnitAlive((Je[(Boss_Spell_data1[data])]))then
        if GetLocalPlayer()==(P[Kc[((Boss_Spell_data1[data]))]])then
            call CameraSetSourceNoise(0,0)
            call CameraSetTargetNoise(0,0)
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:394")
        call PauseUnit((Je[(Boss_Spell_data1[data])]),false)
        call SetUnitInvulnerable((Je[(Boss_Spell_data1[data])]),false)
        call Unit_Cancel_Counter(548,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
    elseif 26>Boss_Spell_data2[data]and Boss_Spell_data2[data]>$A then
        set c=(Je[(Boss_Spell_data1[data])])
        set i=$A
        set x=GetUnitX(c)
        set y=GetUnitY(c)
        loop
            set i=i-1
            set a=.6283*i
            call Ltv(LAv("blood.mdl",x+$AF*Cos(a),y+$AF*Sin(a),2))
            exitwhen i==0
        endloop
        call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,2.5))
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,3.5))
        call SetUnitAnimation(c,"Attack")
        call GroupEnumUnitsInRange(G,x,y,350+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if IsUnitAliveAndEnemy(u,c)then
                    call UnitDamageTargetBY(((c)),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,1)
                endif
            endif
        endloop
    elseif Boss_Spell_data2[data]==$A then
        call SetUnitTimeScale((Je[(Boss_Spell_data1[data])]),1)
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",GetUnitX((Je[(Boss_Spell_data1[data])])),GetUnitY((Je[(Boss_Spell_data1[data])])),1))
        call GGv((Je[(Boss_Spell_data1[data])]),-800,GetUnitFacing((Je[(Boss_Spell_data1[data])]))*bj_DEGTORAD,.21875*Boss_Spell_V[data])
        call TimerDestroyAddSpecialEffectTargetBY("SuperShinyThingy.mdx",(Je[(Boss_Spell_data1[data])]),"hand",2)
    elseif Boss_Spell_data2[data]==2 then
        call SetUnitAnimation((Je[(Boss_Spell_data1[data])]),"attack slam")
        call QueueUnitAnimation((Je[(Boss_Spell_data1[data])]),"stand")
        call GGv((Je[(Boss_Spell_data1[data])]),800,GetUnitFacing((Je[(Boss_Spell_data1[data])]))*bj_DEGTORAD,.21875*Boss_Spell_V[data])
    elseif Boss_Spell_data2[data]==0 then
        set c=(Je[(Boss_Spell_data1[data])])
        set i=8
        set x=GetUnitX(c)
        set y=GetUnitY(c)
        set Boss_Spell_Z[data]=$C*Boss_Spell_Z[data]
        loop
            set i=i-1
            set a=i*Lx/ 8
            set co=x+275*Cos(a)
            set s=y+275*Sin(a)
            call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",co,s,2.75))
            call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",co,s,3.5))
            exitwhen i==0
        endloop
        if GetLocalPlayer()==GetOwningPlayer(c)then
            call CameraSetSourceNoise(0,0)
            call CameraSetTargetNoise(0,0)
        endif
        call GroupEnumUnitsInRange(G,x,y,550+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,550)then
                if IsUnitAliveAndEnemy(u,c)then
                    call UnitDamageTargetBY(((c)),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,2.5)
                endif
            endif
        endloop
        call PauseUnit(c,false)
        call SetUnitInvulnerable(c,false)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:395")
        call Unit_Cancel_Counter(549,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
    endif
    set c=null
endfunction

function HeroSkills_A00A_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit c=GetTriggerUnit()
    local unit u
    set Boss_Spell_data1[data]=(GetUnitUserData((c)))
    set Boss_Spell_data2[data]=29
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set Boss_Spell_Z[data]=35*GetHeroState1(c,true)
    set Boss_Spell_V[data]=1./(1.+.01*GetUnitDefaultAttackSpeed((Boss_Spell_data1[data])))
    if Boss_Spell_V[data]>1. then
        set Boss_Spell_V[data]=1.
    endif
    if GetLocalPlayer()==GetOwningPlayer(c)then
        call CameraSetTargetNoiseEx(30,100,true)
        call CameraSetSourceNoiseEx(30,100,true)
    endif
    call SetUnitX(c,Boss_Spell_X[data])
    call SetUnitY(c,Boss_Spell_Y[data])
    call PauseUnit(c,true)
    call SetUnitInvulnerable(c,true)
    call SetUnitAnimation(c,"attack")
    call SetUnitTimeScale(c,1.75)
    call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],3.75))
    call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],5))
    call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],400)then
            if IsUnitAliveAndEnemy(u,c)then
                call m1v(u,5)
            endif
        endif
    endloop
    call TimerStart(NewTimer(data),.2*Boss_Spell_V[data],true,function HeroSkills_A00A_Start)
    call Unit_App_Counter(550,Boss_Spell_data1[data])
    set c=null
endfunction

function HeroSkills_A00A_ChannelActions takes nothing returns nothing
    if not IsTerrainWalkable(GetSpellTargetX(),GetSpellTargetY())then
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    endif
endfunction

function HeroSkills_A00A_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A00A',function HeroSkills_A00A_ChannelActions)
    call RegisterSpellEffectEvent('A00A',function HeroSkills_A00A_Actions)
endfunction

function Hero_EnterWorld_H00H takes nothing returns nothing
    local integer id=le
    set HeroSkills_A04U_App[id]=true
    call UnitAddPAttackTrig(id,function Hero_H00H_onAttack)
endfunction

function Hero_H00H_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H00H',function Hero_EnterWorld_H00H)
    call HeroSkills_A04S_Init()
    call HeroSkills_A01B_Init()
    call HeroSkills_A04U_Init()
    call HeroSkills_A04W_Init()
    call HeroSkills_A037_Init()
    call HeroSkills_A00A_Init()
endfunction

function HeroSkills_A0MS_BuffEnd takes integer id returns nothing
    if HeroSkills_A0MS_Open[id]then
        set HeroSkills_A0MS_Last[HeroSkills_A0MS_Next[id]]=HeroSkills_A0MS_Last[id]
        set HeroSkills_A0MS_Next[HeroSkills_A0MS_Last[id]]=HeroSkills_A0MS_Next[id]
        set HeroSkills_A0MS_Open[id]=false
        if HeroSkills_A0MS_Next[(0)]==0 then
            call frv(HeroSkills_A0MS_Func)
        endif
        set HeroSkills_A0MS_Charged[id]=0
        set HeroSkills_A0MS_Number[id]=0
        if HeroSkills_A0MS_Effect[id]!=0 then
            call DestroyEffectBY(HeroSkills_A0MS_Effect[id])
            set HeroSkills_A0MS_Effect[id]=0
        endif
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0N9','B04V')
        call SetUnitAbilityLevelBY((Je[(id)]),'A0NA',1)
        call Unit_Cancel_Counter(551,(id))
    endif
endfunction

function HeroSkills_A0MS_BuffLoop takes nothing returns nothing
    local integer id=HeroSkills_A0MS_Next[(0)]
    loop
        exitwhen id==0
        set HeroSkills_A0MS_Duration[id]=HeroSkills_A0MS_Duration[id]-1
        if not UnitAlive((Je[(id)]))or HeroSkills_A0MS_Duration[id]<1 then
            call HeroSkills_A0MS_BuffEnd(id)
        endif
        set id=HeroSkills_A0MS_Next[id]
    endloop
endfunction

function HeroSkills_A0MS_BuffUp takes integer id returns nothing
    set HeroSkills_A0MS_Duration[id]=320
    set HeroSkills_A0MS_Charged[id]=0
    if not HeroSkills_A0MS_Open[id]then
        if HeroSkills_A0MS_Next[(0)]==0 then
            if HeroSkills_A0MS_Func==0 then
                set HeroSkills_A0MS_Func=fxv(function HeroSkills_A0MS_BuffLoop)
            endif
            call fov(HeroSkills_A0MS_Func)
        endif
        set HeroSkills_A0MS_Next[id]=HeroSkills_A0MS_Next[(0)]
        set HeroSkills_A0MS_Last[HeroSkills_A0MS_Next[(0)]]=id
        set HeroSkills_A0MS_Next[(0)]=id
        set HeroSkills_A0MS_Last[id]=0
        set HeroSkills_A0MS_Open[id]=true
        call Unit_App_Counter(552,(id))
        call UnitAddAbilityBY((Je[(id)]),'A0N9')
        call SetUnitAbilityLevelBY((Je[(id)]),'A0NA',2)
    endif
endfunction

function HeroSkills_A0MS_BuffDecline takes integer id returns boolean
    if HeroSkills_A0MS_Number[id]>0 then
        set HeroSkills_A0MS_Number[id]=HeroSkills_A0MS_Number[id]-1
        if HeroSkills_A0MS_Number[id]==0 then
            call zhv((Kc[(id)]),50,.75)
            call FloatedTargetBYStun((MF),false)
            call HeroSkills_A0MS_BuffEnd(id)
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",(MF),"origin"))
        return true
    endif
    call HeroSkills_A0MS_BuffEnd(id)
    return false
endfunction

function Hero_H01H_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local real d
    if HeroSkills_A0MS_Open[id]then
        set d=.5*(GetUnitAbilityLevel((mF),'A0MS')*(.8*GetHeroState1((mF),true)+GetHeroState2((mF),true))+(DAK_AMOUNT[HF]))
        if HeroSkills_A0MS_BuffDecline(id)then
            if not HeroSkills_A0MS_Open[id]then
                call UnitDamageTargetBY((((mF))),(((MF))),((((2*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((18)*1.))*1.),(("|c00fe2101")))
            else
                call UnitDamageTargetBY((((mF))),(((MF))),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((9)*1.))*1.),(("|c00fe2101")))
            endif
        else
            call UnitDamageTargetBY((((mF))),(((MF))),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((9)*1.))*1.),(("|c00fe2101")))
        endif
    else
        set HeroSkills_A0MS_Charged[id]=HeroSkills_A0MS_Charged[id]+1
        if HeroSkills_A0MS_Charged[id]==4 then
            call HeroSkills_A0MS_BuffUp(id)
        endif
    endif
endfunction

function HeroSkills_A0MS_Set takes integer id returns nothing
    call UnitAddAbilityBY((Je[(id)]),'A0N2')
    call UnitAddPAttackTrig(id,function Hero_H01H_onAttack)
endfunction

function Hero_Skills_Thunder_RrefreshStrength takes integer id returns nothing
    local integer value=R2I(Hero_Skills_Thunder_Energy[id]*(80*Hero_Skills_Thunder_buffLv[id]+2.5*Hero_Skills_Thunder_Strength[id]))
    call ModifyUnitAttack((id),value-Hero_Skills_Thunder_buffDamage[id])
    set Hero_Skills_Thunder_buffDamage[id]=value
    set value=R2I(Hero_Skills_Thunder_Energy[id]*(6*Hero_Skills_Thunder_buffLv[id]+.03*Hero_Skills_Thunder_Strength[id]))
    call ModifyUnitArmor((id),value-Hero_Skills_Thunder_buffArmor[id])
    set Hero_Skills_Thunder_buffArmor[id]=value
    set value=R2I((25+5*Hero_Skills_Thunder_buffLv[id])*Hero_Skills_Thunder_Energy[id])
    call ModifyUnitAttackSpeed((id),value-Hero_Skills_Thunder_buffAtkSp[id])
    set Hero_Skills_Thunder_buffAtkSp[id]=value
endfunction

function Hero_Skills_Thunder_Charge takes integer id,real value returns nothing
    local integer local_num
    if value>0 then
        if Hero_Skills_Thunder_Energy[id]<Hero_Skills_Thunder_MaxEnergy[id]then
            if Hero_Skills_Thunder_EnergyUp[id]<.32 then
                set value=RMinBJ(.32-Hero_Skills_Thunder_EnergyUp[id],value)
                set Hero_Skills_Thunder_Energy[id]=RMinBJ(Hero_Skills_Thunder_Energy[id]+value,Hero_Skills_Thunder_MaxEnergy[id])
                set local_num=R2I(3*Hero_Skills_Thunder_Energy[id]+.001)
                if Hero_Skills_Thunder_Series[id]<Hero_Skills_Thunder_MaxSeries[id]and(Hero_Skills_Thunder_Energy[id]==Hero_Skills_Thunder_MaxEnergy[id]or local_num>Hero_Skills_Thunder_Series[id])then
                    if Hero_Skills_Thunder_Series[id]==0 then
                        set Hero_Skills_Thunder_Halo[id]=LAv("Magnetic Field.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1+.45*Hero_Skills_Thunder_Series[id])
                    endif
                    set Hero_Skills_Thunder_Series[id]=local_num
                    call NewTextTagInTarget_B((Je[(id)]),"|c000080ff+"+I2S(Hero_Skills_Thunder_Series[id])+" STACK",6+3*Hero_Skills_Thunder_Series[id],$FF,$FF,$FF)
                    call Ltv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1.5+.75*Hero_Skills_Thunder_Series[id]))
                endif
                call Hero_Skills_Thunder_RrefreshStrength(id)
            endif
        endif
    elseif value<0 and Hero_Skills_Thunder_Energy[id]>0 then
        set Hero_Skills_Thunder_Energy[id]=MaxR(0,Hero_Skills_Thunder_Energy[id]+value)
        set Hero_Skills_Thunder_Series[id]=R2I(3*Hero_Skills_Thunder_Energy[id]+.001)
        call Hero_Skills_Thunder_RrefreshStrength(id)
        if Hero_Skills_Thunder_Series[id]==0 and Hero_Skills_Thunder_Halo[id]>0 then
            call LTv(Hero_Skills_Thunder_Halo[id])
            set Hero_Skills_Thunder_Halo[id]=0
        endif
    endif
endfunction

function Hero_Skills_Thunder_Consume takes integer id,real a returns nothing
    call Hero_Skills_Thunder_Charge(id,-a)
endfunction

function Hero_Skills_Thunder_ModifyMaxSeries takes integer id,integer value returns nothing
    set Hero_Skills_Thunder_MaxSeries[id]=Hero_Skills_Thunder_MaxSeries[id]+value
    set Hero_Skills_Thunder_MaxEnergy[id]=Hero_Skills_Thunder_MaxSeries[id]/ 3.
    if Hero_Skills_Thunder_Energy[id]>Hero_Skills_Thunder_MaxEnergy[id]then
        call Hero_Skills_Thunder_Charge(id,Hero_Skills_Thunder_MaxEnergy[id]-Hero_Skills_Thunder_Energy[id])
    endif
endfunction

function Hero_Skills_Thunder_Stop takes integer id returns nothing
    if Hero_Skills_Thunder_Use[id]then
        set Hero_Skills_Thunder_Last[Hero_Skills_Thunder_Next[id]]=Hero_Skills_Thunder_Last[id]
        set Hero_Skills_Thunder_Next[Hero_Skills_Thunder_Last[id]]=Hero_Skills_Thunder_Next[id]
        set Hero_Skills_Thunder_Use[id]=false
        if Hero_Skills_Thunder_Next[(0)]==0 then
            call frv(Hero_Skills_Thunder_Func)
        endif
        call Unit_Cancel_Counter(553,(id))
    endif
endfunction

function Hero_Skills_Thunder_Loop_c takes nothing returns boolean
    local integer id=Hero_Skills_Thunder_Next[(0)]
    local real x
    local real y
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set Hero_Skills_Thunder_Strength[id]=GetHeroState1((Je[(id)]),true)+.8*GetHeroState2((Je[(id)]),true)
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            if Hero_Skills_Thunder_Halo[id]>0 then
                call LKv(Hero_Skills_Thunder_Halo[id],x)
                call Llv(Hero_Skills_Thunder_Halo[id],y)
            endif
            if Hero_Skills_Thunder_EnergyUp[id]>0 then
                if Hero_Skills_Thunder_EnergyUp[id]>.01 then
                    set Hero_Skills_Thunder_EnergyUp[id]=Hero_Skills_Thunder_EnergyUp[id]-.01
                else
                    set Hero_Skills_Thunder_EnergyUp[id]=0
                endif
            endif
        else
            call Hero_Skills_Thunder_Charge((id),-((Hero_Skills_Thunder_Energy[id])*1.))
        endif
        if GetUnitTypeId((Je[(id)]))==0 then
            call Hero_Skills_Thunder_Stop(id)
        endif
        set id=Hero_Skills_Thunder_Next[id]
    endloop
    return false
endfunction

function Hero_Skills_Thunder_Open takes integer id returns boolean
    if not Hero_Skills_Thunder_Use[id]then
        if Hero_Skills_Thunder_Next[(0)]==0 then
            if Hero_Skills_Thunder_Func==0 then
                set Hero_Skills_Thunder_Func=fxv(function Hero_Skills_Thunder_Loop_c)
            endif
            call fov(Hero_Skills_Thunder_Func)
        endif
        set Hero_Skills_Thunder_Next[id]=Hero_Skills_Thunder_Next[(0)]
        set Hero_Skills_Thunder_Last[Hero_Skills_Thunder_Next[(0)]]=id
        set Hero_Skills_Thunder_Next[(0)]=id
        set Hero_Skills_Thunder_Last[id]=0
        set Hero_Skills_Thunder_Use[id]=true
        call Unit_App_Counter(554,(id))
        return true
    endif
    return false
endfunction

function Hero_H01H_onDamage takes nothing returns nothing
    local integer id=(pF_v)
    if(JF[HF])then
        call Hero_Skills_Thunder_Charge(id,.05)
    else
        call Hero_Skills_Thunder_Charge(id,.0001*GetDamage()/ Hero_Skills_Thunder_Strength[id])
    endif
endfunction

function HeroSkills_A0MX_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetLearningUnit())))
    if Hero_Skills_Thunder_Open(id)then
        call UnitAddDamagerTrig(id,function Hero_H01H_onDamage)
        set Hero_Skills_Thunder_Strength[id]=GetHeroState1((Je[(id)]),true)+GetHeroState2((Je[(id)]),true)
        set Hero_Skills_Thunder_MaxSeries[id]=3
        set Hero_Skills_Thunder_MaxEnergy[id]=1
    endif
    set Hero_Skills_Thunder_buffLv[id]=GetUnitAbilityLevel((Je[(id)]),'A0MX')
    call ModifyUnitArmor((id),$C)
endfunction

function HeroSkills_A0MX_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0MX',function HeroSkills_A0MX_Actions)
    call Luv('A0MX')
endfunction

function HeroSkills_A0MT_Actions_func takes nothing returns nothing
    call UnitRemoveAbility((Je[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:396"))]),'BNvc')
endfunction

function HeroSkills_A0MT_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A0MS_Effect[id]==0 then
        set HeroSkills_A0MS_Effect[id]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Orc\\SpiritLink\\SpiritLinkTarget.mdl"),((Je[(id)])),("origin"))))
    endif
    set HeroSkills_A0MS_Number[id]=3
    call TimerStart(NewTimer(id),0,false,function HeroSkills_A0MT_Actions_func)
    call Ltv(Lbv(LVv('e02M',GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),0),.875,1.5))
    call HeroSkills_A0MS_BuffUp(id)
endfunction

function HeroSkills_A0MT_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0MT',function HeroSkills_A0MT_Actions)
    call Luv('A0MT')
endfunction

function HeroSkills_A0N4_Stop takes integer t returns nothing
    local integer data=Timer_List[t]
    if UnitAlive(Boss_Spell_unit1[data])then
        call SetUnitAnimation(Boss_Spell_unit1[data],"Stand")
    endif
    call SetUnitPathing(Boss_Spell_unit1[data],true)
    call PauseUnit(Boss_Spell_unit1[data],false)
    call Ltv(Boss_Spell_data1[data])
    call Boss_Spell_deallocate(data)
    call fvv(t)
endfunction

function HeroSkills_A0N4_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A0N4_Func]
    local integer data
    local unit u
    local integer lv
    local real x
    local real y
    local real dX
    local real dY
    local real a
    local real d
    local real damage
    local real v
    local real s
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        if Boss_Spell_unit2[data]!=null then
            if UnitAlive(Boss_Spell_unit2[data])then
                set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit2[data])
                set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit2[data])
            else
                set Boss_Spell_unit2[data]=null
            endif
        endif
        set x=GetUnitX(Boss_Spell_unit1[data])
        set y=GetUnitY(Boss_Spell_unit1[data])
        set dX=Boss_Spell_X[data]-x
        set dY=Boss_Spell_Y[data]-y
        set a=Atan2(dY,dX)
        set d=SquareRoot(dX*dX+dY*dY)
        set s=30+d/ 17.5
        set x=x+s*Cos(a)
        set y=y+s*Sin(a)
        call LKv(Boss_Spell_data1[data],x+(s+$A)*Cos(a))
        call Llv(Boss_Spell_data1[data],y+(s+$A)*Sin(a))
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+s
        if not UnitAlive(Boss_Spell_unit1[data])or d>$7D0 then
            call HeroSkills_A0N4_Stop(t)
        elseif d>$80 then
            call IssueImmediateOrderById(Boss_Spell_unit1[data],$D0004)
            call SetUnitX(Boss_Spell_unit1[data],x)
            call SetUnitY(Boss_Spell_unit1[data],y)
            call SetUnitFacingTimed(Boss_Spell_unit1[data],a*bj_RADTODEG,0)
            call Lqv(LAv("KnockbackDust.mdl",x,y,1),.75)
            if Boss_Spell_data2[data]==1 then
                set Boss_Spell_data2[data]=0
                call CreatePhantom('e02H',2,x,y,bj_RADTODEG*a)
            else
                set Boss_Spell_data2[data]=1
            endif
        else
            set lv=GetUnitAbilityLevel(Boss_Spell_unit1[data],'A0N4')
            set x=Boss_Spell_X[data]
            set y=Boss_Spell_Y[data]
            call LDv(Boss_Spell_data1[data],3)
            set damage=$5DC*lv+($F+1.5*lv)*GetHeroState1(Boss_Spell_unit1[data],true)+(20+2*lv)*GetHeroState2(Boss_Spell_unit1[data],true)
            if Boss_Spell_Z[data]>400 then
                set damage=1.5*damage
                set v=1.5
                call Ltv(Lfv(LFv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.5),"AncientExplode.mdl"),$FF,94,0,$FF))
            else
                set v=1
                call Ltv(Lfv(LFv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.125),"AncientExplode.mdl"),$FF,94,0,$FF))
            endif
            call GroupEnumUnitsInRange(G,x,y,275+75,null)
            call GroupRemoveUnit(G,Boss_Spell_unit2[data])
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,275)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((damage)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m2v(u,v,'A500','B500',true)
                    endif
                endif
            endloop
            if Boss_Spell_unit2[data]!=null then
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((Boss_Spell_unit2[data])),((((damage)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m2v(Boss_Spell_unit2[data],v,'A500','B500',true)
            endif
            call HeroSkills_A0N4_Stop(t)
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A0N4_Actions takes nothing returns nothing
    local integer t=D9v(HeroSkills_A0N4_Func)
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real a
    set Timer_List[t]=data
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_data2[data]=0
    set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit2[data])
    set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit2[data])
    set Boss_Spell_Z[data]=0
    set a=Atan2(Boss_Spell_Y[data]-y,Boss_Spell_X[data]-x)
    set Boss_Spell_data1[data]=LVv('e02J',x+$A*Cos(a),y+$A*Sin(a),bj_RADTODEG*a)
    call LDv(Boss_Spell_data1[data],.6)
    call SetUnitAnimation(II[Boss_Spell_data1[data]],"Birth")
    call SetUnitPathing(Boss_Spell_unit1[data],false)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],$B)
endfunction

function HeroSkills_A0N4_Init takes nothing returns nothing
    set HeroSkills_A0N4_Func=fxv(function HeroSkills_A0N4_Start)
    call RegisterSpellEffectEvent('A0N4',function HeroSkills_A0N4_Actions)
    call Luv('A0N4')
endfunction

function HeroSkills_A0MV_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local integer loc_str=GetHeroState1((Je[(id)]),true)
    local integer loc_agi=GetHeroState2((Je[(id)]),true)
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0MV')
    local integer target
    local unit u
    local real d
    local real time
    set HeroSkills_A0MV_Duration[id]=HeroSkills_A0MV_Duration[id]-1
    if not UnitAlive((Je[(id)]))or HeroSkills_A0MV_Duration[id]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:397")
        call UnitRemoveAbility((Je[(id)]),'B04S')
        call free(HeroSkills_A0MV_HT[id])
        call s__Trig_remove(HeroSkills_A0MV_Trig[id])
        call DeUnitAdef((id),HeroSkills_A0MV_Adef[id])
        call DestroyEffectBY(HeroSkills_A0MV_Effect[id])
        call Unit_Cancel_Counter(555,(id))
        set HeroSkills_A0MV_Adef[id]=0
    else
        set d=$C8*lv+(3+.3*lv)*loc_str+(4+.4*lv)*loc_agi
        set time=(100000.-TimerGetRemaining(GameTimer))
        if Hero_Skills_Thunder_Energy[(id)]>.02 then
            call Hero_Skills_Thunder_Charge(((id)),-((.02)*1.))
            call GroupEnumUnitsInRange(G,x,y,550+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,550)then
                    set target=GetHandleId(u)
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))and time>=LoadReal(BYHT,HeroSkills_A0MV_HT[id],target)then
                        call SaveReal(BYHT,HeroSkills_A0MV_HT[id],target,time+1)
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",u,"origin"))
                        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Other\\ForkedLightning\\ForkedLightningTarget.mdl"),(u),("chest")))),.75)
                        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl"),(u),("origin")))),.25)
                        call Puv("CLPB",(Je[(id)]),u,.75,1,0)
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((3*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c000080ff")))
                    endif
                endif
            endloop
        else
            call GroupEnumUnitsInRange(G,x,y,275+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,275)then
                    set target=(GetUnitUserData((u)))
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))and time>=LoadReal(BYHT,HeroSkills_A0MV_HT[id],target)then
                        call SaveReal(BYHT,HeroSkills_A0MV_HT[id],target,time+1)
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",u,"origin"))
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endif
            endloop
        endif
    endif
endfunction

function Hero_H01H_onDamaged takes nothing returns nothing
    if GetUnitAbilityLevel((MF),'B04S')>0 and .6*GetUnitState((MF),UNIT_STATE_LIFE)>GetDamage()then
        call DamageMinus(GetDamage()*.5)
    endif
endfunction

function HeroSkills_A0MV_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0MV_Duration[id]=120
    if HeroSkills_A0MV_Adef[id]==0 then
        set HeroSkills_A0MV_HT[id]=malloc()
        set HeroSkills_A0MV_Trig[id]=UnitAddBeDamagerTrigB(id,function Hero_H01H_onDamaged)
        set HeroSkills_A0MV_Adef[id]=ModifyUnitAdef(id,40)
        set HeroSkills_A0MV_Effect[id]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Orc\\LightningShield\\LightningShieldTarget.mdl"),((Je[(id)])),("origin"))))
        call TimerStart(NewTimer(id),.1,true,function HeroSkills_A0MV_Start)
        call Unit_App_Counter(556,(id))
    endif
endfunction

function HeroSkills_A0MV_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0MV',function HeroSkills_A0MV_Actions)
    call Luv('A0MV')
endfunction

function HeroSkills_A0N0_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local unit c=GetTriggerUnit()
    local unit target=GetSpellTargetUnit()
    local unit u
    local real e=Hero_Skills_Thunder_Energy[(id)]
    local real x=GetUnitX(target)
    local real y=GetUnitY(target)
    local real a=Atan2(y-GetUnitY(c),x-GetUnitX(c))
    local real d
    local integer DCv=GetHeroState1(c,true)
    local integer mKv=GetHeroState2(c,true)
    local integer lv=GetUnitAbilityLevel(c,'A0N0')
    set d=(1+.5*e)*((8000+4*GetHeroAttack((id)))*lv+(50+$A*lv)*(DCv+mKv))
    call GroupEnumUnitsInRange(G,x,y,300+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,300)then
            if IsUnitAliveAndEnemy(u,c)then
                if u==target then
                    if e>=1. then
                        call BrokenShield_A(u)
                        call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((20)*1.))*1.),(("|c00fe2101破坏！ ")))
                        call zKv((Kc[(id)]),$FF,95,95,1)
                        call zhv((Kc[(id)]),75,.6)
                        call Lqv(Lfv(LIv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,125,3,a,0),$FF,0,0,$FF),1.5)
                    else
                        call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F+5*e)*1.))*1.),(("|c00fe2101")))
                        call zKv((Kc[(id)]),$FF,$87,$87,1)
                        call zhv((Kc[(id)]),50,.6)
                    endif
                    call Lqv(Lfv(LIv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",x,y,75,2+2*e,a,0),$FF,125,125,$FF),1.5)
                    call m1v(u,2)
                else
                    call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,.5)
                endif
            endif
        endif
    endloop
    if e>0 then
        call Hero_Skills_Thunder_Charge(((id)),-((e)*1.))
    endif
    call Ltv(LXv('e02N',x,y,.5,"death"))
    call Ltv(LXv('e02O',x,y,.5,"death"))
    call PlaySoundOnUnit_BJ((Un),(($7F)*1.),(target))
    set c=null
    set target=null
endfunction

function HeroSkills_A0N0_Channel_Actions takes nothing returns nothing
    call UnitAnimationSetLoopEffect(UnitAnimationSetName(UnitAppAnimation(GetTriggerUnit()),"spell slam"),"SuperShinyThingy.mdx","hand, right",.375)
endfunction

function HeroSkills_A0N0_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0N0',function HeroSkills_A0N0_Channel_Actions)
    call RegisterSpellEffectEvent('A0N0',function HeroSkills_A0N0_Actions)
    call Luv('A0N0')
endfunction

function HeroSkills_A0N3_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real d
    local real a
    if(Je[(Boss_Spell_data1[data])])==Boss_Spell_unit1[data]then
        if UnitAlive(Boss_Spell_unit1[data])then
            set Boss_Spell_Y[data]=Boss_Spell_Y[data]-.0625
        else
            set Boss_Spell_Y[data]=Boss_Spell_Y[data]-.125
        endif
        set a=GetRandomReal(0,Lx)
        set d=GetRandomReal(0,500)
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+d*Cos(a)
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+d*Sin(a)
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl",u,"chest"))
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitAppBuff((GetUnitUserData((u))),'Aenw',$D00CB)
                endif
            endif
        endloop
        call Ltv(LRv('e004',x,y,1,1.5))
        call Ltv(LRv('e005',x,y,1,1.5))
        call Ltv(LRv('e02I',x,y,1,1.5))
    else
        set Boss_Spell_Y[data]=0
    endif
    if Boss_Spell_Y[data]<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:398")
        call Unit_Cancel_Counter(557,Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
    endif
endfunction

function HeroSkills_A0N3_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(GetUnitUserData((Boss_Spell_unit1[data])))
    set Boss_Spell_data2[data]=LVv('e01H',GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),0)
    call SetUnitOwner(II[(Boss_Spell_data2[data])],((P[Kc[((Boss_Spell_data1[data]))]])),false)
    set Boss_Spell_X[data]=35*GetHeroStateByMax(Boss_Spell_unit1[data])
    set Boss_Spell_Y[data]=4
    call Unit_App_Counter(558,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.0625,true,function HeroSkills_A0N3_Start)
endfunction

function HeroSkills_A0N3_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0N3',function HeroSkills_A0N3_Actions)
    call Luv('A0N3')
endfunction

function Hero_EnterWorld_H01H takes nothing returns nothing
    call HeroSkills_A0MS_Set((le))
endfunction

function Hero_H01H_Init takes nothing returns nothing
    local integer i=0
    loop
        exitwhen i==16
        call SetPlayerAbilityAvailable(Player(i),'A0N2',false)
        set i=i+1
    endloop
    call RegisterHeroInitEvent('H01H',function Hero_EnterWorld_H01H)
    call HeroSkills_A0MT_Init()
    call HeroSkills_A0MX_Init()
    call HeroSkills_A0N4_Init()
    call HeroSkills_A0MV_Init()
    call HeroSkills_A0N0_Init()
    call HeroSkills_A0N3_Init()
endfunction

function HeroSkills_A03E_Intensify takes integer id,boolean ex returns real
    local real nS
    if ex then
        set HeroSkills_A03E_Intensify_value[id]=HeroSkills_A03E_Intensify_value[id]+4
    else
        set HeroSkills_A03E_Intensify_value[id]=HeroSkills_A03E_Intensify_value[id]+1
    endif
    set nS=1.5+.1*HeroSkills_A03E_Intensify_value[id]
    call SetUnitScale(II[(HeroSkills_A03E_Eff[id])],((nS)*1.),0,0)
    return nS
endfunction

function Hero_Hmkg_getprimary takes integer id returns integer
    local integer hero_str=GetHeroState1((Je[(id)]),false)-(Hero_Plus_Str[(id)])
    local integer hero_agi=GetHeroState2((Je[(id)]),false)-(Hero_Plus_Agi[(id)])
    local integer hero_int=GetHeroState3((Je[(id)]),false)-(Hero_Plus_Int[(id)])
    if(hero_str)>=(hero_agi+hero_int)then
        return 1
    elseif(hero_agi)>=(hero_str+hero_int)then
        return 2
    elseif(hero_int)>=(hero_str+hero_agi)then
        return 3
    endif
    return 0
endfunction

function s__SoulCharge_MaxSlotValue takes integer this returns integer
    return 6-(GetUnitAbilityLevel((Je[(this)]),'A02X')-1)/ 4
endfunction

function s__SoulCharge_GetCureValue takes integer this returns real
    return .02*GetUnitState((Je[(this)]),UNIT_STATE_MAX_LIFE)+(.8+.04*GetUnitAbilityLevel((Je[(this)]),'A02X'))*GetHeroState3((Je[(this)]),true)
endfunction

function s__SoulCharge_Reduce takes integer this returns boolean
    if s__SoulCharge_Number[this]>0 then
        set s__SoulCharge_Number[this]=s__SoulCharge_Number[this]-1
        if s__SoulCharge_Number[this]==0 then
            call UnitRemoveAbilityandBuffBY((Je[(this)]),'A03B','BOac')
        endif
        return true
    endif
    return false
endfunction

function s__SoulCharge_Up_c takes nothing returns nothing
    local integer this=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:399")
    call UnitCureTaret((Je[(this)]),(Je[(this)]),s__SoulCharge_CureValue[this])
    call DestroyEffect(AddSpecialEffectTarget("DeathBladeRegeneration.mdl",(Je[(this)]),"origin"))
    set s__SoulCharge_CureValue[this]=0
endfunction

function s__SoulCharge_Up_b takes integer this,integer c returns nothing
    if s__SoulCharge_Number[this]<s__SoulCharge_MaxNumber[this]then
        set s__SoulCharge_SlotValue[this]=s__SoulCharge_SlotValue[this]+c
        if s__SoulCharge_SlotValue[this]>=(6-(GetUnitAbilityLevel((Je[((this))]),'A02X')-1)/ 4)then
            set s__SoulCharge_Number[this]=s__SoulCharge_Number[this]+1
            if s__SoulCharge_Number[this]==s__SoulCharge_MaxNumber[this]then
                set s__SoulCharge_SlotValue[this]=0
            else
                set s__SoulCharge_SlotValue[this]=s__SoulCharge_SlotValue[this]-(6-(GetUnitAbilityLevel((Je[((this))]),'A02X')-1)/ 4)
            endif
            if s__SoulCharge_Number[this]==1 then
                call UnitAddAbilityBY((Je[(this)]),'A03B')
            endif
            call NewTextTagInTarget_B((Je[(this)]),"|c007236c2"+I2S(s__SoulCharge_Number[this])+" Charge|r",$C,$FF,$FF,$FF)
        endif
    endif
endfunction

function s__SoulCharge_Up takes integer this,real value,boolean ex returns nothing
    if s__SoulCharge_CureValue[this]==0 then
        call TimerStart(NewTimer(this),.0625,false,function s__SoulCharge_Up_c)
    endif
    if ex then
        set s__SoulCharge_CureValue[this]=s__SoulCharge_CureValue[this]+2.5*value
        call s__SoulCharge_Up_b(this,(6-(GetUnitAbilityLevel((Je[((this))]),'A02X')-1)/ 4))
        call SetUnitState((Je[(this)]),UNIT_STATE_MANA,GetUnitState((Je[(this)]),UNIT_STATE_MANA)+.1*GetUnitState((Je[(this)]),UNIT_STATE_MAX_MANA))
    else
        set s__SoulCharge_CureValue[this]=s__SoulCharge_CureValue[this]+value
        call s__SoulCharge_Up_b(this,1)
        call SetUnitState((Je[(this)]),UNIT_STATE_MANA,GetUnitState((Je[(this)]),UNIT_STATE_MANA)+.04*GetUnitState((Je[(this)]),UNIT_STATE_MAX_MANA))
    endif
endfunction

function s__Soul_Destroy takes integer this returns nothing
    local integer id=s__Soul_Hero[this]
    if id!=null and s__Soul_Root[id]!=null then
        set s__Soul_Hero[this]=0
        set s__Soul_Value[this]=0
        set s__Soul_IsMove[this]=false
        if s__Soul_lifetime[this]<640 then
            call s__SoulCharge_Up((id),s__SoulCharge_GetCureValue((id)),GetUnitTypeId(s__Soul_Unit[this])=='e00Z')
        endif
        call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",s__Soul_PointY[this],s__Soul_PointY[this],1.5))
        call KillUnit(s__Soul_Unit[this])
        call s__Soul_deallocate(this)
        set s__Soul_last[s__Soul_next[this]]=s__Soul_last[this]
        set s__Soul_next[s__Soul_last[this]]=s__Soul_next[this]
        if s__Soul_Root[id]==s__Soul_next[s__Soul_Root[id]]then
            call s__Soul_deallocate(s__Soul_Root[id])
            set s__Soul_Root[id]=0
            set s__Soul_Last_Hero[s__Soul_Next_Hero[id]]=s__Soul_Last_Hero[id]
            set s__Soul_Next_Hero[s__Soul_Last_Hero[id]]=s__Soul_Next_Hero[id]
            if s__Soul_Next_Hero[(0)]==0 then
                call frv(s__Soul_rY)
            endif
        endif
    endif
endfunction

function s__Soul_SetPosition takes integer this,real x,real y returns nothing
    set s__Soul_PointX[this]=x
    set s__Soul_PointY[this]=y
endfunction

function s__Soul_Move takes integer this,real x,real y,real h returns nothing
    set s__Soul_IsMove[this]=true
    set s__Soul_IsAbsorb[this]=false
    set s__Soul_TargetX[this]=x
    set s__Soul_TargetY[this]=y
    set s__Soul_Value[this]=h
endfunction

function s__Soul_SetAbsorb takes integer this returns nothing
    set s__Soul_IsMove[this]=true
    set s__Soul_IsAbsorb[this]=true
    set s__Soul_Value[this]=0
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",s__Soul_Unit[this],"origin"))
endfunction

function s__Soul_loop_c takes nothing returns nothing
    local integer id=s__Soul_Next_Hero[(0)]
    local integer this
    local unit h
    local real dX
    local real dY
    local real a
    local real d
    local real tM
    loop
        exitwhen id==0
        set h=(Je[(id)])
        set this=s__Soul_next[s__Soul_Root[id]]
        loop
            exitwhen this==s__Soul_Root[id]
            set s__Soul_lifetime[this]=s__Soul_lifetime[this]+1
            if s__Soul_IsMove[this]then
                if s__Soul_IsAbsorb[this]then
                    set s__Soul_TargetX[this]=GetUnitX(h)
                    set s__Soul_TargetY[this]=GetUnitY(h)
                endif
                set dX=s__Soul_TargetX[this]-s__Soul_PointX[this]
                set dY=s__Soul_TargetY[this]-s__Soul_PointY[this]
                set a=Atan2(dY,dX)
                set d=SquareRoot(dX*dX+dY*dY)
                set tM=d/ 12.5+$F
                if tM>d then
                    set s__Soul_IsMove[this]=false
                    set tM=d
                    if s__Soul_Value[this]>0 then
                        set s__Soul_lifetime[this]=640
                        if UnitAlive(h)then
                            if HeroSkills_A03E_Eff[id]==0 then
                                set dX=s__Soul_TargetX[this]-GetUnitX(h)
                                set dY=s__Soul_TargetY[this]-GetUnitY(h)
                                if dX*dX+dY*dY<$9000 then
                                    call s__SoulCharge_Up((id),s__Soul_Value[this],GetUnitTypeId(s__Soul_Unit[this])=='e00Z')
                                endif
                            else
                                call Ltv(LNv("OrbOfCorruption.mdl",s__Soul_TargetX[this],s__Soul_TargetY[this],64,1.5*HeroSkills_A03E_Intensify(id,GetUnitTypeId(s__Soul_Unit[this])=='e00Z')))
                            endif
                        endif
                    elseif s__Soul_IsAbsorb[this]then
                        set s__Soul_lifetime[this]=640
                        call s__SoulCharge_Up((id),s__SoulCharge_GetCureValue((id)),GetUnitTypeId(s__Soul_Unit[this])=='e00Z')
                    endif
                endif
                set s__Soul_PointX[this]=s__Soul_PointX[this]+tM*Cos(a)
                set s__Soul_PointY[this]=s__Soul_PointY[this]+tM*Sin(a)
            endif
            if not UnitAlive(s__Soul_Unit[this])or(not s__Soul_IsMove[this]and s__Soul_lifetime[this]>=640)then
                call s__Soul_Destroy(this)
            else
                set a=s__Soul_lifetime[this]*Lx/ 64
                call SetUnitXBJ(s__Soul_Unit[this],s__Soul_PointX[this]+32*Cos(a))
                call SetUnitYBJ(s__Soul_Unit[this],s__Soul_PointY[this]+32*Sin(a))
            endif
            set this=s__Soul_next[this]
        endloop
        set id=s__Soul_Next_Hero[id]
    endloop
    set h=null
endfunction

function s__Soul_allot takes integer id returns integer
    local integer this=s__Soul__allocate()
    local integer r=s__Soul_Root[id]
    if r==null then
        set r=s__Soul__allocate()
        set s__Soul_next[r]=r
        set s__Soul_last[r]=r
        set s__Soul_Root[id]=r
        if s__Soul_Next_Hero[(0)]==0 then
            if s__Soul_rY==0 then
                set s__Soul_rY=fxv(function s__Soul_loop_c)
            endif
            call fov(s__Soul_rY)
        endif
        set s__Soul_Next_Hero[id]=s__Soul_Next_Hero[(0)]
        set s__Soul_Last_Hero[s__Soul_Next_Hero[(0)]]=id
        set s__Soul_Next_Hero[(0)]=id
        set s__Soul_Last_Hero[id]=0
    endif
    set s__Soul_Hero[this]=id
    set s__Soul_last[this]=r
    set s__Soul_next[this]=s__Soul_next[r]
    set s__Soul_last[s__Soul_next[r]]=this
    set s__Soul_next[r]=this
    return this
endfunction

function s__Soul_Create takes integer id,integer unitid,real x,real y returns integer
    local integer this=s__Soul_allot(id)
    local integer p=Kc[id]
    set s__Soul_IsAbsorb[this]=false
    set s__Soul_lifetime[this]=0
    set s__Soul_TargetX[this]=x
    set s__Soul_TargetY[this]=y
    set CR=false
    set s__Soul_Unit[this]=CreateUnit(P[p],unitid,x,y,0)
    call SetUnitUserData(s__Soul_Unit[this],this)
    set CR=true
    call UnitAddAbility(s__Soul_Unit[this],'Amrf')
    call UnitRemoveAbility(s__Soul_Unit[this],'Amrf')
    call s__Soul_SetPosition(this,x,y)
    return this
endfunction

function UnitToSoul takes unit u returns integer
    return GetUnitUserData(u)
endfunction

function SoulToUnit takes integer id returns unit
    return s__Soul_Unit[id]
endfunction

function IsUnitOfSoul takes unit u returns boolean
    return(GetUnitTypeId(u)=='e00Q' or GetUnitTypeId(u)=='e00Z')and UnitAlive(u)and s__Soul_Value[(GetUnitUserData((u)))]==0
endfunction

function NewSoulTypeA takes unit c,real x,real y returns integer
    return s__Soul_Create((GetUnitUserData((c))),'e00Q',x,y)
endfunction

function NewSoulTypeB takes unit c,real x,real y returns integer
    return s__Soul_Create((GetUnitUserData((c))),'e00Z',x,y)
endfunction

function GetMaxSlotValue takes integer id returns integer
    return(6-(GetUnitAbilityLevel((Je[((id))]),'A02X')-1)/ 4)
endfunction

function GetCureValue takes integer id returns real
    return s__SoulCharge_GetCureValue(id)
endfunction

function SoulChargeUp takes integer id,real value,boolean ex returns nothing
    call s__SoulCharge_Up(id,value,ex)
endfunction

function HeroSkills_A02X_Loop_c takes nothing returns nothing
    local timer etm=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((etm))))
    if GetUnitTypeId((Je[(id)]))==0 then
        call Unit_Cancel_Counter(559,(id))
        call ReleaseTimer(etm,"[TimerUtils]Error:400")
    elseif UnitAlive((Je[(id)]))then
        if HeroSkills_A02X_Modulo[id]==0 then
            set HeroSkills_A02X_Modulo[id]=1
        else
            set HeroSkills_A02X_Modulo[id]=0
            call UnitAddAbilityBY((Je[(id)]),'A0NB')
        endif
        if Hero_Hmkg_getprimary(id)==3 then
            set s__SoulCharge_MaxNumber[(id)]=3
            call s__SoulCharge_Up((id),.5*s__SoulCharge_GetCureValue((id)),false)
        else
            set s__SoulCharge_MaxNumber[(id)]=2
        endif
        call TimerStart(etm,6-.2*GetUnitAbilityLevel((Je[(id)]),'A02X'),false,function HeroSkills_A02X_Loop_c)
    else
        call TimerStart(etm,6,false,function HeroSkills_A02X_Loop_c)
    endif
    set etm=null
endfunction

function HeroSkills_A02X_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local real x
    local real y
    local real a
    if GetUnitAbilityLevel((mF),'A0NB')==1 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set a=Atan2(y-GetUnitY((mF)),x-GetUnitX((mF)))
        call UnitRemoveAbilityandBuffBY((mF),'A0NB','B04W')
        call UnitDamageTargetBY((((mF))),(((MF))),((((GetUnitAbilityLevel((Je[(id)]),'A02X')*((DAK_AMOUNT[HF])+2.5*GetHeroStateByMax((Je[(id)]))))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),(((($F)*1.))*1.),(("|c008080ff")))
        call s__Soul_Move((s__Soul_Create((GetUnitUserData((((mF))))),'e00Q',((x)*1.),((y)*1.))),x+$E1*Cos(a),y+$E1*Sin(a),0)
        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("DarkLightning.mdl"),((MF)),("origin")))),1)
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(MF),"chest"))
        call zhv((Kc[((id))]),30,.25)
    endif
endfunction

function HeroSkills_A02X_onKillUnit takes nothing returns nothing
    local integer id
    if s__SoulCharge_Off and GetUnitTypeId(GetKillingUnit())=='Hmkg' then
        set id=(GetUnitUserData((GetKillingUnit())))
        if id!=(GetUnitUserData((GetTriggerUnit())))then
            call s__SoulCharge_Up((id),(((s__SoulCharge_GetCureValue((id))))*1.),(false))
        endif
    endif
endfunction

function Hero_EnterWorld_Hmkg takes nothing returns nothing
    local integer id=le
    set s__SoulCharge_MaxNumber[(id)]=2
    set HeroSkills_A02X_Modulo[id]=0
    call TimerStart(NewTimer(id),6,false,function HeroSkills_A02X_Loop_c)
    call UnitAddPAttackTrig((id),function HeroSkills_A02X_onAttack)
    call HeroAddKillTrig((id),function HeroSkills_A02X_onKillUnit)
    call Unit_App_Counter(560,(id))
endfunction

function HeroSkills_A02X_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local integer id=(GetUnitUserData((u)))
    local integer s=s__Soul_Root[id]
    local integer t
    if s!=null then
        set t=s__Soul_next[s]
        loop
            exitwhen t==s
            if s__Soul_Value[t]==0 and IsUnitInRangeXY(s__Soul_Unit[t],x,y,300)then
                call s__Soul_SetAbsorb(t)
            endif
            set t=s__Soul_next[t]
        endloop
    endif
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,1.75),$FF,$9B,$FF,$CD))
    call Ltv(LAv("DarkNova.mdl",x,y,.5))
    set u=null
endfunction

function HeroSkills_A02X_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02X',function HeroSkills_A02X_Actions)
    call RegisterHeroInitEvent('Hmkg',function Hero_EnterWorld_Hmkg)
endfunction

function HeroSkills_A02Y_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=(GetUnitUserData((Boss_Spell_unit1[data])))
    local integer fx
    local unit u
    local boolean b
    local integer v
    local integer i
    local real x
    local real y
    local real vX
    local real l__vY
    local real pX
    local real pY
    local real tA
    local real xD
    local real yD
    local integer s=s__Soul_Root[id]
    local integer t
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if Boss_Spell_bool[data]then
        set v=GetHandleId(Boss_Spell_group2[data])
        set i=5
        set tA=Lx*($F-Boss_Spell_data3[data])/ $F
        set vX=Boss_Spell_X[data]*(45+Boss_Spell_data3[data])
        set l__vY=Boss_Spell_Y[data]*(45+Boss_Spell_data3[data])
    else
        set i=3
        set tA=Lx*($A-Boss_Spell_data3[data])/ $A
        set vX=Boss_Spell_X[data]*45
        set l__vY=Boss_Spell_Y[data]*45
    endif
    set x=GetUnitX(Boss_Spell_unit1[data])
    set y=GetUnitY(Boss_Spell_unit1[data])
    if IsTerrainWalkable(x+vX,y+l__vY)and IsTerrainWalkable(x+2*vX,y+2*l__vY)then
        set x=x+vX
        set y=y+l__vY
        call SetUnitX(Boss_Spell_unit1[data],x)
        call SetUnitY(Boss_Spell_unit1[data],y)
    endif
    loop
        set i=i-1
        if i==2 then
            set pX=x
            set pY=y
        else
            set fx=LoadInteger(BYHT,v,i)
            set pX=(GetUnitX(II[(fx)]))+vX
            set pY=(GetUnitY(II[(fx)]))+l__vY
            call LKv(fx,pX)
            call Llv(fx,pY)
        endif
        call GroupEnumUnitsInRange(G,pX,pY,$96+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,pX,pY,$96)then
                if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call GroupAddUnit(Boss_Spell_group1[data],u)
                    call DestroyEffect(AddSpecialEffectTarget("OrbOfCorruption.mdl",u,"chest"))
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    if Boss_Spell_bool[data]then
                        call UnitAppBuffByLevel((GetUnitUserData((u))),'A030',$D02BC,2)
                    else
                        call UnitAppBuffByLevel((GetUnitUserData((u))),'A030',$D02BC,1)
                    endif
                endif
            endif
        endloop
        if s!=null then
            set t=s__Soul_next[s]
            loop
                exitwhen t==s
                if s__Soul_Value[t]==0 and IsUnitInRangeXY(s__Soul_Unit[t],pX,pY,$96)then
                    set xD=s__Soul_PointX[t]
                    set yD=s__Soul_PointY[t]
                    set b=GetUnitTypeId(s__Soul_Unit[t])=='e00Z'
                    call Ltv(LAv("DarkNova.mdl",xD,yD,.5))
                    call s__Soul_Destroy(t)
                    call GroupEnumUnitsInRange(G,xD,yD,$FA,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,xD,yD,$FA)and IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayDamage.mdl",u,"chest"))
                            if b then
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((2.5*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            else
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        endif
                    endloop
                endif
                set t=s__Soul_next[t]
            endloop
        endif
        exitwhen Boss_Spell_bool[data]==false or i==0
    endloop
    set x=x+vX
    set y=y+l__vY
    set pX=Cos(tA)
    set pY=Sin(tA)
    set xD=HeroSkills_A02Y_VR*pX*(-Boss_Spell_Y[data])
    set yD=HeroSkills_A02Y_VR*pX*(Boss_Spell_X[data])
    call LKv(Boss_Spell_data1[data],x+xD)
    call Llv(Boss_Spell_data1[data],y+yD)
    call SetUnitFlyHeight(II[(Boss_Spell_data1[data])],((HeroSkills_A02Y_VR+HeroSkills_A02Y_VR*pY)*1.),0)
    call LKv(Boss_Spell_data2[data],x-xD)
    call Llv(Boss_Spell_data2[data],y-yD)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((HeroSkills_A02Y_VR-HeroSkills_A02Y_VR*pY)*1.),0)
    if not UnitAlive(Boss_Spell_unit1[data])or Boss_Spell_data3[data]<=0 then
        if Boss_Spell_bool[data]then
            set i=5
            loop
                set i=i-1
                if i!=2 then
                    call Lsv((LoadInteger(BYHT,v,i)),.75)
                endif
                exitwhen i==0
            endloop
            call free(v)
            set v=0
        endif
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitPathing(Boss_Spell_unit1[data],true)
        call SetUnitTimeScale(Boss_Spell_unit1[data],1)
        call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
        call SetUnitVertexColor(Boss_Spell_unit1[data],$FF,$FF,$FF,$FF)
        call RecycleGroup(Boss_Spell_group1[data])
        call Ltv(Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:401")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_group1[data]=null
        set Boss_Spell_group2[data]=null
    endif
endfunction

function HeroSkills_A02Y_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer v
    local integer fx
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A02Y')
    local integer i
    local integer j
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real ang=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local real sA=ang+bj_PI/ 2
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_bool[data]=s__SoulCharge_Reduce(((GetUnitUserData((Boss_Spell_unit1[data])))))
    set Boss_Spell_X[data]=Cos(ang)
    set Boss_Spell_Y[data]=Sin(ang)
    set Boss_Spell_Z[data]=300*lv+GetHeroState1(Boss_Spell_unit1[data],true)*($A+lv)
    set Boss_Spell_V[data]=GetHeroState3(Boss_Spell_unit1[data],true)*($A+lv)
    set x=x+Boss_Spell_X[data]
    set y=y+Boss_Spell_Y[data]
    set Boss_Spell_data1[data]=Lnv(x+HeroSkills_A02Y_VR*Cos(sA),y+HeroSkills_A02Y_VR*Sin(sA),ang)
    call LMv(Boss_Spell_data1[data],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
    call SetUnitFlyHeight(II[(Boss_Spell_data1[data])],((HeroSkills_A02Y_VR)*1.),0)
    set Boss_Spell_data2[data]=Lnv(x-HeroSkills_A02Y_VR*Cos(sA),y-HeroSkills_A02Y_VR*Sin(sA),ang)
    call LMv(Boss_Spell_data2[data],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((HeroSkills_A02Y_VR)*1.),0)
    if Boss_Spell_bool[data]then
        set v=malloc()
        set Boss_Spell_group2[data]=ConvertVersion(v)
        set Boss_Spell_data3[data]=$F
        set i=5
        loop
            set i=i-1
            if i!=2 then
                set j=i-2
                set fx=LVv('e00P',x+HeroSkills_A02Y_VW*j*Cos(sA)-.75*j*j*Boss_Spell_X[data],y+HeroSkills_A02Y_VW*j*Sin(sA)-.75*j*j*Boss_Spell_Y[data],bj_RADTODEG*ang)
                call SaveInteger(BYHT,v,i,fx)
                call Ltv(Lfv(LIv("Abilities\\Spells\\Undead\\RaiseSkeletonWarrior\\RaiseSkeleton.mdl",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),75,1.5,ang,0),0,0,0,$FF))
                call Lfv(fx,$AF,$AF,$AF,$CD)
                call SetUnitAnimation(II[fx],"Spell One")
            endif
            exitwhen i==0
        endloop
        call SetUnitTimeScale(Boss_Spell_unit1[data],2)
    else
        set Boss_Spell_data3[data]=$A
        call SetUnitTimeScale(Boss_Spell_unit1[data],2.5)
    endif
    call PlaySoundAtPoint_BJ((en),((100)*1.),((x)*1.),((y)*1.),0)
    call Ltv(Lfv(LIv("Abilities\\Spells\\Undead\\RaiseSkeletonWarrior\\RaiseSkeleton.mdl",x,y,75,1.5,ang,0),0,0,0,$FF))
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitPathing(Boss_Spell_unit1[data],false)
    call SetUnitTimeScale(Boss_Spell_unit1[data],2.5)
    call SetUnitAnimation(Boss_Spell_unit1[data],"Spell One")
    call SetUnitVertexColor(Boss_Spell_unit1[data],$CD,$CD,$CD,$CD)
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A02Y_Start)
endfunction

function HeroSkills_A02Y_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02Y',function HeroSkills_A02Y_Actions)
    call Luv('A02Y')
endfunction

function HeroSkills_A02Z_Stop takes integer id returns nothing
    if UnitAlive((Je[(id)]))then
        call QueueUnitAnimation((Je[(id)]),"Stand")
    endif
    call PauseUnit((Je[(id)]),false)
    call Unit_Cancel_Counter(561,(id))
    call Unit_Cancel_Counter(562,HeroSkills_A02Z_Target[id])
endfunction

function HeroSkills_A02Z_Start5 takes nothing returns nothing
    call HeroSkills_A02Z_Stop((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:402")))
endfunction

function HeroSkills_A02Z_Start4 takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    local unit u
    local real x
    local real y
    local real d
    if UnitAlive((Je[(id)]))then
        set x=GetUnitX((Je[(HeroSkills_A02Z_Target[id])]))
        set y=GetUnitY((Je[(HeroSkills_A02Z_Target[id])]))
        set d=(20+2*GetUnitAbilityLevel((Je[(id)]),'A02Z'))*(GetHeroState1((Je[(id)]),true)+GetHeroState3((Je[(id)]),true))
        call GroupEnumUnitsInRange(G,x,y,275+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,275)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($E)*1.))*1.),(("|c009b9bd7")))
                    call FloatedTargetBYStun(u,true)
                endif
            endif
        endloop
        call SetUnitAnimation((Je[(id)]),"Spell Two")
        call zhv((Kc[(id)]),75,.5)
        call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,3.25),0,0,0,$FF))
        call Ltv(LAv("DarkWave.mdl",x,y,1.125))
        call Lqv(LAv("DarkPillar.mdl",x,y,2.5),1.75)
        call TimerStart(t,.35,false,function HeroSkills_A02Z_Start5)
    else
        call ReleaseTimer(t,"[TimerUtils]Error:403")
        call HeroSkills_A02Z_Stop(id)
    endif
endfunction

function HeroSkills_A02Z_Start3 takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    if UnitAlive((Je[(id)]))then
        call SetUnitAnimation((Je[(id)]),"Spell Two")
        call TimerStart(t,.4,false,function HeroSkills_A02Z_Start4)
    else
        call ReleaseTimer(t,"[TimerUtils]Error:404")
        call HeroSkills_A02Z_Stop(id)
    endif
    set t=null
endfunction

function HeroSkills_A02Z_Start2 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:405")
    local integer lv
    local real x
    local real y
    local real a
    if UnitAlive((Je[(id)]))then
        set lv=GetUnitAbilityLevel((Je[(id)]),'A02Z')
        set x=GetUnitX((Je[(HeroSkills_A02Z_Target[id])]))
        set y=GetUnitY((Je[(HeroSkills_A02Z_Target[id])]))
        set a=Atan2(y-GetUnitY((Je[(id)])),x-GetUnitX((Je[(id)])))
        call PlaySoundAtPoint_BJ((xn),((100)*1.),((x)*1.),((y)*1.),0)
        call Ltv(Lfv(LIv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,$96,.75,a,$F),0,0,0,$FF))
        call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x,y,3))
        call UnitDamageTargetBY((((Je[(id)]))),(((Je[(HeroSkills_A02Z_Target[id])]))),(((((2+.5*lv)*GetHeroAttack((id))+($F+lv)*GetHeroState3((Je[(id)]),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((18)*1.))*1.),(("|c008080ff")))
        call m1v((Je[(HeroSkills_A02Z_Target[id])]),1.5)
        call s__Soul_Move((s__Soul_Create((GetUnitUserData((((Je[(id)]))))),'e00Z',((x)*1.),((y)*1.))),x+300*Cos(a),y+300*Sin(a),0)
        call DestroyEffect(AddSpecialEffectTarget("Punishment_Missle.mdl",(Je[(HeroSkills_A02Z_Target[id])]),"chest"))
        if HeroSkills_A02Z_Reward[id]then
            call zhv((GetPlayerId(((P[Kc[((id))]])))),50,1)
            call TimerStart(NewTimer(id),.25,false,function HeroSkills_A02Z_Start3)
        else
            call zhv((GetPlayerId(((P[Kc[((id))]])))),50,.5)
            call HeroSkills_A02Z_Stop(id)
        endif
    else
        call HeroSkills_A02Z_Stop(id)
    endif
endfunction

function HeroSkills_A02Z_Start1 takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    local integer lv
    if UnitAlive((Je[(id)]))then
        set lv=GetUnitAbilityLevel((Je[(id)]),'A02Z')
        set HeroSkills_A02Z_Number[id]=HeroSkills_A02Z_Number[id]+1
        call UnitDamageTargetBY((((Je[(id)]))),(((Je[(HeroSkills_A02Z_Target[id])]))),(((((2+.2*lv)*GetHeroAttack((id))+(7.5+.5*lv)*GetHeroState1((Je[(id)]),true))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call DestroyEffect(AddSpecialEffectTarget("Punishment_Missle.mdl",(Je[(HeroSkills_A02Z_Target[id])]),"chest"))
        if HeroSkills_A02Z_Number[id]==1 then
            call TimerStart(t,.2,false,function HeroSkills_A02Z_Start1)
        else
            call TimerStart(t,.2,false,function HeroSkills_A02Z_Start2)
        endif
    else
        call ReleaseTimer(t,"[TimerUtils]Error:406")
        call HeroSkills_A02Z_Stop(id)
    endif
    set t=null
endfunction

function HeroSkills_A02Z_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A02Z_Target[id]=(GetUnitUserData((GetSpellTargetUnit())))
    set HeroSkills_A02Z_Reward[id]=s__SoulCharge_Reduce(((id)))
    set HeroSkills_A02Z_Number[id]=0
    call PauseUnit((Je[(id)]),true)
    call SetUnitAnimation((Je[(id)]),"Morph")
    call DestroyEffect(AddSpecialEffectTarget("s_ShadowEruption_Rain.mdl",(Je[(HeroSkills_A02Z_Target[id])]),"origin"))
    call TimerStart(NewTimer(id),.4,false,function HeroSkills_A02Z_Start1)
    call Unit_App_Counter(563,(id))
    call Unit_App_Counter(564,HeroSkills_A02Z_Target[id])
endfunction

function HeroSkills_A02Z_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02Z',function HeroSkills_A02Z_Actions)
    call Luv('A02Z')
endfunction

function HeroSkills_A03E_A0F5_Explosion takes integer id returns nothing
    local integer i=4
    local real x=(GetUnitX(II[(HeroSkills_A03E_A0F5_Eff[id])]))
    local real y=(GetUnitY(II[(HeroSkills_A03E_A0F5_Eff[id])]))
    local real a=GetRandomReal(0,Lx)
    local real tA
    local unit u
    loop
        set i=i-1
        set tA=a+i*Lx/ 4.+GetRandomReal(-Lx/ $A,Lx/ $A)
        call s__Soul_Move((s__Soul_Create((GetUnitUserData((((Je[(id)]))))),'e00Q',((x+25*Cos(tA))*1.),((y+25*Sin(tA))*1.))),x+275*Cos(tA),y+275*Sin(tA),0)
        exitwhen i==0
    endloop
    call GroupEnumUnitsInRange(G,x,y,$96*HeroSkills_A03E_A0F5_Range[id]+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96*HeroSkills_A03E_A0F5_Range[id])then
            if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((.5*HeroSkills_A03E_A0F5_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m2v(u,2.5,'A500','B500',true)
            endif
        endif
    endloop
    call Ltv(LAv("OrbOfCorruption.mdl",x,y,4*HeroSkills_A03E_A0F5_Range[id]))
    call Ltv(LAv("DarkLightningNova.mdl",x,y,2*HeroSkills_A03E_A0F5_Range[id]))
    call Ltv(LAv("DeathBladeRegeneration.mdl",x,y,1.75*HeroSkills_A03E_A0F5_Range[id]))
    call Ltv(LAv("WallOfTerrorExplosion.mdl",x,y,1.75*HeroSkills_A03E_A0F5_Range[id]))
    call UnitRemoveAbilityBY((Je[(id)]),'A0F5')
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A03E',true)
    call RecycleGroup(HeroSkills_A03E_A0F5_Group[id])
    call Ltv(HeroSkills_A03E_A0F5_Eff[id])
    set HeroSkills_A03E_A0F5_Group[id]=null
endfunction

function HeroSkills_A03E_A0F5_Stop takes integer id returns nothing
    if HeroSkills_A03E_A0F5_Use[id]then
        set HeroSkills_A03E_A0F5_Last[HeroSkills_A03E_A0F5_Next[id]]=HeroSkills_A03E_A0F5_Last[id]
        set HeroSkills_A03E_A0F5_Next[HeroSkills_A03E_A0F5_Last[id]]=HeroSkills_A03E_A0F5_Next[id]
        set HeroSkills_A03E_A0F5_Use[id]=false
        if HeroSkills_A03E_A0F5_Next[(0)]==0 then
            call frv(HeroSkills_A03E_A0F5_Func)
        endif
        call HeroSkills_A03E_A0F5_Explosion(id)
        call Unit_Cancel_Counter(565,(id))
    endif
endfunction

function HeroSkills_A03E_A0F5_Loop_c takes nothing returns nothing
    local integer id=HeroSkills_A03E_A0F5_Next[(0)]
    local unit u
    local real x
    local real y
    loop
        exitwhen id==0
        set x=(GetUnitX(II[(HeroSkills_A03E_A0F5_Eff[id])]))+HeroSkills_A03E_A0F5_VX[id]
        set y=(GetUnitY(II[(HeroSkills_A03E_A0F5_Eff[id])]))+HeroSkills_A03E_A0F5_VY[id]
        if IsPointInWorldBounds(x,y)then
            call LKv(HeroSkills_A03E_A0F5_Eff[id],x)
            call Llv(HeroSkills_A03E_A0F5_Eff[id],y)
            set HeroSkills_A03E_A0F5_Time[id]=HeroSkills_A03E_A0F5_Time[id]-1
            if ModuloInteger(HeroSkills_A03E_A0F5_Time[id],8)==0 then
                call Ltv(LAv("DeathBladeRegeneration.mdl",x,y,1.25*HeroSkills_A03E_A0F5_Range[id]))
                call Ltv(LAv("WallOfTerrorExplosion.mdl",x,y,HeroSkills_A03E_A0F5_Range[id]))
            endif
            call GroupEnumUnitsInRange(G,x,y,100*HeroSkills_A03E_A0F5_Range[id]+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,100*HeroSkills_A03E_A0F5_Range[id])then
                    if not IsUnitInGroup(u,HeroSkills_A03E_A0F5_Group[id])and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                        call GroupAddUnit(HeroSkills_A03E_A0F5_Group[id],u)
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A03E_A0F5_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m1v(u,1.5)
                    endif
                endif
            endloop
        else
            set HeroSkills_A03E_A0F5_Time[id]=0
        endif
        if HeroSkills_A03E_A0F5_Time[id]<1 then
            call HeroSkills_A03E_A0F5_Stop(id)
        endif
        set id=HeroSkills_A03E_A0F5_Next[id]
    endloop
endfunction

function HeroSkills_A03E_A0F5_Open takes integer id returns boolean
    if not HeroSkills_A03E_A0F5_Use[id]then
        if HeroSkills_A03E_A0F5_Next[(0)]==0 then
            if HeroSkills_A03E_A0F5_Func==0 then
                set HeroSkills_A03E_A0F5_Func=fxv(function HeroSkills_A03E_A0F5_Loop_c)
            endif
            call fov(HeroSkills_A03E_A0F5_Func)
        endif
        set HeroSkills_A03E_A0F5_Next[id]=HeroSkills_A03E_A0F5_Next[(0)]
        set HeroSkills_A03E_A0F5_Last[HeroSkills_A03E_A0F5_Next[(0)]]=id
        set HeroSkills_A03E_A0F5_Next[(0)]=id
        set HeroSkills_A03E_A0F5_Last[id]=0
        set HeroSkills_A03E_A0F5_Use[id]=true
        call Unit_App_Counter(566,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A0F5_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:407")
    call UnitRemoveAbility((Je[(id)]),'BNvc')
    call HeroSkills_A03E_A0F5_Stop(id)
endfunction

function HeroSkills_A0F5_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A03E_A0F5_Use[id]then
        call TimerStart(NewTimer(id),0,false,function HeroSkills_A0F5_End)
    endif
endfunction

function HeroSkills_A03E_A0F5_Start takes integer id,integer fx,real x,real y,real a,integer fcv returns nothing
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A03E')
    if HeroSkills_A03E_A0F5_Open(id)then
        set HeroSkills_A03E_A0F5_Eff[id]=fx
        set HeroSkills_A03E_A0F5_Group[id]=NewGroup()
        set HeroSkills_A03E_A0F5_Time[id]=32
        set HeroSkills_A03E_A0F5_Range[id]=1.5+.1*fcv
        set HeroSkills_A03E_A0F5_Damage[id]=.48*((600+.2*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))*lv)*fcv+($F+lv)*GetUnitState((Je[(id)]),UNIT_STATE_MAX_MANA)
        set HeroSkills_A03E_A0F5_VX[id]=40*Cos(a)
        set HeroSkills_A03E_A0F5_VY[id]=40*Sin(a)
        call zhv((Kc[((id))]),50,1)
        call Ltv(LIv("DarkNova.mdl",x,y,125,.85,a,0))
        call PlaySoundAtPoint_BJ((rn),((125)*1.),((x)*1.),((y)*1.),0)
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A03E',false)
        call UnitAddAbilityBY((Je[(id)]),'A0F5')
    endif
endfunction

function HeroSkills_A03E_Stop takes integer id returns nothing
    if HeroSkills_A03E_Use[id]then
        set HeroSkills_A03E_last[HeroSkills_A03E_Next[id]]=HeroSkills_A03E_last[id]
        set HeroSkills_A03E_Next[HeroSkills_A03E_last[id]]=HeroSkills_A03E_Next[id]
        set HeroSkills_A03E_Use[id]=false
        if HeroSkills_A03E_Next[(0)]==0 then
            call frv(HeroSkills_A03E_Func1)
        endif
        call Unit_Cancel_Counter(567,(id))
    endif
endfunction

function HeroSkills_A03E_Loop_c takes nothing returns nothing
    local integer id=HeroSkills_A03E_Next[(0)]
    local unit u
    local real x
    local real y
    local real a
    local real dX
    local real dY
    local real tX
    local real tY
    local real tA
    local integer s
    local integer t
    set s__SoulCharge_Off=false
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set HeroSkills_A03E_Time[id]=HeroSkills_A03E_Time[id]-1
            set a=bj_DEGTORAD*GetUnitFacing((Je[(id)]))
            set x=GetUnitX((Je[(id)]))-64*Cos(a)
            set y=GetUnitY((Je[(id)]))-64*Sin(a)
            set dX=x+$80*Cos(a)
            set dY=y+$80*Sin(a)
            call GroupEnumUnitsInRange(G,x,y,650+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,650)then
                    if not IsUnitInGroup(u,HeroSkills_A03E_Group[id])and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                        set tX=GetUnitX(u)
                        set tY=GetUnitY(u)
                        if(Cos(((Atan2(tY-y,tX-x))*1.)-((a)*1.))>=Cos(((1.8326)*1.)))then
                            call GroupAddUnit(HeroSkills_A03E_Group[id],u)
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                            call DestroyEffect(AddSpecialEffectTarget("ShadowTrap.mdl",u,"origin"))
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A03E_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call s__Soul_Move((s__Soul_Create((GetUnitUserData((((Je[(id)]))))),'e00Q',((tX)*1.),((tY)*1.))),dX,dY,.09*HeroSkills_A03E_Damage[id])
                        endif
                    endif
                endif
            endloop
            set s=s__Soul_Root[id]
            if s!=null then
                set t=s__Soul_next[s]
                loop
                    exitwhen t==s
                    if s__Soul_Value[t]==0 and IsUnitInRangeXY(s__Soul_Unit[t],x,y,650)then
                        call s__Soul_Move(t,dX,dY,.09*HeroSkills_A03E_Damage[id])
                    endif
                    set t=s__Soul_next[t]
                endloop
            endif
        else
            set HeroSkills_A03E_Time[id]=0
        endif
        set tA=Lx*(32-HeroSkills_A03E_Time[id])/ 16
        set tX=(30*Cos(tA))*Cos(a+bj_PI/ 2)
        set tY=(30*Cos(tA))*Sin(a+bj_PI/ 2)
        call LKv(HeroSkills_A03E_Eff2[id],dX+tX)
        call Llv(HeroSkills_A03E_Eff2[id],dY+tY)
        call SetUnitFlyHeight(II[(HeroSkills_A03E_Eff2[id])],((100+30*Sin(tA))*1.),0)
        call LKv(HeroSkills_A03E_Eff3[id],dX-tX)
        call Llv(HeroSkills_A03E_Eff3[id],dY-tY)
        call SetUnitFlyHeight(II[(HeroSkills_A03E_Eff3[id])],((100-30*Sin(tA))*1.),0)
        if HeroSkills_A03E_Time[id]<=1 then
            if HeroSkills_A03E_Eff[id]!=0 then
                if UnitAlive((Je[(id)]))then
                    call HeroSkills_A03E_A0F5_Start((id),HeroSkills_A03E_Eff[id],dX,dY,a,HeroSkills_A03E_Intensify_value[id])
                else
                    call Ltv(HeroSkills_A03E_Eff[id])
                endif
                set HeroSkills_A03E_Eff[id]=0
            endif
            call PauseUnit((Je[(id)]),false)
            call RecycleGroup(HeroSkills_A03E_Group[id])
            call s__Trig_remove((HeroSkills_A03E_ShieldTrig[id]))
            call Ltv(HeroSkills_A03E_Eff2[id])
            call Ltv(HeroSkills_A03E_Eff3[id])
            call HeroSkills_A03E_Stop(id)
            set HeroSkills_A03E_Group[id]=null
        elseif HeroSkills_A03E_Eff[id]!=0 then
            call LKv(HeroSkills_A03E_Eff[id],dX)
            call Llv(HeroSkills_A03E_Eff[id],dY)
            if HeroSkills_A03E_Time[id]==8 then
                call SetUnitAnimation((Je[(id)]),"Spell Four")
                call QueueUnitAnimation((Je[(id)]),"Stand")
            endif
        endif
        set id=HeroSkills_A03E_Next[id]
    endloop
    set s__SoulCharge_Off=true
endfunction

function HeroSkills_A03E_Open takes integer id returns boolean
    if not HeroSkills_A03E_Use[id]then
        if HeroSkills_A03E_Next[(0)]==0 then
            if HeroSkills_A03E_Func1==0 then
                set HeroSkills_A03E_Func1=fxv(function HeroSkills_A03E_Loop_c)
            endif
            call fov(HeroSkills_A03E_Func1)
        endif
        set HeroSkills_A03E_Next[id]=HeroSkills_A03E_Next[(0)]
        set HeroSkills_A03E_last[HeroSkills_A03E_Next[(0)]]=id
        set HeroSkills_A03E_Next[(0)]=id
        set HeroSkills_A03E_last[id]=0
        set HeroSkills_A03E_Use[id]=true
        call Unit_App_Counter(568,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A03E_ShieldActions takes nothing returns nothing
    local integer id=(pF)
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local real a=bj_DEGTORAD*GetUnitFacing((MF))
    local integer fx
    if(Cos(((Atan2(GetUnitY((mF))-y,GetUnitX((mF))-x))*1.)-((a)*1.))>=Cos(((1.8326)*1.)))then
        set fx=Lnv(x,y,a)
        call LMv(fx,"DarkShield.mdl")
        call SetUnitScale(II[(fx)],((1.25)*1.),0,0)
        call DamageMinus(.6*GetDamage())
        call Ltv(fx)
    endif
endfunction

function HeroSkills_A03E_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:408")
    call PauseUnit((Je[(id)]),true)
    call SetUnitAnimation((Je[(id)]),"Spell Alternate")
    if HeroSkills_A03E_Eff[id]==0 then
        call QueueUnitAnimation((Je[(id)]),"Stand")
    endif
endfunction

function HeroSkills_A03E_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a=bj_DEGTORAD*GetUnitFacing((Je[(id)]))
    local real sA=a+bj_PI/ 2
    set x=x+64*Cos(a)
    set y=y+64*Sin(a)
    if HeroSkills_A03E_Open(id)then
        set HeroSkills_A03E_ShieldTrig[id]=UnitAddShieldTrigB((id),function HeroSkills_A03E_ShieldActions)
        set HeroSkills_A03E_Group[id]=NewGroup()
        set HeroSkills_A03E_Time[id]=32
        set HeroSkills_A03E_Damage[id]=(600+.2*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))*GetUnitAbilityLevel((Je[(id)]),'A03E')
        set HeroSkills_A03E_Eff2[id]=Lnv(x+30*Cos(sA),y+30*Sin(sA),a)
        call LMv(HeroSkills_A03E_Eff2[id],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
        call SetUnitFlyHeight(II[(HeroSkills_A03E_Eff2[id])],((100)*1.),0)
        set HeroSkills_A03E_Eff3[id]=Lnv(x-30*Cos(sA),y-30*Sin(sA),a)
        call LMv(HeroSkills_A03E_Eff3[id],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
        call SetUnitFlyHeight(II[(HeroSkills_A03E_Eff3[id])],((100)*1.),0)
        if s__SoulCharge_Reduce(((id)))then
            set HeroSkills_A03E_Eff[id]=Lnv(x,y,a)
            call LMv(HeroSkills_A03E_Eff[id],"Evil Bomb.mdl")
            call SetUnitScale(II[(HeroSkills_A03E_Eff[id])],((1.5)*1.),0,0)
            call SetUnitFlyHeight(II[(HeroSkills_A03E_Eff[id])],((64)*1.),0)
            set HeroSkills_A03E_Intensify_value[id]=0
            call Lfv(HeroSkills_A03E_Eff[id],35,0,35,$FF)
        endif
    endif
    call Lsv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,1.5),$FF,$FF,$FF,$FF),1.25)
    call SetUnitFacing((Je[(id)]),bj_RADTODEG*a)
    call TimerStart(NewTimer(id),0,false,function HeroSkills_A03E_Expired)
endfunction

function HeroSkills_A03E_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A03E',function HeroSkills_A03E_Actions)
    call RegisterSpellEffectEvent('A0F5',function HeroSkills_A0F5_Actions)
    call Luv('A03E')
endfunction

function HeroSkills_A03F_Stop takes integer data returns nothing
    if HeroSkills_A03F_Eff[data]!=0 then
        call Ltv(HeroSkills_A03F_Eff[data])
        set HeroSkills_A03F_Eff[data]=0
    endif
    if UnitAlive((Je[(HeroSkills_A03F_Hero[data])]))then
        call QueueUnitAnimation((Je[(HeroSkills_A03F_Hero[data])]),"Stand")
    endif
    call SetUnitTimeScale((Je[(HeroSkills_A03F_Hero[data])]),1)
    call PauseUnit((Je[(HeroSkills_A03F_Hero[data])]),false)
    call RecycleGroup(HeroSkills_A03F_Group[data])
    call Unit_Cancel_Counter(569,HeroSkills_A03F_Hero[data])
    call fvv(data)
    set HeroSkills_A03F_Group[data]=null
endfunction

function HeroSkills_A03F_Loop takes nothing returns nothing
    local integer data=J[HeroSkills_A03E_func]
    local group tG
    local unit u
    local integer i
    local real x
    local real y
    local real tX
    local real tY
    local real tA
    local real tD
    local real s
    loop
        exitwhen 0==data
        if UnitAlive((Je[(HeroSkills_A03F_Hero[data])]))then
            if HeroSkills_A03F_Count[data]==1 then
                set s=$F+HeroSkills_A03F_Distance[data]/ 30.
                if s>HeroSkills_A03F_Distance[data]then
                    set s=HeroSkills_A03F_Distance[data]
                endif
                set HeroSkills_A03F_Distance[data]=HeroSkills_A03F_Distance[data]-s
                set x=GetUnitX((Je[(HeroSkills_A03F_Hero[data])]))+s*HeroSkills_A03F_X[data]
                set y=GetUnitY((Je[(HeroSkills_A03F_Hero[data])]))+s*HeroSkills_A03F_Y[data]
                if not IsTerrainWalkable(x,y)then
                    set x=IsTerrainWalkable_X
                    set y=IsTerrainWalkable_Y
                endif
                call LKv(HeroSkills_A03F_Eff[data],x)
                call Llv(HeroSkills_A03F_Eff[data],y)
                call SetUnitX((Je[(HeroSkills_A03F_Hero[data])]),x)
                call SetUnitY((Je[(HeroSkills_A03F_Hero[data])]),y)
                call GroupEnumUnitsInRange(G,x,y,275+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,275)then
                        if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A03F_Hero[data])]))then
                            if GetUnitMoveSpeed(u)>0 then
                                if not IsUnitInGroup(u,HeroSkills_A03F_Group[data])then
                                    call GroupAddUnit(HeroSkills_A03F_Group[data],u)
                                    call UnitDamageTargetBY((((Je[(HeroSkills_A03F_Hero[data])]))),((u)),((((HeroSkills_A03F_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                    call m1v(u,1.25)
                                endif
                                set tX=GetUnitX(u)-x
                                set tY=GetUnitY(u)-y
                                set tA=RAbsBJ(tY*HeroSkills_A03F_X[data]-tX*HeroSkills_A03F_Y[data])
                                set tD=(1.-(tA*tA)/ 150000.)*s
                                set tX=tX+x+tD*HeroSkills_A03F_X[data]
                                set tY=tY+y+tD*HeroSkills_A03F_Y[data]
                                call GKv(u,tX,tY)
                            elseif not IsUnitInGroup(u,HeroSkills_A03F_Group[data])then
                                call GroupAddUnit(HeroSkills_A03F_Group[data],u)
                                call UnitDamageTargetBY((((Je[(HeroSkills_A03F_Hero[data])]))),((u)),((((4*HeroSkills_A03F_Damage[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c008080c0")))
                                call m1v(u,1.25)
                            endif
                        endif
                    endif
                endloop
                if HeroSkills_A03F_Distance[data]<=0 then
                    set HeroSkills_A03F_Count[data]=2
                    set HeroSkills_A03F_Number[data]=64
                    call LMv(HeroSkills_A03F_Eff[data],"ShadowTornado.mdl")
                    call SetUnitTimeScale((Je[(HeroSkills_A03F_Hero[data])]),1)
                    call SetUnitAnimation((Je[(HeroSkills_A03F_Hero[data])]),"Spell Three")
                    call Ltv(LAv("WallOfTerrorExplosion.mdx",x,y,2))
                endif
            elseif HeroSkills_A03F_Count[data]==2 then
                set HeroSkills_A03F_Number[data]=HeroSkills_A03F_Number[data]-1
                call SetUnitScale(II[(HeroSkills_A03F_Eff[data])],((2.25-HeroSkills_A03F_Number[data]/ 64.)*1.),0,0)
                set x=GetUnitX((Je[(HeroSkills_A03F_Hero[data])]))
                set y=GetUnitY((Je[(HeroSkills_A03F_Hero[data])]))
                if ModuloInteger(HeroSkills_A03F_Number[data],16)==0 then
                    set i=$C
                    loop
                        set i=i-1
                        set tA=i*Lx/ $C
                        call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x+$A0*Cos(tA),y+$A0*Sin(tA),1.25))
                        exitwhen i==0
                    endloop
                endif
                if ModuloInteger(HeroSkills_A03F_Number[data],2)==0 then
                    call Ltv(LAv("DeathBladeRegeneration.mdl",x+GetRandomReal(-$C8,$C8),y+GetRandomReal(-$C8,$C8),1.25))
                endif
                call GroupEnumUnitsInRange(G,x,y,325+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,325)then
                        if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A03F_Hero[data])]))then
                            if GetUnitMoveSpeed(u)==0 then
                                call UnitDamageTargetBY((((Je[(HeroSkills_A03F_Hero[data])]))),((u)),((((.125*HeroSkills_A03F_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            else
                                call UnitDamageTargetBY((((Je[(HeroSkills_A03F_Hero[data])]))),((u)),((((.03125*HeroSkills_A03F_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                            call m1v(u,1)
                        endif
                    endif
                endloop
                if HeroSkills_A03F_Number[data]<=0 then
                    call SetUnitDecay(II[HeroSkills_A03F_Eff[data]],$FF,$FF,$FF,$FF,1)
                    call LQv(HeroSkills_A03F_Eff[data],1.25)
                    set HeroSkills_A03F_Eff[data]=0
                    if HeroSkills_A03F_Bool[data]then
                        set HeroSkills_A03F_Count[data]=3
                        set HeroSkills_A03F_Number[data]=24
                        call SetUnitTimeScale((Je[(HeroSkills_A03F_Hero[data])]),1.25)
                        call SetUnitAnimation((Je[(HeroSkills_A03F_Hero[data])]),"Spell Slam")
                        call Ltv(LAv("DeathBladeRegeneration.mdl",x,y,3))
                    else
                        call HeroSkills_A03F_Stop(data)
                    endif
                endif
            elseif HeroSkills_A03F_Count[data]==3 then
                set HeroSkills_A03F_Number[data]=HeroSkills_A03F_Number[data]-1
                if HeroSkills_A03F_Number[data]<=0 then
                    set HeroSkills_A03F_Damage[data]=(50+5*GetUnitAbilityLevel((Je[(HeroSkills_A03F_Hero[data])]),'A03F'))*GetHeroState3((Je[(HeroSkills_A03F_Hero[data])]),true)
                    set x=GetUnitX((Je[(HeroSkills_A03F_Hero[data])]))
                    set y=GetUnitY((Je[(HeroSkills_A03F_Hero[data])]))
                    call GroupEnumUnitsInRange(G,x,y,750+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,750)then
                            if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A03F_Hero[data])]))then
                                call UnitDamageTargetBY((((Je[(HeroSkills_A03F_Hero[data])]))),((u)),((((HeroSkills_A03F_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                call UnitAppBuff((GetUnitUserData((u))),'Scri',$D00DD)
                                call m1v(u,2)
                            endif
                        endif
                    endloop
                    call zhv((Kc[((HeroSkills_A03F_Hero[data]))]),75,1.25)
                    call HeroSkills_A03F_Stop(data)
                endif
            endif
        else
            call HeroSkills_A03F_Stop(data)
        endif
        set data=K[data]
    endloop
    set tG=null
endfunction

function HeroSkills_A03F_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A03E_func)
    local integer lv
    local real x
    local real y
    local real dX
    local real dY
    local real a
    set HeroSkills_A03F_Hero[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A03F_Group[data]=NewGroup()
    set HeroSkills_A03F_Bool[data]=s__SoulCharge_Reduce(((HeroSkills_A03F_Hero[data])))
    set HeroSkills_A03F_Count[data]=1
    set x=GetUnitX((Je[(HeroSkills_A03F_Hero[data])]))
    set y=GetUnitY((Je[(HeroSkills_A03F_Hero[data])]))
    set dX=GetSpellTargetX()-x
    set dY=GetSpellTargetY()-y
    set a=Atan2(dY,dX)
    set HeroSkills_A03F_Eff[data]=Lnv(x,y,a)
    call LMv(HeroSkills_A03F_Eff[data],"DeathWave.mdl")
    call SetUnitScale(II[(HeroSkills_A03F_Eff[data])],((1.125)*1.),0,0)
    set HeroSkills_A03F_X[data]=Cos(a)
    set HeroSkills_A03F_Y[data]=Sin(a)
    set HeroSkills_A03F_Distance[data]=SquareRoot(dX*dX+dY*dY)
    set lv=GetUnitAbilityLevel((Je[(HeroSkills_A03F_Hero[data])]),'A03F')
    set HeroSkills_A03F_Damage[data]=$4B0*lv+(20+1.5*lv)*GetHeroState1((Je[(HeroSkills_A03F_Hero[data])]),true)
    if HeroSkills_A03F_Distance[data]<400 then
        set HeroSkills_A03F_Distance[data]=400
    endif
    call PlaySoundAtPoint_BJ((in),((100)*1.),((x)*1.),((y)*1.),0)
    call PauseUnit((Je[(HeroSkills_A03F_Hero[data])]),true)
    call SetUnitTimeScale((Je[(HeroSkills_A03F_Hero[data])]),1.25)
    call SetUnitAnimation((Je[(HeroSkills_A03F_Hero[data])]),"Spell Five")
    call Unit_App_Counter(570,HeroSkills_A03F_Hero[data])
endfunction

function HeroSkills_A03F_Init takes nothing returns nothing
    set HeroSkills_A03E_func=fxv(function HeroSkills_A03F_Loop)
    call RegisterSpellEffectEvent('A03F',function HeroSkills_A03F_Actions)
    call Luv('A03F')
endfunction

function HeroSkills_A03G_DeBuffLoop takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real value=HeroSkills_A03G_DeBuff_v[id]
    if HeroSkills_A03G_DeBuff_a[id]>1 then
        set HeroSkills_A03G_DeBuff_a[id]=HeroSkills_A03G_DeBuff_a[id]-1
        if HeroSkills_A03G_DeBuff_b[id]>0 then
            set HeroSkills_A03G_DeBuff_b[id]=HeroSkills_A03G_DeBuff_b[id]-1
            if HeroSkills_A03G_DeBuff_lv[id]<16 then
                set HeroSkills_A03G_DeBuff_lv[id]=HeroSkills_A03G_DeBuff_lv[id]+1
                if ModuloInteger(HeroSkills_A03G_DeBuff_lv[id],4)==0 then
                    call NewTextTagInTarget_B((Je[(id)]),"|c007236c2-"+I2S(R2I((.5+value)*HeroSkills_A03G_DeBuff_lv[id]))+"% Magic defense|r",8,$FF,$FF,$FF)
                endif
                call UnitMdefChange((id),HeroSkills_A03G_DeBuff_mdef[id],-(.5+value)*HeroSkills_A03G_DeBuff_lv[id])
            else
                if(100*s__unitseate_table_v[(HeroSkills_A03G_DeBuff_mdef[id])])!=-(.5+value)*HeroSkills_A03G_DeBuff_lv[id]then
                    call UnitMdefChange((id),HeroSkills_A03G_DeBuff_mdef[id],-(.5+value)*HeroSkills_A03G_DeBuff_lv[id])
                endif
            endif
            if HeroSkills_A03G_DeBuff_c[id]>0 then
                set HeroSkills_A03G_DeBuff_c[id]=HeroSkills_A03G_DeBuff_c[id]-1
                if HeroSkills_A03G_DeBuff_c[id]==0 then
                    set HeroSkills_A03G_DeBuff_v[id]=0
                endif
            endif
        else
            if HeroSkills_A03G_DeBuff_mdef[id]!=0 then
                call DeUnitMdef((id),HeroSkills_A03G_DeBuff_mdef[id])
                set HeroSkills_A03G_DeBuff_mdef[id]=0
                set HeroSkills_A03G_DeBuff_lv[id]=0
                set HeroSkills_A03G_DeBuff_b[id]=0
            endif
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:409")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A062','BNdo')
        call Unit_Cancel_Counter(571,(id))
        set HeroSkills_A03G_DeBuff_timer[id]=null
        set HeroSkills_A03G_DeBuff_a[id]=0
    endif
endfunction

function HeroSkills_A03G_DeBuffAdd takes unit u,boolean local_bool,real value returns nothing
    local integer id=(GetUnitUserData((u)))
    if not(PB[((id))])then
        set HeroSkills_A03G_DeBuff_a[id]=4
        if local_bool then
            set HeroSkills_A03G_DeBuff_b[id]=2
            if value>HeroSkills_A03G_DeBuff_v[id]then
                set HeroSkills_A03G_DeBuff_c[id]=2
                set HeroSkills_A03G_DeBuff_v[id]=value
            endif
            if HeroSkills_A03G_DeBuff_mdef[id]==null then
                set HeroSkills_A03G_DeBuff_mdef[id]=ModifyUnitMdef((id),-(.5+value))
                set HeroSkills_A03G_DeBuff_lv[id]=1
            endif
        endif
        if HeroSkills_A03G_DeBuff_timer[id]==null then
            set HeroSkills_A03G_DeBuff_timer[id]=NewTimer(id)
            call UnitAddAbilityBY((Je[(id)]),'A062')
            call Unit_App_Counter(572,(id))
            call TimerStart(HeroSkills_A03G_DeBuff_timer[id],.25,true,function HeroSkills_A03G_DeBuffLoop)
        endif
    endif
endfunction

function HeroSkills_A03G_Stop takes integer id returns nothing
    if HeroSkills_A03G_Use[id]then
        set HeroSkills_A03G_Last[HeroSkills_A03G_Next[id]]=HeroSkills_A03G_Last[id]
        set HeroSkills_A03G_Next[HeroSkills_A03G_Last[id]]=HeroSkills_A03G_Next[id]
        set HeroSkills_A03G_Use[id]=false
        if HeroSkills_A03G_Next[(0)]==0 then
            call frv(HeroSkills_A03G_Func)
        endif
        call Unit_Cancel_Counter(573,(id))
    endif
endfunction

function HeroSkills_A03G_Loop takes nothing returns nothing
    local integer id=HeroSkills_A03G_Next[(0)]
    local integer s
    local unit u
    local boolean local_bool
    local integer i
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen id==0
        set HeroSkills_A03G_Time[id]=HeroSkills_A03G_Time[id]-1
        set x=(GetUnitX(II[(HeroSkills_A03G_Eff[id])]))
        set y=(GetUnitY(II[(HeroSkills_A03G_Eff[id])]))
        set a=Lx*(HeroSkills_A03G_Time[id]+GetRandomInt(-1,1))/ 4+GetRandomReal(-1,1)
        set d=GetRandomReal(50,HeroSkills_A03G_Angle[id]-50)
        if HeroSkills_A03G_BoolC[id]then
            if HeroSkills_A03G_Angle[id]<$3E8 then
                set HeroSkills_A03G_Angle[id]=HeroSkills_A03G_Angle[id]+7.8125
                call SetUnitScale(II[(HeroSkills_A03G_Eff[id])],((.625+HeroSkills_A03G_Angle[id]/ 800.)*1.),0,0)
                if ModuloInteger(R2I(HeroSkills_A03G_Angle[id]-500),125)==0 then
                    set i=$F
                    loop
                        set i=i-1
                        set a=i*Lx/ $F
                        call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x+(HeroSkills_A03G_Angle[id]-25)*Cos(a),y+(HeroSkills_A03G_Angle[id]-25)*Sin(a),1.+HeroSkills_A03G_Angle[id]/ 1000.))
                        exitwhen i==0
                    endloop
                endif
            endif
            if ModuloInteger(HeroSkills_A03G_Time[id],2)==0 then
                set a=Lx*(HeroSkills_A03G_Time[id]+GetRandomInt(-1,1))/ 3+GetRandomReal(-1,1)
                set d=GetRandomReal(50,HeroSkills_A03G_Angle[id]-50)
                call Ltv(LAv("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",x+d*Cos(a),y+d*Sin(a),1.25))
                if ModuloInteger(HeroSkills_A03G_Time[id],24)==0 then
                    set a=Lx*(HeroSkills_A03G_Time[id]+GetRandomInt(-$C,$C))/ 80+GetRandomReal(-1,1)
                    set d=GetRandomReal(25,HeroSkills_A03G_Angle[id]-25)
                    set s=(s__Soul_Create((GetUnitUserData((((Je[(id)]))))),'e00Q',((x+d*Cos(a))*1.),((y+d*Sin(a))*1.)))
                    call Ltv(Lfv(LAv("DeathBladeRegeneration.mdl",s__Soul_PointX[s],s__Soul_PointY[s],1.5),0,0,0,$CD))
                endif
            endif
        elseif ModuloInteger(HeroSkills_A03G_Time[id],40)==0 then
            set a=Lx*(HeroSkills_A03G_Time[id]+GetRandomInt(-$C,$C))/ 100+GetRandomReal(-1,1)
            set d=GetRandomReal(25,HeroSkills_A03G_Angle[id]-25)
            set s=(s__Soul_Create((GetUnitUserData((((Je[(id)]))))),'e00Q',((x+d*Cos(a))*1.),((y+d*Sin(a))*1.)))
            call Ltv(Lfv(LAv("DeathBladeRegeneration.mdl",s__Soul_PointX[s],s__Soul_PointY[s],1.5),0,0,0,$CD))
        endif
        set a=Lx*(HeroSkills_A03G_Time[id]+GetRandomInt(-1,1))/ 4+GetRandomReal(-1,1)
        set d=GetRandomReal(50,HeroSkills_A03G_Angle[id]-50)
        call Ltv(LAv("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",x+d*Cos(a),y+d*Sin(a),1.25))
        if ModuloInteger(HeroSkills_A03G_Time[id],16)==0 then
            set local_bool=HeroSkills_A03G_BoolA[id]and ModuloInteger(HeroSkills_A03G_Time[id],32)==0
            call GroupEnumUnitsInRange(G,x,y,HeroSkills_A03G_Angle[id]+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,HeroSkills_A03G_Angle[id])then
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        if local_bool then
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((2.66*Unit_DOT[(id)]*HeroSkills_A03G_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,.5)
                        else
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Unit_DOT[(id)]*HeroSkills_A03G_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\CarrionSwarm\\CarrionSwarmDamage.mdl",u,"chest"))
                        call HeroSkills_A03G_DeBuffAdd(u,HeroSkills_A03G_BoolB[id],HeroSkills_A03G_MdefReduce[id])
                    endif
                endif
            endloop
            if local_bool then
                if ModuloInteger(HeroSkills_A03G_Time[id],80)==0 then
                    set a=Lx*(HeroSkills_A03G_Time[id]+GetRandomInt(-$C,$C))/ 384+GetRandomReal(-1,1)
                    set d=GetRandomReal(25,HeroSkills_A03G_Angle[id]-25)
                    set s=(s__Soul_Create((GetUnitUserData((((Je[(id)]))))),'e00Q',((x+d*Cos(a))*1.),((y+d*Sin(a))*1.)))
                    call Ltv(Lfv(LAv("DeathBladeRegeneration.mdl",s__Soul_PointX[s],s__Soul_PointY[s],1.5),0,0,0,$CD))
                endif
                call Ltv(Lfv(LAv("ShadowSlam.mdl",x,y,1.25+HeroSkills_A03G_Angle[id]/ 1000.),35,0,35,$9B))
            endif
            if HeroSkills_A03G_Time[id]<1 then
                call RemoveUnitBJ(HeroSkills_A03G_FuDi[id],43)
                call Ltv(HeroSkills_A03G_Eff[id])
                call HeroSkills_A03G_Stop(id)
                set HeroSkills_A03G_FuDi[id]=null
            endif
        endif
        set id=HeroSkills_A03G_Next[id]
    endloop
endfunction

function HeroSkills_A03G_Open takes integer id returns boolean
    if not HeroSkills_A03G_Use[id]then
        if HeroSkills_A03G_Next[(0)]==0 then
            if HeroSkills_A03G_Func==0 then
                set HeroSkills_A03G_Func=fxv(function HeroSkills_A03G_Loop)
            endif
            call fov(HeroSkills_A03G_Func)
        endif
        set HeroSkills_A03G_Next[id]=HeroSkills_A03G_Next[(0)]
        set HeroSkills_A03G_Last[HeroSkills_A03G_Next[(0)]]=id
        set HeroSkills_A03G_Next[(0)]=id
        set HeroSkills_A03G_Last[id]=0
        set HeroSkills_A03G_Use[id]=true
        call Unit_App_Counter(574,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A03G_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=$A
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    local unit u
    if HeroSkills_A03G_Open(id)then
        set HeroSkills_A03G_Eff[id]=LAv("GrandVampiricAura.mdl",x,y,1.125)
        set HeroSkills_A03G_FuDi[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'e030',x,y,0)
        set HeroSkills_A03G_BoolC[id]=false
        set HeroSkills_A03G_BoolB[id]=Hero_Hmkg_getprimary(id)==3
        set HeroSkills_A03G_BoolA[id]=s__SoulCharge_Reduce(((id)))
        set HeroSkills_A03G_Time[id]=320
        set HeroSkills_A03G_Angle[id]=500
        set HeroSkills_A03G_Damage[id]=(GetHeroState1((Je[(id)]),true)+GetHeroState3((Je[(id)]),true))*(1.5+.3*GetUnitAbilityLevel((Je[(id)]),'A03G'))
        set HeroSkills_A03G_MdefReduce[id]=0
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('I0D9')))then
            set HeroSkills_A03G_Damage[id]=1.2*HeroSkills_A03G_Damage[id]
            set HeroSkills_A03G_MdefReduce[id]=.25
        endif
        call zhv((Kc[((id))]),30,.75)
        call PlaySoundAtPoint_BJ((on),((125)*1.),((x)*1.),((y)*1.),0)
        call Ltv(Lfv(LAv("ShadowSlam.mdl",x,y,2.25),35,0,35,$FF))
        call Lfv(HeroSkills_A03G_Eff[id],$CD,$CD,$CD,$CD)
        if HeroSkills_A03G_BoolA[id]then
            loop
                set i=i-1
                set a=i*Lx/ $A
                call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",x+450*Cos(a),y+450*Sin(a),1.5))
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,500+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,500)then
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call DestroyEffect(AddSpecialEffectTarget("DeathBladeRegeneration.mdl",u,"origin"))
                        call m1v(u,3)
                    endif
                endif
            endloop
        endif
    else
        call IssueUnitStop_DisplayText((Je[(id)]),"Ongoing")
    endif
endfunction

function HeroSkills_A03G_A04R takes integer id returns nothing
    set HeroSkills_A03G_BoolC[id]=true
    set HeroSkills_A03G_Time[id]=480
endfunction

function HeroSkills_A03G_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A03G',function HeroSkills_A03G_Actions)
    call Luv('A03G')
endfunction

function Gje takes nothing returns integer
    return D9v(HeroSkills_A04R_Bolang_Func)
endfunction

function GJe takes integer data returns nothing
    call fvv(data)
endfunction

function HeroSkills_A04R_Bolang_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A04R_Bolang_Func]
    local unit u
    local real x
    local real y
    local real d
    loop
        exitwhen 0==data
        set x=(GetUnitX(II[(HeroSkills_A04R_Bolang_Eff[data])]))+HeroSkills_A04R_Bolang_X[data]
        set y=(GetUnitY(II[(HeroSkills_A04R_Bolang_Eff[data])]))+HeroSkills_A04R_Bolang_Y[data]
        call LKv(HeroSkills_A04R_Bolang_Eff[data],x)
        call Llv(HeroSkills_A04R_Bolang_Eff[data],y)
        set HeroSkills_A04R_Bolang_Time[data]=HeroSkills_A04R_Bolang_Time[data]-1
        call GroupEnumUnitsInRange(G,x,y,$A0+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$A0)then
                exitwhen IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A04R_Bolang_Hero[data])]))
            endif
        endloop
        if ModuloInteger(HeroSkills_A04R_Bolang_Time[data],4)==0 then
            call Ltv(LAv("DarkWave.mdl",x,y,.875))
        endif
        if HeroSkills_A04R_Bolang_Time[data]<=0 or u!=null then
            set d=5000+30*GetHeroState3((Je[(HeroSkills_A04R_Bolang_Hero[data])]),true)
            call GroupEnumUnitsInRange(G,x,y,325+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,325)then
                    if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A04R_Bolang_Hero[data])]))then
                        call UnitDamageTargetBY((((Je[(HeroSkills_A04R_Bolang_Hero[data])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m1v(u,2.5)
                    endif
                endif
            endloop
            call zhv((GetPlayerId(((P[Kc[((HeroSkills_A04R_Bolang_Hero[data]))]])))),75,.25)
            call Ltv(Lfv(LAv("Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl",x,y,3.25),0,0,0,$FF))
            call Ltv(LAv("DarkWave.mdl",x,y,1.125))
            call Lqv(LAv("DarkPillar.mdl",x,y,2.5),1.75)
            call Unit_Cancel_Counter(575,HeroSkills_A04R_Bolang_Hero[data])
            call Ltv(HeroSkills_A04R_Bolang_Eff[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A04R_Bolang_Create takes integer id,real x,real y,real a returns boolean
    local integer data=D9v(HeroSkills_A04R_Bolang_Func)
    set HeroSkills_A04R_Bolang_Hero[data]=id
    set HeroSkills_A04R_Bolang_Eff[data]=Lnv(x,y,a)
    call LMv(HeroSkills_A04R_Bolang_Eff[data],"DeathWave.mdl")
    call SetUnitFlyHeight(II[(HeroSkills_A04R_Bolang_Eff[data])],((25)*1.),0)
    set HeroSkills_A04R_Bolang_Time[data]=16
    set HeroSkills_A04R_Bolang_X[data]=80*Cos(a)
    set HeroSkills_A04R_Bolang_Y[data]=80*Sin(a)
    call Unit_App_Counter(576,id)
    return false
endfunction

function HeroSkills_A04R_RamdomUnit takes integer id returns unit
    return PickRandomUnitInRange((Je[(id)]),(GetUnitX(II[(HeroSkills_A03G_Eff[(id)])])),(GetUnitY(II[(HeroSkills_A03G_Eff[(id)])])),HeroSkills_A03G_Angle[(id)])
endfunction

function HeroSkills_A04R_Animation takes integer id,integer i,real cyv returns nothing
    call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+3,R2I(32*cyv))
    call QueueUnitAnimation(II[(LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i))],"Stand")
endfunction

function HeroSkills_A04R_CreateFenshen takes integer id,integer i,real x,real y,real a returns integer
    local integer fx=LVv('e00T',x,y,bj_RADTODEG*a)
    call Lfv(fx,105,105,105,$CD)
    call LTv((LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i)))
    call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i,fx)
    return fx
endfunction

function HeroSkills_A04R_CreateFenshen_B takes integer id,integer i,unit u returns nothing
    local integer fx
    local real a
    local real fYv
    local real fzv
    if IsUnitInRangeXY(u,(GetUnitX(II[(HeroSkills_A03G_Eff[(id)])])),(GetUnitY(II[(HeroSkills_A03G_Eff[(id)])])),HeroSkills_A03G_Angle[(id)])then
        set a=GetRandomReal(0,Lx)
        set fYv=75*Cos(a)
        set fzv=75*Sin(a)
        call SaveReal(BYHT,(HeroSkills_A04R_Vessel[id]),8*i+4,fYv)
        call SaveReal(BYHT,(HeroSkills_A04R_Vessel[id]),8*i+5,fzv)
        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6,$C)
        call SaveInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+7,GetHandleId(NewGroup()))
        set fx=HeroSkills_A04R_CreateFenshen(id,i,GetUnitX(u)-6*fYv,GetUnitY(u)-6*fzv,a)
        call SetUnitAnimationByIndex(II[fx],7)
        call LDv(fx,2)
    else
        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
    endif
endfunction

function HeroSkills_A04R_Stop takes integer id returns nothing
    if HeroSkills_A04R_Use[id]then
        set HeroSkills_A04R_Last[HeroSkills_A04R_Next[id]]=HeroSkills_A04R_Last[id]
        set HeroSkills_A04R_Next[HeroSkills_A04R_Last[id]]=HeroSkills_A04R_Next[id]
        set HeroSkills_A04R_Use[id]=false
        if HeroSkills_A04R_Next[(0)]==0 then
            call frv(HeroSkills_A04R_Func)
        endif
        call Unit_Cancel_Counter(577,(id))
    endif
endfunction

function HeroSkills_A04R_Start takes nothing returns nothing
    local integer id=HeroSkills_A04R_Next[(0)]
    local integer fx
    local group g
    local unit u
    local boolean e
    local integer i
    local integer j
    local integer k
    local integer nA
    local real x
    local real y
    local real dX
    local real dY
    local real a
    local real d
    loop
        exitwhen id==0
        set i=5
        if not HeroSkills_A03G_Use[(id)]then
            loop
                set i=i-1
                set fx=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i)
                if HaveSavedInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+7)then
                    call RecycleGroup(ConvertVersion(LoadInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+7)))
                    call RemoveSavedInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+7)
                endif
                call SetUnitDecay(II[fx],105,105,105,$CD,1.5)
                call Ltv(LAv("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),1.5))
                call LQv(fx,1.5)
                exitwhen i==0
            endloop
            call free(HeroSkills_A04R_Vessel[id])
            call HeroSkills_A04R_Stop(id)
        elseif HeroSkills_A04R_Time[id]>0 then
            set HeroSkills_A04R_Time[id]=HeroSkills_A04R_Time[id]-1
            if HeroSkills_A04R_Time[id]>=16 then
                set nA=R2I($CD-$CD*(HeroSkills_A04R_Time[id]-16)/ 64)
                loop
                    set i=i-1
                    call Lfv((LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i)),105,105,105,nA)
                    exitwhen i==0
                endloop
                if HeroSkills_A04R_Time[id]==16 then
                    set i=5
                    set d=50*(GetHeroState1((Je[(id)]),true)+1.25*GetHeroState3((Je[(id)]),true))
                    set g=NewGroup()
                    loop
                        set i=i-1
                        set fx=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i)
                        set x=(GetUnitX(II[(fx)]))
                        set y=(GetUnitY(II[(fx)]))
                        call GroupEnumUnitsInRange(G,x,y,325+75,null)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,325)then
                                if not IsUnitInGroup(u,g)and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                                    call GroupAddUnit(g,u)
                                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                    call m1v(u,3)
                                endif
                            endif
                        endloop
                        call QueueUnitAnimation(II[fx],"Stand")
                        call Ltv(LAv("DeathBladeRegeneration.mdl",x,y,2.25))
                        call Ltv(LAv("WallOfTerrorExplosion.mdx",x,y,2))
                        exitwhen i==0
                    endloop
                    call PauseUnit((Je[(id)]),false)
                    call SetUnitInvulnerable((Je[(id)]),false)
                    call SetUnitTimeScale((Je[(id)]),1)
                    call QueueUnitAnimation((Je[(id)]),"Stand")
                    call RecycleGroup(g)
                endif
            endif
        else
            loop
                set i=i-1
                set fx=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i)
                set j=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1)
                set k=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+3)
                set x=(GetUnitX(II[(fx)]))
                set y=(GetUnitY(II[(fx)]))
                if k>0 then
                    call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+3,k-1)
                    if k==1 then
                        call LDv(fx,1)
                    endif
                elseif j==0 then
                    set u=HeroSkills_A04R_RamdomUnit(id)
                    if u==null then
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,7)
                        set a=i*Lx/ 5
                        set fx=HeroSkills_A04R_CreateFenshen(id,i,(GetUnitX(II[(HeroSkills_A03G_Eff[(id)])]))+750*Cos(a),(GetUnitY(II[(HeroSkills_A03G_Eff[(id)])]))+750*Sin(a),a+bj_PI)
                        call LDv(fx,.25)
                        call SetUnitAnimationByIndex(II[fx],$D)
                    else
                        call SetUnitFacing(II[(fx)],((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)*bj_RADTODEG)
                        set j=GetRandomInt(1,2)
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,j)
                        call SaveInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+2,GetHandleId(u))
                        if j==1 then
                            call SetUnitAnimationByIndex(II[fx],1)
                        else
                            call HeroSkills_A04R_CreateFenshen_B(id,i,u)
                        endif
                    endif
                elseif j==1 then
                    set u=ConvertVersion(LoadInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+2))
                    if IsUnitInRangeXY(u,(GetUnitX(II[(HeroSkills_A03G_Eff[(id)])])),(GetUnitY(II[(HeroSkills_A03G_Eff[(id)])])),HeroSkills_A03G_Angle[(id)])then
                        set dX=GetUnitX(u)-x
                        set dY=GetUnitY(u)-y
                        set a=Atan2(dY,dX)
                        set d=SquareRoot(dX*dX+dY*dY)
                        set e=d<=110
                        if e then
                            set d=50
                        else
                            set d=d-60
                        endif
                        call LKv(fx,x+d*Cos(a))
                        call Llv(fx,y+d*Sin(a))
                        call SetUnitFacing(II[(fx)],((a)*1.)*bj_RADTODEG)
                        if e then
                            set j=0
                            if GetRandomInt(1,$A)==1 then
                                set j=6
                            else
                                set j=GetRandomInt(2,5)
                                if j==2 or j==5 then
                                    call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6,0)
                                endif
                            endif
                            call LDv(fx,1.5)
                            call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,j)
                            call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+3,20)
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((7.5*GetHeroState1((Je[(id)]),true))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call SetUnitAnimation(II[fx],"Attack")
                        endif
                    else
                        call HeroSkills_A04R_Animation(id,i,.5)
                    endif
                elseif j==2 then
                    set k=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6)
                    if k==0 then
                        call HeroSkills_A04R_CreateFenshen_B(id,i,ConvertVersion(LoadInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+2)))
                    else
                        set x=x+LoadReal(BYHT,(HeroSkills_A04R_Vessel[id]),8*i+4)
                        set y=y+LoadReal(BYHT,(HeroSkills_A04R_Vessel[id]),8*i+5)
                        set g=ConvertVersion(LoadInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+7))
                        set d=$F*GetHeroState3((Je[(id)]),true)
                        call LKv(fx,x)
                        call Llv(fx,y)
                        call GroupEnumUnitsInRange(G,x,y,$80+75,null)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,$80)then
                                if not IsUnitInGroup(u,g)and IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                                    call GroupAddUnit(g,u)
                                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                    call UnitAppBuff((GetUnitUserData((u))),'A030',$D02BC)
                                endif
                            endif
                        endloop
                        if k==1 then
                            call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
                            call RecycleGroup(g)
                            call RemoveSavedInteger(BYHT2,(HeroSkills_A04R_Vessel[id]),8*i+7)
                            call HeroSkills_A04R_Animation(id,i,.625)
                        endif
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6,k-1)
                    endif
                elseif j==3 then
                    set u=HeroSkills_A04R_RamdomUnit(id)
                    call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
                    if u!=null then
                        set a=GetRandomReal(0,Lx)
                        set fx=HeroSkills_A04R_CreateFenshen(id,i,GetUnitX(u)+96*Cos(a),GetUnitY(u)+96*Sin(a),a+bj_PI)
                        call SetUnitAnimationByIndex(II[fx],3)
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((5*(GetHeroState1((Je[(id)]),true)+GetHeroState3((Je[(id)]),true)))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                    call HeroSkills_A04R_Animation(id,i,.375)
                elseif j==4 then
                    set u=HeroSkills_A04R_RamdomUnit(id)
                    call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
                    if u!=null then
                        set x=(GetUnitX(II[(HeroSkills_A03G_Eff[(id)])]))
                        set y=(GetUnitY(II[(HeroSkills_A03G_Eff[(id)])]))
                        set a=Atan2(GetUnitY(u)-y,GetUnitX(u)-x)
                        set fx=HeroSkills_A04R_CreateFenshen(id,i,x-750*Cos(a),y-750*Sin(a),a)
                        call SetUnitAnimationByIndex(II[fx],5)
                        call HeroSkills_A04R_Bolang_Create(id,(GetUnitX(II[(fx)]))+32*Cos(a),(GetUnitY(II[(fx)]))+32*Sin(a),a)
                        call HeroSkills_A04R_Animation(id,i,1)
                    endif
                elseif j==5 then
                    set k=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6)
                    if k==0 then
                        call SetUnitAnimationByIndex(II[fx],9)
                        set fx=LAv("ShadowTornado.mdl",x,y,1.5)
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6,48)
                        call SetUnitDecay(II[fx],$FF,$FF,$FF,$FF,1.5)
                        call LQv(fx,1.5)
                    else
                        set d=(1.125*GetHeroState1((Je[(id)]),true)+1.625*GetHeroState3((Je[(id)]),true))
                        call GroupEnumUnitsInRange(G,x,y,256+75,null)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,256)then
                                if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                                    if GetRandomInt(1,24)==1 then
                                        call DestroyEffect(AddSpecialEffectTarget("Punishment_Missle.mdl",u,"chest"))
                                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Unit_DOT[(id)]*$F*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((18)*1.))*1.),(("|c00f94f71")))
                                        call m1v(u,2.5)
                                    else
                                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Unit_DOT[(id)]*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                    endif
                                endif
                            endif
                        endloop
                        if k==1 then
                            call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
                            call HeroSkills_A04R_Animation(id,i,.75)
                        endif
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6,k-1)
                    endif
                elseif j==6 then
                    call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
                elseif j==7 then
                    set u=HeroSkills_A04R_RamdomUnit(id)
                    if u==null then
                        set k=LoadInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6)+1
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6,k)
                        if ModuloInteger(k,64)==0 then
                            set x=(GetUnitX(II[(fx)]))
                            set y=(GetUnitY(II[(fx)]))
                            set a=GetRandomReal(0,Lx)
                            call Ltv(LAv("BlackChakraExplosion.mdl",x,y,1.5))
                            call s__Soul_Move((s__Soul_Create((GetUnitUserData((((Je[(id)]))))),'e00Q',((x)*1.),((y)*1.))),x+$FA*Cos(a),y+$FA*Sin(a),0)
                            call SetUnitAnimationByIndex(II[fx],$D)
                        endif
                    else
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
                        call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+6,0)
                        call LDv(fx,1)
                    endif
                endif
                exitwhen i==0
            endloop
        endif
        set id=HeroSkills_A04R_Next[id]
    endloop
    set u=null
    set g=null
endfunction

function HeroSkills_A04R_Open takes integer id returns boolean
    if not HeroSkills_A04R_Use[id]then
        if HeroSkills_A04R_Next[(0)]==0 then
            if HeroSkills_A04R_Func==0 then
                set HeroSkills_A04R_Func=fxv(function HeroSkills_A04R_Start)
            endif
            call fov(HeroSkills_A04R_Func)
        endif
        set HeroSkills_A04R_Next[id]=HeroSkills_A04R_Next[(0)]
        set HeroSkills_A04R_Last[HeroSkills_A04R_Next[(0)]]=id
        set HeroSkills_A04R_Next[(0)]=id
        set HeroSkills_A04R_Last[id]=0
        set HeroSkills_A04R_Use[id]=true
        call Unit_App_Counter(578,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A04R_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer fx
    local integer i
    local real x
    local real y
    local real a
    if not HeroSkills_A03G_Use[(id)]then
        call IssueUnitStop_DisplayText((Je[(id)]),"还没使用大杀器呢")
    elseif HeroSkills_A04R_Open(id)then
        set HeroSkills_A04R_Vessel[id]=malloc()
        set HeroSkills_A04R_Time[id]=80
        set i=5
        set x=(GetUnitX(II[(HeroSkills_A03G_Eff[(id)])]))
        set y=(GetUnitY(II[(HeroSkills_A03G_Eff[(id)])]))
        loop
            set i=i-1
            set a=i*Lx/ 5
            set fx=LVv('e00T',x+750*Cos(a),y+750*Sin(a),bj_RADTODEG*a+$B4)
            call LDv(fx,.5)
            call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i,fx)
            call SaveInteger(BYHT,HeroSkills_A04R_Vessel[id],8*i+1,0)
            call Lfv(fx,105,105,105,0)
            call SetUnitAnimation(II[fx],"Spell Five")
            exitwhen i==0
        endloop
        call SetUnitInvulnerable((Je[(id)]),true)
        call PauseUnit((Je[(id)]),true)
        call SetUnitTimeScale((Je[(id)]),.4)
        call SetUnitAnimation((Je[(id)]),"Spell Slam")
        call HeroSkills_A03G_A04R((id))
    endif
endfunction

function HeroSkills_A04R_Init takes nothing returns nothing
    set HeroSkills_A04R_Bolang_Func=fxv(function HeroSkills_A04R_Bolang_Start)
    call RegisterSpellEffectEvent('A04R',function HeroSkills_A04R_Actions)
    call Luv('A04R')
endfunction

function Hero_Hmkg_Init takes nothing returns nothing
    call HeroSkills_A02X_Init()
    call HeroSkills_A02Y_Init()
    call HeroSkills_A02Z_Init()
    call HeroSkills_A03E_Init()
    call HeroSkills_A03F_Init()
    call HeroSkills_A03G_Init()
    call HeroSkills_A04R_Init()
endfunction

function HeroSkills_A0CQ_End takes integer targetid returns nothing
    if HeroSkills_A0CQ_Timer[targetid]!=null then
        call ReleaseTimer(HeroSkills_A0CQ_Timer[targetid],"[TimerUtils]Error:410")
        call UnitRemoveAbilityandBuffBY((Je[(targetid)]),'A0CT','BUan')
        call Unit_Cancel_Counter(579,targetid)
        set HeroSkills_A0CQ_Timer[targetid]=null
    endif
endfunction

function HeroSkills_A0CQ_IsTargetHasBuff takes unit u returns boolean
    if GetUnitAbilityLevel(u,'A0CT')>0 then
        call HeroSkills_A0CQ_End((GetUnitUserData((u))))
        return true
    endif
    return false
endfunction

function HeroSkills_A0CQ_Expored takes nothing returns nothing
    call HeroSkills_A0CQ_End((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function HeroSkills_A0CQ_Damage takes integer id,unit u,real damage returns nothing
    local integer targetid=(GetUnitUserData((u)))
    if HeroSkills_A0CQ_Timer[targetid]==null then
        set HeroSkills_A0CQ_Timer[targetid]=NewTimer(targetid)
        call UnitAddAbilityBY(u,'A0CT')
        call Unit_App_Counter(580,targetid)
    endif
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
    call UnitDamageTargetBY((((Je[(id)]))),((u)),(((((2.5+GetUnitAbilityLevel((Je[(id)]),'A0CQ'))*GetHeroState3((Je[(id)]),true)+damage)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c006204b7")))
    call TimerStart(HeroSkills_A0CQ_Timer[targetid],6,false,function HeroSkills_A0CQ_Expored)
endfunction

function HeroSkills_A0CQ_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    set HeroSkills_A0CQ_Count[id]=HeroSkills_A0CQ_Count[id]+1
    if HeroSkills_A0CQ_Count[id]==6 then
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('bzbe')))then
            call SetUnitState((mF),UNIT_STATE_MANA,GetUnitState((mF),UNIT_STATE_MANA)+.12*GetUnitState((mF),UNIT_STATE_MAX_MANA))
        else
            call SetUnitState((mF),UNIT_STATE_MANA,GetUnitState((mF),UNIT_STATE_MANA)+.08*GetUnitState((mF),UNIT_STATE_MAX_MANA))
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Feedback\\ArcaneTowerAttack.mdl",(mF),"origin"))
        call HeroSkills_A0CQ_Damage(id,(MF),0)
        set HeroSkills_A0CQ_Count[id]=0
    endif
endfunction

function Hero_EnterWorld_H00J takes nothing returns nothing
    local integer id=le
    call UnitAddPAttackTrig(id,function HeroSkills_A0CQ_onAttack)
    call ModifyUnitMagicDamage(id,5.5)
endfunction

function HeroSkills_A0CQ_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H00J',function Hero_EnterWorld_H00J)
endfunction

function s__DeathOrb_impact takes integer this returns boolean
    local unit u
    local real x
    local real y
    if HeroSkills_A0CQ_IsTargetHasBuff(s__barrage_target[this])then
        set x=GetUnitX(s__barrage_target[this])
        set y=GetUnitY(s__barrage_target[this])
        set s__DeathOrb_damage[this]=(2.5+3*Unit_MATK[(GetUnitUserData((s__barrage_atkunit[this])))])*s__DeathOrb_damage[this]
        call GroupEnumUnitsInRange(G,x,y,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)then
                if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__DeathOrb_damage[this])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call UnitAppBuff((GetUnitUserData((u))),'A0G5',$D006B)
                endif
            endif
        endloop
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",s__barrage_atkunit[this],"origin"))
        call LQv(LAv("DarkLightningNova.mdl",x,y,1.25),1.25)
        call UnitResetCooldownById(s__barrage_atkunit[this],'A0CO')
    else
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__DeathOrb_damage[this])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call UnitAppBuff((GetUnitUserData((s__barrage_target[this]))),'A0G5',$D006B)
    endif
    return true
endfunction

function s__DeathOrb_stop takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__DeathOrb_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__DeathOrb_launcher]
    local unit u
    if this!=s__DeathOrb_launcher then
        call UseBarrage(s__DeathOrb_launcher)
        loop
            exitwhen this==s__DeathOrb_launcher
            if(s__barrage_outside[(this)])then
                call s__DeathOrb_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                if s__DeathOrb_impact(this)then
                    call RemoveBarrage((this))
                else
                    set s__barrage_finish[(this)]=false
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__DeathOrb_launcher]then
        set s__barrage_InOperation[s__DeathOrb_launcher]=false
        call frv(s__DeathOrb_func)
    endif
endfunction

function s__DeathOrb_fired takes integer this returns nothing
    call s__barrage_Filling((s__DeathOrb_launcher),(this))
    if not s__barrage_InOperation[s__DeathOrb_launcher]then
        set s__barrage_InOperation[s__DeathOrb_launcher]=true
        call fov(s__DeathOrb_func)
    endif
endfunction

function s__DeathOrb_onInit takes nothing returns nothing
    set s__DeathOrb_launcher=NewLauncher()
    set s__barrage_InOperation[s__DeathOrb_launcher]=false
    set s__DeathOrb_func=fxv(function s__DeathOrb_loop_c)
endfunction

function HeroSkills_A0CO_Actions takes nothing returns nothing
    local integer b=CreateBarrageTypeA(GetTriggerUnit(),GetSpellTargetUnit())
    local integer lv=GetUnitAbilityLevel(s__barrage_atkunit[b],'A0CO')
    call LMv(s__barrage_model[b],"OrbOfCorruption.mdl")
    set s__barrage_speed[b]=40.
    set s__DeathOrb_damage[b]=$C8*lv+(5+.5*lv)*GetHeroState3(s__barrage_atkunit[b],true)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",s__barrage_atkunit[b],"origin"))
    call Ltv(Lfv(LIv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",s__barrage_X[b],s__barrage_Y[b],62.5,.875,s__locationez_ang[s__barrage_p1[b]],0),75,75,125,$CD))
    call Lfv(s__barrage_model[b],125,125,125,$FF)
    call s__DeathOrb_fired(b)
endfunction

function HeroSkills_A0CO_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0CO',function HeroSkills_A0CO_Actions)
    call Luv('A0CO')
endfunction

function HeroSkills_A0CR_Alloc takes nothing returns integer
    return D9v(HeroSkills_A0CR_Func)
endfunction

function HeroSkills_A0CR_Stop takes integer data returns nothing
    call fvv(data)
endfunction

function HeroSkills_A0CR_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0CR_Func]
    local unit u
    local real x
    local real y
    local real a
    local real d
    local real r
    loop
        exitwhen 0==data
        set HeroSkills_A0CR_Time[data]=HeroSkills_A0CR_Time[data]-1
        set x=(GetUnitX(II[(HeroSkills_A0CR_Emfw[data])]))
        set y=(GetUnitY(II[(HeroSkills_A0CR_Emfw[data])]))
        if HeroSkills_A0CR_Time[data]>=$B50 then
            set r=(HeroSkills_A0CR_Time[data]-2896.)/ 32.
            set a=2*Lx*r
            set d=290*r
            if HeroSkills_A0CR_Time[data]==$B50 then
                call SetUnitOwner(II[(HeroSkills_A0CR_Emfw[data])],(GetOwningPlayer((Je[(HeroSkills_A0CR_Hero[data])]))),false)
            endif
            call Ltv(LAv("Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",x+d*Cos(a),y+d*Sin(a),1.5))
            call Lfv(HeroSkills_A0CR_Emfw[data],$FF,$FF,$FF,R2I($CD-80*r))
        elseif HeroSkills_A0CR_Time[data]<$B40 then
            if HeroSkills_A0CR_Time[data]>6 then
                call GroupEnumUnitsInRange(G,x,y,$E6+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$E6)then
                        exitwhen IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0CR_Hero[data])]))
                    endif
                endloop
                if u!=null or(GetOwningPlayer(II[(HeroSkills_A0CR_Emfw[data])]))!=GetOwningPlayer((Je[(HeroSkills_A0CR_Hero[data])]))then
                    call SetUnitOwner(II[(HeroSkills_A0CR_Emfw[data])],(P[$F]),false)
                    set HeroSkills_A0CR_Time[data]=6
                endif
            else
                set a=Lx*HeroSkills_A0CR_Time[data]/ 6
                call SetUnitOwner(II[(HeroSkills_A0CR_Emfw[data])],(P[$F]),false)
                call Ltv(LAv("s_ShadowEruption_Rain.mdl",x+$82*Cos(a),y+$82*Sin(a),.75))
            endif
            if HeroSkills_A0CR_Time[data]<=0 then
                set HeroSkills_A0CR_IssuedOrder_Count[HeroSkills_A0CR_Hero[data]]=HeroSkills_A0CR_IssuedOrder_Count[HeroSkills_A0CR_Hero[data]]-1
                call GroupEnumUnitsInRange(G,x,y,290+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,290)then
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0CR_Hero[data])]))then
                            call UnitAppBuff((GetUnitUserData((u))),'Aenr',$D00CB)
                            call HeroSkills_A0CQ_Damage((HeroSkills_A0CR_Hero[data]),u,HeroSkills_A0CR_Damage[data])
                        endif
                    endif
                endloop
                call LQv(HeroSkills_A0CR_Emfw[data],1)
                call Unit_Cancel_Counter(581,HeroSkills_A0CR_Hero[data])
                call fvv((data))
            endif
        endif
        set data=K[data]
    endloop
    set u=null
endfunction

function HeroSkills_A0CR_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real cX
    local real cY
    local real dX
    local real dY
    local real a
    local real d
    local integer data=J[HeroSkills_A0CR_Func]
    local integer lv
    local unit u=null
    local player p=(P[Kc[((id))]])
    loop
        exitwhen 0==data
        set u=II[HeroSkills_A0CR_Emfw[data]]
        exitwhen IsUnitOwnedByPlayer(u,p)and IsUnitInRangeXY(u,x,y,290)
        set u=null
        set data=K[data]
    endloop
    if u==null then
        set data=(D9v(HeroSkills_A0CR_Func))
        set HeroSkills_A0CR_Hero[data]=id
        set lv=GetUnitAbilityLevel((Je[(id)]),'A0CR')
        set cX=GetUnitX((Je[(id)]))
        set cY=GetUnitY((Je[(id)]))
        set dX=x-cX
        set dY=y-cY
        set x=cX
        set y=cY
        set a=Atan2(dY,dX)
        set d=SquareRoot(dX*dX+dY*dY)
        loop
            if d>32 then
                set cX=cX+32*Cos(a)
                set cY=cY+32*Sin(a)
                set d=d-32
            else
                set cX=cX+d*Cos(a)
                set cY=cY+d*Sin(a)
                set d=0
            endif
            exitwhen not IsTerrainWalkable(cX,cY)
            set x=cX
            set y=cY
            exitwhen d==0
        endloop
        set HeroSkills_A0CR_Emfw[data]=LVv('e00Y',x,y,0)
        set HeroSkills_A0CR_Time[data]=$B70
        set HeroSkills_A0CR_Damage[data]=$FA*lv+(6+lv)*GetHeroState3((Je[(id)]),true)
        set HeroSkills_A0CR_IssuedOrder_Count[id]=HeroSkills_A0CR_IssuedOrder_Count[id]+1
        call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DeathPact\\DeathPactTarget.mdl",x,y,1.5),$9B,$FF,$FF,$CD))
        call Lfv(HeroSkills_A0CR_Emfw[data],$FF,$FF,$FF,125)
        call Unit_App_Counter(582,id)
    else
        call IssueUnitStop_DisplayText((Je[(id)]),"The target area already has it")
        set u=null
    endif
endfunction

function HeroSkills_A0CR_IssuedOrder_End takes integer id returns nothing
    if HeroSkills_A0CR_IssuedOrder_Timer[id]!=null then
        call ReleaseTimer(HeroSkills_A0CR_IssuedOrder_Timer[id],"[TimerUtils]Error:411")
        call Unit_Cancel_Counter(583,id)
        set HeroSkills_A0CR_IssuedOrder_Target[id]=null
        set HeroSkills_A0CR_IssuedOrder_Timer[id]=null
    endif
endfunction

function HeroSkills_A0CR_IssuedOrder_Expired takes nothing returns nothing
    call HeroSkills_A0CR_IssuedOrder_End((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function HeroSkills_A0CR_IssuedOrder_Start takes integer id returns nothing
    local unit c=GetOrderedUnit()
    local unit u
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real tX=GetOrderPointX()
    local real tY=GetOrderPointY()
    call GroupEnumUnitsOfPlayer(G,GetOwningPlayer(c),null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if GetUnitTypeId(u)=='e00Y' and IsUnitInRangeXY(u,x,y,$4B0)and IsUnitInRangeXY(u,tX,tY,$C8)then
            if HeroSkills_A0CR_IssuedOrder_Target[id]==u then
                set x=GetUnitX(u)
                set y=GetUnitY(u)
                call HeroSkills_A0CR_IssuedOrder_End(id)
                call SetUnitOwner(u,P[$F],false)
                call SetUnitX(c,x)
                call SetUnitY(c,y)
                call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",x,y,2),$9B,0,$FF,125))
            else
                if HeroSkills_A0CR_IssuedOrder_Timer[id]==null then
                    set HeroSkills_A0CR_IssuedOrder_Timer[id]=NewTimer(id)
                    call Unit_App_Counter(584,id)
                endif
                set HeroSkills_A0CR_IssuedOrder_Target[id]=u
                call Ltv(Lfv(LAv("Twister Slash.mdl",GetUnitX(u),GetUnitY(u),.875),105,105,105,105))
                call TimerStart(HeroSkills_A0CR_IssuedOrder_Timer[id],.625,false,function HeroSkills_A0CR_IssuedOrder_Expired)
            endif
            call GroupClear(G)
            exitwhen true
        endif
    endloop
    set c=null
    set u=null
endfunction

function HeroSkills_A0CR_IssuedOrder_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetOrderedUnit())))
    if HeroSkills_A0CR_IssuedOrder_Count[id]>0 then
        call HeroSkills_A0CR_IssuedOrder_Start(id)
    endif
endfunction

function HeroSkills_A0CR_Init takes nothing returns nothing
    set HeroSkills_A0CR_Func=fxv(function HeroSkills_A0CR_Start)
    call RegisterSpellEffectEvent('A0CR',function HeroSkills_A0CR_Actions)
    call RegisterIssuedOrder_POINT($D0003,function HeroSkills_A0CR_IssuedOrder_Actions)
    call Luv('A0CR')
endfunction

function HeroSkills_A0CX_Stop takes integer id returns nothing
    set HeroSkills_A0CX_Last[HeroSkills_A0CX_Next[id]]=HeroSkills_A0CX_Last[id]
    set HeroSkills_A0CX_Next[HeroSkills_A0CX_Last[id]]=HeroSkills_A0CX_Next[id]
    call s__Trig_remove((HeroSkills_A0CX_TrigA[id]))
    call PauseUnit((Je[(id)]),false)
    call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,$FF)
    call Unit_Cancel_Counter(585,(id))
    if HeroSkills_A0CX_Next[(0)]==0 then
        call frv(HeroSkills_A0CX_Func)
    endif
endfunction

function HeroSkills_A0CX_Loop takes nothing returns nothing
    local integer id=HeroSkills_A0CX_Next[(0)]
    local unit u
    local integer a
    local real x
    local real y
    local real d
    loop
        exitwhen id==0
        set HeroSkills_A0CX_Time[id]=HeroSkills_A0CX_Time[id]-1
        if not UnitAlive((Je[(id)]))then
            call HeroSkills_A0CX_Stop(id)
        elseif HeroSkills_A0CX_Time[id]>$C then
            call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,R2I(255.*(HeroSkills_A0CX_Time[id]-13.)/ 16.))
        elseif HeroSkills_A0CX_Time[id]>0 then
            if ModuloInteger(HeroSkills_A0CX_Time[id],4)==0 then
                set a=16
                set x=GetUnitX((Je[(id)]))
                set y=GetUnitY((Je[(id)]))
                set d=30*HeroSkills_A0CX_Time[id]
                loop
                    set a=a-1
                    call Ltv(LAv("DarkPortalCast.mdl",x+d*Cos(a*Lx/ 16),y+d*Sin(a*Lx/ 16),1.25))
                    exitwhen a==0
                endloop
            endif
        else
            set a=GetUnitAbilityLevel((Je[(id)]),'A0CX')
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            set d=(50+5*a)*GetHeroState3((Je[(id)]),true)
            if HeroSkills_A0CX_Damage[id]>d then
                set d=800*a+(20+1.5*a)*GetHeroState3((Je[(id)]),true)+d
            else
                set d=800*a+(20+1.5*a)*GetHeroState3((Je[(id)]),true)+HeroSkills_A0CX_Damage[id]
            endif
            call GroupEnumUnitsInRange(G,x,y,550+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,550)then
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00541c93")))
                        call m2v(u,2.5,'A500','B500',true)
                    endif
                endif
            endloop
            call Ltv(Lfv(LAv("ShadowAssault.mdl",x,y,5),55,0,$CD,$CD))
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,2),$FF,0,$FF,$FF))
            call zhv((GetPlayerId(((P[Kc[((id))]])))),40,.5)
            call HeroSkills_A0CX_Stop(id)
        endif
        set id=HeroSkills_A0CX_Next[id]
    endloop
endfunction

function HeroSkills_A0CX_onDamager takes nothing returns boolean
    local integer id=s__Trig_P2[s__Trig_Index]
    if UnitAlive((Je[(id)]))then
        if(pF)==id then
            set HeroSkills_A0CX_Damage[id]=HeroSkills_A0CX_Damage[id]+.7*GetDamage()
            call DamageMinus(.7*GetDamage())
        else
            set HeroSkills_A0CX_Damage[id]=HeroSkills_A0CX_Damage[id]+.3*GetDamage()
            call DamageMinus(.3*GetDamage())
        endif
    endif
    return false
endfunction

function HeroSkills_A0CX_Expierd takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:412")
    call s__Trig_remove((HeroSkills_A0CX_TrigB[id]))
    set HeroSkills_A0CX_TrigB[id]=0
endfunction

function HeroSkills_A0CX_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local integer target
    local unit u
    if HeroSkills_A0CX_Next[(0)]==0 then
        call fov(HeroSkills_A0CX_Func)
    endif
    set HeroSkills_A0CX_Next[id]=HeroSkills_A0CX_Next[(0)]
    set HeroSkills_A0CX_Last[id]=0
    set HeroSkills_A0CX_Last[HeroSkills_A0CX_Next[(0)]]=id
    set HeroSkills_A0CX_Next[(0)]=id
    set HeroSkills_A0CX_TrigA[id]=UnitAddBeDamagerTrigB((id),function HeroSkills_A0CX_onDamager)
    set s__Trig_P2[HeroSkills_A0CX_TrigA[id]]=id
    set HeroSkills_A0CX_Time[id]=28
    set HeroSkills_A0CX_Damage[id]=0
    call GroupEnumUnitsInRange(G,x,y,450+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,450)then
            if UnitAlive(u)then
                set target=(GetUnitUserData((u)))
                if target!=id and nC[(id)]then
                    if HeroSkills_A0CX_TrigB[target]==0 then
                        set HeroSkills_A0CX_TrigB[target]=UnitAddBeDamagerTrigB((target),function HeroSkills_A0CX_onDamager)
                        set s__Trig_P2[HeroSkills_A0CX_TrigB[target]]=id
                        call DestroyEffect(AddSpecialEffectTarget("WarpDarkTarget.mdl",u,"origin"))
                        call TimerStart(NewTimer(target),1,true,function HeroSkills_A0CX_Expierd)
                        call Unit_App_Counter(586,target)
                    endif
                endif
            endif
        endif
    endloop
    call Lqv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",x,y,1.5),1.5)
    call DestroyEffect(AddSpecialEffectTarget("WarpDarkTarget.mdl",(Je[(id)]),"origin"))
    call PauseUnit((Je[(id)]),true)
    call Unit_App_Counter(587,(id))
endfunction

function HeroSkills_A0CX_Init takes nothing returns nothing
    set HeroSkills_A0CX_Func=fxv(function HeroSkills_A0CX_Loop)
    call RegisterSpellEffectEvent('A0CX',function HeroSkills_A0CX_Actions)
    call Luv('A0CX')
endfunction

function dxe takes nothing returns nothing
    local integer id
    loop
        set HeroSkills_A0CU_Index=HeroSkills_A0CU_Index-1
        set id=HeroSkills_A0CU_U[HeroSkills_A0CU_Index]
        call IssueImmediateOrderById((Je[(id)]),$D0004)
        call SetUnitFacing((Je[(id)]),bj_RADTODEG*Atan2(HeroSkills_A0CU_Ty[id]-HeroSkills_A0CU_Py[id],HeroSkills_A0CU_Tx[id]-HeroSkills_A0CU_Px[id]))
        call SetUnitAnimation((Je[(id)]),"Stand Channel")
        exitwhen HeroSkills_A0CU_Index<=0
    endloop
endfunction

function doe takes nothing returns nothing
    local integer id
    loop
        set HeroSkills_A0CU_Index=HeroSkills_A0CU_Index-1
        set id=HeroSkills_A0CU_U[HeroSkills_A0CU_Index]
        call IssueImmediateOrderById((Je[(id)]),$D0004)
        call SetUnitAnimation((Je[(id)]),"Stand Channel")
        exitwhen HeroSkills_A0CU_Index<=0
    endloop
endfunction

function dre takes nothing returns nothing
    local integer id=(GetUnitUserData((GetOrderedUnit())))
    set HeroSkills_A0CU_U[HeroSkills_A0CU_Index]=id
    set HeroSkills_A0CU_Index=HeroSkills_A0CU_Index+1
    if GetTriggerEventId()==EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER then
        set HeroSkills_A0CU_Tx[id]=GetWidgetX(GetOrderTarget())
        set HeroSkills_A0CU_Ty[id]=GetWidgetY(GetOrderTarget())
        call TimerStart(HeroSkills_A0CU_Tm,.0,false,function dxe)
    elseif GetIssuedOrderId()==$D000F then
        call TimerStart(HeroSkills_A0CU_Tm,.0,false,function doe)
    else
        set HeroSkills_A0CU_Tx[id]=GetOrderPointX()
        set HeroSkills_A0CU_Ty[id]=GetOrderPointY()
        call TimerStart(HeroSkills_A0CU_Tm,.0,false,function dxe)
    endif
endfunction

function dVe takes nothing returns boolean
    local integer Cjv=(GetUnitUserData((GetOrderedUnit())))
    if cT[(Cjv)]then
        call dre()
    endif
    return FALSE
endfunction

function dEe takes nothing returns nothing
    call RegisterEvent(EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,function dVe)
    call RegisterEvent(EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER,function dVe)
endfunction

function HeroSkills_A0CU_EM_B takes nothing returns nothing
    local integer data=J[iav]
    local unit u
    local real x
    local real y
    local real r
    local real rd
    local real d
    loop
        exitwhen 0==data
        set x=(GetUnitX(II[(r9v[data])]))+irv[data]
        set y=(GetUnitY(II[(r9v[data])]))+iiv[data]
        call LKv(r9v[data],x)
        call Llv(r9v[data],y)
        set ixv[data]=ixv[data]-1
        set r=1.-ixv[data]/ 24.
        set rd=32.+16.*r
        set d=(1+(2+6*Unit_MATK[(r8v[data])])*r)*iov[data]
        call SetUnitScale(II[(r9v[data])],((.6+.4*r)*1.),0,0)
        call GroupEnumUnitsInRange(G,x,y,rd+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,rd)then
                if not IsUnitInGroup(u,ivv[data])and IsUnitAliveAndEnemy(u,(Je[(r8v[data])]))then
                    call GroupAddUnit(ivv[data],u)
                    call UnitDamageTargetBY((((Je[(r8v[data])]))),((u)),((((Unit_DOT[(r8v[data])]*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    if iev[data]then
                        call DestroyEffect(AddSpecialEffectTarget("ElunesFire.mdl",u,"origin"))
                    endif
                endif
            endif
        endloop
        if ixv[data]<=0 then
            call RecycleGroup(ivv[data])
            call Ltv(r9v[data])
            call fvv(data)
            set ivv[data]=null
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0CU_EM_A takes integer sc,real x,real y,real a,real d,boolean Qte returns nothing
    local integer data=D9v(iav)
    set r8v[data]=sc
    set ivv[data]=NewGroup()
    set r9v[data]=Lnv(x,y,a)
    call LMv(r9v[data],"Haunt_v2.mdl")
    call SetUnitFlyHeight(II[(r9v[data])],((GetRandomReal(52.5,67.5))*1.),0)
    call SetUnitScale(II[(r9v[data])],((.6)*1.),0,0)
    set iev[data]=Qte
    set irv[data]=50*Cos(a)
    set iiv[data]=50*Sin(a)
    set iov[data]=d
    set ixv[data]=24
    call Lfv(r9v[data],$FF,$FF,$FF,$CD)
endfunction

function HeroSkills_A0CU_Stop takes integer id returns nothing
    if cT[(id)]then
        set HeroSkills_A0CU_Last[HeroSkills_A0CU_Next[id]]=HeroSkills_A0CU_Last[id]
        set HeroSkills_A0CU_Next[HeroSkills_A0CU_Last[id]]=HeroSkills_A0CU_Next[id]
        call UnitRemoveAbilityBY((Je[(id)]),'Abun')
        call UnitRemoveAbilityBY((Je[(id)]),'A0CV')
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0CU',true)
        call SetUnitAnimation((Je[(id)]),"Stand")
        call Unit_Cancel_Counter(588,(id))
        set cT[(id)]=FALSE
        if HeroSkills_A0CU_Next[(0)]==0 then
            call frv(iOv)
        endif
    endif
endfunction

function HeroSkills_A0CU_Start takes nothing returns nothing
    local integer id=HeroSkills_A0CU_Next[(0)]
    local integer lv
    local real x
    local real y
    local real a
    local real m
    local real rM
    local real pwv
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set lv=GetUnitAbilityLevel((Je[(id)]),'A0CU')
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            set a=GetUnitFacing((Je[(id)]))*bj_DEGTORAD
            set m=GetUnitState((Je[(id)]),UNIT_STATE_MANA)
            set rM=(.002+.0003*lv)*m
            set HeroSkills_A0CU_Px[(id)]=x
            set HeroSkills_A0CU_Py[(id)]=y
            set pwv=GetRandomReal(-30,30)
            set HeroSkills_A0CU_Count[id]=HeroSkills_A0CU_Count[id]+1
            call HeroSkills_A0CU_EM_A(id,x+pwv*Cos(a+bj_PI/ 2),y+pwv*Sin(a+bj_PI/ 2),a+GetRandomReal(-.2375,.2375),HeroSkills_A0CU_bzbe[id]*(60*lv+(.4+.04*lv)*(GetHeroState3((Je[(id)]),true)+20*rM)),ModuloInteger(HeroSkills_A0CU_Count[id],8)==0)
            if HeroSkills_A0CU_Count[id]==1 then
                call SetUnitAnimation((Je[(id)]),"Stand Channel")
            elseif ModuloInteger(HeroSkills_A0CU_Count[id],40)==0 then
                call PlaySoundOnUnit_BJ((Cn),((80)*1.),((Je[(id)])))
                call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",(Je[(id)]),"weapon"))
            endif
            if ModuloInteger(HeroSkills_A0CU_Count[id],32)==0 then
                if HeroSkills_A0CU_Count[id]<$A0 then
                    call NewTextTagInTarget_B((Je[(id)]),I2S(R2I(5.-HeroSkills_A0CU_Count[id]/ 32.))+"Second remaining",7,$CD,$AF,$FF)
                else
                    call HeroSkills_A0CU_Stop(id)
                endif
            endif
        else
            call HeroSkills_A0CU_Stop(id)
        endif
        set id=HeroSkills_A0CU_Next[id]
    endloop
endfunction

function HeroSkills_A0CV_Start takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:413")
    call UnitRemoveAbility((Je[(id)]),'BNvc')
    call HeroSkills_A0CU_Stop(id)
endfunction

function HeroSkills_A0CV_Actions takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if cT[(id)]then
        call TimerStart(NewTimer(id),0,false,function HeroSkills_A0CV_Start)
    endif
    return false
endfunction

function HeroSkills_A0CU_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if not cT[(id)]then
        if HeroSkills_A0CU_Next[(0)]==0 then
            call fov(iOv)
        endif
        set HeroSkills_A0CU_Next[id]=HeroSkills_A0CU_Next[(0)]
        set HeroSkills_A0CU_Last[id]=0
        set HeroSkills_A0CU_Last[HeroSkills_A0CU_Next[(0)]]=id
        set HeroSkills_A0CU_Next[(0)]=id
        set cT[(id)]=true
        set HeroSkills_A0CU_Px[(id)]=GetUnitX((Je[(id)]))
        set HeroSkills_A0CU_Py[(id)]=GetUnitY((Je[(id)]))
        set HeroSkills_A0CU_Count[id]=0
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('bzbe')))then
            set HeroSkills_A0CU_bzbe[id]=1.5
        else
            set HeroSkills_A0CU_bzbe[id]=1.
        endif
        call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",HeroSkills_A0CU_Px[(id)],HeroSkills_A0CU_Py[(id)],1.5),$FF,$FF,$FF,125))
        call DestroyEffect(AddSpecialEffectTarget("Ghost Strike.mdl",(Je[(id)]),"origin"))
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0CU',false)
        call UnitAddAbilityBY((Je[(id)]),'Abun')
        call UnitAddAbilityBY((Je[(id)]),'A0CV')
        call Unit_App_Counter(589,(id))
    endif
endfunction

function HeroSkills_A0CU_Init takes nothing returns nothing
    call dEe()
    set iav=fxv(function HeroSkills_A0CU_EM_B)
    set iOv=fxv(function HeroSkills_A0CU_Start)
    call RegisterSpellEffectEvent('A0CU',function HeroSkills_A0CU_Actions)
    call RegisterSpellEffectEvent('A0CV',function HeroSkills_A0CV_Actions)
    call Luv('A0CU')
endfunction

function HeroSkills_A0CW_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0CW_Func]
    local unit u
    local integer i
    local real x
    local real y
    local real z
    local real a
    local real fA
    loop
        exitwhen 0==data
        if HeroSkills_A0CW_Count[data]>0 then
            set HeroSkills_A0CW_Count[data]=HeroSkills_A0CW_Count[data]-1
            call SetUnitVertexColor((Je[(HeroSkills_A0CW_DLTS[data])]),$FF,$FF,$FF,R2I(255.-255.*HeroSkills_A0CW_Count[data]/ 96))
            if ModuloInteger(HeroSkills_A0CW_Count[data],8)==0 then
                set x=(GetUnitX(II[(HeroSkills_A0CW_Eff[data])]))
                set y=(GetUnitY(II[(HeroSkills_A0CW_Eff[data])]))
                set z=12.5*HeroSkills_A0CW_Count[data]-$C8
                if ModuloInteger(HeroSkills_A0CW_Count[data],24)==0 then
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",x,y,2),$9B,0,$FF,125))
                endif
                if z>=0 then
                    set i=5
                    set fA=bj_DEGTORAD*GetUnitFacing((Je[(HeroSkills_A0CW_DLTS[data])]))
                    loop
                        set i=i-1
                        set a=fA+Lx*i/ 5
                        call Ltv(LNv("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",x+90*Cos(a),y+90*Sin(a),z,1.125))
                        call Ltv(LNv("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",x+145.62*Cos(a+Lx/ $A),y+145.62*Sin(a+Lx/ $A),z,1.125))
                        exitwhen i==0
                    endloop
                endif
                if HeroSkills_A0CW_Count[data]<1 then
                    call SetUnitNotSeckill((HeroSkills_A0CW_DLTS[data]),false)
                    call GroupEnumUnitsInRange(G,x,y,350+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,350)then
                            if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0CW_DLTS[data])]))then
                                call m1v(u,5)
                            endif
                        endif
                    endloop
                    call SetUnitInvulnerable((Je[(HeroSkills_A0CW_DLTS[data])]),false)
                    call PauseUnit((Je[(HeroSkills_A0CW_DLTS[data])]),false)
                    call zhv((GetPlayerId((GetOwningPlayer((Je[(HeroSkills_A0CW_DLTS[data])]))))),50,.5)
                    call Ltv(LAv("DarkWave.mdl",x,y,1.75))
                    call Ltv(LAv("ChaosExplosion.mdl",x,y,1.75))
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.25),$FF,$F,$FF,$FF))
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.25),$FF,$F,$9B,$FF))
                    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.25),$FF,$F,55,$FF))
                    call Ltv(HeroSkills_A0CW_Eff[data])
                endif
            endif
        elseif UnitAlive((Je[(HeroSkills_A0CW_DLTS[data])]))then
            set HeroSkills_A0CW_Count[data]=HeroSkills_A0CW_Count[data]-1
            if HeroSkills_A0CW_Count[data]<=-$780 then
                call SetWidgetLife((Je[(HeroSkills_A0CW_DLTS[data])]),GetWidgetLife((Je[(HeroSkills_A0CW_DLTS[data])]))-GetUnitState((Je[(HeroSkills_A0CW_DLTS[data])]),UNIT_STATE_MAX_LIFE)*.03125)
            endif
        else
            call Unit_Cancel_Counter(590,HeroSkills_A0CW_DLTS[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0CW_onAttack takes nothing returns nothing
    local unit h
    local real lYe
    if GetUnitAbilityLevel((mF),'B00S')==0 then
        set h=(Je[((Master[((pF_v))]))])
        if IsUnitInRange((mF),h,$7D0)then
            set lYe=.1*GetDamage()
            if UnitAlive(h)and IsUnitInRange((mF),h,800)then
                call SetWidgetLife(h,GetWidgetLife(h)+.25*lYe)
            endif
            call SetWidgetLife((mF),GetWidgetLife((mF))+lYe)
        endif
        set h=null
    endif
endfunction

function HeroSkills_A0CW_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A0CW_Func)
    local unit c=GetTriggerUnit()
    local unit u
    local integer lv=GetUnitAbilityLevel(c,'A0CW')
    local integer id
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    call GroupEnumUnitsOfPlayer(G2,GetOwningPlayer(c),null)
    loop
        set u=FirstOfGroup(G2)
        exitwhen u==null
        call GroupRemoveUnit(G2,u)
        set id=GetUnitTypeId(u)
        if id=='h011' or id=='h00K' or id=='h012' then
            call KillUnit(u)
        endif
    endloop
    if lv==1 then
        set HeroSkills_A0CW_DLTS[data]=(GetUnitUserData((CreateUnit(GetOwningPlayer(c),'h011',x,y,bj_RADTODEG*Atan2(y-GetUnitY(c),x-GetUnitX(c))))))
    else
        if lv==2 then
            set HeroSkills_A0CW_DLTS[data]=(GetUnitUserData((CreateUnit(GetOwningPlayer(c),'h00K',x,y,bj_RADTODEG*Atan2(y-GetUnitY(c),x-GetUnitX(c))))))
        else
            set HeroSkills_A0CW_DLTS[data]=(GetUnitUserData((CreateUnit(GetOwningPlayer(c),'h012',x,y,bj_RADTODEG*Atan2(y-GetUnitY(c),x-GetUnitX(c))))))
        endif
        call ModifyUnitAttackSpeed((HeroSkills_A0CW_DLTS[data]),25)
    endif
    call SummonedUnitSetMaster(HeroSkills_A0CW_DLTS[data],(GetUnitUserData((c))))
    call SetUnitNotSeckill((HeroSkills_A0CW_DLTS[data]),true)
    set HeroSkills_A0CW_Eff[data]=LAv("DarkPillar.mdl",x,y,2.5)
    set HeroSkills_A0CW_Count[data]=96
    call UnitAddDamagerTrig((HeroSkills_A0CW_DLTS[data]),function HeroSkills_A0CW_onAttack)
    call Lqv(Lfv(LAv("VoidDrown.mdl",x,y,1.5),$F,$F,$F,$CD),3)
    call SetUnitVertexColor((Je[(HeroSkills_A0CW_DLTS[data])]),$FF,$FF,$FF,0)
    call PauseUnit((Je[(HeroSkills_A0CW_DLTS[data])]),true)
    call SetUnitInvulnerable((Je[(HeroSkills_A0CW_DLTS[data])]),true)
    call Unit_App_Counter(591,HeroSkills_A0CW_DLTS[data])
    set c=null
endfunction

function SummonedUnitSkills_A0FQ_Start takes nothing returns nothing
    local integer data=J[SummonedUnitSkills_A0FQ_Func]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==data
        if SummonedUnitSkills_A0FQ_R[data]<40 then
            set x=(GetUnitX(II[(SummonedUnitSkills_A0FQ_Eff[data])]))+SummonedUnitSkills_A0FQ_R[data]*SummonedUnitSkills_A0FQ_X[data]/ 40.
            set y=(GetUnitY(II[(SummonedUnitSkills_A0FQ_Eff[data])]))+SummonedUnitSkills_A0FQ_R[data]*SummonedUnitSkills_A0FQ_Y[data]/ 40.
            set SummonedUnitSkills_A0FQ_R[data]=0
        else
            set x=(GetUnitX(II[(SummonedUnitSkills_A0FQ_Eff[data])]))+SummonedUnitSkills_A0FQ_X[data]
            set y=(GetUnitY(II[(SummonedUnitSkills_A0FQ_Eff[data])]))+SummonedUnitSkills_A0FQ_Y[data]
            set SummonedUnitSkills_A0FQ_R[data]=SummonedUnitSkills_A0FQ_R[data]-40
        endif
        call LKv(SummonedUnitSkills_A0FQ_Eff[data],x)
        call Llv(SummonedUnitSkills_A0FQ_Eff[data],y)
        set SummonedUnitSkills_A0FQ_Count[data]=SummonedUnitSkills_A0FQ_Count[data]+1
        call GroupEnumUnitsInRange(G,x,y,$E1+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$E1)then
                if not IsUnitInGroup(u,SummonedUnitSkills_A0FQ_Group[data])and IsUnitAliveAndEnemyNotAvul(u,(Je[(SummonedUnitSkills_A0FQ_Unit[data])]))then
                    call GroupAddUnit(SummonedUnitSkills_A0FQ_Group[data],u)
                    call m2v(u,2,'A500','B500',true)
                    if HeroSkills_A0CQ_IsTargetHasBuff(u)then
                        call UnitDamageTargetBY((((Je[(SummonedUnitSkills_A0FQ_Unit[data])]))),((u)),((((SummonedUnitSkills_A0FQ_Damage2[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((13.5)*1.))*1.),(("|c008080c0")))
                    else
                        call UnitDamageTargetBY((((Je[(SummonedUnitSkills_A0FQ_Unit[data])]))),((u)),((((SummonedUnitSkills_A0FQ_Damage1[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                    call DestroyEffect(AddSpecialEffectTarget("DeathBladeRegeneration.mdl",u,"origin"))
                endif
            endif
        endloop
        if ModuloInteger(SummonedUnitSkills_A0FQ_Count[data],4)==0 then
            call Ltv(Lfv(LAv("DarkWave.mdl",x,y,.5),$9B,$9B,$9B,$9B))
        endif
        if SummonedUnitSkills_A0FQ_R[data]<=0 then
            call GroupEnumUnitsInRange(G,x,y,425+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,425)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(SummonedUnitSkills_A0FQ_Unit[data])]))then
                        if not IsUnitInGroup(u,SummonedUnitSkills_A0FQ_Group[data])then
                            if HeroSkills_A0CQ_IsTargetHasBuff(u)then
                                call UnitDamageTargetBY((((Je[(SummonedUnitSkills_A0FQ_Unit[data])]))),((u)),((((SummonedUnitSkills_A0FQ_Damage2[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c008080c0")))
                            else
                                call UnitDamageTargetBY((((Je[(SummonedUnitSkills_A0FQ_Unit[data])]))),((u)),((((SummonedUnitSkills_A0FQ_Damage1[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        endif
                        call DestroyEffect(AddSpecialEffectTarget("DeathBladeRegeneration.mdl",u,"origin"))
                        call m2v(u,2,'A500','B500',true)
                    endif
                endif
            endloop
            call zhv((GetPlayerId((GetOwningPlayer((Je[(SummonedUnitSkills_A0FQ_Unit[data])]))))),40,.75)
            call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,.75),$FF,0,$FF,$CD))
            call Ltv(LAv("DarkNova.mdl",x,y,.75))
            call Ltv(LAv("DarkWave.mdl",x,y,1.25))
            call RecycleGroup(SummonedUnitSkills_A0FQ_Group[data])
            call Ltv(SummonedUnitSkills_A0FQ_Eff[data])
            call Unit_Cancel_Counter(592,SummonedUnitSkills_A0FQ_Unit[data])
            call fvv(data)
            set SummonedUnitSkills_A0FQ_Group[data]=null
        endif
        set data=K[data]
    endloop
endfunction

function SummonedUnitSkills_A0FQ_Actions takes nothing returns nothing
    local integer data=D9v(SummonedUnitSkills_A0FQ_Func)
    local unit c=GetTriggerUnit()
    local integer h=(Master[((GetUnitUserData((c))))])
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real dX=GetSpellTargetX()-x
    local real dY=GetSpellTargetY()-y
    local real a=Atan2(dY,dX)
    set SummonedUnitSkills_A0FQ_Unit[data]=(GetUnitUserData((c)))
    set SummonedUnitSkills_A0FQ_Group[data]=NewGroup()
    set SummonedUnitSkills_A0FQ_Count[data]=0
    set SummonedUnitSkills_A0FQ_R[data]=SquareRoot(dX*dX+dY*dY)
    set SummonedUnitSkills_A0FQ_X[data]=40*Cos(a)
    set SummonedUnitSkills_A0FQ_Y[data]=40*Sin(a)
    set SummonedUnitSkills_A0FQ_Damage1[data]=($FA0*GetUnitAbilityLevel((Je[(h)]),'A0CW')+30*GetHeroState3((Je[(h)]),true))*(1+Unit_MATK[h])
    set SummonedUnitSkills_A0FQ_Damage2[data]=(1.75+4.*Unit_MATK[h])*SummonedUnitSkills_A0FQ_Damage1[data]
    set SummonedUnitSkills_A0FQ_Eff[data]=Lnv(x+SummonedUnitSkills_A0FQ_X[data],y+SummonedUnitSkills_A0FQ_Y[data],a)
    call LMv(SummonedUnitSkills_A0FQ_Eff[data],"DeathWave.mdl")
    call SetUnitScale(II[(SummonedUnitSkills_A0FQ_Eff[data])],((.75)*1.),0,0)
    if SummonedUnitSkills_A0FQ_R[data]<350 then
        set SummonedUnitSkills_A0FQ_R[data]=350
    endif
    call SetWidgetLife(c,MaxR(.5,GetWidgetLife(c)-.25*GetUnitMaxLifeById((GetUnitUserData((c))))))
    call Unit_App_Counter(593,SummonedUnitSkills_A0FQ_Unit[data])
    set c=null
endfunction

function SummonedUnitSkills_A0FR_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:414")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0FT','BNic')
    call Unit_Cancel_Counter(594,(id))
    set SummonedUnitSkills_A0FR_Timer[id]=null
endfunction

function SummonedUnitSkills_A0FR_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local unit c=GetTriggerUnit()
    if SummonedUnitSkills_A0FR_Timer[id]==null then
        set SummonedUnitSkills_A0FR_Timer[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A0FT')
        call Unit_App_Counter(595,(id))
    endif
    call SetWidgetLife(c,MaxR(.5,GetWidgetLife(c)-.2*GetUnitMaxLifeById((GetUnitUserData((c))))))
    call TimerStart(SummonedUnitSkills_A0FR_Timer[id],45,false,function SummonedUnitSkills_A0FR_Expired)
    set c=null
endfunction

function SummonedUnitSkills_A0FS_Stop takes integer data returns nothing
    local unit u
    local real x
    local real y
    if SummonedUnitSkills_A0FS_Lig[data]!=null then
        if UnitAlive((Je[(SummonedUnitSkills_A0FS_Unit[data])]))then
            set x=GetUnitX((Je[(SummonedUnitSkills_A0FS_Unit[data])]))
            set y=GetUnitY((Je[(SummonedUnitSkills_A0FS_Unit[data])]))
            call GroupEnumUnitsInRange(G,x,y,500+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,500)then
                    if IsUnitAliveAndEnemy(u,(Je[(SummonedUnitSkills_A0FS_Hero[data])]))then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                        call m2v(u,2.5,'A500','B500',true)
                    endif
                endif
            endloop
            call DestroyEffect(AddSpecialEffect("DarkNova.mdl",x,y))
            call KillUnit((Je[(SummonedUnitSkills_A0FS_Unit[data])]))
        endif
        call SetUnitTimeScale((Je[(SummonedUnitSkills_A0FS_Unit[data])]),1)
        call DestroyLightning(SummonedUnitSkills_A0FS_Lig[data])
        call RecycleGroup(SummonedUnitSkills_A0FS_Group[data])
        call Unit_Cancel_Counter(596,SummonedUnitSkills_A0FS_Unit[data])
        call Unit_Cancel_Counter(597,SummonedUnitSkills_A0FS_Hero[data])
        call fvv(data)
        set iMv[SummonedUnitSkills_A0FS_Unit[data]]=0
        set SummonedUnitSkills_A0FS_Lig[data]=null
        set SummonedUnitSkills_A0FS_Group[data]=null
    endif
endfunction

function SummonedUnitSkills_A0FS_Loop takes nothing returns nothing
    local integer data=J[ipv]
    local unit u
    local integer i
    local real x
    local real y
    local real sX
    local real sY
    local real d
    local real m
    loop
        exitwhen 0==data
        if UnitAlive((Je[(SummonedUnitSkills_A0FS_Unit[data])]))and UnitAlive((Je[(SummonedUnitSkills_A0FS_Hero[data])]))then
            set x=GetUnitX((Je[(SummonedUnitSkills_A0FS_Unit[data])]))
            set y=GetUnitY((Je[(SummonedUnitSkills_A0FS_Unit[data])]))
            set sX=GetUnitX((Je[(SummonedUnitSkills_A0FS_Hero[data])]))-x
            set sY=GetUnitY((Je[(SummonedUnitSkills_A0FS_Hero[data])]))-y
            set m=GetUnitState((Je[(SummonedUnitSkills_A0FS_Hero[data])]),UNIT_STATE_MANA)-SummonedUnitSkills_A0FS_V[data]/ 32.
            if sX*sX+sY*sY<$225510 and m>0 then
                set SummonedUnitSkills_A0FS_Count[data]=SummonedUnitSkills_A0FS_Count[data]+1
                set sX=sX+x
                set sY=sY+y
                if SummonedUnitSkills_A0FS_Count[data]<=32 then
                    call SetLightningColor(SummonedUnitSkills_A0FS_Lig[data],1,1,1,.25+.75*SummonedUnitSkills_A0FS_Count[data]/ 32.)
                endif
                call SetUnitState((Je[(SummonedUnitSkills_A0FS_Hero[data])]),UNIT_STATE_MANA,m)
                call MoveLightningEx(SummonedUnitSkills_A0FS_Lig[data],true,x,y,GetPointZ(x,y)+GetUnitFlyHeight((Je[(SummonedUnitSkills_A0FS_Unit[data])]))+50,sX,sY,GetPointZ(sX,sY)+50)
                if ModuloInteger(SummonedUnitSkills_A0FS_Count[data],8)==0 then
                    set d=7*GetHeroState3((Je[(SummonedUnitSkills_A0FS_Hero[data])]),true)
                    call GroupEnumUnitsInRange(G,x,y,600+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,600)then
                            if not IsUnitInGroup(u,SummonedUnitSkills_A0FS_Group[data])and IsUnitAliveAndEnemy(u,(Je[(SummonedUnitSkills_A0FS_Unit[data])]))then
                                call GroupAddUnit(SummonedUnitSkills_A0FS_Group[data],u)
                                call DestroyEffect(AddSpecialEffectTarget("DarkLightning.mdl",u,"origin"))
                                if SummonedUnitSkills_A0FS_Count[data]>$A0 then
                                    call UnitDamageTargetBY((((Je[(SummonedUnitSkills_A0FS_Hero[data])]))),((u)),((((3*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c008080c0")))
                                    call DestroyEffect(AddSpecialEffectTarget("DarkLightningNova.mdl",u,"origin"))
                                else
                                    call UnitDamageTargetBY((((Je[(SummonedUnitSkills_A0FS_Hero[data])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                endif
                                exitwhen true
                            endif
                        endif
                    endloop
                    if ModuloInteger(SummonedUnitSkills_A0FS_Count[data],32)==0 then
                        set i=R2I(255.-10.*SummonedUnitSkills_A0FS_Count[data]/ 32.)
                        set iMv[SummonedUnitSkills_A0FS_Unit[data]]=iMv[SummonedUnitSkills_A0FS_Unit[data]]+1
                        if i<0 then
                            set i=0
                        endif
                        if SummonedUnitSkills_A0FS_Count[data]==$A0 then
                            set iMv[SummonedUnitSkills_A0FS_Unit[data]]=iMv[SummonedUnitSkills_A0FS_Unit[data]]+5
                            call NewTextTagInTarget_B((Je[(SummonedUnitSkills_A0FS_Unit[data])]),"Anyone I'm not letting .. ..",7,107,107,$C9)
                            call PlaySoundOnUnit_BJ((fn),(($96)*1.),((Je[(SummonedUnitSkills_A0FS_Unit[data])])))
                            call Lqv(LAv("Grin Curse.mdl",x,y,2.5),3)
                            call Ltv(LAv("DarkWave.mdl",x,y,1.5))
                            call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.5),$FF,0,$FF,$FF))
                        endif
                        if SummonedUnitSkills_A0FS_Count[data]<$A0 then
                            set SummonedUnitSkills_A0FS_V[data]=SummonedUnitSkills_A0FS_V[data]+400+5*SummonedUnitSkills_A0FS_Count[data]
                        else
                            set SummonedUnitSkills_A0FS_V[data]=SummonedUnitSkills_A0FS_V[data]+$3E8+12.5*SummonedUnitSkills_A0FS_Count[data]
                        endif
                        call GroupClear(SummonedUnitSkills_A0FS_Group[data])
                        call SetUnitScale((Je[(SummonedUnitSkills_A0FS_Unit[data])]),1+.025*SummonedUnitSkills_A0FS_Count[data]/ 32.,0,0)
                        call SetUnitVertexColor((Je[(SummonedUnitSkills_A0FS_Unit[data])]),i,i,i,$FF)
                        call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",(Je[(SummonedUnitSkills_A0FS_Unit[data])]),"hand right"))
                        call DestroyEffect(AddSpecialEffectTarget("DarkPortalCast.mdl",(Je[(SummonedUnitSkills_A0FS_Unit[data])]),"hand left"))
                    endif
                endif
            else
                call SummonedUnitSkills_A0FS_Stop(data)
            endif
        else
            call SummonedUnitSkills_A0FS_Stop(data)
        endif
        set data=K[data]
    endloop
    set u=null
endfunction

function SummonedUnitSkills_A0FS_onAttack takes nothing returns nothing
    local integer i=GetRandomInt(1,100)
    local unit u
    local real x
    local real y
    local real a
    if i<=5 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set a=GetRandomReal(0,Lx)
        call GroupEnumUnitsInRange(G,x,y,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)then
                if IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((5.75*GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                endif
            endif
        endloop
        call SetUnitX((mF),x+80*Cos(a))
        call SetUnitY((mF),y+80*Sin(a))
        call DestroyEffect(AddSpecialEffectTarget("BlackBlink.mdl",(mF),"chest"))
        call DestroyEffect(AddSpecialEffectTarget("WarpDarkCaster.mdl",(mF),"origin"))
        call Lqv(LAv("DarkLightningNova.mdl",x,y,1.5),1.5)
        call Ltv(LAv("ShadowAssault.mdl",x,y,1.5))
    elseif i<=30 then
        call DestroyEffect(AddSpecialEffectTarget("Evil Bomb.mdl",(MF),"chest"))
        call Ltv(LAv("DarkNova.mdl",GetUnitX((MF)),GetUnitY((MF)),.5))
    elseif i>95 then
        set x=GetUnitX((mF))
        set y=GetUnitY((mF))
        call GroupEnumUnitsInRange(G,x,y,275+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,275)then
                if IsUnitAliveAndEnemy(u,(mF))then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",u,"origin"))
                    call UnitDamageTargetBY((((mF))),((u)),((((3*GetDamage())*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                    call m1v(u,1.5)
                endif
            endif
        endloop
        call Ltv(LAv("OrbOfCorruption.mdl",x,y,2))
        call Ltv(LAv("Abilities\\Spells\\Other\\HowlOfTerror\\HowlCaster.mdl",x,y,1.25))
    endif
endfunction

function SummonedUnitSkills_A0FS_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit s=MV[GetPlayerId(GetOwningPlayer(c))]
    local integer data
    local real x
    local real y
    if Mev(c,s)<$3E8 then
        set data=D9v(ipv)
        set SummonedUnitSkills_A0FS_Unit[data]=(GetUnitUserData((c)))
        set SummonedUnitSkills_A0FS_Hero[data]=(GetUnitUserData((s)))
        set x=GetUnitX(c)
        set y=GetUnitY(c)
        set SummonedUnitSkills_A0FS_Lig[data]=AddLightningEx("DRAM",true,x,y,GetPointZ(x,y)+50,GetUnitX(s),GetUnitY(s),GetPointZ(GetUnitX(s),GetUnitY(s))+50)
        set SummonedUnitSkills_A0FS_Group[data]=NewGroup()
        set SummonedUnitSkills_A0FS_Count[data]=0
        set SummonedUnitSkills_A0FS_V[data]=500.
        call UnitAddAbility(c,'A0G0')
        call UnitRemoveAbility(c,'A0G0')
        call SetUnitAnimation(c,"Stand")
        call SetUnitTimeScale(c,20)
        call SetLightningColor(SummonedUnitSkills_A0FS_Lig[data],1,1,1,.25)
        call UnitAddPAttackTrig((SummonedUnitSkills_A0FS_Unit[data]),function SummonedUnitSkills_A0FS_onAttack)
        call zhv((GetPlayerId((GetOwningPlayer((Je[(SummonedUnitSkills_A0FS_Unit[data])]))))),50,.5)
        call Ltv(LAv("Desecrate.mdl",x,y,1.25))
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,.75),$FF,0,$FF,$FF))
        call Unit_App_Counter(598,SummonedUnitSkills_A0FS_Unit[data])
        call Unit_App_Counter(599,SummonedUnitSkills_A0FS_Hero[data])
    else
        call IssueUnitStop_DisplayText(c,"Must be close to the witch")
    endif
    call UnitRemoveAbility(c,'BNvc')
    set c=null
    set s=null
endfunction

function HeroSkills_A0CW_Init takes nothing returns nothing
    set HeroSkills_A0CW_Func=fxv(function HeroSkills_A0CW_Start)
    call RegisterSpellEffectEvent('A0CW',function HeroSkills_A0CW_Actions)
    call Luv('A0CW')
    set SummonedUnitSkills_A0FQ_Func=fxv(function SummonedUnitSkills_A0FQ_Start)
    call RegisterSpellEffectEvent('A0FQ',function SummonedUnitSkills_A0FQ_Actions)
    call Luv('A0FQ')
    call RegisterSpellEffectEvent('A0FR',function SummonedUnitSkills_A0FR_Actions)
    call Luv('A0FR')
    set ipv=fxv(function SummonedUnitSkills_A0FS_Loop)
    call RegisterSpellEffectEvent('A0FS',function SummonedUnitSkills_A0FS_Actions)
    call Luv('A0FS')
endfunction

function HeroSkills_A0CY_DeBuff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:415")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0FN','BNpa')
    call DeUnitMdef((id),HeroSkills_A0CY_DeBuff_Mdef[id])
    call Unit_Cancel_Counter(600,(id))
    set HeroSkills_A0CY_DeBuff_Timer[id]=null
endfunction

function HeroSkills_A0CY_DeBuff takes unit u,real r returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0CY_DeBuff_Timer[id]==null then
        set HeroSkills_A0CY_DeBuff_Timer[id]=NewTimer(id)
        set HeroSkills_A0CY_DeBuff_Mdef[id]=ModifyUnitMdef((id),r)
        call UnitAddAbilityBY((Je[(id)]),'A0FN')
        call Unit_App_Counter(601,(id))
    else
        call UnitMdefChange((id),HeroSkills_A0CY_DeBuff_Mdef[id],r)
    endif
    call TimerStart(HeroSkills_A0CY_DeBuff_Timer[id],4,false,function HeroSkills_A0CY_DeBuff_Expired)
endfunction

function HeroSkills_A0CY_Loop takes nothing returns nothing
    local integer data=J[HeroSkills_A0CY_Func]
    local unit u
    local integer i
    local real x
    local real y
    local real pX
    local real pY
    local real tX
    local real tY
    local real r
    local real a
    loop
        exitwhen 0==data
        set HeroSkills_A0CY_Time[data]=HeroSkills_A0CY_Time[data]-1
        set x=(GetUnitX(II[(HeroSkills_A0CY_Eff[data])]))
        set y=(GetUnitY(II[(HeroSkills_A0CY_Eff[data])]))
        if ModuloInteger(HeroSkills_A0CY_Time[data],2)==0 then
            set i=2
            loop
                set i=i-1
                set r=GetRandomReal(50,600)
                set a=GetRandomReal(i*bj_PI+bj_PI/ 12.,(i+1)*bj_PI-bj_PI/ 12.)
                set pX=x+r*Cos(a)
                set pY=y+r*Sin(a)
                call GroupEnumUnitsInRange(G,pX,pY,$80+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,pX,pY,$80)then
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0CY_Hero[data])]))then
                            call UnitDamageTargetBY((((Je[(HeroSkills_A0CY_Hero[data])]))),((u)),((((.25*HeroSkills_A0CY_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
                call Ltv(Lfv(LAv("ShadowAssault.mdl",pX,pY,1.125),$FF,$FF,$FF,$9B))
                exitwhen i==0
            endloop
            if ModuloInteger(HeroSkills_A0CY_Time[data],16)==0 then
                set r=-$C*((256.-HeroSkills_A0CY_Time[data])/ 256.)
                call GroupEnumUnitsInRange(G,x,y,650+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,650)then
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0CY_Hero[data])]))then
                            call UnitDamageTargetBY((((Je[(HeroSkills_A0CY_Hero[data])]))),((u)),((((Unit_DOT[(HeroSkills_A0CY_Hero[data])]*HeroSkills_A0CY_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call HeroSkills_A0CY_DeBuff(u,r)
                        endif
                    endif
                endloop
                if HeroSkills_A0CY_Time[data]>0 and ModuloInteger(HeroSkills_A0CY_Time[data],32)==0 then
                    set i=5
                    set HeroSkills_A0CY_Bool[data]=not HeroSkills_A0CY_Bool[data]
                    if HeroSkills_A0CY_Bool[data]then
                        set r=.1*Lx
                    else
                        set r=0
                    endif
                    loop
                        set i=i-1
                        set a=r+i*Lx/ 5
                        set pX=x+650*Cos(a)
                        set pY=y+650*Sin(a)
                        set tX=x+650*Cos(a+.4*Lx)
                        set tY=y+650*Sin(a+.4*Lx)
                        call Lqv(LNv("Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl",pX,pY,40,1.25),.25)
                        call PTv("MBUR",pX,pY,0,tX,tY,0,.325,1,.25)
                        exitwhen i==0
                    endloop
                endif
            endif
        endif
        if HeroSkills_A0CY_Time[data]<1 then
            set i=36
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,HeroSkills_A0CY_Vessel[data],i)))
                exitwhen i==0
            endloop
            call Unit_Cancel_Counter(602,HeroSkills_A0CY_Hero[data])
            call free(HeroSkills_A0CY_Vessel[data])
            call Ltv(HeroSkills_A0CY_Eff[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0CY_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A0CY_Func)
    local integer i=36
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real a
    set HeroSkills_A0CY_Hero[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0CY_Vessel[data]=malloc()
    set HeroSkills_A0CY_Eff[data]=LAv("DarkPillar.mdl",x,y,5)
    set HeroSkills_A0CY_Time[data]=256
    set HeroSkills_A0CY_Damage[data]=30*GetHeroState3((Je[(HeroSkills_A0CY_Hero[data])]),true)
    loop
        set i=i-1
        set a=Lx*i/ 36
        call SaveInteger(BYHT,HeroSkills_A0CY_Vessel[data],i,Lfv(LAv("Doodads\\Cinematic\\GlowingRunes\\GlowingRunes7.mdl",x+650*Cos(a),y+650*Sin(a),1.25),$FF,125,$FF,$FF))
        exitwhen i==0
    endloop
    call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,2.5),$FF,0,$FF,$FF))
    call Unit_App_Counter(603,HeroSkills_A0CY_Hero[data])
endfunction

function HeroSkills_A0CY_Init takes nothing returns nothing
    set HeroSkills_A0CY_Func=fxv(function HeroSkills_A0CY_Loop)
    call RegisterSpellEffectEvent('A0CY',function HeroSkills_A0CY_Actions)
    call Luv('A0CY')
endfunction

function Hero_H00J_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H00J',function Hero_EnterWorld_H00J)
    call HeroSkills_A0CO_Init()
    call HeroSkills_A0CR_Init()
    call HeroSkills_A0CX_Init()
    call HeroSkills_A0CU_Init()
    call HeroSkills_A0CW_Init()
    call HeroSkills_A0CY_Init()
endfunction

function Elemental_Force_ChargeUP takes integer id,integer i returns integer
    local integer fre=Elemental_Force_Charge[id]+i
    if i<0 and GetUnitAbilityLevel((Je[(id)]),'B03Q')>0 then
        set i=0
        call UnitRemoveAbility((Je[(id)]),'B03Q')
    elseif fre>Elemental_Force_Max_Charge[id]then
        set i=Elemental_Force_Max_Charge[id]-Elemental_Force_Charge[id]
    elseif fre<0 then
        set i=-Elemental_Force_Charge[id]
    endif
    set Elemental_Force_Charge[id]=Elemental_Force_Charge[id]+i
    if Elemental_Force_Charge[id]==0 then
        if Elemental_Force_Model[id]!=0 then
            call Ltv(Elemental_Force_Model[id])
            set Elemental_Force_Model[id]=0
        endif
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0K0','B03R')
    else
        if i>0 then
            if Elemental_Force_Model[id]==0 then
                set Elemental_Force_Model[id]=LAv("Healing Surge.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),.75+.25*Elemental_Force_Charge[id])
                call UnitAddAbilityBY((Je[(id)]),'A0K0')
            else
                call SetUnitScale(II[(Elemental_Force_Model[id])],((.75+.25*Elemental_Force_Charge[id])*1.),0,0)
            endif
            if Elemental_Force_Intensify[id]>0 then
                call NewTextTagInTarget_B((Je[(id)]),"|c00f89898"+I2S(Elemental_Force_Charge[id])+" Charge|r",8+1.2*Elemental_Force_Charge[id],$FF,$FF,$FF)
            else
                call NewTextTagInTarget_B((Je[(id)]),"|c00cbef76"+I2S(Elemental_Force_Charge[id])+" Charge|r",8+1.1*Elemental_Force_Charge[id],$FF,$FF,$FF)
            endif
        endif
        call SetUnitAbilityLevelBY((Je[(id)]),'A0K0',Elemental_Force_Charge[id])
    endif
    call UnitAdefChange((id),Elemental_Force_Adef[id],5*Elemental_Force_Charge[id])
    return-i
endfunction

function Elemental_Force_Stop takes integer id returns nothing
    if Elemental_Force_Use[id]then
        set Elemental_Force_Last[Elemental_Force_Next[id]]=Elemental_Force_Last[id]
        set Elemental_Force_Next[Elemental_Force_Last[id]]=Elemental_Force_Next[id]
        set Elemental_Force_Use[id]=false
        if Elemental_Force_Next[(0)]==0 then
            call frv(Elemental_Force_Func)
        endif
        call Unit_Cancel_Counter(604,(id))
    endif
endfunction

function Elemental_Force_Loop takes nothing returns nothing
    local integer id=Elemental_Force_Next[(0)]
    local real fve
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            if Elemental_Force_CombatTime[id]>0 then
                set Elemental_Force_CombatTime[id]=Elemental_Force_CombatTime[id]-1
                if GetUnitAbilityLevel((Je[(id)]),'A0K3')>0 and Elemental_Force_CombatTime[id]==0 then
                    call NewTextTagInTarget_B((Je[(id)]),"|c00defecfOut of combat|r",9,$FF,$FF,$FF)
                endif
            endif
            if Elemental_Force_Charge[id]==Elemental_Force_Max_Charge[id]then
                set Elemental_Force_ChargeTime[id]=0
                if Elemental_Force_Intensify[id]>0 then
                    set Elemental_Force_Intensify[id]=Elemental_Force_Intensify[id]-1
                    if Elemental_Force_Intensify[id]<1 then
                        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KI','B03X')
                    endif
                endif
            elseif Elemental_Force_Intensify[id]>0 then
                set Elemental_Force_Intensify[id]=Elemental_Force_Intensify[id]-1
                set Elemental_Force_ChargeTime[id]=0
                if Elemental_Force_Intensify[id]<1 then
                    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KI','B03X')
                elseif ModuloInteger(Elemental_Force_Intensify[id]-1,32)==0 then
                    call Elemental_Force_ChargeUP(id,1)
                    call Ltv(Lfv(LAv("Energy_Release.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1),$FF,0,0,$FF))
                    call DestroyEffect(AddSpecialEffectTarget("ExplosiveShot.mdl",(Je[(id)]),"chest"))
                endif
            else
                set Elemental_Force_ChargeTime[id]=Elemental_Force_ChargeTime[id]+1
                if Elemental_Force_ChargeTime[id]>319 then
                    set Elemental_Force_ChargeTime[id]=0
                    call Elemental_Force_ChargeUP(id,1)
                    call Ltv(Lfv(LAv("NatureExplosion.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),.75),0,0,0,105))
                endif
            endif
            if Elemental_Force_Model[id]!=0 then
                call LKv(Elemental_Force_Model[id],GetUnitX((Je[(id)])))
                call Llv(Elemental_Force_Model[id],GetUnitY((Je[(id)])))
            endif
            if GetUnitAbilityLevel((Je[(id)]),'A0K3')>0 then
                set fve=(.0025+.0005*Elemental_Force_Charge[id])*GetUnitMaxLifeById((id))
                call ModifyUnitHpRegen((id),fve-Elemental_Force_HpRegen[id])
                set Elemental_Force_HpRegen[id]=fve
            endif
        else
            set Elemental_Force_ChargeTime[id]=0
            set Elemental_Force_CombatTime[id]=0
            if Elemental_Force_Intensify[id]>0 then
                set Elemental_Force_Intensify[id]=0
                call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KI','B03X')
            endif
            if Elemental_Force_Charge[id]!=0 then
                call Elemental_Force_ChargeUP(id,-Elemental_Force_Charge[id])
            endif
            if GetUnitTypeId((Je[(id)]))==0 then
                call DeUnitAdef((id),Elemental_Force_Adef[id])
                call Elemental_Force_Stop(id)
            endif
        endif
        set id=Elemental_Force_Next[id]
    endloop
endfunction

function Elemental_Force_Open takes integer id returns integer
    if not Elemental_Force_Use[id]then
        if Elemental_Force_Next[(0)]==0 then
            if Elemental_Force_Func==0 then
                set Elemental_Force_Func=fxv(function Elemental_Force_Loop)
            endif
            call fov(Elemental_Force_Func)
        endif
        set Elemental_Force_Next[id]=Elemental_Force_Next[(0)]
        set Elemental_Force_Last[Elemental_Force_Next[(0)]]=id
        set Elemental_Force_Next[(0)]=id
        set Elemental_Force_Last[id]=0
        set Elemental_Force_Use[id]=true
        call Unit_App_Counter(605,(id))
    endif
    return id
endfunction

function Elemental_Force_KilligUnit_func001 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:416")
    call Elemental_Force_ChargeUP(id,Elemental_Force_Kill_Value[id])
    set Elemental_Force_Kill_Timer[id]=null
endfunction

function Elemental_Force_KilligUnit takes nothing returns nothing
    local integer id=(GetUnitUserData((GetKillingUnit())))
    if Elemental_Force_Charge[id]<Elemental_Force_Max_Charge[id]and GetRandomInt(1,5)==1 then
        if UnitAlive((Je[(id)]))then
            if Elemental_Force_Kill_Timer[id]==null then
                set Elemental_Force_Kill_Timer[id]=NewTimer(id)
                set Elemental_Force_Kill_Value[id]=1
                call TimerStart(Elemental_Force_Kill_Timer[id],0,false,function Elemental_Force_KilligUnit_func001)
            else
                set Elemental_Force_Kill_Value[id]=Elemental_Force_Kill_Value[id]+1
            endif
            call DestroyEffect(AddSpecialEffectTarget("HolyBlast.mdl",GetTriggerUnit(),"chest"))
        else
            if Elemental_Force_Kill_Timer[id]!=null then
                call ReleaseTimer(Elemental_Force_Kill_Timer[id],"[TimerUtils]Error:417")
                set Elemental_Force_Kill_Timer[id]=null
            endif
        endif
    endif
endfunction

function Elemental_Force_Shield takes nothing returns nothing
    set Elemental_Force_CombatTime[((pF))]=384
endfunction

function Elemental_Force_onAttackCrit takes nothing returns nothing
    set Elemental_Force_Attack_Bool[((pF_v))]=GetUnitAbilityLevel((MF),'A0KB')>0
endfunction

function Elemental_Force_onAttack takes nothing returns nothing
    local integer id
    local real d
    if GetUnitAbilityLevel((MF),'A0KB')>0 then
        set id=(pF_v)
        set d=(2.5+.5*GetUnitAbilityLevel((mF),'A0K9'))*GetHeroState1((mF),true)
        if Elemental_Force_Attack_Bool[id]then
            set Elemental_Force_Attack_Bool[id]=false
            call DestroyEffect(AddSpecialEffectTarget("s_HolymagicProjectile.mdl",(MF),"chest"))
            call UnitDamageTargetBY((((mF))),(((MF))),(((((1.+(Unit_C_DMG[(id)]))*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),((((9)*1.))*1.),(("|c00f0e388")))
        else
            call UnitDamageTargetBY((((mF))),(((MF))),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_MAGIC)),((((7.5)*1.))*1.),(("|c00f0e388")))
        endif
        call DestroyEffect(AddSpecialEffectTarget("ZLightArrowImpact.mdl",(MF),"chest"))
    endif
endfunction

function Hero_EnterWorld_Hblm takes nothing returns nothing
    local integer id=Elemental_Force_Open(le)
    set Elemental_Force_Charge[id]=0
    set Elemental_Force_Max_Charge[id]=1
    set Elemental_Force_CombatTime[id]=0
    set Elemental_Force_Adef[id]=ModifyUnitAdef((id),0)
    set Elemental_Force_HpRegen[id]=0
    call ModifyUnitCrit((id),12.5)
    call ModifyUnitCritDamage((id),25)
    call HeroAddCritTrig((id),function Elemental_Force_onAttackCrit)
    call HeroAddKillTrig((id),function Elemental_Force_KilligUnit)
    call UnitAddPAttackTrig((id),function Elemental_Force_onAttack)
    call UnitAddShieldTrig((id),function Elemental_Force_Shield)
endfunction

function HeroSkills_A0JZ_Init takes nothing returns nothing
    call RegisterHeroInitEvent('Hblm',function Hero_EnterWorld_Hblm)
endfunction

function HeroSkills_A0K9_DeBuff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:418")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KB','B03T')
    call DeUnitMdef((id),HeroSkills_A0K9_DeBuff_Mdef[id])
    call Unit_Cancel_Counter(606,(id))
    set HeroSkills_A0K9_DeBuff_Timer[id]=null
endfunction

function HeroSkills_A0K9_DeBuff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0K9_DeBuff_Timer[id]==null then
        set HeroSkills_A0K9_DeBuff_Timer[id]=NewTimer(id)
        set HeroSkills_A0K9_DeBuff_Mdef[id]=ModifyUnitMdef((id),-8)
        call UnitAddAbilityBY((Je[(id)]),'A0KB')
        call Unit_App_Counter(607,(id))
    endif
    call TimerStart(HeroSkills_A0K9_DeBuff_Timer[id],8,false,function HeroSkills_A0K9_DeBuff_End)
endfunction

function HeroSkills_A0K9_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0K9_Func]
    local unit u
    loop
        exitwhen 0==data
        if UnitAlive((Je[(HeroSkills_A0K9_Hero[data])]))then
            set HeroSkills_A0K9_Time[data]=HeroSkills_A0K9_Time[data]-1
            if HeroSkills_A0K9_Time[data]>7 then
                set HeroSkills_A0K9_X1[data]=HeroSkills_A0K9_X1[data]+HeroSkills_A0K9_X2[data]
                set HeroSkills_A0K9_Y1[data]=HeroSkills_A0K9_Y1[data]+HeroSkills_A0K9_Y2[data]
                call GroupEnumUnitsInRange(G,HeroSkills_A0K9_X1[data],HeroSkills_A0K9_Y1[data],$A4+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,HeroSkills_A0K9_X1[data],HeroSkills_A0K9_Y1[data],$A4)then
                        if not IsUnitInGroup(u,HeroSkills_A0K9_Group[data])and IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0K9_Hero[data])]))then
                            if HeroSkills_A0K9_Bool[data]then
                                call HeroSkills_A0K9_DeBuff(u)
                                call UnitDamageTargetBY((((Je[(HeroSkills_A0K9_Hero[data])]))),((u)),((((1.5*HeroSkills_A0K9_D[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((9)*1.))*1.),(("|c00f0e388")))
                                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",u,"chest"))
                            else
                                call UnitDamageTargetBY((((Je[(HeroSkills_A0K9_Hero[data])]))),((u)),((((HeroSkills_A0K9_D[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"origin"))
                            call GroupAddUnit(HeroSkills_A0K9_Group[data],u)
                        endif
                    endif
                endloop
                call Ltv(Lfv(LIv("Epicenter.mdl",HeroSkills_A0K9_X1[data],HeroSkills_A0K9_Y1[data],50,.5+.0375*(HeroSkills_A0K9_Time[data]-16.),HeroSkills_A0K9_A[data],0),125,125,125,125))
            endif
        else
            set HeroSkills_A0K9_Time[data]=0
        endif
        if HeroSkills_A0K9_Time[data]<1 then
            call SetUnitTimeScale((Je[(HeroSkills_A0K9_Hero[data])]),1)
            call PauseUnit((Je[(HeroSkills_A0K9_Hero[data])]),false)
            call RecycleGroup(HeroSkills_A0K9_Group[data])
            call Unit_Cancel_Counter(608,HeroSkills_A0K9_Hero[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0K9_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A0K9_Func)
    local integer lv
    set HeroSkills_A0K9_Hero[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0K9_Group[data]=NewGroup()
    set HeroSkills_A0K9_Bool[data]=Elemental_Force_ChargeUP((HeroSkills_A0K9_Hero[data]),-1)>0
    set HeroSkills_A0K9_Time[data]=$D
    set HeroSkills_A0K9_X1[data]=GetUnitX((Je[(HeroSkills_A0K9_Hero[data])]))
    set HeroSkills_A0K9_Y1[data]=GetUnitY((Je[(HeroSkills_A0K9_Hero[data])]))
    set lv=GetUnitAbilityLevel((Je[(HeroSkills_A0K9_Hero[data])]),'A0K9')
    set HeroSkills_A0K9_A[data]=Atan2(GetSpellTargetY()-HeroSkills_A0K9_Y1[data],GetSpellTargetX()-HeroSkills_A0K9_X1[data])
    set HeroSkills_A0K9_X2[data]=90*Cos(HeroSkills_A0K9_A[data])
    set HeroSkills_A0K9_Y2[data]=90*Sin(HeroSkills_A0K9_A[data])
    set HeroSkills_A0K9_D[data]=$FA*lv+($A+1.5*lv)*GetHeroState1((Je[(HeroSkills_A0K9_Hero[data])]),true)
    if HeroSkills_A0K9_Bool[data]then
        call Ltv(Lfv(LIv("LightNova.mdl",HeroSkills_A0K9_X1[data],HeroSkills_A0K9_Y1[data],75,.425,HeroSkills_A0K9_A[data],0),0,0,0,$FF))
    endif
    call PauseUnit((Je[(HeroSkills_A0K9_Hero[data])]),true)
    call SetUnitTimeScale((Je[(HeroSkills_A0K9_Hero[data])]),2)
    call SetUnitAnimation((Je[(HeroSkills_A0K9_Hero[data])]),"Attack Spell")
    call QueueUnitAnimation((Je[(HeroSkills_A0K9_Hero[data])]),"Stand")
    call Ltv(Lfv(LIv("Enchantment.mdl",HeroSkills_A0K9_X1[data],HeroSkills_A0K9_Y1[data],0,.75,HeroSkills_A0K9_A[data],0),0,0,0,$FF))
    call Ltv(Lfv(LIv("HolyStomp.mdl",HeroSkills_A0K9_X1[data],HeroSkills_A0K9_Y1[data],37.5,.75,HeroSkills_A0K9_A[data]+bj_PI,$F),55,55,55,$9B))
    call Unit_App_Counter(609,HeroSkills_A0K9_Hero[data])
endfunction

function HeroSkills_A0K9_Init takes nothing returns nothing
    set HeroSkills_A0K9_Func=fxv(function HeroSkills_A0K9_Start)
    call RegisterSpellEffectEvent('A0K9',function HeroSkills_A0K9_Actions)
    call Luv('A0K9')
endfunction

function HeroSkills_A0K6_Buff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:419")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KF','B03U')
    call DeUnitMdef((id),HeroSkills_A0K6_Buff_Mdef[id])
    call Unit_Cancel_Counter(610,(id))
    set HeroSkills_A0K6_Buff_Timer[id]=null
endfunction

function HeroSkills_A0K6_Buff_Add takes unit u,boolean b returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0K6_Buff_Timer[id]==null then
        set HeroSkills_A0K6_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0K6_Buff_Mdef[id]=ModifyUnitMdef((id),40)
        call UnitAddAbilityBY((Je[(id)]),'A0KF')
        call Unit_App_Counter(611,(id))
    endif
    if b then
        call TimerStart(HeroSkills_A0K6_Buff_Timer[id],8,false,function HeroSkills_A0K6_Buff_Expired)
    else
        call TimerStart(HeroSkills_A0K6_Buff_Timer[id],4,false,function HeroSkills_A0K6_Buff_Expired)
    endif
endfunction

function HeroSkills_A0K6_End takes integer id returns nothing
    call SetUnitTimeScale((Je[(id)]),1)
    call PauseUnit((Je[(id)]),false)
    call Unit_Cancel_Counter(612,(id))
endfunction

function HeroSkills_A0K6_Start_C takes nothing returns nothing
    call HeroSkills_A0K6_End((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:420")))
endfunction

function HeroSkills_A0K6_Start_B takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:421")
    local unit u
    local real x
    local real y
    local real d
    if UnitAlive((Je[(id)]))then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set d=($A+2*GetUnitAbilityLevel((Je[(id)]),'A0K6'))*GetHeroState1((Je[(id)]),true)
        call GroupEnumUnitsInRange(G,x,y,375+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,375)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationTarget.mdl",u,"chest"))
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c00f0e388")))
                    call m2v(u,1.5,'A500','B500',true)
                endif
            endif
        endloop
        call Ltv(Lfv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",x,y,3),$FF,$FF,0,$9B))
        call Ltv(LAv("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x,y,3.5))
        call Ltv(Lfv(LAv("LightNova.mdl",x,y,.5),$FF,$FF,0,$9B))
    endif
    call HeroSkills_A0K6_End(id)
endfunction

function HeroSkills_A0K6_Start takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((t))))
    local unit u
    local integer lv
    local real x
    local real y
    local real d
    if UnitAlive((Je[(id)]))then
        set lv=GetUnitAbilityLevel((Je[(id)]),'A0K6')
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set d=550*lv+(20+1.5*lv)*GetHeroState1((Je[(id)]),true)
        if HeroSkills_A0K6_Bool[id]then
            call SetUnitAnimation((Je[(id)]),"Attack Slam")
            call QueueUnitAnimation((Je[(id)]),"Stand")
            call TimerStart(t,.25,false,function HeroSkills_A0K6_Start_B)
        else
            call TimerStart(t,.125,false,function HeroSkills_A0K6_Start_C)
        endif
        call GroupEnumUnitsInRange(G,x,y,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call Ltv(Lfv(LNv("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",GetUnitX(u),GetUnitY(u),12.5,1.5),$FF,$FF,0,$FF))
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call Lqv(Lfv(LAv("LightStrikeArray.mdl",x,y,1.5),55,55,55,55),1.25)
        call Ltv(LAv("Abilities\\Spells\\Items\\StaffOfPurification\\PurificationCaster.mdl",x,y,1.5))
    else
        call ReleaseTimer(t,"[TimerUtils]Error:422")
        call HeroSkills_A0K6_End(id)
        set t=null
    endif
endfunction

function HeroSkills_A0K6_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0K6_Bool[id]=Elemental_Force_ChargeUP((id),-1)>0
    call PauseUnit((Je[(id)]),true)
    call SetUnitTimeScale((Je[(id)]),2.5)
    call SetUnitAnimation((Je[(id)]),"Attack Cinematic")
    call TimerStart(NewTimer(id),.3,false,function HeroSkills_A0K6_Start)
    call HeroSkills_A0K6_Buff_Add((Je[(id)]),HeroSkills_A0K6_Bool[id])
    call Unit_App_Counter(613,(id))
    if not HeroSkills_A0K6_Bool[id]then
        call QueueUnitAnimation((Je[(id)]),"Stand")
    endif
endfunction

function HeroSkills_A0K6_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0K6',function HeroSkills_A0K6_Actions)
    call Luv('A0K6')
endfunction

function HeroSkills_A0K4_Actions takes nothing returns nothing
    local integer c=(GetUnitUserData((GetTriggerUnit())))
    local unit u=GetSpellTargetUnit()
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A0K4')
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real a=Atan2(y-GetUnitY((Je[(c)])),x-GetUnitX((Je[(c)])))
    local real d=UnitAttack[(c)]*(2.5+.5*lv)+(25+2.5*lv)*GetHeroState1((Je[(c)]),true)
    if Elemental_Force_ChargeUP((c),-1)>0 then
        set d=d+($F+1.5*lv)*GetHeroState1((Je[(c)]),true)
        call BrokenShield_A(u)
        if GetRandomReal(1,100)<1.5*(UnitCrit[(c)])then
            call UnitDamageTargetBY((((Je[(c)]))),((u)),(((((1.+(Unit_C_DMG[(c)]))*d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((18+2*(Unit_C_DMG[(c)]))*1.))*1.),(("|c0086ea64")))
            call zKv((Kc[(c)]),105,$FF,105,.3)
            call zhv((Kc[(c)]),75,.5)
        else
            call UnitDamageTargetBY((((Je[(c)]))),((u)),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c0086ea64")))
            call zhv((Kc[(c)]),60,.5)
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"chest"))
        call UnitAppBuff((GetUnitUserData((u))),'A0KG',$D006B)
        call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.5),0,0,0,$FF))
        call Ltv(Lfv(LAv("CenarionFury.mdl",x,y,1.625),0,0,0,$FF))
    else
        if GetRandomReal(1,100)<(UnitCrit[(c)])then
            call UnitDamageTargetBY((((Je[(c)]))),((u)),(((((1.+(Unit_C_DMG[(c)]))*d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($E)*1.))*1.),(("|c0086ea64")))
            call zKv((Kc[(c)]),105,$FF,105,.3)
            call zhv((Kc[(c)]),50,.5)
        else
            call UnitDamageTargetBY((((Je[(c)]))),((u)),((((d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call zhv((Kc[(c)]),40,.5)
        endif
        call Ltv(Lfv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,1.25),0,0,0,$FF))
        call Ltv(Lfv(LAv("CenarionFury.mdl",x,y,1.25),0,0,0,$FF))
    endif
    call m1v(u,1)
    call Ltv(Lfv(LIv("HolyStomp.mdl",x,y,50,1.25,a,$F),$F,55,$F,$FF))
    call Ltv(Lfv(LAv("Epicenter.mdl",x,y,1.25),30,$96,30,$FF))
    call PlaySoundOnUnit_BJ((Ln),(($7F)*1.),(u))
    set u=null
endfunction

function HeroSkills_A0K4_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0K4',function HeroSkills_A0K4_Actions)
    call Luv('A0K4')
endfunction

function HeroSkills_A0K3_Stop takes integer id returns nothing
    if HeroSkills_A0K3_Use[id]then
        set HeroSkills_A0K3_Last[HeroSkills_A0K3_Next[id]]=HeroSkills_A0K3_Last[id]
        set HeroSkills_A0K3_Next[HeroSkills_A0K3_Last[id]]=HeroSkills_A0K3_Next[id]
        set HeroSkills_A0K3_Use[id]=false
        if HeroSkills_A0K3_Next[(0)]==0 then
            call frv(HeroSkills_A0K3_Func)
        endif
        call Unit_Cancel_Counter(614,(id))
    endif
endfunction

function HeroSkills_A0K3_Loop takes nothing returns nothing
    local integer id=HeroSkills_A0K3_Next[(0)]
    local integer fx
    local real a
    local real zA
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set HeroSkills_A0K3_Count[id]=HeroSkills_A0K3_Count[id]-1
            if HeroSkills_A0K3_Bool[id]and ModuloInteger(HeroSkills_A0K3_Count[id],8)==0 then
                set a=GetRandomReal(0,Lx)
                set zA=GetRandomReal(0,Lx/ 5.)
                set fx=CreateBarrageTypeC(GetUnitX((Je[(id)]))+$96*Cos(a)*Sin(zA),GetUnitY((Je[(id)]))+$96*Sin(a)*Sin(zA),GetUnitFlyHeight((Je[(id)]))+60+$96*Cos(zA),(Je[(id)]))
                set s__barrage_speed[fx]=5
                set s__barrage_acceleration[fx]=1
                call LMv(s__barrage_model[fx],"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
                call SetUnitScale(II[(s__barrage_model[fx])],((.75)*1.),0,0)
                call Lfv(s__barrage_model[fx],105,$FF,105,$9B)
                call dAe(fx)
            endif
            if ModuloInteger(HeroSkills_A0K3_Count[id],32)==0 then
                call UnitCureTaret((Je[(id)]),(Je[(id)]),HeroSkills_A0K3_CureV[id])
            endif
        else
            set HeroSkills_A0K3_Count[id]=0
        endif
        if HeroSkills_A0K3_Count[id]<1 then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0K1','B03S')
            call ModifyUnitMagicDamage((id),-HeroSkills_A0K3_MDG[id])
            call HeroSkills_A0K3_Stop(id)
        endif
        set id=HeroSkills_A0K3_Next[id]
    endloop
endfunction

function HeroSkills_A0K3_Open takes integer id returns boolean
    if not HeroSkills_A0K3_Use[id]then
        if HeroSkills_A0K3_Next[(0)]==0 then
            if HeroSkills_A0K3_Func==0 then
                set HeroSkills_A0K3_Func=fxv(function HeroSkills_A0K3_Loop)
            endif
            call fov(HeroSkills_A0K3_Func)
        endif
        set HeroSkills_A0K3_Next[id]=HeroSkills_A0K3_Next[(0)]
        set HeroSkills_A0K3_Last[HeroSkills_A0K3_Next[(0)]]=id
        set HeroSkills_A0K3_Next[(0)]=id
        set HeroSkills_A0K3_Last[id]=0
        set HeroSkills_A0K3_Use[id]=true
        call Unit_App_Counter(615,(id))
        return TRUE
    endif
    return FALSE
endfunction

function HeroSkills_A0K3_Actions takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0K3')
    local real nS=$A+lv
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    set HeroSkills_A0K3_Bool[id]=Elemental_Force_CombatTime[(id)]==0
    set HeroSkills_A0K3_Count[id]=320
    if lv>5 then
        set HeroSkills_A0K3_CureV[id]=$C8*lv+.01*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)
    else
        set HeroSkills_A0K3_CureV[id]=$96*lv+.01*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)
    endif
    if HeroSkills_A0K3_Bool[id]then
        set HeroSkills_A0K3_CureV[id]=2*HeroSkills_A0K3_CureV[id]
        set nS=nS+5.
        call Ltv(LAv("NatureWave.mdl",x,y,1.25))
    endif
    if HeroSkills_A0K3_Open(id)then
        set HeroSkills_A0K3_MDG[id]=nS
        call ModifyUnitMagicDamage((id),HeroSkills_A0K3_MDG[id])
        call UnitAddAbilityBY((Je[(id)]),'A0K1')
    else
        call ModifyUnitMagicDamage((id),nS-HeroSkills_A0K3_MDG[id])
        set HeroSkills_A0K3_MDG[id]=nS
    endif
    call Elemental_Force_ChargeUP((id),1+(lv-1)/ 4)
    call Ltv(Lfv(LAv("ForestBolt.mdl",x,y,.875),$9B,$9B,$9B,$9B))
    call Ltv(Lfv(LAv("Energy_Release.mdl",x,y,.75),30,$96,30,$FF))
    return FALSE
endfunction

function HeroSkills_A0K3_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0K3',function HeroSkills_A0K3_Actions)
    call Luv('A0K3')
endfunction

function HeroSkills_A0K8_Buff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:423")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0KH','B03W')
    call HeroAddExtraStr((id),-HeroSkills_A0K8_Buff_Str[id])
    call HeroAddExtraAgi((id),-HeroSkills_A0K8_Buff_Agi[id])
    call HeroAddExtraInt((id),-HeroSkills_A0K8_Buff_Int[id])
    call Unit_Cancel_Counter(616,(id))
    set HeroSkills_A0K8_Buff_Timer[id]=null
endfunction

function HeroSkills_A0K8_Buff_add takes unit u,integer fpe,boolean eSe returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer nS=R2I(.05*fpe*GetHeroStrNotExtra((GetUnitUserData((u)))))
    local integer nA=0
    local integer nI=0
    if HeroSkills_A0K8_Buff_Timer[id]==null then
        set HeroSkills_A0K8_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0K8_Buff_Str[id]=0
        set HeroSkills_A0K8_Buff_Agi[id]=0
        set HeroSkills_A0K8_Buff_Int[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0KH')
        call Unit_App_Counter(617,(id))
    endif
    if eSe then
        set nA=R2I(.05*fpe*GetHeroAgiNotExtra((GetUnitUserData((u)))))
        set nI=R2I(.05*fpe*GetHeroIntNotExtra((GetUnitUserData((u)))))
        call HeroAddExtraAgi((id),nA-HeroSkills_A0K8_Buff_Agi[id])
        call HeroAddExtraInt((id),nI-HeroSkills_A0K8_Buff_Int[id])
        call NewTextTagInTarget_B(u,"|c00ffff80+"+I2S(nS)+" STR
        +"+I2S(nA)+" AGI

        +"+I2S(nI)+" INT",$C,$FF,$FF,$FF)

    else
        call NewTextTagInTarget_B(u,"|c00f87b78+"+I2S(nS)+" STR",$C,$FF,$FF,$FF)
    endif
    call HeroAddExtraStr((id),nS-HeroSkills_A0K8_Buff_Str[id])
    call TimerStart(HeroSkills_A0K8_Buff_Timer[id],$C,false,function HeroSkills_A0K8_Buff_Expired)
    set HeroSkills_A0K8_Buff_Str[id]=nS
    set HeroSkills_A0K8_Buff_Agi[id]=nA
    set HeroSkills_A0K8_Buff_Int[id]=nI
endfunction

function HeroSkills_A0K8_End takes integer id returns nothing
    local integer i=6+HeroSkills_A0K8_Charge[id]
    local integer lv
    local real x=(GetUnitX(II[(HeroSkills_A0K8_Eff[id])]))
    local real y=(GetUnitY(II[(HeroSkills_A0K8_Eff[id])]))
    local real r
    local real d
    local integer cFv
    local unit u
    if HeroSkills_A0K8_Charge[id]>0 then
        set lv=GetUnitAbilityLevel((Je[(id)]),'A0K8')
        set r=$E1+50*HeroSkills_A0K8_Charge[id]
        set d=Unit_Fire_Damage[(id)]*(25.*HeroSkills_A0K8_Charge[id]*GetHeroState1((Je[(id)]),true))
        call GroupEnumUnitsInRange(G,x,y,r+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,r)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call m1v(u,2)
                    if HeroSkills_A0K8_Has_hcun[id]then
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00f1dc92")))
                        call DestroyEffect(AddSpecialEffectTarget("YellowBolt.mdl",u,"origin"))
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",u,"origin"))
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",u,"chest"))
                    else
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00fbc8c8")))
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
                        call DestroyEffect(AddSpecialEffectTarget("FireBall.mdl",u,"chest"))
                        call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",u,"chest"))
                    endif
                endif
            endif
        endloop
        call UnitRemoveAbilityBY((Je[(id)]),'A0KD')
        call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl",x,y,2+.5*HeroSkills_A0K8_Charge[id]),6)
        call Ltv(Lbv(LVv('e018',x,y,0),1.5+.375*HeroSkills_A0K8_Charge[id],.65))
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0K8',true)
        call zhv((GetPlayerId(((P[Kc[((id))]])))),60,.75)
    endif
    loop
        set i=i-1
        set cFv=LoadInteger(BYHT,HeroSkills_A0K8_Vessel[id],i)
        if i>=6 then
            call Ltv(LAv("OrbOfFire.mdl",(GetUnitX(II[(cFv)])),(GetUnitY(II[(cFv)])),2.75))
        endif
        call Ltv(cFv)
        exitwhen i==0
    endloop
    call Ltv(LNv("Kiljaedenrage.mdl",x,y,87.5,2.5))
    call RecycleGroup(HeroSkills_A0K8_Group[id])
    call free(HeroSkills_A0K8_Vessel[id])
    call Ltv(HeroSkills_A0K8_Eff[id])
endfunction

function HeroSkills_A0K8_Stop takes integer id returns nothing
    if HeroSkills_A0K8_Use[id]then
        set HeroSkills_A0K8_Last[HeroSkills_A0K8_Next[id]]=HeroSkills_A0K8_Last[id]
        set HeroSkills_A0K8_Next[HeroSkills_A0K8_Last[id]]=HeroSkills_A0K8_Next[id]
        set HeroSkills_A0K8_Use[id]=false
        if HeroSkills_A0K8_Next[(0)]==0 then
            call frv(HeroSkills_A0K8_Func)
        endif
        call HeroSkills_A0K8_End(id)
        call Unit_Cancel_Counter(618,(id))
    endif
endfunction

function HeroSkills_A0K8_Start takes nothing returns nothing
    local integer id=HeroSkills_A0K8_Next[(0)]
    local integer cFv
    local unit u
    local integer i
    local real x
    local real y
    local real a
    loop
        exitwhen id==0
        set i=6+HeroSkills_A0K8_Charge[id]
        set x=(GetUnitX(II[(HeroSkills_A0K8_Eff[id])]))+HeroSkills_A0K8_X[id]
        set y=(GetUnitY(II[(HeroSkills_A0K8_Eff[id])]))+HeroSkills_A0K8_Y[id]
        call LKv(HeroSkills_A0K8_Eff[id],x)
        call Llv(HeroSkills_A0K8_Eff[id],y)
        set HeroSkills_A0K8_Time[id]=HeroSkills_A0K8_Time[id]-1
        set HeroSkills_A0K8_Ang[id]=HeroSkills_A0K8_Ang[id]+.3
        loop
            exitwhen i<=6
            set i=i-1
            set a=HeroSkills_A0K8_Ang[id]+i*Lx/ HeroSkills_A0K8_Charge[id]
            set cFv=LoadInteger(BYHT,HeroSkills_A0K8_Vessel[id],i)
            call LKv(cFv,x+87.5*Cos(a))
            call Llv(cFv,y+87.5*Sin(a))
            call SetUnitFacing(II[(cFv)],((a+Lx/ 4.)*1.)*bj_RADTODEG)
        endloop
        loop
            set i=i-1
            set a=HeroSkills_A0K8_Ang[id]+i*Lx/ 6
            set cFv=LoadInteger(BYHT,HeroSkills_A0K8_Vessel[id],i)
            call LKv(cFv,x+HeroSkills_A0K8_HX[id]*Cos(a))
            call Llv(cFv,y+HeroSkills_A0K8_HY[id]*Cos(a))
            call SetUnitFlyHeight(II[(cFv)],((62.5+HeroSkills_A0K8_HR*Sin(a))*1.),0)
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,x,y,275+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,275)then
                if not IsUnitInGroup(u,HeroSkills_A0K8_Group[id])then
                    call GroupAddUnit(HeroSkills_A0K8_Group[id],u)
                    if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        if HeroSkills_A0K8_Has_hcun[id]then
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A0K8_Damage[id])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00f1dc92")))
                            call DestroyEffect(AddSpecialEffectTarget("YellowBolt.mdl",u,"origin"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl",u,"chest"))
                        else
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A0K8_Damage[id])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c00fbc8c8")))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
                            call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",u,"chest"))
                        endif
                    elseif IsUnitAliveAndAlly(u,(Je[(id)]))and nC[(GetUnitUserData((u)))]then
                        call HeroSkills_A0K8_Buff_add(u,HeroSkills_A0K8_Charge[id],HeroSkills_A0K8_Has_hcun[id])
                    endif
                endif
            endif
        endloop
        if HeroSkills_A0K8_Time[id]<1 then
            call HeroSkills_A0K8_Stop(id)
        elseif ModuloInteger(HeroSkills_A0K8_Time[id],6)==0 then
            set cFv=LVv('e01D',x,y,(GetUnitFacing(II[(HeroSkills_A0K8_Eff[id])])))
            call SetUnitScale(II[(cFv)],((.75+HeroSkills_A0K8_Time[id]/ 40.)*1.),0,0)
            call LDv(cFv,2)
            call Ltv(cFv)
        endif
        set id=HeroSkills_A0K8_Next[id]
    endloop
endfunction

function HeroSkills_A0K8_Open takes integer id returns integer
    if HeroSkills_A0K8_Use[id]then
        call HeroSkills_A0K8_End(id)
    else
        if HeroSkills_A0K8_Next[(0)]==0 then
            if HeroSkills_A0K8_Func==0 then
                set HeroSkills_A0K8_Func=fxv(function HeroSkills_A0K8_Start)
            endif
            call fov(HeroSkills_A0K8_Func)
        endif
        set HeroSkills_A0K8_Next[id]=HeroSkills_A0K8_Next[(0)]
        set HeroSkills_A0K8_Last[HeroSkills_A0K8_Next[(0)]]=id
        set HeroSkills_A0K8_Next[(0)]=id
        set HeroSkills_A0K8_Last[id]=0
        set HeroSkills_A0K8_Use[id]=true
        call Unit_App_Counter(619,(id))
    endif
    return id
endfunction

function HeroSkills_A0KD_Actions_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:424")
    call UnitRemoveAbility((Je[(id)]),'BNvc')
    call HeroSkills_A0K8_Stop(id)
endfunction

function HeroSkills_A0KD_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A0K8_Group[id]!=null then
        call TimerStart(NewTimer(id),0,false,function HeroSkills_A0KD_Actions_func)
    endif
endfunction

function HeroSkills_A0K8_Actions takes nothing returns nothing
    local integer id=HeroSkills_A0K8_Open((GetUnitUserData((GetTriggerUnit()))))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0K8')
    local integer i
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local integer cFv
    set HeroSkills_A0K8_Vessel[id]=malloc()
    set HeroSkills_A0K8_Group[id]=NewGroup()
    set HeroSkills_A0K8_Has_hcun[id]=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('hcun')))
    set HeroSkills_A0K8_Charge[id]=Elemental_Force_ChargeUP((id),-3)
    set HeroSkills_A0K8_Time[id]=20
    set HeroSkills_A0K8_Eff[id]=Lnv(x,y,a)
    call LMv(HeroSkills_A0K8_Eff[id],"Blaze Missile.mdl")
    call SetUnitScale(II[(HeroSkills_A0K8_Eff[id])],((1.5)*1.),0,0)
    call SetUnitFlyHeight(II[(HeroSkills_A0K8_Eff[id])],((62.5)*1.),0)
    set HeroSkills_A0K8_Damage[id]=Unit_Fire_Damage[(id)]*($BB8*lv+(70+$A*lv)*GetHeroState1((Je[(id)]),true))
    set HeroSkills_A0K8_X[id]=37.5*Cos(a)
    set HeroSkills_A0K8_Y[id]=37.5*Sin(a)
    set HeroSkills_A0K8_Ang[id]=a
    set HeroSkills_A0K8_HX[id]=HeroSkills_A0K8_HR*Cos(a+Lx/ 4.)
    set HeroSkills_A0K8_HY[id]=HeroSkills_A0K8_HR*Sin(a+Lx/ 4.)
    set i=6+HeroSkills_A0K8_Charge[id]
    if HeroSkills_A0K8_Has_hcun[id]then
        set HeroSkills_A0K8_Damage[id]=1.5*HeroSkills_A0K8_Damage[id]
        call Lfv(HeroSkills_A0K8_Eff[id],$FF,$FF,$80,$FF)
    endif
    if HeroSkills_A0K8_Charge[id]>0 then
        if not HeroSkills_A0KD_ON then
            set HeroSkills_A0KD_ON=true
            call RegisterSpellEffectEvent('A0KD',function HeroSkills_A0KD_Actions)
        endif
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0K8',false)
        call UnitAddAbilityBY((Je[(id)]),'A0KD')
        loop
            exitwhen i<=6
            set i=i-1
            set a=HeroSkills_A0K8_Ang[id]+i*Lx/ HeroSkills_A0K8_Charge[id]
            set cFv=Lnv(x+87.5*Cos(a),y+87.5*Sin(a),a+Lx/ 4.)
            call LMv(cFv,"OrbOfFire.mdl")
            call SetUnitScale(II[(cFv)],((1.25)*1.),0,0)
            call SetUnitFlyHeight(II[(cFv)],((25)*1.),0)
            call SaveInteger(BYHT,HeroSkills_A0K8_Vessel[id],i,cFv)
            if HeroSkills_A0K8_Has_hcun[id]then
                call Lfv(cFv,$FF,$FF,$80,$FF)
            endif
        endloop
    endif
    loop
        set i=i-1
        set a=HeroSkills_A0K8_Ang[id]+i*Lx/ 6
        set cFv=Lnv(x+HeroSkills_A0K8_HX[id]*Cos(a),y+HeroSkills_A0K8_HY[id]*Cos(a),HeroSkills_A0K8_Ang[id])
        if HeroSkills_A0K8_Has_hcun[id]then
            call LMv(cFv,"Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl")
        else
            call LMv(cFv,"Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile_mini.mdl")
        endif
        call SetUnitScale(II[(cFv)],((3)*1.),0,0)
        call SetUnitFlyHeight(II[(cFv)],((62.5+HeroSkills_A0K8_HR*Sin(a))*1.),0)
        call SaveInteger(BYHT,HeroSkills_A0K8_Vessel[id],i,cFv)
        exitwhen i==0
    endloop
    call zhv((Kc[(id)]),50,.5)
    call Lqv(Lfv(LIv("MagmaBurst.mdl",x,y,25,.75,HeroSkills_A0K8_Ang[id],0),$FF,25,25,$FF),2)
    call Lqv(LIv("FireRing.mdl",x,y,100,1.5,HeroSkills_A0K8_Ang[id],0),2.5)
    call PlaySoundAtPoint_BJ((mn),((125)*1.),((x)*1.),((y)*1.),0)
endfunction

function HeroSkills_A0K8_Channel takes nothing returns nothing
    call UnitAnimationAddEffect(UnitAnimationSetLoopEffect(UnitAnimationSetName(UnitAnimationSetTimeScale(UnitAppAnimation(GetTriggerUnit()),.4),"spell throw"),"Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl","origin",.25),"Sun.mdl","weapon")
endfunction

function HeroSkills_A0K8_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0K8',function HeroSkills_A0K8_Channel)
    call RegisterSpellEffectEvent('A0K8',function HeroSkills_A0K8_Actions)
    call Luv('A0K8')
endfunction

function HeroSkills_A0KE_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer cFv
    local unit u
    local real x
    local real y
    local real z
    if not UnitAlive(Boss_Spell_unit1[data])then
        call SetUnitNotSeckill((GetHandleId(Boss_Spell_unit2[data])),false)
        call SetUnitFlyHeight(Boss_Spell_unit1[data],0,$5DC)
        call SetUnitTimeScale(Boss_Spell_unit1[data],1)
        call SetUnitPathing(Boss_Spell_unit1[data],true)
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call Unit_Cancel_Counter(620,GetHandleId(Boss_Spell_unit2[data]))
        call Ltv(Boss_Spell_data3[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:425")
    elseif Boss_Spell_data1[data]==1 then
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+5
        set z=GetUnitFlyHeight(Boss_Spell_unit1[data])+Boss_Spell_Z[data]
        if z>$5DC then
            set Boss_Spell_data1[data]=2
            set Boss_Spell_data2[data]=32
            set z=$5DC
            call SetUnitNotSeckill((GetHandleId(Boss_Spell_unit2[data])),true)
            call ShowUnit(Boss_Spell_unit1[data],false)
        endif
        call SetUnitFlyHeight(Boss_Spell_unit1[data],z,0)
    elseif Boss_Spell_data1[data]==2 then
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        if ModuloInteger(Boss_Spell_data2[data],4)==0 then
            set x=(GetUnitX(II[(Boss_Spell_data3[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data3[data])]))
            set cFv=LVv('e017',x,y,0)
            call SetUnitScale(II[(cFv)],((5.-Boss_Spell_data2[data]/ 8.)*1.),0,0)
            call Ltv(cFv)
            if Boss_Spell_data2[data]<1 then
                call Ltv(Boss_Spell_data3[data])
                set Boss_Spell_data1[data]=3
                set Boss_Spell_data3[data]=LVv('e01C',x,y,bj_RADTODEG*Atan2(y-GetUnitY(Boss_Spell_unit1[data]),x-GetUnitX(Boss_Spell_unit1[data])))
                call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],(($5DC)*1.),0)
                call SetUnitTimeScale(Boss_Spell_unit1[data],.75)
                call SetUnitPosition(Boss_Spell_unit1[data],x,y)
                call ShowUnit(Boss_Spell_unit1[data],true)
                call SetUnitAnimation(Boss_Spell_unit1[data],"Attack Slam")
                call QueueUnitAnimation(Boss_Spell_unit1[data],"Stand")
                if GetLocalPlayer()==(P[Kc[((GetHandleId(Boss_Spell_unit2[data])))]])then
                    call ClearSelection()
                    call SelectUnit(Boss_Spell_unit1[data],true)
                endif
            elseif Boss_Spell_data2[data]==16 then
                call Ltv(Lfv(LAv("MeteorStrike.mdl",(GetUnitX(II[(Boss_Spell_data3[data])])),(GetUnitY(II[(Boss_Spell_data3[data])])),2),$FF,0,0,$FF))
            endif
        endif
    else
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+5
        set z=GetUnitFlyHeight(Boss_Spell_unit1[data])-Boss_Spell_Z[data]
        if z<0 then
            call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],((0)*1.),0)
            set x=(GetUnitX(II[(Boss_Spell_data3[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data3[data])]))
            set z=0
            set Elemental_Force_Intensify[(GetHandleId(Boss_Spell_unit2[data]))]=$A1
            call SetUnitNotSeckill((GetHandleId(Boss_Spell_unit2[data])),false)
            call GroupEnumUnitsInRange(G,x,y,800+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,800)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                        if IsUnitInRangeXY(u,x,y,$FA)then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((17.5)*1.))*1.),(("|c00d7251c")))
                        else
                            call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((.75*Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00d7251c")))
                        endif
                        call m2v(u,3,'A500','B500',true)
                    endif
                endif
            endloop
            call SetUnitAnimation(II[Boss_Spell_data3[data]],"death")
            call Ltv(Lbv(LVv('e017',x,y,0),7.5,.25))
            call Ltv(Lbv(LVv('e018',x,y,0),7.5,.3))
            call Ltv(Lfv(Lbv(LVv('e00A',x,y,0),6,.5),$FF,55,55,$FF))
            call Ltv(LXv('e013',x,y,.5,"death"))
            call Ltv(LAv("firegold.mdl",x,y,5))
            call zhv((Kc[(GetHandleId(Boss_Spell_unit2[data]))]),100,1)
            call zKv((Kc[(GetHandleId(Boss_Spell_unit2[data]))]),$FF,125,125,.75)
            call UnitAddAbilityBY(Boss_Spell_unit1[data],'A0KI')
            call SetUnitTimeScale(Boss_Spell_unit1[data],1)
            call SetUnitPathing(Boss_Spell_unit1[data],true)
            call PauseUnit(Boss_Spell_unit1[data],false)
            call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
            call Unit_Cancel_Counter(621,GetHandleId(Boss_Spell_unit2[data]))
            call Ltv(Boss_Spell_data3[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:426")
        else
            call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],((z)*1.),0)
        endif
        call SetUnitFlyHeight(Boss_Spell_unit1[data],z,0)
    endif
endfunction

function HeroSkills_A0KE_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=ConvertVersion((GetUnitUserData((Boss_Spell_unit1[data]))))
    set Boss_Spell_data3[data]=LAv("MementoMori.mdx",GetSpellTargetX(),GetSpellTargetY(),7.5)
    set Boss_Spell_data1[data]=1
    set Boss_Spell_Z[data]=50
    set Boss_Spell_V[data]=Unit_Fire_Damage[(GetHandleId(Boss_Spell_unit2[data]))]*600*GetHeroState1(Boss_Spell_unit1[data],true)
    if UnitAddAbility(Boss_Spell_unit1[data],'Amrf')then
        call UnitRemoveAbility(Boss_Spell_unit1[data],'Amrf')
    endif
    call SetUnitPathing(Boss_Spell_unit1[data],false)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
    call SetUnitTimeScale(Boss_Spell_unit1[data],2)
    call SetUnitAnimation(Boss_Spell_unit1[data],"Attack Cinematic")
    call Unit_App_Counter(622,GetHandleId(Boss_Spell_unit2[data]))
    call TimerStart(NewTimer(data),.03125,TRUE,function HeroSkills_A0KE_Start)
endfunction

function HeroSkills_A0KE_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0KE',function HeroSkills_A0KE_Actions)
    call Luv('A0KE')
endfunction

function Hero_Hblm_Init takes nothing returns nothing
    call RegisterHeroInitEvent('Hblm',function Hero_EnterWorld_Hblm)
    call HeroSkills_A0K9_Init()
    call HeroSkills_A0K6_Init()
    call HeroSkills_A0K4_Init()
    call HeroSkills_A0K3_Init()
    call HeroSkills_A0K8_Init()
    call HeroSkills_A0KE_Init()
endfunction

function Hero_H01I_SkillsList_Remove takes integer id returns nothing
    if Hero_H01I_SkillsList_Id[id]==0 then
        call UnitRemoveAbilityBY((Je[(id)]),'A0NO')
        call UnitRemoveAbilityBY((Je[(id)]),'A0NP')
        call UnitRemoveAbilityBY((Je[(id)]),'A0NQ')
        call UnitRemoveAbilityBY((Je[(id)]),'A0NR')
    elseif Hero_H01I_SkillsList_Id[id]==1 then
        call UnitRemoveAbilityBY((Je[(id)]),'A0NS')
        call UnitRemoveAbilityBY((Je[(id)]),'A0NT')
        call UnitRemoveAbilityBY((Je[(id)]),'A0NU')
        call UnitRemoveAbilityBY((Je[(id)]),'A0O4')
    elseif Hero_H01I_SkillsList_Id[id]==2 then
        call UnitRemoveAbilityBY((Je[(id)]),'A0NW')
        call UnitRemoveAbilityBY((Je[(id)]),'A0NZ')
        call UnitRemoveAbilityBY((Je[(id)]),'A0O0')
        call UnitRemoveAbilityBY((Je[(id)]),'A0O2')
    elseif Hero_H01I_SkillsList_Id[id]==3 then
        call UnitRemoveAbilityBY((Je[(id)]),'A0O3')
        call UnitRemoveAbilityBY((Je[(id)]),'A0NV')
        call UnitRemoveAbilityBY((Je[(id)]),'A0O5')
        call UnitRemoveAbilityBY((Je[(id)]),'A0O7')
    endif
endfunction

function Hero_H01I_SkillsList_Closed takes integer id returns nothing
    call Hero_H01I_SkillsList_Remove(id)
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0ND',true)
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0NK',true)
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0NM',true)
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0NL',true)
    call Lsv(Hero_H01I_SkillsList_Eff[id],.5)
endfunction

function Hero_H01I_SkillsList_Cancel takes integer id returns nothing
    if Hero_H01I_SkillsList_Use[id]then
        set Hero_H01I_SkillsList_Last[Hero_H01I_SkillsList_Next[id]]=Hero_H01I_SkillsList_Last[id]
        set Hero_H01I_SkillsList_Next[Hero_H01I_SkillsList_Last[id]]=Hero_H01I_SkillsList_Next[id]
        set Hero_H01I_SkillsList_Use[id]=false
        if Hero_H01I_SkillsList_Next[(0)]==0 then
            call frv(Hero_H01I_SkillsList_Func)
        endif
        call Hero_H01I_SkillsList_Closed(id)
        call Unit_Cancel_Counter(623,(id))
    endif
endfunction

function Hero_H01I_SkillsList_Loop takes nothing returns boolean
    local integer id=Hero_H01I_SkillsList_Next[(0)]
    loop
        exitwhen id==0
        set Hero_H01I_SkillsList_Duration[id]=Hero_H01I_SkillsList_Duration[id]-1
        if not UnitAlive((Je[(id)]))or Hero_H01I_SkillsList_Duration[id]<1 then
            call Hero_H01I_SkillsList_Cancel(id)
        elseif Hero_H01I_SkillsList_Size[id]<1.5 then
            set Hero_H01I_SkillsList_Size[id]=Hero_H01I_SkillsList_Size[id]+.01
            call SetUnitScale(II[(Hero_H01I_SkillsList_Eff[id])],((Hero_H01I_SkillsList_Size[id])*1.),0,0)
        endif
        set id=Hero_H01I_SkillsList_Next[id]
    endloop
    return false
endfunction

function Hero_H01I_SkillsList_App takes integer id returns boolean
    if not Hero_H01I_SkillsList_Use[id]then
        if Hero_H01I_SkillsList_Next[(0)]==0 then
            if Hero_H01I_SkillsList_Func==0 then
                set Hero_H01I_SkillsList_Func=fxv(function Hero_H01I_SkillsList_Loop)
            endif
            call fov(Hero_H01I_SkillsList_Func)
        endif
        set Hero_H01I_SkillsList_Next[id]=Hero_H01I_SkillsList_Next[(0)]
        set Hero_H01I_SkillsList_Last[Hero_H01I_SkillsList_Next[(0)]]=id
        set Hero_H01I_SkillsList_Next[(0)]=id
        set Hero_H01I_SkillsList_Last[id]=0
        set Hero_H01I_SkillsList_Use[id]=true
        call Unit_App_Counter(624,(id))
        return true
    endif
    return false
endfunction

function Hero_H01I_SkillsList_ResetCooldown takes integer id returns nothing
    if Hero_H01I_SkillsList_Id[id]==0 then
        call UnitResetCooldownById((Je[(id)]),'A0ND')
    elseif Hero_H01I_SkillsList_Id[id]==1 then
        call UnitResetCooldownById((Je[(id)]),'A0NK')
    elseif Hero_H01I_SkillsList_Id[id]==2 then
        call UnitResetCooldownById((Je[(id)]),'A0NL')
    elseif Hero_H01I_SkillsList_Id[id]==3 then
        call UnitResetCooldownById((Je[(id)]),'A0NM')
    endif
endfunction

function Hero_H01I_SkillsList_Open takes integer id,integer tp returns nothing
    local boolean local_lj_q=GetUnitAbilityLevel((Je[(id)]),'A0ND')>0
    local boolean local_lj_w=GetUnitAbilityLevel((Je[(id)]),'A0NK')>0
    local boolean local_lj_e=GetUnitAbilityLevel((Je[(id)]),'A0NL')>0
    local boolean local_lj_r=GetUnitAbilityLevel((Je[(id)]),'A0NM')>0
    if Hero_H01I_SkillsList_App(id)then
        set Hero_H01I_SkillsList_Eff[id]=LAv("aura2_3.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1)
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0ND',false)
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0NK',false)
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0NM',false)
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0NL',false)
    else
        call LKv(Hero_H01I_SkillsList_Eff[id],GetUnitX((Je[(id)])))
        call Llv(Hero_H01I_SkillsList_Eff[id],GetUnitY((Je[(id)])))
        call Hero_H01I_SkillsList_Remove(id)
    endif
    set Hero_H01I_SkillsList_Duration[id]=$80
    set Hero_H01I_SkillsList_Size[id]=1.
    call SetUnitScale(II[(Hero_H01I_SkillsList_Eff[id])],((1.)*1.),0,0)
    set Hero_H01I_SkillsList_Id[id]=tp
    if tp==0 then
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NO',local_lj_q)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NP',local_lj_w)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NQ',local_lj_e)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NR',local_lj_r)
        call Lfv(Hero_H01I_SkillsList_Eff[id],$FF,125,125,$FF)
    elseif tp==1 then
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NS',local_lj_q)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NT',local_lj_w)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NU',local_lj_e)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0O4',local_lj_r)
        call Lfv(Hero_H01I_SkillsList_Eff[id],125,125,$FF,$FF)
    elseif tp==2 then
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NW',local_lj_q)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NZ',local_lj_w)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0O0',local_lj_e)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0O2',local_lj_r)
        call Lfv(Hero_H01I_SkillsList_Eff[id],125,125,125,$FF)
    elseif tp==3 then
        call UnitAddAbilityConditionBY((Je[(id)]),'A0O3',local_lj_q)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0NV',local_lj_w)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0O5',local_lj_e)
        call UnitAddAbilityConditionBY((Je[(id)]),'A0O7',local_lj_r)
        call Lfv(Hero_H01I_SkillsList_Eff[id],125,$FF,125,$FF)
    endif
endfunction

function HeroSkills_A0NW_Consumption takes integer id returns integer
    local integer i=HeroSkills_A0NW_Energy[id]
    if HeroSkills_A0NW_Energy[id]>0 then
        set HeroSkills_A0NW_Energy[id]=0
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0B8','B05B')
    endif
    return 1+i
endfunction

function HeroSkills_A0NW_Up takes integer id returns nothing
    if HeroSkills_A0NE_Use[id]and HeroSkills_A0NW_Energy[id]<3 then
        set HeroSkills_A0NW_Energy[id]=HeroSkills_A0NW_Energy[id]+1
        if HeroSkills_A0NW_Energy[id]==3 then
            call UnitAddAbilityBY((Je[(id)]),'A0B8')
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",(Je[(id)]),"origin"))
    endif
endfunction

function HeroSkills_A0NE_Buff takes integer id,integer sqe returns nothing
    local integer fx
    local boolean b
    local integer ste
    local real a
    if LoadInteger(BYHT,Hero_H01I_SkillsList_Vessel[id],2*sqe)==0 then
        set a=Lx*(sqe/ 5.+HeroSkills_A0NE_Modul[id]/ 64.)
        set fx=Lnv(GetUnitX((Je[(id)]))+aev*Cos(a),GetUnitY((Je[(id)]))+aev*Sin(a),a+.25*Lx)
        call SetUnitScale(II[(fx)],((.5)*1.),0,0)
        call SaveInteger(BYHT,Hero_H01I_SkillsList_Vessel[id],2*sqe+1,fx)
        if sqe==0 then
            call LMv(fx,"OrbOfFire.mdl")
            call SetUnitFlyHeight(II[(fx)],((50)*1.),0)
            call ModifyUnitMagicDamage((id),8)
        elseif sqe==1 then
            call LMv(fx,"OrbOfSeas.mdl")
            call SetUnitFlyHeight(II[(fx)],((100)*1.),0)
            set HeroSkills_A0NE_Buff_2_HpRegen[id]=.1/ 6.*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)
            set HeroSkills_A0NE_Buff_2_MpRegen[id]=.1/ 6.*GetUnitState((Je[(id)]),UNIT_STATE_MAX_MANA)
            call ModifyUnitHpRegen((id),HeroSkills_A0NE_Buff_2_HpRegen[id])
            call ModifyUnitMpRegen((id),HeroSkills_A0NE_Buff_2_MpRegen[id])
        elseif sqe==2 then
            call LMv(fx,"ArcaneBarrage.mdx")
            call SetUnitFlyHeight(II[(fx)],(($96)*1.),0)
            set HeroSkills_A0NE_Buff_5_Int[id]=0
            call UnitAddAbilityBY((Je[(id)]),'A0N8')
        elseif sqe==3 then
            call LMv(fx,"OrbOfWind.mdl")
            call SetUnitFlyHeight(II[(fx)],((100)*1.),0)
            call UnitAddAbilityBY((Je[(id)]),'A0NC')
        elseif sqe==4 then
            call LMv(fx,"OrbOfVenom.mdl")
            call SetUnitFlyHeight(II[(fx)],((50)*1.),0)
            set HeroSkills_A0NE_Buff_4_Mdef[id]=ModifyUnitMdef((id),20)
        endif
    endif
    call SaveInteger(BYHT,Hero_H01I_SkillsList_Vessel[id],2*sqe,R2I(32*avv))
    if sqe==2 then
        set ste=R2I((.1+.01*GetUnitAbilityLevel((Je[(id)]),'A0NE'))*GetHeroIntNotExtra((id)))
        call HeroAddExtraInt((id),ste-HeroSkills_A0NE_Buff_5_Int[id])
        set HeroSkills_A0NE_Buff_5_Int[id]=ste
    else
        if sqe==3 then
            call sc___prototype15_evaluate(5,(id))
        elseif sqe==4 then
            call sc___prototype3_evaluate(8,(id))
        endif
        set sqe=4+1
        set b=true
        loop
            set sqe=sqe-1
            set b=b and(sqe==2 or LoadInteger(BYHT,Hero_H01I_SkillsList_Vessel[id],2*sqe)>0)
            exitwhen sqe==0
        endloop
        if b then
            call HeroSkills_A0NE_Buff(id,2)
        endif
    endif
endfunction

function HeroSkills_A0NE_onSpell takes integer id,integer DDv,integer gDv returns nothing
    call s__Trig_exewithp((Hero_SpellEffect_t[(id)]),id)
    call HeroSkills_A0NE_Buff(id,DDv)
    if DDv!=gDv then
        call HeroSkills_A0NE_Buff(id,gDv)
    endif
    call sc___prototype3_evaluate(9,id)
    call Hero_H01I_SkillsList_Cancel((id))
    call sc___prototype46_evaluate(2,(id),DDv,gDv)
endfunction

function HeroSkills_A0NE_Stop takes integer id returns nothing
    if HeroSkills_A0NE_Use[id]then
        set HeroSkills_A0NE_Last[HeroSkills_A0NE_Next[id]]=HeroSkills_A0NE_Last[id]
        set HeroSkills_A0NE_Next[HeroSkills_A0NE_Last[id]]=HeroSkills_A0NE_Next[id]
        set HeroSkills_A0NE_Use[id]=false
        if HeroSkills_A0NE_Next[(0)]==0 then
            call frv(HeroSkills_A0NE_Func1)
        endif
        call Unit_Cancel_Counter(625,(id))
    endif
endfunction

function HeroSkills_A0NE_Loop takes nothing returns boolean
    local integer id=HeroSkills_A0NE_Next[(0)]
    local integer fx
    local boolean sPe
    local integer sqe
    local integer Gse
    local real x
    local real y
    loop
        exitwhen id==0
        set HeroSkills_A0NE_Modul[id]=ModuloInteger(HeroSkills_A0NE_Modul[id]+1,i9v)
        set sPe=not UnitAlive((Je[(id)]))
        set sqe=4+1
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        loop
            set sqe=sqe-1
            set Gse=LoadInteger(BYHT,Hero_H01I_SkillsList_Vessel[id],2*sqe)
            if Gse>0 then
                set fx=LoadInteger(BYHT,Hero_H01I_SkillsList_Vessel[id],2*sqe+1)
                if sPe or Gse<2 then
                    set Gse=0
                    if sqe==0 then
                        call ModifyUnitMagicDamage((id),-8)
                    elseif sqe==1 then
                        call ModifyUnitHpRegen((id),-HeroSkills_A0NE_Buff_2_HpRegen[id])
                        call ModifyUnitMpRegen((id),-HeroSkills_A0NE_Buff_2_MpRegen[id])
                    elseif sqe==2 then
                        call HeroAddExtraInt((id),-HeroSkills_A0NE_Buff_5_Int[id])
                        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0N8','B04U')
                    elseif sqe==3 then
                        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0NC','B04X')
                    elseif sqe==4 then
                        call DeUnitMdef((id),HeroSkills_A0NE_Buff_4_Mdef[id])
                    endif
                    call Ltv(fx)
                else
                    set Gse=Gse-1
                    call Lmv(fx,x,y,aev,Lx*(sqe/ 5.+HeroSkills_A0NE_Modul[id]/ I2R(i9v)),.25*Lx)
                endif
                call SaveInteger(BYHT,Hero_H01I_SkillsList_Vessel[id],2*sqe,Gse)
            endif
            exitwhen sqe==0
        endloop
        if GetUnitTypeId((Je[(id)]))==0 then
            call free(Hero_H01I_SkillsList_Vessel[id])
            call HeroSkills_A0NE_Stop(id)
        endif
        set id=HeroSkills_A0NE_Next[id]
    endloop
    return false
endfunction

function HeroSkills_A0NE_Open takes integer id returns integer
    if not HeroSkills_A0NE_Use[id]then
        if HeroSkills_A0NE_Next[(0)]==0 then
            if HeroSkills_A0NE_Func1==0 then
                set HeroSkills_A0NE_Func1=fxv(function HeroSkills_A0NE_Loop)
            endif
            call fov(HeroSkills_A0NE_Func1)
        endif
        set HeroSkills_A0NE_Next[id]=HeroSkills_A0NE_Next[(0)]
        set HeroSkills_A0NE_Last[HeroSkills_A0NE_Next[(0)]]=id
        set HeroSkills_A0NE_Next[(0)]=id
        set HeroSkills_A0NE_Last[id]=0
        set HeroSkills_A0NE_Use[id]=true
        call Unit_App_Counter(626,(id))
    endif
    return id
endfunction

function Hero_EnterWorld_H01I takes nothing returns nothing
    local integer id=HeroSkills_A0NE_Open(le)
    set Hero_H01I_SkillsList_Vessel[id]=malloc()
    set HeroSkills_A0NE_Modul[id]=0
endfunction

function HeroSkills_A0NE_IsHasBuff takes integer id returns boolean
    if GetUnitAbilityLevel((Je[(id)]),'B04Z')>0 and HeroSkills_A0NE_BuffCount[id]>0 then
        set HeroSkills_A0NE_BuffCount[id]=HeroSkills_A0NE_BuffCount[id]-1
        if HeroSkills_A0NE_BuffCount[id]==0 then
            call UnitRemoveAbility((Je[(id)]),'B04Z')
        endif
        call Ltv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1.25))
        return true
    endif
    return false
endfunction

function HeroSkills_A0NE_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0NE_BuffCount[id]=1+R2I(GetUnitDefaultAttackSpeed((id))/ 25)
    call DestroyEffect(AddSpecialEffectTarget("Energy_Release.mdl",(Je[(id)]),"origin"))
endfunction

function HeroSkills_A0NE_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H01I',function Hero_EnterWorld_H01I)
    call RegisterSpellEffectEvent('A0NE',function HeroSkills_A0NE_Actions)
    call Luv('A0NE')
endfunction

function HeroSkills_A0ND_Spell takes nothing returns nothing
    call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),0)
endfunction

function HeroSkills_A0ND_Channel takes nothing returns nothing
    if HeroSkills_A0NE_IsHasBuff(((GetUnitUserData((GetTriggerUnit())))))then
        call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),0)
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    else
        call UnitAnimationSetName(UnitAnimationAddEffect(UnitAnimationAddEffect(UnitAppAnimation(GetTriggerUnit()),"FireHands.mdl","hand right"),"FireHands.mdl","hand left"),"spell one")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",GetTriggerUnit(),"origin"))
    endif
endfunction

function HeroSkills_A0ND_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0ND',function HeroSkills_A0ND_Channel)
    call RegisterSpellEffectEvent('A0ND',function HeroSkills_A0ND_Spell)
    call Luv('A0ND')
    call ExecuteFunc("HeroSkills_A0NO_Init")
    call ExecuteFunc("HeroSkills_A0NP_Init")
    call ExecuteFunc("HeroSkills_A0NQ_Init")
    call ExecuteFunc("HeroSkills_A0NR_Init")
endfunction

function s__Blaze_impact takes integer this returns boolean
    local real x=s__barrage_X[this]
    local real y=s__barrage_Y[this]
    local unit u
    if s__Blaze_damage_lv[this]==1 then
        call GroupEnumUnitsInRange(G,x,y,$E1+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$E1)then
                if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                    if u==s__barrage_target[this]then
                        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__Blaze_damage[this])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    else
                        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__Blaze_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                    call m1v(u,.75)
                endif
            endif
        endloop
        call Ltv(LAv("NewGroundEX.mdx",x,y,GetRandomReal(1.125,1.5)))
        call zhv((GetPlayerId((GetOwningPlayer(s__barrage_atkunit[this])))),$F,.25)
    else
        call GroupEnumUnitsInRange(G,x,y,350+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),(((((-.25+1.25*s__Blaze_damage_lv[this])*s__Blaze_damage[this])*1.))*1.),false,((u==s__barrage_target[this])),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A+2*s__Blaze_damage_lv[this])*1.))*1.),(("|cffffaaaa")))
                    call m1v(u,1)
                endif
            endif
        endloop
        call Ltv(LAv("PumpkinNightmare_Projeltile.mdx",x,y,1.5+.25*s__Blaze_damage_lv[this]))
        call Ltv(LAv("NewGroundEX.mdx",x,y,1.5+.25*s__Blaze_damage_lv[this]))
        call zhv((GetPlayerId((GetOwningPlayer(s__barrage_atkunit[this])))),30,.25)
    endif
    return true
endfunction

function s__Blaze_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__Blaze_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__Blaze_launcher]
    local unit u
    if this!=s__Blaze_launcher then
        call UseBarrage(s__Blaze_launcher)
        loop
            exitwhen this==s__Blaze_launcher
            if(s__barrage_outside[(this)])then
                call s__Blaze_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                if s__Blaze_impact(this)then
                    call RemoveBarrage((this))
                else
                    set s__barrage_finish[(this)]=false
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__Blaze_launcher]then
        set s__barrage_InOperation[s__Blaze_launcher]=false
        call frv(s__Blaze_func)
    endif
endfunction

function s__Blaze_fired takes integer this returns nothing
    call s__barrage_Filling((s__Blaze_launcher),(this))
    if not s__barrage_InOperation[s__Blaze_launcher]then
        set s__barrage_InOperation[s__Blaze_launcher]=true
        call fov(s__Blaze_func)
    endif
endfunction

function s__Blaze_onInit takes nothing returns nothing
    set s__Blaze_func=fxv(function s__Blaze_loop_c)
    set s__Blaze_launcher=NewLauncher()
endfunction

function HeroSkills_A0NO_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit t=GetSpellTargetUnit()
    local integer id=(GetUnitUserData((c)))
    local integer s=HeroSkills_A0NW_Consumption((id))
    local integer lv=GetUnitAbilityLevel(c,'A0ND')
    local integer i=4
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real tX=GetUnitX(t)
    local real tY=GetUnitY(t)
    local real a=Atan2(tY-y,tX-x)
    local real d=Unit_Fire_Damage[(GetUnitUserData((c)))]*(.6*GetHeroAttack((id))*lv+(2+1.25*lv)*GetHeroState3(c,true))
    local real rA
    local real rD
    local integer Blaze_t
    set x=x+50*Cos(a)
    set y=y+50*Sin(a)
    loop
        set i=i-1
        set rA=a+.25*Lx*(i-2.5+GetRandomReal(-.25,.25))
        set rD=GetRandomReal(25,125)
        set Blaze_t=CreateBarrageTypeD(x,y,75,tX+rD*Cos(rA),tY+rD*Sin(rA),0)
        call SetBarrageFlightRadian(Blaze_t,.25*(i-2)+GetRandomReal(-.15,.15))
        call SetBarrageFlightRadianEZ(Blaze_t,GetRandomReal(.5,.75))
        set s__barrage_atkunit[Blaze_t]=c
        call LMv(s__barrage_model[Blaze_t],"Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl")
        set s__barrage_speed[Blaze_t]=.03125*500.
        set s__Blaze_damage_lv[Blaze_t]=s
        set s__Blaze_damage[Blaze_t]=d
        if s__Blaze_damage_lv[Blaze_t]==1 then
            set s__barrage_acceleration[Blaze_t]=.03125*.03125*($5DC+300*i)
        else
            call SetUnitScale(II[(s__barrage_model[Blaze_t])],((1.75)*1.),0,0)
            set s__barrage_acceleration[Blaze_t]=.03125*.03125*($9C4+500*i)
            call Lfv(s__barrage_model[Blaze_t],$FF,125,125,$FF)
        endif
        call s__Blaze_fired(Blaze_t)
        exitwhen i==0
    endloop
    call Ltv(LIv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,100,.875,a,0))
    call HeroSkills_A0NE_onSpell((id),0,0)
    set c=null
    set t=null
endfunction

function HeroSkills_A0NO_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NO',function HeroSkills_A0NO_Actions)
    call Luv('A0NO')
endfunction

function s__SpellA0NP_alloc takes nothing returns integer
    return D9v(s__SpellA0NP_func)
endfunction

function s__SpellA0NP_stop takes integer this returns nothing
    call fvv(this)
endfunction

function s__SpellA0NP_loop_c takes nothing returns nothing
    local integer this=J[s__SpellA0NP_func]
    local integer BigRock_t
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==this
        set s__SpellA0NP_time[this]=s__SpellA0NP_time[this]-1
        if ModuloInteger(s__SpellA0NP_time[this],20)==0 then
            set BigRock_t=s__barrage_FR[s__BigRock_launcher]
            set x=(GetUnitX(II[(s__SpellA0NP_Eff[this])]))
            set y=(GetUnitY(II[(s__SpellA0NP_Eff[this])]))
            loop
                exitwhen BigRock_t==s__BigRock_launcher
                if s__barrage_atkunit[BigRock_t]==(Je[(s__SpellA0NP_Unit[this])])and s__BigRock_eff[BigRock_t]==null and IsUnitInRangeXY(II[s__barrage_model[BigRock_t]],x,y,450)then
                    set s__BigRock_eff[BigRock_t]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedTarget.mdl"),(II[s__barrage_model[BigRock_t]]),("origin"))))
                    set s__BigRock_damage[BigRock_t]=Unit_Fire_Damage[(s__SpellA0NP_Unit[this])]*GetRandomReal(1.75,2.75)*s__BigRock_damage[BigRock_t]
                    call Lfv(s__barrage_model[BigRock_t],$FF,125,125,$FF)
                endif
                set BigRock_t=s__barrage_FR[BigRock_t]
            endloop
            call GroupEnumUnitsInRange(G,x,y,450+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,450)then
                    if IsUnitAliveAndEnemy(u,(Je[(s__SpellA0NP_Unit[this])]))then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",u,"chest"))
                        if GetUnitAbilityLevel(u,'A08F')==1 then
                            call UnitDamageTargetBY((((Je[(s__SpellA0NP_Unit[this])]))),((u)),((((1.75*s__SpellA0NP_damage[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00fe2101")))
                        else
                            call UnitDamageTargetBY((((Je[(s__SpellA0NP_Unit[this])]))),((u)),((((s__SpellA0NP_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endif
            endloop
            if s__SpellA0NP_time[this]==40 then
                call Lqv(LAv("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",x,y,5),3)
            endif
            call zhv((Kc[(s__SpellA0NP_Unit[this])]),25,.75)
            call Lqv(LAv("MagmaBurst.mdl",x,y,2.25),1.5)
            call DestroyEffect(AddSpecialEffect("Flame Piercing.mdl",x,y))
            if s__SpellA0NP_time[this]<1 then
                call Unit_Cancel_Counter(627,s__SpellA0NP_Unit[this])
                call Ltv(s__SpellA0NP_Eff[this])
                call fvv((this))
            endif
        endif
        set this=K[this]
    endloop
endfunction

function s__SpellA0NP_onInit takes nothing returns nothing
    set s__SpellA0NP_func=fxv(function s__SpellA0NP_loop_c)
endfunction

function HeroSkills_A0NP_Actions takes nothing returns nothing
    local integer t=(D9v(s__SpellA0NP_func))
    local integer lv
    set s__SpellA0NP_Unit[t]=(GetUnitUserData((GetTriggerUnit())))
    set s__SpellA0NP_Eff[t]=LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",GetSpellTargetX(),GetSpellTargetY(),1.25)
    set s__SpellA0NP_time[t]=60
    set lv=GetUnitAbilityLevel((Je[(s__SpellA0NP_Unit[t])]),'A0ND')
    set s__SpellA0NP_damage[t]=Unit_Fire_Damage[(s__SpellA0NP_Unit[t])]*Unit_Frost_Damage[(s__SpellA0NP_Unit[t])]*($C8*lv+($A+5*lv)*GetHeroState3((Je[(s__SpellA0NP_Unit[t])]),true))/(s__SpellA0NP_time[t]/ 20.)
    call HeroSkills_A0NE_onSpell((s__SpellA0NP_Unit[t]),0,1)
    call Unit_App_Counter(628,s__SpellA0NP_Unit[t])
endfunction

function HeroSkills_A0NP_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NP',function HeroSkills_A0NP_Actions)
    call Luv('A0NP')
endfunction

function s__FlamerBreath_Soe takes integer this,unit u returns boolean
    if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",u,"chest"))
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__FlamerBreath_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call Qnv(s__barrage_atkunit[this],u,s__FlamerBreath_damage[this]/ 18.,18,9)
    elseif UnitAlive(u)then
        call sc___prototype266_evaluate(1,((GetUnitUserData((s__barrage_atkunit[this])))),u,s__FlamerBreath_damage[this])
    endif
    return false
endfunction

function s__FlamerBreath_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__FlamerBreath_launcher]
    local unit u
    if this!=s__FlamerBreath_launcher then
        call UseBarrage(s__FlamerBreath_launcher)
        loop
            exitwhen this==s__FlamerBreath_launcher
            if s__barrage_CollisionRange[this]!=0 then
                call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                        if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                            call GroupAddUnit(s__barrage_enum_g[this],u)
                            call s__FlamerBreath_Soe(this,u)
                        endif
                    endif
                endloop
            endif
            if(s__barrage_outside[(this)])or(s__barrage_finish[(this)])then
                call RemoveBarrage(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__FlamerBreath_launcher]then
        set s__barrage_InOperation[s__FlamerBreath_launcher]=false
        call frv(s__FlamerBreath_func)
    endif
endfunction

function s__FlamerBreath_fired takes integer this returns nothing
    call s__barrage_Filling((s__FlamerBreath_launcher),(this))
    if not s__barrage_InOperation[s__FlamerBreath_launcher]then
        set s__barrage_InOperation[s__FlamerBreath_launcher]=true
        call fov(s__FlamerBreath_func)
    endif
endfunction

function s__FlamerBreath_create takes unit c,real x,real y,real a,real d returns integer
    local integer this=CreateBarrageTypeD(x,y,37.5,x+600*Cos(a),y+600*Sin(a),37.5)
    set s__barrage_atkunit[this]=c
    call LMv(s__barrage_model[this],"Abilities\\Spells\\Other\\BreathOfFire\\BreathOfFireMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[this])],((1.5)*1.),0,0)
    set s__barrage_speed[this]=.03125*1600.
    set s__barrage_CollisionRange[this]=300
    set s__FlamerBreath_damage[this]=d
    call Ltv(Lfv(LIv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,100,2,a,0),$FF,125,125,$FF))
    call s__FlamerBreath_fired(this)
    return this
endfunction

function s__FlamerBreath_onInit takes nothing returns nothing
    set s__FlamerBreath_launcher=NewLauncher()
    set s__FlamerBreath_func=fxv(function s__FlamerBreath_loop_c)
endfunction

function HeroSkills_A0NO_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0NO_Func]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==data
        set HeroSkills_A0NO_Time[data]=HeroSkills_A0NO_Time[data]-1
        if ModuloInteger(HeroSkills_A0NO_Time[data],16)==0 then
            call zhv((Kc[(HeroSkills_A0NO_Unit[data])]),17.5,.5)
            call s__FlamerBreath_create((Je[(HeroSkills_A0NO_Unit[data])]),(GetUnitX(II[(HeroSkills_A0NO_Eff[data])])),(GetUnitY(II[(HeroSkills_A0NO_Eff[data])])),bj_DEGTORAD*(GetUnitFacing(II[(HeroSkills_A0NO_Eff[data])])),HeroSkills_A0NO_Damage[data])
            if HeroSkills_A0NO_Time[data]<1 then
                call Unit_Cancel_Counter(629,HeroSkills_A0NO_Unit[data])
                call LSv(HeroSkills_A0NO_Eff[data],$FF,0,0,$FF,.5)
                call fvv(data)
            endif
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0NQ_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A0NO_Func)
    local integer lv
    local real x
    local real y
    local real a
    set HeroSkills_A0NO_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set x=GetUnitX((Je[(HeroSkills_A0NO_Unit[data])]))
    set y=GetUnitY((Je[(HeroSkills_A0NO_Unit[data])]))
    set a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set HeroSkills_A0NO_Eff[data]=LIv("Abilities\\Spells\\Undead\\VampiricAura\\VampiricAura.mdl",x,y,75,2.5,a,0)
    set HeroSkills_A0NO_Time[data]=80
    set lv=GetUnitAbilityLevel((Je[(HeroSkills_A0NO_Unit[data])]),'A0ND')
    set HeroSkills_A0NO_Damage[data]=Unit_Fire_Damage[(HeroSkills_A0NO_Unit[data])]*Unit_Gas_Damage[(HeroSkills_A0NO_Unit[data])]*($96*lv+($F+2.25*lv)*GetHeroState3((Je[(HeroSkills_A0NO_Unit[data])]),true))/ 6.
    call Lfv(HeroSkills_A0NO_Eff[data],$FF,0,0,$FF)
    call Ltv(Lbv(LVv('e02P',x,y,bj_RADTODEG*a),3,.2))
    call HeroSkills_A0NE_onSpell((HeroSkills_A0NO_Unit[data]),0,3)
    call Unit_App_Counter(630,HeroSkills_A0NO_Unit[data])
endfunction

function HeroSkills_A0NQ_Init takes nothing returns nothing
    set HeroSkills_A0NO_Func=fxv(function HeroSkills_A0NO_Start)
    call RegisterSpellEffectEvent('A0NQ',function HeroSkills_A0NQ_Actions)
    call Luv('A0NQ')
endfunction

function s__SpellA0NR_alloc takes nothing returns integer
    return D9v(s__SpellA0NR_func)
endfunction

function s__SpellA0NR_stop takes integer this returns nothing
    call fvv(this)
endfunction

function s__SpellA0NR_start takes nothing returns nothing
    local integer this=J[s__SpellA0NR_func]
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==this
        set s__SpellA0NR_time[this]=s__SpellA0NR_time[this]-1
        if s__SpellA0NR_time[this]<=$C then
            set x=(GetUnitX(II[(s__SpellA0NR_Eff[this])]))
            set y=(GetUnitY(II[(s__SpellA0NR_Eff[this])]))
            if s__SpellA0NR_time[this]==$C then
                call Ltv(s__SpellA0NR_Eff[this])
                set s__SpellA0NR_Eff[this]=Lfv(LNv("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",x,y,$4B0,4),$FF,55,55,$FF)
                set s__SpellA0NR_Eff2[this]=LNv("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedTarget.mdl",x,y,$4B0,2)
            else
                call SetUnitFlyHeight(II[(s__SpellA0NR_Eff[this])],((100*s__SpellA0NR_time[this])*1.),0)
                call SetUnitFlyHeight(II[(s__SpellA0NR_Eff2[this])],((100*s__SpellA0NR_time[this])*1.),0)
                if ModuloInteger(s__SpellA0NR_time[this],2)==0 then
                    call Ltv(LNv("Flame Piercing.mdl",x,y,100*s__SpellA0NR_time[this],1))
                endif
                if s__SpellA0NR_time[this]<1 then
                    call GroupEnumUnitsInRange(G,x,y,375+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,375)then
                            if IsUnitAliveAndEnemy(u,(Je[(s__SpellA0NR_Unit[this])]))then
                                if(Control_use[(GetUnitUserData(((u))))])then
                                    call UnitDamageTargetBY((((Je[(s__SpellA0NR_Unit[this])]))),((u)),((((s__SpellA0NR_damage_b[this])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00a7301f")))
                                else
                                    call UnitDamageTargetBY((((Je[(s__SpellA0NR_Unit[this])]))),((u)),((((s__SpellA0NR_damage_a[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                                endif
                            endif
                        endif
                    endloop
                    call Ltv(Lfv(Lbv(LVv('e00A',x,y,0),6,.5),$FF,55,55,$FF))
                    call Ltv(LAv("FireNova.mdl",x,y,1))
                    call zhv((Kc[(s__SpellA0NR_Unit[this])]),50,.75)
                    call Unit_Cancel_Counter(631,s__SpellA0NR_Unit[this])
                    call Ltv(s__SpellA0NR_Eff[this])
                    call Ltv(s__SpellA0NR_Eff2[this])
                    call fvv((this))
                endif
            endif
        elseif ModuloInteger(s__SpellA0NR_time[this],32)==0 then
            call Ltv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",(GetUnitX(II[(s__SpellA0NR_Eff[this])])),(GetUnitY(II[(s__SpellA0NR_Eff[this])])),.75))
        endif
        set this=K[this]
    endloop
endfunction

function s__SpellA0NR_onInit takes nothing returns nothing
    set s__SpellA0NR_func=fxv(function s__SpellA0NR_start)
endfunction

function HeroSkills_A0NR_Actions takes nothing returns nothing
    local integer t=(D9v(s__SpellA0NR_func))
    local integer lv
    set s__SpellA0NR_time[t]=96
    set s__SpellA0NR_Unit[t]=(GetUnitUserData((GetTriggerUnit())))
    set s__SpellA0NR_Eff[t]=LAv("Abilities\\Spells\\Items\\VampiricPotion\\VampPotionCaster.mdl",GetSpellTargetX(),GetSpellTargetY(),2.5)
    set lv=GetUnitAbilityLevel((Je[(s__SpellA0NR_Unit[t])]),'A0ND')
    set s__SpellA0NR_damage_a[t]=Unit_Fire_Damage[s__SpellA0NR_Unit[t]]*Unit_To_Damage[s__SpellA0NR_Unit[t]]*(500*lv+(25+3*lv)*GetHeroState3((Je[(s__SpellA0NR_Unit[t])]),true))
    set s__SpellA0NR_damage_b[t]=(1.5+5*Unit_MATK[s__SpellA0NR_Unit[t]])*s__SpellA0NR_damage_a[t]
    call HeroSkills_A0NE_onSpell(s__SpellA0NR_Unit[t],0,4)
    call Lfv(s__SpellA0NR_Eff[t],$FF,0,0,$FF)
    call Unit_App_Counter(632,s__SpellA0NR_Unit[t])
endfunction

function HeroSkills_A0NR_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NR',function HeroSkills_A0NR_Actions)
    call Luv('A0NR')
endfunction

function HeroSkills_A0NK_Spell takes nothing returns nothing
    call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),1)
endfunction

function HeroSkills_A0NK_Channel takes nothing returns nothing
    if HeroSkills_A0NE_IsHasBuff(((GetUnitUserData((GetTriggerUnit())))))then
        call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),1)
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    else
        call UnitAnimationSetName(UnitAnimationAddEffect(UnitAnimationAddEffect(UnitAppAnimation(GetTriggerUnit()),"WaterHands.mdl","hand right"),"WaterHands.mdl","hand left"),"spell one")
        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",GetTriggerUnit(),"origin"))
    endif
endfunction

function HeroSkills_A0NK_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0NK',function HeroSkills_A0NK_Channel)
    call RegisterSpellEffectEvent('A0NK',function HeroSkills_A0NK_Spell)
    call Luv('A0NK')
    call ExecuteFunc("HeroSkills_A0NS_Init")
    call ExecuteFunc("HeroSkills_A0NT_Init")
    call ExecuteFunc("HeroSkills_A0NU_Init")
    call ExecuteFunc("HeroSkills_A0O4_Init")
endfunction

function s__WaterBombFX_end takes integer this returns nothing
    local real x=s__barrage_X[this]
    local real y=s__barrage_Y[this]
    local real eoe=1+s__WaterBombFX_size[this]/ 213.33
    local unit u
    call GroupEnumUnitsInRange(G,x,y,2*s__barrage_CollisionRange[this]+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,2*s__barrage_CollisionRange[this])then
            if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                call DestroyEffect(AddSpecialEffectTarget("OrbOfSeas.mdl",u,"chest"))
                call UnitAppBuff((GetUnitUserData((u))),'ACfn',$D0102)
                if GetUnitAbilityLevel(u,'A08F')==1 then
                    call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",u,"chest"))
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((eoe*(s__WaterBombFX_damage[this]+s__WaterBombFX_damage2[this]))*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A+2*eoe)*1.))*1.),(("|c00f1cbc7")))
                else
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((eoe*s__WaterBombFX_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endif
    endloop
    call Ltv(LAv("AquaSpike.mdx",x,y,1.375+.75*eoe))
    call Lqv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x,y,2.5+.75*eoe),3)
    call Lqv(LAv("WaterNovaTarget.mdl",x,y,5+eoe),2.5)
    call zhv((GetPlayerId((GetOwningPlayer(s__barrage_atkunit[this])))),25+25*MinR(eoe,2),.75)
    call Ltv(s__WaterBombFX_eff1[this])
    if s__WaterBombFX_eff2[this]!=0 then
        call DestroyEffectBY(s__WaterBombFX_eff2[this])
        set s__WaterBombFX_eff2[this]=0
    endif
    call RemoveBarrage(this)
endfunction

function s__WaterBombFX_start_02 takes integer this returns nothing
    local integer id
    if s__WaterBombFX_size[this]<320 then
        set id=(GetUnitUserData((s__barrage_atkunit[this])))
        if HeroSkills_A0O4_Use[(id)]and IsUnitInRangeXY(II[HeroSkills_A0O4_Model[(id)]],s__barrage_X[this],s__barrage_Y[this],400)then
            set s__WaterBombFX_size[this]=s__WaterBombFX_size[this]+3
            if s__WaterBombFX_eff2[this]==0 then
                set s__WaterBombFX_eff2[this]=(s__Effect_build(AddSpecialEffectTarget(("Astral Imprisonment.mdl"),(II[s__barrage_model[this]]),("origin"))))
            endif
        else
            set s__WaterBombFX_size[this]=s__WaterBombFX_size[this]+1
            if s__WaterBombFX_eff2[this]!=0 then
                call DestroyEffectBY(s__WaterBombFX_eff2[this])
                set s__WaterBombFX_eff2[this]=0
            endif
        endif
        call SetUnitFlyHeight(II[(s__WaterBombFX_eff1[this])],((s__barrage_Z[this]+s__WaterBombFX_size[this])*1.),0)
        call SetUnitScale(II[(s__WaterBombFX_eff1[this])],((3+.03*s__WaterBombFX_size[this])*1.),0,0)
        call SetUnitScale(II[(s__barrage_model[this])],((1+.01*s__WaterBombFX_size[this])*1.),0,0)
        set s__barrage_CollisionRange[this]=100+.5*s__WaterBombFX_size[this]
    endif
    call LKv(s__WaterBombFX_eff1[this],s__barrage_X[this])
    call Llv(s__WaterBombFX_eff1[this],s__barrage_Y[this])
endfunction

function s__WaterBombFX_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__WaterBombFX_launcher]
    local unit u
    if this!=s__WaterBombFX_launcher then
        call UseBarrage(s__WaterBombFX_launcher)
        loop
            exitwhen this==s__WaterBombFX_launcher
            if(s__barrage_outside[(this)])then
                call s__WaterBombFX_end(this)
            elseif(s__barrage_finish[(this)])then
                call s__WaterBombFX_end(this)
            else
                call s__WaterBombFX_start_02(this)
                if s__barrage_CollisionRange[this]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                                call GroupAddUnit(s__barrage_enum_g[this],u)
                                if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                                    set u=null
                                    call s__WaterBombFX_end(this)
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__WaterBombFX_launcher]then
        set s__barrage_InOperation[s__WaterBombFX_launcher]=false
        call frv(s__WaterBombFX_func)
    endif
endfunction

function s__WaterBombFX_fired takes integer this returns nothing
    call s__barrage_Filling((s__WaterBombFX_launcher),(this))
    if not s__barrage_InOperation[s__WaterBombFX_launcher]then
        set s__barrage_InOperation[s__WaterBombFX_launcher]=true
        call fov(s__WaterBombFX_func)
    endif
endfunction

function s__WaterBombFX_onInit takes nothing returns nothing
    set s__WaterBombFX_launcher=NewLauncher()
    set s__WaterBombFX_func=fxv(function s__WaterBombFX_start)
endfunction

function s__WaterBombFX_create takes integer cue,integer fx,real d,real aD returns integer
    local real a=bj_DEGTORAD*(GetUnitFacing(II[(fx)]))
    local integer this=CreateBarrageTypeE(fx,(GetUnitX(II[(fx)]))+$708*Cos(a),(GetUnitY(II[(fx)]))+$708*Sin(a),100)
    set s__barrage_atkunit[this]=(Je[(cue)])
    set s__barrage_speed[this]=.03125*25.
    set s__barrage_acceleration[this]=.03125*.03125*12.5
    set s__barrage_CollisionRange[this]=100.
    set s__WaterBombFX_bool_A0O0[this]=false
    set s__WaterBombFX_eff1[this]=LNv("AquaAttachment.mdl",s__barrage_X[this],s__barrage_Y[this],s__barrage_Z[this],3)
    set s__WaterBombFX_size[this]=0
    set s__WaterBombFX_damage[this]=d
    set s__WaterBombFX_damage2[this]=aD
    call LFv(s__barrage_model[this],"Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl")
    call s__WaterBombFX_fired(this)
    return this
endfunction

function HeroSkills_A0NS_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer Zhv
    local real eoe
    local real x
    local real y
    local real a
    local real zA
    local real d
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if Boss_Spell_data3[data]>=0 then
        set eoe=1-Boss_Spell_data3[data]/ 48.
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        set a=GetRandomReal(0,Lx)
        set zA=GetRandomReal(0,.5*Lx)
        set d=$96+300*eoe
        set Zhv=CreateBarrageTypeD(x+d*Cos(a)*Sin(zA),y+d*Sin(a)*Sin(zA),125+125*Cos(zA),x,y,125)
        call SetBarrageFlightRadian(Zhv,.3)
        set s__barrage_speed[Zhv]=$A
        set s__barrage_acceleration[Zhv]=2.5+5*eoe
        call LMv(s__barrage_model[Zhv],"Abilities\\Weapons\\WaterElementalMissile\\WaterElementalMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[Zhv])],((2)*1.),0,0)
        call SetUnitScale(II[(Boss_Spell_data2[data])],((.25+.75*eoe)*1.),0,0)
        call Lfv(Boss_Spell_data2[data],$FF,$FF,$FF,R2I($FF*eoe))
        call dAe(Zhv)
        if Boss_Spell_data3[data]==0 then
            call TimerStart(GetExpiredTimer(),.5,false,function HeroSkills_A0NS_Start)
        endif
    elseif Boss_Spell_data3[data]<0 then
        call s__WaterBombFX_create(Boss_Spell_data1[data],Boss_Spell_data2[data],Boss_Spell_X[data],Boss_Spell_Y[data])
        call Unit_Cancel_Counter(633,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:427")
    endif
endfunction

function HeroSkills_A0NS_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit c=GetTriggerUnit()
    local integer lv=GetUnitAbilityLevel(c,'A0NK')
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Boss_Spell_data1[data]=(GetUnitUserData((c)))
    set Boss_Spell_data2[data]=Lnv(x+125*Cos(a),y+125*Sin(a),a)
    call LMv(Boss_Spell_data2[data],"WaterArmor.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((.25)*1.),0,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((125)*1.),0)
    set Boss_Spell_data3[data]=48
    set Boss_Spell_X[data]=Unit_Fire_Damage[(Boss_Spell_data1[data])]*Unit_Frost_Damage[(Boss_Spell_data1[data])]*($C8*lv+(7.5+1.5*lv)*GetHeroState3(c,true))
    set Boss_Spell_Y[data]=Unit_Fire_Damage[(Boss_Spell_data1[data])]*Unit_Frost_Damage[(Boss_Spell_data1[data])]*((5+3*lv)*GetHeroState3(c,true))
    call HeroSkills_A0NE_onSpell((Boss_Spell_data1[data]),1,0)
    call Lfv(Boss_Spell_data2[data],$FF,$FF,$FF,0)
    call Unit_App_Counter(634,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,TRUE,function HeroSkills_A0NS_Start)
    set c=null
endfunction

function HeroSkills_A0NS_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NS',function HeroSkills_A0NS_Actions)
    call Luv('A0NS')
endfunction

function s__WaterStreamFX_end takes integer this returns boolean
    local real x=s__barrage_X[this]
    local real y=s__barrage_Y[this]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,275+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,275)then
            if IsUnitAliveAndAlly(u,s__barrage_atkunit[this])then
                if s__WaterStreamFX_bool_A0NV[this]then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",u,"chest"))
                    call UnitCureTaret(s__barrage_atkunit[this],u,.4*s__WaterStreamFX_damage[this])
                else
                    call DestroyEffect(AddSpecialEffectTarget("WaterBlast.mdl",u,"chest"))
                    call UnitCureTaret(s__barrage_atkunit[this],u,.2*s__WaterStreamFX_damage[this])
                endif
            elseif not s__WaterStreamFX_bool_A0NV[this]and IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                call DestroyEffect(AddSpecialEffectTarget("WaterBlast.mdl",u,"chest"))
                call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__WaterStreamFX_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'ACfn',$D0102)
            endif
        endif
    endloop
    if s__WaterStreamFX_bool_A0NV[this]then
        call Lqv(LAv("LightStrikeArray.mdl",x,y,1.25),1.27)
    else
        call Lqv(LNv("WaterNovaTarget.mdl",x,y,s__barrage_Z[this],1.5),1.5)
    endif
    return true
endfunction

function s__WaterStreamFX_start_02 takes integer this returns boolean
    if s__WaterStreamFX_count[this]<8 then
        set s__WaterStreamFX_count[this]=s__WaterStreamFX_count[this]+1
        call SetUnitScale(II[(s__barrage_model[this])],((.25+1.25*s__WaterStreamFX_count[this]/ 8.)*1.),0,0)
        if s__WaterStreamFX_count[this]==8 then
            set s__barrage_CollisionRange[this]=80
        endif
    endif
    return false
endfunction

function s__WaterStreamFX_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__WaterStreamFX_launcher]
    local unit u
    if this!=s__WaterStreamFX_launcher then
        call UseBarrage(s__WaterStreamFX_launcher)
        loop
            exitwhen this==s__WaterStreamFX_launcher
            if(s__barrage_outside[(this)])then
                call s__WaterStreamFX_end(this)
                call RemoveBarrage(this)
            elseif(s__barrage_finish[(this)])then
                if s__WaterStreamFX_end(this)then
                    call RemoveBarrage(this)
                else
                    set s__barrage_finish[(this)]=false
                endif
            else
                if s__WaterStreamFX_start_02(this)then
                    call RemoveBarrage(this)
                endif
                if s__barrage_CollisionRange[this]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                                call GroupAddUnit(s__barrage_enum_g[this],u)
                                if u!=s__barrage_atkunit[this]and UnitAlive(u)then
                                    set u=null
                                    call s__WaterStreamFX_end(this)
                                    call RemoveBarrage(this)
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__WaterStreamFX_launcher]then
        set s__barrage_InOperation[s__WaterStreamFX_launcher]=false
        call frv(s__WaterStreamFX_func)
    endif
endfunction

function s__WaterStreamFX_fired takes integer this returns nothing
    call s__barrage_Filling((s__WaterStreamFX_launcher),(this))
    if not s__barrage_InOperation[s__WaterStreamFX_launcher]then
        set s__barrage_InOperation[s__WaterStreamFX_launcher]=true
        call fov(s__WaterStreamFX_func)
    endif
endfunction

function s__WaterStreamFX_onInit takes nothing returns nothing
    set s__WaterStreamFX_launcher=NewLauncher()
    set s__WaterStreamFX_func=fxv(function s__WaterStreamFX_start)
endfunction

function s__WaterStreamFX_create takes integer cue,real x,real y,real a,real d returns integer
    local integer this=CreateBarrageTypeD(x,y,75,x+900*Cos(a),y+900*Sin(a),75)
    set s__barrage_atkunit[this]=(Je[(cue)])
    set s__barrage_speed[this]=.03125*1200.
    set s__WaterStreamFX_bool_A0NV[this]=HeroSkills_A0NV_Use[(cue)]
    set s__WaterStreamFX_damage[this]=d
    set s__WaterStreamFX_count[this]=0
    if s__WaterStreamFX_bool_A0NV[this]then
        call LMv(s__barrage_model[this],"Abilities\\Spells\\Other\\HealingSpray\\HealBottleMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[this])],((.25)*1.),0,0)
    else
        call LMv(s__barrage_model[this],"Abilities\\Weapons\\WaterElementalMissile\\WaterElementalMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[this])],((.25)*1.),0,0)
    endif
    call Ltv(LIv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x,y,75,.5,a,0))
    call s__WaterStreamFX_fired(this)
    return this
endfunction

function HeroSkills_A0NT_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    local real y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    local real a
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    set a=bj_DEGTORAD*(GetUnitFacing(II[(Boss_Spell_data2[data])]))+.125*Lx*((Boss_Spell_data3[data]-3.5)/ 3.5+GetRandomReal(-.075,.075))
    call s__WaterStreamFX_create(Boss_Spell_data1[data],x,y,a,Boss_Spell_V[data])
    if Boss_Spell_data3[data]<1 then
        call Unit_Cancel_Counter(635,Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:428")
    endif
endfunction

function HeroSkills_A0NT_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv
    local real x
    local real y
    local real a
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set x=GetUnitX((Je[(Boss_Spell_data1[data])]))
    set y=GetUnitY((Je[(Boss_Spell_data1[data])]))
    set a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Boss_Spell_data2[data]=Lnv(x+50*Cos(a),y+50*Sin(a),a)
    call LMv(Boss_Spell_data2[data],"Abilities\\Weapons\\SpiritOfVengeanceMissile\\SpiritOfVengeanceMissile.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((5)*1.),0,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((100)*1.),0)
    set Boss_Spell_data3[data]=8
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A0NK')
    set Boss_Spell_V[data]=Unit_Frost_Damage[(Boss_Spell_data1[data])]*(50*lv+(2.5+.15*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true))
    call HeroSkills_A0NE_onSpell((Boss_Spell_data1[data]),1,1)
    call Unit_App_Counter(636,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.0625,true,function HeroSkills_A0NT_Start)
endfunction

function HeroSkills_A0NT_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NT',function HeroSkills_A0NT_Actions)
    call Luv('A0NT')
endfunction

function s__Cyclone_alloc takes nothing returns integer
    return D9v(s__Cyclone_func)
endfunction

function s__Cyclone_stop takes integer this returns nothing
    call fvv(this)
endfunction

function s__Cyclone_start takes nothing returns nothing
    local integer this=J[s__Cyclone_func]
    local integer cFv
    local unit u
    local integer i
    local real x
    local real y
    local real a
    local real d
    loop
        exitwhen 0==this
        set s__Cyclone_time[this]=s__Cyclone_time[this]-1
        set i=8
        set x=(GetUnitX(II[(s__Cyclone_eff_model[this])]))
        set y=(GetUnitY(II[(s__Cyclone_eff_model[this])]))
        loop
            set i=i-1
            set a=(I2R(i)/ 8+s__Cyclone_time[this]/ 40.)*Lx
            set cFv=LoadInteger(BYHT,s__Cyclone_vessel[this],i)
            call LKv(cFv,x+s__Cyclone_Range*Cos(a))
            call Llv(cFv,y+s__Cyclone_Range*Sin(a))
            call SetUnitFacing(II[(cFv)],((a-.25*Lx)*1.)*bj_RADTODEG)
            exitwhen i==0
        endloop
        if ModuloInteger(s__Cyclone_time[this],8)==0 then
            set i=2
            loop
                set i=i-1
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(25,s__Cyclone_Range-25)
                call Ltv(Lbv(LVv('e02V',x+d*Cos(a),y+d*Sin(a),0),1.25,3))
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,s__Cyclone_Range+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,s__Cyclone_Range)then
                    if IsUnitAliveAndEnemy(u,(Je[(s__Cyclone_Unit[this])]))then
                        if pMv(u,false)then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",u,"chest"))
                            call UnitDamageTargetBY((((Je[(s__Cyclone_Unit[this])]))),((u)),(((((4+2*Unit_MATK[(s__Cyclone_Unit[this])])*s__Cyclone_damage[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0086c7f7")))
                        elseif GetUnitAbilityLevel(u,'Bfro')==1 then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl",u,"chest"))
                            call UnitDamageTargetBY((((Je[(s__Cyclone_Unit[this])]))),((u)),((((3*s__Cyclone_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        else
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ZigguratFrostMissile\\ZigguratFrostMissile.mdl",u,"chest"))
                            call UnitDamageTargetBY((((Je[(s__Cyclone_Unit[this])]))),((u)),((((s__Cyclone_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                        call UnitAppBuff((GetUnitUserData((u))),'A0OE',$D006B)
                    endif
                endif
            endloop
        endif
        if s__Cyclone_time[this]<1 then
            set i=8
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,s__Cyclone_vessel[this],i)))
                exitwhen i==0
            endloop
            call Unit_Cancel_Counter(637,s__Cyclone_Unit[this])
            call free(s__Cyclone_vessel[this])
            call Ltv(s__Cyclone_eff_model[this])
            call fvv((this))
        endif
        set this=K[this]
    endloop
endfunction

function s__Cyclone_onInit takes nothing returns nothing
    set s__Cyclone_func=fxv(function s__Cyclone_start)
endfunction

function HeroSkills_A0NU_Actions takes nothing returns nothing
    local integer data=(D9v(s__Cyclone_func))
    local integer i=8
    local integer lv
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real a
    local integer cFv
    local unit u
    set s__Cyclone_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set s__Cyclone_vessel[data]=malloc()
    set s__Cyclone_eff_model[data]=LAv("FreezingPrison.mdl",x,y,3.75)
    set s__Cyclone_time[data]=$A0
    set lv=GetUnitAbilityLevel((Je[(s__Cyclone_Unit[data])]),'A0NK')
    set s__Cyclone_damage[data]=.25*Unit_Frost_Damage[(s__Cyclone_Unit[data])]*(25*lv+(2.5+.5*lv)*GetHeroState3((Je[(s__Cyclone_Unit[data])]),true))
    loop
        set i=i-1
        set a=i*Lx/ 8
        set cFv=Lnv(x+s__Cyclone_Range*Cos(a),y+s__Cyclone_Range*Sin(a),a-.25*Lx)
        call LMv(cFv,"Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl")
        call SetUnitScale(II[(cFv)],((1.25)*1.),0,0)
        call SetUnitFlyHeight(II[(cFv)],((50)*1.),0)
        call SaveInteger(BYHT,s__Cyclone_vessel[data],i,cFv)
        exitwhen i==0
    endloop
    call Ltv(LAv("FrostNova.mdl",x,y,1.25))
    call zhv((Kc[(s__Cyclone_Unit[data])]),25,.5)
    call HeroSkills_A0NE_onSpell((s__Cyclone_Unit[data]),1,3)
    call Unit_App_Counter(638,s__Cyclone_Unit[data])
endfunction

function HeroSkills_A0NU_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NU',function HeroSkills_A0NU_Actions)
    call Luv('A0NU')
endfunction

function HeroSkills_A0O4_Cancel takes integer id returns nothing
    if HeroSkills_A0O4_Use[id]then
        set HeroSkills_A0O4_Last[HeroSkills_A0O4_Next[id]]=HeroSkills_A0O4_Last[id]
        set HeroSkills_A0O4_Next[HeroSkills_A0O4_Last[id]]=HeroSkills_A0O4_Next[id]
        set HeroSkills_A0O4_Use[id]=false
        if HeroSkills_A0O4_Next[(0)]==0 then
            call frv(HeroSkills_A0O4_Func)
        endif
        call Unit_Cancel_Counter(639,(id))
    endif
endfunction

function toe takes nothing returns boolean
    local integer id=HeroSkills_A0O4_Next[(0)]
    local unit u
    local real x
    local real y
    loop
        exitwhen id==0
        set HeroSkills_A0O4_Time[id]=HeroSkills_A0O4_Time[id]-1
        if ModuloInteger(HeroSkills_A0O4_Time[id],32)==0 then
            set x=(GetUnitX(II[(HeroSkills_A0O4_Model[id])]))
            set y=(GetUnitY(II[(HeroSkills_A0O4_Model[id])]))
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndAlly(u,(Je[(id)]))then
                        call UnitCureTaret((Je[(id)]),u,HeroSkills_A0O4_Damage[id])
                    endif
                endif
            endloop
        endif
        if HeroSkills_A0O4_Time[id]<1 then
            call DestroyEffectBY(HeroSkills_A0O4_Eff[id])
            call Ltv(HeroSkills_A0O4_Model[id])
            call HeroSkills_A0O4_Cancel(id)
        endif
        set id=HeroSkills_A0O4_Next[id]
    endloop
    return false
endfunction

function HeroSkills_A0O4_App takes integer id returns boolean
    if not HeroSkills_A0O4_Use[id]then
        if HeroSkills_A0O4_Next[(0)]==0 then
            if HeroSkills_A0O4_Func==0 then
                set HeroSkills_A0O4_Func=fxv(function toe)
            endif
            call fov(HeroSkills_A0O4_Func)
        endif
        set HeroSkills_A0O4_Next[id]=HeroSkills_A0O4_Next[(0)]
        set HeroSkills_A0O4_Last[HeroSkills_A0O4_Next[(0)]]=id
        set HeroSkills_A0O4_Next[(0)]=id
        set HeroSkills_A0O4_Last[id]=0
        set HeroSkills_A0O4_Use[id]=true
        call Unit_App_Counter(640,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A0O4_Actionst takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0NK')
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    if HeroSkills_A0O4_App(id)then
        set HeroSkills_A0O4_Model[id]=Lnv(x,y,0)
        call LMv(HeroSkills_A0O4_Model[id],"cumulonimbus.mdl")
        call SetUnitScale(II[(HeroSkills_A0O4_Model[id])],((2)*1.),0,0)
        set HeroSkills_A0O4_Eff[id]=(s__Effect_build(AddSpecialEffectTarget(("WaterAurora.mdl"),(II[HeroSkills_A0O4_Model[id]]),("origin"))))
    else
        call LKv(HeroSkills_A0O4_Model[id],x)
        call Llv(HeroSkills_A0O4_Model[id],y)
    endif
    set HeroSkills_A0O4_Time[id]=320
    set HeroSkills_A0O4_Damage[id]=Unit_Frost_Damage[(id)]*(25*lv+(.5+.05*lv)*GetHeroState3((Je[(id)]),true))
    call Lqv(LAv("Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl",x,y,1.5),5)
    call HeroSkills_A0NE_onSpell((id),1,4)
endfunction

function HeroSkills_A0O4_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0O4',function HeroSkills_A0O4_Actionst)
    call Luv('A0O4')
endfunction

function HeroSkills_A0NL_Spell takes nothing returns nothing
    call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),2)
endfunction

function HeroSkills_A0NL_Channel takes nothing returns nothing
    if HeroSkills_A0NE_IsHasBuff(((GetUnitUserData((GetTriggerUnit())))))then
        call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),2)
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    else
        call UnitAnimationSetName(UnitAnimationAddEffect(UnitAnimationAddEffect(UnitAppAnimation(GetTriggerUnit()),"MoonfireHands.mdl","hand right"),"MoonfireHands.mdl","hand left"),"spell one")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Tornado\\TornadoElementalSmall.mdl",GetTriggerUnit(),"origin"))
    endif
endfunction

function HeroSkills_A0NL_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0NL',function HeroSkills_A0NL_Channel)
    call RegisterSpellEffectEvent('A0NL',function HeroSkills_A0NL_Spell)
    call Luv('A0NL')
    call ExecuteFunc("HeroSkills_A0NW_Init")
    call ExecuteFunc("HeroSkills_A0NZ_Init")
    call ExecuteFunc("HeroSkills_A0O0_Init")
    call ExecuteFunc("HeroSkills_A0O2_Init")
endfunction

function HeroSkills_A0NW_Stop takes integer id returns nothing
    if HeroSkills_A0NW_Use[id]then
        set HeroSkills_A0NW_Last[HeroSkills_A0NW_Next[id]]=HeroSkills_A0NW_Last[id]
        set HeroSkills_A0NW_Next[HeroSkills_A0NW_Last[id]]=HeroSkills_A0NW_Next[id]
        set HeroSkills_A0NW_Use[id]=false
        if HeroSkills_A0NW_Next[(0)]==0 then
            call frv(HeroSkills_A0NW_Func)
        endif
        call Unit_Cancel_Counter(641,(id))
    endif
endfunction

function HeroSkills_A0NW_Loop takes nothing returns nothing
    local integer id=HeroSkills_A0NW_Next[(0)]
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set HeroSkills_A0NW_Time[id]=HeroSkills_A0NW_Time[id]-1
            if HeroSkills_A0NW_AtkCD[id]>0 then
                set HeroSkills_A0NW_AtkCD[id]=HeroSkills_A0NW_AtkCD[id]-1
            endif
        else
            set HeroSkills_A0NW_Time[id]=0
        endif
        if HeroSkills_A0NW_Time[id]<1 then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0NX','B04Y')
            call ModifyUnitAttackSpeed((id),-HeroSkills_A0NW_AtkSpeed[id])
            call ModifyUnitAttack((id),-HeroSkills_A0NW_AtkValue[id])
            call HeroSkills_A0NW_Consumption((id))
            call s__Trig_remove((HeroSkills_A0NW_AtkTrig[id]))
            call HeroSkills_A0NW_Stop(id)
        endif
        set id=HeroSkills_A0NW_Next[id]
    endloop
endfunction

function HeroSkills_A0NW_Open takes integer id returns boolean
    if not HeroSkills_A0NW_Use[id]then
        if HeroSkills_A0NW_Next[(0)]==0 then
            if HeroSkills_A0NW_Func==0 then
                set HeroSkills_A0NW_Func=fxv(function HeroSkills_A0NW_Loop)
            endif
            call fov(HeroSkills_A0NW_Func)
        endif
        set HeroSkills_A0NW_Next[id]=HeroSkills_A0NW_Next[(0)]
        set HeroSkills_A0NW_Last[HeroSkills_A0NW_Next[(0)]]=id
        set HeroSkills_A0NW_Next[(0)]=id
        set HeroSkills_A0NW_Last[id]=0
        set HeroSkills_A0NW_Use[id]=true
        call Unit_App_Counter(642,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A0NW_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    if HeroSkills_A0NW_AtkCD[id]==0 and GetRandomInt(1,8)==1 then
        set HeroSkills_A0NW_AtkCD[id]=R2I(32*7.5)
        call DestroyEffect(AddSpecialEffectTarget("NewGroundEX.mdl",(MF),"chest"))
        call HeroSkills_A0NW_Up((id))
        call Ltv(LNv("OrbOfFire.mdl",GetUnitX((MF)),GetUnitY((MF)),GetUnitFlyHeight((MF)),1.25))
        call DamageAmplifyDis(6*GetHeroStateByMax((MV[GetPlayerId(GetOwningPlayer(Je[((pF_v))]))])),$F,"|cffffbbbb")
        call zhv((Kc[(id)]),20,.25)
    endif
endfunction

function HeroSkills_A0NW_Actions takes nothing returns nothing
    local integer target=(GetUnitUserData((GetSpellTargetUnit())))
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer tbe=R2I(2*GetHeroState3((Je[(id)]),true))
    local integer tBe=R2I(25*Unit_Fire_Damage[(id)]*Unit_Gas_Damage[(id)])
    if HeroSkills_A0NW_Open(target)then
        set HeroSkills_A0NW_AtkTrig[target]=UnitAddPAttackTrigB((target),function HeroSkills_A0NW_onAttack)
        set HeroSkills_A0NW_AtkCD[target]=0
        call UnitAddAbilityBY((Je[(target)]),'A0NX')
        call ModifyUnitAttackSpeed((target),tBe)
        call ModifyUnitAttack((target),tbe)
    else
        call ModifyUnitAttackSpeed((target),tBe-HeroSkills_A0NW_AtkSpeed[target])
        call ModifyUnitAttack((target),tbe-HeroSkills_A0NW_AtkValue[target])
    endif
    set HeroSkills_A0NW_Time[target]=R2I(32*45)
    set HeroSkills_A0NW_AtkSpeed[target]=tBe
    set HeroSkills_A0NW_AtkValue[target]=tbe
    call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl"),((Je[(target)])),("origin")))),5)
    call HeroSkills_A0NE_onSpell((id),3,0)
endfunction

function HeroSkills_A0NW_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NW',function HeroSkills_A0NW_Actions)
    call Luv('A0NW')
endfunction

function HeroSkills_A0NZ_Buff_Expierd takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:429")
    if HeroSkills_A0NZ_Buff_Mdef[id]!=0 then
        call ModifyUnitMagicDamage((id),-5)
        call DeUnitMdef((id),HeroSkills_A0NZ_Buff_Mdef[id])
    endif
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0O1','B050')
    call ModifyUnitMagicDamage((id),-7.5)
    call Unit_Cancel_Counter(643,(id))
    set HeroSkills_A0NZ_Buff_Timer[id]=null
endfunction

function HeroSkills_A0NZ_Buff_Add takes unit u,boolean Lhe returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0NZ_Buff_Timer[id]==null then
        set HeroSkills_A0NZ_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0NZ_Buff_Mdef[id]=0
        call UnitAddAbilityBY(u,'A0O1')
        call ModifyUnitMagicDamage((id),7.5)
        call Unit_App_Counter(644,(id))
    endif
    if Lhe and HeroSkills_A0NZ_Buff_Mdef[id]==0 then
        set HeroSkills_A0NZ_Buff_Mdef[id]=ModifyUnitMdef((id),20)
        call ModifyUnitMagicDamage((id),5)
        call NewTextTagInTarget_B((Je[(id)]),"|c00b1f5e8+5% Skill damage
        +20% Magic defense",7,$FF,$FF,$FF)

    endif
    call TimerStart(HeroSkills_A0NZ_Buff_Timer[id],4,false,function HeroSkills_A0NZ_Buff_Expierd)
endfunction

function HeroSkills_A0NZ_Stop takes integer id returns nothing
    if HeroSkills_A0NZ_Use[id]then
        set HeroSkills_A0NZ_Last[HeroSkills_A0NZ_Next[id]]=HeroSkills_A0NZ_Last[id]
        set HeroSkills_A0NZ_Next[HeroSkills_A0NZ_Last[id]]=HeroSkills_A0NZ_Next[id]
        set HeroSkills_A0NZ_Use[id]=false
        if HeroSkills_A0NZ_Next[(0)]==0 then
            call frv(HeroSkills_A0NZ_Func)
        endif
        call Unit_Cancel_Counter(645,(id))
    endif
endfunction

function HeroSkills_A0NZ_Start takes nothing returns nothing
    local integer id=HeroSkills_A0NZ_Next[(0)]
    local unit u
    local boolean Jme
    local boolean Lhe
    local real x
    local real y
    local real tX
    local real tY
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set HeroSkills_A0NZ_Time[id]=HeroSkills_A0NZ_Time[id]-1
            set Jme=false
            set x=(GetUnitX(II[(HeroSkills_A0NZ_Model[id])]))
            set y=(GetUnitY(II[(HeroSkills_A0NZ_Model[id])]))
            if HeroSkills_A0NZ_Count[id]==0 then
                set Jme=ModuloInteger(HeroSkills_A0NZ_Time[id],32)==0
            elseif ModuloInteger(HeroSkills_A0NZ_Time[id],4)==0 then
                set Jme=true
                set HeroSkills_A0NZ_Count[id]=HeroSkills_A0NZ_Count[id]-1
            endif
            if Jme then
                set u=EnumUnitsMinRange((Je[(id)]),x,y,750)
                if u!=null then
                    set tX=GetUnitX(u)
                    set tY=GetUnitY(u)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"chest"))
                    call Ltv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",tX,tY,1.5))
                    call Psv("CLPB",x,y,75,u,.5,1,0)
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A0NZ_Damage[id])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call GroupEnumUnitsInRange(G,tX,tY,$C8+75,null)
                    call GroupRemoveUnit(G,u)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,tX,tY,$C8)then
                            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"chest"))
                                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((HeroSkills_A0NZ_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        endif
                    endloop
                endif
            endif
            if ModuloInteger(HeroSkills_A0NZ_Time[id],16)==0 then
                set Lhe=HeroSkills_A0O4_Use[(id)]and IsUnitInRangeXY(II[HeroSkills_A0O4_Model[(id)]],x,y,300)
                call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$FA)then
                        if IsUnitAllyNotbag(u,(Je[(id)]))and GetUnitAbilityLevel(u,'A04P')==0 then
                            call HeroSkills_A0NZ_Buff_Add(u,Lhe)
                        endif
                    endif
                endloop
            endif
        else
            set HeroSkills_A0NZ_Time[id]=0
        endif
        if HeroSkills_A0NZ_Time[id]<1 then
            call Ltv(HeroSkills_A0NZ_Model[id])
            call HeroSkills_A0NZ_Stop(id)
        endif
        set id=HeroSkills_A0NZ_Next[id]
    endloop
endfunction

function HeroSkills_A0NZ_Open takes integer id returns boolean
    if not HeroSkills_A0NZ_Use[id]then
        if HeroSkills_A0NZ_Next[(0)]==0 then
            if HeroSkills_A0NZ_Func==0 then
                set HeroSkills_A0NZ_Func=fxv(function HeroSkills_A0NZ_Start)
            endif
            call fov(HeroSkills_A0NZ_Func)
        endif
        set HeroSkills_A0NZ_Next[id]=HeroSkills_A0NZ_Next[(0)]
        set HeroSkills_A0NZ_Last[HeroSkills_A0NZ_Next[(0)]]=id
        set HeroSkills_A0NZ_Next[(0)]=id
        set HeroSkills_A0NZ_Last[id]=0
        set HeroSkills_A0NZ_Use[id]=true
        call Unit_App_Counter(646,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A0NZ_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    if HeroSkills_A0NZ_Open(id)then
        set HeroSkills_A0NZ_Model[id]=Lnv(x,y,0)
        call LMv(HeroSkills_A0NZ_Model[id],"OutlandStorm.mdl")
        call SetUnitScale(II[(HeroSkills_A0NZ_Model[id])],((1.5)*1.),0,0)
        call SetUnitFlyHeight(II[(HeroSkills_A0NZ_Model[id])],(($96)*1.),0)
        set HeroSkills_A0NZ_Count[id]=0
        set HeroSkills_A0NZ_Time[id]=320
    else
        call LKv(HeroSkills_A0NZ_Model[id],x)
        call Llv(HeroSkills_A0NZ_Model[id],y)
        set HeroSkills_A0NZ_Time[id]=640
    endif
    set HeroSkills_A0NZ_Damage[id]=Unit_Lightning_Damage[(id)]*Unit_Gas_Damage[(id)]*(2.5+.5*GetUnitAbilityLevel((Je[(id)]),'A0NL'))*GetHeroState3((Je[(id)]),true)
    call HeroSkills_A0NE_onSpell((id),3,1)
endfunction

function uJe takes integer id returns boolean
    if HeroSkills_A0NZ_Use[id]then
        set HeroSkills_A0NZ_Count[id]=5
        call LQv(LAv("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl",(GetUnitX(II[(HeroSkills_A0NZ_Model[id])])),(GetUnitY(II[(HeroSkills_A0NZ_Model[id])])),2.5),2)
        call Ltv(LAv("Great Lightning.mdl",(GetUnitX(II[(HeroSkills_A0NZ_Model[id])])),(GetUnitY(II[(HeroSkills_A0NZ_Model[id])])),1.5))
    endif
    return true
endfunction

function HeroSkills_A0NZ_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NZ',function HeroSkills_A0NZ_Actions)
    call Luv('A0NZ')
endfunction

function s__WindBlast_attacktarget takes integer this,unit u returns boolean
    if not(IsUnitType((u),UNIT_TYPE_GIANT))and IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
        call DestroyEffect(AddSpecialEffectTarget("OrbOfWind.mdl",u,"chest"))
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__WindBlast_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        if not(IsUnitType((u),UNIT_TYPE_GIANT))then
            call Gjv(u,$96,(s__barrage_facing[(this)]),1,"KnockbackDust.mdl")
        endif
    endif
    return false
endfunction

function s__WindBlast_start_02 takes integer this returns boolean
    local integer h4e=s__barrage_FR[s__WaterBombFX_launcher]
    loop
        exitwhen h4e==s__WaterBombFX_launcher
        if s__barrage_atkunit[h4e]==s__barrage_atkunit[this]and not s__WaterBombFX_bool_A0O0[h4e]and IsUnitInRange(II[s__barrage_model[h4e]],II[s__barrage_model[this]],s__barrage_CollisionRange[this])then
            set s__WaterBombFX_bool_A0O0[h4e]=true
            set s__WaterBombFX_damage[h4e]=s__WaterBombFX_damage[h4e]+s__WindBlast_damage[this]
            set s__barrage_speed[h4e]=s__barrage_speed[h4e]+.03125*1000.
            call Lqv(LAv("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",s__barrage_X[h4e],s__barrage_Y[h4e],1.5),1.5)
            call MoveLocationEZ(s__barrage_p2[h4e],s__barrage_X[this]+$4B0*Cos((s__barrage_facing[(this)])),s__barrage_Y[this]+$4B0*Sin((s__barrage_facing[(this)])),s__locationez_Z[s__barrage_p2[h4e]])
            call BarrageMoveFiringPoint(h4e)
        endif
        set h4e=s__barrage_FR[h4e]
    endloop
    set s__WindBlast_count[this]=s__WindBlast_count[this]+1
    if s__WindBlast_count[this]<32 then
        call SetUnitScale(II[(s__barrage_model[this])],((1+s__WindBlast_count[this]/ 16.)*1.),0,0)
        set s__barrage_CollisionRange[this]=$96+$96*s__WindBlast_count[this]/ 32.
    endif
    if ModuloInteger(s__WindBlast_count[this],4)==0 then
        call Ltv(LAv("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",s__barrage_X[this],s__barrage_Y[this],3+MinR(s__WindBlast_count[this]/ 12.,3)))
    endif
    return false
endfunction

function s__WindBlast_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__WindBlast_launcher]
    local unit u
    if this!=s__WindBlast_launcher then
        call UseBarrage(s__WindBlast_launcher)
        loop
            exitwhen this==s__WindBlast_launcher
            if(s__barrage_outside[(this)])then
                call RemoveBarrage(this)
            elseif(s__barrage_finish[(this)])then
                call RemoveBarrage(this)
            else
                call s__WindBlast_start_02(this)
                if s__barrage_CollisionRange[this]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                                call GroupAddUnit(s__barrage_enum_g[this],u)
                                if u!=s__barrage_target[this]and s__WindBlast_attacktarget(this,u)then
                                    set u=null
                                    call RemoveBarrage(this)
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__WindBlast_launcher]then
        set s__barrage_InOperation[s__WindBlast_launcher]=false
        call frv(s__WindBlast_func)
    endif
endfunction

function s__WindBlast_fired takes integer this returns nothing
    call s__barrage_Filling((s__WindBlast_launcher),(this))
    if not s__barrage_InOperation[s__WindBlast_launcher]then
        set s__barrage_InOperation[s__WindBlast_launcher]=true
        call fov(s__WindBlast_func)
    endif
endfunction

function s__WindBlast_onInit takes nothing returns nothing
    set s__WindBlast_launcher=NewLauncher()
    set s__WindBlast_func=fxv(function s__WindBlast_start)
endfunction

function HeroSkills_A0O0_Actions takes nothing returns boolean
    local unit cue=GetTriggerUnit()
    local integer lv=GetUnitAbilityLevel(cue,'A0NL')
    local real x=GetUnitX(cue)
    local real y=GetUnitY(cue)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local integer t=CreateBarrageTypeD(x-450*Cos(a),y-450*Sin(a),0,x+600*Cos(a),y+600*Sin(a),0)
    set s__barrage_atkunit[t]=cue
    call LMv(s__barrage_model[t],"ShockwaveMissile.mdl")
    set s__barrage_CollisionRange[t]=150.
    set s__barrage_speed[t]=.03125*250.
    set s__barrage_acceleration[t]=.03125*.03125*3250.
    set s__WindBlast_count[t]=0
    set s__WindBlast_damage[t]=400*lv+(20+3*lv)*GetHeroState3(s__barrage_atkunit[t],true)
    call HeroSkills_A0NE_onSpell(((GetUnitUserData((cue)))),3,3)
    call s__WindBlast_fired(t)
    set cue=null
    return false
endfunction

function HeroSkills_A0O0_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0O0',function HeroSkills_A0O0_Actions)
    call Luv('A0O0')
endfunction

function s__BigRock_impact takes integer this returns boolean
    local real x=s__barrage_X[this]
    local real y=s__barrage_Y[this]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,325+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,325)then
            if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                if s__BigRock_eff[this]==0 then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"chest"))
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__BigRock_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                else
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\DemolisherFireMissile\\DemolisherFireMissile.mdl",u,"chest"))
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__BigRock_damage[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00dd5542")))
                endif
                call m1v(u,.75)
            endif
        endif
    endloop
    call zhv((GetPlayerId((GetOwningPlayer(s__barrage_atkunit[this])))),40,.25)
    if s__BigRock_eff[this]==0 then
        call Ltv(LAv("NewDirtEXNofire.mdl",x,y,1.25))
    else
        call Ltv(Lfv(LAv("NewDirtEXNofire.mdl",x,y,1.25),$FF,125,125,$FF))
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2.5))
        call DestroyEffectBY(s__BigRock_eff[this])
        set s__BigRock_eff[this]=0
    endif
    return TRUE
endfunction

function s__BigRock_start takes nothing returns nothing
    local integer this=s__barrage_FR[s__BigRock_launcher]
    local unit u
    if this!=s__BigRock_launcher then
        call UseBarrage(s__BigRock_launcher)
        loop
            exitwhen this==s__BigRock_launcher
            if(s__barrage_outside[(this)])then
                call s__BigRock_impact(this)
                call RemoveBarrage(this)
            elseif(s__barrage_finish[(this)])then
                call s__BigRock_impact(this)
                call RemoveBarrage(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__BigRock_launcher]then
        set s__barrage_InOperation[s__BigRock_launcher]=false
        call frv(s__BigRock_func)
    endif
endfunction

function s__BigRock_fired takes integer this returns nothing
    call s__barrage_Filling((s__BigRock_launcher),(this))
    if not s__barrage_InOperation[s__BigRock_launcher]then
        set s__barrage_InOperation[s__BigRock_launcher]=true
        call fov(s__BigRock_func)
    endif
endfunction

function s__BigRock_create takes integer cue,real x,real y,real a,real biv returns integer
    local real d=GetRandomReal($E1,425)
    local integer this=CreateBarrageTypeD(x,y,GetRandomReal($C8,300),x+d*Cos(a),y+d*Sin(a),0)
    set s__barrage_atkunit[this]=(Je[(cue)])
    call LMv(s__barrage_model[this],"Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[this])],((2.75)*1.),0,0)
    call SetBarrageFlightRadian(this,GetRandomReal(.75,.95))
    call SetBarrageFlightRadianEZ(this,.25)
    set s__barrage_speed[this]=0
    set s__barrage_acceleration[this]=.03125*.03125*750.
    set s__BigRock_damage[this]=biv
    call Ltv(LNv("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",x,y,s__barrage_Z[this],2.5))
    call s__BigRock_fired(this)
    return this
endfunction

function s__BigRock_onInit takes nothing returns nothing
    set s__BigRock_launcher=NewLauncher()
    set s__BigRock_func=fxv(function s__BigRock_start)
endfunction

function HeroSkills_A0O2_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer Zhv
    local real eoe
    local real x
    local real y
    local real a
    local real zA
    local real d
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if Boss_Spell_data3[data]>=32 then
        set eoe=1-(Boss_Spell_data3[data]-32.)/ 48.
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        set a=GetRandomReal(0,Lx)
        set zA=GetRandomReal(-.5*bj_PI,.5*bj_PI)
        set d=$96+450*eoe
        set Zhv=CreateBarrageTypeD(x+d*Cos(a)*Sin(zA),y+d*Sin(a)*Sin(zA),$FA*Cos(zA),x,y,0)
        call SetBarrageFlightRadian(Zhv,.3)
        set s__barrage_speed[Zhv]=$A
        set s__barrage_acceleration[Zhv]=2.5+5*eoe
        call LMv(s__barrage_model[Zhv],"Abilities\\Spells\\Other\\Tornado\\Tornado_Target.mdl")
        call SetUnitScale(II[(s__barrage_model[Zhv])],((3.5+3.5*eoe)*1.),0,0)
        call SetUnitScale(II[(Boss_Spell_data2[data])],((.25+2.75*eoe)*1.),0,0)
        call dAe(Zhv)
    elseif ModuloInteger(Boss_Spell_data3[data],4)==0 then
        call s__BigRock_create(Boss_Spell_data1[data],(GetUnitX(II[(Boss_Spell_data2[data])])),(GetUnitY(II[(Boss_Spell_data2[data])])),Lx*(Boss_Spell_data3[data]/ 32.+GetRandomReal(-.1,.1)),Boss_Spell_V[data])
        if Boss_Spell_data3[data]<1 then
            call Unit_Cancel_Counter(647,Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:430")
        endif
    endif
endfunction

function HeroSkills_A0O2_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit c=GetTriggerUnit()
    local integer lv=GetUnitAbilityLevel(c,'A0NL')
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    set Boss_Spell_data1[data]=(GetUnitUserData((c)))
    set Boss_Spell_data2[data]=LAv("Abilities\\Spells\\Other\\Tornado\\TornadoElementalSmall.mdl",x,y,.25)
    set Boss_Spell_data3[data]=80
    set Boss_Spell_V[data]=$96*lv+(7.5+1.5*lv)*GetHeroState3(c,true)
    call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",x,y,.5),1)
    call HeroSkills_A0NE_onSpell((Boss_Spell_data1[data]),3,4)
    call Unit_App_Counter(648,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A0O2_Start)
    set c=null
endfunction

function HeroSkills_A0O2_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0O2',function HeroSkills_A0O2_Actions)
    call Luv('A0O2')
endfunction

function HeroSkills_A0NM_Spell takes nothing returns nothing
    call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),3)
endfunction

function HeroSkills_A0NM_Channel takes nothing returns nothing
    if HeroSkills_A0NE_IsHasBuff(((GetUnitUserData((GetTriggerUnit())))))then
        call Hero_H01I_SkillsList_Open((GetUnitUserData((GetTriggerUnit()))),3)
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    else
        call UnitAnimationSetName(UnitAnimationAddEffect(UnitAnimationAddEffect(UnitAppAnimation(GetTriggerUnit()),"EathHands.mdl","hand right"),"EarthHands.mdl","hand left"),"spell one")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\EntangleMine\\Roots.mdl",GetTriggerUnit(),"origin"))
    endif
endfunction

function HeroSkills_A0NM_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0NM',function HeroSkills_A0NM_Channel)
    call RegisterSpellEffectEvent('A0NM',function HeroSkills_A0NM_Spell)
    call Luv('A0NM')
    call ExecuteFunc("HeroSkills_A0O3_Init")
    call ExecuteFunc("HeroSkills_A0NV_Init")
    call ExecuteFunc("HeroSkills_A0O5_Init")
    call ExecuteFunc("HeroSkills_A0O7_Init")
endfunction

function HeroSkills_A0O3_Attack takes integer data returns nothing
    local real x=GetUnitX((Je[(HeroSkills_A0O3_Target[data])]))
    local real y=GetUnitY((Je[(HeroSkills_A0O3_Target[data])]))
    local real sA=bj_DEGTORAD*(GetUnitFacing(II[((data))]))
    local real sX=(GetUnitX(II[((data))]))+96*Cos(sA)
    local real sY=(GetUnitY(II[((data))]))+96*Sin(sA)
    if HeroSkills_A0O3_Time[data]<32 then
        set HeroSkills_A0O3_Time[data]=32
    endif
    call Ltv(LAv("NewDirtEXNofire.mdl",x,y,.75))
    call Ltv(Lbv(LVv('e02Q',x,y,0),5,.375))
    call Ltv(LIv("Epicenter.mdl",sX,sY,87.5,.75,sA+bj_PI,0))
    call zhv((Kc[(HeroSkills_A0O3_AtkUnit[data])]),35,.5)
    call UnitDamageTargetBY((((Je[(HeroSkills_A0O3_AtkUnit[data])]))),(((Je[(HeroSkills_A0O3_Target[data])]))),((((HeroSkills_A0O3_Damage[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00b8bc83")))
    call m1v((Je[(HeroSkills_A0O3_Target[data])]),.25)
endfunction

function HeroSkills_A0O3_Stop takes integer data returns nothing
    if HeroSkills_A0O3_Use[data]then
        set HeroSkills_A0O3_Last[HeroSkills_A0O3_Next[data]]=HeroSkills_A0O3_Last[data]
        set HeroSkills_A0O3_Next[HeroSkills_A0O3_Last[data]]=HeroSkills_A0O3_Next[data]
        set HeroSkills_A0O3_Use[data]=false
        if HeroSkills_A0O3_Next[(0)]==0 then
            call frv(HeroSkills_A0O3_Func)
        endif
    endif
endfunction

function HeroSkills_A0O3_Start_02 takes nothing returns nothing
    local integer data=HeroSkills_A0O3_Next[(0)]
    local integer Zhv
    local integer w3v
    local integer t4e
    local real x
    local real y
    local real a
    local real zA
    local real d
    loop
        exitwhen data==0
        set HeroSkills_A0O3_Time[data]=HeroSkills_A0O3_Time[data]-1
        if HeroSkills_A0O3_Time[data]>=288 then
            if HeroSkills_A0O3_Time[data]==288 then
                set HeroSkills_A0O3_Couit[data]=32
                if UnitAlive((Je[(HeroSkills_A0O3_Target[data])]))then
                    set w3v=HeroSkills_A0O3_Next[(0)]
                    set t4e=0
                    loop
                        exitwhen w3v==0
                        if HeroSkills_A0O3_Couit[w3v]==0 and IsUnitInRange(II[(w3v)],(Je[(HeroSkills_A0O3_AtkUnit[data])]),750)then
                            set t4e=t4e+1
                            call SetUnitFacing(II[((w3v))],((Atan2(GetUnitY((Je[(HeroSkills_A0O3_Target[data])]))-(GetUnitY(II[((w3v))])),GetUnitX((Je[(HeroSkills_A0O3_Target[data])]))-(GetUnitX(II[((w3v))]))))*1.)*bj_RADTODEG)
                            set HeroSkills_A0O3_Target[w3v]=HeroSkills_A0O3_Target[data]
                            set HeroSkills_A0O3_Couit[w3v]=32+8*t4e
                        endif
                        set w3v=HeroSkills_A0O3_Next[w3v]
                    endloop
                endif
                call Ltv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(GetUnitX(II[((data))])),(GetUnitY(II[((data))])),1.25))
            endif
            call Lfv((data),$FF,$FF,$FF,R2I($FF-$FF*(HeroSkills_A0O3_Time[data]-288)/ 32.))
        elseif HeroSkills_A0O3_Couit[data]>0 then
            if IsUnitAliveAndEnemy((Je[(HeroSkills_A0O3_Target[data])]),(Je[(HeroSkills_A0O3_AtkUnit[data])]))then
                set HeroSkills_A0O3_Couit[data]=HeroSkills_A0O3_Couit[data]-1
                if HeroSkills_A0O3_Couit[data]==0 then
                    call HeroSkills_A0O3_Attack(data)
                elseif ModuloInteger(HeroSkills_A0O3_Couit[data],2)==0 then
                    set d=GetRandomReal($96,300)
                    set a=bj_DEGTORAD*(GetUnitFacing(II[((data))]))
                    set x=(GetUnitX(II[((data))]))+96*Cos(a)
                    set y=(GetUnitY(II[((data))]))+96*Sin(a)
                    set a=GetRandomReal(0,Lx)
                    set zA=GetRandomReal(0,.5*Lx)
                    set Zhv=CreateBarrageTypeD(x+d*Cos(a)*Sin(zA),y+d*Sin(a)*Sin(zA),100*Cos(zA),x,y,25)
                    set s__barrage_speed[Zhv]=.03125*450.
                    set s__barrage_acceleration[Zhv]=.03125*.03125*2250.
                    call LMv(s__barrage_model[Zhv],"Abilities\\Weapons\\SpiritOfVengeanceMissile\\SpiritOfVengeanceMissile.mdl")
                    call SetUnitScale(II[(s__barrage_model[Zhv])],((.75)*1.),0,0)
                    call Lfv(s__barrage_model[Zhv],$FF,125,125,$FF)
                    call dAe(Zhv)
                    if HeroSkills_A0O3_Couit[data]==8 then
                        call SetUnitAnimation(II[(data)],"attack")
                    endif
                endif
            else
                set HeroSkills_A0O3_Couit[data]=0
            endif
        elseif HeroSkills_A0O3_Time[data]<1 then
            call Unit_Cancel_Counter(649,HeroSkills_A0O3_AtkUnit[data])
            call Lsv((data),.5)
            call HeroSkills_A0O3_Stop(data)
        endif
        set data=HeroSkills_A0O3_Next[data]
    endloop
endfunction

function HeroSkills_A0O3_Start takes integer data returns integer
    if not HeroSkills_A0O3_Use[data]then
        if HeroSkills_A0O3_Next[(0)]==0 then
            if HeroSkills_A0O3_Func==0 then
                set HeroSkills_A0O3_Func=fxv(function HeroSkills_A0O3_Start_02)
            endif
            call fov(HeroSkills_A0O3_Func)
        endif
        set HeroSkills_A0O3_Next[data]=HeroSkills_A0O3_Next[(0)]
        set HeroSkills_A0O3_Last[HeroSkills_A0O3_Next[(0)]]=data
        set HeroSkills_A0O3_Next[(0)]=data
        set HeroSkills_A0O3_Last[data]=0
        set HeroSkills_A0O3_Use[data]=true
    endif
    return data
endfunction

function HeroSkills_A0O3_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit t=GetSpellTargetUnit()
    local integer lv=GetUnitAbilityLevel(c,'A0NM')
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real tX=GetUnitX(t)
    local real tY=GetUnitY(t)
    local real a=Atan2(tY-y,tX-x)
    local integer data
    set x=x+$80*Cos(a+.25*Lx)
    set y=y+$80*Sin(a+.25*Lx)
    set data=HeroSkills_A0O3_Start(LVv('e02R',x,y,bj_RADTODEG*Atan2(tY-y,tX-x)))
    set HeroSkills_A0O3_AtkUnit[data]=(GetUnitUserData((c)))
    set HeroSkills_A0O3_Target[data]=(GetUnitUserData((t)))
    set HeroSkills_A0O3_Time[data]=320
    set HeroSkills_A0O3_Couit[data]=0
    set HeroSkills_A0O3_Damage[data]=Unit_Fire_Damage[(HeroSkills_A0O3_AtkUnit[data])]*($C80*lv+(25+5*lv)*GetHeroState3(c,true))
    call Lfv((data),$FF,$FF,$FF,0)
    call HeroSkills_A0NE_onSpell((HeroSkills_A0O3_AtkUnit[data]),4,0)
    call Unit_App_Counter(650,HeroSkills_A0O3_AtkUnit[data])
    set c=null
    set t=null
endfunction

function HeroSkills_A0O3_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0O3',function HeroSkills_A0O3_Actions)
    call Luv('A0O3')
endfunction

function HeroSkills_A0NV_String takes integer id,integer t,string fl returns string
    local integer i=HeroSkills_A0NV_Index[id]
    local string s=""
    local string nS=""
    loop
        exitwhen i==0
        set i=i-1
        set nS=GetObjectName(LoadInteger(BYHT,HeroSkills_A0NV_Listing[id],2*i))+": "
        if i==t then
            set nS=nS+fl+I2S(LoadInteger(BYHT,HeroSkills_A0NV_Listing[id],2*i+1))+"%|r"
        else
            set nS=nS+I2S(LoadInteger(BYHT,HeroSkills_A0NV_Listing[id],2*i+1))+"%"
        endif
        if s=="" then
            set s=nS
        else
            set s=s+"
            "+nS

        endif
    endloop
    return s
endfunction

function HeroSkills_A0NV_Cancel takes integer id returns nothing
    if HeroSkills_A0NV_Use[id]then
        set HeroSkills_A0NV_Last[HeroSkills_A0NV_Next[id]]=HeroSkills_A0NV_Last[id]
        set HeroSkills_A0NV_Next[HeroSkills_A0NV_Last[id]]=HeroSkills_A0NV_Next[id]
        set HeroSkills_A0NV_Use[id]=false
        if HeroSkills_A0NV_Next[(0)]==0 then
            call frv(HeroSkills_A0NV_Func)
        endif
        call Unit_Cancel_Counter(651,(id))
    endif
endfunction

function HeroSkills_A0NV_Start takes nothing returns boolean
    local integer id=HeroSkills_A0NV_Next[(0)]
    local string s
    local real x
    local real y
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set s=""
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            if HeroSkills_A0NV_Bool[id]then
                set HeroSkills_A0NV_Count[id]=HeroSkills_A0NV_Count[id]-1
                if ModuloInteger(HeroSkills_A0NV_Count[id]+4,8)==0 then
                    set s=HeroSkills_A0NV_String(id,HeroSkills_A0NV_Target[id],"|c0080ffff")
                elseif ModuloInteger(HeroSkills_A0NV_Count[id],8)==0 then
                    set s=HeroSkills_A0NV_String(id,HeroSkills_A0NV_Target[id],"|c0080ff80")
                endif
            else
                set HeroSkills_A0NV_Count[id]=HeroSkills_A0NV_Count[id]+1
                if ModuloInteger(HeroSkills_A0NV_Count[id],8)==0 then
                    if HeroSkills_A0NV_Count[id]>=96 and HeroSkills_A0NV_Index[id]-1-ModuloInteger(HeroSkills_A0NV_Count[id]/ 8,HeroSkills_A0NV_Index[id])==HeroSkills_A0NV_Target[id]then
                        set HeroSkills_A0NV_Count[id]=96
                        set HeroSkills_A0NV_Bool[id]=true
                        set s=HeroSkills_A0NV_String(id,HeroSkills_A0NV_Target[id],"|c0080ff80")
                        call CreateItemG(LoadInteger(BYHT,HeroSkills_A0NV_Listing[id],2*HeroSkills_A0NV_Target[id]),x,y)
                        call Ltv(LAv("Abilities\\Spells\\Other\\Transmute\\PileofGold.mdl",x,y,2))
                        call Ltv(LAv("Enchantment.mdl",x,y,1.5))
                    else
                        set s=HeroSkills_A0NV_String(id,HeroSkills_A0NV_Index[id]-1-ModuloInteger(HeroSkills_A0NV_Count[id]/ 8,HeroSkills_A0NV_Index[id]),"|c0080ffff")
                        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl",x+GetRandomReal(-$E1,$E1),y+GetRandomReal(-$E1,$E1)))
                    endif
                endif
            endif
            if s!="" then
                call SetTextTagText(HeroSkills_A0NV_Tag[id],s,.0023*10.)
            endif
            call SetTextTagPos(HeroSkills_A0NV_Tag[id],x,y,75)
        else
            set HeroSkills_A0NV_Count[id]=0
        endif
        if HeroSkills_A0NV_Count[id]<1 then
            call SetTextTagPermanent(HeroSkills_A0NV_Tag[id],false)
            call SetTextTagLifespan(HeroSkills_A0NV_Tag[id],1)
            call SetTextTagFadepoint(HeroSkills_A0NV_Tag[id],.5)
            call free(HeroSkills_A0NV_Listing[id])
            call HeroSkills_A0NV_Cancel(id)
            set HeroSkills_A0NV_Tag[id]=null
        endif
        set id=HeroSkills_A0NV_Next[id]
    endloop
    return FALSE
endfunction

function HeroSkills_A0NV_App takes integer id returns boolean
    if not HeroSkills_A0NV_Use[id]then
        if HeroSkills_A0NV_Next[(0)]==0 then
            if HeroSkills_A0NV_Func==0 then
                set HeroSkills_A0NV_Func=fxv(function HeroSkills_A0NV_Start)
            endif
            call fov(HeroSkills_A0NV_Func)
        endif
        set HeroSkills_A0NV_Next[id]=HeroSkills_A0NV_Next[(0)]
        set HeroSkills_A0NV_Last[HeroSkills_A0NV_Next[(0)]]=id
        set HeroSkills_A0NV_Next[(0)]=id
        set HeroSkills_A0NV_Last[id]=0
        set HeroSkills_A0NV_Use[id]=true
        call Unit_App_Counter(652,(id))
        return TRUE
    endif
    return FALSE
endfunction

function HeroSkills_A0NV_WriteList takes integer id,integer Tre,integer Tie,integer nW,boolean Tae returns nothing
    if Tae and nW>0 and HeroSkills_A0NV_V[id]<100 then
        call SaveInteger(BYHT,HeroSkills_A0NV_Listing[id],2*HeroSkills_A0NV_Index[id],Tre)
        call SaveInteger(BYHT,HeroSkills_A0NV_Listing[id],2*HeroSkills_A0NV_Index[id]+1,nW)
        if HeroSkills_A0NV_V[id]<Tie and Tie<=HeroSkills_A0NV_V[id]+nW then
            set HeroSkills_A0NV_Target[id]=HeroSkills_A0NV_Index[id]
        endif
        set HeroSkills_A0NV_V[id]=HeroSkills_A0NV_V[id]+nW
        set HeroSkills_A0NV_Index[id]=HeroSkills_A0NV_Index[id]+1
    endif
endfunction

function HeroSkills_A0NV_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0NM')
    local integer mlv=GetHeroState3((Je[(id)]),true)
    local integer Tie=GetRandomInt(1,100)
    local integer TVe
    local real TEe=Unit_Frost_Damage[(id)]*(1.+.01*(50.*I2R(mlv/ $7D0)+.75*SquareRoot(mlv)))
    local real TXe=0
    if HeroSkills_A0NV_App(id)then
        set HeroSkills_A0NV_Listing[id]=malloc()
        set HeroSkills_A0NV_Bool[id]=false
        set HeroSkills_A0NV_V[id]=0
        set HeroSkills_A0NV_Index[id]=0
        if UnitHasItemOfType((Je[(id)]),'I0CG')then
            set TXe=TXe+3.
        endif
        if s__A0C7_use[(id)]then
            set TXe=TXe+10.
        endif
        call HeroSkills_A0NV_WriteList(id,'I0DE',Tie,R2I(TEe*3+TXe),lv>=5)
        call HeroSkills_A0NV_WriteList(id,'I0DD',Tie,R2I(TEe*3+TXe),lv>=4)
        call HeroSkills_A0NV_WriteList(id,'I0DF',Tie,R2I(TEe*4+TXe),lv>=3)
        call HeroSkills_A0NV_WriteList(id,'I0DC',Tie,R2I(TEe*5+TXe),lv>=2)
        call HeroSkills_A0NV_WriteList(id,'I0DB',Tie,R2I(TEe*6+TXe),lv>=1)
        set TVe=(100-HeroSkills_A0NV_V[id])/ 2
        call HeroSkills_A0NV_WriteList(id,'I04O',Tie,TVe,lv!=5)
        call HeroSkills_A0NV_WriteList(id,'I04N',Tie,TVe,lv!=5)
        call HeroSkills_A0NV_WriteList(id,'I04P',Tie,TVe,lv==5)
        call HeroSkills_A0NV_WriteList(id,'I04Q',Tie,TVe,lv==5)
        set HeroSkills_A0NV_Tag[id]=CreateTextTag()
        set HeroSkills_A0NV_Count[id]=0
        call SetTextTagPos(HeroSkills_A0NV_Tag[id],GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),75)
        call SetTextTagText(HeroSkills_A0NV_Tag[id],HeroSkills_A0NV_String(id,HeroSkills_A0NV_Index[id]-1,"|c0080ffff"),.0023*10.)
        call SetTextTagPermanent(HeroSkills_A0NV_Tag[id],false)
        call SetTextTagVisibility(HeroSkills_A0NV_Tag[id],true)
    endif
    call HeroSkills_A0NE_onSpell((id),4,1)
endfunction

function HeroSkills_A0NV_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NV',function HeroSkills_A0NV_Actions)
    call Luv('A0NV')
endfunction

function HeroSkills_A0O5_Buff_Expired takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:431")
    call UnitRemoveAbilityandBuffBY((Je[(data)]),'A0O6','B051')
    call ModifyUnitMagicDamage((data),$F)
    call Unit_Cancel_Counter(653,(data))
    set HeroSkills_A0O5_BuffTimer[data]=null
endfunction

function HeroSkills_A0O5_Buff_add takes unit u returns nothing
    local integer data=(GetUnitUserData((u)))
    if not(PB[((data))])then
        if HeroSkills_A0O5_BuffTimer[data]==null then
            set HeroSkills_A0O5_BuffTimer[data]=NewTimer(data)
            call UnitAddAbilityBY(u,'A0O6')
            call ModifyUnitMagicDamage((data),-$F)
            call Unit_App_Counter(654,(data))
        endif
        call TimerStart(HeroSkills_A0O5_BuffTimer[data],2,false,function HeroSkills_A0O5_Buff_Expired)
    endif
endfunction

function HeroSkills_A0O5_Stop takes integer data returns nothing
    set HeroSkills_A0O5_Next[HeroSkills_A0O5_Last[data]]=HeroSkills_A0O5_Next[data]
    set HeroSkills_A0O5_Last[HeroSkills_A0O5_Next[data]]=HeroSkills_A0O5_Last[data]
    call Ltv(Boss_Spell_data3[data])
    call Unit_Cancel_Counter(655,Boss_Spell_data1[data])
    call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:432")
    call Boss_Spell_deallocate(data)
endfunction

function HeroSkills_A0O5_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t=Boss_Spell_data3[data]
    local unit u
    local real x
    local real y
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    if ModuloInteger(Boss_Spell_data2[data],$C)==0 then
        set x=Boss_Spell_X[data]
        set y=Boss_Spell_Y[data]
        call GroupEnumUnitsInRange(G,x,y,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call HeroSkills_A0O5_Buff_add(u)
                endif
            endif
        endloop
        if ModuloInteger(Boss_Spell_data2[data],20)==0 then
            call Lqv(LAv("KnockbackDust.mdl",x+GetRandomReal(-$FA,$FA),y+GetRandomReal(-$FA,$FA),1.25),1)
            call Lqv(LAv("KnockbackDust.mdl",x+GetRandomReal(-$FA,$FA),y+GetRandomReal(-$FA,$FA),1.25),1)
        endif
        call zhv((Kc[(Boss_Spell_data1[data])]),$A,.5)
        call Ltv(LAv("Epicenter.mdl",x,y,1.25))
    endif
    if Boss_Spell_data2[data]<1 then
        call HeroSkills_A0O5_Stop(data)
    endif
endfunction

function HeroSkills_A0O5_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer t=(LAv("Abilities\\Spells\\Orc\\EarthQuake\\EarthQuakeTarget.mdl",GetSpellTargetX(),GetSpellTargetY(),1.25))
    local integer lv
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=$B4
    set Boss_Spell_data3[data]=t
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set Boss_Spell_timer[data]=NewTimer(data)
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A0NM')
    set Boss_Spell_V[data]=12./ 32.*(100*lv+(2.5+.5*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true))
    call HeroSkills_A0NE_onSpell((Boss_Spell_data1[data]),4,3)
    call Unit_App_Counter(656,Boss_Spell_data1[data])
    call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A0O5_Start)
    set HeroSkills_A0O5_Last[data]=0
    set HeroSkills_A0O5_Next[data]=HeroSkills_A0O5_Next[0]
    set HeroSkills_A0O5_Last[HeroSkills_A0O5_Next[0]]=data
    set HeroSkills_A0O5_Next[0]=data
endfunction

function HeroSkills_A0O5_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0O5',function HeroSkills_A0O5_Actions)
    call Luv('A0O5')
endfunction

function HeroSkills_A0O7_Remove takes integer id returns nothing
    call KillUnit((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
    call DestroyEffectBY(HeroSkills_A0O7_Eff[id])
    call Unit_Cancel_Counter(657,HeroSkills_A0O7_SummonedUnit[id])
endfunction

function HeroSkills_A0O7_Armor_Remove takes integer id returns integer
    local integer s=HeroSkills_A0O7_ArmorLv[id]
    if s>0 then
        call ModifyUnitArmor((HeroSkills_A0O7_SummonedUnit[id]),-40*s)
    endif
    set HeroSkills_A0O7_ArmorLv[id]=0
    return s
endfunction

function HeroSkills_A0O7_Armor_Up takes integer id returns nothing
    if HeroSkills_A0O7_Use[id]and HeroSkills_A0O7_ArmorLv[id]<2*GetUnitAbilityLevel((Je[(id)]),'A0NM')then
        set HeroSkills_A0O7_ArmorLv[id]=HeroSkills_A0O7_ArmorLv[id]+1
        call Ltv(Lfv(LAv("Epicenter.mdl",GetUnitX((Je[(HeroSkills_A0O7_SummonedUnit[id])])),GetUnitY((Je[(HeroSkills_A0O7_SummonedUnit[id])])),.5),$CD,125,125,$FF))
        call ModifyUnitArmor((HeroSkills_A0O7_SummonedUnit[id]),40)
    endif
endfunction

function HeroSkills_A0O7_Intensify takes integer id,unit u,real Njv returns nothing
    if HeroSkills_A0O7_Use[id]and u==(Je[(HeroSkills_A0O7_SummonedUnit[id])])and not HeroSkills_A0O7_Bool[id]then
        set HeroSkills_A0O7_Bool[id]=true
        set HeroSkills_A0O7_Damage[id]=Unit_Fire_Damage[(id)]*Njv
        call s__Effect_connect((HeroSkills_A0O7_Eff[id]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedTarget.mdl")),(((Je[(HeroSkills_A0O7_SummonedUnit[id])]))),(("chest"))))))
        call Ltv(LAv("FireGold.mdl",GetUnitX((Je[(HeroSkills_A0O7_SummonedUnit[id])])),GetUnitY((Je[(HeroSkills_A0O7_SummonedUnit[id])])),1.75))
        call zhv((Kc[(id)]),40,.75)
        call ModifyUnitAttackSpeed((HeroSkills_A0O7_SummonedUnit[id]),30)
        call ModifyUnitHpRegen((HeroSkills_A0O7_SummonedUnit[id]),.01*GetUnitMaxLifeById((HeroSkills_A0O7_SummonedUnit[id])))
        call SetUnitVertexColor((Je[(HeroSkills_A0O7_SummonedUnit[id])]),$FF,125,125,$FF)
    endif
endfunction

function HeroSkills_A0O7_Cancel takes integer id returns nothing
    if HeroSkills_A0O7_Use[id]then
        set HeroSkills_A0O7_Last[HeroSkills_A0O7_Next[id]]=HeroSkills_A0O7_Last[id]
        set HeroSkills_A0O7_Next[HeroSkills_A0O7_Last[id]]=HeroSkills_A0O7_Next[id]
        set HeroSkills_A0O7_Use[id]=false
        if HeroSkills_A0O7_Next[(0)]==0 then
            call frv(HeroSkills_A0O7_Func)
        endif
        call HeroSkills_A0O7_Remove(id)
        call Unit_Cancel_Counter(658,(id))
    endif
endfunction

function HeroSkills_A0O7_Loop takes nothing returns nothing
    local integer id=HeroSkills_A0O7_Next[(0)]
    local integer Zhv
    local unit u
    local real x
    local real y
    local real a
    local real zA
    local real d
    local real eoe
    loop
        exitwhen id==0
        if not UnitAlive((Je[(id)]))or not UnitAlive((Je[(HeroSkills_A0O7_SummonedUnit[id])]))then
            call HeroSkills_A0O7_Cancel(id)
        elseif HeroSkills_A0O7_SummonedTime[id]>32 then
            set HeroSkills_A0O7_SummonedTime[id]=HeroSkills_A0O7_SummonedTime[id]-1
            set eoe=1-(HeroSkills_A0O7_SummonedTime[id]-32.)/ 48.
            set x=GetUnitX((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
            set y=GetUnitY((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
            set a=GetRandomReal(0,Lx)
            set zA=GetRandomReal(-.5*bj_PI,.5*bj_PI)
            set d=GetRandomReal($E1,375)
            set Zhv=CreateBarrageTypeD(x+d*Cos(a)*Sin(zA),y+d*Sin(a)*Sin(zA),300*Cos(zA),x,y,0)
            call SetBarrageFlightRadian(Zhv,GetRandomReal(.25,.5))
            set s__barrage_speed[Zhv]=0
            set s__barrage_acceleration[Zhv]=.03125*.03125*750.
            call LMv(s__barrage_model[Zhv],"Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[Zhv])],((.625)*1.),0,0)
            call dAe(Zhv)
            call SetUnitScale((Je[(HeroSkills_A0O7_SummonedUnit[id])]),.5+eoe,0,0)
            if HeroSkills_A0O7_SummonedTime[id]==32 then
                call SetUnitAnimation((Je[(HeroSkills_A0O7_SummonedUnit[id])]),"morph alternate")
            endif
        elseif HeroSkills_A0O7_SummonedTime[id]>0 then
            set HeroSkills_A0O7_SummonedTime[id]=HeroSkills_A0O7_SummonedTime[id]-1
            if HeroSkills_A0O7_SummonedTime[id]==0 then
                set x=GetUnitX((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
                set y=GetUnitY((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
                call Ltv(LAv("Epicenter.mdl",x,y,2))
                call Ltv(LAv("Explosion.mdl",x,y,2))
                call PauseUnit((Je[(HeroSkills_A0O7_SummonedUnit[id])]),false)
                call SetUnitInvulnerable((Je[(HeroSkills_A0O7_SummonedUnit[id])]),false)
                call SetUnitPathing((Je[(HeroSkills_A0O7_SummonedUnit[id])]),true)
                call zhv((Kc[(id)]),40,1)
            endif
        elseif HeroSkills_A0O7_Bool[id]then
            set HeroSkills_A0O7_Count[id]=ModuloInteger(HeroSkills_A0O7_Count[id]+1,32)
            if HeroSkills_A0O7_Count[id]==0 then
                set x=GetUnitX((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
                set y=GetUnitY((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
                call GroupEnumUnitsInRange(G,x,y,275+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,275)then
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0O7_SummonedUnit[id])]))then
                            call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedDamage.mdl",u,"chest",.5)
                            call UnitDamageTargetBY((((Je[(HeroSkills_A0O7_SummonedUnit[id])]))),((u)),((((HeroSkills_A0O7_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
            endif
        else
            set HeroSkills_A0O7_Count[id]=ModuloInteger(HeroSkills_A0O7_Count[id]+1,48)
            if HeroSkills_A0O7_Count[id]==0 and UnitHasItemOfType((Je[(id)]),'I0DI')then
                set u=(Je[(HeroSkills_A0O7_SummonedUnit[id])])
                set x=GetUnitX((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
                set y=GetUnitY((Je[(HeroSkills_A0O7_SummonedUnit[id])]))
                call GroupEnumUnitsInRange(G,x,y,400+75,null)
                call GroupRemoveUnit(G,u)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,400)then
                        if IsUnitAllyNotbag(u,(Je[(HeroSkills_A0O7_SummonedUnit[id])]))then
                            call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Items\\AIhe\\AIheTarget.mdl",u,"origin",1.75)
                            call UnitCureTaret(null,u,750+.025*GetUnitMaxLifeById((GetUnitUserData((u)))))
                        endif
                    endif
                endloop
                call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Orc\\Berserker\\Berserkertarget.mdl",(Je[(HeroSkills_A0O7_SummonedUnit[id])]),"origin",1.5)
            endif
        endif
        set id=HeroSkills_A0O7_Next[id]
    endloop
endfunction

function HeroSkills_A0O7_App takes integer id returns integer
    if HeroSkills_A0O7_Use[id]then
        call HeroSkills_A0O7_Remove(id)
    else
        if HeroSkills_A0O7_Next[(0)]==0 then
            if HeroSkills_A0O7_Func==0 then
                set HeroSkills_A0O7_Func=fxv(function HeroSkills_A0O7_Loop)
            endif
            call fov(HeroSkills_A0O7_Func)
        endif
        set HeroSkills_A0O7_Next[id]=HeroSkills_A0O7_Next[(0)]
        set HeroSkills_A0O7_Last[HeroSkills_A0O7_Next[(0)]]=id
        set HeroSkills_A0O7_Next[(0)]=id
        set HeroSkills_A0O7_Last[id]=0
        set HeroSkills_A0O7_Use[id]=true
        call Unit_App_Counter(659,(id))
    endif
    return id
endfunction

function HeroSkills_A0O7_SummonedUnit_Shield takes nothing returns nothing
    local integer id=(Master[((pF))])
    local real v=.2*GetHeroState3((Je[(id)]),true)
    if v>.7*GetDamage()then
        call DamageMinus(.7*GetDamage())
    else
        call DamageMinus(v)
    endif
endfunction

function HeroSkills_A0O7_Actions takes nothing returns nothing
    local integer id=HeroSkills_A0O7_App((GetUnitUserData((GetTriggerUnit()))))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0NM')
    local real a=bj_DEGTORAD*GetUnitFacing((Je[(id)]))
    local real x=GetUnitX((Je[(id)]))+96*Cos(a)
    local real y=GetUnitY((Je[(id)]))+96*Sin(a)
    set HeroSkills_A0O7_SummonedUnit[id]=(GetUnitUserData((CreateUnit((P[Kc[((id))]]),'h01J',x,y,bj_RADTODEG*a))))
    set HeroSkills_A0O7_Eff[id]=CreateEffectFor()
    set HeroSkills_A0O7_Bool[id]=false
    set HeroSkills_A0O7_SummonedTime[id]=80
    set HeroSkills_A0O7_Count[id]=0
    set HeroSkills_A0O7_ArmorLv[id]=0
    if lv>=3 then
        call UnitAddAbilityBY((Je[(HeroSkills_A0O7_SummonedUnit[id])]),'A0OA')
        if lv>=5 then
            call UnitAddAbilityBY((Je[(HeroSkills_A0O7_SummonedUnit[id])]),'A0OB')
        endif
    endif
    call SummonedUnitSetMaster(HeroSkills_A0O7_SummonedUnit[id],id)
    call UnitAddShieldTrig((HeroSkills_A0O7_SummonedUnit[id]),function HeroSkills_A0O7_SummonedUnit_Shield)
    call ModifyUnitHP((HeroSkills_A0O7_SummonedUnit[id]),$9C4*lv+4*GetHeroState3((Je[(id)]),true))
    call ModifyUnitAttackSpeed((HeroSkills_A0O7_SummonedUnit[id]),GetUnitDefaultAttackSpeed((id)))
    call UnitApplyTimedLife((Je[(HeroSkills_A0O7_SummonedUnit[id])]),'BTLF',600)
    call PauseUnit((Je[(HeroSkills_A0O7_SummonedUnit[id])]),true)
    call SetUnitInvulnerable((Je[(HeroSkills_A0O7_SummonedUnit[id])]),true)
    call SetUnitPathing((Je[(HeroSkills_A0O7_SummonedUnit[id])]),false)
    call SetUnitAnimation((Je[(HeroSkills_A0O7_SummonedUnit[id])]),"stand alternate")
    call HeroSkills_A0NE_onSpell((id),4,4)
    call Unit_App_Counter(660,HeroSkills_A0O7_SummonedUnit[id])
    if UnitHasItemOfType((Je[(id)]),'I082')then
        call ModifyUnitHP((HeroSkills_A0O7_SummonedUnit[id]),R2I(.15*GetUnitMaxLifeById((HeroSkills_A0O7_SummonedUnit[id]))))
        call SetUnitScale((Je[(HeroSkills_A0O7_SummonedUnit[id])]),2.25,2.25,2.25)
    elseif UnitHasItemOfType((Je[(id)]),'I0DH')then
        call ModifyUnitHP((HeroSkills_A0O7_SummonedUnit[id]),5000+R2I(.15*GetUnitMaxLifeById((HeroSkills_A0O7_SummonedUnit[id]))))
        call ModifyUnitArmor((HeroSkills_A0O7_SummonedUnit[id]),$C8)
        call SetUnitVertexColor((Je[(HeroSkills_A0O7_SummonedUnit[id])]),$AF,$FF,$AF,$FF)
        call SetUnitScale((Je[(HeroSkills_A0O7_SummonedUnit[id])]),2.625,2.625,2.625)
    elseif UnitHasItemOfType((Je[(id)]),'I0DI')then
        call ModifyUnitHP((HeroSkills_A0O7_SummonedUnit[id]),7500+R2I(.2*GetUnitMaxLifeById((HeroSkills_A0O7_SummonedUnit[id]))))
        call ModifyUnitHpRegen((HeroSkills_A0O7_SummonedUnit[id]),.01*GetUnitMaxLifeById((HeroSkills_A0O7_SummonedUnit[id])))
        call ModifyUnitArmor((HeroSkills_A0O7_SummonedUnit[id]),400)
        call SetUnitVertexColor((Je[(HeroSkills_A0O7_SummonedUnit[id])]),125,$FF,125,$FF)
        call SetUnitScale((Je[(HeroSkills_A0O7_SummonedUnit[id])]),2.75,2.75,2.75)
    endif
endfunction

function HeroSkills_A0O7_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0O7',function HeroSkills_A0O7_Actions)
    call Luv('A0O7')
    call ExecuteFunc("SummonedUnitSkills_A0OA_Init")
    call ExecuteFunc("SummonedUnitSkills_A0OB_Init")
endfunction

function SummonedUnitSkills_A0OA_Buff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:433")
    call DeUnitAdef((id),SummonedUnitSkills_A0OA_Buff_Adef[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0OF','B054')
    call Unit_Cancel_Counter(661,(id))
    set SummonedUnitSkills_A0OA_Buff_Timer[id]=null
endfunction

function SummonedUnitSkills_A0OA_Buff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if SummonedUnitSkills_A0OA_Buff_Timer[id]==null then
        set SummonedUnitSkills_A0OA_Buff_Timer[id]=NewTimer(id)
        set SummonedUnitSkills_A0OA_Buff_Adef[id]=ModifyUnitAdef((id),-6)
        call UnitAddAbilityBY(u,'A0OF')
        call Unit_App_Counter(662,(id))
    endif
    call TimerStart(SummonedUnitSkills_A0OA_Buff_Timer[id],8,false,function SummonedUnitSkills_A0OA_Buff_End)
endfunction

function SummonedUnitSkills_A0OA_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    if UnitAlive(Boss_Spell_unit1[data])then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if Boss_Spell_bool[data]and Boss_Spell_data3[data]<=40 then
            if Boss_Spell_data3[data]==40 then
                call s__Effect_connect((Boss_Spell_data2[data]),(s__Effect_build(AddSpecialEffectTarget((("KnockbackDust.mdl")),((Boss_Spell_unit1[data])),(("origin"))))))
            endif
            set Boss_Spell_X[data]=1.025*Boss_Spell_X[data]
            set Boss_Spell_Y[data]=1.025*Boss_Spell_Y[data]
            set x=GetUnitX(Boss_Spell_unit1[data])
            set y=GetUnitY(Boss_Spell_unit1[data])
            call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$C8)then
                    exitwhen IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])
                endif
            endloop
            if u!=null then
                set Boss_Spell_bool[data]=false
                set Boss_Spell_data3[data]=32
                call GroupEnumUnitsInRange(G,x,y,375+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,375)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                            if HeroSkills_A0O7_Bool[(Boss_Spell_data1[data])]then
                                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\DemolisherFireMissile\\DemolisherFireMissile.mdl",u,"chest"))
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((GetRandomReal(1.5,1.75)*Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((13.5)*1.))*1.),(("|c00dd5542")))
                            else
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                            if UnitAlive(u)then
                                call m1v(u,1.5)
                                call SummonedUnitSkills_A0OA_Buff(u)
                            endif
                        endif
                    endif
                endloop
                if HeroSkills_A0O7_Bool[(Boss_Spell_data1[data])]then
                    call Ltv(LAv("firegold.mdl",x,y,1.25))
                endif
                call Ltv(Lfv(LAv("NewDirtEXNofire.mdl",x,y,2),55,55,0,$FF))
                call Ltv(Lfv(Lbv(LVv('e005',x,y,0),3,.5),$CD,$9B,$CD,$FF))
                call zhv(((GetPlayerId(GetOwningPlayer((Je[(((Boss_Spell_data1[data])))]))))),50,.75)
                call SetUnitAnimation(Boss_Spell_unit1[data],"morph alternate")
                call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
            elseif IsTerrainWalkable(x+Boss_Spell_X[data],y+Boss_Spell_Y[data])and IsTerrainWalkable(x+1.5*Boss_Spell_X[data],y+1.5*Boss_Spell_Y[data])then
                set x=x+Boss_Spell_X[data]
                set y=y+Boss_Spell_Y[data]
                if ModuloInteger(Boss_Spell_data3[data],5)==0 then
                    if HeroSkills_A0O7_Bool[(Boss_Spell_data1[data])]then
                        call Ltv(Lfv(LIv("Epicenter.mdl",x,y,75,1,bj_DEGTORAD*GetUnitFacing(Boss_Spell_unit1[data]),0),$FF,55,55,$FF))
                    else
                        call Ltv(LIv("Epicenter.mdl",x,y,75,1,bj_DEGTORAD*GetUnitFacing(Boss_Spell_unit1[data]),0))
                    endif
                endif
                call SetUnitX(Boss_Spell_unit1[data],x)
                call SetUnitY(Boss_Spell_unit1[data],y)
                call SetUnitAnimation(Boss_Spell_unit1[data],"walk alternate")
                call zhv(((GetPlayerId(GetOwningPlayer((Je[(((Boss_Spell_data1[data])))]))))),12.5,.25)
            endif
        endif
    else
        set Boss_Spell_data3[data]=0
    endif
    if Boss_Spell_data3[data]<1 then
        call SetUnitTimeScale(Boss_Spell_unit1[data],1)
        call m_v(Boss_Spell_unit1[data],false)
        call DestroyEffectBY(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:434")
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function SummonedUnitSkills_A0OA_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv
    local real x
    local real y
    local real a
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=(Master[((GetUnitUserData((Boss_Spell_unit1[data]))))])
    set Boss_Spell_data2[data]=CreateEffectFor()
    set Boss_Spell_data3[data]=40+8
    set Boss_Spell_bool[data]=true
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A0NM')
    set x=GetUnitX(Boss_Spell_unit1[data])
    set y=GetUnitY(Boss_Spell_unit1[data])
    set a=bj_DEGTORAD*GetUnitFacing(Boss_Spell_unit1[data])
    set Boss_Spell_X[data]=30*Cos(a)
    set Boss_Spell_Y[data]=30*Sin(a)
    set Boss_Spell_V[data]=($3E8*lv+(25+3*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true))
    if HeroSkills_A0O7_Bool[(Boss_Spell_data1[data])]then
        set Boss_Spell_V[data]=Unit_Fire_Damage[(Boss_Spell_data1[data])]*Boss_Spell_V[data]
    endif
    call m_v(Boss_Spell_unit1[data],true)
    call SetUnitFacingTimed(Boss_Spell_unit1[data],bj_RADTODEG*a,0)
    call SetUnitTimeScale(Boss_Spell_unit1[data],2)
    call SetUnitAnimation(Boss_Spell_unit1[data],"morph")
    call TimerStart(NewTimer(data),.03125,true,function SummonedUnitSkills_A0OA_Start)
endfunction

function SummonedUnitSkills_A0OA_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0OA',function SummonedUnitSkills_A0OA_Actions)
    call Luv('A0OA')
endfunction

function SummonedUnitSkills_A0OB_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer TTe
    local unit u
    local real x
    local real y
    local real r
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if ModuloInteger(Boss_Spell_data3[data],6)==0 then
        set TTe=HeroSkills_A0O5_Next[0]
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
        set r=362.5
        call LKv(Boss_Spell_data2[data],x)
        call Llv(Boss_Spell_data2[data],y)
        loop
            exitwhen TTe==0 or IsUnitInRangeXY(II[(Boss_Spell_data3[TTe])],x,y,r)
            set TTe=HeroSkills_A0O5_Next[TTe]
        endloop
        if TTe==0 then
            call Ltv(Lfv(LAv("NewDirtEXNofire.mdl",x,y,1.5*Boss_Spell_V[data]),55,55,0,$FF))
        else
            set x=Boss_Spell_X[TTe]
            set y=Boss_Spell_Y[TTe]
            set Boss_Spell_data3[data]=0
            set Boss_Spell_V[data]=Boss_Spell_V[data]+.75
            set Boss_Spell_Z[data]=1.5*Boss_Spell_Z[data]
            call Ltv(LAv("Explosion.mdl",x,y,1.5*Boss_Spell_V[data]))
            call Ltv(Lbv(LVv('e02U',x,y,0),1.75*Boss_Spell_V[data],.5))
            call HeroSkills_A0O5_Stop(TTe)
        endif
        set r=r*Boss_Spell_V[data]
        call GroupEnumUnitsInRange(G,x,y,r+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,r)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    if TTe==0 then
                        call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m1v(u,1.25)
                    else
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"chest"))
                        call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_Z[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c00ae8c46")))
                        call FloatedTargetBYStun(u,true)
                    endif
                endif
            endif
        endloop
        call Ltv(Lfv(LAv("Epicenter.mdl",x,y,2*Boss_Spell_V[data]),$FF,$FF,$9B,$FF))
        call Lqv(LAv("GroundExplosion2.mdl",x,y,1.125*Boss_Spell_V[data]),.375)
        call Ltv(Lbv(LVv('e004',x,y,0),1.25+.75*Boss_Spell_V[data],.5))
        call zhv(((GetPlayerId(GetOwningPlayer((Je[(((Boss_Spell_data1[data])))]))))),20+20*Boss_Spell_V[data],.5)
    endif
    if Boss_Spell_data3[data]<1 then
        call Unit_Cancel_Counter(663,Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:435")
    endif
endfunction

function SummonedUnitSkills_A0OB_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv
    local integer mkv
    local real x
    local real y
    local real a
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set mkv=HeroSkills_A0O7_Armor_Remove((Master[(Boss_Spell_data1[data])]))
    set lv=GetUnitAbilityLevel((MV[GetPlayerId(GetOwningPlayer(Je[((Boss_Spell_data1[data]))]))]),'A0NM')
    set x=GetUnitX((Je[(Boss_Spell_data1[data])]))
    set y=GetUnitY((Je[(Boss_Spell_data1[data])]))
    set a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Boss_Spell_data2[data]=Lnv(x,y,0)
    set Boss_Spell_data3[data]=24
    set Boss_Spell_V[data]=1+.015*mkv
    set Boss_Spell_X[data]=300*Boss_Spell_V[data]*Cos(a)
    set Boss_Spell_Y[data]=300*Boss_Spell_V[data]*Sin(a)
    set Boss_Spell_Z[data]=(1.+.5*mkv)*(UnitAttack[(Boss_Spell_data1[data])]*lv+30*GetHeroState3((MV[GetPlayerId(GetOwningPlayer(Je[((Boss_Spell_data1[data]))]))]),true))
    if mkv>0 then
        call NewTextTagInTarget_B((Je[(Boss_Spell_data1[data])]),"|c00c5aa83+"+I2S(40*mkv)+"% DAMAGE",$C,$FF,$FF,$FF)
    endif
    call Unit_App_Counter(664,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function SummonedUnitSkills_A0OB_Start)
endfunction

function SummonedUnitSkills_A0OB_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0OB',function SummonedUnitSkills_A0OB_Actions)
    call Luv('A0OB')
endfunction

function HeroSkills_A0NN_Cancel takes integer id returns nothing
    if HeroSkills_A0NN_Use[id]then
        set HeroSkills_A0NN_Last[HeroSkills_A0NN_Next[id]]=HeroSkills_A0NN_Last[id]
        set HeroSkills_A0NN_Next[HeroSkills_A0NN_Last[id]]=HeroSkills_A0NN_Next[id]
        set HeroSkills_A0NN_Use[id]=false
        if HeroSkills_A0NN_Next[(0)]==0 then
            call frv(HeroSkills_A0NN_Func)
        endif
        call ModifyUnitMagicDamage((id),-HeroSkills_A0NN_Value[id])
        call UnitRemoveAbility((Je[(id)]),'B053')
        call free(HeroSkills_A0NN_Vessel[id])
        call Unit_Cancel_Counter(665,(id))
    endif
endfunction

function HeroSkills_A0NN_Loop takes nothing returns nothing
    local integer id=HeroSkills_A0NN_Next[(0)]
    loop
        exitwhen id==0
        set HeroSkills_A0NN_Time[id]=HeroSkills_A0NN_Time[id]-1
        if HeroSkills_A0NN_Time[id]==0 or GetUnitAbilityLevel((Je[(id)]),'B053')==0 then
            call HeroSkills_A0NN_Cancel(id)
        elseif ModuloInteger(HeroSkills_A0NN_Time[id],32)==0 then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathPact\\DeathPactTarget.mdl",(Je[(id)]),"origin"))
            call NewTextTagInTarget_B((Je[(id)]),I2S(R2I(HeroSkills_A0NN_Time[id]/ 32.))+"Seconds remaining",8,$CD,$AF,$FF)
        endif
        set id=HeroSkills_A0NN_Next[id]
    endloop
endfunction

function HeroSkills_A0NN_App takes integer id returns boolean
    if not HeroSkills_A0NN_Use[id]then
        if HeroSkills_A0NN_Next[(0)]==0 then
            if HeroSkills_A0NN_Func==0 then
                set HeroSkills_A0NN_Func=fxv(function HeroSkills_A0NN_Loop)
            endif
            call fov(HeroSkills_A0NN_Func)
        endif
        set HeroSkills_A0NN_Next[id]=HeroSkills_A0NN_Next[(0)]
        set HeroSkills_A0NN_Last[HeroSkills_A0NN_Next[(0)]]=id
        set HeroSkills_A0NN_Next[(0)]=id
        set HeroSkills_A0NN_Last[id]=0
        set HeroSkills_A0NN_Use[id]=true
        call Unit_App_Counter(666,(id))
        return TRUE
    endif
    return false
endfunction

function HeroSkills_A0NN_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if GetUnitAbilityLevel((Je[(id)]),'B053')==1 then
        call HeroSkills_A0NN_Cancel(id)
    elseif HeroSkills_A0NN_App(id)then
        set HeroSkills_A0NN_Vessel[id]=malloc()
        set HeroSkills_A0NN_Count[id]=5
        set HeroSkills_A0NN_Time[id]=480
        set HeroSkills_A0NN_Value[id]=$F
        call ModifyUnitMagicDamage((id),HeroSkills_A0NN_Value[id])
        call PlaySoundOnUnit_BJ((ln),(($7F)*1.),((Je[(id)])))
        call thv("|c00cd96ff"+I2S(HeroSkills_A0NN_Count[id])+" ",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),GetUnitFlyHeight((Je[(id)]))+60,.075,.05,.225*Lx,1.5,2)
        call Ltv(Lfv(LAv("AncientExplode.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1.25),$FF,125,125,$FF))
    endif
endfunction

function HeroSkills_A0NN_ResetCooldown takes integer id,integer Ngv,integer NGv returns nothing
    local boolean ufe
    local integer uFe
    local integer jQe
    if GetRandomInt(1,100)<=4*GetUnitAbilityLevel((Je[(id)]),'A0NN')then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",(Je[(id)]),"origin"))
        call NewTextTagInTarget_B((Je[(id)]),"REFRESH",9,$E1,$B9,$F5)
        call Hero_H01I_SkillsList_ResetCooldown((id))
        if HeroSkills_A0NN_Use[id]then
            return
        endif
    endif
    if HeroSkills_A0NN_Use[id]then
        set uFe=LoadInteger(BYHT,HeroSkills_A0NN_Vessel[id],Ngv)
        set jQe=LoadInteger(BYHT,HeroSkills_A0NN_Vessel[id],$C*(Ngv+1)+NGv)
        set ufe=false
        if ufe then
            call NewTextTagInTarget_B((Je[(id)]),"DEATH",$F,$E1,25,5)
            call DestroyEffect(AddSpecialEffectTarget("BloodEX-Special.mdl",(Je[(id)]),"origin"))
            call KillUnit((Je[(id)]))
            call HeroSkills_A0NN_Cancel(id)
        else
            set HeroSkills_A0NN_Count[id]=HeroSkills_A0NN_Count[id]-1
            if HeroSkills_A0NN_Count[id]>0 then
                call SaveInteger(BYHT,HeroSkills_A0NN_Vessel[id],Ngv,uFe+1)
                call SaveInteger(BYHT,HeroSkills_A0NN_Vessel[id],$C*(Ngv+1)+NGv,jQe+1)
                call zhv((Kc[(id)]),30,.5)
                call thv("|c00cd96ff"+I2S(HeroSkills_A0NN_Count[id])+" Charge",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),GetUnitFlyHeight((Je[(id)]))+60,.075,.05,.225*Lx,1.5,2)
                call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",(Je[(id)]),"origin",1.5)
                call Hero_H01I_SkillsList_ResetCooldown((id))
            else
                call HeroSkills_A0NN_Cancel(id)
            endif
        endif
    endif
endfunction

function HeroSkills_A0NN_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0NN',function HeroSkills_A0NN_Actions)
    call Luv('A0NN')
endfunction

function HeroSkills_A0OC_Buff_Expierd takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:436")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0OG','B055')
    call DeUnitAdef((id),HeroSkills_A0OC_Buff_Adef[id])
    call Unit_Cancel_Counter(667,(id))
    set HeroSkills_A0OC_Buff_Timer[id]=null
endfunction

function HeroSkills_A0OC_Buff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0OC_Buff_Timer[id]==null then
        set HeroSkills_A0OC_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0OC_Buff_Adef[id]=ModifyUnitAdef((id),40)
        call UnitAddAbilityBY(u,'A0OG')
        call Unit_App_Counter(668,(id))
    endif
    call TimerStart(HeroSkills_A0OC_Buff_Timer[id],1,false,function HeroSkills_A0OC_Buff_Expierd)
endfunction

function HeroSkills_A0OC_IntUp takes integer id returns nothing
    if HeroSkills_A0OC_Use[id]and HeroSkills_A0OC_Count[id]<40 then
        set HeroSkills_A0OC_Count[id]=HeroSkills_A0OC_Count[id]+1
        call ModifyHeroIntPercent(id,.025)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(Je[(id)]),"origin"))
    endif
endfunction

function T4e takes integer id returns nothing
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real d
    local unit u
    if UnitAlive((Je[(id)]))then
        set d=$FA*GetHeroState3((Je[(id)]),true)
        call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$3E8)then
                if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m2v(u,2.5,'A500','B500',true)
                endif
            endif
        endloop
        call Ltv(Lbv(LVv('e02T',x,y,0),7.5,.25))
        call Ltv(Lbv(LVv('e02U',x,y,0),5,.6))
        call zhv((Kc[(id)]),50,.75)
        call zKv((Kc[(id)]),$FF,125,125,.75)
    endif
    call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,$FF)
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0OC',true)
    call ModifyHeroIntPercent(id,-HeroSkills_A0OC_Count[id]*.025)
    call UnitRemoveAbilityBY((Je[(id)]),'A0OD')
    call Lsv(HeroSkills_A0OC_Eff[id],.25)
endfunction

function HeroSkills_A0OC_Stop takes integer id returns nothing
    if HeroSkills_A0OC_Use[id]then
        set HeroSkills_A0OC_Last[HeroSkills_A0OC_Next[id]]=HeroSkills_A0OC_Last[id]
        set HeroSkills_A0OC_Next[HeroSkills_A0OC_Last[id]]=HeroSkills_A0OC_Next[id]
        set HeroSkills_A0OC_Use[id]=false
        if HeroSkills_A0OC_Next[(0)]==0 then
            call frv(HeroSkills_A0OC_Func)
        endif
        call T4e(id)
        call Unit_Cancel_Counter(669,(id))
    endif
endfunction

function HeroSkills_A0OC_Start takes nothing returns nothing
    local integer id=HeroSkills_A0OC_Next[(0)]
    local integer cFv
    local unit u
    local integer c
    local real x
    local real y
    local real nL
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))and HeroSkills_A0OC_Time[id]<480 then
            set HeroSkills_A0OC_Time[id]=HeroSkills_A0OC_Time[id]+1
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            if HeroSkills_A0OC_Time[id]>96 then
                if ModuloInteger(HeroSkills_A0OC_Time[id],2)==0 then
                    if ModuloInteger(HeroSkills_A0OC_Time[id],8)==0 then
                        call GroupEnumUnitsInRange(G,x,y,475+75,null)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,475)then
                                if IsUnitAllyNotbag(u,(Je[(id)]))then
                                    call HeroSkills_A0OC_Buff(u)
                                endif
                            endif
                        endloop
                        if ModuloInteger(HeroSkills_A0OC_Time[id],32)==0 then
                            call HeroSkills_A0OC_IntUp(id)
                        endif
                    endif
                    call SetUnitFacing(II[(HeroSkills_A0OC_Eff[id])],((Lx*HeroSkills_A0OC_Time[id]/ 32.)*1.)*bj_RADTODEG)
                    set cFv=dbe((Je[(id)]),GetRandomReal(425,500),$EA6,GetRandomReal(.05,.15),.05,300,GetRandomReal(-.5*bj_PI,.5*bj_PI))
                    call LMv(cFv,"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
                    call SetUnitScale(II[(cFv)],((2.5)*1.),0,0)
                endif
                set nL=GetWidgetLife((Je[(id)]))+(.02+.01*HeroSkills_A0OC_Time[id]/ 32.)/ 32.*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)
                if nL>.5 then
                    call SetWidgetLife((Je[(id)]),nL)
                else
                    call KillUnit((Je[(id)]))
                    call HeroSkills_A0OC_Stop(id)
                endif
                call Lfv(cFv,$9B,55,55,125)
            elseif HeroSkills_A0OC_Time[id]>=36 and ModuloInteger(HeroSkills_A0OC_Time[id],$C)==0 then
                if HeroSkills_A0OC_Time[id]==96 then
                    call PauseUnit((Je[(id)]),false)
                    call SetUnitInvulnerable((Je[(id)]),false)
                    call SetUnitVertexColor((Je[(id)]),$FF,125,125,$FF)
                endif
                call Lfv(HeroSkills_A0OC_Eff[id],$FF,25,0,R2I($FF*HeroSkills_A0OC_Time[id]/ 96.))
                call Ltv(LAv("ChaosExplosion.mdl",x,y,5))
            endif
            call LKv(HeroSkills_A0OC_Eff[id],x)
            call Llv(HeroSkills_A0OC_Eff[id],y)
        else
            call HeroSkills_A0OC_Stop(id)
        endif
        set id=HeroSkills_A0OC_Next[id]
    endloop
endfunction

function HeroSkills_A0OC_Open takes integer id returns integer
    if HeroSkills_A0OC_Use[id]then
        call T4e(id)
    else
        if HeroSkills_A0OC_Next[(0)]==0 then
            if HeroSkills_A0OC_Func==0 then
                set HeroSkills_A0OC_Func=fxv(function HeroSkills_A0OC_Start)
            endif
            call fov(HeroSkills_A0OC_Func)
        endif
        set HeroSkills_A0OC_Next[id]=HeroSkills_A0OC_Next[(0)]
        set HeroSkills_A0OC_Last[HeroSkills_A0OC_Next[(0)]]=id
        set HeroSkills_A0OC_Next[(0)]=id
        set HeroSkills_A0OC_Last[id]=0
        set HeroSkills_A0OC_Use[id]=true
        call Unit_App_Counter(670,(id))
    endif
    return id
endfunction

function HeroSkills_A0OC_End takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call Ltv(LAv("Enchantment.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),7.5))
    call HeroSkills_A0OC_Stop(id)
    return false
endfunction

function HeroSkills_A0OC_Actions takes nothing returns nothing
    local integer id=HeroSkills_A0OC_Open((GetUnitUserData((GetTriggerUnit()))))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    set HeroSkills_A0OC_Eff[id]=LVv('e02S',x,y,0)
    call SetUnitFlyHeight(II[(HeroSkills_A0OC_Eff[id])],((50)*1.),0)
    set HeroSkills_A0OC_Time[id]=0
    set HeroSkills_A0OC_Count[id]=0
    call PauseUnit((Je[(id)]),true)
    call SetUnitInvulnerable((Je[(id)]),true)
    call Lfv(HeroSkills_A0OC_Eff[id],$FF,25,0,0)
    call Ltv(LAv("ChaosExplosion.mdl",x,y,5))
    call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,3),$FF,55,0,$FF))
    call zhv((Kc[(id)]),$F,.25)
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0OC',false)
    call UnitAddAbilityBY((Je[(id)]),'A0OD')
endfunction

function HeroSkills_A0OC_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0OC',function HeroSkills_A0OC_Actions)
    call RegisterSpellEffectEvent('A0OD',function HeroSkills_A0OC_End)
    call Luv('A0OC')
endfunction

function Hero_H01I_Init takes nothing returns nothing
    call HeroSkills_A0NE_Init()
    call HeroSkills_A0ND_Init()
    call HeroSkills_A0NK_Init()
    call HeroSkills_A0NL_Init()
    call HeroSkills_A0NM_Init()
    call HeroSkills_A0NN_Init()
    call HeroSkills_A0OC_Init()
endfunction

function HeroSkills_A02U_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2=Boss_Spell_data3[data]
    local integer t
    local integer i=Boss_Spell_data3[data2]
    local integer end=Boss_Spell_data2[data]
    local integer index=Boss_Spell_data1[data2]
    set Boss_Spell_data1[data2]=Boss_Spell_data1[data2]+1
    set Boss_x[0]=GetUnitX(Boss_Spell_unit1[data])
    set Boss_y[0]=GetUnitY(Boss_Spell_unit1[data])
    set Boss_z[0]=Deg2Rad(GetUnitFacing(Boss_Spell_unit1[data]))
    if((Boss_Spell_data1[data2]<=Boss_Spell_data2[data2]))then
        set Boss_z[1]=I2R(Boss_Spell_data1[data2])/ I2R(Boss_Spell_data2[data2])
        set Boss_x[1]=Boss_Spell_X[data]+(Boss_Spell_X[data2]-Boss_Spell_X[data])*Boss_z[1]
        set Boss_y[1]=Boss_Spell_Y[data]+(Boss_Spell_Y[data2]-Boss_Spell_Y[data])*Boss_z[1]
        if IsTerrainWalkable(Boss_x[1],Boss_y[1])then
            call SetUnitX(Boss_Spell_unit1[data],Boss_x[1])
            call SetUnitY(Boss_Spell_unit1[data],Boss_y[1])
        else
            set Boss_Spell_data1[data2]=Boss_Spell_data2[data2]
        endif
    endif
    loop
        exitwhen i==end
        set t=LoadInteger(BYHT,Boss_Spell_data1[data],i)
        set Boss_x[1]=(GetUnitX(II[(t)]))
        set Boss_y[1]=(GetUnitY(II[(t)]))
        set Boss_z[1]=Deg2Rad((GetUnitFacing(II[(t)])))
        if i==index-Boss_Spell_data2[data2]then
            call LTv(t)
            set Boss_Spell_data3[data2]=Boss_Spell_data3[data2]+1
        else
            call LKv(t,Boss_x[0])
            call Llv(t,Boss_y[0])
            call SetUnitFacing(II[(t)],((Boss_z[0])*1.)*bj_RADTODEG)
            if i==index then
                call SetUnitAnimationByIndex(II[t],1)
            endif
        endif
        set Boss_x[0]=Boss_x[1]
        set Boss_y[0]=Boss_y[1]
        set Boss_z[0]=Boss_z[1]
        set i=i+1
    endloop
    if Boss_Spell_data1[data]==Boss_Spell_data3[data2]then
        call free(Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call Boss_Spell_deallocate(data2)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:437")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    elseif Boss_Spell_data1[data2]==Boss_Spell_data2[data2]then
        call IssueImmediateOrderById(Boss_Spell_unit1[data],$D0004)
    endif
endfunction

function HeroSkills_A02U_Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2=Boss_Spell_data3[data]
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],1)
    set Boss_x[2]=(Boss_Spell_X[data2]-Boss_Spell_X[data])
    set Boss_y[2]=(Boss_Spell_Y[data2]-Boss_Spell_Y[data])
    set Boss_z[1]=SquareRoot(((Boss_x[2]*Boss_x[2])+(Boss_y[2]*Boss_y[2])))
    if((Boss_z[1]<=100.))then
        set Boss_z[2]=.03
        set Boss_Spell_data2[data2]=$A
    else
        set Boss_z[1]=(Boss_z[1]/ 20.)
        set Boss_z[2]=.02/ Pow(Boss_z[1]/ 5,.2)
        set Boss_Spell_data2[data2]=R2I(Boss_z[1]+.8)
    endif
    set Boss_Spell_data1[data2]=0
    set Boss_Spell_data3[data2]=0
    call TimerStart(GetExpiredTimer(),Boss_z[2],true,function HeroSkills_A02U_Start)
endfunction

function HeroSkills_A02U_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer data2=Boss_Spell_allocate()
    local unit c=GetTriggerUnit()
    local integer id=(GetUnitUserData((c)))
    local integer i=$A
    local integer t
    local player p=GetOwningPlayer(c)
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a=GetUnitFacing(c)
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=c
    set Boss_Spell_unit2[data]=ConvertVersion(id)
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_data2[data]=i
    set Boss_Spell_data3[data]=data2
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_X[data2]=GetSpellTargetX()
    set Boss_Spell_Y[data2]=GetSpellTargetY()
    loop
        exitwhen i==0
        set i=i-1
        set t=LVv('e03J',x,y,a)
        call SetUnitOwner(II[(t)],(p),false)
        call Lfv(t,$FF,$FF,$FF,$E6-25*i)
        call SaveInteger(BYHT,Boss_Spell_data1[data],i,t)
    endloop
    call TimerStart(Boss_Spell_timer[data],.0,false,function HeroSkills_A02U_Channel)
    set HeroSkills_A02U_Data[id]=data
    call GFv_v(c)
    set MB[id]=true
    set c=null
    set p=null
    set HeroSkills_A02U_Mana[id]=HeroSkills_A02U_Mana[id]-$A
    if HeroSkills_A02U_Mana[id]<$A then
        call RemoveUnitBJ(HeroSkills_A02U_Unit[id],44)
        set HeroSkills_A02U_Unit[id]=null
    endif
endfunction

function HeroSkills_A02U_EndCast takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=HeroSkills_A02U_Data[id]
    local integer data2=Boss_Spell_data3[data]
    set Boss_Spell_data1[data2]=Boss_Spell_data2[data2]
    set MB[id]=false
endfunction

function HeroSkills_A02U_onAttack takes nothing returns nothing
    if HeroSkills_A02U_Mana[(pF_v)]<100 then
        set HeroSkills_A02U_Mana[(pF_v)]=HeroSkills_A02U_Mana[(pF_v)]+1
        if HeroSkills_A02U_Mana[(pF_v)]==$A then
            set CR=false
            set HeroSkills_A02U_Unit[(pF_v)]=CreateUnit(P[Kc[(pF_v)]],'e03J',$85B,$6FB3,0)
            set CR=true
        endif
    endif
endfunction

function Hero_EnterWorld_H00E takes nothing returns nothing
    local integer id=le
    set HeroSkills_A02U_Mana[id]=0
    set HeroSkills_A02U_Dodge[id]=ModifyUnitDodge(id,$D)
    call UnitAddPAttackTrig(id,function HeroSkills_A02U_onAttack)
endfunction

function HeroSkills_A02U_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A02U',function HeroSkills_A02U_Actions)
    call RegisterSpellEndCastEvent('A02U',function HeroSkills_A02U_EndCast)
    call RegisterHeroInitEvent('H00E',function Hero_EnterWorld_H00E)
endfunction

function HeroSkills_A03V_onAttack takes nothing returns nothing
    local integer lv
    if GetUnitAbilityLevel((mF),'Bply')>0 then
        if GetRandomInt(1,5)==1 then
            set lv=GetUnitAbilityLevel((mF),'A03V')
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",(MF),"chest"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",(MF),"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",(MF),"origin"))
            call UnitDamageTargetBY((((mF))),(((MF))),((((300*lv+GetHeroState2((mF),true)*lv/ 2)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
    elseif GetRandomInt(1,$A)==1 then
        set lv=GetUnitAbilityLevel((mF),'A03V')
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((300*lv+GetHeroState2((mF),true)*lv/ 2)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function HeroSkills_A03V_Actions takes nothing returns nothing
    if GetUnitAbilityLevel(GetTriggerUnit(),'A03V')==1 then
        call UnitAddPAttackTrig((GetUnitUserData((GetTriggerUnit()))),function HeroSkills_A03V_onAttack)
        call ModifyUnitCrit((GetUnitUserData((GetTriggerUnit()))),5)
    endif
    call ModifyUnitCrit((GetUnitUserData((GetTriggerUnit()))),.5)
endfunction

function HeroSkills_A03V_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A03V',function HeroSkills_A03V_Actions)
endfunction

function HeroSkills_A0B4_onAttack takes nothing returns nothing
    local boolean b=false
    local integer lv=GetUnitAbilityLevel((mF),'A0B4')
    local integer H6e=GetUnitAbilityLevel((mF),'A0B6')
    local real x=GetUnitX((mF))
    local real y=GetUnitY((mF))
    local real d
    local real a
    local unit u
    if GetUnitAbilityLevel((mF),'A08M')>0 then
        if GetRandomInt(1,$A)==1 then
            set b=true
            set d=500*lv+1.5*GetHeroState2((mF),true)*lv
            set a=375
            if GetUnitAbilityLevel((mF),'A08M')<0 then
                call DestroyEffect(AddSpecialEffectTarget("Twister Slash.mdl",(mF),"origin"))
            endif
        else
            set d=(.2+.02*lv)*GetDamage()
            set a=275
        endif
    elseif GetRandomInt(1,20)==1 then
        set b=true
        set d=500*lv+1.5*GetHeroState2((mF),true)*lv
        set a=375
        if GetUnitAbilityLevel((mF),'A08M')<0 then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",u,"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIlb\\AIlbSpecialArt.mdl",u,"origin"))
        endif
        call DestroyEffect(AddSpecialEffectTarget("Twister Slash.mdl",(mF),"origin"))
    else
        set d=(.2+.02*lv)*GetDamage()
        set a=275
    endif
    call GroupEnumUnitsInRange(G,x,y,a+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,a)then
            if IsUnitAliveAndEnemy(u,(mF))then
                if b then
                    if u==(MF)then
                        call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    else
                        call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                    if GetUnitAbilityLevel((mF),'A08M')<0 then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",u,"origin"))
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",u,"origin"))
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIlb\\AIlbSpecialArt.mdl",u,"origin"))
                    endif
                    if H6e>0 then
                        call sc___prototype8_evaluate(2,((GetUnitUserData((u)))),H6e)
                    endif
                elseif u!=(MF)then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GryphonRiderMissile\\GryphonRiderMissileTarget.mdl",u,"origin"))
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                endif
            endif
        endif
    endloop
endfunction

function HeroSkills_A0B4_Actions takes nothing returns nothing
    if GetUnitAbilityLevel(GetTriggerUnit(),'A0B4')==1 then
        call UnitAddPAttackTrig((GetUnitUserData((GetTriggerUnit()))),function HeroSkills_A0B4_onAttack)
    endif
endfunction

function HeroSkills_A0B4_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0B4',function HeroSkills_A0B4_Actions)
endfunction

function HeroSkills_A0B6_Buff_Expierd takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:438")
    call UnitRemoveAbility((Je[(id)]),'B02V')
    call ModifyUnitArmor((id),R2I(12.5*HeroSkills_A0B6_Buff_Def[id]))
    call Unit_Cancel_Counter(671,(id))
    set HeroSkills_A0B6_Buff_Def[id]=0
    set HeroSkills_A0B6_Buff_Timer[id]=null
endfunction

function HeroSkills_A0B6_Buff takes integer id,integer bMv returns nothing
    if GetUnitAbilityLevel((Je[(id)]),'B01W')==0 and GetUnitAbilityLevel((Je[(id)]),'B02V')==0 then
        call UnitAppBuffByLevel((id),'A0B7',$D006B,bMv)
    else
        if HeroSkills_A0B6_Buff_Timer[id]==null then
            set HeroSkills_A0B6_Buff_Timer[id]=NewTimer(id)
            call UnitRemoveAbility((Je[(id)]),'B01W')
            call Unit_App_Counter(672,(id))
        endif
        if bMv>HeroSkills_A0B6_Buff_Def[id]then
            call ModifyUnitArmor((id),R2I(-12.5*(bMv-HeroSkills_A0B6_Buff_Def[id])))
            set HeroSkills_A0B6_Buff_Def[id]=bMv
        endif
        if GetUnitAbilityLevel((mF),'A08M')<0 then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(Je[(id)]),"origin"))
        endif
        call Auxiliary_TargetOrder(('A081'),null,HeroSkills_A0B6_Buff_Def[id],$D006B,(Je[(id)]))
        call TimerStart(HeroSkills_A0B6_Buff_Timer[id],6,false,function HeroSkills_A0B6_Buff_Expierd)
    endif
endfunction

function HeroSkills_A0B6_onAttack takes nothing returns nothing
    if GetUnitAbilityLevel((mF),'Bply')>0 then
        if GetRandomInt(1,100)<31 then
            call HeroSkills_A0B6_Buff(((pF)),GetUnitAbilityLevel((mF),'A0B6'))
        endif
    elseif GetRandomInt(1,100)<16 then
        call HeroSkills_A0B6_Buff(((pF)),GetUnitAbilityLevel((mF),'A0B6'))
    endif
endfunction

function HeroSkills_A0B6_Actions takes nothing returns nothing
    if GetUnitAbilityLevel(GetTriggerUnit(),'A0B6')==1 then
        call UnitAddPAttackTrig((GetUnitUserData((GetTriggerUnit()))),function HeroSkills_A0B6_onAttack)
    endif
endfunction

function HeroSkills_A0B6_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0B6',function HeroSkills_A0B6_Actions)
endfunction

function HeroSkills_A0B3_Buff_Expierd takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:439")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ON','B010')
    call HeroAddExtraAttack((id),-HeroSkills_A0B3_Buff_Atk[id])
    call ModifyUnitArmor((id),-HeroSkills_A0B3_DefList[HeroSkills_A0B3_Buff_Def[id]])
    call ModifyUnitHpRegen((id),-HeroSkills_A0B3_Buff_HpRegen[id])
    call Unit_Cancel_Counter(673,(id))
    set HeroSkills_A0B3_Buff_Timer[id]=null
endfunction

function HeroSkills_A0B3_Buff takes integer id,integer bMv returns nothing
    local integer jre=R2I((.6+.06*bMv)*GetHeroAttackNotExtra((id)))
    local integer fve
    if HeroSkills_A0B3_Buff_Timer[id]==null then
        set HeroSkills_A0B3_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0B3_Buff_Def[id]=0
        set HeroSkills_A0B3_Buff_Atk[id]=0
        set HeroSkills_A0B3_Buff_HpRegen[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0ON')
        call Unit_App_Counter(674,(id))
    endif
    if bMv>HeroSkills_A0B3_Buff_Def[id]then
        set fve=R2I(.01*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE)+25*bMv)
        call ModifyUnitArmor((id),HeroSkills_A0B3_DefList[bMv]-HeroSkills_A0B3_DefList[HeroSkills_A0B3_Buff_Def[id]])
        call ModifyUnitHpRegen((id),fve-HeroSkills_A0B3_Buff_HpRegen[id])
        set HeroSkills_A0B3_Buff_HpRegen[id]=fve
        set HeroSkills_A0B3_Buff_Def[id]=bMv
    endif
    call HeroAddExtraAttack((id),jre-HeroSkills_A0B3_Buff_Atk[id])
    call TimerStart(HeroSkills_A0B3_Buff_Timer[id],5,false,function HeroSkills_A0B3_Buff_Expierd)
    set HeroSkills_A0B3_Buff_Atk[id]=jre
endfunction

function HeroSkills_A0B3_onAttack takes nothing returns nothing
    if GetRandomInt(1,20)==1 then
        call HeroSkills_A0B3_Buff(((pF_v)),GetUnitAbilityLevel((mF),'A0B3'))
    endif
endfunction

function HeroSkills_A0B3_Actions takes nothing returns nothing
    if GetUnitAbilityLevel(GetTriggerUnit(),'A0B3')==1 then
        call UnitAddPAttackTrig((GetUnitUserData((GetTriggerUnit()))),function HeroSkills_A0B3_onAttack)
    endif
endfunction

function HeroSkills_A0B3_Init takes nothing returns nothing
    set HeroSkills_A0B3_DefList[1]=25
    set HeroSkills_A0B3_DefList[2]=35
    set HeroSkills_A0B3_DefList[3]=50
    set HeroSkills_A0B3_DefList[4]=70
    set HeroSkills_A0B3_DefList[5]=95
    set HeroSkills_A0B3_DefList[6]=125
    set HeroSkills_A0B3_DefList[7]=$A0
    set HeroSkills_A0B3_DefList[8]=$C8
    set HeroSkills_A0B3_DefList[9]=$F5
    set HeroSkills_A0B3_DefList[$A]=295
    call RegisterHeroSkillEvent('A0B3',function HeroSkills_A0B3_Actions)
endfunction

function HeroSkills_A0B5_onAttack takes nothing returns nothing
    local integer lv
    if GetUnitAbilityLevel((mF),'Bply')>0 then
        if GetRandomInt(1,$A)==1 then
            set lv=GetUnitAbilityLevel((mF),'A0B5')
            if GetRandomInt(1,2)==1 then
                if GetUnitAbilityLevel((mF),'A08M')<0 then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(MF),"origin"))
                endif
            else
                if GetUnitAbilityLevel((mF),'A08M')<0 then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",(MF),"origin"))
                endif
            endif
            if GetUnitAbilityLevel((mF),'A08M')<0 then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",(MF),"chest"))
            endif
            call UnitDamageTargetBY((((mF))),(((MF))),(((($BB8*lv+GetHeroState2((mF),true)*($F+3*lv))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
    elseif GetRandomInt(1,20)==1 then
        set lv=GetUnitAbilityLevel((mF),'A0B5')
        if GetUnitAbilityLevel((mF),'A08M')<0 then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",(MF),"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(MF),"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",(MF),"origin"))
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",(MF),"chest"))
        endif
        call UnitDamageTargetBY((((mF))),(((MF))),(((($BB8*lv+GetHeroState2((mF),true)*($F+3*lv))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function HeroSkills_A0B5_Actions takes nothing returns nothing
    if GetUnitAbilityLevel(GetTriggerUnit(),'A0B5')==1 then
        call UnitAddPAttackTrig((GetUnitUserData((GetTriggerUnit()))),function HeroSkills_A0B5_onAttack)
    endif
endfunction

function HeroSkills_A0B5_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0B5',function HeroSkills_A0B5_Actions)
endfunction

function HeroSkills_A01H_Buff_Cancel takes integer id returns nothing
    if HeroSkills_A01H_Buff_Use[id]then
        set HeroSkills_A01H_Buff_Last[HeroSkills_A01H_Buff_Next[id]]=HeroSkills_A01H_Buff_Last[id]
        set HeroSkills_A01H_Buff_Next[HeroSkills_A01H_Buff_Last[id]]=HeroSkills_A01H_Buff_Next[id]
        set HeroSkills_A01H_Buff_Use[id]=false
        if HeroSkills_A01H_Buff_Next[(0)]==0 then
            call frv(HeroSkills_A01H_Buff_Func)
        endif
        call Unit_Cancel_Counter(675,(id))
    endif
endfunction

function HeroSkills_A01H_Buff_Loop takes nothing returns nothing
    local integer id=HeroSkills_A01H_Buff_Next[(0)]
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set HeroSkills_A01H_Buff_Time[id]=HeroSkills_A01H_Buff_Time[id]-1
            if HeroSkills_A01H_Buff_Time[id]<1 then
                if GetLocalPlayer()==GetOwningPlayer((Je[(id)]))then
                    call CameraSetSourceNoise(0,0)
                    call CameraSetTargetNoise(0,0)
                endif
                if HeroSkills_A01H_Buff_Adef[id]!=0 then
                    call DeUnitAdef((id),HeroSkills_A01H_Buff_Adef[id])
                    call SetUnitNotSeckill((id),false)
                    set HeroSkills_A01H_Buff_Adef[id]=0
                endif
                call UnitAddAbility((Je[(id)]),'A08M')
                call UnitRemoveAbility((Je[(id)]),'A08M')
                call SetUnitTimeScale((Je[(id)]),1)
                call SetUnitVertexColor((Je[(id)]),$FF,$FF,$FF,$FF)
                call DestroyEffectBY(HeroSkills_A01H_Buff_Eff[id])
                call HeroSkills_A01H_Buff_Cancel(id)
            elseif GetLocalPlayer()==(P[Kc[((id))]])then
                call CameraSetTargetNoiseEx(30,100,true)
                call CameraSetSourceNoiseEx(30,100,true)
            endif
        elseif GetLocalPlayer()==(P[Kc[((id))]])then
            call CameraSetSourceNoise(0,0)
            call CameraSetTargetNoise(0,0)
            call UnitRemoveAbility((Je[(id)]),'A08M')
        endif
        set id=HeroSkills_A01H_Buff_Next[id]
    endloop
endfunction

function HeroSkills_A01H_Buff_App takes integer id returns boolean
    if not HeroSkills_A01H_Buff_Use[id]then
        if HeroSkills_A01H_Buff_Next[(0)]==0 then
            if HeroSkills_A01H_Buff_Func==0 then
                set HeroSkills_A01H_Buff_Func=fxv(function HeroSkills_A01H_Buff_Loop)
            endif
            call fov(HeroSkills_A01H_Buff_Func)
        endif
        set HeroSkills_A01H_Buff_Next[id]=HeroSkills_A01H_Buff_Next[(0)]
        set HeroSkills_A01H_Buff_Last[HeroSkills_A01H_Buff_Next[(0)]]=id
        set HeroSkills_A01H_Buff_Next[(0)]=id
        set HeroSkills_A01H_Buff_Last[id]=0
        set HeroSkills_A01H_Buff_Use[id]=true
        call Unit_App_Counter(676,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A01H_Buff takes integer id returns nothing
    if HeroSkills_A01H_Buff_App(id)then
        if GetLocalPlayer()==GetOwningPlayer((Je[(id)]))then
            call CameraSetTargetNoiseEx(30,100,true)
            call CameraSetSourceNoiseEx(30,100,true)
        endif
        call UnitAddAbility((Je[(id)]),'A08L')
        call UnitRemoveAbility((Je[(id)]),'A08L')
        call SetUnitAnimation((Je[(id)]),"Stand")
        call SetUnitTimeScale((Je[(id)]),6)
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('clsd')))then
            set HeroSkills_A01H_Buff_Eff[id]=(s__Effect_build(AddSpecialEffectTarget(("GreenChakra.mdl"),((Je[(id)])),("origin"))))
            set HeroSkills_A01H_Buff_Adef[id]=ModifyUnitAdef((id),20)
            call SetUnitNotSeckill((id),true)
            call SetItemDroppableTimedById((id),'clsd',120)
            call NewTextTagInTarget_B((Je[(id)]),"Damage reduction+20%",$A,$B4,$E1,$91)
            call Ltv(LAv("ForestBolt.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2))
            call DestroyEffect(AddSpecialEffectTarget("ForestBolt.mdl",(Je[(id)]),"origin"))
        else
            set HeroSkills_A01H_Buff_Eff[id]=(s__Effect_build(AddSpecialEffectTarget(("BlackChakra.mdl"),((Je[(id)])),("origin"))))
        endif
    endif
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('I0D4')))then
        set HeroSkills_A01H_Buff_Time[id]=$C0+32
        call SetItemDroppableTimedById((id),'I0D4',120)
    elseif(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('sor5')))then
        set HeroSkills_A01H_Buff_Time[id]=$C0+64
        call SetItemDroppableTimedById((id),'sor5',120)
    else
        set HeroSkills_A01H_Buff_Time[id]=$C0
    endif
endfunction

function HeroSkills_A01H_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer C4v
    local real x
    local real y
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    call SetUnitScale(II[(Boss_Spell_data2[data])],((1.75-.00625*Boss_Spell_data3[data])*1.),0,0)
    set C4v=R2I($9B+1.25*Boss_Spell_data3[data])
    call Lfv(Boss_Spell_data2[data],C4v,C4v,C4v,$FF)
    call SetUnitVertexColor((Je[(Boss_Spell_data1[data])]),C4v,C4v,C4v,$FF)
    if Boss_Spell_data3[data]>=24 and ModuloInteger(Boss_Spell_data3[data],4)==0 then
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        set Boss_Spell_V[data]=Boss_Spell_V[data]+GetRandomReal(.075,.15)
        call mjv(x,y,Boss_Spell_V[data])
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,1),$FF,C4v,C4v,$FF))
    elseif Boss_Spell_data3[data]<=0 then
        call PauseUnit((Je[(Boss_Spell_data1[data])]),false)
        call SetUnitInvulnerable((Je[(Boss_Spell_data1[data])]),false)
        call SetUnitAnimation((Je[(Boss_Spell_data1[data])]),"Stand Ready")
        call HeroSkills_A01H_Buff((Boss_Spell_data1[data]))
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:440")
    endif
endfunction

function HeroSkills_A01H_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=LAv("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",GetUnitX((Je[(Boss_Spell_data1[data])])),GetUnitY((Je[(Boss_Spell_data1[data])])),1.25)
    set Boss_Spell_data3[data]=80
    set Boss_Spell_V[data]=0
    call PauseUnit((Je[(Boss_Spell_data1[data])]),true)
    call SetUnitInvulnerable((Je[(Boss_Spell_data1[data])]),true)
    call SetUnitAnimation((Je[(Boss_Spell_data1[data])]),"Spell Channel")
    call Unit_App_Counter(677,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A01H_Start)
endfunction

function HeroSkills_A01H_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01H',function HeroSkills_A01H_Actions)
endfunction

function Hero_H00E_Init takes nothing returns nothing
    call HeroSkills_A02U_Init()
    call RegisterHeroSkillEvent('A03V',function HeroSkills_A03V_Actions)
    call RegisterHeroSkillEvent('A0B4',function HeroSkills_A0B4_Actions)
    call RegisterHeroSkillEvent('A0B6',function HeroSkills_A0B6_Actions)
    call HeroSkills_A0B3_Init()
    call RegisterHeroSkillEvent('A0B5',function HeroSkills_A0B5_Actions)
    call RegisterSpellEffectEvent('A01H',function HeroSkills_A01H_Actions)
endfunction

function HeroSkills_A007_Buff_Death takes nothing returns nothing
    local integer tid=s__Trig_P
    local integer id=HeroSkills_A007_Buff_DamageSource[tid]
    local real d=($A+GetUnitAbilityLevel((Je[(id)]),'A00K'))*GetHeroState3((Je[(id)]),true)
    local real x=GetUnitX((Je[(tid)]))
    local real y=GetUnitY((Je[(tid)]))
    local group g=CreateGroup()
    local unit u
    call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,1.5))
    call Ltv(LAv("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",x,y,1.25))
    call GroupEnumUnitsInRange(g,x,y,$FA,null)
    call GroupRemoveUnit(g,(Je[(tid)]))
    loop
        set u=FirstOfGroup(g)
        exitwhen u==null
        call GroupRemoveUnit(g,u)
        if IsUnitAliveAndEnemy(u,(Je[(id)]))then
            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call sc___prototype269_evaluate(1,(Je[(id)]),u,d,7.5)
        endif
    endloop
    call DestroyGroup(g)
    call ReleaseTimer(HeroSkills_A007_Buff_Timer[tid],"[TimerUtils]Error:441")
    call s__Trig_remove(s__Trig_Index)
    set HeroSkills_A007_Buff_Timer[tid]=null
    set HeroSkills_A007_Buff_Trig[tid]=0
    set g=null
endfunction

function HeroSkills_A007_Buff_End takes nothing returns nothing
    local integer tid=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:442")
    call s__Trig_remove(HeroSkills_A007_Buff_Trig[tid])
    set HeroSkills_A007_Buff_Timer[tid]=null
    set HeroSkills_A007_Buff_Trig[tid]=0
endfunction

function HeroSkills_A007_Buff_Add takes unit s,unit t,real d,real bav returns nothing
    local integer tid=(GetUnitUserData((t)))
    call Qnv(s,t,2.5*GetUnitAbilityLevel(s,'A00K')+.25*GetHeroState3(s,true)+.05*d,8,bav)
    if HeroSkills_A007_Buff_Timer[tid]==null then
        set HeroSkills_A007_Buff_Timer[tid]=NewTimer(tid)
        set HeroSkills_A007_Buff_Trig[tid]=AddUnitDeathTrigB(tid,function HeroSkills_A007_Buff_Death)
    endif
    set HeroSkills_A007_Buff_DamageSource[tid]=(GetUnitUserData((s)))
    call TimerStart(HeroSkills_A007_Buff_Timer[tid],4,FALSE,function HeroSkills_A007_Buff_End)
endfunction

function HeroSkills_A007_onAttack takes nothing returns nothing
    call HeroSkills_A007_Buff_Add((mF),(MF),GetDamage(),7.5)
endfunction

function Hero_EnterWorld_H005 takes nothing returns nothing
    call UnitAddPAttackTrig(le,function HeroSkills_A007_onAttack)
endfunction

function s__FireBall_impact takes integer this returns boolean
    local real x=GetUnitX(s__barrage_target[this])
    local real y=GetUnitY(s__barrage_target[this])
    if GetUnitAbilityLevel(s__barrage_target[this],'A0KK')==1 then
        set s__FireBall_damage[this]=s__FireBall_damage[this]+3.2*HB[(GetUnitUserData((s__barrage_target[this])))]
    else
        set s__FireBall_damage[this]=s__FireBall_damage[this]+1.6*HB[(GetUnitUserData((s__barrage_target[this])))]
    endif
    if GetUnitAbilityLevel(s__barrage_target[this],'A0KK')==1 then
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__FireBall_damage[this])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((17.5)*1.))*1.),(("|c00e23e2c")))
        call Ltv(LAv("NewGroundEX.mdl",x,y,2))
        call Ltv(Lfv(LAv("firegold.mdl",x,y,.5),$FF,$FF,$FF,$9B))
    else
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__FireBall_damage[this])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00e23e2c")))
        call Ltv(LAv("NewGroundEX.mdl",x,y,1.5))
    endif
    call HeroSkills_A007_Buff_Add(s__barrage_atkunit[this],s__barrage_target[this],s__FireBall_damage[this],9)
    call m1v(s__barrage_target[this],1.+.2*GetUnitAbilityLevel(s__barrage_atkunit[this],'A007'))
    return true
endfunction

function s__FireBall_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__FireBall_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__FireBall_launcher]
    local unit u
    if this!=s__FireBall_launcher then
        call UseBarrage(s__FireBall_launcher)
        loop
            exitwhen this==s__FireBall_launcher
            if(s__barrage_outside[(this)])then
                call s__FireBall_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call s__FireBall_impact(this)
                call RemoveBarrage((this))
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__FireBall_launcher]then
        set s__barrage_InOperation[s__FireBall_launcher]=false
        call frv(s__FireBall_func)
    endif
endfunction

function s__FireBall_fired takes integer this returns nothing
    call s__barrage_Filling((s__FireBall_launcher),(this))
    if not s__barrage_InOperation[s__FireBall_launcher]then
        set s__barrage_InOperation[s__FireBall_launcher]=true
        call fov(s__FireBall_func)
    endif
endfunction

function s__FireBall_onInit takes nothing returns nothing
    set s__FireBall_func=fxv(function s__FireBall_loop_c)
    set s__FireBall_launcher=NewLauncher()
endfunction

function HeroSkills_A007_Actions takes nothing returns nothing
    local integer t=CreateBarrageTypeA(GetTriggerUnit(),GetSpellTargetUnit())
    local integer lv=GetUnitAbilityLevel(s__barrage_atkunit[t],'A007')
    call LMv(s__barrage_model[t],"s_LavaBomb.mdx")
    call SetUnitScale(II[(s__barrage_model[t])],((1.25)*1.),0,0)
    set s__barrage_speed[t]=37.5
    set s__FireBall_damage[t]=Unit_Fire_Damage[(GetUnitUserData((s__barrage_atkunit[t])))]*(600*lv+(12.5+lv)*GetHeroState3(s__barrage_atkunit[t],true))
    call s__FireBall_fired(t)
endfunction

function HeroSkills_A007_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A007',function HeroSkills_A007_Actions)
    call Luv('A007')
endfunction

function HeroSkills_A00J_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local group g=NewGroup()
    local integer i=6
    local integer c
    local real d=Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data]
    local real x
    local real y
    local unit u
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    loop
        set i=i-1
        set c=LoadInteger(BYHT,Boss_Spell_data3[data],i)
        set x=(GetUnitX(II[(c)]))
        set y=(GetUnitY(II[(c)]))
        call GroupEnumUnitsInRange(G,x,y,$AF+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$AF)then
                if not IsUnitInGroup(u,g)and IsUnitAliveAndEnemyNotAvul(u,(Je[(Boss_Spell_data1[data])]))then
                    call GroupAddUnit(g,u)
                    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\ImmolationRed\\ImmolationRedDamage.mdl",u,"chest",.5)
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call HeroSkills_A007_Buff_Add((Je[(Boss_Spell_data1[data])]),u,d,7.5)
                endif
            endif
        endloop
        if Boss_Spell_data2[data]<=0 then
            call Ltv(c)
        endif
        exitwhen i==0
    endloop
    if Boss_Spell_data2[data]<=0 then
        call free(Boss_Spell_data3[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:443")
        call Unit_Cancel_Counter(678,Boss_Spell_data1[data])
    endif
    call RecycleGroup(g)
    set g=null
endfunction

function HeroSkills_A00J_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer i=6
    local integer lv
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real p8v
    local real fYv
    local real fzv
    local unit u
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A00J')
    set Boss_Spell_V[data]=Unit_Fire_Damage[(Boss_Spell_data1[data])]*(75*lv+GetHeroState3((Je[(Boss_Spell_data1[data])]),true)*(1.5+.15*lv))
    set Boss_Spell_data2[data]=$A+R2I(.6*lv)
    set Boss_Spell_data3[data]=malloc()
    set p8v=Atan2(y-GetUnitY((Je[(Boss_Spell_data1[data])])),x-GetUnitX((Je[(Boss_Spell_data1[data])])))+bj_PI/ 2
    set fYv=$A0*Cos(p8v)
    set fzv=$A0*Sin(p8v)
    set x=x-3.5*fYv
    set y=y-3.5*fzv
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2.25),$FF,125,125,$FF))
    loop
        set i=i-1
        set x=x+fYv
        set y=y+fzv
        call SaveInteger(BYHT,Boss_Spell_data3[data],i,LFv(LAv("Doodads\\Cinematic\\TownBurningFireEmitter\\TownBurningFireEmitter.mdl",x,y,1.5),"Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl"))
        call GroupEnumUnitsInRange(G,x,y,$E1+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$E1)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call m2v(u,1.5,'A500','B500',true)
                    call UnitAppBuff((GetUnitUserData((u))),'A0EX',$D006B)
                endif
            endif
        endloop
        exitwhen i==0
    endloop
    call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2.25),$FF,125,125,$FF))
    call TimerStart(NewTimer(data),.5,true,function HeroSkills_A00J_Start)
    call Unit_App_Counter(679,Boss_Spell_data1[data])
endfunction

function HeroSkills_A00J_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00J',function HeroSkills_A00J_Actions)
    call Luv('A00J')
endfunction

function HeroSkills_A015_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A015_Func]
    local integer data
    local unit u
    local integer Kbe
    local integer i
    local real x
    local real y
    local real a
    local real pwv
    local real bav
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-8
        call Lfv(Boss_Spell_data2[data],$CD,75,75,Boss_Spell_data3[data])
        if ModuloInteger(Boss_Spell_data3[data],80)==0 then
            set i=8
            set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
            set pwv=375-1.6*Boss_Spell_data3[data]
            set bav=1.5-Boss_Spell_data3[data]/ $AF
            set Boss_Spell_V[data]=1.4*Boss_Spell_V[data]
            loop
                set i=i-1
                set a=bj_PI*i/ 4
                call Ltv(LFv(LAv("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",x+pwv*Cos(a),y+pwv*Sin(a),bav),"Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl"))
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,pwv+64+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,pwv+64)then
                    if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        call GroupAddUnit(Boss_Spell_group1[data],u)
                        call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($E-.025*Boss_Spell_data3[data])*1.))*1.),(("|c00fe7b78")))
                        call sc___prototype269_evaluate(1,(Je[(Boss_Spell_data1[data])]),u,Boss_Spell_V[data],$C-.025*Boss_Spell_data3[data])
                    endif
                endif
            endloop
        endif
        if Boss_Spell_data3[data]<1 then
            call RecycleGroup(Boss_Spell_group1[data])
            call Unit_Cancel_Counter(680,Boss_Spell_data1[data])
            call LTv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call fvv(t)
            set Boss_Spell_group1[data]=null
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A015_Actions takes nothing returns nothing
    local integer t=D9v(HeroSkills_A015_Func)
    local integer data=Boss_Spell_allocate()
    local integer lv
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=LVv('e00E',GetUnitX((Je[(Boss_Spell_data1[data])])),GetUnitY((Je[(Boss_Spell_data1[data])])),GetUnitFacing((Je[(Boss_Spell_data1[data])])))
    call LDv(Boss_Spell_data2[data],1.5)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data3[data]=$A8
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A015')
    set Boss_Spell_V[data]=Unit_Fire_Damage[(Boss_Spell_data1[data])]*(800*lv+($F+2.5*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true))
    call Lfv(Boss_Spell_data2[data],$CD,75,75,$A8)
    call SetUnitAnimation(II[Boss_Spell_data2[data]],"Spell")
    call Unit_App_Counter(681,Boss_Spell_data1[data])
endfunction

function HeroSkills_A015_Init takes nothing returns nothing
    set HeroSkills_A015_Func=fxv(function HeroSkills_A015_Start)
    call RegisterSpellEffectEvent('A015',function HeroSkills_A015_Actions)
    call Luv('A015')
endfunction

function HeroSkills_A01J_Buff_Expierd takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:444")
    call UnitRemoveAbilityandBuffBY((Je[(data)]),'A0KK','B040')
    call Unit_Cancel_Counter(682,(data))
    set HeroSkills_A01J_Buff_Timer[data]=null
endfunction

function HeroSkills_A01J_Buff takes unit u returns nothing
    local integer data=(GetUnitUserData((u)))
    if HeroSkills_A01J_Buff_Timer[data]==null then
        set HeroSkills_A01J_Buff_Timer[data]=NewTimer(data)
        call UnitAddAbilityBY((Je[(data)]),'A0KK')
        call Unit_App_Counter(683,(data))
    endif
    call TimerStart(HeroSkills_A01J_Buff_Timer[data],5,false,function HeroSkills_A01J_Buff_Expierd)
endfunction

function HeroSkills_A01J_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A01J_Func]
    local integer data
    local unit u
    local integer fx
    local integer i
    local real a
    loop
        exitwhen 0==t
        set i=8
        set data=Timer_List[t]
        if Boss_Spell_data3[data]>0 then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-$A
            set Boss_Spell_Z[data]=Boss_Spell_Z[data]-.125
            loop
                set i=i-1
                set a=Boss_Spell_Z[data]-i*bj_PI/ 4
                set fx=LoadInteger(BYHT,Boss_Spell_data2[data],i)
                call LKv(fx,Boss_Spell_X[data]+Boss_Spell_data3[data]*Cos(a))
                call Llv(fx,Boss_Spell_Y[data]+Boss_Spell_data3[data]*Sin(a))
                call SetUnitFacing(II[(fx)],((a+bj_PI/ 2)*1.)*bj_RADTODEG)
                exitwhen i==0
            endloop
        else
            call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],275+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],275)then
                    if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call sc___prototype269_evaluate(1,(Je[(Boss_Spell_data1[data])]),u,Boss_Spell_V[data],$C)
                        call HeroSkills_A01J_Buff(u)
                    endif
                endif
            endloop
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,Boss_Spell_data2[data],i)))
                exitwhen i==0
            endloop
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",Boss_Spell_X[data],Boss_Spell_Y[data]))
            call Lqv(LAv("MagmaBurst.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],1.75),3)
            call Unit_Cancel_Counter(684,Boss_Spell_data1[data])
            call free(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call fvv(t)
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A01J_Actions takes nothing returns nothing
    local integer t=D9v(HeroSkills_A01J_Func)
    local integer data=Boss_Spell_allocate()
    local integer i=8
    local integer lv
    local integer fx
    local real a
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=malloc()
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set Boss_Spell_data3[data]=275
    set Boss_Spell_Z[data]=0
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A01J')
    set Boss_Spell_V[data]=Unit_Fire_Damage[(Boss_Spell_data1[data])]*($7D0*lv+(20+4*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true))
    loop
        set i=i-1
        set a=i*bj_PI/ 4
        set fx=Lnv(Boss_Spell_X[data]+275*Cos(a),Boss_Spell_Y[data]+275*Sin(a),a+bj_PI/ 2)
        call LMv(fx,"Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl")
        call SetUnitFlyHeight(II[(fx)],((25)*1.),0)
        call SetUnitScale(II[(fx)],((1.125)*1.),0,0)
        call SaveInteger(BYHT,Boss_Spell_data2[data],i,fx)
        exitwhen i==0
    endloop
    call Lqv(LIv("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],-$96,3,0,90),.85)
    call Unit_App_Counter(685,Boss_Spell_data1[data])
endfunction

function HeroSkills_A01J_Init takes nothing returns nothing
    set HeroSkills_A01J_Func=fxv(function HeroSkills_A01J_Start)
    call RegisterSpellEffectEvent('A01J',function HeroSkills_A01J_Actions)
    call Luv('A01J')
endfunction

function HeroSkills_A074_SuiPian02 takes nothing returns nothing
    local integer data=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:445")
    local real x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    local real y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,300+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,300)then
            if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call sc___prototype269_evaluate(1,(Je[(Boss_Spell_data1[data])]),u,Boss_Spell_V[data],13.5)
            endif
        endif
    endloop
    call Ltv(Boss_Spell_data2[data])
    call Unit_Cancel_Counter(686,Boss_Spell_data1[data])
    call Boss_Spell_deallocate(data)
endfunction

function HeroSkills_A074_SuiPian takes integer u,real x,real y,real d returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=u
    set Boss_Spell_data2[data]=Lnv(x,y,0)
    call LMv(Boss_Spell_data2[data],"ChaosMeteorV3.mdx")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((.7)*1.),0,0)
    set Boss_Spell_V[data]=d
    call TimerStart(NewTimer(data),1.95,false,function HeroSkills_A074_SuiPian02)
    call Unit_App_Counter(687,u)
endfunction

function HeroSkills_A074_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    call HeroSkills_A074_SuiPian(Boss_Spell_data1[data],Boss_Spell_X[data]+GetRandomReal(-330,330),Boss_Spell_Y[data]+GetRandomReal(-330,330),Boss_Spell_V[data])
    if Boss_Spell_data2[data]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:446")
        call Unit_Cancel_Counter(688,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
    endif
endfunction

function HeroSkills_A074_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A074')
    set Boss_Spell_V[data]=Unit_Fire_Damage[(Boss_Spell_data1[data])]*($3E8*lv+GetHeroState3((Je[(Boss_Spell_data1[data])]),true)*(20+lv))
    set Boss_Spell_data2[data]=$A
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(Boss_Spell_data1[data])]],('I0DR')))then
        set Boss_Spell_V[data]=Boss_Spell_V[data]*1.15
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]+3
    endif
    call Lqv(LXv('e01E',Boss_Spell_X[data],Boss_Spell_Y[data],.5,"birth"),1.5)
    call TimerStart(NewTimer(data),.33,true,function HeroSkills_A074_Start)
    call Unit_App_Counter(689,Boss_Spell_data1[data])
endfunction

function HeroSkills_A074_Channel takes nothing returns nothing
    call UnitAnimationAddEffect(UnitAppAnimation(GetTriggerUnit()),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl","origin")
endfunction

function HeroSkills_A074_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A074',function HeroSkills_A074_Channel)
    call RegisterSpellEffectEvent('A074',function HeroSkills_A074_Actions)
    call Luv('A074')
endfunction

function s__MeteorStrikeShard_Kqe takes integer this returns boolean
    set s__MeteorStrikeShard_count[this]=s__MeteorStrikeShard_count[this]+1
    call SetUnitScale(II[(s__barrage_model[this])],((1.25+.03125*s__MeteorStrikeShard_count[this])*1.),0,0)
    return false
endfunction

function s__MeteorStrikeShard_impact takes integer this returns boolean
    local real x=s__barrage_X[this]
    local real y=s__barrage_Y[this]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,325+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,325)then
            if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__MeteorStrikeShard_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call sc___prototype269_evaluate(1,s__barrage_atkunit[this],u,s__MeteorStrikeShard_damage[this],9)
                call m1v(u,2.5)
            endif
        endif
    endloop
    call Ltv(LAv("firegold.mdl",x,y,.875))
    return true
endfunction

function s__MeteorStrikeShard_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__MeteorStrikeShard_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__MeteorStrikeShard_launcher]
    local unit u
    if this!=s__MeteorStrikeShard_launcher then
        call UseBarrage(s__MeteorStrikeShard_launcher)
        loop
            exitwhen this==s__MeteorStrikeShard_launcher
            if(s__barrage_outside[(this)])then
                call s__MeteorStrikeShard_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call s__MeteorStrikeShard_impact(this)
                call RemoveBarrage((this))
            else
                call s__MeteorStrikeShard_Kqe(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__MeteorStrikeShard_launcher]then
        set s__barrage_InOperation[s__MeteorStrikeShard_launcher]=false
        call frv(s__MeteorStrikeShard_func)
    endif
endfunction

function s__MeteorStrikeShard_fired takes integer this returns nothing
    call s__barrage_Filling((s__MeteorStrikeShard_launcher),(this))
    if not s__barrage_InOperation[s__MeteorStrikeShard_launcher]then
        set s__barrage_InOperation[s__MeteorStrikeShard_launcher]=true
        call fov(s__MeteorStrikeShard_func)
    endif
endfunction

function s__MeteorStrikeShard_Create takes unit u,real x,real y,real z,real a,real d returns nothing
    local real pwv=GetRandomReal($96,450)
    local real tA=a+GetRandomReal(-.45*bj_PI,.45*bj_PI)
    local integer this=CreateBarrageTypeD(x+$96*Cos(a),y+$96*Sin(a),z,x-pwv*Cos(tA),y-pwv*Sin(tA),0)
    set s__barrage_atkunit[this]=u
    call LMv(s__barrage_model[this],"s_LavaBomb.mdl")
    call SetUnitScale(II[(s__barrage_model[this])],((1.25)*1.),0,0)
    call SetBarrageFlightRadian(this,.5)
    set s__barrage_speed[this]=40.-25.*z/ 1200.
    set s__barrage_acceleration[this]=.25
    set s__MeteorStrikeShard_count[this]=0
    set s__MeteorStrikeShard_damage[this]=d
    call s__MeteorStrikeShard_fired(this)
endfunction

function s__MeteorStrikeShard_onInit takes nothing returns nothing
    set s__MeteorStrikeShard_func=fxv(function s__MeteorStrikeShard_loop_c)
    set s__MeteorStrikeShard_launcher=NewLauncher()
endfunction

function HeroSkills_A0FG_Start_02 takes integer NNv,real x,real y returns nothing
    local integer i=8
    local real a
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x+300*Cos(a),y+300*Sin(a),3))
        exitwhen i==0
    endloop
endfunction

function HeroSkills_A0FG_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0FG_Func]
    local integer cFv
    local unit u
    local integer i
    local real x
    local real y
    local real z
    local real a
    local real d
    local real r
    loop
        exitwhen 0==data
        set HeroSkills_A0FG_Time[data]=HeroSkills_A0FG_Time[data]-1
        set x=(GetUnitX(II[(HeroSkills_A0FG_Eff[data])]))
        set y=(GetUnitY(II[(HeroSkills_A0FG_Eff[data])]))
        if HeroSkills_A0FG_Time[data]<1 then
            set i=18
            loop
                set i=i-1
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(0,500)
                call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x+d*Cos(a),y+d*Sin(a),3))
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(0,500)
                call Ltv(LAv("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",x+d*Cos(a),y+d*Sin(a),3))
                exitwhen i==0
            endloop
            set i=4
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,HeroSkills_A0FG_Vessel[data],i)))
                exitwhen i==0
            endloop
            set r=600
            if UnitHasItemOfType((Je[(HeroSkills_A0FG_Uint[data])]),'I0DR')then
                set r=r+300
            endif
            call GroupEnumUnitsInRange(G,x,y,r+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,r)then
                    if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0FG_Uint[data])]))then
                        call UnitDamageTargetBY((((Je[(HeroSkills_A0FG_Uint[data])]))),((u)),((((HeroSkills_A0FG_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call sc___prototype269_evaluate(1,(Je[(HeroSkills_A0FG_Uint[data])]),u,HeroSkills_A0FG_Damage[data],$F)
                        call m1v(u,$A)
                    endif
                endif
            endloop
            call PauseUnit((Je[(HeroSkills_A0FG_Uint[data])]),false)
            call SetUnitInvulnerable((Je[(HeroSkills_A0FG_Uint[data])]),false)
            call zhv((Kc[(HeroSkills_A0FG_Uint[data])]),60,.75)
            call Unit_Cancel_Counter(690,HeroSkills_A0FG_Uint[data])
            call free(HeroSkills_A0FG_Vessel[data])
            call Ltv(HeroSkills_A0FG_Eff[data])
            call fvv(data)
        else
            set i=4
            set z=$4B0*HeroSkills_A0FG_Time[data]/ 128.
            set HeroSkills_A0FG_Ang[data]=HeroSkills_A0FG_Ang[data]+(.5-.25*HeroSkills_A0FG_Time[data]/ 128.)
            call SetUnitFlyHeight(II[(HeroSkills_A0FG_Eff[data])],((z)*1.),0)
            if HeroSkills_A0FG_Time[data]>95 then
                call Lfv(HeroSkills_A0FG_Eff[data],$FF,$FF,$FF,R2I(255.-255.*(HeroSkills_A0FG_Time[data]-96.)/ 32.))
            elseif ModuloInteger(HeroSkills_A0FG_Time[data],4)==0 then
                call s__MeteorStrikeShard_Create((Je[(HeroSkills_A0FG_Uint[data])]),x,y,z,Lx*HeroSkills_A0FG_Time[data]/ 32.,.01875*HeroSkills_A0FG_Damage[data])
            endif
            loop
                set i=i-1
                set a=HeroSkills_A0FG_Ang[data]+Lx*i/ 4.
                set cFv=LoadInteger(BYHT,HeroSkills_A0FG_Vessel[data],i)
                call LKv(cFv,x+275*Cos(a))
                call Llv(cFv,y+275*Sin(a))
                call SetUnitFlyHeight(II[(cFv)],((z)*1.),0)
                exitwhen i==0
            endloop
            if ModuloInteger(HeroSkills_A0FG_Time[data],32)==0 then
                call HeroSkills_A0FG_Start_02(data,x,y)
            endif
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0FG_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A0FG_Func)
    local integer i=4
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real a
    local integer cFv
    set HeroSkills_A0FG_Uint[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0FG_Vessel[data]=malloc()
    set HeroSkills_A0FG_Eff[data]=LNv("Abilities\\Weapons\\BallsOfFireMissile\\BallsOfFireMissile.mdl",x,y,$4B0,$A)
    set HeroSkills_A0FG_Time[data]=$80
    set HeroSkills_A0FG_Ang[data]=0
    set HeroSkills_A0FG_Damage[data]=Unit_Fire_Damage[(HeroSkills_A0FG_Uint[data])]*400*GetHeroState3((Je[(HeroSkills_A0FG_Uint[data])]),true)
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(HeroSkills_A0FG_Uint[data])]],('I0DR')))then
        set HeroSkills_A0FG_Damage[data]=HeroSkills_A0FG_Damage[data]*1.1
    endif
    loop
        set i=i-1
        set a=Lx*i/ 4.
        set cFv=Lnv(x+275*Cos(a),y+275*Sin(a),a+.5*bj_PI)
        call LMv(cFv,"Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile_mini.mdl")
        call SetUnitScale(II[(cFv)],((5)*1.),0,0)
        call SetUnitFlyHeight(II[(cFv)],(($4B0)*1.),0)
        call SaveInteger(BYHT,HeroSkills_A0FG_Vessel[data],i,cFv)
        exitwhen i==0
    endloop
    call HeroSkills_A0FG_Start_02(data,x,y)
    call Lfv(HeroSkills_A0FG_Eff[data],$FF,$FF,$FF,0)
    call PauseUnit((Je[(HeroSkills_A0FG_Uint[data])]),true)
    call SetUnitInvulnerable((Je[(HeroSkills_A0FG_Uint[data])]),true)
    call SetUnitAnimation((Je[(HeroSkills_A0FG_Uint[data])]),"Spell")
    call Unit_App_Counter(691,HeroSkills_A0FG_Uint[data])
endfunction

function HeroSkills_A0FG_Init takes nothing returns nothing
    set HeroSkills_A0FG_Func=fxv(function HeroSkills_A0FG_Start)
    call RegisterSpellEffectEvent('A0FG',function HeroSkills_A0FG_Actions)
    call Luv('A0FG')
endfunction

function Hero_H005_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H005',function Hero_EnterWorld_H005)
    call HeroSkills_A007_Init()
    call HeroSkills_A00J_Init()
    call HeroSkills_A015_Init()
    call HeroSkills_A01J_Init()
    call HeroSkills_A074_Init()
    call HeroSkills_A0FG_Init()
endfunction

function HeroSkills_AUfa_Shield_broken takes integer id returns boolean
    local unit u
    local real x
    local real y
    local real d
    if HeroSkills_AUfa_Shield_Timer[id]!=null then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        if HeroSkills_AUfa_Shield_Source[id]==0 then
            call GroupEnumUnitsInRange(G,x,y,337.5+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,337.5)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                        call pmv(u,2.5)
                    endif
                endif
            endloop
            call Lqv(LAv("FreezingRing.mdl",x,y,1.5),2.5)
            call Ltv(LAv("ColdBlast.mdl",x,y,1.25))
        else
            set d=Unit_Frost_Damage[(HeroSkills_AUfa_Shield_Source[id])]*40*GetHeroState3((Je[(HeroSkills_AUfa_Shield_Source[id])]),true)
            call GroupEnumUnitsInRange(G,x,y,450+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,450)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_AUfa_Shield_Source[id])]))then
                        call UnitDamageTargetBY((((Je[(HeroSkills_AUfa_Shield_Source[id])]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((12.5)*1.))*1.),(("|c007387ff")))
                        call pmv(u,2.5)
                    endif
                endif
            endloop
            call Lqv(LAv("FrostNova.mdl",x,y,1.25),2.5)
            call Lqv(LAv("FreezingRing.mdl",x,y,1.875),2.5)
            call Ltv(LAv("ColdBlast.mdl",x,y,1.5))
            call Unit_Cancel_Counter(692,HeroSkills_AUfa_Shield_Source[id])
            set HeroSkills_AUfa_Shield_Source[id]=0
        endif
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ZK','Bapl')
        call ModifyUnitArmor(id,-HeroSkills_AUfa_Def[id])
        call ReleaseTimer(HeroSkills_AUfa_Shield_Timer[id],"[TimerUtils]Error:447")
        call s__Trig_remove((HeroSkills_AUfa_Shield[id]))
        call s__Trig_remove((HeroSkills_AUfa_Death[id]))
        call Unit_Cancel_Counter(693,(id))
        set HeroSkills_AUfa_Shield_Timer[id]=null
        set HeroSkills_AUfa_Def[id]=0
        return true
    endif
    return false
endfunction

function HeroSkills_AUfa_Shield_func takes nothing returns boolean
    local integer id=NX[s__Trig_Index]
    if(JF[HF])then
        if IsUnitType((mF),UNIT_TYPE_MELEE_ATTACKER)then
            call UnitAppBuff((pF_v),'A0ZL',$D0102)
        endif
    endif
    if HeroSkills_AUfa_Shield_life[id]>GetDamage()then
        set HeroSkills_AUfa_Shield_life[id]=HeroSkills_AUfa_Shield_life[id]-GetDamage()
        set KF[HF]=PF+1000000.
    else
        call DamageMinus(HeroSkills_AUfa_Shield_life[id])
        call HeroSkills_AUfa_Shield_broken(id)
    endif
    return false
endfunction

function HeroSkills_AUfa_End takes nothing returns nothing
    call HeroSkills_AUfa_Shield_broken(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function HeroSkills_AUfa_Deagh takes nothing returns nothing
    call HeroSkills_AUfa_Shield_broken(s__Trig_P)
endfunction

function HeroSkills_AUfa_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local unit cue=GetTriggerUnit()
    local integer lv=GetUnitAbilityLevel(cue,'A0ZJ')
    local real mana=GetUnitState(cue,UNIT_STATE_MANA)
    local real v=Unit_Frost_Damage[(GetUnitUserData((cue)))]*(2+.075*lv)*.15*GetUnitState(cue,UNIT_STATE_MAX_MANA)
    local integer def
    if lv<4 then
        set def=lv*5
    else
        set def=$F+(lv-3)*30
    endif
    if(Je[(id)])!=cue then
        set v=.5*v
    endif
    if HeroSkills_AUfa_Shield_Timer[id]==null then
        set HeroSkills_AUfa_Shield_Timer[id]=NewTimer(id)
        set HeroSkills_AUfa_Shield[id]=UnitAddShieldTrigB((id),function HeroSkills_AUfa_Shield_func)
        set HeroSkills_AUfa_Death[id]=AddUnitDeathTrigB((id),function HeroSkills_AUfa_Deagh)
        set NX[HeroSkills_AUfa_Shield[id]]=id
        set HeroSkills_AUfa_Shield_life[id]=v
        call Unit_App_Counter(694,(id))
    else
        if v>HeroSkills_AUfa_Shield_life[id]then
            set HeroSkills_AUfa_Shield_life[id]=v
        endif
    endif
    if HeroSkills_AUfa_Def[id]!=def then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ZK','Bapl')
        call UnitAddAbilityLevelBY((Je[(id)]),'A0ZK',lv)
        call ModifyUnitArmor(id,def-HeroSkills_AUfa_Def[id])
        set HeroSkills_AUfa_Def[id]=def
    endif
    if HeroSkills_AUfa_Shield_Source[id]==0 and UnitHasItemOfType(cue,'I0B4')then
        set HeroSkills_AUfa_Shield_Source[id]=(GetUnitUserData((cue)))
        call Unit_App_Counter(695,HeroSkills_AUfa_Shield_Source[id])
    endif
    call DestroyEffect(AddSpecialEffectTarget("WaterEnchant.mdx",(Je[(id)]),"origin"))
    call SetUnitState(cue,UNIT_STATE_MANA,.85*mana)
    call TimerStart(HeroSkills_AUfa_Shield_Timer[id],30,false,function HeroSkills_AUfa_End)
    set cue=null
endfunction

function HeroSkills_AUfa_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0ZJ',function HeroSkills_AUfa_Actions)
    call Luv('A0ZJ')
    call Luv('A0ZK')
    call Luv('A0ZL')
endfunction

function s__IceShard_K8e takes integer this returns nothing
    local integer cue=(GetUnitUserData((s__barrage_atkunit[this])))
    if HeroSkills_A011_Use[(cue)]and HeroSkills_A011_IceShard[(cue)]==0 and IsUnitInRange(II[HeroSkills_A011_Model[(cue)]],II[s__barrage_model[this]],$AF)then
        set HeroSkills_A011_IceShard[(cue)]=this
        set s__barrage_speed[this]=25.
        set s__IceShard_damage[this]=3*s__IceShard_damage[this]
        call Lqv(LIv("IceNova.mdl",s__barrage_X[this],s__barrage_Y[this],62.5,.375,(s__barrage_facing[(this)]),0),1.5)
        call NewTextTagInTarget_B(II[s__barrage_model[this]],"|c007387ffCHAIN|r",$F,$FF,$FF,$FF)
    endif
endfunction

function s__IceShard_impact takes integer this returns nothing
    local integer cue=(GetUnitUserData((s__barrage_atkunit[this])))
    local real eoe=1.
    local real x=GetUnitX(s__barrage_target[this])
    local real y=GetUnitY(s__barrage_target[this])
    local unit u
    if HeroSkills_A011_Use[(cue)]and HeroSkills_A011_IceShard[(cue)]==this then
        set eoe=1.75
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,4),1.5)
        call Ltv(LAv("IceNova.mdl",x,y,3.25))
        call Ltv(LAv("FrostNova.mdl",x,y,1.25))
        call zhv((Kc[(cue)]),30,.5)
        call sc___prototype3_evaluate($A,(cue))
    endif
    if pMv(s__barrage_target[this],true)then
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(cue)]],('I0D1')))then
            call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((5*s__IceShard_damage[this])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C+$C*eoe)*1.))*1.),(("|c007387ff")))
        else
            call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((3.5*s__IceShard_damage[this])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A+$A*eoe)*1.))*1.),(("|c007387ff")))
        endif
        call Lqv(LAv("Shiva'sWrath.mdl",x,y,eoe),1.5)
        call Ltv(LAv("IceNova.mdl",x,y,eoe))
    elseif GetUnitAbilityLevel(s__barrage_target[this],'Bfro')>0 then
        set u=s__barrage_target[this]
        call DestroyEffect(AddSpecialEffect("FreezingRing.mdl",x,y))
        call NewTextTagInTarget_B(s__barrage_target[this],"|c007387ffFrost!",$F*eoe,$FF,$FF,$FF)
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__IceShard_damage[this])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call pmv(s__barrage_target[this],3)
        call pkv((GetUnitUserData((s__barrage_target[this]))))
        call GroupEnumUnitsInRange(G,x,y,$A0+75,null)
        call GroupRemoveUnit(G,u)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$A0)then
                if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                    call pmv(u,2)
                endif
            endif
        endloop
    else
        call UnitDamageTargetBY(((s__barrage_atkunit[this])),((s__barrage_target[this])),((((s__IceShard_damage[this])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call pmv(s__barrage_target[this],1.5)
        call Ltv(LAv("IceNova.mdl",x,y,.75*eoe))
    endif
endfunction

function s__IceShard_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__IceShard_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__IceShard_launcher]
    local unit u
    if this!=s__IceShard_launcher then
        call UseBarrage(s__IceShard_launcher)
        loop
            exitwhen this==s__IceShard_launcher
            if(s__barrage_outside[(this)])then
                call s__IceShard_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call s__IceShard_impact(this)
                call RemoveBarrage((this))
            else
                call s__IceShard_K8e(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__IceShard_launcher]then
        set s__barrage_InOperation[s__IceShard_launcher]=false
        call frv(s__IceShard_func)
    endif
endfunction

function s__IceShard_fired takes integer this returns nothing
    call s__barrage_Filling((s__IceShard_launcher),(this))
    if not s__barrage_InOperation[s__IceShard_launcher]then
        set s__barrage_InOperation[s__IceShard_launcher]=true
        call fov(s__IceShard_func)
    endif
endfunction

function s__IceShard_onInit takes nothing returns nothing
    set s__IceShard_func=fxv(function s__IceShard_loop_c)
    set s__IceShard_launcher=NewLauncher()
endfunction

function HeroSkills_A00Z_Actions takes nothing returns nothing
    local integer t=CreateBarrageTypeA(GetTriggerUnit(),GetSpellTargetUnit())
    local integer lv=GetUnitAbilityLevel(s__barrage_atkunit[t],'A00Z')
    call LMv(s__barrage_model[t],"Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[t])],((1.25)*1.),0,0)
    set s__barrage_speed[t]=40.
    set s__IceShard_damage[t]=Unit_Frost_Damage[(GetUnitUserData((s__barrage_atkunit[t])))]*(400*lv+($A+lv)*GetHeroState3(s__barrage_atkunit[t],true))
    call Lqv(LIv("FrostNova.mdl",s__barrage_X[t],s__barrage_Y[t],62.5,.375,s__locationez_ang[s__barrage_p1[t]],0),1.5)
    call s__IceShard_fired(t)
endfunction

function HeroSkills_A00Z_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00Z',function HeroSkills_A00Z_Actions)
    call Luv('A00Z')
endfunction

function HeroSkills_A01D_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u=GetSpellTargetUnit()
    local integer lv=GetUnitAbilityLevel(c,'A01D')
    local real d=Unit_Frost_Damage[(GetUnitUserData((c)))]*(500*lv+($F+1.5*lv)*GetHeroState3(c,true))
    local real r=$E1+$A*lv
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    call plv(u)
    call Lqv(LAv("GreaterGeiser.mdl",x,y,1.25),1)
    call PlaySoundAtPoint_BJ((vn),((100)*1.),((x)*1.),((y)*1.),0)
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    call GroupRemoveUnit(G,u)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,r)then
            if IsUnitAliveAndEnemy(u,c)then
                call DestroyEffect(AddSpecialEffectTarget("WaterBlast.mdl",u,"chest"))
                call TimerDestroyAddSpecialEffectTargetBY("Geiser.mdl",u,"origin",1)
                call UnitDamageTargetBY(((c)),((u)),((((.7*d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call plv(u)
            endif
        endif
    endloop
    set c=null
endfunction

function HeroSkills_A01D_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A01D',function HeroSkills_A01D_Actions)
    call Luv('A01D')
endfunction

function HeroSkills_A010_LuJing_func001 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local group g=NewGroup()
    local unit u
    local real x
    local real y
    set Boss_Spell_X[data]=Boss_Spell_X[data]-1
    set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$FA)then
            if not IsUnitInGroup(u,g)and IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                call GroupAddUnit(g,u)
                if GetUnitAbilityLevel(u,'Bfro')>0 then
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*2*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                else
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endif
    endloop
    if Boss_Spell_X[data]<1 then
        call Unit_Cancel_Counter(696,Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
        call Ltv(Boss_Spell_data3[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:448")
    endif
    call RecycleGroup(g)
    set g=null
endfunction

function HeroSkills_A010_LuJing takes integer c,real x,real y,real d returns nothing
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=c
    set Boss_Spell_data2[data]=LAv("Whirlpool.mdl",x,y,.25)
    call SetUnitOwner(II[(Boss_Spell_data2[data])],(GetOwningPlayer((Je[(c)]))),false)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((25)*1.),0)
    set Boss_Spell_data3[data]=LAv("AuraOfChilliness.mdl",x,y,1.175)
    set Boss_Spell_X[data]=6*4
    set Boss_Spell_V[data]=d
    call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",x,y))
    call DestroyEffect(AddSpecialEffect("SupremeGeiser.mdl",x,y))
    call UnitAddAbility(II[Boss_Spell_data2[data]],'A012')
    call Unit_App_Counter(697,c)
    call TimerStart(NewTimer(data),.25,TRUE,function HeroSkills_A010_LuJing_func001)
endfunction

function HeroSkills_A010_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A010_Func]
    local unit u
    local real x
    local real y
    local real s
    loop
        exitwhen 0==data
        if .075*HeroSkills_A010_A[data]+12.5>HeroSkills_A010_A[data]then
            set s=HeroSkills_A010_A[data]
        else
            set s=.075*HeroSkills_A010_A[data]+12.5
        endif
        set x=GetUnitX((Je[(HeroSkills_A010_Unit[data])]))+s*HeroSkills_A010_RX[data]
        set y=GetUnitY((Je[(HeroSkills_A010_Unit[data])]))+s*HeroSkills_A010_RY[data]
        set HeroSkills_A010_A[data]=HeroSkills_A010_A[data]-s
        if not IsTerrainWalkable(x,y)then
            set x=IsTerrainWalkable_X
            set y=IsTerrainWalkable_Y
            set HeroSkills_A010_A[data]=0
        endif
        call LKv(HeroSkills_A010_Eff[data],x)
        call Llv(HeroSkills_A010_Eff[data],y)
        call SetUnitX((Je[(HeroSkills_A010_Unit[data])]),x)
        call SetUnitY((Je[(HeroSkills_A010_Unit[data])]),y)
        call IssueImmediateOrderById((Je[(HeroSkills_A010_Unit[data])]),$D0004)
        call SetUnitAnimation((Je[(HeroSkills_A010_Unit[data])]),"Attack Walk Stand Spin")
        if HeroSkills_A010_A[data]<=HeroSkills_A010_B[data]then
            set HeroSkills_A010_X[data]=HeroSkills_A010_X[data]+$FA*HeroSkills_A010_RX[data]
            set HeroSkills_A010_Y[data]=HeroSkills_A010_Y[data]+$FA*HeroSkills_A010_RY[data]
            set HeroSkills_A010_B[data]=HeroSkills_A010_B[data]-$FA
            call HeroSkills_A010_LuJing(HeroSkills_A010_Unit[data],HeroSkills_A010_X[data],HeroSkills_A010_Y[data],.05*HeroSkills_A010_Damage[data])
        endif
        call GroupEnumUnitsInRange(G,x,y,$C0+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$C0)then
                if not IsUnitInGroup(u,HeroSkills_A010_Group[data])and IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A010_Unit[data])]))then
                    call GroupAddUnit(HeroSkills_A010_Group[data],u)
                    call DestroyEffect(AddSpecialEffectTarget("WaterBlast.mdl",u,"chest"))
                    call UnitDamageTargetBY((((Je[(HeroSkills_A010_Unit[data])]))),((u)),((((HeroSkills_A010_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        if not UnitAlive((Je[(HeroSkills_A010_Unit[data])]))or HeroSkills_A010_A[data]<=0 then
            call SetUnitPathing((Je[(HeroSkills_A010_Unit[data])]),true)
            call QueueUnitAnimation((Je[(HeroSkills_A010_Unit[data])]),"stand")
            call Auxiliary_TargetOrder(('ACbl'),null,1,$D0085,(Je[(HeroSkills_A010_Unit[data])]))
            call RecycleGroup(HeroSkills_A010_Group[data])
            call Unit_Cancel_Counter(698,HeroSkills_A010_Unit[data])
            call Ltv(HeroSkills_A010_Eff[data])
            call fvv(data)
            set HeroSkills_A010_Group[data]=null
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A010_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A010_Func)
    local integer lv
    local real x
    local real y
    local real dX
    local real dY
    local real p8v
    set HeroSkills_A010_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A010_Group[data]=NewGroup()
    set HeroSkills_A010_X[data]=GetUnitX((Je[(HeroSkills_A010_Unit[data])]))
    set HeroSkills_A010_Y[data]=GetUnitY((Je[(HeroSkills_A010_Unit[data])]))
    set dX=GetSpellTargetX()-HeroSkills_A010_X[data]
    set dY=GetSpellTargetY()-HeroSkills_A010_Y[data]
    set p8v=Atan2(dY,dX)
    set HeroSkills_A010_Eff[data]=Lnv(HeroSkills_A010_X[data],HeroSkills_A010_Y[data],p8v)
    call LMv(HeroSkills_A010_Eff[data],"Abilities\\Weapons\\WaterElementalMissile\\WaterElementalMissile.mdl")
    call SetUnitScale(II[(HeroSkills_A010_Eff[data])],((3.5)*1.),0,0)
    call SetUnitFlyHeight(II[(HeroSkills_A010_Eff[data])],((50)*1.),0)
    set HeroSkills_A010_A[data]=SquareRoot(dX*dX+dY*dY)
    set HeroSkills_A010_B[data]=HeroSkills_A010_A[data]-$FA
    set HeroSkills_A010_RX[data]=Cos(p8v)
    set HeroSkills_A010_RY[data]=Sin(p8v)
    set lv=GetUnitAbilityLevel((Je[(HeroSkills_A010_Unit[data])]),'A010')
    set HeroSkills_A010_Damage[data]=Unit_Frost_Damage[(HeroSkills_A010_Unit[data])]*(750*lv+(20+lv)*GetHeroState3((Je[(HeroSkills_A010_Unit[data])]),true))
    if HeroSkills_A010_A[data]<400 then
        set HeroSkills_A010_A[data]=400
    endif
    call HeroSkills_A010_LuJing(HeroSkills_A010_Unit[data],HeroSkills_A010_X[data],HeroSkills_A010_Y[data],HeroSkills_A010_Damage[data]/ 20)
    call SetUnitAnimation((Je[(HeroSkills_A010_Unit[data])]),"Attack Walk Stand Spin")
    call SetUnitPathing((Je[(HeroSkills_A010_Unit[data])]),false)
    call Unit_App_Counter(699,HeroSkills_A010_Unit[data])
endfunction

function HeroSkills_A010_Init takes nothing returns nothing
    set HeroSkills_A010_Func=fxv(function HeroSkills_A010_Start)
    call RegisterSpellEffectEvent('A010',function HeroSkills_A010_Actions)
    call Luv('A010')
endfunction

function HeroSkills_A017_Actions_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i
    local real pX
    local real pY
    local real a
    local real r
    set Boss_Spell_Z[data]=Boss_Spell_Z[data]-.5
    set r=(425-Boss_Spell_Z[data]*350)
    set i=$A
    loop
        set i=i-1
        set a=i*bj_PI/ 5
        set pX=Boss_Spell_X[data]+r*Cos(a)
        set pY=Boss_Spell_Y[data]+r*Sin(a)
        call Lqv(LAv("BlizzardEruption.mdl",pX,pY,.875),1.5)
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",pX,pY,1.5),1)
        exitwhen i==0
    endloop
    call Ltv(LAv("FreezingRing.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],3-.09375*Boss_Spell_Z[data]))
    if Boss_Spell_Z[data]<=0 then
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:449")
    endif
endfunction

function HeroSkills_A017_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer cue=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(cue)]),'A017')
    local real d=Unit_Frost_Damage[(cue)]*($5DC*lv+(25+2.5*lv)*GetHeroState3((Je[(cue)]),true))
    local unit u
    set Boss_Spell_Z[data]=1
    set Boss_Spell_X[data]=GetUnitX((Je[(cue)]))
    set Boss_Spell_Y[data]=GetUnitY((Je[(cue)]))
    call TimerStart(NewTimer(data),.25,true,function HeroSkills_A017_Actions_func)
    call GroupEnumUnitsInRange(G,Boss_Spell_X[data],Boss_Spell_Y[data],475+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,Boss_Spell_X[data],Boss_Spell_Y[data],475)then
            if IsUnitAliveAndEnemy(u,(Je[(cue)]))then
                if GetUnitAbilityLevel(u,'Bfro')>0 then
                    call pmv(u,3)
                    call UnitDamageTargetBY((((Je[(cue)]))),((u)),((((2*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c007387ff")))
                    call pkv((GetUnitUserData((u))))
                elseif pMv(u,false)then
                    if UnitHasItemOfType((Je[(cue)]),'I0D1')then
                        call UnitDamageTargetBY((((Je[(cue)]))),((u)),((((2*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((16)*1.))*1.),(("|c007387ff")))
                        call pmv(u,5)
                    else
                        call UnitDamageTargetBY((((Je[(cue)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call pmv(u,4.5)
                    endif
                    call NewTextTagInTarget_B(u,"|c007387ffFrost!|r",$C,$FF,$FF,$FF)
                else
                    call UnitDamageTargetBY((((Je[(cue)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call pmv(u,3)
                endif
            endif
        endif
    endloop
    call Ltv(LAv("FrostNova.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],2.25))
    call Ltv(LAv("FreezingRing.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],1.5))
endfunction

function HeroSkills_A017_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A017',function HeroSkills_A017_Actions)
    call Luv('A017')
endfunction

function HeroSkills_A011_BDSP_loop takes nothing returns nothing
    local integer data=J[HeroSkills_A011_BDSP_Func]
    local unit u
    local real x
    local real y
    local real a
    loop
        exitwhen 0==data
        if HeroSkills_A011_Use[(HeroSkills_A011_BDSP_Unit[data])]then
            set HeroSkills_A011_BDSP_X[data]=(GetUnitX(II[(HeroSkills_A011_Model[(HeroSkills_A011_BDSP_Unit[data])])]))
            set HeroSkills_A011_BDSP_Y[data]=(GetUnitY(II[(HeroSkills_A011_Model[(HeroSkills_A011_BDSP_Unit[data])])]))
        endif
        set HeroSkills_A011_BDSP_Time[data]=HeroSkills_A011_BDSP_Time[data]-1
        set HeroSkills_A011_BDSP_R[data]=HeroSkills_A011_BDSP_R[data]+12.5
        set a=bj_DEGTORAD*(GetUnitFacing(II[(HeroSkills_A011_BDSP_Eff[data])]))+.2275
        set x=HeroSkills_A011_BDSP_X[data]+HeroSkills_A011_BDSP_R[data]*Cos(a)
        set y=HeroSkills_A011_BDSP_Y[data]+HeroSkills_A011_BDSP_R[data]*Sin(a)
        call LKv(HeroSkills_A011_BDSP_Eff[data],x)
        call Llv(HeroSkills_A011_BDSP_Eff[data],y)
        call SetUnitFacing(II[(HeroSkills_A011_BDSP_Eff[data])],((a+.25*Lx)*1.)*bj_RADTODEG)
        call GroupEnumUnitsInRange(G,x,y,24+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,24)then
                exitwhen IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A011_BDSP_Unit[data])]))
            endif
        endloop
        if HeroSkills_A011_BDSP_Time[data]<=0 or u!=null then
            if u!=null then
                call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x,y,.625),1)
                call GroupEnumUnitsInRange(G,x,y,$80+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$80)then
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A011_BDSP_Unit[data])]))then
                            if(IsUnitType((u),UNIT_TYPE_GIANT))then
                                call UnitAppBuff((GetUnitUserData((u))),'ACfn',$D0102)
                            else
                                call pmv(u,1)
                            endif
                            if pMv(u,false)then
                                call UnitDamageTargetBY((((Je[(HeroSkills_A011_BDSP_Unit[data])]))),((u)),((((Unit_DOT[(HeroSkills_A011_BDSP_Unit[data])]*1.5*HeroSkills_A011_BDSP_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            else
                                call UnitDamageTargetBY((((Je[(HeroSkills_A011_BDSP_Unit[data])]))),((u)),((((Unit_DOT[(HeroSkills_A011_BDSP_Unit[data])]*HeroSkills_A011_BDSP_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        endif
                    endif
                endloop
            endif
            call Ltv(HeroSkills_A011_BDSP_Eff[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A011_BDSP takes integer c,real x,real y,real nA,real d returns nothing
    local integer data=D9v(HeroSkills_A011_BDSP_Func)
    set HeroSkills_A011_BDSP_Unit[data]=c
    set HeroSkills_A011_BDSP_Eff[data]=Lnv(x+96*Cos(nA),y+96*Sin(nA),nA)
    call LMv(HeroSkills_A011_BDSP_Eff[data],"IceBolt.mdl")
    call SetUnitScale(II[(HeroSkills_A011_BDSP_Eff[data])],((1.5)*1.),0,0)
    call SetUnitFlyHeight(II[(HeroSkills_A011_BDSP_Eff[data])],((62.5)*1.),0)
    set HeroSkills_A011_BDSP_Time[data]=24
    set HeroSkills_A011_BDSP_X[data]=x
    set HeroSkills_A011_BDSP_Y[data]=y
    set HeroSkills_A011_BDSP_R[data]=0
    set HeroSkills_A011_BDSP_Damage[data]=d
endfunction

function HeroSkills_A011_End takes integer id returns nothing
    local integer i=4
    loop
        set i=i-1
        call Ltv((LoadInteger(BYHT,HeroSkills_A011_Vessel[id],i)))
        exitwhen i==0
    endloop
    if HeroSkills_A011_TargetPoint[id]!=0 then
        call Ltv(HeroSkills_A011_TargetPoint[id])
        set HeroSkills_A011_TargetPoint[id]=0
    endif
    call UnitRemoveAbilityBY((Je[(id)]),'A018')
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A011',true)
    call RecycleGroup(HeroSkills_A011_Group[id])
    call Ltv(HeroSkills_A011_Model[id])
    call free(HeroSkills_A011_Vessel[id])
    set HeroSkills_A011_Group[id]=null
endfunction

function HeroSkills_A011_Stop takes integer id returns nothing
    if HeroSkills_A011_Use[id]then
        set HeroSkills_A011_Last[HeroSkills_A011_Next[id]]=HeroSkills_A011_Last[id]
        set HeroSkills_A011_Next[HeroSkills_A011_Last[id]]=HeroSkills_A011_Next[id]
        set HeroSkills_A011_Use[id]=false
        if HeroSkills_A011_Next[(0)]==0 then
            call frv(HeroSkills_A011_Func)
        endif
        call HeroSkills_A011_End(id)
        call Unit_Cancel_Counter(700,(id))
    endif
endfunction

function HeroSkills_A011_Loop takes nothing returns nothing
    local integer id=HeroSkills_A011_Next[(0)]
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    local real z
    local real dX
    local real dY
    local real a
    local real pwv
    loop
        exitwhen id==0
        set z=(GetUnitFlyHeight(II[(HeroSkills_A011_Model[id])]))
        if z<75 then
            set z=z+3
            call SetUnitFlyHeight(II[(HeroSkills_A011_Model[id])],((z)*1.),0)
            call Lfv(HeroSkills_A011_Model[id],$FF,$FF,$FF,R2I(55+(200.*z/ 75.)))
            if z>=75 then
                set i=4
                set x=(GetUnitX(II[(HeroSkills_A011_Model[id])]))
                set y=(GetUnitY(II[(HeroSkills_A011_Model[id])]))
                loop
                    set i=i-1
                    set a=i*bj_PI/ 2
                    set fx=Lnv(x+312.5*Cos(a),y+312.5*Sin(a),a+.25*Lx)
                    call LMv(fx,"IceBolt.mdl")
                    call SetUnitScale(II[(fx)],((1.5)*1.),0,0)
                    call SetUnitFlyHeight(II[(fx)],((62.5)*1.),0)
                    call SaveInteger(BYHT,HeroSkills_A011_Vessel[id],i,fx)
                    exitwhen i==0
                endloop
                call UnitAddAbilityBY((Je[(id)]),'A018')
            endif
        else
            set HeroSkills_A011_Time[id]=HeroSkills_A011_Time[id]-1
            set HeroSkills_A011_A[id]=HeroSkills_A011_A[id]+.125
            set i=4
            if HeroSkills_A011_IceShard[id]==0 then
                set x=(GetUnitX(II[(HeroSkills_A011_Model[id])]))
                set y=(GetUnitY(II[(HeroSkills_A011_Model[id])]))
                if HeroSkills_A011_TargetPoint[id]!=0 then
                    set dX=(GetUnitX(II[(HeroSkills_A011_TargetPoint[id])]))-x
                    set dY=(GetUnitY(II[(HeroSkills_A011_TargetPoint[id])]))-y
                    set pwv=SquareRoot(dX*dX+dY*dY)
                    if pwv>5 then
                        set a=Atan2(dY,dX)
                        set x=x+(pwv/ 48+5)*Cos(a)
                        set y=y+(pwv/ 48+5)*Sin(a)
                    else
                        set x=(GetUnitX(II[(HeroSkills_A011_TargetPoint[id])]))
                        set y=(GetUnitY(II[(HeroSkills_A011_TargetPoint[id])]))
                        call Ltv(HeroSkills_A011_TargetPoint[id])
                        set HeroSkills_A011_TargetPoint[id]=0
                    endif
                endif
            else
                set x=s__barrage_X[HeroSkills_A011_IceShard[id]]
                set y=s__barrage_Y[HeroSkills_A011_IceShard[id]]
            endif
            call LKv(HeroSkills_A011_Model[id],x)
            call Llv(HeroSkills_A011_Model[id],y)
            loop
                set i=i-1
                set a=HeroSkills_A011_A[id]+.25*i*Lx
                set fx=LoadInteger(BYHT,HeroSkills_A011_Vessel[id],i)
                set dX=x+312.5*Cos(a)
                set dY=y+312.5*Sin(a)
                call LKv(fx,dX)
                call Llv(fx,dY)
                call SetUnitFacing(II[(fx)],((a+.25*Lx)*1.)*bj_RADTODEG)
                call GroupEnumUnitsInRange(G,dX,dY,HeroSkills_A011_Rang[id]+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,dX,dY,HeroSkills_A011_Rang[id])then
                        if not IsUnitInGroup(u,HeroSkills_A011_Group[id])and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                            call GroupAddUnit(HeroSkills_A011_Group[id],u)
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ZigguratFrostMissile\\ZigguratFrostMissile.mdl",u,"chest"))
                            if(IsUnitType((u),UNIT_TYPE_GIANT))then
                                call UnitAppBuff((GetUnitUserData((u))),'ACfn',$D0102)
                            else
                                call pmv(u,1)
                            endif
                            if pMv(u,false)then
                                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Unit_DOT[(id)]*1.5*HeroSkills_A011_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            else
                                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Unit_DOT[(id)]*HeroSkills_A011_Damage[id])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        endif
                    endif
                endloop
                exitwhen i==0
            endloop
            if ModuloInteger(HeroSkills_A011_Time[id],6)==0 then
                call HeroSkills_A011_BDSP(id,x,y,HeroSkills_A011_A[id],HeroSkills_A011_Damage[id])
                call GroupClear(HeroSkills_A011_Group[id])
                if ModuloInteger(HeroSkills_A011_Time[id],36)==0 then
                    call Ltv(LAv("FreezingRing.mdl",x,y,1.375))
                endif
            endif
            if HeroSkills_A011_IceShard[id]==0 then
                if HeroSkills_A011_Time[id]<1 then
                    call HeroSkills_A011_Stop(id)
                endif
            elseif ModuloInteger(HeroSkills_A011_Time[id],4)==0 then
                call Ltv(LNv("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",x,y,75,2))
            endif
        endif
        set id=HeroSkills_A011_Next[id]
    endloop
endfunction

function HeroSkills_A011_Open takes integer id returns boolean
    if not HeroSkills_A011_Use[id]then
        if HeroSkills_A011_Next[(0)]==0 then
            if HeroSkills_A011_Func==0 then
                set HeroSkills_A011_Func=fxv(function HeroSkills_A011_Loop)
            endif
            call fov(HeroSkills_A011_Func)
        endif
        set HeroSkills_A011_Next[id]=HeroSkills_A011_Next[(0)]
        set HeroSkills_A011_Last[HeroSkills_A011_Next[(0)]]=id
        set HeroSkills_A011_Next[(0)]=id
        set HeroSkills_A011_Last[id]=0
        set HeroSkills_A011_Use[id]=true
        call Unit_App_Counter(701,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A011_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A011')
    if HeroSkills_A011_Open(id)then
        set HeroSkills_A011_IceShard[id]=0
        set HeroSkills_A011_Model[id]=LAv("FrozenOrb.mdl",GetSpellTargetX(),GetSpellTargetY(),2.75)
        set HeroSkills_A011_Vessel[id]=malloc()
        set HeroSkills_A011_Group[id]=NewGroup()
        set HeroSkills_A011_A[id]=0
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A011',false)
        call Lfv(HeroSkills_A011_Model[id],$FF,$FF,$FF,55)
    else
        call LKv(HeroSkills_A011_Model[id],GetSpellTargetX())
        call Llv(HeroSkills_A011_Model[id],GetSpellTargetY())
    endif
    set HeroSkills_A011_Time[id]=480
    set HeroSkills_A011_Rang[id]=64
    set HeroSkills_A011_Damage[id]=Unit_Frost_Damage[(id)]*($96*lv+(1.5+.2*lv)*GetHeroState3((Je[(id)]),true))
    if UnitHasItemOfType((Je[(id)]),'dkfw')then
        set HeroSkills_A011_Damage[id]=HeroSkills_A011_Damage[id]*1.3
        set HeroSkills_A011_Rang[id]=HeroSkills_A011_Rang[id]*1.3
    endif
    call Lqv(LAv("Shiva'sEnchantment.mdl",(GetUnitX(II[(HeroSkills_A011_Model[id])])),(GetUnitY(II[(HeroSkills_A011_Model[id])])),2.5),2.5)
endfunction

function HeroSkills_A011_Actions_func002 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A011_TargetPoint[id]==0 then
        set HeroSkills_A011_TargetPoint[id]=LAv("FreezingPrison.mdl",GetSpellTargetX(),GetSpellTargetY(),1)
        call SetUnitFlyHeight(II[(HeroSkills_A011_TargetPoint[id])],((50)*1.),0)
    else
        call LKv(HeroSkills_A011_TargetPoint[id],GetSpellTargetX())
        call Llv(HeroSkills_A011_TargetPoint[id],GetSpellTargetY())
    endif
endfunction

function HeroSkills_A011_Init takes nothing returns nothing
    set HeroSkills_A011_BDSP_Func=fxv(function HeroSkills_A011_BDSP_loop)
    call RegisterSpellEffectEvent('A011',function HeroSkills_A011_Actions)
    call RegisterSpellEffectEvent('A018',function HeroSkills_A011_Actions_func002)
    call Luv('A011')
endfunction

function HeroSkills_A00L_End takes integer id returns nothing
    if HeroSkills_A00L_Timer1[id]!=null then
        call ReleaseTimer(HeroSkills_A00L_Timer1[id],"[TimerUtils]Error:450")
        call UnitRemoveAbilityBY((Je[(id)]),'A0LF')
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A00L',true)
        call Unit_Cancel_Counter(702,(id))
        set HeroSkills_A00L_Timer1[id]=null
    endif
endfunction

function HeroSkills_A00L_Loop takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real a=GetRandomReal(0,Lx)
    local real d=GetRandomReal(0,$3E8)
    local real px=HeroSkills_A00L_X[id]+d*Cos(a)
    local real py=HeroSkills_A00L_Y[id]+d*Sin(a)
    local integer fx=Lnv(px,py,GetRandomReal(0,Lx))
    local unit u
    set HeroSkills_A00L_Count[id]=HeroSkills_A00L_Count[id]-1
    call LMv(fx,"Doodads\\Icecrown\\Rocks\\Icecrown_Crystal\\Icecrown_Crystal5.mdl")
    call SetUnitScale(II[(fx)],((2)*1.),0,0)
    call GroupEnumUnitsInRange(G,px,py,500+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,px,py,500)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call pJv(id,u)
            endif
        endif
    endloop
    call Ltv(LFv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",px,py,4),"Shiva'sWrath.mdl"))
    call LQv(fx,$F)
    if HeroSkills_A00L_Count[id]<1 then
        call ReleaseTimer(HeroSkills_A00L_Timer2[id],"[TimerUtils]Error:451")
        set HeroSkills_A00L_Timer2[id]=null
    endif
endfunction

function HeroSkills_A00L_Buff_End takes nothing returns nothing
    local integer id=(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:452"))
    call HeroAddExtraInt(id,-$3E8)
endfunction

function HeroSkills_A00L_Actions_002 takes nothing returns nothing
    call HeroSkills_A00L_End(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function HeroSkills_A00L_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real d=350*GetHeroState3((Je[(id)]),true)
    local unit u
    local boolean b=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('dkfw')))
    if HeroSkills_A00L_Timer1[id]==null then
        set HeroSkills_A00L_Timer1[id]=NewTimer(id)
        call UnitAddAbilityBY((Je[(id)]),'A0LF')
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A00L',false)
        call Unit_App_Counter(703,(id))
    endif
    if HeroSkills_A00L_Timer2[id]==null then
        set HeroSkills_A00L_Timer2[id]=NewTimer(id)
    endif
    set HeroSkills_A00L_Count[id]=24
    set HeroSkills_A00L_X[id]=GetUnitX((Je[(id)]))
    set HeroSkills_A00L_Y[id]=GetUnitY((Je[(id)]))
    call GroupEnumUnitsInRange(G,HeroSkills_A00L_X[id],HeroSkills_A00L_Y[id],$3E8+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,HeroSkills_A00L_X[id],HeroSkills_A00L_Y[id],$3E8)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    if b then
        set HeroSkills_A00L_Count[id]=HeroSkills_A00L_Count[id]+24
        call HeroAddExtraInt(id,$3E8)
        call TimerStart(NewTimer(id),$A,false,function HeroSkills_A00L_Buff_End)
        call TimerStart(HeroSkills_A00L_Timer1[id],$A+3,false,function HeroSkills_A00L_Actions_002)
    else
        call TimerStart(HeroSkills_A00L_Timer1[id],$A,false,function HeroSkills_A00L_Actions_002)
    endif
    call TimerStart(HeroSkills_A00L_Timer2[id],.125,true,function HeroSkills_A00L_Loop)
endfunction

function HeroSkills_A0LF_Start takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:453")
    local integer i=8
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real pX
    local real pY
    local real a
    local real d
    local unit u
    if HeroSkills_A00L_Timer2[id]!=null then
        call ReleaseTimer(HeroSkills_A00L_Timer2[id],"[TimerUtils]Error:454")
        set HeroSkills_A00L_Timer2[id]=null
    endif
    call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$3E8)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call phv(((GetUnitUserData((u)))))
            endif
        endif
    endloop
    loop
        set i=i-1
        set a=i*Lx/ 8.+GetRandomReal(-.15,.15)
        set d=GetRandomReal($96,850)
        set pX=x+d*Cos(a)
        set pY=y+d*Sin(a)
        call LQv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",pX,pY,2.25),1)
        call Ltv(LAv("Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl",pX,pY,5))
        exitwhen i==0
    endloop
    call UnitRemoveAbility((Je[(id)]),'BNvc')
    call Lqv(LAv("BlizzardEruption.mdl",x,y,1.75),1.5)
    call zKv((Kc[(id)]),125,125,$FF,.27)
    call zhv((Kc[(id)]),35,.27)
    call HeroSkills_A00L_End(id)
endfunction

function HeroSkills_A0LF_Actions takes nothing returns nothing
    call TimerStart(NewTimer((GetUnitUserData((GetTriggerUnit())))),0,false,function HeroSkills_A0LF_Start)
endfunction

function HeroSkills_A00L_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00L',function HeroSkills_A00L_Actions)
    call RegisterSpellEffectEvent('A0LF',function HeroSkills_A0LF_Actions)
endfunction

function Hero_H002_Init takes nothing returns nothing
    call HeroSkills_AUfa_Init()
    call HeroSkills_A00Z_Init()
    call HeroSkills_A01D_Init()
    call HeroSkills_A010_Init()
    call HeroSkills_A017_Init()
    call HeroSkills_A011_Init()
    call HeroSkills_A00L_Init()
endfunction

function HeroSkills_A00V_Buff_expierd takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:455")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A09V','B030')
    call ModifyUnitMagicDamage((id),-$A*HeroSkills_A00V_Buff_lv[id])
    call ModifyUnitMpRegen((id),-100*HeroSkills_A00V_Buff_lv[id])
    call Unit_Cancel_Counter(704,(id))
    set HeroSkills_A00V_Buff_timer[id]=null
endfunction

function HeroSkills_A00V_Buff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A00V_Buff_timer[id]==null then
        set HeroSkills_A00V_Buff_timer[id]=NewTimer(id)
        set HeroSkills_A00V_Buff_lv[id]=0
        call UnitAddAbilityBY(u,'A09V')
        call Unit_App_Counter(705,(id))
    endif
    set HeroSkills_A00V_Buff_lv[id]=HeroSkills_A00V_Buff_lv[id]+1
    call ModifyUnitMagicDamage((id),$A)
    call ModifyUnitMpRegen((id),100)
    call NewTextTagInTarget_B(u,"+"+I2S($A*HeroSkills_A00V_Buff_lv[id])+"% �����˺�
    +"+I2S(100*HeroSkills_A00V_Buff_lv[id])+" MP REGEN",8,$B9,$C3,$FF)

    call TimerStart(HeroSkills_A00V_Buff_timer[id],5,false,function HeroSkills_A00V_Buff_expierd)
endfunction

function HeroSkills_A00V_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local real eoe=.2+.01*GetUnitAbilityLevel(c,'A00V')
    local real lYe=eoe*GetUnitState(c,UNIT_STATE_MAX_LIFE)
    local real exe=eoe*GetUnitState(c,UNIT_STATE_MAX_MANA)
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real tM
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((GetUnitUserData((c))))]],('lhst')))then
        call Ltv(Lfv(LNv("NetherInferno.mdx",x,y,100,3),$9B,$9B,$9B,$9B))
        call HeroSkills_A00V_Buff(c)
    endif
    call UnitCureTaret(null,c,lYe)
    call SetUnitState(c,UNIT_STATE_MANA,GetUnitState(c,UNIT_STATE_MANA)+exe)
    call Ltv(LAv("BlessingofElun.mdl",x,y,2.5))
    call UnitResetCooldownById(c,'A00W')
    call UnitResetCooldownById(c,'A00Y')
    call UnitResetCooldownById(c,'A013')
    call UnitResetCooldownById(c,'A029')
    call UnitResetCooldownById(c,'A07J')
    set c=null
endfunction

function HeroSkills_A00V_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00V',function HeroSkills_A00V_Actions)
endfunction

function s__SkillsA00W_destroy takes integer this returns nothing
    if s__SkillsA00W_ano[this]!=0 then
        set s__SkillsA00W_ano[s__SkillsA00W_ano[this]]=0
        set s__SkillsA00W_ano[this]=0
    endif
    call ReleaseTimer(s__SkillsA00W_tm[this],"[TimerUtils]Error:456")
    call RecycleGroup(s__SkillsA00W_g[this])
    call Ltv(s__SkillsA00W_model[this])
    call Unit_Cancel_Counter(706,s__SkillsA00W_source[this])
    call s__SkillsA00W_deallocate(this)
    set s__SkillsA00W_g[this]=null
    set s__SkillsA00W_tm[this]=null
endfunction

function s__SkillsA00W_impact takes integer this,real x,real y returns boolean
    local unit c
    local unit u
    local real dx
    local real dy
    if s__SkillsA00W_ano[this]!=null then
        set dx=(GetUnitX(II[(s__SkillsA00W_model[s__SkillsA00W_ano[this]])]))-x
        set dy=(GetUnitY(II[(s__SkillsA00W_model[s__SkillsA00W_ano[this]])]))-y
        if dx*dx+dy*dy<=$4000 then
            set x=x+.5*dx
            set y=y+.5*dy
            if s__SkillsA00W_bool[this]then
                set c=(Je[(s__SkillsA00W_source[this])])
            else
                set c=(Je[(s__SkillsA00W_source[s__SkillsA00W_ano[this]])])
            endif
            call GroupEnumUnitsInRange(G,x,y,300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,300)then
                    if IsUnitAliveAndEnemy(u,c)then
                        call sc___prototype271_evaluate(1,c,u,5*s__SkillsA00W_damage[this],false,$F)
                        call m1v(u,3)
                    elseif IsUnitAliveAndAlly(u,c)then
                        call UnitCureTaret(c,u,.3*s__SkillsA00W_damage[this])
                    endif
                endif
            endloop
            set c=null
            call Ltv(LAv("CenarionFury.mdl",x,y,1.5))
            call s__SkillsA00W_destroy(s__SkillsA00W_ano[this])
            call s__SkillsA00W_destroy(this)
            return true
        endif
    endif
    return false
endfunction

function s__SkillsA00W_start takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    set x=(GetUnitX(II[(s__SkillsA00W_model[this])]))+s__SkillsA00W_rx[this]
    set y=(GetUnitY(II[(s__SkillsA00W_model[this])]))+s__SkillsA00W_ry[this]
    call LKv(s__SkillsA00W_model[this],x)
    call Llv(s__SkillsA00W_model[this],y)
    if not s__SkillsA00W_impact(this,x,y)then
        call GroupEnumUnitsInRange(G,x,y,$96+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$96)then
                if not IsUnitInGroup(u,s__SkillsA00W_g[this])then
                    if IsUnitAliveAndEnemy(u,(Je[(s__SkillsA00W_source[this])]))then
                        if sc___prototype234_evaluate(1,s__SkillsA00W_source[this],u)then
                            call DestroyEffect(AddSpecialEffectTarget("Nebula.mdx",u,"origin"))
                        else
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\FaerieDragonInvis\\FaerieDragon_Invis.mdl",u,"origin"))
                        endif
                        call GroupAddUnit(s__SkillsA00W_g[this],u)
                        call sc___prototype271_evaluate(1,(Je[(s__SkillsA00W_source[this])]),u,s__SkillsA00W_damage[this],false,$A)
                    elseif IsUnitAliveAndAlly(u,(Je[(s__SkillsA00W_source[this])]))then
                        call GroupAddUnit(s__SkillsA00W_g[this],u)
                        call UnitCureTaret((Je[(s__SkillsA00W_source[this])]),u,.06*s__SkillsA00W_damage[this])
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\FaerieDragonInvis\\FaerieDragon_Invis.mdl",u,"origin"))
                    endif
                endif
            endif
        endloop
        set s__SkillsA00W_time[this]=s__SkillsA00W_time[this]-1
        if s__SkillsA00W_time[this]<=0 then
            call s__SkillsA00W_destroy(this)
        endif
    endif
endfunction

function s__SkillsA00W_create takes integer c,real x,real y,real a,real tD,boolean t returns integer
    local integer this=s__SkillsA00W__allocate()
    set s__SkillsA00W_source[this]=c
    set s__SkillsA00W_tm[this]=NewTimer(this)
    set s__SkillsA00W_g[this]=NewGroup()
    set s__SkillsA00W_bool[this]=t
    set s__SkillsA00W_time[this]=32
    set s__SkillsA00W_damage[this]=tD
    set s__SkillsA00W_rx[this]=31.25*Cos(a)
    set s__SkillsA00W_ry[this]=31.25*Sin(a)
    set s__SkillsA00W_model[this]=Lnv(x,y,a)
    call LMv(s__SkillsA00W_model[this],"StarfallMissle.mdl")
    call SetUnitScale(II[(s__SkillsA00W_model[this])],((1.25)*1.),0,0)
    call SetUnitFlyHeight(II[(s__SkillsA00W_model[this])],((60)*1.),0)
    call PlaySoundAtPoint_BJ((Hn),((90)*1.),((x)*1.),((y)*1.),0)
    call Ltv(LIv("ArcaneExplosion.mdl",x,y,75,.8,a,0))
    call Unit_App_Counter(707,c)
    call TimerStart(s__SkillsA00W_tm[this],.03125,TRUE,function s__SkillsA00W_start)
    return this
endfunction

function HeroSkills_A00W_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A00W')
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real m=GetUnitState((Je[(id)]),UNIT_STATE_MANA)
    local real tD=$C8*lv+(GetHeroState3((Je[(id)]),true)+.1*m)*(5+.5*lv)
    local real a
    local integer t=s__SkillsA00W_create(id,x,y,Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x),tD,true)
    call SetUnitState((Je[(id)]),UNIT_STATE_MANA,.95*m)
    if UnitAlive(sc__Illusion_getunit((id)))then
        set x=s__Illusion_X[(id)]
        set y=s__Illusion_Y[(id)]
        set a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
        call SetUnitAnimation(sc__Illusion_getunit((id)),"spell one")
        call QueueUnitAnimation(sc__Illusion_getunit((id)),"stand")
        call SetUnitFacingTimed(sc__Illusion_getunit((id)),bj_RADTODEG*a,0)
        set s__SkillsA00W_ano[t]=s__SkillsA00W_create(id,x,y,a,tD,false)
        set s__SkillsA00W_ano[s__SkillsA00W_ano[t]]=t
        call NewTextTagInTarget_B(sc__Illusion_getunit((id)),"CHAIN CAST!",$C,$FF,55,55)
    endif
endfunction

function HeroSkills_A00W_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00W',function HeroSkills_A00W_Actions)
    call Luv('A00W')
endfunction

function HeroSkills_Flash_Buff_Damage takes unit u,unit s,real biv,boolean dr,real bav returns nothing
    local integer id=(GetUnitUserData((s)))
    if GetRandomInt(1,25)<=HeroSkills_Flash_Lv[id]then
        call UnitDamageTargetBY(((u)),((s)),(((((1.5+Unit_MATK[(GetUnitUserData((u)))])*biv)*1.))*1.),false,((dr)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((((1+.03*HeroSkills_Flash_Lv[id])*bav)*1.))*1.),(("|c00dccaf4")))
    elseif dr then
        call UnitDamageTargetBY(((u)),((s)),((((biv)*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call UnitDamageTargetBY(((u)),((s)),((((biv)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function HeroSkills_Flash_Buff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:457")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0OP','B05C')
    call Unit_Cancel_Counter(708,(id))
    set HeroSkills_Flash_Timer[id]=null
endfunction

function HeroSkills_Flash_Buff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if UnitAlive(u)then
        if HeroSkills_Flash_Timer[id]==null then
            set HeroSkills_Flash_Timer[id]=NewTimer(id)
            set HeroSkills_Flash_Lv[id]=0
            call UnitAddAbilityBY(u,'A0OP')
            call Unit_App_Counter(709,(id))
        endif
        if HeroSkills_Flash_Lv[id]<5 then
            set HeroSkills_Flash_Lv[id]=HeroSkills_Flash_Lv[id]+1
            call NewTextTagInTarget_B(u,I2S(HeroSkills_Flash_Lv[id])+" ����",7+HeroSkills_Flash_Lv[id],GetRandomInt($9B,$CD),GetRandomInt($9B,$CD),$FF)
        endif
        call TimerStart(HeroSkills_Flash_Timer[id],30,false,function HeroSkills_Flash_Buff_End)
    elseif HeroSkills_Flash_Timer[id]!=null then
        call TimerStart(HeroSkills_Flash_Timer[id],0,false,function HeroSkills_Flash_Buff_End)
    endif
endfunction

function s__SkillsA00Y_enumunit takes integer this,unit u returns unit
    set u=sc__Illusion_getunit((s__SkillsA00Y_source[this]))
    if UnitAlive(u)then
        if not IsUnitInGroup(u,s__SkillsA00Y_g[this])and IsUnitInRangeXY(u,s__SkillsA00Y_tx[this],s__SkillsA00Y_ty[this],600)then
            return u
        endif
    endif
    call GroupEnumUnitsInRange(G,s__SkillsA00Y_tx[this],s__SkillsA00Y_ty[this],500+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,s__SkillsA00Y_tx[this],s__SkillsA00Y_ty[this],500)then
            exitwhen not IsUnitInGroup(u,s__SkillsA00Y_g[this])and IsUnitAliveAndEnemyNotAvul(u,(Je[(s__SkillsA00Y_source[this])]))
        endif
    endloop
    return u
endfunction

function s__SkillsA00Y_bounce takes integer this,unit c,unit gzv returns nothing
    set s__SkillsA00Y_target[this]=(GetUnitUserData((gzv)))
    set s__SkillsA00Y_tx[this]=GetUnitX(gzv)
    set s__SkillsA00Y_ty[this]=GetUnitY(gzv)
    if GetUnitTypeId(gzv)!='hkni' then
        call HeroSkills_Flash_Buff_Damage((Je[(s__SkillsA00Y_source[this])]),gzv,s__SkillsA00Y_damage[this],false,$C)
        call HeroSkills_Flash_Buff(gzv)
    endif
    call Puv("CLPB",c,gzv,1,1,0)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",gzv,"origin"))
    call GroupAddUnit(s__SkillsA00Y_g[this],gzv)
endfunction

function s__SkillsA00Y_start takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u=s__SkillsA00Y_enumunit(this,null)
    set s__SkillsA00Y_count[this]=s__SkillsA00Y_count[this]-1
    set s__SkillsA00Y_damage[this]=1.2*s__SkillsA00Y_damage[this]
    if s__SkillsA00Y_count[this]<=0 or u==null then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:458")
        call RecycleGroup(s__SkillsA00Y_g[this])
        call Unit_Cancel_Counter(710,s__SkillsA00Y_source[this])
        call s__SkillsA00Y_deallocate(this)
        set s__SkillsA00Y_g[this]=null
    else
        call s__SkillsA00Y_bounce(this,(Je[(s__SkillsA00Y_target[this])]),u)
    endif
    set u=null
endfunction

function HeroSkills_A00Y_Actions takes nothing returns nothing
    local integer t=s__SkillsA00Y__allocate()
    local integer lv
    local real m
    set s__SkillsA00Y_source[t]=(GetUnitUserData((GetTriggerUnit())))
    set s__SkillsA00Y_target[t]=(GetUnitUserData((GetSpellTargetUnit())))
    set s__SkillsA00Y_g[t]=NewGroup()
    set s__SkillsA00Y_tx[t]=GetUnitX((Je[(s__SkillsA00Y_target[t])]))
    set s__SkillsA00Y_ty[t]=GetUnitY((Je[(s__SkillsA00Y_target[t])]))
    set lv=GetUnitAbilityLevel((Je[(s__SkillsA00Y_source[t])]),'A00Y')
    set m=GetUnitState((Je[(s__SkillsA00Y_source[t])]),UNIT_STATE_MANA)
    set s__SkillsA00Y_damage[t]=600*lv+(GetHeroState3((Je[(s__SkillsA00Y_source[t])]),true)+.15*m)*($F+1.5*lv)
    set s__SkillsA00Y_count[t]=7
    call HeroSkills_Flash_Buff_Damage((Je[(s__SkillsA00Y_source[t])]),(Je[(s__SkillsA00Y_target[t])]),s__SkillsA00Y_damage[t],true,$C)
    call m1v((Je[(s__SkillsA00Y_target[t])]),2)
    call HeroSkills_Flash_Buff((Je[(s__SkillsA00Y_target[t])]))
    call Ltv(LFv(LAv("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",s__SkillsA00Y_tx[t],s__SkillsA00Y_ty[t],1.75),"Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl"))
    call GroupAddUnit(s__SkillsA00Y_g[t],(Je[(s__SkillsA00Y_target[t])]))
    call SetUnitState((Je[(s__SkillsA00Y_source[t])]),UNIT_STATE_MANA,.925*m)
    call TimerStart(NewTimer(t),.15,true,function s__SkillsA00Y_start)
    call Unit_App_Counter(711,s__SkillsA00Y_source[t])
endfunction

function HeroSkills_A00Y_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00Y',function HeroSkills_A00Y_Actions)
    call Luv('A00Y')
endfunction

function HeroSkills_A013_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A013_Func]
    local integer data
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if Boss_Spell_data3[data]>$90 then
            set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
            call GroupEnumUnitsInRange(G,x,y,300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,300)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(Boss_Spell_data1[data])]))then
                        call UnitMoveToADistanceByTarget(u,x,y,172.5-Boss_Spell_data3[data])
                    endif
                endif
            endloop
        elseif ModuloInteger(Boss_Spell_data3[data],8)==0 then
            set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
            call GroupEnumUnitsInRange(G,x,y,300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,300)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(Boss_Spell_data1[data])]))then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\CarrionSwarm\\CarrionSwarmDamage.mdl",u,"chest"))
                        call HeroSkills_Flash_Buff_Damage((Je[(Boss_Spell_data1[data])]),u,Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data],false,7.5)
                        call UnitAppBuff((GetUnitUserData((u))),'A07G',$D006B)
                    endif
                endif
            endloop
        endif
        if Boss_Spell_data3[data]<=0 then
            call Unit_Cancel_Counter(712,Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call fvv(t)
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A013_Actions takes nothing returns nothing
    local integer t=D9v(HeroSkills_A013_Func)
    local integer data=Boss_Spell_allocate()
    local integer i=$A
    local integer lv
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real a
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=Lnv(x,y,0)
    call LMv(Boss_Spell_data2[data],"Blind Aura.mdl")
    set Boss_Spell_data3[data]=$A0
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A013')
    set Boss_Spell_V[data]=$C8*lv+GetHeroState3((Je[(Boss_Spell_data1[data])]),true)*(1.5+.25*lv)
    loop
        set i=i-1
        set a=i*bj_PI/ 5
        call Lqv(LAv("unholyStrikeX2.mdl",x+$E1*Cos(a),y+$E1*Sin(a),.8),2)
        exitwhen i==0
    endloop
    call Unit_App_Counter(713,Boss_Spell_data1[data])
endfunction

function HeroSkills_A013_Init takes nothing returns nothing
    set HeroSkills_A013_Func=fxv(function HeroSkills_A013_Start)
    call RegisterSpellEffectEvent('A013',function HeroSkills_A013_Actions)
    call Luv('A013')
endfunction

function s__Illusion_getunit takes integer this returns unit
    return(Je[(s__Illusion_Unit[this])])
endfunction

function s__Illusion_remove takes integer this returns nothing
    local integer lv=GetUnitAbilityLevel((Je[(this)]),'A029')
    local real d=$5DC*lv+(20+2*lv)*GetHeroState3((Je[(this)]),true)
    local real x=s__Illusion_X[this]
    local real y=s__Illusion_Y[this]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,350+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,350)then
            if IsUnitAliveAndEnemy(u,(Je[(this)]))then
                call sc___prototype271_evaluate(1,(Je[(this)]),u,d,false,13.5)
                call m1v(u,1.5)
            endif
        endif
    endloop
    call DestroyEffect(AddSpecialEffect("AncientExplode.mdl",s__Illusion_X[this],s__Illusion_Y[this]))
    call RemoveUnitBJ((Je[(s__Illusion_Unit[(this)])]),45)
    call Unit_Cancel_Counter(714,s__Illusion_Unit[this])
    set s__Illusion_Unit[this]=0
endfunction

function s__Illusion_loop_c takes nothing returns nothing
    local integer this=s__Illusion_next[(0)]
    loop
        exitwhen this==0
        set s__Illusion_Time[this]=s__Illusion_Time[this]-1
        if ModuloInteger(s__Illusion_Time[this],32)==0 then
            call Lqv(LAv("Abilities\\Spells\\Undead\\ReplenishMana\\ReplenishManaCaster.mdl",s__Illusion_X[this],s__Illusion_Y[this],.9),1.5)
            call IssueImmediateOrderById((Je[(s__Illusion_Unit[(this)])]),$D0228)
        endif
        if s__Illusion_Time[this]<=0 or not UnitAlive((Je[(s__Illusion_Unit[(this)])]))then
            set s__Illusion_last[s__Illusion_next[this]]=s__Illusion_last[this]
            set s__Illusion_next[s__Illusion_last[this]]=s__Illusion_next[this]
            set s__Illusion_Time[this]=0
            if s__Illusion_next[(0)]==0 then
                call frv(s__Illusion_func)
            endif
            call s__Illusion_remove(this)
        endif
        set this=s__Illusion_next[this]
    endloop
endfunction

function s__Illusion_onInit takes nothing returns nothing
    set s__Illusion_func=fxv(function s__Illusion_loop_c)
endfunction

function s__Illusion_Create takes integer this,real cX,real cY,real a returns nothing
    if s__Illusion_Time[this]==0 then
        if s__Illusion_next[(0)]==0 then
            call fov(s__Illusion_func)
        endif
        set s__Illusion_next[this]=s__Illusion_next[(0)]
        set s__Illusion_last[this]=0
        set s__Illusion_last[s__Illusion_next[this]]=this
        set s__Illusion_next[(0)]=this
    else
        call s__Illusion_remove(this)
    endif
    set s__Illusion_Unit[this]=(GetUnitUserData((CreateUnit(GetOwningPlayer((Je[(this)])),'hkni',cX,cY,a))))
    set s__Illusion_X[this]=cX
    set s__Illusion_Y[this]=cY
    set s__Illusion_Time[this]=96
    call UnitApplyTimedLife((Je[(s__Illusion_Unit[(this)])]),'B003',3)
    call SetUnitVertexColor((Je[(s__Illusion_Unit[(this)])]),$CD,$CD,$CD,$CD)
    call ModifyUnitHP((s__Illusion_Unit[this]),R2I(GetUnitState((Je[(this)]),UNIT_STATE_MAX_LIFE)-800))
    call DestroyEffect(AddSpecialEffectTarget("Energy_Release.mdl",(Je[(s__Illusion_Unit[(this)])]),"origin"))
    call Unit_App_Counter(715,s__Illusion_Unit[this])
endfunction

function HeroSkills_A029_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A029_Func]
    local real x
    local real y
    loop
        exitwhen 0==data
        if HeroSkills_A029_R[data]>=HeroSkills_A029_S[data]then
            set HeroSkills_A029_S[data]=1.05*HeroSkills_A029_S[data]+2.5
            set HeroSkills_A029_R[data]=HeroSkills_A029_R[data]-HeroSkills_A029_S[data]
        else
            set HeroSkills_A029_S[data]=HeroSkills_A029_R[data]
            set HeroSkills_A029_R[data]=0
        endif
        set x=GetUnitX((Je[(HeroSkills_A029_Unit[data])]))+HeroSkills_A029_S[data]*HeroSkills_A029_X[data]
        set y=GetUnitY((Je[(HeroSkills_A029_Unit[data])]))+HeroSkills_A029_S[data]*HeroSkills_A029_Y[data]
        if not IsTerrainWalkable(x,y)then
            set HeroSkills_A029_R[data]=0
            set x=IsTerrainWalkable_X
            set y=IsTerrainWalkable_Y
        endif
        call SetUnitX((Je[(HeroSkills_A029_Unit[data])]),x)
        call SetUnitY((Je[(HeroSkills_A029_Unit[data])]),y)
        if HeroSkills_A029_R[data]>0 then
            call CreatePhantom('e00F',1,x,y,HeroSkills_A029_Ang[data])
            call SetUnitAnimationByIndex((Je[(HeroSkills_A029_Unit[data])]),1)
        else
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\Blink\\BlinkTarget.mdl",x,y))
            call SetUnitPathing((Je[(HeroSkills_A029_Unit[data])]),true)
            call SetUnitAnimation((Je[(HeroSkills_A029_Unit[data])]),"stand")
            call Unit_Cancel_Counter(716,HeroSkills_A029_Unit[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A029_End takes integer data returns nothing
    if HeroSkills_A029_Timer[data]!=null then
        call ReleaseTimer(HeroSkills_A029_Timer[data],"[TimerUtils]Error:459")
        call UnitRemoveAbilityBY((Je[(data)]),'A0LL')
        call SetPlayerAbilityAvailable((P[Kc[((data))]]),'A029',true)
        call Unit_Cancel_Counter(717,(data))
        set HeroSkills_A029_Timer[data]=null
    endif
endfunction

function HeroSkills_A029_Actions_func002 takes nothing returns nothing
    call HeroSkills_A029_End(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function HeroSkills_A029_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A029_Func)
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real dx=GetSpellTargetX()-x
    local real dy=GetSpellTargetY()-y
    set HeroSkills_A029_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A029_Ang[data]=Atan2(dy,dx)
    set HeroSkills_A029_R[data]=SquareRoot(dx*dx+dy*dy)
    set HeroSkills_A029_S[data]=40
    set HeroSkills_A029_X[data]=Cos(HeroSkills_A029_Ang[data])
    set HeroSkills_A029_Y[data]=Sin(HeroSkills_A029_Ang[data])
    set HeroSkills_A029_Ang[data]=HeroSkills_A029_Ang[data]*bj_RADTODEG
    if HeroSkills_A029_Timer[HeroSkills_A029_Unit[data]]==null then
        set HeroSkills_A029_Timer[HeroSkills_A029_Unit[data]]=NewTimer(HeroSkills_A029_Unit[data])
        call TimerStart(HeroSkills_A029_Timer[HeroSkills_A029_Unit[data]],3,false,function HeroSkills_A029_Actions_func002)
        call SetPlayerAbilityAvailable((P[Kc[((HeroSkills_A029_Unit[data]))]]),'A029',false)
        call UnitAddAbilityBY((Je[(HeroSkills_A029_Unit[data])]),'A0LL')
        call Unit_App_Counter(718,HeroSkills_A029_Unit[data])
    else
        call HeroSkills_A029_End((HeroSkills_A029_Unit[data]))
    endif
    call s__Illusion_Create((HeroSkills_A029_Unit[data]),x,y,HeroSkills_A029_Ang[data])
    call Auxiliary_TargetOrder(('Aivs'),null,1,$D0065,(Je[(HeroSkills_A029_Unit[data])]))
    call SetUnitPathing((Je[(HeroSkills_A029_Unit[data])]),false)
    call Unit_App_Counter(719,HeroSkills_A029_Unit[data])
endfunction

function HeroSkills_A029_Init takes nothing returns nothing
    set HeroSkills_A029_Func=fxv(function HeroSkills_A029_Start)
    call RegisterSpellEffectEvent('A029',function HeroSkills_A029_Actions)
    call RegisterSpellEffectEvent('A0LL',function HeroSkills_A029_Actions)
    call Luv('A029')
endfunction

function HeroSkills_A07J_Loop takes nothing returns nothing
    local integer t=J[HeroSkills_A07J_Func]
    local integer data
    local unit u
    local real x
    local real y
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
        call LKv(Boss_Spell_data2[data],x)
        call Llv(Boss_Spell_data2[data],y)
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        call GroupEnumUnitsInRange(G,x,y,96+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,96)then
                exitwhen IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))
            endif
        endloop
        if Boss_Spell_data3[data]<=0 or u!=null then
            if u==null then
                call DestroyEffect(AddSpecialEffect("Ultima.mdl",x,y))
            else
                call DestroyEffect(AddSpecialEffectTarget("Ultima.mdl",u,"origin"))
            endif
            call GroupEnumUnitsInRange(G,x,y,256+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,256)then
                    if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        call HeroSkills_Flash_Buff_Damage((Je[(Boss_Spell_data1[data])]),u,Boss_Spell_V[data],false,$C)
                    endif
                endif
            endloop
            call Unit_Cancel_Counter(720,Boss_Spell_data1[data])
            call Ltv(Boss_Spell_data2[data])
            call Boss_Spell_deallocate(data)
            call fvv(t)
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A07J_Start takes integer c,real x,real y,real a,real d returns nothing
    local integer t=D9v(HeroSkills_A07J_Func)
    local integer data=Boss_Spell_allocate()
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=c
    set Boss_Spell_data2[data]=Lnv(x,y,a)
    call LMv(Boss_Spell_data2[data],"ArcaneBarrage.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((2.5)*1.),0,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((75)*1.),0)
    set Boss_Spell_data3[data]=20
    set Boss_Spell_X[data]=37.5*Cos(a)
    set Boss_Spell_Y[data]=37.5*Sin(a)
    set Boss_Spell_V[data]=d
    call Unit_App_Counter(721,c)
endfunction

function HeroSkills_A07J_Actions takes nothing returns nothing
    local integer c=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A07J')
    local integer i=18
    local real x=GetUnitX((Je[(c)]))
    local real y=GetUnitY((Je[(c)]))
    local real d=$3E8*lv+GetHeroState3((Je[(c)]),true)*($A+lv)
    local real a
    loop
        set i=i-1
        set a=i*Lx/ 18.
        call HeroSkills_A07J_Start(c,x+100*Cos(a),y+100*Sin(a),a,d)
        exitwhen i==0
    endloop
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",(Je[(c)]),"origin"))
endfunction

function HeroSkills_A07J_Init takes nothing returns nothing
    set HeroSkills_A07J_Func=fxv(function HeroSkills_A07J_Loop)
    call RegisterSpellEffectEvent('A07J',function HeroSkills_A07J_Actions)
    call Luv('A07J')
endfunction

function s__Star_impact takes integer this returns boolean
    if IsUnitAliveAndAlly(s__barrage_target[this],s__barrage_atkunit[this])then
        call UnitCureTaret(s__barrage_atkunit[this],s__barrage_target[this],s__Star_damage[this])
    elseif IsUnitAliveAndEnemy(s__barrage_target[this],s__barrage_atkunit[this])then
        call HeroSkills_Flash_Buff_Damage(s__barrage_atkunit[this],s__barrage_target[this],s__Star_damage[this],false,9)
    endif
    return true
endfunction

function s__Star_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__Star_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__Star_launcher]
    local unit u
    if this!=s__Star_launcher then
        call UseBarrage(s__Star_launcher)
        loop
            exitwhen this==s__Star_launcher
            if(s__barrage_outside[(this)])then
                call s__Star_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call s__Star_impact(this)
                call RemoveBarrage((this))
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__Star_launcher]then
        set s__barrage_InOperation[s__Star_launcher]=false
        call frv(s__Star_func)
    endif
endfunction

function s__Star_fired takes integer this returns nothing
    call s__barrage_Filling((s__Star_launcher),(this))
    if not s__barrage_InOperation[s__Star_launcher]then
        set s__barrage_InOperation[s__Star_launcher]=true
        call fov(s__Star_func)
    endif
endfunction

function s__Star_onInit takes nothing returns nothing
    set s__Star_func=fxv(function s__Star_loop_c)
    set s__Star_launcher=NewLauncher()
endfunction

function s__Star_Create takes integer c,unit t,real x,real y,real z,real a,boolean Lhe returns nothing
    local integer this=CreateBarrageTypeC(x,y,z,t)
    set s__barrage_atkunit[this]=(Je[(c)])
    set s__barrage_speed[this]=.03125*1280.
    set s__barrage_acceleration[this]=.03125*.03125*960.
    if Lhe then
        call LMv(s__barrage_model[this],"ArcaneBarrage.mdl")
        call SetUnitScale(II[(s__barrage_model[this])],((3)*1.),0,0)
        set s__Star_damage[this]=3*a
    else
        call LMv(s__barrage_model[this],"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
        call SetUnitScale(II[(s__barrage_model[this])],((1.25)*1.),0,0)
        set s__Star_damage[this]=a
    endif
    call s__Star_fired(this)
endfunction

function HeroSkills_A07F_A00W takes integer s,unit u returns boolean
    local integer data=HeroSkills_A07F_T[s]
    local integer fx
    local integer i
    if data!=0 and not HeroSkills_A07F_Bool[data]and IsUnitInRange(u,(Je[(s)]),$5DC)then
        set i=8
        loop
            set i=i-1
            set fx=LoadInteger(BYHT,HeroSkills_A07F_Vessel[data],i)
            call s__Star_Create(HeroSkills_A07F_Target[data],u,(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),(GetUnitFlyHeight(II[(fx)])),HeroSkills_A07F_Damage[data],true)
            exitwhen i==0
        endloop
        return true
    endif
    return false
endfunction

function HeroSkills_A07F_SetPoint takes integer data,real x,real y,boolean LJe returns nothing
    local integer i=8
    local integer fx
    local real a
    loop
        set i=i-1
        set a=HeroSkills_A07F_A[data]+i*bj_PI/ 4
        set fx=LoadInteger(BYHT,HeroSkills_A07F_Vessel[data],i)
        if LJe then
            call SetUnitScale(II[(fx)],((1)*1.),0,0)
            call Ltv(LIv("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),(GetUnitFlyHeight(II[(fx)])),1.5,0,90))
        endif
        call LKv(fx,x+$AF*Cos(a))
        call Llv(fx,y+$AF*Sin(a))
        call SetUnitFlyHeight(II[(fx)],((75)*1.),0)
        call SetUnitFacing(II[(fx)],((a+bj_PI/ 2)*1.)*bj_RADTODEG)
        exitwhen i==0
    endloop
endfunction

function HeroSkills_A07F_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A07F_Func]
    local unit u
    local integer fx
    local integer i
    local integer j
    local real x
    local real y
    local real LLe
    local real Lme
    local real LMe
    local real a
    loop
        exitwhen 0==data
        set i=8
        set x=GetUnitX((Je[(HeroSkills_A07F_Target[data])]))
        set y=GetUnitY((Je[(HeroSkills_A07F_Target[data])]))
        set HeroSkills_A07F_A[data]=HeroSkills_A07F_A[data]+.0825
        call LKv(HeroSkills_A07F_Model[data],x)
        call Llv(HeroSkills_A07F_Model[data],y)
        if HeroSkills_A07F_Bool[data]then
            call HeroSkills_A07F_SetPoint(data,x,y,false)
        else
            if HeroSkills_A07F_Range[data]<480 then
                set HeroSkills_A07F_Range[data]=HeroSkills_A07F_Range[data]+8
                if HeroSkills_A07F_Range[data]>=480 then
                    call PauseUnit((Je[(HeroSkills_A07F_Target[data])]),false)
                    call SetUnitInvulnerable((Je[(HeroSkills_A07F_Target[data])]),false)
                    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(HeroSkills_A07F_Target[data])])),'A07F',false)
                    call UnitAddAbility((Je[(HeroSkills_A07F_Target[data])]),'A07I')
                endif
            endif
            loop
                set i=i-1
                set a=HeroSkills_A07F_A[data]+i*bj_PI/ 4
                set fx=LoadInteger(BYHT,HeroSkills_A07F_Vessel[data],i)
                call LKv(fx,x+HeroSkills_A07F_Range[data]*Cos(a))
                call Llv(fx,y+HeroSkills_A07F_Range[data]*Sin(a))
                call SetUnitFlyHeight(II[(fx)],((HeroSkills_A07F_Range[data]/ 2)*1.),0)
                call SetUnitFacing(II[(fx)],((a+bj_PI/ 2)*1.)*bj_RADTODEG)
                exitwhen i==0
            endloop
        endif
        if UnitAlive((Je[(HeroSkills_A07F_Target[data])]))and HeroSkills_A07F_Time[data]>0 then
            set HeroSkills_A07F_Time[data]=HeroSkills_A07F_Time[data]-1
            if ModuloInteger(HeroSkills_A07F_Time[data],16)==0 then
                set i=8
                if ModuloInteger(HeroSkills_A07F_Time[data],32)==0 and HeroSkills_A07F_Time[data]>0 then
                    call NewTextTagInTarget_B((Je[(HeroSkills_A07F_Target[data])]),I2S(R2I(HeroSkills_A07F_Time[data]/ 32))+"Seconds remaining",9,$F0,$D7,$FF)
                endif
                loop
                    set i=i-1
                    set fx=LoadInteger(BYHT,HeroSkills_A07F_Vessel[data],i)
                    set LLe=(GetUnitX(II[(fx)]))
                    set Lme=(GetUnitY(II[(fx)]))
                    set LMe=(GetUnitFlyHeight(II[(fx)]))
                    if HeroSkills_A07F_Bool[data]then
                        set j=2
                        set u=(Je[(HeroSkills_A07F_Target[data])])
                        call GroupEnumUnitsInRange(G,x,y,600+75,null)
                        call GroupRemoveUnit(G,u)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,600)then
                                if IsUnitAllyNotbag(u,(Je[(HeroSkills_A07F_Target[data])]))and GetWidgetLife(u)<GetUnitState(u,UNIT_STATE_MAX_LIFE)then
                                    set j=j-1
                                    call s__Star_Create(HeroSkills_A07F_Target[data],u,LLe,Lme,LMe,HeroSkills_A07F_Damage[data],false)
                                    exitwhen j==0
                                endif
                            endif
                        endloop
                    else
                        set j=4
                        call GroupEnumUnitsInRange(G,x,y,900+75,null)
                        loop
                            set u=FirstOfGroup(G)
                            exitwhen u==null
                            call GroupRemoveUnit(G,u)
                            if IsUnitInRangeXY(u,x,y,900)then
                                if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A07F_Target[data])]))then
                                    set j=j-1
                                    call s__Star_Create(HeroSkills_A07F_Target[data],u,LLe,Lme,LMe,HeroSkills_A07F_Damage[data],false)
                                    exitwhen j==0
                                endif
                            endif
                        endloop
                    endif
                    exitwhen i==0
                endloop
            endif
        else
            set i=8
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,HeroSkills_A07F_Vessel[data],i)))
                exitwhen i==0
            endloop
            if HeroSkills_A07F_Bool[data]then
                call DeUnitAdef((HeroSkills_A07F_Target[data]),HeroSkills_A07F_Adef[HeroSkills_A07F_Target[data]])
                set HeroSkills_A07F_Adef[HeroSkills_A07F_Target[data]]=0
            else
                set HeroSkills_A07F_T[HeroSkills_A07F_Target[data]]=0
                call UnitRemoveAbility((Je[(HeroSkills_A07F_Target[data])]),'A07I')
                call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(HeroSkills_A07F_Target[data])])),'A07F',true)
            endif
            call Unit_Cancel_Counter(722,HeroSkills_A07F_Target[data])
            call Ltv(HeroSkills_A07F_Model[data])
            call free(HeroSkills_A07F_Vessel[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
    set u=null
endfunction

function HeroSkills_A07F_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A07F_Func)
    local integer i=8
    local integer fx
    local real x
    local real y
    local real a
    set HeroSkills_A07F_Target[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A07F_Vessel[data]=malloc()
    set HeroSkills_A07F_Bool[data]=false
    set HeroSkills_A07F_Time[data]=320
    set HeroSkills_A07F_Damage[data]=4.5*GetHeroState3((Je[(HeroSkills_A07F_Target[data])]),true)
    set HeroSkills_A07F_Range[data]=$A0
    set HeroSkills_A07F_A[data]=0
    set x=GetUnitX((Je[(HeroSkills_A07F_Target[data])]))
    set y=GetUnitY((Je[(HeroSkills_A07F_Target[data])]))
    set HeroSkills_A07F_Model[data]=Lnv(x,y,0)
    call LMv(HeroSkills_A07F_Model[data],"Abilities\\Spells\\NightElf\\Starfall\\StarfallCaster.mdl")
    call SetUnitScale(II[(HeroSkills_A07F_Model[data])],((3)*1.),0,0)
    set HeroSkills_A07F_T[HeroSkills_A07F_Target[data]]=data
    loop
        set i=i-1
        set a=i*bj_PI/ 4
        set fx=Lnv(x+$A0*Cos(a),y+$A0*Sin(a),a+bj_PI/ 2)
        call LMv(fx,"StarfallMissle.mdl")
        call SetUnitScale(II[(fx)],((1.5)*1.),0,0)
        call SetUnitFlyHeight(II[(fx)],((80)*1.),0)
        call LHv(fx,0)
        call SaveInteger(BYHT,HeroSkills_A07F_Vessel[data],i,fx)
        exitwhen i==0
    endloop
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(HeroSkills_A07F_Target[data])]],('k3m3')))then
        set HeroSkills_A07F_Time[data]=384
        set HeroSkills_A07F_Damage[data]=1.08*HeroSkills_A07F_Damage[data]
    endif
    call UnitResetCooldownById((Je[(HeroSkills_A07F_Target[data])]),'A00V')
    call NewTextTagInTarget_B((Je[(HeroSkills_A07F_Target[data])]),"RESET COOLDOWN",$B,$A0,$BE,$FA)
    call PauseUnit((Je[(HeroSkills_A07F_Target[data])]),true)
    call SetUnitInvulnerable((Je[(HeroSkills_A07F_Target[data])]),true)
    call SetUnitAnimation((Je[(HeroSkills_A07F_Target[data])]),"Spell Three")
    call Unit_App_Counter(723,HeroSkills_A07F_Target[data])
endfunction

function HeroSkills_A07I_Actions takes nothing returns nothing
    local integer s=(GetUnitUserData((GetTriggerUnit())))
    local integer t=(GetUnitUserData((GetSpellTargetUnit())))
    local integer data=HeroSkills_A07F_T[s]
    if data!=0 and HeroSkills_A07F_Adef[t]==0 and nC[(t)]then
        set HeroSkills_A07F_Bool[data]=true
        set HeroSkills_A07F_Target[data]=t
        set HeroSkills_A07F_Adef[t]=ModifyUnitAdef(t,100)
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(s)]],('k3m3')))then
            set HeroSkills_A07F_Time[data]=384
        else
            set HeroSkills_A07F_Time[data]=320
        endif
        set HeroSkills_A07F_Damage[data]=HeroSkills_A07F_Damage[data]/ 3.
        set HeroSkills_A07F_T[s]=0
        call UnitResetCooldownById((Je[(HeroSkills_A07F_Target[data])]),'A00V')
        call NewTextTagInTarget_B((Je[(HeroSkills_A07F_Target[data])]),"RESET COOLDOWN",$B,$A0,$BE,$FA)
        call HeroSkills_A07F_SetPoint(data,GetUnitX((Je[(t)])),GetUnitY((Je[(t)])),true)
        call SetWidgetLife((Je[(t)]),GetUnitState((Je[(t)]),UNIT_STATE_MAX_LIFE))
        call SetUnitState((Je[(t)]),UNIT_STATE_MANA,GetUnitState((Je[(t)]),UNIT_STATE_MAX_MANA))
        call UnitRemoveAbility((Je[(s)]),'A07I')
        call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(s)])),'A07F',true)
        call Unit_Cancel_Counter(724,s)
        call Unit_App_Counter(725,t)
    else
        call IssueImmediateOrderById((Je[(s)]),$D0004)
    endif
endfunction

function HeroSkills_A07F_Init takes nothing returns nothing
    set HeroSkills_A07F_Func=fxv(function HeroSkills_A07F_Start)
    call RegisterSpellEffectEvent('A07F',function HeroSkills_A07F_Actions)
    call RegisterSpellEffectEvent('A07I',function HeroSkills_A07I_Actions)
endfunction

function Hero_H006_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A00V',function HeroSkills_A00V_Actions)
    call HeroSkills_A00W_Init()
    call HeroSkills_A00Y_Init()
    call HeroSkills_A013_Init()
    call HeroSkills_A029_Init()
    call HeroSkills_A07J_Init()
    call HeroSkills_A07F_Init()
endfunction

function HeroSkills_A0GG_AtaReage takes integer NNv returns real
    return 600.+80.*I2R((GetUnitAbilityLevel((Je[(NNv)]),'A0GC')+1)/ 2)
endfunction

function HeroSkills_A0GG_Buff_End takes nothing returns nothing
    local integer t=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:460")
    local integer i=8
    loop
        set i=i-1
        if pV[i]then
            call UnitShareVision((Je[(t)]),P[i],false)
        endif
        exitwhen i==0
    endloop
    call UnitRemoveAbilityandBuffBY((Je[(t)]),'A05T','Buhf')
    call Unit_Cancel_Counter(726,(t))
    set HeroSkills_A0GG_Buff_Timer[t]=null
endfunction

function HeroSkills_A0GG_onAttack2 takes nothing returns nothing
    local integer id=(pF_v)
    local integer t
    local integer i
    if GetUnitAbilityLevel((MF),'A05T')>0 then
        if(JF[HF])or HeroSkills_A0GG_TagSize[(id)]==0 then
            call DamageAmplify((.2+.015*GetUnitAbilityLevel((mF),'A0GC'))*GetDamage())
        else
            call DamageAmplifyDis((.2+.015*GetUnitAbilityLevel((mF),'A0GC'))*GetDamage(),HeroSkills_A0GG_TagSize[(id)],"|c0080ff80")
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\SkeletalMageMissile\\SkeletalMageMissile.mdl",(MF),"chest"))
    elseif not IsUnitInRange((MF),(mF),(600.+80.*I2R((GetUnitAbilityLevel((Je[(((id)))]),'A0GC')+1)/ 2))-$FA)and IsUnitAliveAndEnemy((MF),(mF))then
        set t=(pF)
        if not nC[(t)]then
            if HeroSkills_A0GG_Buff_Timer[t]==null then
                set HeroSkills_A0GG_Buff_Timer[t]=NewTimer(t)
                set i=8
                loop
                    set i=i-1
                    if pV[i]then
                        call UnitShareVision((MF),P[i],true)
                    endif
                    exitwhen i==0
                endloop
                call UnitAddAbilityBY((MF),'A05T')
                call Unit_App_Counter(727,(t))
            endif
            call TimerStart(HeroSkills_A0GG_Buff_Timer[t],I2R(6+(GetUnitAbilityLevel((mF),'A0GC')+1)/ 4),false,function HeroSkills_A0GG_Buff_End)
        endif
    endif
endfunction

function HeroSkills_A0GG_onAttack1 takes nothing returns nothing
    local integer id=(pF_v)
    local real r=1
    if GetUnitAbilityLevel((mF),'A0GN')>0 then
        call sc___prototype3_evaluate($B,(id))
    endif
    if GetUnitAbilityLevel((mF),'A0GV')>0 then
        if GetUnitAbilityLevel((MF),'A05T')>0 then
            set r=1.25+.25*GetUnitAbilityLevel((mF),'A0GV')
            call DamageAmplify((r-1)*GetDamage())
        endif
    endif
    if GetUnitAbilityLevel((mF),'A0GE')>0 then
        if sc___prototype234_evaluate(2,(id),(MF))then
            call DamageAmplifyDis(r*(1.5+.1*GetUnitAbilityLevel((mF),'A0GE'))*GetHeroState2((mF),true),12.5+.5*r,"|c00b3fe81")
            call DestroyEffect(AddSpecialEffectTarget("NatureSphere_FX.mdl",(MF),"chest"))
        endif
    endif
endfunction

function Hero_EnterWorld_H015 takes nothing returns nothing
    local integer id=le
    local unit u=(Je[(id)])
    call SetPlayerTechResearched(GetOwningPlayer(u),'Rhcd',1)
    call SetPlayerAbilityAvailable(GetOwningPlayer(u),'A0GG',false)
    call SetPlayerAbilityAvailable(GetOwningPlayer(u),'A0GF',false)
    call SetPlayerAbilityAvailable(GetOwningPlayer(u),'A0GR',false)
    call UnitAddPAttackTrig((GetUnitUserData((u))),function HeroSkills_A0GG_onAttack1)
    call UnitAddDamagerTrig((GetUnitUserData((u))),function HeroSkills_A0GG_onAttack2)
    call UnitAddAbilityBY(u,'A0GG')
    set u=null
endfunction

function HeroSkills_A0GG_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H015',function Hero_EnterWorld_H015)
endfunction

function HeroSkills_A0GE_ON_Actions takes nothing returns nothing
    local integer id
    if GetIssuedOrderId()==$D00C2 then
        set id=(GetUnitUserData((GetTriggerUnit())))
        set HeroSkills_A0GE_ON[id]=true
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GF',not HeroSkills_A0GN_Use[(id)])
    endif
endfunction

function HeroSkills_A0GE_OFF_Actions takes nothing returns nothing
    local integer id
    if GetIssuedOrderId()==$D00C3 then
        set id=(GetUnitUserData((GetTriggerUnit())))
        set HeroSkills_A0GE_ON[id]=false
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GF',false)
    endif
endfunction

function JFe takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:461")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0GH','Bcyc')
    call ModifyUnitAttackSpeed((id),-$F*HeroSkills_A0GE_Buff_Lv[id])
    call HeroAddExtraAgi((id),-HeroSkills_A0GE_Buff_Agi[id])
    call Unit_Cancel_Counter(728,(id))
    set HeroSkills_A0GE_Buff_Timer[id]=null
    set HeroSkills_A0GE_Buff_Lv[id]=0
    set HeroSkills_A0GE_Buff_Agi[id]=0
endfunction

function HeroSkills_A0GE_Buff_up takes integer id,boolean JGe returns nothing
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0GE')
    local integer hPe
    if HeroSkills_A0GE_Buff_Timer[id]==null then
        set HeroSkills_A0GE_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0GE_Buff_Lv[id]=1
        call NewTextTagInTarget_B((Je[(id)]),"|c00008000+15%",9,$FF,$FF,$FF)
        call ModifyUnitAttackSpeed((id),$F)
        call UnitAddAbilityBY((Je[(id)]),'A0GH')
        call Unit_App_Counter(729,(id))
    elseif JGe and HeroSkills_A0GE_Buff_Lv[id]<2+(lv+1)/ 3 then
        set HeroSkills_A0GE_Buff_Lv[id]=HeroSkills_A0GE_Buff_Lv[id]+1
        call NewTextTagInTarget_B((Je[(id)]),"|c00008000+"+I2S($F*HeroSkills_A0GE_Buff_Lv[id])+"%",9,$FF,$FF,$FF)
        call ModifyUnitAttackSpeed((id),$F)
    endif
    set hPe=HeroSkills_A0GE_Buff_Lv[id]*R2I(4*lv+.03*GetHeroAgiNotExtra((id)))
    call HeroAddExtraAgi((id),hPe-HeroSkills_A0GE_Buff_Agi[id])
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",(Je[(id)]),"weapon"))
    call TimerStart(HeroSkills_A0GE_Buff_Timer[id],3,false,function JFe)
    set HeroSkills_A0GE_Buff_Agi[id]=hPe
endfunction

function HeroSkills_A0GE_onAttack takes integer id,unit u returns boolean
    set HeroSkills_A0GE_Atk_Number[id]=HeroSkills_A0GE_Atk_Number[id]+1
    if HeroSkills_A0GE_Atk_Number[id]>3 then
        set HeroSkills_A0GE_Atk_Number[id]=0
        if HeroSkills_A0GE_ON[id]or u==null then
            call HeroSkills_A0GE_Buff_up(id,true)
        else
            call HeroSkills_A0GE_Buff_up(id,false)
            call SetUnitState((mF),UNIT_STATE_MANA,GetUnitState((mF),UNIT_STATE_MANA)+.12*GetUnitState((mF),UNIT_STATE_MAX_MANA))
            return true
        endif
    endif
    return false
endfunction

function HeroSkills_A0GE_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    call SetUnitAbilityLevelBY(u,'A0GF',5*((GetUnitAbilityLevel(u,'A0GE')-1)/ 5)+(GetUnitAbilityLevel(u,'A0GC')+1)/ 2)
    set u=null
endfunction

function HeroSkills_A0GE_Init takes nothing returns nothing
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_ON)],(Filter((function HeroSkills_A0GE_ON_Actions))))
    call TriggerAddCondition(alloc__GX[(system__ORDER_TRIGFOR_OFF)],(Filter((function HeroSkills_A0GE_OFF_Actions))))
    call RegisterHeroSkillEvent('A0GE',function HeroSkills_A0GE_Actions)
    call Luv('A0GG')
    call Luv('A0GF')
endfunction

function HeroSkills_A0GJ_Shadow_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0GJ_Shadow_Func]
    local unit u
    local real x
    local real y
    local real dX
    local real dY
    local real p8v
    local real d
    loop
        exitwhen 0==data
        set x=(GetUnitX(II[(HeroSkills_A0GJ_Shadow_Missile[data])]))
        set y=(GetUnitY(II[(HeroSkills_A0GJ_Shadow_Missile[data])]))
        set dX=GetUnitX((Je[(HeroSkills_A0GJ_Shadow_Target[data])]))-x
        set dY=GetUnitY((Je[(HeroSkills_A0GJ_Shadow_Target[data])]))-y
        if dX*dX+dY*dY<=1024. then
            set HeroSkills_A0GG_TagSize[(HeroSkills_A0GJ_Shadow_Source[data])]=$D
            if HeroSkills_A0GJ_Shadow_Bool[data]then
                set u=(Je[(HeroSkills_A0GJ_Shadow_Target[data])])
                set x=dX+x
                set y=dY+y
                set d=3*HeroSkills_A0GJ_Shadow_Damage[data]
                call GroupEnumUnitsInRange(G,x,y,187.5+75,null)
                call GroupRemoveUnit(G,u)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,187.5)then
                        if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A0GJ_Shadow_Source[data])]))then
                            call UnitDamageTargetBY((((Je[(HeroSkills_A0GJ_Shadow_Source[data])]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A0HO',$D006B)
                        endif
                    endif
                endloop
                call Ltv(Lfv(LAv("Abilities\\Weapons\\SteamTank\\SteamTankImpact.mdl",x,y,1.5),$FF,$CD,$CD,$FF))
            endif
            if UnitAlive((Je[(HeroSkills_A0GJ_Shadow_Target[data])]))then
                if HeroSkills_A0GJ_Shadow_Bool[data]then
                    call UnitAppBuff((HeroSkills_A0GJ_Shadow_Target[data]),'A0HO',$D006B)
                endif
                call UnitDamageTargetBY((((Je[(HeroSkills_A0GJ_Shadow_Source[data])]))),(((Je[(HeroSkills_A0GJ_Shadow_Target[data])]))),((((HeroSkills_A0GJ_Shadow_Damage[data])*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call HeroSkills_A0GE_onAttack((HeroSkills_A0GJ_Shadow_Source[data]),null)
                call sc___prototype3_evaluate($B,(HeroSkills_A0GJ_Shadow_Source[data]))
            endif
            set HeroSkills_A0GG_TagSize[(HeroSkills_A0GJ_Shadow_Source[data])]=0
            call Ltv(HeroSkills_A0GJ_Shadow_Missile[data])
            call Unit_Cancel_Counter(730,HeroSkills_A0GJ_Shadow_Source[data])
            call Unit_Cancel_Counter(731,HeroSkills_A0GJ_Shadow_Target[data])
            call fvv(data)
        else
            set p8v=Atan2(dY,dX)
            call LKv(HeroSkills_A0GJ_Shadow_Missile[data],x+55*Cos(p8v))
            call Llv(HeroSkills_A0GJ_Shadow_Missile[data],y+55*Sin(p8v))
            call SetUnitFacing(II[(HeroSkills_A0GJ_Shadow_Missile[data])],((p8v)*1.)*bj_RADTODEG)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0GJ_Shadow_Create takes integer c,unit u,real x,real y,real Njv,boolean Jme returns nothing
    local integer data=D9v(HeroSkills_A0GJ_Shadow_Func)
    local real a=Atan2(GetUnitY(u)-y,GetUnitX(u)-x)
    local integer cFv=LVv('e012',x,y,bj_RADTODEG*a)
    set HeroSkills_A0GJ_Shadow_Source[data]=c
    set HeroSkills_A0GJ_Shadow_Target[data]=(GetUnitUserData((u)))
    set HeroSkills_A0GJ_Shadow_Bool[data]=Jme
    set x=x+50*Cos(a)
    set y=y+50*Sin(a)
    set HeroSkills_A0GJ_Shadow_Missile[data]=Lnv(x,y,a)
    call SetUnitFlyHeight(II[(HeroSkills_A0GJ_Shadow_Missile[data])],((87.5)*1.),0)
    set HeroSkills_A0GJ_Shadow_Damage[data]=Njv
    call LDv(cFv,4)
    if Jme then
        call LMv(HeroSkills_A0GJ_Shadow_Missile[data],"OrbOfFire.mdl")
        call SetUnitScale(II[(HeroSkills_A0GJ_Shadow_Missile[data])],((.625)*1.),0,0)
        set HeroSkills_A0GJ_Shadow_Damage[data]=HeroSkills_A0GJ_Shadow_Damage[data]+sc___prototype151_evaluate(2,(c))/ 3.
    else
        call LMv(HeroSkills_A0GJ_Shadow_Missile[data],"LightningArrow1.mdl")
    endif
    call DestroyEffect(AddSpecialEffectTarget("BlackBlink.mdl",II[cFv],"origin"))
    call SetUnitAnimation(II[cFv],"attack")
    call Ltv(LIv("Soulfire Missile.mdl",x,y,100,.625,a,0))
    call Lfv(cFv,$9B,$9B,$9B,$9B)
    call SetUnitDecay(II[cFv],$9B,$9B,$9B,$9B,.75)
    call LQv(cFv,.75)
    call Unit_App_Counter(732,c)
    call Unit_App_Counter(733,HeroSkills_A0GJ_Shadow_Target[data])
endfunction

function HeroSkills_A0GJ_Atk takes integer data,unit u,real x,real y returns nothing
    local real a=GetRandomReal(0,Lx)
    local real d=GetRandomReal(75,212.5)
    call HeroSkills_A0GJ_Shadow_Create(HeroSkills_A0GJ_Unit[data],u,x+d*Cos(a),y+d*Sin(a),HeroSkills_A0GJ_Damage[data],HeroSkills_A0GJ_Bool[data])
endfunction

function HeroSkills_A0GJ_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A0GJ_Func]
    local unit u
    local real x
    local real y
    local real s
    local real a
    loop
        exitwhen 0==data
        set s=25.+.14*HeroSkills_A0GJ_Distance[data]
        if s>HeroSkills_A0GJ_Distance[data]then
            set s=HeroSkills_A0GJ_Distance[data]
        endif
        set HeroSkills_A0GJ_Distance[data]=HeroSkills_A0GJ_Distance[data]-s
        set x=GetUnitX((Je[(HeroSkills_A0GJ_Unit[data])]))+s*HeroSkills_A0GJ_VX[data]
        set y=GetUnitY((Je[(HeroSkills_A0GJ_Unit[data])]))+s*HeroSkills_A0GJ_VY[data]
        if IsTerrainWalkable(x,y)and IsTerrainWalkable(x+32*HeroSkills_A0GJ_VX[data],y+32*HeroSkills_A0GJ_VY[data])then
            call SetUnitX((Je[(HeroSkills_A0GJ_Unit[data])]),x)
            call SetUnitY((Je[(HeroSkills_A0GJ_Unit[data])]),y)
            call IssueImmediateOrderById((Je[(HeroSkills_A0GJ_Unit[data])]),$D0004)
        else
            set HeroSkills_A0GJ_Distance[data]=0
        endif
        if UnitAlive((Je[(HeroSkills_A0GJ_Unit[data])]))and HeroSkills_A0GJ_Distance[data]>0 then
            loop
                set u=FirstOfGroup(HeroSkills_A0GJ_Geoup1[data])
                exitwhen u==null
                call GroupRemoveUnit(HeroSkills_A0GJ_Geoup1[data],u)
                if UnitAlive(u)then
                    call GroupAddUnit(HeroSkills_A0GJ_Geoup2[data],u)
                    call HeroSkills_A0GJ_Atk(data,u,x,y)
                    exitwhen true
                endif
            endloop
        else
            if UnitAlive((Je[(HeroSkills_A0GJ_Unit[data])]))then
                loop
                    set u=FirstOfGroup(HeroSkills_A0GJ_Geoup1[data])
                    exitwhen u==null
                    call GroupRemoveUnit(HeroSkills_A0GJ_Geoup1[data],u)
                    if UnitAlive(u)then
                        call HeroSkills_A0GJ_Atk(data,u,x,y)
                        call HeroSkills_A0GJ_Atk(data,u,x,y)
                    endif
                endloop
                loop
                    set u=FirstOfGroup(HeroSkills_A0GJ_Geoup2[data])
                    exitwhen u==null
                    call GroupRemoveUnit(HeroSkills_A0GJ_Geoup2[data],u)
                    if UnitAlive(u)then
                        call HeroSkills_A0GJ_Atk(data,u,x,y)
                    endif
                endloop
                call SetUnitAnimation((Je[(HeroSkills_A0GJ_Unit[data])]),"stand")
                call Auxiliary_TargetOrder(('A0GU'),null,1,$D0085,(Je[(HeroSkills_A0GJ_Unit[data])]))
            endif
            call SetUnitVertexColor((Je[(HeroSkills_A0GJ_Unit[data])]),$FF,$FF,$FF,$FF)
            call SetUnitPathing((Je[(HeroSkills_A0GJ_Unit[data])]),true)
            call RecycleGroup(HeroSkills_A0GJ_Geoup1[data])
            call RecycleGroup(HeroSkills_A0GJ_Geoup2[data])
            call Unit_Cancel_Counter(734,HeroSkills_A0GJ_Unit[data])
            call DestroyEffectBY(HeroSkills_A0GJ_Eff[data])
            call fvv(data)
            set HeroSkills_A0GJ_Geoup1[data]=null
            set HeroSkills_A0GJ_Geoup2[data]=null
        endif
        set data=K[data]
    endloop
    set u=null
endfunction

function HeroSkills_A0GJ_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A0GJ_Func)
    local unit u
    local integer lv
    local real x
    local real y
    local real r
    local real dX
    local real dY
    local real p8v
    set HeroSkills_A0GJ_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0GJ_Eff[data]=CreateEffectFor()
    set HeroSkills_A0GJ_Geoup1[data]=NewGroup()
    set HeroSkills_A0GJ_Geoup2[data]=NewGroup()
    set HeroSkills_A0GJ_Bool[data]=sc___prototype15_evaluate(6,(HeroSkills_A0GJ_Unit[data]))
    set x=GetUnitX((Je[(HeroSkills_A0GJ_Unit[data])]))
    set y=GetUnitY((Je[(HeroSkills_A0GJ_Unit[data])]))
    set dX=x-GetSpellTargetX()
    set dY=y-GetSpellTargetY()
    set p8v=Atan2(dY,dX)
    set HeroSkills_A0GJ_Distance[data]=SquareRoot(dX*dX+dY*dY)
    set HeroSkills_A0GJ_VX[data]=Cos(p8v)
    set HeroSkills_A0GJ_VY[data]=Sin(p8v)
    set lv=GetUnitAbilityLevel((Je[(HeroSkills_A0GJ_Unit[data])]),'A0GJ')
    set r=.9*(600.+80.*I2R((GetUnitAbilityLevel((Je[(((HeroSkills_A0GJ_Unit[data])))]),'A0GC')+1)/ 2))
    set HeroSkills_A0GJ_Damage[data]=(1+.05*lv)*GetHeroAttack((HeroSkills_A0GJ_Unit[data]))+(3+.2*lv)*GetHeroState2((Je[(HeroSkills_A0GJ_Unit[data])]),true)
    call GroupEnumUnitsInRange(G,x,y,1.5*r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,1.5*r)then
            if GetUnitAbilityLevel(u,'A05T')>0 then
                if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A0GJ_Unit[data])]))then
                    call GroupAddUnit(HeroSkills_A0GJ_Geoup1[data],u)
                    call HeroSkills_A0GJ_Atk(data,u,x,y)
                endif
            elseif IsUnitInRangeXY(u,x,y,r)and IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_A0GJ_Unit[data])]))then
                call GroupAddUnit(HeroSkills_A0GJ_Geoup1[data],u)
                call HeroSkills_A0GJ_Atk(data,u,x,y)
            endif
        endif
    endloop
    if HeroSkills_A0GJ_Distance[data]<300 then
        set HeroSkills_A0GJ_Distance[data]=300
    endif
    call s__Effect_connect((HeroSkills_A0GJ_Eff[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl")),(((Je[(HeroSkills_A0GJ_Unit[data])]))),(("weapon"))))))
    call s__Effect_connect((HeroSkills_A0GJ_Eff[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")),(((Je[(HeroSkills_A0GJ_Unit[data])]))),(("weapon"))))))
    call DestroyEffect(AddSpecialEffect("BlackBlink.mdl",x,y))
    call SetUnitVertexColor((Je[(HeroSkills_A0GJ_Unit[data])]),$9B,$9B,$9B,$9B)
    call SetUnitPathing((Je[(HeroSkills_A0GJ_Unit[data])]),false)
    call Unit_App_Counter(735,HeroSkills_A0GJ_Unit[data])
endfunction

function HeroSkills_A0GJ_Init takes nothing returns nothing
    set HeroSkills_A0GJ_Shadow_Func=fxv(function HeroSkills_A0GJ_Shadow_Start)
    set HeroSkills_A0GJ_Func=fxv(function HeroSkills_A0GJ_Start)
    call RegisterSpellEffectEvent('A0GJ',function HeroSkills_A0GJ_Actions)
    call Luv('A0GJ')
endfunction

function HeroSkills_A0GS_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A0GS_Func]
    local integer data
    local integer c
    local integer cFv
    local unit u
    local integer i
    local real x
    local real y
    local real tX
    local real tY
    local real tD
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set HeroSkills_A0GG_TagSize[(GetUnitUserData((Boss_Spell_unit1[data])))]=$F
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
        call LKv(Boss_Spell_data2[data],x)
        call Llv(Boss_Spell_data2[data],y)
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        set i=8
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    if not IsUnitInGroup(u,Boss_Spell_group1[data])then
                        call GroupAddUnit(Boss_Spell_group1[data],u)
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        if(IsUnitType((u),UNIT_TYPE_GIANT))or GetUnitMoveSpeed(u)==0 then
                            if not Boss_Spell_bool[data]then
                                call UnitAppBuff((GetUnitUserData((u))),'A0GT',$D006B)
                            endif
                            call GroupAddUnit(Boss_Spell_group2[data],u)
                        endif
                        if Boss_Spell_bool[data]then
                            call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",u,"origin"))
                        else
                            call DestroyEffect(AddSpecialEffectTarget("OrbOfWind.mdl",u,"origin"))
                        endif
                    elseif not IsUnitInGroup(u,Boss_Spell_group2[data])then
                        set tX=GetUnitX(u)-x
                        set tY=GetUnitY(u)-y
                        set tD=(tX*Boss_Spell_X[data]+tY*Boss_Spell_Y[data])/(50.*300)
                        set tD=2.-tD*tD*RSignBJ(tD)
                        set tX=tX+x+tD*Boss_Spell_X[data]
                        set tY=tY+y+tD*Boss_Spell_Y[data]
                        if IsTerrainWalkable(tX,tY)then
                            call SetUnitX(u,tX)
                            call SetUnitY(u,tY)
                        else
                            if not Boss_Spell_bool[data]then
                                call UnitAppBuff((GetUnitUserData((u))),'A0GT',$D006B)
                            endif
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"chest"))
                            call GroupAddUnit(Boss_Spell_group2[data],u)
                        endif
                    endif
                endif
            endif
        endloop
        loop
            set i=i-1
            set tD=(i/ 8.+Boss_Spell_data3[data]/ 16.)*Lx
            set cFv=LoadInteger(BYHT,Boss_Spell_data1[data],i)
            call LKv(cFv,x+$C8*Cos(tD))
            call Llv(cFv,y+$C8*Sin(tD))
            exitwhen i==0
        endloop
        if Boss_Spell_data3[data]<1 then
            set i=8
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,Boss_Spell_data1[data],i)))
                exitwhen i==0
            endloop
            if Boss_Spell_bool[data]then
                set tX=1.25*sc___prototype151_evaluate(2,((GetUnitUserData((Boss_Spell_unit1[data])))))
                call GroupEnumUnitsInRange(G,x,y,425+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,425)then
                        if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                            if IsUnitInGroup(u,Boss_Spell_group1[data])then
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((tX)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            else
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data]+tX)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",u,"chest"))
                            call m2v(u,1.75,'A500','B500',true)
                        endif
                    endif
                endloop
                call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl",x,y,2.5),5)
                call Ltv(LXv('e013',x,y,.4,"death"))
                call zhv((GetPlayerId(((P[Kc[(((GetUnitUserData((Boss_Spell_unit1[data])))))]])))),40,.5)
            else
                call GroupEnumUnitsInRange(G,x,y,350+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,350)then
                        if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                            if not IsUnitInGroup(u,Boss_Spell_group1[data])then
                                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                            call UnitAppBuff((GetUnitUserData((u))),'A0GT',$D006B)
                        endif
                    endif
                endloop
                call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.5),105,105,105,$CD))
                call Ltv(LXv('e014',x,y,.5,"death"))
                call Ltv(LXv('e014',x,y,.75,"death"))
                call Ltv(LXv('e014',x,y,1,"death"))
            endif
            call RecycleGroup(Boss_Spell_group1[data])
            call RecycleGroup(Boss_Spell_group2[data])
            call free(Boss_Spell_data1[data])
            call DestroyEffect(Boss_Spell_eff[data])
            call Ltv(Boss_Spell_data2[data])
            call fvv(t)
            set Boss_Spell_group1[data]=null
            set Boss_Spell_group2[data]=null
            set Boss_Spell_eff[data]=null
        endif
        set HeroSkills_A0GG_TagSize[(GetUnitUserData((Boss_Spell_unit1[data])))]=0
        set t=K[t]
    endloop
endfunction

function HeroSkills_A0GS_Actions takes nothing returns nothing
    local integer t=D9v(HeroSkills_A0GS_Func)
    local integer data=Boss_Spell_allocate()
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=8
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A0GS')
    local integer cFv
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local real tA=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local real a
    set Timer_List[t]=data
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_group2[data]=NewGroup()
    set Boss_Spell_bool[data]=sc___prototype15_evaluate(6,id)
    set Boss_Spell_data2[data]=Lnv(x,y,tA)
    set Boss_Spell_data3[data]=24
    set Boss_Spell_X[data]=50*Cos(tA)
    set Boss_Spell_Y[data]=50*Sin(tA)
    set Boss_Spell_V[data]=(400+.8*GetHeroAttack(id))*lv+(20+2.5*lv)*GetHeroState2(GetTriggerUnit(),true)
    call SetUnitScale(II[(Boss_Spell_data2[data])],((3)*1.),0,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((62.5)*1.),0)
    if Boss_Spell_bool[data]then
        call LMv(Boss_Spell_data2[data],"OrbOfFire.mdl")
        set Boss_Spell_eff[data]=AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",II[Boss_Spell_data2[data]],"origin")
        call zhv((GetPlayerId(((P[Kc[(id)]])))),25,.25)
        call Ltv(LIv("FireNova.mdl",x,y,112.5,.675,tA,0))
        call Ltv(LIv("FireNova.mdl",x,y,112.5,.825,tA,0))
    else
        call LMv(Boss_Spell_data2[data],"OrbOfWind.mdl")
        set Boss_Spell_eff[data]=AddSpecialEffectTarget("BluefireBolt.mdl",II[Boss_Spell_data2[data]],"origin")
        call Ltv(LIv("FrostNova.mdl",x,y,112.5,.675,tA,0))
        call Ltv(LIv("FrostNova.mdl",x,y,112.5,.825,tA,0))
    endif
    loop
        set i=i-1
        set a=i*Lx/ 8.
        set cFv=Lnv(x+$C8*Cos(a),y+$C8*Sin(a),0)
        call SetUnitFlyHeight(II[(cFv)],((75)*1.),0)
        call SetUnitScale(II[(cFv)],((2)*1.),0,0)
        call SaveInteger(BYHT,Boss_Spell_data1[data],i,cFv)
        if Boss_Spell_bool[data]then
            call LMv(cFv,"Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile_mini.mdl")
        else
            call LMv(cFv,"Abilities\\Spells\\Other\\Tornado\\Tornado_Target.mdl")
        endif
        exitwhen i==0
    endloop
    call TimerDestroyAddSpecialEffectTargetBY("SuperShinyThingy.mdl",Boss_Spell_unit1[data],"weapon",1)
    call Ltv(Lfv(LIv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,112.5,1.5,tA,0),0,0,0,$FF))
endfunction

function HeroSkills_A0GS_Channe takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A0GN_Use[(id)]then
        call UnitAnimationAddEffect(UnitAnimationSetLoopEffect(UnitAnimationSetName(UnitAppAnimation(GetTriggerUnit()),"spell slam"),"Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl","weapon",.25),"Abilities\\Spells\\NightElf\\TargetArtLumber\\TargetArtLumber.mdl","chest")
    else
        call UnitAnimationAddEffect(UnitAnimationSetLoopEffect(UnitAnimationSetName(UnitAppAnimation(GetTriggerUnit()),"spell slam"),"Abilities\\Spells\\Human\\Invisibility\\InvisibilityTarget.mdl","weapon",.25),"Abilities\\Spells\\NightElf\\TargetArtLumber\\TargetArtLumber.mdl","chest")
    endif
endfunction

function HeroSkills_A0GS_Init takes nothing returns nothing
    set HeroSkills_A0GS_Func=fxv(function HeroSkills_A0GS_Start)
    call RegisterSpellChannelEvent('A0GS',function HeroSkills_A0GS_Channe)
    call RegisterSpellEffectEvent('A0GS',function HeroSkills_A0GS_Actions)
    call Luv('A0GS')
endfunction

function s__ExplosiveArrow_impact takes integer this returns boolean
    local integer id=(GetUnitUserData((s__barrage_atkunit[this])))
    local real x=GetUnitX(s__barrage_target[this])
    local real y=GetUnitY(s__barrage_target[this])
    local unit u
    if GetUnitAbilityLevel(s__barrage_atkunit[this],'A0GV')>0 and GetUnitAbilityLevel(s__barrage_target[this],'A05T')>0 then
        set HeroSkills_A0GG_TagSize[id]=16
        set s__ExplosiveArrow_damage[this]=(1.25+.25*GetUnitAbilityLevel(s__barrage_atkunit[this],'A0GV'))*s__ExplosiveArrow_damage[this]
    else
        set HeroSkills_A0GG_TagSize[(id)]=$D
    endif
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400)then
            if IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[this])then
                call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__ExplosiveArrow_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call UnitAppBuff((GetUnitUserData((u))),'A0HO',$D006B)
            endif
        endif
    endloop
    call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,1.25))
    call Ltv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x,y,2))
    call zhv((Kc[id]),30,.25)
    call HeroSkills_A0GE_onAttack(id,null)
    set HeroSkills_A0GG_TagSize[id]=0
    return true
endfunction

function s__ExplosiveArrow_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__ExplosiveArrow_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__ExplosiveArrow_launcher]
    local unit u
    if this!=s__ExplosiveArrow_launcher then
        call UseBarrage(s__ExplosiveArrow_launcher)
        loop
            exitwhen this==s__ExplosiveArrow_launcher
            if(s__barrage_outside[(this)])then
                call s__ExplosiveArrow_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call s__ExplosiveArrow_impact(this)
                call RemoveBarrage((this))
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__ExplosiveArrow_launcher]then
        set s__barrage_InOperation[s__ExplosiveArrow_launcher]=false
        call frv(s__ExplosiveArrow_func)
    endif
endfunction

function s__ExplosiveArrow_fired takes integer this returns nothing
    call s__barrage_Filling((s__ExplosiveArrow_launcher),(this))
    if not s__barrage_InOperation[s__ExplosiveArrow_launcher]then
        set s__barrage_InOperation[s__ExplosiveArrow_launcher]=true
        call fov(s__ExplosiveArrow_func)
    endif
endfunction

function s__ExplosiveArrow_onInit takes nothing returns nothing
    set s__ExplosiveArrow_func=fxv(function s__ExplosiveArrow_loop_c)
    set s__ExplosiveArrow_launcher=NewLauncher()
endfunction

function s__ExplosiveArrow_Create takes unit c,unit t,real x,real y,real a returns nothing
    local integer this=CreateBarrageTypeC(x,y,90,t)
    set s__barrage_atkunit[this]=c
    set s__barrage_speed[this]=.03125*1500.
    set s__barrage_acceleration[this]=.03125*.03125*3000.
    set s__ExplosiveArrow_damage[this]=a
    call LMv(s__barrage_model[this],"Rocket.mdl")
    call SetUnitScale(II[(s__barrage_model[this])],((1.125)*1.),0,0)
    call s__ExplosiveArrow_fired(this)
endfunction

function HeroSkills_A0GN_GetDamage takes integer id returns real
    return Unit_Fire_Damage[(id)]*(15.+1.5*GetUnitAbilityLevel((Je[(id)]),'A0GN'))*GetHeroState2((Je[(id)]),true)
endfunction

function HeroSkills_A0GN_End takes integer id returns nothing
    call s__Trig_remove(HeroSkills_A0GN_Trig[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0GQ','BNpm')
    call UnitRemoveAbilityBY((Je[(id)]),'A0FF')
    call UnitAddAbility((Je[(id)]),'A0GO')
    call UnitRemoveAbility((Je[(id)]),'A0GO')
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GF',HeroSkills_A0GE_ON[id])
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GN',true)
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GR',false)
endfunction

function HeroSkills_A0GN_Charged takes integer id returns nothing
    local integer Ude=2+(GetUnitAbilityLevel((Je[(id)]),'A0GN')+1)/ 4
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('I0CU')))then
        set Ude=Ude+1
    elseif(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('I0E6')))then
        set Ude=Ude+2
    endif
    if HeroSkills_A0GN_Charged_Value[id]<Ude then
        set HeroSkills_A0GN_Charged_Count[id]=HeroSkills_A0GN_Charged_Count[id]+1
        if HeroSkills_A0GN_Charged_Count[id]>=8 then
            set HeroSkills_A0GN_Charged_Value[id]=HeroSkills_A0GN_Charged_Value[id]+1
            set HeroSkills_A0GN_Charged_Count[id]=0
            if HeroSkills_A0GN_Charged_e015[id]==0 then
                set HeroSkills_A0GN_Charged_e015[id]=(GetUnitUserData((CreateUnit((P[Kc[((id))]]),'e015',EntireMapMaxX,EntireMapMaxY,0))))
                call Unit_App_Counter(736,HeroSkills_A0GN_Charged_e015[id])
            endif
            call NewTextTagInTarget_B((Je[(id)]),"|c00f9aaaa"+I2S(HeroSkills_A0GN_Charged_Value[id])+" Charge|r",$C,$FF,$FF,$FF)
            call DestroyEffect(AddSpecialEffectTarget("FireBall.mdx",(Je[(id)]),"weapon"))
        endif
    endif
endfunction

function HeroSkills_A0GN_Stop takes integer id returns boolean
    if HeroSkills_A0GN_Use[id]then
        set HeroSkills_A0GN_Last[HeroSkills_A0GN_Next[id]]=HeroSkills_A0GN_Last[id]
        set HeroSkills_A0GN_Next[HeroSkills_A0GN_Last[id]]=HeroSkills_A0GN_Next[id]
        set HeroSkills_A0GN_Use[id]=false
        if HeroSkills_A0GN_Next[(0)]==0 then
            call frv(HeroSkills_A0GN_Func)
        endif
        call HeroSkills_A0GN_End(id)
        call Unit_Cancel_Counter(737,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A0GN_Loop takes nothing returns nothing
    local integer id=HeroSkills_A0GN_Next[(0)]
    loop
        exitwhen id==0
        set HeroSkills_A0GN_Time[id]=HeroSkills_A0GN_Time[id]-1
        if not UnitAlive((Je[(id)]))or(dA[(id)]==0 and HeroSkills_A0GN_Time[id]<1)then
            call HeroSkills_A0GN_Stop(id)
        elseif ModuloInteger(HeroSkills_A0GN_Time[id],8)==0 then
            call DestroyEffect(AddSpecialEffectTarget("ExplosiveShot.mdl",(Je[(id)]),"weapon"))
        endif
        set id=HeroSkills_A0GN_Next[id]
    endloop
endfunction

function HeroSkills_A0GN_Start takes integer id returns boolean
    if not HeroSkills_A0GN_Use[id]then
        if HeroSkills_A0GN_Next[(0)]==0 then
            if HeroSkills_A0GN_Func==0 then
                set HeroSkills_A0GN_Func=fxv(function HeroSkills_A0GN_Loop)
            endif
            call fov(HeroSkills_A0GN_Func)
        endif
        set HeroSkills_A0GN_Next[id]=HeroSkills_A0GN_Next[(0)]
        set HeroSkills_A0GN_Last[HeroSkills_A0GN_Next[(0)]]=id
        set HeroSkills_A0GN_Next[(0)]=id
        set HeroSkills_A0GN_Last[id]=0
        set HeroSkills_A0GN_Use[id]=true
        call Unit_App_Counter(738,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A0GN_onAttack_start takes unit s,unit t,real d returns nothing
    local integer id=(GetUnitUserData((s)))
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real a=Atan2(GetUnitY(t)-y,GetUnitX(t)-x)
    local unit u
    local integer i
    local real r
    set x=x+40*Cos(a)
    set y=y+40*Sin(a)
    set d=d+HeroSkills_A0GN_GetDamage(id)
    if HeroSkills_A0GE_ON[id]then
        set d=.6*d
    endif
    call s__ExplosiveArrow_Create(s,t,x,y,d)
    call Ltv(LIv("FireNova.mdx",x,y,75,.625,a,0))
    call zhv((GetPlayerId(((P[Kc[((id))]])))),25,.15)
    if HeroSkills_A0GE_ON[id]then
        set i=2+(GetUnitAbilityLevel(s,'A0GE')-1)/ 5
        set r=(600.+80.*I2R((GetUnitAbilityLevel((Je[(((id)))]),'A0GC')+1)/ 2))
        call GroupEnumUnitsInRange(G,x,y,r+75,null)
        call GroupRemoveUnit(G,t)
        loop
            set t=FirstOfGroup(G)
            exitwhen t==null
            call GroupRemoveUnit(G,t)
            if IsUnitInRangeXY(t,x,y,r)then
                if IsUnitAliveAndEnemyNotAvul(t,s)then
                    call s__ExplosiveArrow_Create(s,t,x,y,d)
                    set i=i-1
                    exitwhen i==0
                endif
            endif
        endloop
    endif
endfunction

function HeroSkills_A0GN_onAttack takes nothing returns nothing
    if HeroSkills_A0GN_Stop((pF_v))then
        call HeroSkills_A0GN_onAttack_start((mF),(MF),(DAK_AMOUNT[HF]))
        set KF[HF]=PF+1000000.
    endif
endfunction

function HeroSkills_A0GN_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A0GN_Start(id)then
        set HeroSkills_A0GN_Charged_Value[id]=HeroSkills_A0GN_Charged_Value[id]-1
        if HeroSkills_A0GN_Charged_Value[id]==0 and HeroSkills_A0GN_Charged_e015[id]!=0 then
            call KillUnit((Je[(HeroSkills_A0GN_Charged_e015[id])]))
            call Unit_Cancel_Counter(739,HeroSkills_A0GN_Charged_e015[id])
            set HeroSkills_A0GN_Charged_e015[id]=0
        endif
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('I0CU')))then
            call UnitAddAbilityBY((Je[(id)]),'A0FF')
        endif
        set HeroSkills_A0GN_Trig[id]=AddUnitTransitions(id,function HeroSkills_A0GN_onAttack)
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GN',false)
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GF',false)
        call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0GR',true)
        call UnitAddAbility((Je[(id)]),'A0GP')
        call UnitRemoveAbility((Je[(id)]),'A0GP')
        call UnitAddAbilityBY((Je[(id)]),'A0GQ')
    endif
    set HeroSkills_A0GN_Time[id]=256
endfunction

function HeroSkills_A0GN_Channel takes nothing returns nothing
    call UnitAnimationAddEffect(UnitAppAnimation(GetTriggerUnit()),"Abilities\\Spells\\Other\\BreathOfFire\\BreathOfFireDamage.mdl","weapon")
endfunction

function HeroSkills_A0GN_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0GN',function HeroSkills_A0GN_Channel)
    call RegisterSpellEffectEvent('A0GN',function HeroSkills_A0GN_Actions)
    call Luv('A0GN')
endfunction

function HeroSkills_A0GV_Start takes nothing returns nothing
    local integer data1=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2=Boss_Spell_data3[data1]
    local unit u
    local real x
    local real y
    local real aD=Boss_Spell_V[data1]
    local real dX
    local real dY
    local real p8v
    set x=(GetUnitX(II[(Boss_Spell_data1[data2])]))
    set y=(GetUnitY(II[(Boss_Spell_data1[data2])]))
    if Boss_Spell_bool[data2]then
        if GetUnitTypeId(Boss_Spell_unit2[data1])==null then
            set Boss_Spell_bool[data2]=false
        else
            set Boss_Spell_X[data1]=GetUnitX(Boss_Spell_unit2[data1])
            set Boss_Spell_Y[data1]=GetUnitY(Boss_Spell_unit2[data1])
        endif
    endif
    set dX=Boss_Spell_X[data1]-x
    set dY=Boss_Spell_Y[data1]-y
    set p8v=SquareRoot(dX*dX+dY*dY)
    set HeroSkills_A0GG_TagSize[(Boss_Spell_data1[data1])]=$D
    call GroupEnumUnitsInRange(G,x,y,300+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,300)then
            if not IsUnitInGroup(u,Boss_Spell_group1[data1])and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data1])then
                call GroupAddUnit(Boss_Spell_group1[data1],u)
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",u,"chest"))
                call DestroyEffect(AddSpecialEffectTarget("s_MagicElectricMissile.mdl",u,"chest"))
                call UnitDamageTargetBY(((Boss_Spell_unit1[data1])),((u)),((((.6*aD)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    if(p8v<=75)then
        set x=Boss_Spell_X[data1]
        set y=Boss_Spell_Y[data1]
        if Boss_Spell_bool[data1]then
            set u=Boss_Spell_unit2[data1]
            set aD=aD+1.25*HeroSkills_A0GN_GetDamage((Boss_Spell_data1[data1]))
            if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(Boss_Spell_data1[data1])]],('I0E6')))then
                set aD=aD*1.1
            endif
            call GroupEnumUnitsInRange(G,x,y,425+75,null)
            call GroupRemoveUnit(G,u)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,425)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data1])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data1])),((u)),((((aD)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",u,"chest"))
                        call m2v(u,1.25,'A500','B500',true)
                    endif
                endif
            endloop
            call DestroyEffect(AddSpecialEffectTarget("OrbOfFire.mdl",Boss_Spell_unit2[data1],"chest"))
            call Lqv(Lfv(LAv("Abilities\\Spells\\Other\\ForkedLightning\\ForkedLightningTarget.mdl",x,y,7.5),$FF,0,0,$FF),1.5)
            call Ltv(LAv("firegold.mdl",x,y,1.25))
            call m2v(Boss_Spell_unit2[data1],1.25,'A500','B500',true)
            call zhv((Kc[(Boss_Spell_data1[data1])]),45,.25)
        else
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",Boss_Spell_unit2[data1],"chest"))
            call DestroyEffect(AddSpecialEffectTarget("s_MagicElectricMissile.mdl",Boss_Spell_unit2[data1],"chest"))
            call Lqv(LAv("Abilities\\Spells\\Other\\ForkedLightning\\ForkedLightningTarget.mdl",x,y,7.5),1.5)
        endif
        if Boss_Spell_bool[data2]then
            if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(Boss_Spell_data1[data1])]],('sor9')))then
                call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UndeadDissipate\\UndeadDissipate.mdl",Boss_Spell_unit2[data1],"origin"))
                call Ltv(LAv("ShadowSlam.mdl",x,y,1.75))
                call UnitDamageTargetBY(((Boss_Spell_unit1[data1])),((Boss_Spell_unit2[data1])),((((1.15*aD)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((20)*1.))*1.),(("|c00e3dfd2")))
                call UnitAppBuff((Boss_Spell_data2[data1]),'A0RO',$D02BC)
            else
                call UnitDamageTargetBY(((Boss_Spell_unit1[data1])),((Boss_Spell_unit2[data1])),((((aD)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((18)*1.))*1.),(("|c0080ff80")))
            endif
        endif
        call Unit_Cancel_Counter(740,Boss_Spell_data1[data1])
        call Unit_Cancel_Counter(741,Boss_Spell_data2[data1])
        call DestroyEffectBY(Boss_Spell_data2[data2])
        call Ltv(Boss_Spell_data1[data2])
        call Boss_Spell_deallocate(data1)
        call Boss_Spell_deallocate(data2)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:462")
    else
        set p8v=75./ p8v
        call LKv(Boss_Spell_data1[data2],x+p8v*dX)
        call Llv(Boss_Spell_data1[data2],y+p8v*dY)
        set p8v=Atan2(dY,dX)
        call SetUnitFacing(II[(Boss_Spell_data1[data2])],((p8v)*1.)*bj_RADTODEG)
        if Boss_Spell_data3[data2]>0 then
            set Boss_Spell_data3[data2]=Boss_Spell_data3[data2]-1
        endif
        if Boss_Spell_bool[data1]then
            call Ltv(LIv("FireRing.mdl",x,y,100,.75+Boss_Spell_data3[data2]/ 48.,p8v,0))
            call Ltv(LAv("Abilities\\Weapons\\SteamTank\\SteamTankImpact.mdl",x+75*Cos(p8v-Lx/ 3),y+75*Sin(p8v-Lx/ 3),1.5))
            call Ltv(LAv("Abilities\\Weapons\\SteamTank\\SteamTankImpact.mdl",x+75*Cos(p8v+Lx/ 3),y+75*Sin(p8v+Lx/ 3),1.5))
        else
            call Ltv(LIv("WhiteRing.mdl",x,y,100,.75+Boss_Spell_data3[data2]/ 48.,p8v,0))
            call Ltv(LAv("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",x+75*Cos(p8v-Lx/ 3),y+75*Sin(p8v-Lx/ 3),1.5))
            call Ltv(LAv("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",x+75*Cos(p8v+Lx/ 3),y+75*Sin(p8v+Lx/ 3),1.5))
        endif
    endif
    set HeroSkills_A0GG_TagSize[(Boss_Spell_data1[data1])]=0
endfunction

function HeroSkills_A0GV_Actions takes nothing returns nothing
    local integer data1=Boss_Spell_allocate()
    local integer data2=Boss_Spell_allocate()
    local integer lv
    local real x
    local real y
    local real a
    set Boss_Spell_data3[data1]=data2
    set Boss_Spell_unit1[data1]=GetTriggerUnit()
    set Boss_Spell_unit2[data1]=GetSpellTargetUnit()
    set Boss_Spell_data1[data1]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data1]=(GetUnitUserData((GetSpellTargetUnit())))
    set Boss_Spell_group1[data1]=NewGroup()
    set Boss_Spell_bool[data1]=HeroSkills_A0GN_Stop((Boss_Spell_data1[data1]))
    set Boss_Spell_X[data1]=GetUnitX(Boss_Spell_unit2[data1])
    set Boss_Spell_Y[data1]=GetUnitY(Boss_Spell_unit2[data1])
    set lv=GetUnitAbilityLevel(Boss_Spell_unit1[data1],'A0GV')
    set x=GetUnitX(Boss_Spell_unit1[data1])
    set y=GetUnitY(Boss_Spell_unit1[data1])
    set a=Atan2(Boss_Spell_Y[data1]-y,Boss_Spell_X[data1]-x)
    set Boss_Spell_V[data1]=($2EE0+7.5*GetHeroAttack(Boss_Spell_data1[data1]))*lv+(75+20*lv)*GetHeroState2(Boss_Spell_unit1[data1],true)
    set Boss_Spell_bool[data2]=true
    set Boss_Spell_data3[data2]=32
    set Boss_Spell_data1[data2]=Lnv(x,y,a)
    call LMv(Boss_Spell_data1[data2],"Magic Missile.mdx")
    call SetUnitScale(II[(Boss_Spell_data1[data2])],((2)*1.),0,0)
    if Boss_Spell_bool[data1]then
        set Boss_Spell_data2[data2]=(s__Effect_build(AddSpecialEffectTarget(("OrbOfFire.mdl"),(II[Boss_Spell_data1[data2]]),("origin"))))
        call Lfv(Boss_Spell_data1[data2],$FF,0,0,$FF)
    else
        set Boss_Spell_data2[data2]=(s__Effect_build(AddSpecialEffectTarget(("BlueArrow.mdl"),(II[Boss_Spell_data1[data2]]),("origin"))))
    endif
    call GHv(Boss_Spell_unit1[data1],-$3E8,a,.625,"Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl")
    call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",Boss_Spell_unit1[data1],"origin"))
    call GroupAddUnit(Boss_Spell_group1[data1],Boss_Spell_unit2[data1])
    call Unit_App_Counter(742,Boss_Spell_data1[data1])
    call Unit_App_Counter(743,Boss_Spell_data2[data1])
    call TimerStart(NewTimer(data1),.03,true,function HeroSkills_A0GV_Start)
endfunction

function HeroSkills_A0GV_Channel takes nothing returns nothing
    if IsUnitInRange(GetTriggerUnit(),GetSpellTargetUnit(),750)then
        call IssueUnitStop_DisplayText(GetTriggerUnit(),"Too close to unable to attack, you need to distance 750 yards")
    else
        call UnitAnimationAddEffect(UnitAnimationSetLoopEffect(UnitAnimationSetName(UnitAppAnimation(GetTriggerUnit()),"spell slam"),"SuperShinyThingy.mdx","weapon",.375),"Snipe Target.mdl","overhead")
    endif
endfunction

function HeroSkills_A0GV_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0GV',function HeroSkills_A0GV_Channel)
    call RegisterSpellEffectEvent('A0GV',function HeroSkills_A0GV_Actions)
    call Luv('A0GV')
endfunction

function HeroSkills_A0GW_Rockets_start takes nothing returns nothing
    local integer data=J[HeroSkills_A0GW_Rockets_Func]
    local unit u
    local real x
    local real y
    local real tX
    local real tY
    loop
        exitwhen 0==data
        set x=(GetUnitX(II[(HeroSkills_A0GW_Rockets_A[data])]))+HeroSkills_A0GW_Rockets_Vx[data]
        set y=(GetUnitY(II[(HeroSkills_A0GW_Rockets_A[data])]))+HeroSkills_A0GW_Rockets_Vy[data]
        call LKv(HeroSkills_A0GW_Rockets_A[data],x)
        call Llv(HeroSkills_A0GW_Rockets_A[data],y)
        set tX=(GetUnitX(II[(HeroSkills_A0GW_Rockets_B[data])]))+HeroSkills_A0GW_Rockets_Vx[data]
        set tY=(GetUnitY(II[(HeroSkills_A0GW_Rockets_B[data])]))+HeroSkills_A0GW_Rockets_Vy[data]
        call LKv(HeroSkills_A0GW_Rockets_B[data],tX)
        call Llv(HeroSkills_A0GW_Rockets_B[data],tY)
        set x=(x+tX)/ 2
        set y=(y+tY)/ 2
        set HeroSkills_A0GW_Rockets_Time[data]=HeroSkills_A0GW_Rockets_Time[data]-1
        call GroupEnumUnitsInRange(G,x,y,275+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,275)then
                exitwhen IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0GW_Rockets_Source[data])]))
            endif
        endloop
        if u!=null or HeroSkills_A0GW_Rockets_Time[data]<=0 then
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0GW_Rockets_Source[data])]))then
                        call UnitDamageTargetBY((((Je[(HeroSkills_A0GW_Rockets_Source[data])]))),((u)),((((Unit_DOT[(HeroSkills_A0GW_Rockets_Source[data])]*(1.6-.6*GetWidgetLife(u)/ GetUnitState(u,UNIT_STATE_MAX_LIFE))*HeroSkills_A0GW_Rockets_Damage[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m1v(u,5)
                    endif
                endif
            endloop
            call Unit_Cancel_Counter(744,HeroSkills_A0GW_Rockets_Source[data])
            call DestroyEffectBY(HeroSkills_A0GW_Rockets_Eff[data])
            call Ltv(HeroSkills_A0GW_Rockets_A[data])
            call Ltv(HeroSkills_A0GW_Rockets_B[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A0GW_Rockets takes integer s,real x,real y,real a,real da returns nothing
    local integer data=D9v(HeroSkills_A0GW_Rockets_Func)
    local real tA=a+Lx/ 4
    local real tx=64*Cos(tA)
    local real ty=64*Sin(tA)
    set HeroSkills_A0GW_Rockets_Source[data]=s
    set HeroSkills_A0GW_Rockets_Eff[data]=CreateEffectFor()
    set HeroSkills_A0GW_Rockets_A[data]=Lnv(x+tx,y+ty,a)
    set HeroSkills_A0GW_Rockets_B[data]=Lnv(x-tx,y-ty,a)
    call LMv(HeroSkills_A0GW_Rockets_A[data],"Rocket.mdl")
    call LMv(HeroSkills_A0GW_Rockets_B[data],"Rocket.mdl")
    call SetUnitScale(II[(HeroSkills_A0GW_Rockets_A[data])],((2.75)*1.),0,0)
    call SetUnitScale(II[(HeroSkills_A0GW_Rockets_B[data])],((2.75)*1.),0,0)
    call SetUnitFlyHeight(II[(HeroSkills_A0GW_Rockets_A[data])],((100)*1.),0)
    call SetUnitFlyHeight(II[(HeroSkills_A0GW_Rockets_B[data])],((100)*1.),0)
    set HeroSkills_A0GW_Rockets_Time[data]=24
    set HeroSkills_A0GW_Rockets_Vx[data]=60*Cos(a)
    set HeroSkills_A0GW_Rockets_Vy[data]=60*Sin(a)
    set HeroSkills_A0GW_Rockets_Damage[data]=da
    call s__Effect_connect((HeroSkills_A0GW_Rockets_Eff[data]),(s__Effect_build(AddSpecialEffectTarget((("OrbOfFire.mdl")),((II[HeroSkills_A0GW_Rockets_A[data]])),(("origin"))))))
    call s__Effect_connect((HeroSkills_A0GW_Rockets_Eff[data]),(s__Effect_build(AddSpecialEffectTarget((("OrbOfFire.mdl")),((II[HeroSkills_A0GW_Rockets_B[data]])),(("origin"))))))
    call Unit_App_Counter(745,s)
endfunction

function HeroSkills_A0GW_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local real a
    set HeroSkills_A0GW_Number[id]=HeroSkills_A0GW_Number[id]-1
    if UnitAlive((Je[(id)]))and HeroSkills_A0GW_Number[id]>-1 then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set a=bj_DEGTORAD*GetUnitFacing((Je[(id)]))
        call HeroSkills_A0GW_Rockets(id,x,y,a,HeroSkills_A0GW_Damage[id])
        call Ltv(LIv("FireRing.mdx",x,y,100,1.25,a,0))
        call Ltv(LIv("NewGroundEX.mdx",x,y,112.5,.875,a,0))
        call GHv((Je[(id)]),-40,a,.0625,"Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl")
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:463")
        call SetUnitTimeScale((Je[(id)]),1)
        call SetUnitInvulnerable((Je[(id)]),false)
        call PauseUnit((Je[(id)]),false)
        call SetUnitAnimation((Je[(id)]),"stand")
        call Unit_Cancel_Counter(746,(id))
    endif
endfunction

function HeroSkills_A0GW_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0GW_Number[id]=16
    set HeroSkills_A0GW_Damage[id]=25*GetHeroState2((Je[(id)]),true)
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('I0CU')))then
        set HeroSkills_A0GW_Number[id]=HeroSkills_A0GW_Number[id]+3
    endif
    call PauseUnit((Je[(id)]),true)
    call SetUnitInvulnerable((Je[(id)]),true)
    call SetUnitTimeScale((Je[(id)]),3)
    call SetUnitAnimation((Je[(id)]),"spell throw")
    call TimerStart(NewTimer(id),2./ HeroSkills_A0GW_Number[id],true,function HeroSkills_A0GW_Start)
    call Unit_App_Counter(747,(id))
endfunction

function HeroSkills_A0GW_Init takes nothing returns nothing
    set HeroSkills_A0GW_Rockets_Func=fxv(function HeroSkills_A0GW_Rockets_start)
    call RegisterSpellEffectEvent('A0GW',function HeroSkills_A0GW_Actions)
    call Luv('A0GW')
endfunction

function Hero_H015_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H015',function Hero_EnterWorld_H015)
    call HeroSkills_A0GE_Init()
    call HeroSkills_A0GJ_Init()
    call HeroSkills_A0GS_Init()
    call HeroSkills_A0GN_Init()
    call HeroSkills_A0GV_Init()
    call HeroSkills_A0GW_Init()
endfunction

function HeroSkills_A0N1_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:464")
    call UnitRemoveAbility((Je[(id)]),'BNvc')
    call UnitRemoveAbilityBY((Je[(id)]),'A0BC')
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0N1',true)
    call Unit_Cancel_Counter(748,(id))
    call Lsv(HeroSkills_A0N1_Model[id],.5)
    set HeroSkills_A0N1_Timer[id]=null
endfunction

function HeroSkills_A0N1_Buff_end takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:465")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PO','B05U')
    call DeUnitAdef((id),HeroSkills_A0N1_Buff_Adef[id])
    call Unit_Cancel_Counter(749,(id))
    set HeroSkills_A0N1_Buff_Timer[id]=null
endfunction

function HeroSkills_A0N1_Buff takes integer id returns nothing
    if HeroSkills_A0N1_Buff_Timer[id]==null then
        set HeroSkills_A0N1_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0N1_Buff_Adef[id]=ModifyUnitAdef(id,100.*(1-Pow((100-40)*.01,Unit_Gas_Damage[id])))
        call UnitAddAbilityBY((Je[(id)]),'A0PO')
        call Unit_App_Counter(750,(id))
    endif
    call TimerStart(HeroSkills_A0N1_Buff_Timer[id],2,false,function HeroSkills_A0N1_Buff_end)
endfunction

function HeroSkills_A0BC_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=(GetUnitX(II[(HeroSkills_A0N1_Model[id])]))
    local real y=(GetUnitY(II[(HeroSkills_A0N1_Model[id])]))
    if GetLocalPlayer()==GetOwningPlayer((Je[(id)]))then
        call PanCameraToTimed(x,y,0)
    endif
    call HeroSkills_A0N1_Buff(id)
    call SetUnitPosition((Je[(id)]),x,y)
    call DestroyEffect(AddSpecialEffectTarget("ForestBolt.mdl",(Je[(id)]),"origin"))
    call TimerStart(HeroSkills_A0N1_Timer[id],0,false,function HeroSkills_A0N1_Expired)
endfunction

function HeroSkills_A0N1_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real dX=GetSpellTargetX()-x
    local real dY=GetSpellTargetY()-y
    local real a=Atan2(dY,dX)
    local real pwv=MaxR(SquareRoot(dX*dX+dY*dY),400)
    set HeroSkills_A0N1_Timer[id]=NewTimer(id)
    set HeroSkills_A0N1_Model[id]=LVv('e034',x,y,0)
    call SetUnitOwner(II[(HeroSkills_A0N1_Model[id])],(GetOwningPlayer((Je[(id)]))),false)
    call LDv(HeroSkills_A0N1_Model[id],1/ 5)
    set x=x+pwv*Cos(a)
    set y=y+pwv*Sin(a)
    if GetLocalPlayer()==GetOwningPlayer((Je[(id)]))then
        call PanCameraToTimed(x,y,0)
    endif
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('lhst')))then
        call UnitCureTaret(null,(Je[(id)]),.15*GetUnitMaxLifeById((id)))
    endif
    call HeroSkills_A0N1_Buff(id)
    call Lfv(HeroSkills_A0N1_Model[id],$FF,$FF,$FF,$CD)
    call SetUnitX((Je[(id)]),x)
    call SetUnitY((Je[(id)]),y)
    call DestroyEffect(AddSpecialEffectTarget("ForestBolt.mdl",(Je[(id)]),"origin"))
    call SetPlayerAbilityAvailable((P[Kc[((id))]]),'A0N1',false)
    call UnitAddAbilityBY((Je[(id)]),'A0BC')
    call UnitResetCooldownById((Je[(id)]),'A0PS')
    call TimerStart(HeroSkills_A0N1_Timer[id],5,false,function HeroSkills_A0N1_Expired)
    call Unit_App_Counter(751,(id))
endfunction

function HeroSkills_A0N1_Channel takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real dX=GetSpellTargetX()-x
    local real dY=GetSpellTargetY()-y
    local integer fcv=R2I(MaxR(SquareRoot(dX*dX+dY*dY),400)/ 128.)
    local real p8v=Atan2(dY,dX)
    local real Lwe=128.*Cos(p8v)
    local real LWe=128.*Sin(p8v)
    local boolean Lye=false
    loop
        exitwhen fcv==0
        set x=x+Lwe
        set y=y+LWe
        set Lye=IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY)
        exitwhen Lye
        set fcv=fcv-1
    endloop
    if Lye then
        call IssueImmediateOrderById(c,$D0004)
    endif
    set c=null
endfunction

function HeroSkills_A0N1_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0N1',function HeroSkills_A0N1_Channel)
    call RegisterSpellEffectEvent('A0N1',function HeroSkills_A0N1_Actions)
    call RegisterSpellEffectEvent('A0BC',function HeroSkills_A0BC_Actions)
    call Luv('A0N1')
    call Luv('A0BC')
endfunction

function s__ZephyrusProjectile_impact takes integer this,unit u returns boolean
    if s__ZephyrusProjectile_bool[this]then
        if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
            if s__ZephyrusProjectile_crit[this]then
                call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__ZephyrusProjectile_damage[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00b8fad9")))
            else
                call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__ZephyrusProjectile_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
            call DestroyEffect(AddSpecialEffectTarget("NatureSphere_FX.mdl",u,"chest"))
        endif
    elseif IsUnitAliveAndAlly(u,s__barrage_atkunit[this])then
        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("natureHeal.mdl"),(u),("origin")))),2)
        call UnitCureTaret(s__barrage_atkunit[this],u,s__ZephyrusProjectile_damage[this])
    endif
    return false
endfunction

function s__ZephyrusProjectile_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__ZephyrusProjectile_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__ZephyrusProjectile_launcher]
    local unit u
    if this!=s__ZephyrusProjectile_launcher then
        call UseBarrage(s__ZephyrusProjectile_launcher)
        loop
            exitwhen this==s__ZephyrusProjectile_launcher
            if(s__barrage_outside[(this)])then
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call RemoveBarrage((this))
            else
                if s__barrage_CollisionRange[this]!=0 then
                    call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                            if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                                call GroupAddUnit(s__barrage_enum_g[this],u)
                                if u!=s__barrage_target[this]and s__ZephyrusProjectile_impact(this,u)then
                                    set u=null
                                    call RemoveBarrage((this))
                                    exitwhen true
                                endif
                            endif
                        endif
                    endloop
                endif
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__ZephyrusProjectile_launcher]then
        set s__barrage_InOperation[s__ZephyrusProjectile_launcher]=false
        call frv(s__ZephyrusProjectile_func)
    endif
endfunction

function s__ZephyrusProjectile_fired takes integer this returns nothing
    call s__barrage_Filling((s__ZephyrusProjectile_launcher),(this))
    if not s__barrage_InOperation[s__ZephyrusProjectile_launcher]then
        set s__barrage_InOperation[s__ZephyrusProjectile_launcher]=true
        call fov(s__ZephyrusProjectile_func)
    endif
endfunction

function s__ZephyrusProjectile_onInit takes nothing returns nothing
    set s__ZephyrusProjectile_func=fxv(function s__ZephyrusProjectile_loop_c)
    set s__ZephyrusProjectile_launcher=NewLauncher()
endfunction

function s__ZephyrusProjectile_Create takes unit c,real x,real y,real z,real tX,real tY,real tZ,boolean b,real v returns nothing
    local integer this=CreateBarrageTypeD(x,y,z,tX,tY,tZ)
    set s__barrage_atkunit[this]=c
    set s__barrage_speed[this]=.03125*900
    set s__barrage_acceleration[this]=.03125*.03125*$708
    set s__ZephyrusProjectile_bool[this]=b
    set s__ZephyrusProjectile_damage[this]=v
    if b then
        call LMv(s__barrage_model[this],"GreenArrow.mdl")
        call SetUnitScale(II[(s__barrage_model[this])],((.75)*1.),0,0)
        set s__barrage_CollisionRange[this]=$AF
        set s__ZephyrusProjectile_crit[this]=GetRandomReal(1,100)<1.5*(UnitCrit[((GetUnitUserData((c))))])
        if s__ZephyrusProjectile_crit[this]then
            set s__ZephyrusProjectile_damage[this]=(1+(Unit_C_DMG[((GetUnitUserData((c))))]))*s__ZephyrusProjectile_damage[this]
        endif
    else
        call LMv(s__barrage_model[this],"GaiaWave.mdl")
        call SetUnitScale(II[(s__barrage_model[this])],((.375)*1.),0,0)
        set s__barrage_CollisionRange[this]=$C8
        call SetBarrageFlightRadian(this,.025*Sin(Atan2(y-GetUnitY(c),x-GetUnitX(c))-s__locationez_ang[s__barrage_p1[this]]))
        call Lfv(s__barrage_model[this],35,$B9,35,$E1)
    endif
    call s__ZephyrusProjectile_fired(this)
endfunction

function HeroSkills_A0PN_GetDamage takes unit c,integer lv,boolean local_bool returns real
    if local_bool then
        return(.3*UnitAttack[(GetUnitUserData((c)))])+(3+.3*lv)*GetHeroState3(c,true)
    else
        return(.2+.02*lv)*GetHeroState3(c,true)
    endif
endfunction

function HeroSkills_A0PN_IsOff takes integer id returns boolean
    return GetUnitAbilityLevel((Je[(id)]),'A0PP')==1
endfunction

function HeroSkills_A0PN_COLOR takes integer id returns playercolor
    if(GetUnitAbilityLevel((Je[((id))]),'A0PP')==1)then
        return PLAYER_COLOR_RED
    else
        return PLAYER_COLOR_GREEN
    endif
endfunction

function HeroSkills_A0PN_Up takes integer id,integer value returns nothing
    local integer local_num=HeroSkills_A0PN_Number[id]+value
    local integer fx
    local real a
    if local_num<0 then
        set local_num=0
    elseif local_num>9 then
        set local_num=9
    endif
    loop
        if HeroSkills_A0PN_Number[id]==local_num then
            exitwhen true
        elseif HeroSkills_A0PN_Number[id]<local_num then
            set a=HeroSkills_A0PN_Anger[id]+HeroSkills_A0PN_Number[id]*Lx/(HeroSkills_A0PN_Number[id]+1)
            set fx=Lnv(GetUnitX((Je[(id)]))+96*Cos(a),GetUnitY((Je[(id)]))+96*Sin(a),a+.5*bj_PI)
            call LMv(fx,"faerie.mdl")
            call SetUnitScale(II[(fx)],((.7)*1.),0,0)
            call SetUnitColor(II[(fx)],(HeroSkills_A0PN_COLOR(id)))
            call SetUnitFlyHeight(II[(fx)],(($80+GetUnitFlyHeight((Je[(id)])))*1.),0)
            call SaveInteger(BYHT,HeroSkills_A0PN_Vessel[id],HeroSkills_A0PN_Number[id],fx)
            set HeroSkills_A0PN_Number[id]=HeroSkills_A0PN_Number[id]+1
            call Lfv(fx,$CD,$FF,$CD,$9B)
            call LFv(fx,"Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl")
        else
            set HeroSkills_A0PN_Number[id]=HeroSkills_A0PN_Number[id]-1
            call Ltv((LoadInteger(BYHT,HeroSkills_A0PN_Vessel[id],HeroSkills_A0PN_Number[id])))
        endif
    endloop
endfunction

function HeroSkills_A0PN_Top takes integer id returns integer
    if HeroSkills_A0PN_Number[id]>0 then
        set HeroSkills_A0PN_Number[id]=HeroSkills_A0PN_Number[id]-1
        return LoadInteger(BYHT,HeroSkills_A0PN_Vessel[id],HeroSkills_A0PN_Number[id])
    else
        return 0
    endif
endfunction

function HeroSkills_A0PN_Cancel takes integer id returns nothing
    if HeroSkills_A0PN_Use[id]then
        set HeroSkills_A0PN_Last[HeroSkills_A0PN_Next[id]]=HeroSkills_A0PN_Last[id]
        set HeroSkills_A0PN_Next[HeroSkills_A0PN_Last[id]]=HeroSkills_A0PN_Next[id]
        set HeroSkills_A0PN_Use[id]=false
        if HeroSkills_A0PN_Next[(0)]==0 then
            call frv(HeroSkills_A0PN_Func)
        endif
        call Unit_Cancel_Counter(752,(id))
    endif
endfunction

function mie takes nothing returns nothing
    local integer id=HeroSkills_A0PN_Next[(0)]
    local integer fx
    local integer i
    local real x
    local real y
    local real z
    local real a
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set i=HeroSkills_A0PN_Number[id]
            if i>0 then
                set HeroSkills_A0PN_Anger[id]=HeroSkills_A0PN_Anger[id]+Lx*.4/ 32.
                set x=GetUnitX((Je[(id)]))
                set y=GetUnitY((Je[(id)]))
                set z=GetUnitFlyHeight((Je[(id)]))
                loop
                    exitwhen i==0
                    set i=i-1
                    set a=HeroSkills_A0PN_Anger[id]+i*Lx/ HeroSkills_A0PN_Number[id]
                    set fx=LoadInteger(BYHT,HeroSkills_A0PN_Vessel[id],i)
                    call LKv(fx,x+96*Cos(a))
                    call Llv(fx,y+96*Sin(a))
                    call SetUnitFlyHeight(II[(fx)],((z+$80)*1.),0)
                    call SetUnitFacing(II[(fx)],((a+.5*bj_PI)*1.)*bj_RADTODEG)
                endloop
            else
                set HeroSkills_A0PN_Anger[id]=0
            endif
            if GetUnitAbilityLevel((Je[(id)]),'B05S')==1 then
                if(GetUnitAbilityLevel((Je[((id))]),'A0PP')==1)then
                    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PP','B05T')
                endif
            elseif not(GetUnitAbilityLevel((Je[((id))]),'A0PP')==1)then
                call UnitAddAbilityBY((Je[(id)]),'A0PP')
            endif
        elseif HeroSkills_A0PN_Number[id]>0 then
            call HeroSkills_A0PN_Up(id,-HeroSkills_A0PN_Number[id])
        endif
        if GetUnitTypeId((Je[(id)]))==0 then
            call free(HeroSkills_A0PN_Vessel[id])
            call HeroSkills_A0PN_Cancel(id)
        endif
        set id=HeroSkills_A0PN_Next[id]
    endloop
endfunction

function HeroSkills_A0PN_APP takes integer id returns boolean
    if not HeroSkills_A0PN_Use[id]then
        if HeroSkills_A0PN_Next[(0)]==0 then
            if HeroSkills_A0PN_Func==0 then
                set HeroSkills_A0PN_Func=fxv(function mie)
            endif
            call fov(HeroSkills_A0PN_Func)
        endif
        set HeroSkills_A0PN_Next[id]=HeroSkills_A0PN_Next[(0)]
        set HeroSkills_A0PN_Last[HeroSkills_A0PN_Next[(0)]]=id
        set HeroSkills_A0PN_Next[(0)]=id
        set HeroSkills_A0PN_Last[id]=0
        set HeroSkills_A0PN_Use[id]=true
        call Unit_App_Counter(753,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A0PN_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local integer i=3
    local integer fx
    local boolean local_bool
    local real value
    local real a
    if HeroSkills_A0PN_Number[id]>=i then
        set local_bool=(GetUnitAbilityLevel((Je[((id))]),'A0PP')==1)
        set value=Unit_Gas_Damage[(id)]*HeroSkills_A0PN_GetDamage((Je[(id)]),GetUnitAbilityLevel((Je[(id)]),'A0PN'),local_bool)
        set a=Mvv((mF),(MF))
        loop
            set fx=HeroSkills_A0PN_Top(id)
            exitwhen fx==0
            set i=i-1
            if local_bool then
                call s__ZephyrusProjectile_Create((Je[(id)]),(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),(GetUnitFlyHeight(II[(fx)])),GetUnitX((MF)),GetUnitY((MF)),0,true,value)
            else
                call s__ZephyrusProjectile_Create((Je[(id)]),(GetUnitX(II[(fx)])),(GetUnitY(II[(fx)])),(GetUnitFlyHeight(II[(fx)])),(GetUnitX(II[(fx)]))+900*Cos(a),(GetUnitY(II[(fx)]))+900*Sin(a),(GetUnitFlyHeight(II[(fx)])),false,value)
            endif
            call Ltv(fx)
            exitwhen i==0
        endloop
    elseif GetRandomInt(1,100)<=30+5*B2I(UnitHasItemOfType((Je[(id)]),'odef')or UnitHasItemOfType((Je[(id)]),'rej6'))then
        call HeroSkills_A0PN_Up(id,1)
    endif
endfunction

function HeroSkills_A0PN_onBeAttack takes nothing returns nothing
    local integer id=(pF)
    if GetRandomInt(1,100)<=$F then
        call HeroSkills_A0PN_Up(id,1)
    endif
endfunction

function HeroSkills_A0PN_onCrit takes nothing returns nothing
    local integer id=(pF_v)
    if GetRandomInt(1,100)<=100 then
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),1.125),$F,$CD,$F,$CD))
        call HeroSkills_A0PN_Up(id,1)
    endif
endfunction

function HeroSkills_A0PN_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i=HeroSkills_A0PN_Number[id]
    local integer fx
    if(GetUnitAbilityLevel((Je[((id))]),'A0PP')==1)then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PP','B05T')
    else
        call UnitAddAbilityBY((Je[(id)]),'A0PP')
    endif
    loop
        exitwhen i==0
        set i=i-1
        set fx=LoadInteger(BYHT,HeroSkills_A0PN_Vessel[id],i)
        call SetUnitColor(II[(fx)],(HeroSkills_A0PN_COLOR(id)))
        call LFv(fx,"Abilities\\Spells\\Human\\Invisibility\\InvisibilityTarget.mdl")
    endloop
endfunction

function HeroSkills_A0PN_OrderActions takes nothing returns nothing
    if GetIssuedOrderId()==$D00D2 and HeroSkills_A0PN_Use[((GetUnitUserData((GetTriggerUnit()))))]and not IsUnitPaused(GetTriggerUnit())then
        call HeroSkills_A0PN_Actions()
    endif
endfunction

function HeroSkills_A0PN_Reg takes nothing returns nothing
    local integer id=(GetUnitUserData((GetLearningUnit())))
    if HeroSkills_A0PN_APP(id)then
        set HeroSkills_A0PN_Vessel[id]=malloc()
        set HeroSkills_A0PN_Number[id]=0
        set HeroSkills_A0PN_Anger[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0PP')
        call UnitAddPAttackTrig((id),function HeroSkills_A0PN_onAttack)
        call UnitAddBePAttackTrig((id),function HeroSkills_A0PN_onBeAttack)
        call HeroAddCritTrig((id),function HeroSkills_A0PN_onCrit)
    endif
endfunction

function HeroSkills_A0PN_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0PN',function HeroSkills_A0PN_Reg)
    call RegisterSpellEffectEvent('A0PN',function HeroSkills_A0PN_Actions)
    call RegisterEvent(EVENT_PLAYER_UNIT_ISSUED_ORDER,function HeroSkills_A0PN_OrderActions)
    call Luv('A0PN')
endfunction

function HeroSkills_A0PS_GetDamage takes unit c,integer lv,boolean LZe returns real
    if LZe then
        return(100*lv+(5+.5*lv)*(GetHeroState2(c,true)+GetHeroState3(c,true)))*.25
    else
        return 75*lv+(.5+.1*lv)*GetHeroState3(c,true)
    endif
endfunction

function HeroSkills_A0PS_Recycle takes integer data returns nothing
    call RecycleGroup(HeroSkills_A0PS_Group[data])
    call Unit_Cancel_Counter(754,HeroSkills_A0PS_Hero[data])
    call Ltv(HeroSkills_A0PS_Model[data])
    if HeroSkills_A0PS_Eff[data]!=0 then
        call Ltv(HeroSkills_A0PS_Eff[data])
        set HeroSkills_A0PS_Eff[data]=0
    endif
    set HeroSkills_A0PS_Group[data]=null
endfunction

function HeroSkills_A0PS_Stop takes integer data returns nothing
    if HeroSkills_A0PS_Use[data]then
        set HeroSkills_A0PS_Last[HeroSkills_A0PS_Next[data]]=HeroSkills_A0PS_Last[data]
        set HeroSkills_A0PS_Next[HeroSkills_A0PS_Last[data]]=HeroSkills_A0PS_Next[data]
        set HeroSkills_A0PS_Use[data]=false
        if HeroSkills_A0PS_Next[(0)]==0 then
            call frv(HeroSkills_A0PS_func)
        endif
        call HeroSkills_A0PS_Recycle(data)
    endif
endfunction

function HeroSkills_A0PS_Loop takes nothing returns nothing
    local integer data=HeroSkills_A0PS_Next[(0)]
    local integer mde
    local unit u
    local real pX
    local real pY
    local real m
    loop
        exitwhen data==0
        set HeroSkills_A0PS_Time[data]=HeroSkills_A0PS_Time[data]-.03125
        if HeroSkills_A0PS_Bool[data]then
            set m=(1.4-.8*HeroSkills_A0PS_Time[data]/ HeroSkills_A0PS_Ts)
        else
            set m=(.3+1.4*HeroSkills_A0PS_Time[data]/(HeroSkills_A0PS_Lr/ HeroSkills_A0PS_Sr))
        endif
        set pX=(GetUnitX(II[(HeroSkills_A0PS_Model[data])]))+m*HeroSkills_A0PS_VX[data]
        set pY=(GetUnitY(II[(HeroSkills_A0PS_Model[data])]))+m*HeroSkills_A0PS_VY[data]
        call LKv(HeroSkills_A0PS_Model[data],pX)
        call Llv(HeroSkills_A0PS_Model[data],pY)
        if HeroSkills_A0PS_Eff[data]!=0 then
            call LKv(HeroSkills_A0PS_Eff[data],pX)
            call Llv(HeroSkills_A0PS_Eff[data],pY)
        endif
        if HeroSkills_A0PS_Bool[data]then
            if ModuloInteger(R2I(HeroSkills_A0PS_Time[data]*32),8)==0 then
                call GroupEnumUnitsInRange(G,pX,pY,HeroSkills_A0PS_Dr+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,pX,pY,HeroSkills_A0PS_Dr)then
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A0PS_Hero[data])]))then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",u,"chest"))
                            call UnitDamageTargetBY((((Je[(HeroSkills_A0PS_Hero[data])]))),((u)),((((Unit_DOT[(HeroSkills_A0PS_Hero[data])]*HeroSkills_A0PS_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((9)*1.))*1.),(("|c00b8fad9")))
                            call UnitAppBuff((GetUnitUserData((u))),'A0Q2',$D006B)
                        endif
                    endif
                endloop
                call zhv((Kc[((HeroSkills_A0PS_Hero[data]))]),12.5,.25)
            endif
        else
            set mde=HeroSkills_A0PS_Next[(0)]
            loop
                exitwhen mde==0
                if not HeroSkills_A0PS_Bool[mde]and data!=mde and IsUnitInRange(II[HeroSkills_A0PS_Model[mde]],II[HeroSkills_A0PS_Model[data]],HeroSkills_A0PS_Pr)then
                    set HeroSkills_A0PS_Bool[data]=true
                    set HeroSkills_A0PS_Eff[data]=Lfv(LAv("OrbOfWind.mdl",(GetUnitX(II[(HeroSkills_A0PS_Model[data])])),(GetUnitY(II[(HeroSkills_A0PS_Model[data])])),4),0,0,0,$FF)
                    call LMv(HeroSkills_A0PS_Model[data],"Abilities\\Spells\\Other\\Tornado\\TornadoElemental.mdl")
                    call SetUnitScale(II[(HeroSkills_A0PS_Model[data])],((2)*1.),0,0)
                    set HeroSkills_A0PS_Time[data]=HeroSkills_A0PS_Ts
                    set HeroSkills_A0PS_VX[data]=HeroSkills_A0PS_VX[data]+HeroSkills_A0PS_VX[mde]
                    set HeroSkills_A0PS_VY[data]=HeroSkills_A0PS_VY[data]+HeroSkills_A0PS_VY[mde]
                    set HeroSkills_A0PS_Damage[data]=Unit_Gas_Damage[(HeroSkills_A0PS_Hero[data])]*HeroSkills_A0PS_GetDamage((Je[(HeroSkills_A0PS_Hero[data])]),GetUnitAbilityLevel((Je[(HeroSkills_A0PS_Hero[data])]),'A0PS'),true)
                    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((HeroSkills_A0PS_Hero[data]))]],('srtl')))then
                        set HeroSkills_A0PS_Damage[data]=1.75*HeroSkills_A0PS_Damage[data]
                    endif
                    call zhv((Kc[((HeroSkills_A0PS_Hero[data]))]),25,.25)
                    call Lfv(HeroSkills_A0PS_Model[data],125,$FF,125,$CD)
                    call HeroSkills_A0PS_Stop(mde)
                    exitwhen true
                endif
                set mde=HeroSkills_A0PS_Next[mde]
            endloop
            call GroupEnumUnitsInRange(G,pX,pY,HeroSkills_A0PS_Pr+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,pX,pY,HeroSkills_A0PS_Pr)then
                    if not IsUnitInGroup(u,HeroSkills_A0PS_Group[data])and IsUnitAllyNotbag(u,(Je[(HeroSkills_A0PS_Hero[data])]))then
                        call GroupAddUnit(HeroSkills_A0PS_Group[data],u)
                        call UnitCureTaret((Je[(HeroSkills_A0PS_Hero[data])]),u,HeroSkills_A0PS_Damage[data])
                        call Ltv(Lfv(LAv("NatureExplosion.mdx",GetUnitX(u),GetUnitY(u),.625),$FF,$FF,$FF,$9B))
                    endif
                endif
            endloop
        endif
        if HeroSkills_A0PS_Time[data]<=0 then
            call HeroSkills_A0PS_Stop(data)
        endif
        set data=HeroSkills_A0PS_Next[data]
    endloop
endfunction

function HeroSkills_A0PS_Start takes integer data returns integer
    if HeroSkills_A0PS_Use[data]then
        call HeroSkills_A0PS_Recycle(data)
    else
        if HeroSkills_A0PS_Next[(0)]==0 then
            if HeroSkills_A0PS_func==0 then
                set HeroSkills_A0PS_func=fxv(function HeroSkills_A0PS_Loop)
            endif
            call fov(HeroSkills_A0PS_func)
        endif
        set HeroSkills_A0PS_Next[data]=HeroSkills_A0PS_Next[(0)]
        set HeroSkills_A0PS_Last[HeroSkills_A0PS_Next[(0)]]=data
        set HeroSkills_A0PS_Next[(0)]=data
        set HeroSkills_A0PS_Last[data]=0
        set HeroSkills_A0PS_Use[data]=true
    endif
    return data
endfunction

function HeroSkills_A0PS_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real dX=GetSpellTargetX()-x
    local real dY=GetSpellTargetY()-y
    local real a=Atan2(dY,dX)
    local integer data=HeroSkills_A0PS_Start(Lnv(x,y,a))
    set HeroSkills_A0PS_Hero[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0PS_Model[data]=data
    call LMv(HeroSkills_A0PS_Model[data],"HealingWind.MDX")
    call SetUnitScale(II[(HeroSkills_A0PS_Model[data])],((.875)*1.),0,0)
    set HeroSkills_A0PS_Bool[data]=false
    set HeroSkills_A0PS_Group[data]=NewGroup()
    set HeroSkills_A0PS_Time[data]=HeroSkills_A0PS_Lr/ HeroSkills_A0PS_Sr
    set HeroSkills_A0PS_VX[data]=.03125*HeroSkills_A0PS_Sr*Cos(a)
    set HeroSkills_A0PS_VY[data]=.03125*HeroSkills_A0PS_Sr*Sin(a)
    set HeroSkills_A0PS_Damage[data]=Unit_Gas_Damage[(HeroSkills_A0PS_Hero[data])]*HeroSkills_A0PS_GetDamage((Je[(HeroSkills_A0PS_Hero[data])]),GetUnitAbilityLevel((Je[(HeroSkills_A0PS_Hero[data])]),'A0PS'),false)
    call PlaySoundAtPoint_BJ((wn),((100)*1.),((x)*1.),((y)*1.),0)
    call Lfv(HeroSkills_A0PS_Model[data],$FF,$FF,$FF,$FF)
    call Unit_App_Counter(755,HeroSkills_A0PS_Hero[data])
endfunction

function HeroSkills_A0PS_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PS',function HeroSkills_A0PS_Actions)
    call Luv('A0PS')
endfunction

function HeroSkills_A0PT_Shield_Remove takes integer id returns boolean
    if HeroSkills_A0PT_Shield_Timer[id]!=null then
        call ReleaseTimer(HeroSkills_A0PT_Shield_Timer[id],"[TimerUtils]Error:466")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PU','B05V')
        call s__Trig_remove((HeroSkills_A0PT_Shield_Trig[id]))
        call Unit_Cancel_Counter(756,(id))
        set HeroSkills_A0PT_Shield_Timer[id]=null
        return true
    endif
    return false
endfunction

function HeroSkills_A0PT_Shield_Func takes nothing returns nothing
    local integer id=(pF)
    if HeroSkills_A0PT_Shield_Life[id]>GetDamage()then
        set HeroSkills_A0PT_Shield_Life[id]=HeroSkills_A0PT_Shield_Life[id]-GetDamage()
        set KF[HF]=PF+1000000.
    else
        call DamageMinus(HeroSkills_A0PT_Shield_Life[id])
        call HeroSkills_A0PT_Shield_Remove(id)
    endif
endfunction

function HeroSkills_A0PT_Shield_End takes nothing returns nothing
    call HeroSkills_A0PT_Shield_Remove(((alloc__hpv(GetHandleId((GetExpiredTimer()))))))
endfunction

function HeroSkills_A0PT_Shield_Charging takes integer s,integer t,real v returns nothing
    local integer lv=GetUnitAbilityLevel((Je[(s)]),'A0PT')
    if HeroSkills_A0PT_Shield_Timer[t]==null then
        set HeroSkills_A0PT_Shield_Timer[t]=NewTimer(t)
        set HeroSkills_A0PT_Shield_Trig[t]=UnitAddBeDamagerTrigB((t),function HeroSkills_A0PT_Shield_Func)
        set HeroSkills_A0PT_Shield_Life[t]=0
        call UnitAddAbilityBY((Je[(t)]),'A0PU')
        call Unit_App_Counter(757,(t))
    endif
    set HeroSkills_A0PT_Shield_Life[t]=MinR(HeroSkills_A0PT_Shield_Life[t]+(.1+.01*lv)*v,(2.5+.25*lv)*GetHeroState3((Je[(s)]),true))
    call TimerStart(HeroSkills_A0PT_Shield_Timer[t],viv,false,function HeroSkills_A0PT_Shield_End)
endfunction

function HeroSkills_A0PT_GetAdefValue takes integer id,integer lv returns integer
    return R2I(100*(1-Pow(1-(.25+.02*lv),Unit_Gas_Damage[(id)])))
endfunction

function HeroSkills_A0PT_GetDamage takes unit NZv,integer lv returns real
    return $A*GetUnitState(NZv,UNIT_STATE_MAX_MANA)+(30+3*lv)*GetHeroState3(NZv,true)
endfunction

function HeroSkills_A0PT_Buff_end takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:467")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PV','B05W')
    call DeUnitAdef((id),HeroSkills_A0PT_Buff_Adef[id])
    call Unit_Cancel_Counter(758,(id))
    set HeroSkills_A0PT_Buff_Timer[id]=null
endfunction

function HeroSkills_A0PT_Buff takes unit u,integer mme returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0PT_Buff_Timer[id]==null then
        set HeroSkills_A0PT_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A0PT_Buff_Adef[id]=ModifyUnitAdef((id),mme)
        call UnitAddAbilityBY(u,'A0PV')
        call Unit_App_Counter(759,(id))
    elseif mme!=HeroSkills_A0PT_Buff_AdefV[id]then
        call UnitAdefChange((id),HeroSkills_A0PT_Buff_Adef[id],mme)
    endif
    set HeroSkills_A0PT_Buff_AdefV[id]=mme
    call TimerStart(HeroSkills_A0PT_Buff_Timer[id],.5,false,function HeroSkills_A0PT_Buff_end)
endfunction

function HeroSkills_A0PT_Explosion takes integer id returns nothing
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real d=Unit_Gas_Damage[(id)]*Unit_Light_Damage[(id)]*HeroSkills_A0PT_GetDamage((Je[(id)]),GetUnitAbilityLevel((Je[(id)]),'A0PT'))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,525+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,525)then
            if IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                if not(IsUnitType((u),UNIT_TYPE_GIANT))then
                    call Gjv(u,75,Atan2(GetUnitY(u)-y,GetUnitX(u)-x),1,"KnockbackDust.mdl")
                endif
            endif
        endif
    endloop
    call Ltv(LAv("NatureWave.mdl",x,y,3))
    call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,2.5),35,$9B,35,$9B))
    call zhv((Kc[(id)]),50,.75)
    call UnitRemoveAbilityBY((Je[(id)]),'ACmf')
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0PT',true)
    call Ltv(HeroSkills_A0PT_Model[id])
    call Ltv(HeroSkills_A0PT_Effect[id])
endfunction

function HeroSkills_A0PT_Stop takes integer id returns nothing
    if HeroSkills_A0PT_Use[id]then
        set HeroSkills_A0PT_Last[HeroSkills_A0PT_Next[id]]=HeroSkills_A0PT_Last[id]
        set HeroSkills_A0PT_Next[HeroSkills_A0PT_Last[id]]=HeroSkills_A0PT_Next[id]
        set HeroSkills_A0PT_Use[id]=false
        if HeroSkills_A0PT_Next[(0)]==0 then
            call frv(HeroSkills_A0PT_Func)
        endif
        call HeroSkills_A0PT_Explosion(id)
        call Unit_Cancel_Counter(760,(id))
    endif
endfunction

function HeroSkills_A0PT_Loop takes nothing returns nothing
    local integer id=HeroSkills_A0PT_Next[(0)]
    local unit u
    local real x
    local real y
    loop
        exitwhen id==0
        if UnitAlive((Je[(id)]))then
            set HeroSkills_A0PT_Time[id]=HeroSkills_A0PT_Time[id]-1
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            call LKv(HeroSkills_A0PT_Model[id],x)
            call Llv(HeroSkills_A0PT_Model[id],y)
            call LKv(HeroSkills_A0PT_Effect[id],x)
            call Llv(HeroSkills_A0PT_Effect[id],y)
            if ModuloInteger(HeroSkills_A0PT_Time[id],8)==0 then
                if ModuloInteger(HeroSkills_A0PT_Time[id],32)==0 then
                    call SetUnitAnimation(II[HeroSkills_A0PT_Model[id]],"Birth")
                endif
                call GroupEnumUnitsInRange(G,x,y,400+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,400)then
                        if IsUnitAllyNotbag(u,(Je[(id)]))then
                            call HeroSkills_A0PT_Buff(u,HeroSkills_A0PT_Value[id])
                        endif
                    endif
                endloop
            endif
        else
            set HeroSkills_A0PT_Time[id]=0
        endif
        if HeroSkills_A0PT_Time[id]<1 then
            call HeroSkills_A0PT_Stop(id)
        endif
        set id=HeroSkills_A0PT_Next[id]
    endloop
endfunction

function HeroSkills_A0PT_Open takes integer id returns integer
    if HeroSkills_A0PT_Use[id]then
        call HeroSkills_A0PT_Explosion(id)
    else
        if HeroSkills_A0PT_Next[(0)]==0 then
            if HeroSkills_A0PT_Func==0 then
                set HeroSkills_A0PT_Func=fxv(function HeroSkills_A0PT_Loop)
            endif
            call fov(HeroSkills_A0PT_Func)
        endif
        set HeroSkills_A0PT_Next[id]=HeroSkills_A0PT_Next[(0)]
        set HeroSkills_A0PT_Last[HeroSkills_A0PT_Next[(0)]]=id
        set HeroSkills_A0PT_Next[(0)]=id
        set HeroSkills_A0PT_Last[id]=0
        set HeroSkills_A0PT_Use[id]=true
        call Unit_App_Counter(761,(id))
    endif
    return id
endfunction

function HeroSkills_A0PT_End_func002 takes nothing returns nothing
    call HeroSkills_A0PT_Stop((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:468")))
endfunction

function HeroSkills_A0PT_End takes nothing returns nothing
    call TimerStart(NewTimer((GetUnitUserData((GetTriggerUnit())))),0,false,function HeroSkills_A0PT_End_func002)
endfunction

function HeroSkills_A0PT_Actions takes nothing returns nothing
    local integer id=HeroSkills_A0PT_Open((GetUnitUserData((GetTriggerUnit()))))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    set HeroSkills_A0PT_Model[id]=LVv('e033',x,y,0)
    set HeroSkills_A0PT_Effect[id]=LAv("CircleOutBuff.mdl",x,y,7.5)
    set HeroSkills_A0PT_Time[id]=R2I(32*9)
    set HeroSkills_A0PT_Value[id]=HeroSkills_A0PT_GetAdefValue((id),GetUnitAbilityLevel((Je[(id)]),'A0PT'))
    call PlaySoundOnUnit_BJ((Qa),(($7F)*1.),((Je[(id)])))
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0PT',false)
    call Ltv(LAv("ForestBolt.mdl",x,y,3))
    call UnitAddAbilityBY((Je[(id)]),'ACmf')
    call Lfv(HeroSkills_A0PT_Model[id],0,75,0,$FF)
    call Lfv(HeroSkills_A0PT_Effect[id],35,$CD,35,$FF)
endfunction

function HeroSkills_A0PT_BeCure takes nothing returns nothing
    call HeroSkills_A0PT_Shield_Charging((CURE_Unit),(BECURE_Unit),CURE_Damage)
endfunction

function HeroSkills_A0PT_Learning takes nothing returns nothing
    if HeroSkills_A0PT_CureTrig[(GetUnitUserData((GetTriggerUnit())))]==0 then
        set HeroSkills_A0PT_CureTrig[(GetUnitUserData((GetTriggerUnit())))]=AddUnitCureTrigB((GetUnitUserData((GetTriggerUnit()))),function HeroSkills_A0PT_BeCure)
    endif
endfunction

function HeroSkills_A0PT_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0PT',function HeroSkills_A0PT_Learning)
    call RegisterSpellEffectEvent('A0PT',function HeroSkills_A0PT_Actions)
    call RegisterSpellEffectEvent('ACmf',function HeroSkills_A0PT_End)
    call Luv('A0PT')
endfunction

function HeroSkills_A0PZ_Buff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:469")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0Q0','B05X')
    call ModifyUnitMagicDamage((id),-HeroSkills_A0PZ_Buff_Md[id])
    call UnitAddExtraHP((id),-HeroSkills_A0PZ_Buff_Hp[id])
    call Unit_Cancel_Counter(762,(id))
    set HeroSkills_A0PZ_Buff_timer[id]=null
endfunction

function HeroSkills_A0PZ_Buff takes unit NZv,unit N7v,integer lv returns nothing
    local integer id=(GetUnitUserData((N7v)))
    local integer t=R2I(.15*GetUnitNotExtraMaxLife((id)))
    local real v=(5.+.5*lv)
    if HeroSkills_A0PZ_Buff_timer[id]==null then
        set HeroSkills_A0PZ_Buff_timer[id]=NewTimer(id)
        set HeroSkills_A0PZ_Buff_Hp[id]=0
        set HeroSkills_A0PZ_Buff_Md[id]=0
        call UnitAddAbilityBY((Je[(id)]),'A0Q0')
        call Unit_App_Counter(763,(id))
    endif
    call UnitAddExtraHP((id),t-HeroSkills_A0PZ_Buff_Hp[id])
    call ModifyUnitMagicDamage((id),v-HeroSkills_A0PZ_Buff_Md[id])
    call TimerStart(HeroSkills_A0PZ_Buff_timer[id],5,false,function HeroSkills_A0PZ_Buff_Expired)
    set HeroSkills_A0PZ_Buff_Hp[id]=t
    set HeroSkills_A0PZ_Buff_Md[id]=v
endfunction

function s__WindField_getduration takes unit NZv,integer lv returns real
    return 20.+2.*lv
endfunction

function s__WindField_getdamage takes unit NZv,integer lv returns real
    return($A*lv+(.075+.0075*lv)*GetHeroState3(NZv,true))
endfunction

function s__WindField_getrange takes integer this returns real
    if s__WindField_bool[this]then
        return 1.5*300.
    endif
    return 300.
endfunction

function s__WindField_setsize takes integer this returns nothing
    call SetUnitScale(II[(s__WindField_model[this])],((s__WindField_range[this]/ 335.)*1.),0,0)
endfunction

function s__WindField_recycle takes integer this returns nothing
    set s__WindField_last[s__WindField_next[this]]=s__WindField_last[this]
    set s__WindField_next[s__WindField_last[this]]=s__WindField_next[this]
    if s__WindField_next[s__WindField_R]==s__WindField_R then
        call frv(s__WindField_func)
    endif
    call s__WindField_deallocate(this)
endfunction

function s__WindField_loop_c takes nothing returns nothing
    local integer this=s__WindField_next[s__WindField_R]
    local group g=null
    local unit u
    local real x
    local real y
    set s__WindField_index=ModuloInteger(s__WindField_index+1,32)
    if s__WindField_index==0 then
        set g=NewGroup()
    endif
    loop
        exitwhen this==s__WindField_R
        if s__WindField_bool[this]and s__WindField_range[this]<s__WindField_getrange(this)then
            set s__WindField_range[this]=s__WindField_range[this]+.03125*(1.5-1)*300/ 2.25
            call s__WindField_setsize(this)
        endif
        if s__WindField_spread[this]>0 then
            set s__WindField_spread[this]=s__WindField_spread[this]-1
        else
            set s__WindField_time[this]=s__WindField_time[this]-1
            set x=(GetUnitX(II[(s__WindField_model[this])]))
            set y=(GetUnitY(II[(s__WindField_model[this])]))
            if g!=null then
                call GroupEnumUnitsInRange(G,x,y,s__WindField_range[this]+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,s__WindField_range[this])then
                        if not IsUnitInGroup(u,g)and IsUnitAllyNotbag(u,(Je[(s__WindField_source[this])]))then
                            call GroupAddUnit(g,u)
                            call HeroSkills_A0PZ_Buff((Je[(s__WindField_source[this])]),u,s__WindField_lv[this])
                            call UnitCureTaret((Je[(s__WindField_source[this])]),u,s__WindField_damage[this])
                        endif
                    endif
                endloop
            endif
            if s__WindField_time[this]<1 then
                call Unit_Cancel_Counter(764,s__WindField_source[this])
                call Ltv(s__WindField_model[this])
                call s__WindField_recycle(this)
            endif
        endif
        set this=s__WindField_next[this]
    endloop
    if g!=null then
        call RecycleGroup(g)
        set g=null
    endif
endfunction

function s__WindField_alloc takes nothing returns integer
    local integer this=s__WindField__allocate()
    if s__WindField_next[s__WindField_R]==s__WindField_R then
        if s__WindField_func==null then
            set s__WindField_func=fxv(function s__WindField_loop_c)
        endif
        call fov(s__WindField_func)
    endif
    set s__WindField_next[this]=s__WindField_next[s__WindField_R]
    set s__WindField_last[this]=s__WindField_R
    set s__WindField_last[s__WindField_next[this]]=this
    set s__WindField_next[s__WindField_R]=this
    return this
endfunction

function s__WindField_New takes unit s,real x,real y returns integer
    local integer this=s__WindField_next[s__WindField_R]
    local integer t
    loop
        exitwhen this==0 or(not s__WindField_bool[this]and IsUnitInRangeXY(II[s__WindField_model[this]],x,y,s__WindField_range[this]))
        set this=s__WindField_next[this]
    endloop
    if this==null then
        set this=s__WindField_next[s__WindField_R]
        set t=0
        loop
            exitwhen this==0
            if IsUnitInRangeXY(II[s__WindField_model[this]],x,y,s__WindField_range[this])and(t==null or s__WindField_time[this]<s__WindField_time[t])then
                set t=this
            endif
            set this=s__WindField_next[this]
        endloop
        set this=t
    endif
    if this==null then
        set this=s__WindField_alloc()
        set s__WindField_model[this]=Lnv(x,y,0)
        set s__WindField_source[this]=(GetUnitUserData((s)))
        set s__WindField_bool[this]=false
        set s__WindField_spread[this]=R2I(32*2.25)
        set s__WindField_range[this]=300
        call s__WindField_setsize(this)
        call Unit_App_Counter(765,s__WindField_source[this])
        call LMv(s__WindField_model[this],"ringofbright.mdl")
        call Lfv(s__WindField_model[this],25,75,25,$FF)
    else
        set s__WindField_bool[this]=true
    endif
    set s__WindField_lv[this]=GetUnitAbilityLevel((Je[(s__WindField_source[this])]),'A0PZ')
    set s__WindField_time[this]=R2I(32*s__WindField_getduration((Je[(s__WindField_source[this])]),s__WindField_lv[this]))
    set s__WindField_damage[this]=s__WindField_getdamage((Je[(s__WindField_source[this])]),s__WindField_lv[this])
    return this
endfunction

function s__LightBreeze_end takes integer this returns nothing
    local integer t=s__WindField_New(s__barrage_atkunit[this],s__locationez_X[s__barrage_p2[this]],s__locationez_Y[s__barrage_p2[this]])
    local real x=(GetUnitX(II[(s__WindField_model[t])]))
    local real y=(GetUnitY(II[(s__WindField_model[t])]))
    local real a
    local real r=s__WindField_getrange(t)
    local integer b
    loop
        set s__LightBreeze_number[this]=s__LightBreeze_number[this]-1
        set a=Atan2(s__LightBreeze_vy[this],s__LightBreeze_vx[this])+s__LightBreeze_number[this]*Lx/ 8
        set b=CreateBarrageTypeE(LoadInteger(BYHT,s__LightBreeze_vessel[this],s__LightBreeze_number[this]),x+r*Cos(a),y+r*Sin(a),0)
        call SetBarrageFlightRadian(b,GetBarrageFlightRadian(this))
        set s__barrage_speed[b]=.03125*s__locationez_range[s__barrage_p1[b]]/ 2.25
        call dAe(b)
        exitwhen s__LightBreeze_number[this]==0
    endloop
    call free(s__LightBreeze_vessel[this])
endfunction

function s__LightBreeze_loop_a takes integer this returns nothing
    local integer i=s__LightBreeze_number[this]
    local real x=(GetUnitX(II[(s__barrage_model[this])]))
    local real y=(GetUnitY(II[(s__barrage_model[this])]))
    local real a=bj_DEGTORAD*(GetUnitFacing(II[(s__barrage_model[this])]))
    local integer fx
    loop
        exitwhen i==0
        set i=i-1
        set fx=LoadInteger(BYHT,s__LightBreeze_vessel[this],i)
        call LKv(fx,x)
        call Llv(fx,y)
        call SetUnitFacing(II[(fx)],((a)*1.)*bj_RADTODEG)
    endloop
endfunction

function s__LightBreeze_loop_b takes integer this returns boolean
    set s__LightBreeze_count[this]=s__LightBreeze_count[this]-1
    if s__LightBreeze_count[this]>0 then
        call SetBarrageFlightRadian(this,-GetBarrageFlightRadian(this))
        call MoveLocationEZ(s__barrage_p2[this],s__locationez_X[s__barrage_p2[this]]+s__LightBreeze_vx[this],s__locationez_Y[s__barrage_p2[this]]+s__LightBreeze_vy[this],s__barrage_Z[this])
        call BarrageMoveFiringPoint(this)
        return false
    endif
    return true
endfunction

function s__LightBreeze_remove takes integer this returns nothing
    call s__LightBreeze_end(this)
    call RemoveBarrage(this)
endfunction

function s__LightBreeze_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__LightBreeze_launcher]
    local unit u
    if this!=s__LightBreeze_launcher then
        call UseBarrage(s__LightBreeze_launcher)
        loop
            exitwhen this==s__LightBreeze_launcher
            if(s__barrage_outside[(this)])then
                call s__LightBreeze_loop_b(this)
                call s__LightBreeze_remove(this)
            elseif(s__barrage_finish[(this)])then
                if s__LightBreeze_loop_b(this)then
                    call s__LightBreeze_remove(this)
                else
                    set s__barrage_finish[(this)]=false
                endif
            else
                call s__LightBreeze_loop_a(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__LightBreeze_launcher]then
        set s__barrage_InOperation[s__LightBreeze_launcher]=false
        call frv(s__LightBreeze_func)
    endif
endfunction

function s__LightBreeze_fired takes integer this returns nothing
    call s__barrage_Filling((s__LightBreeze_launcher),(this))
    if not s__barrage_InOperation[s__LightBreeze_launcher]then
        set s__barrage_InOperation[s__LightBreeze_launcher]=true
        call fov(s__LightBreeze_func)
    endif
endfunction

function s__LightBreeze_onInit takes nothing returns nothing
    set s__LightBreeze_func=fxv(function s__LightBreeze_loop_c)
    set s__LightBreeze_launcher=NewLauncher()
endfunction

function HeroSkills_A0PZ_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local integer i=8
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real xD=GetSpellTargetX()-x
    local real yD=GetSpellTargetY()-y
    local real a=Atan2(yD,xD)
    local integer MVe=R2I(SquareRoot(xD*xD+yD*yD)/ $96)
    local integer t
    local integer fx
    if MVe<1 then
        set MVe=1
    endif
    set xD=xD/ MVe
    set yD=yD/ MVe
    set t=CreateBarrageTypeD(x,y,75,x+xD,y+yD,75)
    set s__barrage_atkunit[t]=c
    set s__barrage_speed[t]=.03125*450
    call SetBarrageFlightRadian(t,.55)
    set s__LightBreeze_vessel[t]=malloc()
    set s__LightBreeze_number[t]=i
    set s__LightBreeze_count[t]=MVe
    set s__LightBreeze_vx[t]=xD
    set s__LightBreeze_vy[t]=yD
    loop
        exitwhen i==0
        set i=i-1
        set fx=Lnv(s__barrage_X[t],s__barrage_Y[t],a)
        call LMv(fx,"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
        call SetUnitScale(II[(fx)],((1.125)*1.),0,0)
        call SetUnitFlyHeight(II[(fx)],((s__barrage_Z[t])*1.),0)
        call SaveInteger(BYHT,s__LightBreeze_vessel[t],i,fx)
        call Lfv(fx,55,$FF,55,$FF)
    endloop
    call LIv("GreenEnchantment.mdl",x+50*Cos(a),y+50*Sin(a),100,.875,a,0)
    call s__LightBreeze_fired(t)
    set c=null
endfunction

function HeroSkills_A0PZ_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PZ',function HeroSkills_A0PZ_Actions)
    call Luv('A0PZ')
endfunction

function HeroSkills_A0Q1_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real d
    local real a
    if UnitAlive((Je[(Boss_Spell_data1[data])]))then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))
        if ModuloInteger(Boss_Spell_data3[data],4)==0 then
            set a=GetRandomReal(0,Lx)
            set d=GetRandomReal($FA,$3E8-$FA)
            call SetUnitAnimation((Je[(Boss_Spell_data1[data])]),"attack")
            call Ltv(Lfv(LAv("Objects\\Spawnmodels\\NightElf\\NEDeathMedium\\NEDeath.mdl",x+d*Cos(a),y+d*Sin(a),2),25,125,25,$CD))
        endif
        if ModuloInteger(Boss_Spell_data3[data],R2I(32*3.75/ 5))==0 then
            call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$3E8)then
                    if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\NightElf\\NEDeathSmall\\NEDeathSmall.mdl",u,"origin"))
                        call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_X[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call UnitAppBuff((GetUnitUserData((u))),'A0QA',$D006B)
                    elseif IsUnitAllyNotbag(u,(Je[(Boss_Spell_data1[data])]))then
                        call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\NightElf\\NEDeathSmall\\NEDeathSmall.mdl",u,"origin"))
                        call UnitCureTaret((Je[(Boss_Spell_data1[data])]),u,Boss_Spell_Y[data])
                        call UnitRemoveControl((GetUnitUserData((u))))
                    endif
                endif
            endloop
            call Ltv(Lfv(LAv("Epicenter.mdl",x,y,7.5),0,125,0,$FF))
            call zhv((Kc[(Boss_Spell_data1[data])]),30,.75)
        endif
    else
        set Boss_Spell_data3[data]=0
    endif
    if Boss_Spell_data3[data]<1 then
        call SetUnitPosition((Je[(Boss_Spell_data1[data])]),GetUnitX((Je[(Boss_Spell_data1[data])])),GetUnitY((Je[(Boss_Spell_data1[data])])))
        call SetUnitVertexColor((Je[(Boss_Spell_data1[data])]),$FF,$FF,$FF,$FF)
        call SetUnitTimeScale((Je[(Boss_Spell_data1[data])]),1)
        call QueueUnitAnimation((Je[(Boss_Spell_data1[data])]),"stand")
        call m_v((Je[(Boss_Spell_data1[data])]),false)
        call CJe((Boss_Spell_data1[data]))
        call Unit_Cancel_Counter(766,Boss_Spell_data1[data])
        call Ltv(Boss_Spell_data2[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:470")
    endif
endfunction

function HeroSkills_A0Q1_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv
    local real x
    local real y
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set lv=GetUnitAbilityLevel((Je[(Boss_Spell_data1[data])]),'A0Q1')
    set x=GetUnitX((Je[(Boss_Spell_data1[data])]))
    set y=GetUnitY((Je[(Boss_Spell_data1[data])]))
    set Boss_Spell_data2[data]=LVv('e035',x,y,0)
    call SetUnitOwner(II[(Boss_Spell_data2[data])],(GetOwningPlayer((Je[(Boss_Spell_data1[data])]))),false)
    call LDv(Boss_Spell_data2[data],.375)
    set Boss_Spell_data3[data]=R2I(32*3.75)
    set Boss_Spell_X[data]=(20.+2.*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true)
    set Boss_Spell_Y[data]=(1.+.1*lv)*GetHeroState3((Je[(Boss_Spell_data1[data])]),true)
    call SetUnitVertexColor((Je[(Boss_Spell_data1[data])]),$9B,$FF,$9B,$FF)
    call SetUnitTimeScale((Je[(Boss_Spell_data1[data])]),4)
    call m_v((Je[(Boss_Spell_data1[data])]),true)
    call Unit_App_Counter(767,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A0Q1_Start)
endfunction

function HeroSkills_A0Q1_EndCast takes nothing returns nothing
    if not IsUnitPaused(GetTriggerUnit())then
        call CJe((GetUnitUserData((GetTriggerUnit()))))
    endif
endfunction

function HeroSkills_A0Q1_Channel takes nothing returns nothing
    call UnitAnimationAddEffect(UnitAnimationSetLoopEffect(UnitAnimationSetName(UnitAppAnimation(GetTriggerUnit()),"spell channel"),"NatureExplosion.mdl","origin",.5),"Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl","origin")
    call Cme((GetUnitUserData((GetTriggerUnit()))),450,1.5)
endfunction

function HeroSkills_A0Q1_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0Q1',function HeroSkills_A0Q1_Channel)
    call RegisterSpellEndCastEvent('A0Q1',function HeroSkills_A0Q1_EndCast)
    call RegisterSpellEffectEvent('A0Q1',function HeroSkills_A0Q1_Actions)
    call Luv('A0Q1')
endfunction

function Summon_h01O_Remove takes integer id returns nothing
    set Summon_h01O_Kill[id]=false
    call NewTextTagInTarget_B((Je[(id)]),"Goodbye!Call me next time Boss!",$C,55,$CD,55)
    call SetUnitDecay((Je[(id)]),45,125,45,$CD,1.667)
    call KillUnit((Je[(id)]))
    call SetUnitAnimation((Je[(id)]),"spell")
endfunction

function SummonSkills_A0Q6_Start takes nothing returns nothing
    local integer data=J[SummonSkills_A0Q6_Func]
    local unit u
    local integer i
    local integer j
    local real x
    local real y
    local real a
    local real d
    local real tA
    loop
        exitwhen 0==data
        if UnitAlive((Je[(SummonSkills_A0Q6_Unit[data])]))then
            set SummonSkills_A0Q6_Time[data]=SummonSkills_A0Q6_Time[data]-1
            if SummonSkills_A0Q6_Time[data]>=R2I(32*.75)and ModuloInteger(SummonSkills_A0Q6_Time[data],R2I(32*.25))==0 then
                set i=3
                set x=GetUnitX((Je[(SummonSkills_A0Q6_Unit[data])]))
                set y=GetUnitY((Je[(SummonSkills_A0Q6_Unit[data])]))
                set a=bj_DEGTORAD*GetUnitFacing((Je[(SummonSkills_A0Q6_Unit[data])]))
                loop
                    set i=i-1
                    set d=0
                    set tA=a+(i-1)*Lx/ 10.
                    loop
                        set d=d+450/ 3.
                        exitwhen d>=450
                        call Ltv(LAv("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",x+d*Cos(tA),y+d*Sin(tA),3))
                    endloop
                    exitwhen i==0
                endloop
                if SummonSkills_A0Q6_Time[data]==R2I(32*.75)then
                    call SetUnitTimeScale((Je[(SummonSkills_A0Q6_Unit[data])]),1)
                endif
                call GroupEnumUnitsInRange(G,x,y,450+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,450)then
                        if IsUnitAliveAndEnemy(u,(Je[(SummonSkills_A0Q6_Unit[data])]))and(Cos(((Atan2(GetUnitY(u)-y,GetUnitX(u)-x))*1.)-((a)*1.))>=Cos(((bj_DEGTORAD*105)*1.)))then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",u,"chest"))
                            call BrokenShield_A(u)
                            call UnitDamageTargetBY((((Je[(SummonSkills_A0Q6_Unit[data])]))),((u)),((((SummonSkills_A0Q6_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c005ce960")))
                        endif
                    endif
                endloop
                call SetUnitScale((Je[(SummonSkills_A0Q6_Unit[data])]),4-1.5*(SummonSkills_A0Q6_Time[data]-32*.75)/ SummonSkills_A0Q6_AnimationTime[data],0,0)
                call Ltv(Lfv(LIv("basicstrike.mdl",x,y,50,5,a,90),25,$FF,25,$FF))
                call Ltv(Lfv(LIv("basicstrike.mdl",x,y,125,5,a,90),25,$FF,25,$FF))
                call Ltv(Lbv(LVv('e036',x,y,bj_RADTODEG*a),1.5,2))
                call zhv((GetPlayerId((GetOwningPlayer((Je[(SummonSkills_A0Q6_Unit[data])]))))),37.5,.25)
                call SetUnitAnimation((Je[(SummonSkills_A0Q6_Unit[data])]),"attack slam")
            endif
        else
            set SummonSkills_A0Q6_Time[data]=0
        endif
        if SummonSkills_A0Q6_Time[data]<1 then
            call SetUnitTimeScale((Je[(SummonSkills_A0Q6_Unit[data])]),1)
            call Summon_h01O_Remove((SummonSkills_A0Q6_Unit[data]))
            call Unit_Cancel_Counter(768,SummonSkills_A0Q6_Unit[data])
            call DestroyEffectBY(SummonSkills_A0Q6_Effect[data])
            call fvv(data)
        endif
        set data=K[data]
    endloop
endfunction

function SummonSkills_A0Q6_Actions takes nothing returns nothing
    local integer data=D9v(SummonSkills_A0Q6_Func)
    local integer c=(Master[((GetUnitUserData((GetTriggerUnit()))))])
    set SummonSkills_A0Q6_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set SummonSkills_A0Q6_Effect[data]=CreateEffectFor()
    set SummonSkills_A0Q6_AnimationTime[data]=(3+R2I(GetUnitState(GetTriggerUnit(),UNIT_STATE_MANA)/ $F))*R2I(32*.25)
    set SummonSkills_A0Q6_Time[data]=SummonSkills_A0Q6_AnimationTime[data]+R2I(32*.75)
    set SummonSkills_A0Q6_Damage[data]=60.*(GetHeroState2((Je[(c)]),true)+GetHeroState3((Je[(c)]),true))
    call PlaySoundOnUnit_BJ((Wn),(($7F)*1.),((Je[(SummonSkills_A0Q6_Unit[data])])))
    call s__Effect_connect((SummonSkills_A0Q6_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl")),(((Je[(SummonSkills_A0Q6_Unit[data])]))),(("hand right"))))))
    call s__Effect_connect((SummonSkills_A0Q6_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl")),(((Je[(SummonSkills_A0Q6_Unit[data])]))),(("hand left"))))))
    call Ltv(Lfv(LAv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",GetUnitX((Je[(SummonSkills_A0Q6_Unit[data])])),GetUnitY((Je[(SummonSkills_A0Q6_Unit[data])])),2.5),$FF,$FF,0,$FF))
    call PauseUnit((Je[(SummonSkills_A0Q6_Unit[data])]),true)
    call SetUnitTimeScale((Je[(SummonSkills_A0Q6_Unit[data])]),.867/ .25)
    call Unit_App_Counter(769,SummonSkills_A0Q6_Unit[data])
endfunction

function SummonSkills_A0Q6_Init takes nothing returns nothing
    set SummonSkills_A0Q6_Func=fxv(function SummonSkills_A0Q6_Start)
    call RegisterSpellEffectEvent('A0Q6',function SummonSkills_A0Q6_Actions)
    call Luv('A0Q6')
endfunction

function SummonSkills_A0Q7_EnumUnit takes unit u returns unit
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    call GroupEnumUnitsInRange(G,x,y,600+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,600)then
            exitwhen nC[(GetUnitUserData((u)))]and not UnitAlive(u)and not IsSleepRevive[(GetUnitUserData((u)))]
        endif
    endloop
    return u
endfunction

function SummonSkills_A0Q7_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    set u=SummonSkills_A0Q7_EnumUnit(u)
    if u==null then
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
        call SetUnitState(GetTriggerUnit(),UNIT_STATE_MANA,GetUnitState(GetTriggerUnit(),UNIT_STATE_MANA)+40)
        call NewTextTagInTarget_B(GetTriggerUnit(),"|c00b6f7a6No teammates manage you two pens ~|r",$A,$FF,$FF,$FF)
    else
        call Ltv(LAv("GreenEnchantment.mdl",x,y,4))
        set x=GetUnitX(u)
        set y=GetUnitY(u)
        call PlaySoundOnUnit_BJ((Qa),(($7F)*1.),(u))
        call Ltv(LAv("GreenEnchantment.mdl",x,y,2))
        call Ltv(LAv("NatureExplosion.mdl",x,y,1.5))
        call SleepReviveHero((GetUnitUserData((u))),40.,100,1.5)
        set u=null
    endif
endfunction

function SummonSkills_A0Q7_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0Q7',function SummonSkills_A0Q7_Actions)
    call Luv('A0Q7')
endfunction

function SummonSkills_A0Q5_Start takes nothing returns boolean
    local integer data=J[SummonSkills_A0Q5_Func]
    local unit u
    local real x
    local real y
    local real tX
    local real tY
    local real tD
    local real a
    local real d
    loop
        exitwhen 0==data
        if SummonSkills_A0Q5_R[data]>=SummonSkills_A0Q5_S[data]then
            set SummonSkills_A0Q5_S[data]=SummonSkills_A0Q5_S[data]+.03125*.03125*$4E2
            set SummonSkills_A0Q5_R[data]=SummonSkills_A0Q5_R[data]-SummonSkills_A0Q5_S[data]
        else
            set SummonSkills_A0Q5_S[data]=SummonSkills_A0Q5_R[data]
            set SummonSkills_A0Q5_R[data]=0
        endif
        set SummonSkills_A0Q5_Count[data]=SummonSkills_A0Q5_Count[data]+1
        set x=GetUnitX((Je[(SummonSkills_A0Q5_Unit[data])]))+SummonSkills_A0Q5_S[data]*SummonSkills_A0Q5_X[data]
        set y=GetUnitY((Je[(SummonSkills_A0Q5_Unit[data])]))+SummonSkills_A0Q5_S[data]*SummonSkills_A0Q5_Y[data]
        if IsTerrainWalkable(x,y)and IsTerrainWalkable(x+64*SummonSkills_A0Q5_X[data],y+64*SummonSkills_A0Q5_Y[data])then
            if ModuloInteger(SummonSkills_A0Q5_Count[data],4)==0 then
                set a=SummonSkills_A0Q5_Ang[data]+.5*(-1+2*B2I(ModuloInteger(SummonSkills_A0Q5_Count[data],8)==0))*bj_PI
                call zhv((GetPlayerId((GetOwningPlayer((Je[(SummonSkills_A0Q5_Unit[data])]))))),25,.25)
                call Ltv(Lfv(LAv("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",x+80*Cos(a),y+80*Sin(a),2),125,$FF,125,$FF))
            endif
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(SummonSkills_A0Q5_Unit[data])]))then
                        if not IsUnitInGroup(u,SummonSkills_A0Q5_Group[data])then
                            call GroupAddUnit(SummonSkills_A0Q5_Group[data],u)
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl",u,"origin"))
                            call UnitDamageTargetBY((((Je[(SummonSkills_A0Q5_Unit[data])]))),((u)),((((SummonSkills_A0Q5_Damage[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c005ce960")))
                            call m1v(u,2.5)
                        endif
                        if GetUnitMoveSpeed(u)>0 then
                            set tX=GetUnitX(u)-x
                            set tY=GetUnitY(u)-y
                            set tD=(1.-(SquareRoot(tX*tX+tY*tY)*Cos(SummonSkills_A0Q5_Ang[data]-Atan2(tY,tX))/ 375))*SummonSkills_A0Q5_S[data]
                            set tX=(tX+x)+tD*SummonSkills_A0Q5_X[data]
                            set tY=(tY+y)+tD*SummonSkills_A0Q5_Y[data]
                            call GKv(u,tX,tY)
                        endif
                    endif
                endif
            endloop
            call SetUnitX((Je[(SummonSkills_A0Q5_Unit[data])]),x)
            call SetUnitY((Je[(SummonSkills_A0Q5_Unit[data])]),y)
        else
            set SummonSkills_A0Q5_R[data]=0
        endif
        if SummonSkills_A0Q5_R[data]>0 then
            call SetUnitAnimationByIndex((Je[(SummonSkills_A0Q5_Unit[data])]),2)
        else
            call Ltv(Lfv(LAv("Abilities\\Spells\\NightElf\\Taunt\\TauntCaster.mdl",x,y,5),25,75,25,$FF))
            call Ltv(LAv("EarthNova.mdl",x,y,2))
            call Ltv(LAv("NatureExplosion.mdl",x,y,3))
            call SetUnitTimeScale((Je[(SummonSkills_A0Q5_Unit[data])]),1)
            call SetUnitAnimation((Je[(SummonSkills_A0Q5_Unit[data])]),"attack slam")
            call QueueUnitAnimation((Je[(SummonSkills_A0Q5_Unit[data])]),"Stand")
            call SetUnitPathing((Je[(SummonSkills_A0Q5_Unit[data])]),true)
            call PauseUnit((Je[(SummonSkills_A0Q5_Unit[data])]),false)
            call Unit_Cancel_Counter(770,SummonSkills_A0Q5_Unit[data])
            call RecycleGroup(SummonSkills_A0Q5_Group[data])
            call DestroyEffectBY(SummonSkills_A0Q5_Effect[data])
            call fvv(data)
            set SummonSkills_A0Q5_Group[data]=null
        endif
        set data=K[data]
    endloop
    return false
endfunction

function SummonSkills_A0Q5_Actions takes nothing returns nothing
    local integer data=D9v(SummonSkills_A0Q5_Func)
    local integer c
    local real x
    local real y
    local real dX
    local real dY
    set SummonSkills_A0Q5_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set SummonSkills_A0Q5_Effect[data]=CreateEffectFor()
    set SummonSkills_A0Q5_Group[data]=NewGroup()
    set SummonSkills_A0Q5_Count[data]=0
    set c=(Master[(SummonSkills_A0Q5_Unit[data])])
    set x=GetUnitX((Je[(SummonSkills_A0Q5_Unit[data])]))
    set y=GetUnitY((Je[(SummonSkills_A0Q5_Unit[data])]))
    set dX=GetSpellTargetX()-x
    set dY=GetSpellTargetY()-y
    set SummonSkills_A0Q5_Ang[data]=Atan2(dY,dX)
    set SummonSkills_A0Q5_R[data]=MaxR(600,SquareRoot(dX*dX+dY*dY))
    set SummonSkills_A0Q5_S[data]=.03125*750
    set SummonSkills_A0Q5_X[data]=Cos(SummonSkills_A0Q5_Ang[data])
    set SummonSkills_A0Q5_Y[data]=Sin(SummonSkills_A0Q5_Ang[data])
    set SummonSkills_A0Q5_Damage[data]=30.*(GetHeroState2((Je[(c)]),true)+GetHeroState3((Je[(c)]),true))
    call LIv("GreenEnchantment.mdl",x+96*SummonSkills_A0Q5_X[data],y+96*SummonSkills_A0Q5_Y[data],275,2,SummonSkills_A0Q5_Ang[data],0)
    call s__Effect_connect((SummonSkills_A0Q5_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\SeaElementalMissile\\SeaElementalMissile.mdl")),(((Je[(SummonSkills_A0Q5_Unit[data])]))),(("hand right"))))))
    call s__Effect_connect((SummonSkills_A0Q5_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\SeaElementalMissile\\SeaElementalMissile.mdl")),(((Je[(SummonSkills_A0Q5_Unit[data])]))),(("hand left"))))))
    call s__Effect_connect((SummonSkills_A0Q5_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\SeaElementalMissile\\SeaElementalMissile.mdl")),(((Je[(SummonSkills_A0Q5_Unit[data])]))),(("foot right"))))))
    call s__Effect_connect((SummonSkills_A0Q5_Effect[data]),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Weapons\\SeaElementalMissile\\SeaElementalMissile.mdl")),(((Je[(SummonSkills_A0Q5_Unit[data])]))),(("foot left"))))))
    call SetUnitTimeScale((Je[(SummonSkills_A0Q5_Unit[data])]),2)
    call SetUnitPathing((Je[(SummonSkills_A0Q5_Unit[data])]),false)
    call PauseUnit((Je[(SummonSkills_A0Q5_Unit[data])]),true)
    call Unit_App_Counter(771,SummonSkills_A0Q5_Unit[data])
endfunction

function SummonSkills_A0Q5_Init takes nothing returns nothing
    set SummonSkills_A0Q5_Func=fxv(function SummonSkills_A0Q5_Start)
    call RegisterSpellEffectEvent('A0Q5',function SummonSkills_A0Q5_Actions)
    call Luv('A0Q5')
endfunction

function SummonSkills_A0Q4_Buff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:471")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0Q8','B061')
    call DeUnitMdef((id),SummonSkills_A0Q4_Buff_Mdef[id])
    call Unit_Cancel_Counter(772,(id))
    set SummonSkills_A0Q4_Buff_Timer[id]=null
endfunction

function SummonSkills_A0Q4_Buff takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    if SummonSkills_A0Q4_Buff_Timer[id]==null then
        set SummonSkills_A0Q4_Buff_Timer[id]=NewTimer(id)
        set SummonSkills_A0Q4_Buff_Mdef[id]=ModifyUnitMdef((id),25)
        call UnitAddAbilityBY(u,'A0Q8')
        call Unit_App_Counter(773,(id))
    endif
    call TimerStart(SummonSkills_A0Q4_Buff_Timer[id],1,false,function SummonSkills_A0Q4_Buff_Expired)
endfunction

function SummonSkills_A0Q4_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x
    local real y
    local real d
    if GetUnitAbilityLevel((Je[(id)]),'B05Z')>0 and GetUnitState((Je[(id)]),UNIT_STATE_MANA)>0 then
        set SummonSkills_A0Q4_Time[id]=SummonSkills_A0Q4_Time[id]-.03215
        if SummonSkills_A0Q4_Time[id]<=0 then
            set SummonSkills_A0Q4_Time[id]=.5
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            set d=.5*GetHeroState3((Je[((Master[(id)]))]),true)
            call GroupEnumUnitsInRange(G,x,y,600.+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600.)then
                    if IsUnitAllyNotbag(u,(Je[(id)]))then
                        call SummonSkills_A0Q4_Buff(u)
                        call UnitCureTaret((Je[(id)]),u,d)
                    endif
                endif
            endloop
        endif
        call SetUnitState((Je[(id)]),UNIT_STATE_MANA,GetUnitState((Je[(id)]),UNIT_STATE_MANA)-.03125*5)
    else
        set SummonSkills_A0Q4_Off[id]=true
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:472")
        call Unit_Cancel_Counter(774,id)
        if GetUnitState((Je[(id)]),UNIT_STATE_MANA)<=0 and Summon_h01O_Kill[id]then
            call Summon_h01O_Remove(id)
        endif
    endif
endfunction

function SummonSkills_A0Q4_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if SummonSkills_A0Q4_Off[id]then
        set SummonSkills_A0Q4_Off[id]=true
        set SummonSkills_A0Q4_Time[id]=.5
        call TimerStart(NewTimer(id),.03125,true,function SummonSkills_A0Q4_Start)
        call Unit_App_Counter(775,id)
    endif
endfunction

function SummonSkills_A0Q4_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0Q4',function SummonSkills_A0Q4_Actions)
    call Luv('A0Q4')
endfunction

function Summon_h01O_Death takes nothing returns nothing
    local integer id=s__Trig_P
    if Summon_h01O_Kill[id]then
        call Summon_h01O_Remove(id)
    endif
endfunction

function Summon_h01O_Init takes integer id returns nothing
    set Summon_h01O_Kill[id]=true
    set SummonSkills_A0Q4_Off[id]=true
    call AddUnitDeathTrig(id,function Summon_h01O_Death)
    call UnitApplyTimedLife((Je[(id)]),'BTLF',60.)
    if Summon_h01O_Bool then
        set Summon_h01O_Bool=FALSE
        call SummonSkills_A0Q4_Init()
        call SummonSkills_A0Q5_Init()
        call SummonSkills_A0Q7_Init()
        call SummonSkills_A0Q6_Init()
    endif
endfunction

function HeroSkills_A0PY_Summoned takes integer qJv,real x,real y,real a returns integer
    local integer id=(GetUnitUserData((CreateUnit((P[Kc[(qJv)]]),'h01O',x,y,a))))
    local integer mlv=GetHeroState3((Je[(qJv)]),true)
    call SetUnitNocontrol((id),true)
    call ModifyUnitHP((id),25*mlv)
    call ModifyUnitHpRegen((id),mlv/ $F)
    call SummonedUnitSetMaster(id,qJv)
    return id
endfunction

function HeroSkills_A0PY_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer Zhv
    local unit u
    local integer i
    local real x
    local real y
    local real z
    local real d
    local real a
    local real GZe
    local real r
    set Boss_Spell_V[data]=Boss_Spell_V[data]-1
    set x=(GetUnitX(II[(Boss_Spell_data3[data])]))
    set y=(GetUnitY(II[(Boss_Spell_data3[data])]))
    if Boss_Spell_V[data]>=750./ $4E2 then
        set i=1
        set z=(GetUnitFlyHeight(II[(Boss_Spell_data3[data])]))
        loop
            set i=i-1
            set a=GetRandomReal(0,Lx)
            set Zhv=CreateBarrageTypeD(x+750*Cos(a),y+750*Sin(a),GetRandomReal(.5,1.5*300.),x,y,z)
            call LMv(s__barrage_model[Zhv],"OrbOfWind.mdl")
            call SetUnitScale(II[(s__barrage_model[Zhv])],((.75)*1.),0,0)
            set s__barrage_speed[Zhv]=.03125*$4E2
            call SetBarrageFlightRadian(Zhv,.6)
            call Lfv(s__barrage_model[Zhv],0,0,0,$FF)
            call dAe(Zhv)
            exitwhen i==0
        endloop
    endif
    if Boss_Spell_V[data]<=(32*3.)then
        set r=(1-Boss_Spell_V[data]/(32.*3.))
        set GZe=2.5+(6-2.5)*r
        call SetUnitScale(II[(Boss_Spell_data3[data])],((GZe)*1.),0,0)
        if r==0 then
            call SetUnitTimeScale((Je[(Boss_Spell_data2[data])]),.87/ 3.)
            call SetUnitAnimation((Je[(Boss_Spell_data2[data])]),"attack slam")
            call QueueUnitAnimation((Je[(Boss_Spell_data2[data])]),"stand")
        endif
        if ModuloInteger(R2I(Boss_Spell_V[data]),32)==0 then
            call SetUnitVertexColor((Je[(Boss_Spell_data2[data])]),45,125,45,R2I($CD*r))
            call Ltv(Lfv(LAv("Objects\\Spawnmodels\\NightElf\\EntBirthTarget\\EntBirthTarget.mdl",x,y,GZe),0,125,0,$FF))
            call zhv((GetPlayerId((GetOwningPlayer((Je[(Boss_Spell_data1[data])]))))),$A+20*r/ 6,1)
        endif
    endif
    if Boss_Spell_V[data]<1 then
        call GroupEnumUnitsInRange(G,x,y,650+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,650)then
                if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call m1v(u,1)
                endif
            endif
        endloop
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,2.25),0,125,0,$FF))
        call SetUnitTimeScale((Je[(Boss_Spell_data2[data])]),1)
        call m_v((Je[(Boss_Spell_data2[data])]),false)
        call Summon_h01O_Init((Boss_Spell_data2[data]))
        call Unit_Cancel_Counter(776,Boss_Spell_data1[data])
        call Unit_Cancel_Counter(777,Boss_Spell_data2[data])
        call Ltv(Boss_Spell_data3[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:473")
    endif
endfunction

function HeroSkills_A0PY_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real a=Atan2(y-GetUnitY(GetTriggerUnit()),x-GetUnitX(GetTriggerUnit()))
    set Boss_Spell_data1[data]=(GetUnitUserData((GetTriggerUnit())))
    set Boss_Spell_data2[data]=HeroSkills_A0PY_Summoned(Boss_Spell_data1[data],x,y,a)
    set Boss_Spell_data3[data]=LAv("OrbOfWind.mdl",GetSpellTargetX(),GetSpellTargetY(),2.5)
    set Boss_Spell_V[data]=R2I(32*(3.+750/ 1250.))
    call m_v((Je[(Boss_Spell_data2[data])]),true)
    call SetUnitVertexColor((Je[(Boss_Spell_data2[data])]),45,125,45,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],((300.)*1.),0)
    call Lfv(Boss_Spell_data3[data],0,0,0,$FF)
    call Unit_App_Counter(778,Boss_Spell_data1[data])
    call Unit_App_Counter(779,Boss_Spell_data2[data])
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A0PY_Start)
endfunction

function HeroSkills_A0PY_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0PY',function HeroSkills_A0PY_Actions)
    call Luv('A0PY')
endfunction

function Hero_H01N_Init takes nothing returns nothing
    call HeroSkills_A0N1_Init()
    call HeroSkills_A0PN_Init()
    call HeroSkills_A0PS_Init()
    call HeroSkills_A0PT_Init()
    call HeroSkills_A0PZ_Init()
    call HeroSkills_A0Q1_Init()
    call HeroSkills_A0PY_Init()
endfunction

function HeroSkills_A06A_SetId takes integer u,integer i returns nothing
    set HeroSkills_A06A_Id[u]=i
endfunction

function HeroSkills_A01N_Off_func takes nothing returns nothing
    set HeroSkills_A01N_Off[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:474"))]=false
endfunction

function jfe takes integer NNv returns nothing
    if HeroSkills_A01N_Vaule[NNv]<HeroSkills_A01N_Max[NNv]then
        set HeroSkills_A01N_Vaule[NNv]=HeroSkills_A01N_Vaule[NNv]+1
        call UnitAddAbilityBY((Je[(NNv)]),'A05B')
        call NewTextTagInTarget_B((Je[(NNv)]),I2S(HeroSkills_A01N_Vaule[NNv])+" STACK",8+.5*HeroSkills_A01N_Vaule[NNv],$80,$FF,$80)
    endif
endfunction

function jFe takes integer NNv returns boolean
    if HeroSkills_A01N_Vaule[NNv]>0 then
        set HeroSkills_A01N_Vaule[NNv]=HeroSkills_A01N_Vaule[NNv]-1
        if HeroSkills_A01N_Vaule[NNv]==0 then
            call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A05B','Binv')
        endif
        call DestroyEffect(AddSpecialEffectTarget("ForestBolt.mdl",(Je[(NNv)]),"origin"))
        return true
    endif
    return false
endfunction

function jge takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:475")
    if HeroSkills_A01N_Vaule[NNv]>1 then
        set HeroSkills_A01N_Vaule[NNv]=1
    endif
    call UnitRemoveAbilityandBuffBY((Je[(NNv)]),'A0OM','B05F')
    call Unit_Cancel_Counter(780,(NNv))
    set HeroSkills_A01N_Timer[NNv]=null
    set HeroSkills_A01N_Max[NNv]=1
endfunction

function jGe takes integer NNv returns nothing
    if HeroSkills_A01N_Timer[NNv]==null then
        set HeroSkills_A01N_Timer[NNv]=NewTimer(NNv)
        set HeroSkills_A01N_Max[NNv]=6
        call UnitAddAbilityBY((Je[(NNv)]),'A0OM')
        call Unit_App_Counter(781,(NNv))
    endif
    call TimerStart(HeroSkills_A01N_Timer[NNv],$F,false,function jge)
endfunction

function HeroSkills_A01N_onAttack takes nothing returns nothing
    local integer NNv=(pF_v)
    local unit u
    local real x
    local real y
    local real d
    if not HeroSkills_A01N_Off[NNv]and GetRandomInt(1,$A)==1 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set d=(2.5+.75*GetUnitAbilityLevel((mF),'A01N'))*GetHeroState2((mF),true)
        set HeroSkills_A01N_Off[NNv]=true
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)then
                if IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call jfe(NNv)
        call Ltv(LAv("CenarionFury.mdl",x,y,1.25))
        call TimerStart(NewTimer(NNv),6,false,function HeroSkills_A01N_Off_func)
    endif
endfunction

function Hero_EnterWorld_H00Z takes nothing returns nothing
    local integer id=le
    set HeroSkills_A01N_Max[id]=1
    set HeroSkills_A01N_Vaule[id]=0
    call UnitAddPAttackTrig((id),function HeroSkills_A01N_onAttack)
    call SetPlayerTechResearched(P[Kc[id]],'Rhri',1)
endfunction

function HeroSkills_A01N_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H00Z',function Hero_EnterWorld_H00Z)
endfunction

function s__FlameShot_impact takes integer this returns nothing
    local real x=s__barrage_X[this]
    local real y=s__barrage_Y[this]
    local unit u
    if s__FlameShot_bool[this]then
        set s__FlameShot_damage[this]=(1.5+4*Unit_MATK[(GetUnitUserData((s__barrage_atkunit[this])))])*s__FlameShot_damage[this]
        call GroupEnumUnitsInRange(G,x,y,343.75+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,343.75)then
                if IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[this])then
                    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\Incinerate\\IncinerateBuff.mdl",u,"chest",1)
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__FlameShot_damage[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00f7c0b3")))
                    call m1v(u,2.5)
                endif
            endif
        endloop
        call Ltv(LAv("NewGroundEX.mdx",x,y,2.5))
    else
        call GroupEnumUnitsInRange(G,x,y,275+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,275)then
                if IsUnitAliveAndEnemyNotAvul(u,s__barrage_atkunit[this])then
                    call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\Incinerate\\IncinerateBuff.mdl",u,"chest",1)
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__FlameShot_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,2.5)
                endif
            endif
        endloop
    endif
    call Ltv(LAv("ShrapnelShards.mdl",x,y,1.25))
    call DestroyEffectBY(s__FlameShot_eff[this])
endfunction

function s__FlameShot_remove takes integer this returns nothing
    call s__FlameShot_impact(this)
    call RemoveBarrage(this)
endfunction

function s__FlameShot_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__FlameShot_launcher]
    local unit u
    if this!=s__FlameShot_launcher then
        call UseBarrage(s__FlameShot_launcher)
        loop
            exitwhen this==s__FlameShot_launcher
            if(s__barrage_outside[(this)])then
                call s__FlameShot_remove(this)
            elseif(s__barrage_finish[(this)])then
                call s__FlameShot_remove(this)
            elseif s__barrage_CollisionRange[this]!=0 then
                call GroupEnumUnitsInRange(G,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this]+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,s__barrage_X[this],s__barrage_Y[this],s__barrage_CollisionRange[this])then
                        if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                            call GroupAddUnit(s__barrage_enum_g[this],u)
                            if u!=s__barrage_target[this]and IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                                set s__FlameShot_bool[this]=(Control_use[(GetUnitUserData(((u))))])
                                set u=null
                                call s__FlameShot_remove(this)
                                exitwhen true
                            endif
                        endif
                    endif
                endloop
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__FlameShot_launcher]then
        set s__barrage_InOperation[s__FlameShot_launcher]=false
        call frv(s__FlameShot_func)
    endif
endfunction

function s__FlameShot_fired takes integer this returns nothing
    call s__barrage_Filling((s__FlameShot_launcher),(this))
    if not s__barrage_InOperation[s__FlameShot_launcher]then
        set s__barrage_InOperation[s__FlameShot_launcher]=true
        call fov(s__FlameShot_func)
    endif
endfunction

function s__FlameShot_onInit takes nothing returns nothing
    set s__FlameShot_func=fxv(function s__FlameShot_loop_c)
    set s__FlameShot_launcher=NewLauncher()
endfunction

function s__FlameShot_jpe takes integer this,unit c,boolean jPe returns nothing
    local integer lv=GetUnitAbilityLevel(c,'A05W')
    set s__barrage_atkunit[this]=c
    set s__barrage_speed[this]=60
    call LMv(s__barrage_model[this],"Abilities\\Weapons\\FlamingArrow\\FlamingArrowMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[this])],((2)*1.),0,0)
    set s__barrage_CollisionRange[this]=$AF
    set s__FlameShot_eff[this]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Weapons\\SearingArrow\\SearingArrowMissile.mdl"),(II[s__barrage_model[this]]),("origin"))))
    set s__FlameShot_bool[this]=false
    set s__FlameShot_damage[this]=Unit_Fire_Damage[(GetUnitUserData((c)))]*($FA*lv+($A+lv)*GetHeroState2(c,true))
    if jPe then
        set s__FlameShot_damage[this]=(1.1+.02*GetUnitAbilityLevel(c,'A01N'))*s__FlameShot_damage[this]
        call Ltv(LIv("ForestBolt.mdl",s__barrage_X[this],s__barrage_Y[this],75,1.5,s__locationez_ang[s__barrage_p1[this]],0))
    endif
    call Ltv(LIv("FireRing.mdl",s__barrage_X[this],s__barrage_Y[this],75,1,s__locationez_ang[s__barrage_p1[this]],0))
    set HeroSkills_A06A_Id[((GetUnitUserData((c))))]=(0)
    call s__FlameShot_fired(this)
endfunction

function HeroSkills_A05W_Actions takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local boolean jQe=jFe(((GetUnitUserData((c)))))
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local real tX=x+$4B0*Cos(a)
    local real tY=y+$4B0*Sin(a)
    local integer t
    if jQe then
        set a=a+(.05+.3*GetRandomInt(1,2))*Lx
        set t=CreateBarrageTypeD(x+$E1*Cos(a),y+$E1*Sin(a),75,tX,tY,75)
        call IssueImmediateOrderById(c,$D0004)
        call NewTextTagInTarget_B(c,"RESET COOLDOWN",$A,$80,$FF,$80)
    else
        set t=CreateBarrageTypeD(x,y,75,tX,tY,75)
        call GHv(c,-275,s__locationez_ang[s__barrage_p1[t]],.21875,"Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl")
    endif
    call s__FlameShot_jpe(t,c,jQe)
    set c=null
endfunction

function HeroSkills_A05W_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A05W',function HeroSkills_A05W_Actions)
    call Luv('A05W')
endfunction

function HeroSkills_A05Y_B_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A05Y_B_Func]
    local integer data
    local unit u
    local integer i
    local real x
    local real y
    local real pX
    local real pY
    local real a
    loop
        exitwhen 0==t
        set data=Timer_List[t]
        set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
        set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
        call LKv(Boss_Spell_data2[data],x)
        call Llv(Boss_Spell_data2[data],y)
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if ModuloInteger(Boss_Spell_data3[data],2)==0 then
            call LQv(Lfv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",x+GetRandomReal(-$E1,$E1),y+GetRandomReal(-$E1,$E1),1.5),$FF,$FF,$FF,$CD),1.25)
            if ModuloInteger(Boss_Spell_data3[data],4)==0 then
                call Ltv(Lfv(LIv("FreezingRing.mdl",x,y,50,.75,(GetUnitFacing(II[(Boss_Spell_data2[data])])),0),$FF,$FF,$FF,$9B))
            endif
        endif
        call GroupEnumUnitsInRange(G,x,y,325+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,325)then
                if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                    call GroupAddUnit(Boss_Spell_group1[data],u)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",u,"chest"))
                    call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call pmv(u,2)
                endif
            endif
        endloop
        if Boss_Spell_data3[data]<=0 then
            set i=8
            loop
                set i=i-1
                set a=i*Lx/ 8
                set pX=x+$C8*Cos(a)
                set pY=y+$C8*Sin(a)
                call Lqv(Lfv(LAv("BlizzardEruption.mdl",pX,pY,.375),$FF,$FF,$FF,$AF),1.5)
                call LQv(Lfv(LAv("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",pX,pY,.5),$FF,$FF,$FF,$AF),1)
                exitwhen i==0
            endloop
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        if IsUnitInGroup(u,Boss_Spell_group1[data])then
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((.5*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call DestroyEffect(AddSpecialEffectTarget("BluefireBolt.mdl",u,"chest"))
                        else
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",u,"origin"))
                        call pmv(u,2)
                    endif
                endif
            endloop
            if UnitHasItemOfType((Je[(Boss_Spell_data1[data])]),'tkno')then
                call xme((Je[(Boss_Spell_data1[data])]),x,y)
                call Ltv(LAv("FrostNova.mdl",x,y,1.75))
                call Ltv(LAv("FreezingRing.mdl",x,y,2.5))
            else
                call Ltv(LAv("FrostNova.mdl",x,y,1.125))
                call Ltv(LAv("FreezingRing.mdl",x,y,1))
            endif
            call RecycleGroup(Boss_Spell_group1[data])
            call DestroyEffect(Boss_Spell_eff[data])
            call Ltv(Boss_Spell_data2[data])
            call Unit_Cancel_Counter(782,Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call fvv(t)
            set Boss_Spell_group1[data]=null
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A05Y_B_Actions takes integer s,real x,real y,real dX,real dY,real a,integer lv returns nothing
    local integer t=D9v(HeroSkills_A05Y_B_Func)
    local integer data=Boss_Spell_allocate()
    set Timer_List[t]=data
    set Boss_Spell_data1[data]=s
    set Boss_Spell_data2[data]=Lnv(x,y,a)
    call LMv(Boss_Spell_data2[data],"Abilities\\Spells\\Other\\FrostArrows\\NagaColdArrowMissile.mdl")
    call SetUnitScale(II[(Boss_Spell_data2[data])],((2.25)*1.),0,0)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((75)*1.),0)
    set Boss_Spell_eff[data]=AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",II[Boss_Spell_data2[data]],"origin")
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data3[data]=R2I(SquareRoot(dX*dX+dY*dY)/ 50)
    set Boss_Spell_X[data]=50*Cos(a)
    set Boss_Spell_Y[data]=50*Sin(a)
    set Boss_Spell_V[data]=Unit_Frost_Damage[(s)]*(1.1+.02*GetUnitAbilityLevel((Je[(s)]),'A01N'))*($3E8*lv+(25+2.5*lv)*GetHeroState2((Je[(s)]),true))
    if Boss_Spell_data3[data]<$E then
        set Boss_Spell_data3[data]=$E
    endif
    call Ltv(LIv("FreezingRing.mdl",x,y,60,1.5,a,0))
    call Ltv(LIv("FreezingRing.mdl",x,y,60,1.5,a,0))
    call Unit_App_Counter(783,s)
endfunction

function HeroSkills_A05Y_B_Cancel takes nothing returns nothing
    set HeroSkills_A05Y_B_Use[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:476")]=false
endfunction

function HeroSkills_A05Y_B_App takes integer c returns nothing
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((c))]],('bspd')))or(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((c))]],('tkno')))then
        set HeroSkills_A05Y_B_Use[c]=true
        call TimerStart(NewTimer(c),1.5,false,function HeroSkills_A05Y_B_Cancel)
    endif
endfunction

function HeroSkills_A05Y_A_Start takes nothing returns nothing
    local integer t=J[HeroSkills_A05Y_A_Func]
    local integer data
    local integer fx
    local unit u
    local integer i
    local real x
    local real y
    loop
        exitwhen 0==t
        set i=5
        set data=Timer_List[t]
        if Boss_Spell_data3[data]>0 then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            loop
                set i=i-1
                set fx=LoadInteger(BYHT,Boss_Spell_data2[data],3*i)
                set x=(GetUnitX(II[(fx)]))+LoadReal(BYHT,(Boss_Spell_data2[data]),3*i+1)
                set y=(GetUnitY(II[(fx)]))+LoadReal(BYHT,(Boss_Spell_data2[data]),3*i+2)
                call LKv(fx,x)
                call Llv(fx,y)
                call GroupEnumUnitsInRange(G,x,y,$96+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,$96)then
                        if not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                            call GroupAddUnit(Boss_Spell_group1[data],u)
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",u,"origin"))
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call UnitAppBuff((GetUnitUserData((u))),'A05X',$D006B)
                        endif
                    endif
                endloop
                exitwhen i==0
            endloop
        else
            loop
                set i=i-1
                call Ltv((LoadInteger(BYHT,Boss_Spell_data2[data],3*i)))
                exitwhen i==0
            endloop
            call RecycleGroup(Boss_Spell_group1[data])
            call free(Boss_Spell_data2[data])
            call Unit_Cancel_Counter(784,Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call fvv(t)
            set Boss_Spell_group1[data]=null
        endif
        set t=K[t]
    endloop
endfunction

function HeroSkills_A05Y_Actions takes nothing returns nothing
    local integer c=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(c)]),'A05Y')
    local integer i
    local real x=GetUnitX((Je[(c)]))
    local real y=GetUnitY((Je[(c)]))
    local real dX=GetSpellTargetX()-x
    local real dY=GetSpellTargetY()-y
    local real a=Atan2(dY,dX)
    local real a2
    local integer t
    local integer data
    local integer fx
    if HeroSkills_A05Y_B_Use[c]then
        call HeroSkills_A05Y_B_Actions(c,x,y,dX,dY,a,lv)
        if jFe((c))then
            call IssueImmediateOrderById((Je[(c)]),$D0004)
        endif
    else
        set data=Boss_Spell_allocate()
        set Timer_List[D9v(HeroSkills_A05Y_A_Func)]=data
        set Boss_Spell_data1[data]=c
        set Boss_Spell_data2[data]=malloc()
        set Boss_Spell_group1[data]=NewGroup()
        set Boss_Spell_data3[data]=24
        set Boss_Spell_V[data]=Unit_Frost_Damage[(Boss_Spell_data1[data])]*(400*lv+($F+1.5*lv)*GetHeroState2((Je[(c)]),true))
        set i=5
        set x=x+50*Cos(a)
        set y=y+50*Sin(a)
        if jFe((c))then
            set Boss_Spell_V[data]=(1.1+.02*GetUnitAbilityLevel((Je[(c)]),'A01N'))*Boss_Spell_V[data]
            call HeroSkills_A05Y_B_App(c)
            call NewTextTagInTarget_B((Je[(c)]),"RESET COOLDOWN",$A,$80,$FF,$80)
            call IssueImmediateOrderById((Je[(c)]),$D0004)
        endif
        loop
            set i=i-1
            set a2=a+bj_PI*(i-2)/ $D
            set fx=Lnv(x,y,a2)
            call LMv(fx,"Abilities\\Spells\\Other\\FrostArrows\\NagaColdArrowMissile.mdl")
            call SetUnitScale(II[(fx)],((1.65)*1.),0,0)
            call SetUnitFlyHeight(II[(fx)],((60)*1.),0)
            call SaveInteger(BYHT,Boss_Spell_data2[data],3*i,fx)
            call SaveReal(BYHT,(Boss_Spell_data2[data]),3*i+1,47.5*Cos(a2))
            call SaveReal(BYHT,(Boss_Spell_data2[data]),3*i+2,47.5*Sin(a2))
            exitwhen i==0
        endloop
        call Ltv(LIv("FreezingRing.mdl",x,y,75,1,a,0))
        call Unit_App_Counter(785,c)
    endif
    set HeroSkills_A06A_Id[(c)]=(1)
endfunction

function HeroSkills_A05Y_Init takes nothing returns nothing
    set HeroSkills_A05Y_A_Func=fxv(function HeroSkills_A05Y_A_Start)
    set HeroSkills_A05Y_B_Func=fxv(function HeroSkills_A05Y_B_Start)
    call RegisterSpellEffectEvent('A05Y',function HeroSkills_A05Y_Actions)
    call Luv('A05Y')
endfunction

function HeroSkills_A060_Buff_Loop takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))then
        set HeroSkills_A060_Buff_Count[id]=HeroSkills_A060_Buff_Count[id]-1
        call UnitCureTaret(null,(Je[(id)]),HeroSkills_A060_Buff_CureV[id]+.02*GetUnitState((Je[(id)]),UNIT_STATE_MAX_LIFE))
    else
        set HeroSkills_A060_Buff_Count[id]=0
    endif
    if HeroSkills_A060_Buff_Count[id]<1 then
        if nC[(id)]then
            call HeroAddExtraAgi((id),-HeroSkills_A060_Buff_Agi[id])
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:477")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A070','B02H')
        call Unit_Cancel_Counter(786,(id))
    endif
endfunction

function HeroSkills_A060_Buff takes unit u,integer lv returns nothing
    local integer id=(GetUnitUserData((u)))
    local integer nS
    if HeroSkills_A060_Buff_Count[id]==0 then
        set HeroSkills_A060_Buff_Agi[id]=0
        call TimerStart(NewTimer(id),1,true,function HeroSkills_A060_Buff_Loop)
        call UnitAddAbilityBY((Je[(id)]),'A070')
        call Unit_App_Counter(787,(id))
    endif
    set HeroSkills_A060_Buff_Count[id]=3
    set HeroSkills_A060_Buff_CureV[id]=75*lv
    if nC[(id)]then
        set nS=R2I((.05+.005*lv)*GetHeroAgiNotExtra((GetUnitUserData((u)))))
        call HeroAddExtraAgi((id),nS-HeroSkills_A060_Buff_Agi[id])
        set HeroSkills_A060_Buff_Agi[id]=nS
    endif
endfunction

function HeroSkills_A060_Cancel takes integer id returns nothing
    if HeroSkills_A060_Use[id]then
        set HeroSkills_A060_Last[HeroSkills_A060_Next[id]]=HeroSkills_A060_Last[id]
        set HeroSkills_A060_Next[HeroSkills_A060_Last[id]]=HeroSkills_A060_Next[id]
        set HeroSkills_A060_Use[id]=false
        if HeroSkills_A060_Next[(0)]==0 then
            call frv(HeroSkills_A060_Func)
        endif
        call Unit_Cancel_Counter(788,(id))
    endif
endfunction

function HeroSkills_A060_Loop takes nothing returns nothing
    local integer id=HeroSkills_A060_Next[(0)]
    local unit u
    local integer lv
    local real x
    local real y
    local real r
    local real a
    local real d
    loop
        exitwhen id==0
        if HeroSkills_A060_Fangyu[id]then
            set HeroSkills_A060_F_Timer[id]=HeroSkills_A060_F_Timer[id]-1
            if HeroSkills_A060_F_Timer[id]<1 then
                set HeroSkills_A060_Fangyu[id]=false
                call SetUnitPosition(HeroSkills_A060_MaoTouYing[id],GetUnitX((Je[(id)])),GetUnitY((Je[(id)])))
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",HeroSkills_A060_MaoTouYing[id],"origin"))
                call Ltv(HeroSkills_A060_Model[id])
            else
                set lv=GetUnitAbilityLevel((Je[(id)]),'A060')
                set x=(GetUnitX(II[(HeroSkills_A060_Model[id])]))
                set y=(GetUnitY(II[(HeroSkills_A060_Model[id])]))
                set r=$FA+$A*lv
                set a=Lx*HeroSkills_A060_F_Timer[id]/ 80.
                call SetUnitFacingTimed(HeroSkills_A060_MaoTouYing[id],bj_RADTODEG*a-90,0)
                call SetUnitX(HeroSkills_A060_MaoTouYing[id],x+r*Cos(a))
                call SetUnitY(HeroSkills_A060_MaoTouYing[id],y+r*Sin(a))
                if ModuloInteger(HeroSkills_A060_F_Timer[id],4)==0 then
                    call GroupEnumUnitsInRange(G,x,y,r+75,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,x,y,r)then
                            if IsUnitAliveAndAlly(u,(Je[(id)]))then
                                call HeroSkills_A060_Buff(u,lv)
                            endif
                        endif
                    endloop
                endif
            endif
        elseif GetUnitTypeId((Je[(id)]))!=0 then
            set d=Mev(HeroSkills_A060_MaoTouYing[id],(Je[(id)]))
            if d>$5DC then
                call SetUnitPosition(HeroSkills_A060_MaoTouYing[id],GetUnitX((Je[(id)])),GetUnitY((Je[(id)])))
            elseif d>300 then
                if HeroSkills_A060_F_Timer[id]>0 then
                    set HeroSkills_A060_F_Timer[id]=HeroSkills_A060_F_Timer[id]-1
                else
                    set HeroSkills_A060_F_Timer[id]=5
                    call IssuePointOrderById(HeroSkills_A060_MaoTouYing[id],$D0012,GetUnitX((Je[(id)])),GetUnitY((Je[(id)])))
                endif
            endif
        elseif not HeroSkills_A060_Cd[id]then
            call RemoveUnitBJ(HeroSkills_A060_MaoTouYing[id],46)
            call HeroSkills_A060_Cancel(id)
            set HeroSkills_A060_MaoTouYing[id]=null
        endif
        set id=HeroSkills_A060_Next[id]
    endloop
endfunction

function HeroSkills_A060_App takes integer id returns boolean
    if not HeroSkills_A060_Use[id]then
        if HeroSkills_A060_Next[(0)]==0 then
            if HeroSkills_A060_Func==0 then
                set HeroSkills_A060_Func=fxv(function HeroSkills_A060_Loop)
            endif
            call fov(HeroSkills_A060_Func)
        endif
        set HeroSkills_A060_Next[id]=HeroSkills_A060_Next[(0)]
        set HeroSkills_A060_Last[HeroSkills_A060_Next[(0)]]=id
        set HeroSkills_A060_Next[(0)]=id
        set HeroSkills_A060_Last[id]=0
        set HeroSkills_A060_Use[id]=true
        call Unit_App_Counter(789,(id))
        return true
    endif
    return false
endfunction

function HeroSkills_A060_CD_expierd takes nothing returns nothing
    set HeroSkills_A060_Cd[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:478"))]=false
endfunction

function HeroSkills_A060_Actions takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real s=1.+.05*GetUnitAbilityLevel((Je[(id)]),'A060')
    if not HeroSkills_A060_Fangyu[id]then
        set HeroSkills_A060_Model[id]=LAv("Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl",x,y,s)
        set HeroSkills_A060_Fangyu[id]=true
    else
        call LKv(HeroSkills_A060_Model[id],x)
        call Llv(HeroSkills_A060_Model[id],y)
        call DEv(HeroSkills_A060_Model[id],"Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl")
    endif
    set HeroSkills_A060_F_Timer[id]=384
    call Ltv(LAv("NatureExplosion.mdl",x,y,s))
    return false
endfunction

function HeroSkills_A060_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    if not HeroSkills_A060_Cd[id]and not HeroSkills_A060_Fangyu[id]and Mev(HeroSkills_A060_MaoTouYing[id],(MF))<=$5DC then
        set HeroSkills_A060_Cd[id]=true
        if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('sbok')))then
            call TimerStart(NewTimer(id),.4,false,function HeroSkills_A060_CD_expierd)
        else
            call TimerStart(NewTimer(id),.55,false,function HeroSkills_A060_CD_expierd)
        endif
        call SetUnitFacing(HeroSkills_A060_MaoTouYing[id],Atan2(GetUnitY((MF))-GetUnitY(HeroSkills_A060_MaoTouYing[id]),GetUnitX((MF))-GetUnitX(HeroSkills_A060_MaoTouYing[id]))*bj_RADTODEG)
        call NeWLightningEffectTypeD("CLPB",HeroSkills_A060_MaoTouYing[id],(MF),100,60,.9,1,0)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\ChimaeraLightningMissile\\ChimaeraLightningMissile.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((Unit_Lightning_Damage[(pF_v)]*(GetDamage()+.5*GetUnitAbilityLevel((mF),'A060')*GetHeroState2((mF),true)))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    endif
endfunction

function HeroSkills_A060_Actions_002 takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A060_App(id)then
        set HeroSkills_A060_MaoTouYing[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'nwe1',GetUnitX((Je[(id)]))-100,GetUnitY((Je[(id)]))-100,GetUnitFacing((Je[(id)])))
        set HeroSkills_A060_Cd[id]=false
        call UnitAddPAttackTrig((id),function HeroSkills_A060_onAttack)
    endif
    call SetUnitAbilityLevel(HeroSkills_A060_MaoTouYing[id],'A05Z',GetUnitAbilityLevel((Je[(id)]),'A060'))
    return false
endfunction

function HeroSkills_A060_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A060',function HeroSkills_A060_Actions_002)
    call RegisterSpellEffectEvent('A060',function HeroSkills_A060_Actions)
    call Luv('A060')
endfunction

function HeroSkills_A061_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local integer pT
    local real x
    local real y
    local real lx
    local real ly
    local integer b
    local integer fx
    if Boss_Spell_bool[data]then
        set b=Boss_Spell_data2[data]
        set fx=Boss_Spell_data3[data]
        call LKv(fx,s__BezierCurve_getx(b,Boss_Spell_Z[data]))
        call Llv(fx,s__BezierCurve_gety(b,Boss_Spell_Z[data]))
        call SetUnitFlyHeight(II[(fx)],((s__BezierCurve_getz(b,Boss_Spell_Z[data]))*1.),0)
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+.125
        if Boss_Spell_Z[data]>=1 then
            set x=(GetUnitX(II[(fx)]))
            set y=(GetUnitY(II[(fx)]))
            set Boss_Spell_bool[data]=false
            if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(Boss_Spell_data1[data])]],('sbok')))then
                set pT=5
            else
                set pT=8
            endif
            set Boss_Spell_Z[data]=pT
            set Boss_Spell_data2[data]=$A0
            set Boss_Spell_data3[data]=Lnv(x,y,0)
            call LMv(Boss_Spell_data3[data],"cumulonimbus.mdl")
            call SetUnitScale(II[(Boss_Spell_data3[data])],((1.45)*1.),0,0)
            call s__BezierCurve_deallocate(b)
            call Ltv(fx)
        endif
    else
        if ModuloInteger(Boss_Spell_data2[data],R2I(Boss_Spell_Z[data]))==0 then
            set x=(GetUnitX(II[(Boss_Spell_data3[data])]))
            set y=(GetUnitY(II[(Boss_Spell_data3[data])]))
            call GroupEnumUnitsInRange(G,x,y,325+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,325)then
                    if IsUnitAliveAndEnemy(u,(Je[(Boss_Spell_data1[data])]))then
                        set lx=x+GetRandomReal(-100,100)
                        set ly=y+GetRandomReal(-100,100)
                        if pMv(u,false)then
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Unit_Frost_Damage[(Boss_Spell_data1[data])]*(1.+(Unit_C_DMG[(Boss_Spell_data1[data])]))*Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00fef3cf")))
                        elseif GetUnitAbilityLevel(u,'Bfro')==1 or GetUnitAbilityLevel(u,'B02P')==1 or GetUnitAbilityLevel(u,'B042')==1 then
                            if GetRandomReal(1,100)<1.5*(UnitCrit[(Boss_Spell_data1[data])])then
                                call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Unit_Frost_Damage[(Boss_Spell_data1[data])]*(1.+(Unit_C_DMG[(Boss_Spell_data1[data])]))*Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00fef3cf")))
                            else
                                call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            endif
                        elseif GetRandomReal(1,100)<(UnitCrit[(Boss_Spell_data1[data])])then
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),(((((1.+(Unit_C_DMG[(Boss_Spell_data1[data])]))*Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00fef3cf")))
                        else
                            call UnitDamageTargetBY((((Je[(Boss_Spell_data1[data])]))),((u)),((((Unit_DOT[(Boss_Spell_data1[data])]*Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                        call m1v(u,1.25)
                        call Psv("FORK",lx,ly,500,u,.4,1,.25)
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",u,"origin"))
                    endif
                endif
            endloop
        endif
        if Boss_Spell_data2[data]<1 then
            call Ltv(Boss_Spell_data3[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:479")
            call Unit_Cancel_Counter(790,Boss_Spell_data1[data])
        else
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        endif
    endif
endfunction

function HeroSkills_A061_Animation takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call PauseUnit((Je[(Boss_Spell_data1[data])]),false)
    if UnitAlive((Je[(Boss_Spell_data1[data])]))then
        set Boss_Spell_data3[data]=Lnv(Boss_Spell_X[data],Boss_Spell_Y[data],0)
        call SetUnitFlyHeight(II[(Boss_Spell_data3[data])],(($F)*1.),0)
        call LMv(Boss_Spell_data3[data],"s_MagicElectricMissile.mdx")
        call SetUnitScale(II[(Boss_Spell_data3[data])],((1.3)*1.),0,0)
        call TimerStart(GetExpiredTimer(),.03125,true,function HeroSkills_A061_Start)
    else
        call s__BezierCurve_deallocate((Boss_Spell_data3[data]))
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:480")
        call Unit_Cancel_Counter(791,Boss_Spell_data1[data])
    endif
endfunction

function HeroSkills_A061_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit c=GetTriggerUnit()
    local integer lv=GetUnitAbilityLevel(c,'A061')
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local real tx=GetSpellTargetX()
    local real ty=GetSpellTargetY()
    local real dx=tx-x
    local real dy=ty-y
    local real a=Atan2(dy,dx)
    local real pwv=RMaxBJ(SquareRoot(dx*dx+dy*dy),$C8)
    local real fYv=Cos(a)
    local real fzv=Sin(a)
    local integer b=s__BezierCurve_Power2(x+$F*fYv,y+$F*fzv,$F,x+.55*pwv*fYv,y+.55*pwv*fzv,$FA,tx,ty,525)
    set Boss_Spell_data1[data]=(GetUnitUserData((c)))
    set Boss_Spell_data2[data]=b
    set Boss_Spell_data3[data]=0
    set Boss_Spell_X[data]=x+$F*fYv
    set Boss_Spell_Y[data]=y+$F*fzv
    set Boss_Spell_V[data]=Unit_Lightning_Damage[(Boss_Spell_data1[data])]*($C8*lv+(3+.2*lv)*GetHeroState2(c,true))
    set Boss_Spell_Z[data]=0
    set Boss_Spell_bool[data]=true
    call PauseUnit(c,true)
    call SetUnitAnimation(c,"spell two")
    call QueueUnitAnimation(c,"stand")
    call TimerStart(NewTimer(data),1.05,false,function HeroSkills_A061_Animation)
    call Unit_App_Counter(792,Boss_Spell_data1[data])
    set c=null
endfunction

function HeroSkills_A061_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A061',function HeroSkills_A061_Actions)
    call Luv('A061')
endfunction

function HeroSkills_A06A_Start_002 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=Boss_Spell_data2[data]+1
    local integer v=GetHandleId(Boss_Spell_group1[data])
    local integer fx=LoadInteger(BYHT,v,i)
    local real pX=(GetUnitX(II[(fx)]))
    local real pY=(GetUnitY(II[(fx)]))
    local unit u
    set Boss_Spell_data2[data]=i
    if Boss_Spell_data3[data]==0 then
        call GroupEnumUnitsInRange(G,pX,pY,384+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,pX,pY,384)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call Ltv(Lfv(LAv("NewGroundEX.mdx",pX,pY,.9),$FF,$FF,$FF,$CD))
    else
        call GroupEnumUnitsInRange(G,pX,pY,256+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,pX,pY,256)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call pmv(u,4)
                endif
            endif
        endloop
        call Ltv(Lfv(LAv("Shiva'sWrath.mdx",pX,pY,.9),$FF,$FF,$FF,$CD))
    endif
    call Ltv(fx)
    if i==1 then
        call TimerStart(GetExpiredTimer(),.03125,true,function HeroSkills_A06A_Start_002)
    elseif i==Boss_Spell_data1[data]then
        call Unit_Cancel_Counter(793,GetHandleId(Boss_Spell_unit2[data]))
        call free(v)
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:481")
        set Boss_Spell_unit2[data]=null
        set Boss_Spell_group1[data]=null
    endif
endfunction

function HeroSkills_A06A_Start_003 takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:482")
    local unit s=(Je[(HeroSkills_A06A_V[fx])])
    local unit u
    local integer lv=GetUnitAbilityLevel(s,'A06A')
    local real pX=(GetUnitX(II[(fx)]))
    local real pY=(GetUnitY(II[(fx)]))
    local real d=$7D0*lv+($A+1.5*GetUnitAbilityLevel(s,'A06A'))*GetHeroState2(s,true)
    call GroupEnumUnitsInRange(G,pX,pY,325+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,pX,pY,325)then
            if IsUnitAliveAndEnemy(u,s)then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\AcidBomb\\BottleMissile.mdl",u,"chest"))
                call UnitDamageTargetBY(((s)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call Auxiliary_TargetOrder(('A0C6'),null,1,$D00B5,u)
            endif
        endif
    endloop
    call Ltv(Lfv(LAv("Acid Ex.mdl",pX,pY,2),$9B,$FF,$9B,$CD))
    call Ltv(Lfv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",pX,pY,2.5),0,$FF,0,$CD))
    call Ltv(Lfv(LAv("ForestBolt.mdl",pX,pY,1.65),55,$FF,55,$CD))
    call Ltv(fx)
    set s=null
endfunction

function HeroSkills_A06A_Start_001 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2
    local integer v=GetHandleId(Boss_Spell_group1[data])
    local integer fx
    local integer i
    local real a
    local real d
    local real pX
    local real pY
    if GetUnitTypeId(Boss_Spell_unit1[data])==0 then
        if Boss_Spell_data1[data]==2 then
            set i=Boss_Spell_data2[data]
        else
            set i=36
        endif
        loop
            set i=i-1
            if HaveSavedInteger(BYHT,v,36+i)then
                call Ltv((LoadInteger(BYHT,v,36+i)))
            endif
            call Ltv((LoadInteger(BYHT,v,i)))
            exitwhen i==0
        endloop
        call Unit_Cancel_Counter(794,GetHandleId(Boss_Spell_unit2[data]))
        call free(v)
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:483")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit2[data]=null
        set Boss_Spell_group1[data]=null
    else
        if Boss_Spell_data1[data]==0 then
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
            set a=Boss_Spell_data2[data]*Lx/ 36
            set pX=GetUnitX(Boss_Spell_unit1[data])+162.5*Cos(a)
            set pY=GetUnitY(Boss_Spell_unit1[data])+162.5*Sin(a)
            set fx=Lnv(pX,pY,0)
            call SetUnitScale(II[(fx)],((.9)*1.),0,0)
            call SetUnitFlyHeight(II[(fx)],((45)*1.),0)
            call LHv(fx,$B4)
            call SaveInteger(BYHT,v,Boss_Spell_data2[data],fx)
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",pX,pY))
            if Boss_Spell_data3[data]==0 then
                call LMv(fx,"Abilities\\Weapons\\SearingArrow\\SearingArrowMissile.mdl")
            else
                call LMv(fx,"Abilities\\Spells\\Other\\FrostArrows\\NagaColdArrowMissile.mdl")
            endif
            if Boss_Spell_bool[data]and ModuloInteger(Boss_Spell_data2[data],9)==0 then
                set pX=GetUnitX(Boss_Spell_unit1[data])-75*Cos(a)
                set pY=GetUnitY(Boss_Spell_unit1[data])-75*Sin(a)
                set fx=Lnv(pX,pY,0)
                call SetUnitOwner(II[(fx)],(GetOwningPlayer(Boss_Spell_unit1[data])),false)
                call LMv(fx,"Abilities\\Weapons\\PoisonArrow\\PoisonArrowMissile.mdl")
                call SetUnitScale(II[(fx)],((1.5)*1.),0,0)
                call SetUnitFlyHeight(II[(fx)],((45)*1.),0)
                call LHv(fx,$B4)
                call SaveInteger(BYHT,v,36+Boss_Spell_data2[data],fx)
                call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",pX,pY))
            endif
        elseif Boss_Spell_data1[data]==1 then
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
            if Boss_Spell_bool[data]and ModuloInteger(Boss_Spell_data2[data],9)==0 then
                call SetUnitFlyHeight(II[(LoadInteger(BYHT,v,36+Boss_Spell_data2[data]))],$EA6,$EA6)
            endif
            call SetUnitFlyHeight(II[(LoadInteger(BYHT,v,Boss_Spell_data2[data]))],$EA6,$EA6)
        elseif Boss_Spell_data1[data]==2 then
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
            set a=GetRandomReal(0,Lx)
            set d=GetRandomReal(0,450)
            set fx=LoadInteger(BYHT,v,Boss_Spell_data2[data])
            call LKv(fx,Boss_Spell_X[data]+d*Cos(a))
            call Llv(fx,Boss_Spell_Y[data]+d*Sin(a))
            call LHv(fx,0)
            call SetUnitFlyHeight(II[fx],0,$BB8)
            if Boss_Spell_timer[data]==null then
                set data2=Boss_Spell_allocate()
                set Boss_Spell_unit1[data2]=Boss_Spell_unit1[data]
                set Boss_Spell_unit2[data2]=Boss_Spell_unit2[data]
                set Boss_Spell_data1[data2]=0
                set Boss_Spell_data2[data2]=0
                set Boss_Spell_data3[data2]=Boss_Spell_data3[data]
                set Boss_Spell_group1[data2]=ConvertVersion(malloc())
                set Boss_Spell_V[data2]=Boss_Spell_V[data]
                set Boss_Spell_timer[data]=NewTimer(data2)
                call TimerStart(Boss_Spell_timer[data],1.25,false,function HeroSkills_A06A_Start_002)
                call Unit_App_Counter(795,GetHandleId(Boss_Spell_unit2[data]))
            else
                set data2=(alloc__hpv(GetHandleId((Boss_Spell_timer[data]))))
            endif
            set Boss_Spell_data1[data2]=Boss_Spell_data1[data2]+1
            call SaveInteger(BYHT,GetHandleId(Boss_Spell_group1[data2]),Boss_Spell_data1[data2],fx)
            if Boss_Spell_bool[data]and ModuloInteger(Boss_Spell_data2[data],9)==0 then
                set a=GetRandomReal(0,Lx)
                set d=GetRandomReal(0,450)
                set fx=LoadInteger(BYHT,v,36+Boss_Spell_data2[data])
                call LKv(fx,Boss_Spell_X[data]+d*Cos(a))
                call Llv(fx,Boss_Spell_Y[data]+d*Sin(a))
                call LHv(fx,0)
                set HeroSkills_A06A_V[fx]=GetHandleId(Boss_Spell_unit2[data])
                call RemoveSavedInteger(BYHT,v,36*Boss_Spell_data2[data])
                call SetUnitFlyHeight(II[fx],0,$BB8)
                call TimerStart(NewTimer(fx),1.25,false,function HeroSkills_A06A_Start_003)
            endif
        endif
        if Boss_Spell_data2[data]==0 then
            if Boss_Spell_data1[data]==2 then
                call Unit_Cancel_Counter(796,GetHandleId(Boss_Spell_unit2[data]))
                call free(v)
                call Boss_Spell_deallocate(data)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:484")
                set Boss_Spell_timer[data]=null
                set Boss_Spell_unit2[data]=null
                set Boss_Spell_group1[data]=null
            else
                set Boss_Spell_data1[data]=Boss_Spell_data1[data]+1
                set Boss_Spell_data2[data]=36
                if Boss_Spell_data1[data]==1 then
                    call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
                    call PauseUnit(Boss_Spell_unit1[data],false)
                endif
            endif
        endif
    endif
endfunction

function HeroSkills_A06A_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A06A')
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real d=500*lv+(2.25+.75*lv)*GetHeroState2(GetTriggerUnit(),true)
    set Boss_Spell_unit1[data]=GetTriggerUnit()
    set Boss_Spell_unit2[data]=ConvertVersion(id)
    set Boss_Spell_group1[data]=ConvertVersion(malloc())
    set Boss_Spell_timer[data]=null
    set Boss_Spell_data1[data]=0
    set Boss_Spell_data2[data]=36
    set Boss_Spell_data3[data]=HeroSkills_A06A_Id[id]
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set Boss_Spell_bool[data]=(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[(id)]],('rin1')))
    if Boss_Spell_data3[data]==0 then
        set Boss_Spell_V[data]=d*Unit_Fire_Damage[id]*1.5
    else
        set Boss_Spell_V[data]=d*Unit_Frost_Damage[id]
    endif
    call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitAnimation(Boss_Spell_unit1[data],"spell three")
    call QueueUnitAnimation(Boss_Spell_unit1[data],"Stand")
    call Unit_App_Counter(797,id)
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A06A_Start_001)
endfunction

function HeroSkills_A06A_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A06A',function HeroSkills_A06A_Actions)
    call Luv('A06A')
endfunction

function s__A0QN_loop_2 takes integer this returns nothing
    set s__A0QN_count[this]=ModuloInteger(s__A0QN_count[this]+1,2)
    if s__A0QN_count[this]==0 then
        call Ltv(LIv("GreenEnchantment.mdx",(GetUnitX(II[(s__barrage_model[this])])),(GetUnitY(II[(s__barrage_model[this])])),(GetUnitFlyHeight(II[(s__barrage_model[this])])),.25,(s__barrage_facing[(this)]),(NI[(s__barrage_model[this])])+90))
    endif
endfunction

function s__A0QN_impact takes integer this returns boolean
    local real x=(GetUnitX(II[(s__barrage_model[this])]))
    local real y=(GetUnitY(II[(s__barrage_model[this])]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,400.+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,400.)then
            if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__A0QN_damage[this])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c0072a54b")))
                call m2v(u,5.,'A500','B500',true)
                call Auxiliary_TargetOrder(('A0C6'),null,1,$D00B5,u)
            endif
        endif
    endloop
    call zhv((GetPlayerId((GetOwningPlayer(s__barrage_atkunit[this])))),40,.5)
    call Ltv(LAv("CenarionFury.mdl",x,y,2))
    call Ltv(LAv("Acid Ex.mdl",x,y,2.25))
    call DestroyEffectBY(s__A0QN_eff[this])
    return true
endfunction

function s__A0QN_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__A0QN_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__A0QN_launcher]
    local unit u
    if this!=s__A0QN_launcher then
        call UseBarrage(s__A0QN_launcher)
        loop
            exitwhen this==s__A0QN_launcher
            if(s__barrage_outside[(this)])then
                call s__A0QN_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call s__A0QN_impact(this)
            else
                call s__A0QN_loop_2(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__A0QN_launcher]then
        set s__barrage_InOperation[s__A0QN_launcher]=false
        call frv(s__A0QN_func)
    endif
endfunction

function s__A0QN_fired takes integer this returns nothing
    call s__barrage_Filling((s__A0QN_launcher),(this))
    if not s__barrage_InOperation[s__A0QN_launcher]then
        set s__barrage_InOperation[s__A0QN_launcher]=true
        call fov(s__A0QN_func)
    endif
endfunction

function s__A0QN_onInit takes nothing returns nothing
    set s__A0QN_func=fxv(function s__A0QN_loop_c)
    set s__A0QN_launcher=NewLauncher()
endfunction

function HeroSkills_A0QN_End takes nothing returns nothing
    local integer NNv=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:485")
    call m_v((Je[(NNv)]),false)
    call Unit_Cancel_Counter(798,(NNv))
endfunction

function HeroSkills_A0QN_Start takes nothing returns nothing
    local timer l__tm=GetExpiredTimer()
    local integer id=(alloc__hpv(GetHandleId((l__tm))))
    local integer i=5
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0QN')
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a=Atan2(HeroSkills_A0QN_Py[id]-y,HeroSkills_A0QN_Px[id]-x)
    local real d=5000*lv+(30.+4.+lv)*GetHeroState2((Je[(id)]),true)
    local integer t
    local group g
    local unit u
    local real tA
    if UnitAlive((Je[(id)]))then
        set g=pTv((Je[(id)]),HeroSkills_A0QN_Px[id],HeroSkills_A0QN_Py[id],450.,5)
        loop
            exitwhen i==0
            set i=i-1
            set tA=a+i*Lx/ 5
            set u=FirstOfGroup(g)
            if u==null then
                set g=pTv((Je[(id)]),HeroSkills_A0QN_Px[id],HeroSkills_A0QN_Py[id],450.,5)
                set u=FirstOfGroup(g)
            endif
            if u==null then
                set t=CreateBarrageTypeD(x,y,600,HeroSkills_A0QN_Px[id]+.5*450.*Cos(tA),HeroSkills_A0QN_Py[id]+.5*450.*Sin(tA),0)
            else
                set t=CreateBarrageTypeC(x,y,600,u)
                call GroupRemoveUnit(g,u)
            endif
            set s__barrage_atkunit[t]=(Je[(id)])
            call LMv(s__barrage_model[t],"Abilities\\Spells\\Undead\\DarkSummoning\\DarkSummonMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[t])],((1.5)*1.),0,0)
            set s__barrage_speed[t]=.03125*((i+1)*1000./ 5)
            set s__barrage_acceleration[t]=.03125*.03125*3000.
            call SetBarrageFlightRadian(t,.3*Sin(tA-a))
            call SetBarrageFlightRadianEZ(t,.15)
            set s__A0QN_eff[t]=(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl"),(II[s__barrage_model[t]]),("origin"))))
            set s__A0QN_count[t]=0
            set s__A0QN_damage[t]=d
            call s__A0QN_fired(t)
        endloop
        call zKv((GetPlayerId((GetOwningPlayer((Je[(id)]))))),$CD,$FF,$CD,.27)
        call Ltv(LNv("GreenEnchantment.mdx",x,y,600-$80,1))
        call Ltv(LIv("EarthNova.mdl",x+$80*Cos(a),y+$80*Sin(a),600-80,.325,a+bj_PI,$F))
        call TimerStart(l__tm,(1-.575)*1.467,false,function HeroSkills_A0QN_End)
        call RecycleGroup(g)
    else
        call TimerStart(l__tm,0,false,function HeroSkills_A0QN_End)
    endif
    call BCv((id))
    set u=null
    set l__tm=null
endfunction

function HeroSkills_A0QN_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0QN_Px[id]=GetSpellTargetX()
    set HeroSkills_A0QN_Py[id]=GetSpellTargetY()
    call m_v((Je[(id)]),true)
    call Cme((id),600-$80,.575*1.467)
    call SetItemDroppableTimedById((id),'rde2',60)
    call SetUnitAnimation((Je[(id)]),"spell one")
    call QueueUnitAnimation((Je[(id)]),"stand")
    call TimerStart(NewTimer(id),.575*1.467,false,function HeroSkills_A0QN_Start)
    call Unit_App_Counter(799,(id))
endfunction

function HeroSkills_A0QN_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0QN',function HeroSkills_A0QN_Actions)
endfunction

function s__MagicBallista_impact takes integer this returns nothing
    local real x=s__barrage_X[this]
    local real y=s__barrage_Y[this]
    local unit u
    call GroupEnumUnitsInRange(G,x,y,s__barrage_CollisionRange[this]+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,s__barrage_CollisionRange[this])then
            if not IsUnitInGroup(u,s__barrage_enum_g[this])then
                call GroupAddUnit(s__barrage_enum_g[this],u)
                if IsUnitAliveAndEnemy(u,s__barrage_atkunit[this])then
                    call UnitDamageTargetBY(((s__barrage_atkunit[this])),((u)),((((s__MagicBallista_damage[this])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endif
    endloop
endfunction

function s__MagicBallista_remove takes integer this returns nothing
    call RemoveBarrage(this)
endfunction

function s__MagicBallista_loop_c takes nothing returns nothing
    local integer this=s__barrage_FR[s__MagicBallista_launcher]
    local unit u
    if this!=s__MagicBallista_launcher then
        call UseBarrage(s__MagicBallista_launcher)
        loop
            exitwhen this==s__MagicBallista_launcher
            if(s__barrage_outside[(this)])then
                call s__MagicBallista_impact(this)
                call RemoveBarrage((this))
            elseif(s__barrage_finish[(this)])then
                call RemoveBarrage((this))
            else
                call s__MagicBallista_impact(this)
            endif
            set this=s__barrage_FR[this]
        endloop
    elseif s__barrage_InOperation[s__MagicBallista_launcher]then
        set s__barrage_InOperation[s__MagicBallista_launcher]=false
        call frv(s__MagicBallista_func)
    endif
endfunction

function s__MagicBallista_fired takes integer this returns nothing
    call s__barrage_Filling((s__MagicBallista_launcher),(this))
    if not s__barrage_InOperation[s__MagicBallista_launcher]then
        set s__barrage_InOperation[s__MagicBallista_launcher]=true
        call fov(s__MagicBallista_func)
    endif
endfunction

function s__MagicBallista_onInit takes nothing returns nothing
    set s__MagicBallista_func=fxv(function s__MagicBallista_loop_c)
    set s__MagicBallista_launcher=NewLauncher()
endfunction

function s__MagicBallista_New takes unit c,real x,real y,real a,real biv returns nothing
    local integer this=CreateBarrageTypeD(x,y,50,x+540*Cos(a),y+540*Sin(a),50)
    set s__barrage_atkunit[this]=c
    set s__barrage_speed[this]=45
    call LMv(s__barrage_model[this],"s_Enchanted Arrow.mdl")
    call SetUnitScale(II[(s__barrage_model[this])],((1.1)*1.),0,0)
    set s__barrage_CollisionRange[this]=$80
    set s__MagicBallista_damage[this]=biv
    call s__MagicBallista_fired(this)
endfunction

function HeroSkills_A06X_Start takes nothing returns nothing
    local integer data=J[HeroSkills_A06X_Func]
    local integer fx
    local unit u
    local integer i
    loop
        exitwhen 0==data
        set i=9
        set HeroSkills_A06X_Time[data]=HeroSkills_A06X_Time[data]-1
        set HeroSkills_A06X_A[data]=HeroSkills_A06X_A[data]+Lx/ 54
        set HeroSkills_A06X_Px[data]=HeroSkills_A06X_Px[data]+HeroSkills_A06X_Vx[data]
        set HeroSkills_A06X_Py[data]=HeroSkills_A06X_Py[data]+HeroSkills_A06X_Vy[data]
        loop
            set i=i-1
            set fx=LoadInteger(BYHT,HeroSkills_A06X_Vessel[data],i)
            call LKv(fx,(GetUnitX(II[(fx)]))+HeroSkills_A06X_Vx[data])
            call Llv(fx,(GetUnitY(II[(fx)]))+HeroSkills_A06X_Vy[data])
            exitwhen i==0
        endloop
        call GroupEnumUnitsInRange(G,HeroSkills_A06X_Px[data],HeroSkills_A06X_Py[data],350+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,HeroSkills_A06X_Px[data],HeroSkills_A06X_Py[data],350)then
                if not IsUnitInGroup(u,HeroSkills_A06X_Group[data])and IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A06X_Unit[data])]))then
                    call GroupAddUnit(HeroSkills_A06X_Group[data],u)
                    call UnitDamageTargetBY((((Je[(HeroSkills_A06X_Unit[data])]))),((u)),((((HeroSkills_A06X_D[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call s__MagicBallista_New((Je[(HeroSkills_A06X_Unit[data])]),HeroSkills_A06X_Px[data],HeroSkills_A06X_Py[data],HeroSkills_A06X_A[data],.05*HeroSkills_A06X_D[data])
        if ModuloInteger(HeroSkills_A06X_Time[data],16)==0 then
            call jfe((HeroSkills_A06X_Unit[data]))
            call Ltv(LAv("CenarionFury.mdl",HeroSkills_A06X_Px[data],HeroSkills_A06X_Py[data],2.75))
            if HeroSkills_A06X_Time[data]<1 then
                set i=9
                set HeroSkills_A06X_D[data]=2.5*HeroSkills_A06X_D[data]
                loop
                    set i=i-1
                    call Ltv((LoadInteger(BYHT,HeroSkills_A06X_Vessel[data],i)))
                    exitwhen i==0
                endloop
                call GroupEnumUnitsInRange(G,HeroSkills_A06X_Px[data],HeroSkills_A06X_Py[data],450+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,HeroSkills_A06X_Px[data],HeroSkills_A06X_Py[data],450)then
                        if IsUnitAliveAndEnemy(u,(Je[(HeroSkills_A06X_Unit[data])]))then
                            call UnitDamageTargetBY((((Je[(HeroSkills_A06X_Unit[data])]))),((u)),((((HeroSkills_A06X_D[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,5)
                        endif
                    endif
                endloop
                call Ltv(LAv("AncientExplode.mdl",HeroSkills_A06X_Px[data],HeroSkills_A06X_Py[data],2.75))
                call RecycleGroup(HeroSkills_A06X_Group[data])
                call Unit_Cancel_Counter(800,HeroSkills_A06X_Unit[data])
                call free(HeroSkills_A06X_Vessel[data])
                call fvv(data)
                set HeroSkills_A06X_Group[data]=null
            endif
        endif
        set data=K[data]
    endloop
endfunction

function HeroSkills_A06X_Actions takes nothing returns nothing
    local integer data=D9v(HeroSkills_A06X_Func)
    local integer fx
    local real ta
    local real array a
    local real array r
    local integer i=9
    set HeroSkills_A06X_Unit[data]=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A06X_Vessel[data]=malloc()
    set HeroSkills_A06X_Group[data]=NewGroup()
    set HeroSkills_A06X_Time[data]=96
    set HeroSkills_A06X_Px[data]=GetUnitX((Je[(HeroSkills_A06X_Unit[data])]))
    set HeroSkills_A06X_Py[data]=GetUnitY((Je[(HeroSkills_A06X_Unit[data])]))
    set HeroSkills_A06X_A[data]=Atan2(GetSpellTargetY()-HeroSkills_A06X_Py[data],GetSpellTargetX()-HeroSkills_A06X_Px[data])
    set HeroSkills_A06X_Vx[data]=11.25*Cos(HeroSkills_A06X_A[data])
    set HeroSkills_A06X_Vy[data]=11.25*Sin(HeroSkills_A06X_A[data])
    set HeroSkills_A06X_D[data]=100*GetHeroState2((Je[(HeroSkills_A06X_Unit[data])]),true)
    set a[0]=0
    set a[1]=30*bj_DEGTORAD
    set a[2]=60*bj_DEGTORAD
    set a[3]=300*bj_DEGTORAD
    set a[4]=270*bj_DEGTORAD
    set a[5]=$A0*bj_DEGTORAD
    set a[6]=$C8*bj_DEGTORAD
    set a[7]=$B4*bj_DEGTORAD
    set a[8]=$B4*bj_DEGTORAD
    set r[0]=125
    set r[1]=$A0
    set r[2]=$C8
    set r[3]=$A0
    set r[4]=$C8
    set r[5]=80
    set r[6]=80
    set r[7]=$A0
    set r[8]=$EB
    loop
        exitwhen i==0
        set i=i-1
        set ta=HeroSkills_A06X_A[data]+a[i]
        set fx=Lnv(HeroSkills_A06X_Px[data]+r[i]*Cos(ta),HeroSkills_A06X_Py[data]+r[i]*Sin(ta),HeroSkills_A06X_A[data])
        call LMv(fx,"Abilities\\Weapons\\GreenDragonMissile\\GreenDragonMissile.mdl")
        call SetUnitScale(II[(fx)],((2.25)*1.),0,0)
        call SetUnitFlyHeight(II[(fx)],((50)*1.),0)
        call SaveInteger(BYHT,HeroSkills_A06X_Vessel[data],i,fx)
    endloop
    call UnitResetCooldownById((Je[(HeroSkills_A06X_Unit[data])]),LoadInteger(BYHT,Hero_Skills_table[(HeroSkills_A06X_Unit[data])],2))
    call UnitResetCooldownById((Je[(HeroSkills_A06X_Unit[data])]),LoadInteger(BYHT,Hero_Skills_table[(HeroSkills_A06X_Unit[data])],3))
    call jGe((HeroSkills_A06X_Unit[data]))
    call Unit_App_Counter(801,HeroSkills_A06X_Unit[data])
endfunction

function HeroSkills_A06X_Init takes nothing returns nothing
    set HeroSkills_A06X_Func=fxv(function HeroSkills_A06X_Start)
    call RegisterSpellEffectEvent('A06X',function HeroSkills_A06X_Actions)
endfunction

function Hero_H00Z_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H00Z',function Hero_EnterWorld_H00Z)
    call HeroSkills_A05W_Init()
    call HeroSkills_A05Y_Init()
    call HeroSkills_A060_Init()
    call HeroSkills_A061_Init()
    call HeroSkills_A06A_Init()
    call HeroSkills_A06X_Init()
    call RegisterSpellEffectEvent('A0QN',function HeroSkills_A0QN_Actions)
endfunction

function HeroSkills_A0XR_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    if GetRandomInt(1,100)<=25 then
        call UnitDamageTargetBY((((mF))),(((MF))),(((((DAK_AMOUNT[HF])*2+HeroSkills_A0XR_Lv[id]*$C8+3*GetHeroState2((mF),true))*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c00FF8000")))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",(MF),"chest"))
    endif
endfunction

function HeroSkills_A0XR_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),'A0XR')
    call ModifyUnitCrit(id,5*(lv-HeroSkills_A0XR_Lv[id]))
    set HeroSkills_A0XR_Lv[id]=lv
endfunction

function Hero_EnterWorld_H01W takes nothing returns nothing
    local integer id=le
    set HeroSkills_A0XR_Lv[id]=1
    call ModifyUnitCrit(id,5)
    call UnitAddPAttackTrig((id),function HeroSkills_A0XR_onAttack)
    set HeroSkills_A0XV_Bool[id]=true
endfunction

function HeroSkills_A0XR_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0XR',function HeroSkills_A0XR_Actions)
    call RegisterHeroInitEvent('H01W',function Hero_EnterWorld_H01W)
endfunction

function HeroSkills_A0XS_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local unit t=GetSpellTargetUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel(s,GetSpellAbilityId())
    local real d=lv*350+($F+7*lv)*GetHeroState2(s,true)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Mortar\\MortarMissile.mdl",t,"head"))
    call UnitDamageTargetBY(((s)),((t)),(((((1.+(Unit_C_DMG[(id)]))*d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF8000")))
    call m1v(t,1)
    call zhv(Kc[id],30,.5)
    set s=null
    set t=null
endfunction

function HeroSkills_A0XS_Animation takes nothing returns nothing
    call SetUnitAnimationByIndex((Je[(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:486"))]),4)
endfunction

function HeroSkills_A0XS_Channel takes nothing returns nothing
    call TimerStart(NewTimer((GetUnitUserData((GetTriggerUnit())))),0,false,function HeroSkills_A0XS_Animation)
endfunction

function HeroSkills_A0XS_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0XS',function HeroSkills_A0XS_Channel)
    call RegisterSpellEffectEvent('A0XS',function HeroSkills_A0XS_Actions)
endfunction

function HeroSkills_A0XT_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x
    local real y
    local real tx
    local real ty
    local real a
    local unit u
    local integer i
    local group g
    if Boss_Spell_data2[data]==0 then
        set Boss_Spell_data2[data]=1
        call SetUnitAnimationByIndex((Je[(id)]),3)
        call QueueUnitAnimation((Je[(id)]),"stand")
        call TimerStart(GetExpiredTimer(),.075,false,function HeroSkills_A0XT_Start)
    else
        set x=Boss_Spell_X[data]
        set y=Boss_Spell_Y[data]
        set a=Boss_Spell_Z[data]
        if Boss_Spell_data2[data]==1 then
            set Boss_Spell_data2[data]=2
            call Gjv((Je[(id)]),40,Boss_Spell_Z[data]+bj_PI,.25,"ImpaleTargetDust.mdl")
            set i=8
            loop
                exitwhen i==0
                set i=i-1
                call Ltv(LIv("Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",x,y,$80,GetRandomReal(3,5),a+GetRandomReal(-5,5)*bj_DEGTORAD,0))
                call Ltv(LIv("Abilities\\Spells\\Other\\Volcano\\VolcanoMissile.mdl",x,y,$80,GetRandomReal(2,3),a+GetRandomReal(-5,5)*bj_DEGTORAD,0))
            endloop
            call TimerStart(GetExpiredTimer(),.075,false,function HeroSkills_A0XT_Start)
        else
            set tx=Cos(a)*50
            set ty=Sin(a)*50
            set a=50
            set i=$A
            set g=NewGroup()
            loop
                exitwhen i==0
                set i=i-1
                set x=x+tx
                set y=y+ty
                call GroupEnumUnitsInRange(G,x,y,a+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,a)and not IsUnitInGroup(u,g)then
                        call GroupAddUnit(g,u)
                        if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Rifle\\RifleImpact.mdl",u,"chest"))
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\SteamTank\\SteamTankImpact.mdl",u,"origin"))
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,.5)
                        endif
                    endif
                endloop
                set a=a+30
            endloop
            call RecycleGroup(g)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:487")
            call Boss_Spell_deallocate(data)
            call Unit_Cancel_Counter(802,(id))
            set g=null
        endif
    endif
endfunction

function HeroSkills_A0XT_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:488")
    call UnitRemoveAbilityBY((Je[(id)]),'A0XU')
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0XT',true)
    call Unit_Cancel_Counter(803,(id))
    set HeroSkills_A0XT_Index[id]=0
    set HeroSkills_A0XT_Timer[id]=null
endfunction

function HeroSkills_A0XT_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel(s,GetSpellAbilityId())
    local integer data
    local real d=lv*400+(25+5*lv)*GetHeroState2(s,true)
    local real a=Atan2(GetSpellTargetY()-GetUnitY(s),GetSpellTargetX()-GetUnitX(s))
    if GetSpellAbilityId()=='A0XT' then
        set HeroSkills_A0XT_Index[id]=3
        set HeroSkills_A0XT_Timer[id]=NewTimer(id)
        call SetPlayerAbilityAvailable(GetOwningPlayer(s),'A0XT',false)
        call UnitAddAbilityLevelBY(s,'A0XU',GetUnitAbilityLevel(s,'A0XT'))
        call Unit_App_Counter(804,(id))
    endif
    set HeroSkills_A0XT_Index[id]=HeroSkills_A0XT_Index[id]-1
    if HeroSkills_A0XT_Index[id]==0 then
        call TimerStart(HeroSkills_A0XT_Timer[id],0,false,function HeroSkills_A0XT_Expired)
    else
        call TimerStart(HeroSkills_A0XT_Timer[id],3,false,function HeroSkills_A0XT_Expired)
    endif
    set data=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_V[data]=d
    set Boss_Spell_Z[data]=a
    set Boss_Spell_X[data]=GetUnitX(s)
    set Boss_Spell_Y[data]=GetUnitY(s)
    call Unit_App_Counter(805,(id))
    call TimerStart(NewTimer(data),0,false,function HeroSkills_A0XT_Start)
    set s=null
endfunction

function HeroSkills_A0XT_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0XT',function HeroSkills_A0XT_Actions)
    call RegisterSpellEffectEvent('A0XU',function HeroSkills_A0XT_Actions)
endfunction

function HeroSkills_A0XV_Buff_End takes integer id returns integer
    if(HeroSkills_A0XV_Buff_Timer[id]!=null)then
        call ReleaseTimer(HeroSkills_A0XV_Buff_Timer[id],"[TimerUtils]Error:489")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0XW','B090')
        set HeroSkills_A0XV_Buff_Timer[id]=null
        return HeroSkills_A0XV_Buff_Lv[id]
    endif
    return 0
endfunction

function HeroSkills_A0XV_Buff_Expired takes nothing returns nothing
    call HeroSkills_A0XV_Buff_End((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function HeroSkills_A0XV_Buff takes unit u,integer lv returns nothing
    local integer id=(GetUnitUserData((u)))
    if HeroSkills_A0XV_Buff_Timer[id]==null then
        set HeroSkills_A0XV_Buff_Timer[id]=NewTimer(id)
        call UnitAddAbilityBY(u,'A0XW')
    endif
    set HeroSkills_A0XV_Buff_Lv[id]=lv
    call TimerStart(HeroSkills_A0XV_Buff_Timer[id],6,false,function HeroSkills_A0XV_Buff_Expired)
endfunction

function HeroSkills_A0XV_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    local real y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    local real z=(GetUnitFlyHeight(II[(Boss_Spell_data2[data])]))+GetPointZ(x,y)
    local real t=Boss_Spell_V[data]-1
    local unit u
    if t>0 then
        set Boss_Spell_V[data]=t
    else
        set t=Boss_Spell_V[data]
        set Boss_Spell_V[data]=0
        set Boss_Spell_X[data]=Boss_Spell_X[data]*t
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]*t
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]*t
    endif
    set x=x+Boss_Spell_X[data]
    set y=y+Boss_Spell_Y[data]
    set z=z+Boss_Spell_Z[data]
    call LKv(Boss_Spell_data2[data],x)
    call Llv(Boss_Spell_data2[data],y)
    call SetUnitFlyHeight(II[(Boss_Spell_data2[data])],((z-GetPointZ(x,y))*1.),0)
    if Boss_Spell_V[data]==0 then
        call SetUnitScale(II[(Boss_Spell_data2[data])],((2)*1.),0,0)
        call Ltv(Boss_Spell_data2[data])
        call DestroyEffect(AddSpecialEffect("ImpaleTargetDust_B.mdx",x,y))
        call DestroyEffect(AddSpecialEffect("ImpaleTargetDust_B.mdx",x,y))
        call GroupEnumUnitsInRange(G,x,y,350+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Rifle\\RifleImpact.mdl",u,"chest"))
                    call m1v(u,1.5)
                    call HeroSkills_A0XV_Buff(u,Boss_Spell_data3[data])
                endif
            endif
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:490")
        call Boss_Spell_deallocate(data)
        call Unit_Cancel_Counter(806,(id))
    endif
endfunction

function HeroSkills_A0XV_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel(s,GetSpellAbilityId())
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real z=GetPointZ(x,y)+75
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real tz=GetPointZ(x+tx,y+ty)+300-z
    local real r=SquareRoot(tx*tx+ty*ty+tz*tz)
    local real a=Atan2(ty,tx)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=LIv("Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",x,y,75,0,a,(Asin(tz/ r)*bj_RADTODEG)+$F)
    set Boss_Spell_data3[data]=lv
    set Boss_Spell_X[data]=tx/ r*100.
    set Boss_Spell_Y[data]=ty/ r*100.
    set Boss_Spell_Z[data]=tz/ r*100.
    set Boss_Spell_V[data]=r/ 100
    call Unit_App_Counter(807,(id))
    call TimerStart(NewTimer(data),.03125,true,function HeroSkills_A0XV_Start)
    set s=null
endfunction

function HeroSkills_A0XV_onAttack takes nothing returns nothing
    local integer lv=HeroSkills_A0XV_Buff_End((pF))
    local real d
    if lv>0 then
        set d=950*lv+(20+$F*GetUnitAbilityLevel((mF),'A0XV'))*GetHeroState2((mF),true)
        call UnitDamageTargetBY((((mF))),(((MF))),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call TimerDestroyEffectBY((s__Effect_build(AddSpecialEffectTarget(("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl"),((MF)),("origin")))),3)
    endif
endfunction

function HeroSkills_A0XR_Actions2 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A0XV_Bool[id]then
        set HeroSkills_A0XV_Bool[id]=false
        call UnitAddDamagerTrig(id,function HeroSkills_A0XV_onAttack)
    endif
endfunction

function HeroSkills_A0XV_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0XV',function HeroSkills_A0XR_Actions2)
    call RegisterSpellEffectEvent('A0XV',function HeroSkills_A0XV_Actions)
endfunction

function HeroSkills_A0XX_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local real t=Boss_Spell_Z[data]-1
    local unit u
    if t>0 then
        set Boss_Spell_Z[data]=t
        if t<1 then
            call TimerStart(Boss_Spell_timer[data],.03125*t,true,function HeroSkills_A0XX_Start)
        endif
        set t=1
    else
        set t=Boss_Spell_Z[data]
        set Boss_Spell_X[data]=Boss_Spell_X[data]*t
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]*t
        set Boss_Spell_Z[data]=0
    endif
    set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
    set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
    call LKv(Boss_Spell_data2[data],x)
    call Llv(Boss_Spell_data2[data],y)
    call GroupEnumUnitsInRange(G,x,y,$96+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$96)then
            if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                if not IsUnitInGroup(u,Boss_Spell_group1[data])then
                    call GroupAddUnit(Boss_Spell_group1[data],u)
                    if(IsUnitType((u),UNIT_TYPE_GIANT))or GetUnitMoveSpeed(u)==0 then
                        call GroupAddUnit(Boss_Spell_group2[data],u)
                    endif
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                elseif not IsUnitInGroup(u,Boss_Spell_group2[data])then
                    set Boss_x[0]=GetUnitX(u)-x
                    set Boss_y[0]=GetUnitY(u)-y
                    set Boss_z[0]=(Boss_x[0]*Boss_Spell_X[data]+Boss_y[0]*Boss_Spell_Y[data])/(t*64*$96)
                    set Boss_z[0]=2.-Boss_z[0]*Boss_z[0]*RSignBJ(Boss_z[0])
                    set Boss_x[0]=Boss_x[0]+x+Boss_z[0]*Boss_Spell_X[data]
                    set Boss_y[0]=Boss_y[0]+y+Boss_z[0]*Boss_Spell_Y[data]
                    if IsTerrainWalkable(Boss_x[0],Boss_y[0])then
                        call SetUnitX(u,Boss_x[0])
                        call SetUnitY(u,Boss_y[0])
                    else
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",u,"chest"))
                        call GroupAddUnit(Boss_Spell_group2[data],u)
                    endif
                endif
            endif
        endif
    endloop
    if Boss_Spell_Z[data]==0 then
        call zhv(GetPlayerId(GetOwningPlayer(Boss_Spell_unit1[data])),30,.5)
        call Ltv(Boss_Spell_data2[data])
        set t=Lx/ 3
        call Ltv(LAv("newgroundex.mdx",x,y,2.5))
        call Ltv(LAv("newgroundex.mdx",x+100*Cos(t),y+100*Sin(t),2.5))
        call Ltv(LAv("newgroundex.mdx",x+100*Cos(t*2),y+100*Sin(t*2),2.5))
        call Ltv(LAv("newgroundex.mdx",x+100*Cos(t*3),y+100*Sin(t*3),2.5))
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF8000")))
                    call m1v(u,1.)
                endif
            endif
        endloop
        call RecycleGroup(Boss_Spell_group1[data])
        call RecycleGroup(Boss_Spell_group2[data])
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:491")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_group1[data]=null
        set Boss_Spell_group2[data]=null
    else
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]+1
        if ModuloInteger(Boss_Spell_data3[data],2)==1 then
            call Ltv(LIv("firering.mdx",x,y,$80,1.2-RMinBJ(Boss_Spell_data3[data]*.05,.8),(GetUnitFacing(II[(Boss_Spell_data2[data])]))*bj_DEGTORAD,0))
        endif
    endif
endfunction

function HeroSkills_A0XX_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=HeroSkills_A0XX_Data[id]
    local real x=GetUnitX(GetTriggerUnit())+Boss_Spell_X[data]/ 64.*100.
    local real y=GetUnitY(GetTriggerUnit())+Boss_Spell_Y[data]/ 64.*100.
    local real a=Atan2(Boss_Spell_Y[data],Boss_Spell_X[data])
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    local real d=lv*$7D0+(40+25*lv)*GetHeroState2(GetTriggerUnit(),true)
    if data==null then
        return
    endif
    set Boss_Spell_data1[data]=1
    set Boss_Spell_data2[data]=LIv("rocket.mdx",x,y,$80,.75,a,90)
    set Boss_Spell_data3[data]=0
    set Boss_Spell_V[data]=d
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_group2[data]=NewGroup()
    call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A0XX_Start)
    call SetUnitTimeScale(Boss_Spell_unit1[data],1)
    call zhv(Kc[id],20,.3)
endfunction

function HeroSkills_A0XX_Channel_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]+1
    if Boss_Spell_data2[data]==1 then
        call SetUnitAnimationByIndex(Boss_Spell_unit1[data],4)
        call SetUnitTimeScale(Boss_Spell_unit1[data],2)
        call TimerStart(Boss_Spell_timer[data],.15,true,function HeroSkills_A0XX_Channel_func)
    else
        if Boss_Spell_data2[data]==2 then
            call SetUnitTimeScale(Boss_Spell_unit1[data],0)
            call TimerStart(Boss_Spell_timer[data],.2,true,function HeroSkills_A0XX_Channel_func)
        endif
        call DestroyEffect(AddSpecialEffectTarget("explosiveshot.mdx",Boss_Spell_unit1[data],"weapon left"))
    endif
endfunction

function HeroSkills_A0XX_Channel takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real r=SquareRoot(tx*tx+ty*ty)
    if r<300 then
        call IssueUnitStop_DisplayText(s,"距离太近无法释放")
    else
        set data=Boss_Spell_allocate()
        set Boss_Spell_timer[data]=NewTimer(data)
        set Boss_Spell_unit1[data]=s
        set Boss_Spell_data1[data]=0
        set Boss_Spell_data2[data]=0
        set Boss_Spell_X[data]=tx/ r*64.
        set Boss_Spell_Y[data]=ty/ r*64.
        set Boss_Spell_Z[data]=(r-100.)/ 64.
        set HeroSkills_A0XX_Data[id]=data
        call TimerStart(Boss_Spell_timer[data],0,true,function HeroSkills_A0XX_Channel_func)
    endif
    set s=null
endfunction

function HeroSkills_A0XX_EndCast takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=HeroSkills_A0XX_Data[id]
    if data>0 and Boss_Spell_data1[data]==0 then
        call SetUnitTimeScale(Boss_Spell_unit1[data],1)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:492")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
    endif
    set HeroSkills_A0XX_Data[id]=0
endfunction

function HeroSkills_A0XX_Init takes nothing returns nothing
    call RegisterSpellChannelEvent('A0XX',function HeroSkills_A0XX_Channel)
    call RegisterSpellEffectEvent('A0XX',function HeroSkills_A0XX_Actions)
    call RegisterSpellEndCastEvent('A0XX',function HeroSkills_A0XX_EndCast)
endfunction

function HeroSkills_A0XY_Start_003 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local unit u
    local boolean b=false
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    set x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]
    set y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]
    call LKv(Boss_Spell_data2[data],x)
    call Llv(Boss_Spell_data2[data],y)
    call GroupEnumUnitsInRange(G,x,y,90+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,90)then
            if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data]*.6)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                if b==false and UnitAlive(u)then
                    set b=true
                endif
            endif
        endif
    endloop
    if Boss_Spell_data3[data]==0 or b then
        call Ltv(Boss_Spell_data2[data])
        call Ltv(LIv("orboffire.mdl",x,y,0,2,Atan2(Boss_Spell_Y[data],Boss_Spell_X[data]),90))
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF8000")))
                    call UnitAppBuff((GetUnitUserData((u))),'A03R',$D006B)
                endif
            endif
        endloop
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:493")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function HeroSkills_A0XY_Start_002 takes integer id,real x,real y,real a,real d returns nothing
    local integer data=Boss_Spell_allocate()
    local real tx=Cos(a)*40
    local real ty=Sin(a)*40
    local integer fx=LIv("Abilities\\Weapons\\LavaSpawnMissile\\LavaSpawnMissile.mdl",x+tx,y+ty,120,.75,a,90)
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=fx
    set Boss_Spell_data3[data]=30
    set Boss_Spell_X[data]=tx
    set Boss_Spell_Y[data]=ty
    set Boss_Spell_V[data]=d
    call TimerStart(NewTimer(data),.02,true,function HeroSkills_A0XY_Start_003)
    call Ltv(LIv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x+tx*1.5,y+ty*1.5,100+GetRandomReal(0,30),.35,a,0))
endfunction

function HeroSkills_A0XY_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x
    local real y
    local real a
    local real tx
    local real ty
    if UnitAlive((Je[(id)]))then
        if Boss_Spell_data3[data]==0 then
            set Boss_Spell_data3[data]=1
            call SetUnitAnimation((Je[(id)]),"Spell Channel One")
            call SetUnitTimeScale((Je[(id)]),.533/ 2.*Boss_Spell_data2[data])
            call TimerStart(GetExpiredTimer(),2./ Boss_Spell_data2[data],true,function HeroSkills_A0XY_Start)
            return
        endif
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set a=GetUnitFacing((Je[(id)]))*bj_DEGTORAD
        set tx=Cos(a+bj_PI/ 2)
        set ty=Sin(a+bj_PI/ 2)
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        set Boss_Spell_bool[data]=not Boss_Spell_bool[data]
        if Boss_Spell_bool[data]then
            set tx=x+tx*$A
            set ty=y+ty*$A
            set a=a+GetRandomReal(0,8*bj_DEGTORAD)
        else
            set tx=x-tx*$D
            set ty=y-ty*$D
            set a=a-GetRandomReal(0,8*bj_DEGTORAD)
        endif
        call HeroSkills_A0XY_Start_002(id,tx,ty,a,Boss_Spell_V[data])
    else
        set Boss_Spell_data2[data]=0
    endif
    if Boss_Spell_data2[data]==0 then
        if UnitAlive((Je[(id)]))then
            call SetUnitAnimation((Je[(id)]),"stand")
        endif
        call SetUnitTimeScale((Je[(id)]),1)
        call PauseUnit((Je[(id)]),false)
        call Unit_Cancel_Counter(808,id)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:494")
        call Boss_Spell_deallocate(data)
    endif
endfunction

function HeroSkills_A0XY_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel(s,GetSpellAbilityId())
    local integer data=Boss_Spell_allocate()
    local real d=lv*$3E8+($A+5*lv)*GetHeroState2(s,true)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=16
    set Boss_Spell_data3[data]=0
    set Boss_Spell_bool[data]=false
    set Boss_Spell_V[data]=d
    call Unit_App_Counter(809,(id))
    call PauseUnit(s,true)
    call TimerStart(NewTimer(data),0,true,function HeroSkills_A0XY_Start)
    set s=null
endfunction

function HeroSkills_A0XY_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0XY',function HeroSkills_A0XY_Actions)
endfunction

function HeroSkills_A0XZ_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local integer fx=GetHandleId(Boss_Spell_eff[data])
    local integer i
    local real x
    local real y
    local real z
    local real a
    local real d
    local unit u
    if UnitAlive((Je[(id)]))then
        if Boss_Spell_data3[data]==0 then
            set Boss_Spell_data3[data]=1
            call SetUnitAnimation((Je[(id)]),"Spell four")
            call SetUnitTimeScale((Je[(id)]),2)
            call TimerStart(GetExpiredTimer(),.2,false,function HeroSkills_A0XZ_Start)
            if GetLocalPlayer()==P[(Kc[id])]then
                call CameraSetTargetNoiseEx(100,300,true)
                call CameraSetSourceNoiseEx(100,300,true)
            endif
        elseif Boss_Spell_data3[data]==1 then
            set Boss_Spell_data3[data]=2
            set Boss_Spell_data2[data]=$C
            call SetUnitTimeScale((Je[(id)]),.9/ 1.2)
            call TimerStart(GetExpiredTimer(),1.2/ $C,true,function HeroSkills_A0XZ_Start)
        elseif Boss_Spell_data3[data]==2 then
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
            if Boss_Spell_data2[data]==0 then
                set Boss_Spell_data3[data]=3
                call SetUnitTimeScale((Je[(id)]),1)
                call TimerStart(GetExpiredTimer(),.6,false,function HeroSkills_A0XZ_Start)
            endif
            set x=GetUnitX((Je[(id)]))
            set y=GetUnitY((Je[(id)]))
            set z=(6-RAbsBJ(Boss_Spell_data2[data]-5.5))*50
            set i=8
            set a=(GetUnitFacing((Je[(id)]))+($C-Boss_Spell_data2[data])*90+GetRandomReal(-40,40))*bj_DEGTORAD
            loop
                exitwhen i==0
                set i=i-1
                call Ltv(LIv("Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",x+Cos(a)*50,y+Sin(a)*50,z+$80,GetRandomReal(2.5,3),a+GetRandomReal(-5,5)*bj_DEGTORAD,0))
                call Ltv(LIv("Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",x-Cos(a)*50,y-Sin(a)*50,z+$80,GetRandomReal(2.5,3),a+bj_PI+GetRandomReal(-5,5)*bj_DEGTORAD,0))
            endloop
            set d=Boss_Spell_V[data]*.055
            call GroupEnumUnitsInRange(G,x,y,600+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        if not IsUnitInGroup(u,Boss_Spell_group1[data])then
                            call GroupAddUnit(Boss_Spell_group1[data],u)
                            call s__Effect_connect((fx),(s__Effect_build(AddSpecialEffectTarget((("snipe target.mdx")),((u)),(("chest"))))))
                        endif
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Rifle\\RifleImpact.mdl",u,"chest"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        if Boss_Spell_data3[data]==3 then
                            call m1v(u,3)
                        else
                            call m1v(u,1)
                        endif
                    endif
                endif
            endloop
        elseif Boss_Spell_data3[data]==3 then
            set Boss_Spell_data3[data]=4
            call SetUnitAnimation((Je[(id)]),"Spell Three")
            call SetUnitTimeScale((Je[(id)]),2)
            call TimerStart(GetExpiredTimer(),.8,false,function HeroSkills_A0XZ_Start)
            if GetLocalPlayer()==P[(Kc[id])]then
                call CameraSetTargetNoiseEx(0,0,true)
                call CameraSetSourceNoiseEx(0,0,true)
            endif
        else
            if FirstOfGroup(Boss_Spell_group1[data])!=null then
                call zhv(Kc[id],50,.5)
            endif
            set Boss_Spell_bool[data]=true
            call DestroyEffectBY(GetHandleId(Boss_Spell_eff[data]))
            set Boss_Spell_eff[data]=null
            loop
                set u=FirstOfGroup(Boss_Spell_group1[data])
                exitwhen u==null
                call GroupRemoveUnit(Boss_Spell_group1[data],u)
                call DestroyEffect(AddSpecialEffectTarget("rocket.mdx",u,"chest"))
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\SteamTank\\SteamTankImpact.mdl",u,"origin"))
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF8000")))
            endloop
        endif
    else
        set Boss_Spell_bool[data]=true
    endif
    if Boss_Spell_bool[data]then
        call RecycleGroup(Boss_Spell_group1[data])
        if Boss_Spell_eff[data]!=null then
            call DestroyEffectBY(GetHandleId(Boss_Spell_eff[data]))
            set Boss_Spell_eff[data]=null
        endif
        if UnitAlive((Je[(id)]))then
            call SetUnitAnimation((Je[(id)]),"stand")
        else
            if GetLocalPlayer()==P[(Kc[id])]then
                call CameraSetTargetNoiseEx(0,0,true)
                call CameraSetSourceNoiseEx(0,0,true)
            endif
        endif
        call SetUnitTimeScale((Je[(id)]),1)
        call PauseUnit((Je[(id)]),false)
        call SetUnitInvulnerable((Je[(id)]),false)
        call Unit_Cancel_Counter(810,id)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:495")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_group1[data]=null
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function HeroSkills_A0XZ_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local real d=$61A8+600*GetHeroState2(s,true)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data3[data]=0
    set Boss_Spell_bool[data]=false
    set Boss_Spell_V[data]=d
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_eff[data]=ConvertVersion(CreateEffectFor())
    call Unit_App_Counter(811,(id))
    call PauseUnit(s,true)
    call SetUnitInvulnerable(s,true)
    call TimerStart(NewTimer(data),0,false,function HeroSkills_A0XZ_Start)
    set s=null
endfunction

function HeroSkills_A0XZ_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0XZ',function HeroSkills_A0XZ_Actions)
endfunction

function Hero_H01W_Init takes nothing returns nothing
    call HeroSkills_A0XR_Init()
    call HeroSkills_A0XS_Init()
    call HeroSkills_A0XT_Init()
    call HeroSkills_A0XV_Init()
    call HeroSkills_A0XX_Init()
    call RegisterSpellEffectEvent('A0XY',function HeroSkills_A0XY_Actions)
    call RegisterSpellEffectEvent('A0XZ',function HeroSkills_A0XZ_Actions)
endfunction

function s__HuanYing_clear takes integer this returns nothing
    local integer i=s__HuanYing_end[this]
    local integer t
    loop
        exitwhen i==0
        set i=i-1
        set t=LoadInteger(BYHT,s__HuanYing_vessel[this],i)
        call LTv(t)
    endloop
    call FlushChildHashtable(BYHT,s__HuanYing_vessel[this])
    call FlushChildHashtable(BYHT2,s__HuanYing_vessel[this])
    set s__HuanYing_end[this]=0
endfunction

function s__HuanYing_Destroy takes integer this returns nothing
    if s__HuanYing_use[this]then
        set s__HuanYing_use[this]=false
        call s__HuanYing_clear(this)
        call free(s__HuanYing_vessel[this])
        call ReleaseTimer(s__HuanYing_tm[this],"[TimerUtils]Error:496")
    endif
endfunction

function s__HuanYing_SetPoint takes integer this returns nothing
    set s__HuanYing_px[this]=GetUnitX((Je[(this)]))
    set s__HuanYing_py[this]=GetUnitY((Je[(this)]))
    set s__HuanYing_pz[this]=GetUnitFlyHeight((Je[(this)]))
    set s__HuanYing_pa[this]=GetUnitFacing((Je[(this)]))
endfunction

function s__HuanYing_SetPointB takes integer this,real x,real y,real z,real a returns nothing
    set s__HuanYing_px[this]=x
    set s__HuanYing_py[this]=y
    set s__HuanYing_pz[this]=z
    set s__HuanYing_pa[this]=a
endfunction

function s__HuanYing_Refresh takes integer this returns nothing
    local integer i=0
    local integer t
    local real x=s__HuanYing_px[this]
    local real y=s__HuanYing_py[this]
    local real z=s__HuanYing_pz[this]
    local real a=s__HuanYing_pa[this]
    local real tx
    local real ty
    local real tz
    local real ta
    set s__HuanYing_count[this]=s__HuanYing_count[this]+1
    loop
        exitwhen i==s__HuanYing_end[this]
        set t=LoadInteger(BYHT,s__HuanYing_vessel[this],i)
        set tx=GetUnitX(II[t])
        set ty=GetUnitY(II[t])
        set tz=GetUnitFlyHeight(II[t])
        set ta=GetUnitFacing(II[t])
        call SetUnitX(II[t],x)
        call SetUnitY(II[t],y)
        call SetUnitFlyHeight(II[t],z,0)
        call SetUnitFacing(II[t],a)
        if i<s__HuanYing_count[this]and HaveSavedInteger(BYHT,s__HuanYing_vessel[this],-(s__HuanYing_count[this]-i))then
            call SetUnitAnimationByIndex(II[t],LoadInteger(BYHT,s__HuanYing_vessel[this],-(s__HuanYing_count[this]-i)))
            call SetUnitTimeScale(II[t],LoadReal(BYHT,s__HuanYing_vessel[this],-(s__HuanYing_count[this]-i)))
            if i+1==s__HuanYing_end[this]then
                call RemoveSavedInteger(BYHT,s__HuanYing_vessel[this],-(s__HuanYing_count[this]-i))
                call RemoveSavedReal(BYHT,s__HuanYing_vessel[this],-(s__HuanYing_count[this]-i))
            endif
        endif
        set i=i+1
        set x=tx
        set y=ty
        set z=tz
        set a=ta
    endloop
endfunction

function s__HuanYing_loop_c takes nothing returns nothing
    local integer this=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call s__HuanYing_Refresh(this)
    call s__HuanYing_SetPoint(this)
endfunction

function s__HuanYing_SetAnimation takes integer this,integer a,real s returns nothing
    call SaveInteger(BYHT,s__HuanYing_vessel[this],-(s__HuanYing_count[this]+1),a)
    call SaveReal(BYHT,s__HuanYing_vessel[this],-(s__HuanYing_count[this]+1),s)
endfunction

function s__HuanYing_New takes integer this,integer uid,integer n,integer a,real s returns nothing
    local integer i
    local integer t
    if s__HuanYing_use[this]then
        call s__HuanYing_clear(this)
    else
        set s__HuanYing_use[this]=true
        set s__HuanYing_tm[this]=NewTimer(this)
        set s__HuanYing_vessel[this]=malloc()
    endif
    set s__HuanYing_id[this]=uid
    set s__HuanYing_end[this]=n
    set s__HuanYing_count[this]=0
    call s__HuanYing_SetAnimation(this,a,1)
    call s__HuanYing_SetPoint(this)
    call TimerStart(s__HuanYing_tm[this],s,true,function s__HuanYing_loop_c)
    set i=n
    loop
        exitwhen i==0
        set i=i-1
        set t=LVv(s__HuanYing_id[this],s__HuanYing_px[this],s__HuanYing_py[this],s__HuanYing_pa[this])
        call SetUnitFlyHeight(II[(t)],((s__HuanYing_pz[this])*1.),0)
        call SetUnitOwner(II[(t)],(P[Kc[this]]),false)
        call Lfv(t,$FF,$FF,$FF,$96-($96/ s__HuanYing_end[this])*i)
        call SaveInteger(BYHT,s__HuanYing_vessel[this],i,t)
    endloop
endfunction

function HeroSkills_A100_Expired takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call UnitCureTaret((Je[(id)]),(Je[(id)]),HeroSkills_A100_Buff_Cure[id])
    set HeroSkills_A100_Buff_N[id]=HeroSkills_A100_Buff_N[id]-1
    if HeroSkills_A100_Buff_N[id]<=0 then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A034','B092')
        call ModifyUnitAttack(id,-HeroSkills_A100_Buff_Atk[id])
        call ModifyUnitMagicDamage(id,-$F)
        call Unit_Cancel_Counter(812,id)
        call ReleaseTimer(HeroSkills_A100_Buff_Timer[id],"[TimerUtils]Error:497")
        set HeroSkills_A100_Buff_Atk[id]=0
        set HeroSkills_A100_Buff_Timer[id]=null
    endif
endfunction

function HeroSkills_A100_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel(s,GetSpellAbilityId())
    local integer local_agi=R2I((1+.1*lv)*GetHeroStateByMax(s))
    if HeroSkills_A100_Buff_Timer[id]==null then
        set HeroSkills_A100_Buff_Timer[id]=NewTimer(id)
        call UnitAddAbilityLevelBY(s,'A034',lv)
        call ModifyUnitMagicDamage(id,$F)
        call Unit_App_Counter(813,(id))
    else
        call SetUnitAbilityLevel(s,'A034',lv)
    endif
    set HeroSkills_A100_Buff_N[id]=$A
    set HeroSkills_A100_Buff_Cure[id]=(.2+.03*lv)*GetHeroState2(s,true)
    if local_agi!=HeroSkills_A100_Buff_Atk[id]then
        call ModifyUnitAttack(id,local_agi-HeroSkills_A100_Buff_Atk[id])
        set HeroSkills_A100_Buff_Atk[id]=local_agi
    endif
    call TimerStart(HeroSkills_A100_Buff_Timer[id],1.5,true,function HeroSkills_A100_Expired)
    set s=null
endfunction

function HeroSkills_A100_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A100',function HeroSkills_A100_Actions)
endfunction

function HeroSkills_A101_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data3[data]
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]+1
    if Boss_Spell_data2[data]==1 then
        call SetUnitAnimationByIndex(Boss_Spell_unit1[data],3)
        call TimerStart(Boss_Spell_timer[data],.1,false,function HeroSkills_A101_Start)
    elseif Boss_Spell_data2[data]==2 then
        set Boss_Spell_data1[data]=Lnv(GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),Deg2Rad(GetUnitFacing(Boss_Spell_unit1[data])))
        call LMv(Boss_Spell_data1[data],"basicstrike.mdx")
        call SetUnitScale(II[(Boss_Spell_data1[data])],((2)*1.),0,0)
        call TimerStart(Boss_Spell_timer[data],.05,false,function HeroSkills_A101_Start)
    else
        call zhv(Kc[id],20,.3)
        call DestroyEffect(AddSpecialEffectTarget("bloodex-special.mdl",Boss_Spell_unit2[data],"origin"))
        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((Boss_Spell_unit2[data])),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call PauseUnit(Boss_Spell_unit1[data],false)
        call Unit_Cancel_Counter(814,id)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:498")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function HeroSkills_A101_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    local real d=lv*$FA+(2+1.8*lv)*(GetHeroState1(GetTriggerUnit(),true)+GetHeroState2(GetTriggerUnit(),true)+GetHeroAttack(id))
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_data1[data]=0
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=id
    set Boss_Spell_V[data]=d
    call PauseUnit(s,true)
    call Unit_App_Counter(815,id)
    call TimerStart(Boss_Spell_timer[data],0,true,function HeroSkills_A101_Start)
    set s=null
endfunction

function HeroSkills_A101_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A101',function HeroSkills_A101_Actions)
endfunction

function HeroSkills_A102_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2=Boss_Spell_data3[data]
    local integer t
    local real x
    local real y
    local unit u
    if UnitAlive(Boss_Spell_unit1[data])then
        set Boss_Spell_data1[data2]=Boss_Spell_data1[data2]+1
        set Boss_x[0]=GetUnitX(Boss_Spell_unit1[data])
        set Boss_y[0]=GetUnitY(Boss_Spell_unit1[data])
        set Boss_z[0]=GetUnitFlyHeight(Boss_Spell_unit1[data])
        if((Boss_Spell_data1[data2]<=Boss_Spell_data2[data2]))and(Boss_Spell_data1[data2]>$B)then
            set Boss_x[1]=Boss_x[0]+Boss_Spell_X[data]*Boss_Spell_Z[data2]
            set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[data]*Boss_Spell_Z[data2]
            set Boss_z[1]=I2R(Boss_Spell_data1[data2]-$B)/ I2R(Boss_Spell_data2[data2]-$B)
            set Boss_z[1]=Boss_Spell_Z[data]*.25*(1-4*Pow(Boss_z[1]-.5,2))
            call SetUnitFlyHeight(Boss_Spell_unit1[data],Boss_z[1],0)
            if IsTerrainWalkable(Boss_x[1],Boss_y[1])then
                call SetUnitX(Boss_Spell_unit1[data],Boss_x[1])
                call SetUnitY(Boss_Spell_unit1[data],Boss_y[1])
            else
                set Boss_Spell_Z[data2]=0
            endif
        endif
        if Boss_Spell_data1[data2]==Boss_Spell_data2[data2]then
            set Boss_Spell_bool[data]=true
            call zhv(Kc[Boss_Spell_data1[data]],100,.5)
            set x=GetUnitX(Boss_Spell_unit1[data])+Boss_Spell_X[data]*100
            set y=GetUnitY(Boss_Spell_unit1[data])+Boss_Spell_Y[data]*100
            call Ltv(LAv("cleave_hong.mdx",x,y,1.5))
            call GroupEnumUnitsInRange(G,x,y,300+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,300)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call DestroyEffect(AddSpecialEffectTarget("bloodex-special.mdl",u,"chest"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call m1v(u,1)
                    endif
                endif
            endloop
        endif
    else
        call SetUnitFlyHeight(Boss_Spell_unit1[data],0,0)
        set Boss_Spell_bool[data]=true
    endif
    if Boss_Spell_bool[data]then
        call s__HuanYing_Destroy((Boss_Spell_data1[data]))
        set MB[Boss_Spell_data1[data]]=false
        call PauseUnit(Boss_Spell_unit1[data],false)
        call DeUnitDodge(Boss_Spell_data1[data],Boss_Spell_data3[data2])
        call Unit_Cancel_Counter(816,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call Boss_Spell_deallocate(data2)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:499")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function HeroSkills_A102__Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],4)
    call s__HuanYing_New(Boss_Spell_data1[data],'e03K',5,4,.031)
    call TimerStart(Boss_Spell_timer[data],.03,true,function HeroSkills_A102_Start)
endfunction

function HeroSkills_A102_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local integer data2=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real r=SquareRoot(tx*tx+ty*ty)
    local real a=GetUnitFacing(s)
    local real d=$578*lv+GetHeroAttack(id)+(20+3*lv)*(GetHeroState1(GetTriggerUnit(),true)*3+GetHeroState2(GetTriggerUnit(),true))
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_bool[data]=false
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data3[data]=data2
    set Boss_Spell_data1[data2]=0
    set Boss_Spell_data2[data2]=40
    set Boss_Spell_data3[data2]=ModifyUnitDodge(id,90)
    set Boss_Spell_V[data]=d
    if r<=100 then
        set Boss_Spell_X[data]=0
        set Boss_Spell_Y[data]=0
        set Boss_Spell_Z[data]=0
        set Boss_Spell_Z[data2]=0
    else
        set Boss_Spell_X[data]=tx/ r
        set Boss_Spell_Y[data]=ty/ r
        set Boss_Spell_Z[data]=r-100
        set Boss_Spell_Z[data2]=(Boss_Spell_Z[data])/(40.-$B)
    endif
    if UnitAddAbility(s,'Amrf')then
        call UnitRemoveAbility(s,'Amrf')
    endif
    call GFv_v(s)
    set MB[id]=true
    call PauseUnit(s,true)
    call Unit_App_Counter(817,id)
    call TimerStart(Boss_Spell_timer[data],0,false,function HeroSkills_A102__Channel)
    set s=null
endfunction

function HeroSkills_A102_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A102',function HeroSkills_A102_Actions)
endfunction

function HeroSkills_A103_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i
    local integer t=Boss_Spell_data1[data]
    local real x
    local real y
    local unit u
    if UnitAlive(Boss_Spell_unit1[data])then
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]+1
        set Boss_x[0]=GetUnitX(Boss_Spell_unit1[data])
        set Boss_y[0]=GetUnitY(Boss_Spell_unit1[data])
        set Boss_z[0]=GetUnitFlyHeight(Boss_Spell_unit1[data])
        if((Boss_Spell_data2[data]<=Boss_Spell_data3[data]))then
            set Boss_z[1]=Boss_Spell_Z[data]/ Boss_Spell_data3[data]
            set Boss_x[1]=Boss_x[0]+Boss_Spell_X[data]*Boss_z[1]
            set Boss_y[1]=Boss_y[0]+Boss_Spell_Y[data]*Boss_z[1]
            if IsTerrainWalkable(Boss_x[1],Boss_y[1])then
                call SetUnitX(Boss_Spell_unit1[data],Boss_x[1])
                call SetUnitY(Boss_Spell_unit1[data],Boss_y[1])
            else
                set Boss_Spell_data2[data]=Boss_Spell_data3[data]
            endif
            call s__HuanYing_Refresh(t)
            call s__HuanYing_SetPointB(t,Boss_x[0],Boss_y[0],Boss_z[0],GetUnitFacing(Boss_Spell_unit1[data]))
            set x=GetUnitX(Boss_Spell_unit1[data])
            set y=GetUnitY(Boss_Spell_unit1[data])
            call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$C8)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])and not IsUnitInGroup(u,Boss_Spell_group1[data])then
                        call GroupAddUnit(Boss_Spell_group1[data],u)
                        call m1v(u,1)
                    endif
                endif
            endloop
            if Boss_Spell_data2[data]==Boss_Spell_data3[data]then
                call zhv(Kc[Boss_Spell_data1[data]],100,.5)
                call SetUnitInvulnerable(Boss_Spell_unit1[data],true)
                call SetUnitAnimationByIndex(Boss_Spell_unit1[data],2)
                call s__HuanYing_SetAnimation(t,2,2)
            endif
        else
            set i=Boss_Spell_data2[data]-Boss_Spell_data3[data]
            if i<=$F then
                set Boss_y[1]=I2R(i)/ $F
                set Boss_z[1]=50*(1-4*Pow(Boss_y[1]-.5,2))
                set Boss_x[0]=GetUnitX(Boss_Spell_unit1[data])+Boss_Spell_X[data]*Boss_z[1]
                set Boss_y[0]=GetUnitY(Boss_Spell_unit1[data])+Boss_Spell_Y[data]*Boss_z[1]
                set Boss_z[0]=GetUnitFlyHeight(Boss_Spell_unit1[data])
                call s__HuanYing_SetPointB(t,Boss_x[0],Boss_y[0],Boss_z[0],GetUnitFacing(Boss_Spell_unit1[data]))
                call s__HuanYing_Refresh(t)
            else
                set Boss_Spell_bool[data]=true
                set x=GetUnitX(Boss_Spell_unit1[data])
                set y=GetUnitY(Boss_Spell_unit1[data])
                loop
                    set u=FirstOfGroup(Boss_Spell_group1[data])
                    exitwhen u==null
                    call GroupRemoveUnit(Boss_Spell_group1[data],u)
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call DestroyEffect(AddSpecialEffectTarget("bloodex-special.mdl",u,"chest"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endloop
            endif
        endif
    else
        set Boss_Spell_bool[data]=true
    endif
    if Boss_Spell_bool[data]then
        call s__HuanYing_Destroy(t)
        set MB[Boss_Spell_data1[data]]=false
        call PauseUnit(Boss_Spell_unit1[data],false)
        if Boss_Spell_data2[data]>=Boss_Spell_data3[data]then
            call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        endif
        call SetUnitTimeScale(Boss_Spell_unit1[data],1)
        call DestroyEffect(Boss_Spell_eff[data])
        call RecycleGroup(Boss_Spell_group1[data])
        call DeUnitDodge(Boss_Spell_data1[data],GetHandleId(Boss_Spell_unit2[data]))
        call Unit_Cancel_Counter(818,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:500")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
        set Boss_Spell_eff[data]=null
        set Boss_Spell_group1[data]=null
    endif
endfunction

function HeroSkills_A103_Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t=Boss_Spell_data1[data]
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],1)
    call SetUnitTimeScale(Boss_Spell_unit1[data],2)
    call s__HuanYing_New(t,'e03K',$A,7,10.03125)
    call s__HuanYing_SetAnimation(t,7,2)
    call TimerStart(Boss_Spell_timer[data],.02,true,function HeroSkills_A103_Start)
endfunction

function HeroSkills_A103_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real r=SquareRoot(tx*tx+ty*ty)
    local real a=Deg2Rad(GetUnitFacing(s))
    local real d=$7D0*lv+(25+6*lv)*(GetHeroState1(s,true)*4+GetHeroState2(s,true))+GetHeroAttack(id)
    if r==0 then
        set tx=Cos(a)
        set ty=Sin(a)
    else
        set tx=tx/ r
        set ty=ty/ r
    endif
    if r<512 then
        set r=512
    endif
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_bool[data]=false
    set Boss_Spell_eff[data]=AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",s,"weapon")
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_unit2[data]=ConvertVersion(ModifyUnitDodge(id,90))
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=R2I(r/ 64+.5)
    set Boss_Spell_V[data]=d
    set Boss_Spell_X[data]=tx
    set Boss_Spell_Y[data]=ty
    set Boss_Spell_Z[data]=r
    call GFv_v(s)
    set MB[id]=true
    call PauseUnit(s,true)
    call Unit_App_Counter(819,id)
    call TimerStart(Boss_Spell_timer[data],0,false,function HeroSkills_A103_Channel)
    set s=null
endfunction

function HeroSkills_A103_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A103',function HeroSkills_A103_Actions)
endfunction

function HeroSkills_A104_Buff_Expired takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:501")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0Y5','B09B')
    call DeUnitAdef(id,HeroSkills_A104_Buff_Adef[id])
    call Unit_Cancel_Counter(820,id)
    set HeroSkills_A104_Buff_Timer[id]=null
endfunction

function HeroSkills_A104_Buff takes unit u returns nothing
    local integer id
    if UnitAlive(u)then
        set id=(GetUnitUserData((u)))
        if HeroSkills_A104_Buff_Timer[id]==null then
            set HeroSkills_A104_Buff_Timer[id]=NewTimer(id)
            set HeroSkills_A104_Buff_Adef[id]=ModifyUnitAdef(id,-$F)
            call UnitAddAbilityBY((Je[(id)]),'A0Y5')
            call Unit_App_Counter(821,id)
        endif
        call TimerStart(HeroSkills_A104_Buff_Timer[id],5,false,function HeroSkills_A104_Buff_Expired)
    endif
endfunction

function HeroSkills_A104_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local real d
    local unit u
    if Boss_Spell_data2[data]==0 then
        if UnitAlive(Boss_Spell_unit1[data])then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
            if Boss_Spell_data3[data]==0 then
                set MB[Boss_Spell_data1[data]]=false
                call PauseUnit(Boss_Spell_unit1[data],false)
                call Unit_Cancel_Counter(822,Boss_Spell_data1[data])
                set x=GetUnitX(Boss_Spell_unit1[data])+2.5*Boss_Spell_X[data]
                set y=GetUnitY(Boss_Spell_unit1[data])+2.5*Boss_Spell_Y[data]
                set Boss_Spell_group1[data]=NewGroup()
                set Boss_Spell_data1[data]=Lnv(x,y,Atan2(Boss_Spell_Y[data],Boss_Spell_X[data]))
                call LMv(Boss_Spell_data1[data],"white claw.mdl")
                call SetUnitScale(II[(Boss_Spell_data1[data])],((1.)*1.),0,0)
                call Lfv(Boss_Spell_data1[data],$FF,0,0,$FF)
                set Boss_Spell_data2[data]=1
                set Boss_Spell_data3[data]=30
                set Boss_Spell_Z[data]=100
            endif
        else
            set MB[Boss_Spell_data1[data]]=false
            call PauseUnit(Boss_Spell_unit1[data],false)
            call Unit_Cancel_Counter(823,Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:502")
            set Boss_Spell_timer[data]=null
            set Boss_Spell_unit1[data]=null
        endif
    elseif Boss_Spell_data2[data]==1 then
        set x=(GetUnitX(II[(Boss_Spell_data1[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data1[data])]))
        if Boss_Spell_Z[data]<350 then
            set Boss_Spell_Z[data]=Boss_Spell_Z[data]+$A
            call SetUnitScale(II[(Boss_Spell_data1[data])],((Boss_Spell_Z[data]*.01)*1.),0,0)
        else
            set Boss_Spell_Z[data]=350
        endif
        if ModuloInteger(Boss_Spell_data3[data],2)==0 then
            call Ltv(LAv("bloodex-special.mdl",x,y,Boss_Spell_Z[data]*.0066))
        endif
        set x=x+Boss_Spell_X[data]
        set y=y+Boss_Spell_Y[data]
        set d=Boss_Spell_V[data]
        call LKv(Boss_Spell_data1[data],x)
        call Llv(Boss_Spell_data1[data],y)
        call GroupEnumUnitsInRange(G,x,y,Boss_Spell_Z[data]+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,Boss_Spell_Z[data])then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])and not IsUnitInGroup(u,Boss_Spell_group1[data])then
                    call GroupAddUnit(Boss_Spell_group1[data],u)
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call HeroSkills_A104_Buff(u)
                endif
            endif
        endloop
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if Boss_Spell_data3[data]==0 then
            call Ltv(Boss_Spell_data1[data])
            call RecycleGroup(Boss_Spell_group1[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:503")
            set Boss_Spell_timer[data]=null
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_group1[data]=null
        endif
    endif
endfunction

function HeroSkills_A104_Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t=Boss_Spell_data1[data]
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],3)
    call TimerStart(Boss_Spell_timer[data],.02,true,function HeroSkills_A104_Start)
endfunction

function HeroSkills_A104_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(s,GetSpellAbilityId())
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real r=SquareRoot(tx*tx+ty*ty)
    local real a
    local real d=$9C4*lv+(3+1.7*lv)*(GetHeroState1(s,true)+GetHeroState2(s,true)+GetHeroAttack(id))
    if r==0 then
        set a=Deg2Rad(GetUnitFacing(s))
        set tx=Cos(a)
        set ty=Sin(a)
    else
        set tx=tx/ r
        set ty=ty/ r
    endif
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=$A
    set Boss_Spell_V[data]=d
    set Boss_Spell_X[data]=tx*40
    set Boss_Spell_Y[data]=ty*40
    call GFv_v(s)
    set MB[id]=true
    call PauseUnit(s,true)
    call Unit_App_Counter(824,id)
    call TimerStart(Boss_Spell_timer[data],0,false,function HeroSkills_A104_Channel)
    set s=null
endfunction

function HeroSkills_A104_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A104',function HeroSkills_A104_Actions)
endfunction

function HeroSkills_A105_Buff_Expired takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ZI','B09H')
    call DeUnitAdef(id,HeroSkills_A105_Buff_Adef[id])
    call Unit_Cancel_Counter(825,id)
    set HeroSkills_A105_Buff_Timer[id]=null
endfunction

function HeroSkills_A105_Buff takes integer id returns nothing
    if HeroSkills_A105_Buff_Timer[id]==null then
        set HeroSkills_A105_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A105_Buff_Adef[id]=ModifyUnitAdef(id,40)
        call UnitAddAbilityBY((Je[(id)]),'A0ZI')
        call Unit_App_Counter(826,(id))
    endif
    call TimerStart(HeroSkills_A105_Buff_Timer[id],3,false,function HeroSkills_A105_Buff_Expired)
endfunction

function HeroSkills_A105_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel(s,GetSpellAbilityId())
    local real d=5000*lv+(30+$F*lv)*(GetHeroState1(s,true)*2+GetHeroState2(s,true))+GetHeroAttack(id)*5
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local unit u
    call HeroSkills_A105_Buff(id)
    call zhv(Kc[id],100,.5)
    call Ltv(LAv("cleave_hong.mdx",x,y,2.5))
    call GroupEnumUnitsInRange(G,x,y,400+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,450)then
            if IsUnitAliveAndEnemyNotAvul(u,s)then
                call DestroyEffect(AddSpecialEffectTarget("bloodex-special.mdl",u,"chest"))
                call UnitDamageTargetBY(((s)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,1)
            endif
        endif
    endloop
    set s=null
endfunction

function HeroSkills_A105_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A105',function HeroSkills_A105_Actions)
endfunction

function HeroSkills_A106_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data3[data]
    local real x
    local real y
    local real r
    local unit u
    if Boss_Spell_data1[data]<2 and not UnitAlive(Boss_Spell_unit1[data])then
        set Boss_Spell_data1[data]=4
    endif
    if Boss_Spell_data1[data]==0 then
        set Boss_Spell_data1[data]=1
        call SetUnitAnimationByIndex(Boss_Spell_unit1[data],6)
        call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
        call SetUnitX(Boss_Spell_unit1[data],Boss_Spell_X[data])
        call SetUnitY(Boss_Spell_unit1[data],Boss_Spell_Y[data])
        call TimerStart(Boss_Spell_timer[data],.5,false,function HeroSkills_A106_Start)
    elseif Boss_Spell_data1[data]==1 then
        set Boss_Spell_data1[data]=2
        set Boss_Spell_data2[data]=5
        call ShowUnit(Boss_Spell_unit1[data],false)
        call Lqv(LVv('e03L',GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]),0),2)
        call TimerStart(Boss_Spell_timer[data],.1,true,function HeroSkills_A106_Start)
    elseif Boss_Spell_data1[data]==2 then
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        set x=GetUnitX(Boss_Spell_unit1[data])
        set y=GetUnitY(Boss_Spell_unit1[data])
        set r=Boss_Spell_V[data]*.1
        call GroupEnumUnitsInRange(G,x,y,800+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,800)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((r)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call m1v(u,1)
                endif
            endif
        endloop
        if Boss_Spell_data2[data]==0 then
            set Boss_Spell_data1[data]=3
            call TimerStart(Boss_Spell_timer[data],.4,false,function HeroSkills_A106_Start)
        endif
    elseif Boss_Spell_data1[data]==3 then
        call zhv(Kc[id],20,.3)
        set x=GetUnitX(Boss_Spell_unit1[data])
        set y=GetUnitY(Boss_Spell_unit1[data])
        set r=Boss_Spell_V[data]*.5
        call GroupEnumUnitsInRange(G,x,y,800+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,800)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call BrokenShield_A(u)
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((r)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        set Boss_Spell_data1[data]=4
        call TimerStart(Boss_Spell_timer[data],.5,false,function HeroSkills_A106_Start)
    else
        call ShowUnit(Boss_Spell_unit1[data],true)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call PauseUnit(Boss_Spell_unit1[data],false)
        call Unit_Cancel_Counter(827,id)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:504")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_timer[data]=null
    endif
endfunction

function HeroSkills_A106_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetSpellTargetX()
    local real ty=GetSpellTargetY()
    local real r=SquareRoot(tx*tx+ty*ty)
    local real d=GetHeroState1(s,true)*480+GetHeroState2(s,true)*$FA+GetHeroAttack(id)*$A
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=0
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=id
    set Boss_Spell_V[data]=d
    set Boss_Spell_X[data]=tx
    set Boss_Spell_Y[data]=ty
    call GFv_v(s)
    call PauseUnit(s,true)
    call SetUnitInvulnerable(s,true)
    call Unit_App_Counter(828,id)
    call TimerStart(Boss_Spell_timer[data],0,true,function HeroSkills_A106_Start)
    set s=null
endfunction

function HeroSkills_A106_Channel takes nothing returns nothing
    if not IsTerrainWalkable(GetSpellTargetX(),GetSpellTargetY())then
        call IssueUnitStop_DisplayText(GetTriggerUnit(),"!")
    endif
endfunction

function HeroSkills_A106_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A106',function HeroSkills_A106_Actions)
    call RegisterSpellChannelEvent('A106',function HeroSkills_A106_Channel)
endfunction

function Hero_H01V_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A100',function HeroSkills_A100_Actions)
    call RegisterSpellEffectEvent('A101',function HeroSkills_A101_Actions)
    call RegisterSpellEffectEvent('A102',function HeroSkills_A102_Actions)
    call RegisterSpellEffectEvent('A103',function HeroSkills_A103_Actions)
    call RegisterSpellEffectEvent('A104',function HeroSkills_A104_Actions)
    call RegisterSpellEffectEvent('A105',function HeroSkills_A105_Actions)
    call HeroSkills_A106_Init()
endfunction

function HeroSkills_A107_Buff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:505")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0FU','B093')
    call ModifyUnitMagicDamage(id,-HeroSkills_A107_Buff_Lv[id])
    call s__Trig_remove(HeroSkills_A107_Buff_Trig[id])
    set HeroSkills_A107_Buff_Timer[id]=null
    set HeroSkills_A107_Buff_Lv[id]=0
    call Unit_Cancel_Counter(829,id)
endfunction

function HeroSkills_A107_Buff_Trig_Func_002 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:506")
    call UnitCureTaret(null,(Je[(id)]),HeroSkills_A107_Buff_Cure[id])
    set HeroSkills_A107_Buff_Timer2[id]=null
    set HeroSkills_A107_Buff_Cure[id]=0
    call Unit_Cancel_Counter(830,id)
endfunction

function HeroSkills_A107_Buff_Trig_Func takes nothing returns nothing
    local integer id=(pF)
    if HeroSkills_A107_Buff_Timer2[id]==null then
        call Unit_App_Counter(831,id)
        set HeroSkills_A107_Buff_Timer2[id]=NewTimer(id)
        call TimerStart(HeroSkills_A107_Buff_Timer2[id],.5,false,function HeroSkills_A107_Buff_Trig_Func_002)
    endif
    set HeroSkills_A107_Buff_Cure[id]=HeroSkills_A107_Buff_Cure[id]+HeroSkills_A107_Buff_D[id]
endfunction

function HeroSkills_A107_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    if HeroSkills_A107_Buff_Timer[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0FU')
        set HeroSkills_A107_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A107_Buff_Trig[id]=UnitAddShieldTrigB(id,function HeroSkills_A107_Buff_Trig_Func)
        call Unit_App_Counter(832,id)
    endif
    call ModifyUnitMagicDamage(id,lv-HeroSkills_A107_Buff_Lv[id])
    set HeroSkills_A107_Buff_Lv[id]=lv
    set HeroSkills_A107_Buff_D[id]=RMaxBJ(1,GetHeroState3(GetTriggerUnit(),true)*.01*lv)
    call TimerStart(HeroSkills_A107_Buff_Timer[id],30,false,function HeroSkills_A107_Buff_End)
    call DestroyEffect(AddSpecialEffectTarget("poisonstream.mdl",(Je[(id)]),"origin"))
endfunction

function HeroSkills_A107_Actions_02 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A107')
    call UnitMdefChange(id,HeroSkills_A107_Mdef[id],lv*2)
    set HeroSkills_A107_Lv[id]=lv
endfunction

function Hero_EnterWorld_H01X takes nothing returns nothing
    local integer id=le
    set HeroSkills_A107_Lv[id]=1
    set HeroSkills_A107_Mdef[id]=ModifyUnitMdef(id,2)
endfunction

function HeroSkills_A107_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A107',function HeroSkills_A107_Actions)
    call RegisterHeroSkillEvent('A107',function HeroSkills_A107_Actions_02)
    call RegisterHeroInitEvent('H01X',function Hero_EnterWorld_H01X)
endfunction

function HeroSkills_A108_Buff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:507")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0FW','B094')
    call HeroAddExtraAttack(id,-HeroSkills_A108_Buff_Atk1[id])
    call s__Trig_remove(HeroSkills_A108_Buff_Trig[id])
    call Unit_Cancel_Counter(833,id)
    set HeroSkills_A108_Buff_Timer[id]=null
    set HeroSkills_A108_Buff_Atk1[id]=0
endfunction

function HeroSkills_A108_Buff_Trig_Func takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\OrbOfDeath\\OrbOfDeathMissile.mdl",(MF),"chest"))
    call UnitDamageTargetBY((((mF))),(((MF))),((((HeroSkills_A108_Buff_Atk2[(pF_v)])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
endfunction

function HeroSkills_A108_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    local integer v=R2I(GetHeroIntNotExtra((GetUnitUserData((GetTriggerUnit()))))*.3*lv)
    if HeroSkills_A108_Buff_Timer[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0FW')
        set HeroSkills_A108_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A108_Buff_Trig[id]=UnitAddPAttackTrigB(id,function HeroSkills_A108_Buff_Trig_Func)
        call Unit_App_Counter(834,id)
    endif
    call HeroAddExtraAttack(id,v-HeroSkills_A108_Buff_Atk1[id])
    set HeroSkills_A108_Buff_Atk1[id]=v
    set HeroSkills_A108_Buff_Atk2[id]=GetHeroState3(GetTriggerUnit(),true)*2
    call TimerStart(HeroSkills_A108_Buff_Timer[id],30*4,false,function HeroSkills_A108_Buff_End)
    call DestroyEffect(AddSpecialEffectTarget("forestbolt.mdx",(Je[(id)]),"origin"))
endfunction

function HeroSkills_A108_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A108',function HeroSkills_A108_Actions)
endfunction

function HeroSkills_A109_Buff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:508")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0MO','B095')
    call ModifyUnitArmor(id,-HeroSkills_A109_Buff_Pdef[id])
    call DeUnitMdef(id,HeroSkills_A109_Buff_Mdef[id])
    call Unit_Cancel_Counter(835,id)
    set HeroSkills_A109_Buff_Timer[id]=null
    set HeroSkills_A109_Buff_Pdef[id]=0
endfunction

function HeroSkills_A109_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    local integer v=R2I($A*lv*(1+GetHeroIntNotExtra((GetUnitUserData((GetTriggerUnit()))))*.001))
    if HeroSkills_A109_Buff_Timer[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0MO')
        set HeroSkills_A109_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A109_Buff_Mdef[id]=ModifyUnitMdef(id,$A+lv)
        call Unit_App_Counter(836,id)
    else
        call UnitMdefChange(id,HeroSkills_A109_Buff_Mdef[id],$A+lv)
    endif
    call ModifyUnitArmor(id,v-HeroSkills_A109_Buff_Pdef[id])
    set HeroSkills_A109_Buff_Pdef[id]=v
    call TimerStart(HeroSkills_A109_Buff_Timer[id],30*4,false,function HeroSkills_A109_Buff_End)
    call DestroyEffect(AddSpecialEffectTarget("forestbolt.mdx",(Je[(id)]),"origin"))
endfunction

function HeroSkills_A109_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A109',function HeroSkills_A109_Actions)
endfunction

function HeroSkills_A10A_Buff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:509")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0MP','B096')
    call ModifyUnitHP(id,-HeroSkills_A10A_Buff_Hp[id])
    call ModifyUnitMP(id,-HeroSkills_A10A_Buff_Mp[id])
    call Unit_Cancel_Counter(837,id)
    set HeroSkills_A10A_Buff_Timer[id]=null
    set HeroSkills_A10A_Buff_Hp[id]=0
    set HeroSkills_A10A_Buff_Mp[id]=0
endfunction

function HeroSkills_A10A_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSpellTargetUnit())))
    local integer lv=GetUnitAbilityLevel(GetTriggerUnit(),GetSpellAbilityId())
    local integer local_int=GetHeroIntNotExtra((GetUnitUserData((GetTriggerUnit()))))
    local integer hp=R2I((1+.1*lv)*local_int)
    local integer mp=R2I((1+.1*lv)*local_int)
    if HeroSkills_A10A_Buff_Timer[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0MP')
        set HeroSkills_A10A_Buff_Timer[id]=NewTimer(id)
        call Unit_App_Counter(838,id)
    endif
    call ModifyUnitHP(id,hp-HeroSkills_A10A_Buff_Hp[id])
    set HeroSkills_A10A_Buff_Hp[id]=hp
    if nC[id]then
        call ModifyUnitMP(id,mp-HeroSkills_A10A_Buff_Mp[id])
        set HeroSkills_A10A_Buff_Mp[id]=mp
    endif
    call TimerStart(HeroSkills_A10A_Buff_Timer[id],30*4,false,function HeroSkills_A10A_Buff_End)
    call DestroyEffect(AddSpecialEffectTarget("forestbolt.mdx",(Je[(id)]),"origin"))
endfunction

function HeroSkills_A10A_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A10A',function HeroSkills_A10A_Actions)
endfunction

function HeroSkills_A10B_Buff_End takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:510")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0Y0','B097')
    call HeroAddExtraStatAll(id,-HeroSkills_A10B_Buff_V[id])
    call Unit_Cancel_Counter(839,id)
    set HeroSkills_A10B_Buff_Timer[id]=null
    set HeroSkills_A10B_Buff_V[id]=0
endfunction

function HeroSkills_A10B_Buff takes unit s,unit t returns nothing
    local integer id=(GetUnitUserData((t)))
    local integer lv=GetUnitAbilityLevel(s,'A10B')
    local integer v=R2I(GetHeroIntNotExtra((GetUnitUserData((s))))*lv*.01)
    if HeroSkills_A10B_Buff_Timer[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0Y0')
        set HeroSkills_A10B_Buff_Timer[id]=NewTimer(id)
        call Unit_App_Counter(840,id)
    endif
    call HeroAddExtraStatAll(id,v-HeroSkills_A10B_Buff_V[id])
    set HeroSkills_A10B_Buff_V[id]=v
    call TimerStart(HeroSkills_A10B_Buff_Timer[id],30*4,false,function HeroSkills_A10B_Buff_End)
    call DestroyEffect(AddSpecialEffectTarget("forestbolt.mdx",(Je[(id)]),"origin"))
endfunction

function HeroSkills_A10B_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer fx=Boss_Spell_data2[data]
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local unit u
    call LKv(fx,x+Boss_Spell_X[data]*32)
    call Llv(fx,y+Boss_Spell_Y[data]*32)
    set Boss_x[0]=x-Boss_Spell_X[data]*300
    set Boss_y[0]=y-Boss_Spell_Y[data]*300
    set Boss_z[0]=400/ .7071
    set Boss_x[1]=.7071*.5
    set Boss_y[1]=(Boss_x[1]/ 2)
    set Boss_z[1]=(1-.5*Boss_Spell_data3[data]/ 16)
    call GroupEnumUnitsInRange(G,Boss_x[0],Boss_y[0],Boss_z[0]+75,GroupEnumUnitsFilterNull)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if not IsUnitInGroup(u,Boss_Spell_group1[data])then
            set Boss_x[2]=GetUnitX(u)-Boss_x[0]
            set Boss_y[2]=GetUnitY(u)-Boss_y[0]
            set Boss_x[3]=(Boss_x[2]*Boss_Spell_X[data]+Boss_y[2]*Boss_Spell_Y[data])/ Boss_z[0]
            set Boss_y[3]=RAbsBJ(Boss_y[2]*Boss_Spell_X[data]-Boss_x[2]*Boss_Spell_Y[data])/(Boss_z[0]*Boss_z[1])
            if Boss_x[3]>Boss_x[1]and(Boss_x[3]-Boss_y[1])/ Boss_y[3]>.75 and(Boss_x[3]*Boss_x[3]+Boss_y[3]*Boss_y[3])<1 then
                call GroupAddUnit(Boss_Spell_group1[data],u)
                if IsUnitAllyNotbag(u,Boss_Spell_unit1[data])and nC[(GetUnitUserData((u)))]then
                    call HeroSkills_A10B_Buff(Boss_Spell_unit1[data],u)
                elseif IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),(((($D)*1.))*1.),(("|c00808080")))
                endif
            endif
        endif
    endloop
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    if Boss_Spell_data3[data]==0 then
        call Ltv(fx)
        call RecycleGroup(Boss_Spell_group1[data])
        call Unit_App_Counter(841,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:511")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_group1[data]=null
    endif
endfunction

function HeroSkills_A10B_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetSpellTargetX()-x
    local real ty=GetSpellTargetY()-y
    local real r=SquareRoot(tx*tx+ty*ty)
    local integer lv=GetUnitAbilityLevel(s,'A10B')
    if r==0 then
        set r=GetUnitFacing(s)*bj_DEGTORAD
        set tx=Cos(r)
        set ty=Sin(r)
    else
        set tx=tx/ r
        set ty=ty/ r
        set r=Atan2(ty,tx)
    endif
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=LIv("gaiawave.mdx",x,y,0,1.7,r,90)
    set Boss_Spell_data3[data]=16
    set Boss_Spell_X[data]=tx
    set Boss_Spell_Y[data]=ty
    set Boss_Spell_Z[data]=r
    set Boss_Spell_V[data]=(500*lv+(16+3*lv)*GetHeroState3(s,true))*(1+Unit_MATK[id])
    call Unit_App_Counter(842,id)
    call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A10B_Start)
    set s=null
endfunction

function HeroSkills_A10B_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A10B',function HeroSkills_A10B_Actions)
endfunction

function HeroSkills_A10C_Buff_End takes integer id returns nothing
    if HeroSkills_A10C_Buff_Timer[id]!=null then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0Y3','B099')
        call ModifyUnitHpRegen(id,-HeroSkills_A10C_Buff_V[id])
        call s__Trig_remove(HeroSkills_A10C_Buff_Trig[id])
        call ReleaseTimer(HeroSkills_A10C_Buff_Timer[id],"[TimerUtils]Error:512")
        call Unit_Cancel_Counter(843,id)
        set HeroSkills_A10C_Buff_Timer[id]=null
        set HeroSkills_A10C_Buff_V[id]=0
    endif
endfunction

function HeroSkills_A10C_Buff_Expired takes nothing returns nothing
    call HeroSkills_A10C_Buff_End((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function HeroSkills_A10C_Death takes nothing returns nothing
    local integer id=s__Trig_P
    if Jg and not IsSleepRevive[id]then
        call SleepReviveHero(id,100,100,2.5)
    endif
    call HeroSkills_A10C_Buff_End(id)
endfunction

function HeroSkills_A10C_Buff takes unit s,unit t returns nothing
    local integer id=(GetUnitUserData((t)))
    local integer lv=GetUnitAbilityLevel(s,'A10C')
    local integer v=R2I(GetHeroIntNotExtra((GetUnitUserData((s))))*lv*.02)
    if HeroSkills_A10C_Buff_Timer[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0Y3')
        set HeroSkills_A10C_Buff_Timer[id]=NewTimer(id)
        set HeroSkills_A10C_Buff_Trig[id]=AddUnitDeathTrigB(id,function HeroSkills_A10C_Death)
        call Unit_App_Counter(844,id)
    endif
    call ModifyUnitHpRegen(id,v-HeroSkills_A10C_Buff_V[id])
    set HeroSkills_A10C_Buff_V[id]=v
    call TimerStart(HeroSkills_A10C_Buff_Timer[id],$F,false,function HeroSkills_A10C_Buff_Expired)
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\TargetArtLumber\\TargetArtLumber.mdl",(Je[(id)]),"origin"))
endfunction

function HeroSkills_A10C_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local unit u
    call Lqv(LAv("greenenchantment.mdl",x,y,2),2)
    call GroupEnumUnitsInRange(G,x,y,600+75,GroupEnumUnitsFilterHero)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,600)and IsUnitAllyNotbag(u,s)then
            call HeroSkills_A10C_Buff(s,u)
        endif
    endloop
    set s=null
endfunction

function HeroSkills_A10C_Actions_02 takes nothing returns nothing
    if GetUnitAbilityLevel(GetTriggerUnit(),'A0Y1')==0 then
        call UnitAddAbilityBY(GetTriggerUnit(),'A0Y1')
        call SetPlayerAbilityAvailable(GetTriggerPlayer(),'A0Y1',false)
    endif
    call SetUnitAbilityLevel(GetTriggerUnit(),'A0Y2',GetUnitAbilityLevel(GetTriggerUnit(),'A10C'))
endfunction

function HeroSkills_A10C_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A10C',function HeroSkills_A10C_Actions)
    call RegisterHeroSkillEvent('A10C',function HeroSkills_A10C_Actions_02)
endfunction

function HeroSkills_A10D_Buff_End takes integer id returns nothing
    if HeroSkills_A10D_Buff_Timer[id]!=null then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0Y4','B09A')
        call ModifyUnitMagicDamage(id,-$F)
        call DeUnitMdef(id,HeroSkills_A10D_Buff_Mdef[id])
        call ReleaseTimer(HeroSkills_A10D_Buff_Timer[id],"[TimerUtils]Error:513")
        call Unit_Cancel_Counter(845,id)
        set HeroSkills_A10D_Buff_Timer[id]=null
    endif
endfunction

function HeroSkills_A10D_Buff_Expired takes nothing returns nothing
    call HeroSkills_A10D_Buff_End((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function HeroSkills_A10D_Buff takes integer id returns nothing
    if HeroSkills_A10D_Buff_Timer[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0Y4')
        set HeroSkills_A10D_Buff_Timer[id]=NewTimer(id)
        call ModifyUnitMagicDamage(id,$F)
        set HeroSkills_A10D_Buff_Mdef[id]=ModifyUnitMdef(id,30)
        call Unit_App_Counter(846,id)
    endif
    call TimerStart(HeroSkills_A10D_Buff_Timer[id],.5,false,function HeroSkills_A10D_Buff_Expired)
endfunction

function HeroSkills_A10D_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    local integer v
    local real x
    local real y
    local unit u
    if Boss_Spell_data2[data]==0 then
        set x=Boss_Spell_X[data]+Cos(Boss_Spell_Z[data]*Lx/ 8)*$96
        set y=Boss_Spell_Y[data]+Sin(Boss_Spell_Z[data]*Lx/ 8)*$96
        call DestroyEffect(AddSpecialEffect("poisonstream.mdl",x,y))
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+1
        if Boss_Spell_Z[data]==8 then
            set Boss_Spell_Z[data]=0
            set Boss_Spell_data2[data]=1
            set Boss_Spell_data3[data]=LVv('e03M',Boss_Spell_X[data],Boss_Spell_Y[data],GetUnitFacing(Boss_Spell_unit1[data]))
            call SetUnitOwner(II[(Boss_Spell_data3[data])],(GetOwningPlayer(Boss_Spell_unit1[data])),false)
            call LDv(Boss_Spell_data3[data],40)
            call SetUnitAnimation(II[Boss_Spell_data3[data]],"birth")
            call Lfv(Boss_Spell_data3[data],$FF,$FF,$FF,0)
            set CR=false
            set Boss_Spell_unit2[data]=CreateUnit(Player($F),'e001',Boss_Spell_X[data],Boss_Spell_Y[data],270)
            call SetUnitScale(Boss_Spell_unit2[data],2,0,0)
            call SetUnitX(Boss_Spell_unit2[data],Boss_Spell_X[data])
            call SetUnitY(Boss_Spell_unit2[data],Boss_Spell_Y[data])
            set CR=true
            call SetUnitTimeScale(Boss_Spell_unit1[data],0)
            call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A10D_Start)
        endif
    elseif Boss_Spell_data2[data]==1 then
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+.03125
        call Lfv(Boss_Spell_data3[data],$FF,$FF,$FF,R2I(125*Boss_Spell_Z[data]/ 1.5))
        if Boss_Spell_Z[data]==1.5 then
            set Boss_Spell_data2[data]=2
            call LDv(Boss_Spell_data3[data],1)
            set x=Boss_Spell_X[data]
            set y=Boss_Spell_Y[data]
            call Lqv(LAv("greenenchantment.mdl",x,y,2),2)
            call Lqv(LAv("natureexplosion.mdl",x,y,2),2)
            call SetUnitAnimation(II[Boss_Spell_data3[data]],"stand work")
            call SetUnitAnimation(Boss_Spell_unit1[data],"attack")
            call SetUnitTimeScale(Boss_Spell_unit1[data],1)
            call TimerStart(Boss_Spell_timer[data],.5,false,function HeroSkills_A10D_Start)
        endif
    elseif Boss_Spell_data2[data]==2 then
        set Boss_Spell_data2[data]=3
        set Boss_Spell_eff[data]=ConvertVersion(CreateEffectFor())
        call s__Effect_connect((GetHandleId(Boss_Spell_eff[data])),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Spells\\NightElf\\Tranquility\\Tranquility.mdl")),((Boss_Spell_unit2[data])),(("origin"))))))
        call s__Effect_connect((GetHandleId(Boss_Spell_eff[data])),(s__Effect_build(AddSpecialEffectTarget((("Abilities\\Spells\\Other\\Monsoon\\MonsoonRain.mdl")),((Boss_Spell_unit2[data])),(("origin"))))))
        call TimerStart(Boss_Spell_timer[data],.25,false,function HeroSkills_A10D_Start)
    elseif Boss_Spell_data2[data]==3 then
        set Boss_Spell_data2[data]=4
        set Boss_Spell_Z[data]=0
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call PauseUnit(Boss_Spell_unit1[data],false)
        call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A10D_Start)
    elseif Boss_Spell_data2[data]==4 then
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+.03125
        set x=Boss_Spell_X[data]
        set y=Boss_Spell_Y[data]
        set v=GetHandleId(Boss_Spell_group1[data])
        call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$3E8)and IsUnitAllyNotbag(u,Boss_Spell_unit1[data])then
                set id=(GetUnitUserData((u)))
                call HeroSkills_A10D_Buff(id)
                if HaveSavedReal(BYHT,v,id)then
                    if LoadReal(BYHT,v,id)<=Boss_Spell_Z[data]then
                        call SaveReal(BYHT,v,id,Boss_Spell_Z[data]+1)
                        call UnitCureTaret(Boss_Spell_unit1[data],u,Boss_Spell_V[data])
                    endif
                else
                    call SaveReal(BYHT,v,id,Boss_Spell_Z[data]+1)
                endif
            endif
        endloop
        if Boss_Spell_Z[data]>=20 then
            call SetUnitAnimation(II[Boss_Spell_data3[data]],"death")
            call LFv(Boss_Spell_data3[data],"Objects\\Spawnmodels\\NightElf\\NECancelDeath\\NECancelDeath.mdl")
            call Lqv(Boss_Spell_data3[data],3)
            call DestroyEffectBY(GetHandleId(Boss_Spell_eff[data]))
            call RemoveUnitBJ(Boss_Spell_unit2[data],47)
            call Unit_Cancel_Counter(847,Boss_Spell_data1[data])
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:514")
            set Boss_Spell_timer[data]=null
            set Boss_Spell_group1[data]=null
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_unit2[data]=null
            set Boss_Spell_eff[data]=null
        endif
    endif
endfunction

function HeroSkills_A10D_Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call SetUnitAnimation(Boss_Spell_unit1[data],"spell one")
    call SetUnitTimeScale(Boss_Spell_unit1[data],.5)
    call TimerStart(Boss_Spell_timer[data],.1,true,function HeroSkills_A10D_Start)
endfunction

function HeroSkills_A10D_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local unit u
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_group1[data]=ConvertVersion(malloc())
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=0
    set Boss_Spell_V[data]=GetHeroState3(s,true)+1
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=0
    call Unit_App_Counter(848,id)
    call GFv_v(s)
    call PauseUnit(s,true)
    call SetUnitInvulnerable(s,true)
    call TimerStart(Boss_Spell_timer[data],0,false,function HeroSkills_A10D_Channel)
    set s=null
endfunction

function HeroSkills_A10D_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A10D',function HeroSkills_A10D_Actions)
endfunction

function Hero_H01X_Init takes nothing returns nothing
    call HeroSkills_A107_Init()
    call RegisterSpellEffectEvent('A108',function HeroSkills_A108_Actions)
    call RegisterSpellEffectEvent('A109',function HeroSkills_A109_Actions)
    call RegisterSpellEffectEvent('A10A',function HeroSkills_A10A_Actions)
    call RegisterSpellEffectEvent('A10B',function HeroSkills_A10B_Actions)
    call HeroSkills_A10C_Init()
    call RegisterSpellEffectEvent('A10D',function HeroSkills_A10D_Actions)
endfunction

function HeroSkills_A0Y6_Buff_End takes integer id returns nothing
    call ReleaseTimer(HeroSkills_A0Y6_Timer[id],"[TimerUtils]Error:515")
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0Y7','B09C')
    call s__Trig_remove(HeroSkills_A0Y6_Trig[id])
    call DeUnitMdef(id,HeroSkills_A0Y6_Mdef[id])
    call Unit_Cancel_Counter(849,HeroSkills_A0Y6_Source[id])
    call Unit_Cancel_Counter(850,id)
    set HeroSkills_A0Y6_Timer[id]=null
endfunction

function HeroSkills_A0Y6_EnumUnit takes real x,real y,unit s,group g returns unit
    local unit u
    local group g2=NewGroup()
    call GroupEnumUnitsInRange(g2,x,y,600+75,null)
    loop
        set u=FirstOfGroup(g2)
        exitwhen u==null
        call GroupRemoveUnit(g2,u)
        if IsUnitInRangeXY(u,x,y,600)then
            exitwhen not IsUnitInGroup(u,g)and IsUnitAliveAndEnemyNotAvul(u,s)
        endif
    endloop
    set s=u
    call RecycleGroup(g2)
    set g2=null
    set u=null
    return s
endfunction

function HeroSkills_A0Y6_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    if Boss_Spell_bool[data]then
        set Boss_Spell_bool[data]=false
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",Boss_Spell_unit2[data],"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",Boss_Spell_unit2[data],"origin"))
        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((Boss_Spell_unit2[data])),((((Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00ff0000")))
        call TimerStart(GetExpiredTimer(),.2,false,function HeroSkills_A0Y6_Start)
    else
        set Boss_Spell_data1[data]=Boss_Spell_data1[data]-1
        if Boss_Spell_data1[data]>0 then
            set u=HeroSkills_A0Y6_EnumUnit(GetUnitX(Boss_Spell_unit2[data]),GetUnitY(Boss_Spell_unit2[data]),Boss_Spell_unit1[data],Boss_Spell_group1[data])
            if u!=null then
                set Boss_Spell_bool[data]=true
                call Puv("CLPB",Boss_Spell_unit2[data],u,1,1,0)
                call GroupAddUnit(Boss_Spell_group1[data],u)
                set Boss_Spell_unit2[data]=u
                set u=null
            endif
        endif
        if Boss_Spell_bool[data]then
            call TimerStart(GetExpiredTimer(),.1,false,function HeroSkills_A0Y6_Start)
        else
            call RecycleGroup(Boss_Spell_group1[data])
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:516")
            call Boss_Spell_deallocate(data)
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_unit2[data]=null
            set Boss_Spell_group1[data]=null
        endif
    endif
endfunction

function HeroSkills_A0Y6_Death takes nothing returns nothing
    local integer id=s__Trig_P
    local integer s=HeroSkills_A0Y6_Source[id]
    local integer data
    local integer lv
    local unit u=HeroSkills_A0Y6_EnumUnit(GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),(Je[(s)]),null)
    call HeroSkills_A0Y6_Buff_End(id)
    if u!=null then
        set lv=GetUnitAbilityLevel((Je[(s)]),'A0Y6')
        set data=Boss_Spell_allocate()
        set Boss_Spell_unit1[data]=(Je[(s)])
        set Boss_Spell_unit2[data]=u
        set Boss_Spell_group1[data]=NewGroup()
        set Boss_Spell_data1[data]=9
        set Boss_Spell_V[data]=(120*lv+(1+1.6*lv)*GetHeroState3(Boss_Spell_unit1[data],true))*Unit_Lightning_Damage[s]
        set Boss_Spell_bool[data]=true
        call Puv("CLPB",(Je[(id)]),u,1,1,0)
        call GroupAddUnit(Boss_Spell_group1[data],u)
        call TimerStart(NewTimer(data),.1,false,function HeroSkills_A0Y6_Start)
        set u=null
    endif
endfunction

function HeroSkills_A0Y6_Buff_Expired takes nothing returns nothing
    call HeroSkills_A0Y6_Buff_End((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function HeroSkills_A0Y6_onAttack takes nothing returns nothing
    local integer lv=GetUnitAbilityLevel((mF),'A0Y6')
    local integer t=(pF)
    if HeroSkills_A0Y6_Timer[t]==null then
        set HeroSkills_A0Y6_Timer[t]=NewTimer(t)
        set HeroSkills_A0Y6_Mdef[t]=ModifyUnitMdef(t,-lv)
        set HeroSkills_A0Y6_Trig[t]=AddUnitDeathTrigB(t,function HeroSkills_A0Y6_Death)
        set HeroSkills_A0Y6_Source[t]=(pF_v)
        call UnitAddAbilityBY((Je[(t)]),'A0Y7')
        call Unit_App_Counter(851,t)
        call Unit_App_Counter(852,(pF_v))
    else
        if HeroSkills_A0Y6_Source[t]!=(pF_v)then
            call Unit_Cancel_Counter(853,HeroSkills_A0Y6_Source[t])
            call Unit_App_Counter(854,(pF_v))
            set HeroSkills_A0Y6_Source[t]=(pF_v)
        endif
        if(100*s__unitseate_table_v[(HeroSkills_A0Y6_Mdef[t])])!=-lv then
            call UnitMdefChange(t,HeroSkills_A0Y6_Mdef[t],-lv)
        endif
    endif
    call TimerStart(HeroSkills_A0Y6_Timer[t],$A,false,function HeroSkills_A0Y6_Buff_Expired)
endfunction

function Hero_EnterWorld_H01Y takes nothing returns nothing
    call UnitAddPAttackTrig(le,function HeroSkills_A0Y6_onAttack)
    set HeroSkills_A0YA_Bool[le]=true
endfunction

function HeroSkills_A0Y6_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H01Y',function Hero_EnterWorld_H01Y)
endfunction

function HeroSkills_A0Y8_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer e
    local real x
    local real y
    local real tx
    local real ty
    local real r
    local real a
    local unit u
    if Boss_Spell_data2[data]==0 then
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+.1
        call SetUnitScale(II[(Boss_Spell_data1[data])],((Boss_Spell_Z[data])*1.),0,0)
        if Boss_Spell_Z[data]==1 then
            call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
            set Boss_Spell_data2[data]=1
        endif
    elseif Boss_Spell_data2[data]==1 then
        if Boss_Spell_Z[data]<1.5 then
            set Boss_Spell_Z[data]=Boss_Spell_Z[data]+.1
            call SetUnitScale(II[(Boss_Spell_data1[data])],((Boss_Spell_Z[data])*1.),0,0)
        endif
        if Boss_Spell_bool[data]then
            if UnitAlive(Boss_Spell_unit2[data])and IsUnitInRangeXY(Boss_Spell_unit2[data],Boss_Spell_X[data],Boss_Spell_Y[data],$3E8)then
                set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit2[data])
                set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit2[data])
            else
                set Boss_Spell_bool[data]=false
            endif
        endif
        set x=(GetUnitX(II[(Boss_Spell_data1[data])]))
        set y=(GetUnitY(II[(Boss_Spell_data1[data])]))
        set tx=Boss_Spell_X[data]-x
        set ty=Boss_Spell_Y[data]-y
        set r=SquareRoot(tx*tx+ty*ty)
        if r<50 then
            set x=Boss_Spell_X[data]
            set y=Boss_Spell_Y[data]
            call LKv(Boss_Spell_data1[data],x)
            call Llv(Boss_Spell_data1[data],y)
            call LMv(Boss_Spell_data1[data],"")
            set e=CreateEffectFor()
            set r=50
            set a=0
            set Boss_Spell_data3[data]=5
            loop
                exitwhen Boss_Spell_data3[data]<=0
                set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
                set Boss_Spell_data2[data]=$C
                loop
                    exitwhen Boss_Spell_data2[data]<=0
                    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
                    set tx=x+Cos(a)*r
                    set ty=y+Sin(a)*r
                    call s__Effect_connect((e),(s__Effect_build(AddSpecialEffect((("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl")),((((tx)*1.))*1.),((((ty)*1.))*1.)))))
                    set a=a+Lx/ $C
                endloop
                set a=a+Lx/ 24
                set r=r+50
            endloop
            call s__Effect_connect((e),(s__Effect_build(AddSpecialEffect((("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl")),((((x)*1.))*1.),((((y)*1.))*1.)))))
            call TimerDestroyEffectBY(e,5)
            if Boss_Spell_bool[data]then
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((Boss_Spell_unit2[data])),((((GetHeroState3(Boss_Spell_unit1[data],true)*$A)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("|c00ff0000")))
            endif
            set Boss_Spell_data2[data]=2
            set Boss_Spell_data3[data]=$A
            set Boss_Spell_V[data]=Boss_Spell_V[data]*.3
            call TimerStart(Boss_Spell_timer[data],.5,true,function HeroSkills_A0Y8_Start)
        else
            set r=32/ r
            call LKv(Boss_Spell_data1[data],x+tx*r)
            call Llv(Boss_Spell_data1[data],y+ty*r)
            call SetUnitFacing(II[(Boss_Spell_data1[data])],((Atan2(ty,tx))*1.)*bj_RADTODEG)
        endif
    else
        set x=Boss_Spell_X[data]
        set y=Boss_Spell_Y[data]
        set a=Boss_Spell_V[data]*Unit_DOT[(GetUnitUserData((Boss_Spell_unit1[data])))]
        call GroupEnumUnitsInRange(G,x,y,300+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,300)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((a)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF0000")))
                    call UnitAppBuff((GetUnitUserData((u))),'A0Y9',$D006B)
                endif
            endif
        endloop
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if Boss_Spell_data3[data]==0 then
            call Ltv(Boss_Spell_data1[data])
            call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:517")
            call Boss_Spell_deallocate(data)
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_unit2[data]=null
            set Boss_Spell_timer[data]=null
        endif
    endif
endfunction

function HeroSkills_A0Y8_Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],2)
    call TimerStart(Boss_Spell_timer[data],.03,true,function HeroSkills_A0Y8_Start)
endfunction

function HeroSkills_A0Y8_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel(s,'A0Y8')
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetUnitX(GetSpellTargetUnit())-x
    local real ty=GetUnitY(GetSpellTargetUnit())-y
    local real r=75/ SquareRoot(tx*tx+ty*ty)
    set x=x+tx*r
    set y=y+ty*r
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_data1[data]=LIv("OrbOfLightning.mdx",x,y,85,0,Atan2(ty,tx),90)
    set Boss_Spell_data2[data]=0
    set Boss_Spell_bool[data]=true
    set Boss_Spell_X[data]=GetUnitX(GetSpellTargetUnit())
    set Boss_Spell_Y[data]=GetUnitY(GetSpellTargetUnit())
    set Boss_Spell_Z[data]=0
    set Boss_Spell_V[data]=($FA*lv+(3+1.6*lv)*GetHeroState3(s,true))*Unit_Lightning_Damage[id]
    call TimerStart(Boss_Spell_timer[data],0,true,function HeroSkills_A0Y8_Channel)
    set s=null
endfunction

function HeroSkills_A0Y8_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0Y8',function HeroSkills_A0Y8_Actions)
endfunction

 //A0YA = Lightning mastery

 function s__A0YA_stop takes integer this returns nothing
    if s__A0YA_use[this]then
        call ModifyHeroIntPercent(this,-.02*s__A0YA_index[this])
        loop
            exitwhen s__A0YA_index[this]==0
            set s__A0YA_index[this]=s__A0YA_index[this]-1
            call Ltv(LoadInteger(BYHT,s__A0YA_v[this],s__A0YA_index[this]))
        endloop
        call free(s__A0YA_v[this])
        call Unit_Cancel_Counter(855,this)
        set s__A0YA_use[this]=false
        set s__A0YA_last[s__A0YA_next[this]]=s__A0YA_last[this]
        set s__A0YA_next[s__A0YA_last[this]]=s__A0YA_next[this]
        if s__A0YA_next[(0)]==(0)then
            call frv(s__A0YA_func)
        endif
    endif
 endfunction
  

 function s__A0YA_attack takes integer this,unit u,real d returns nothing
    local integer i=s__A0YA_index[this]
    local integer fx
    local real timed=(100000.-TimerGetRemaining(GameTimer))
    loop
        exitwhen i==0
        set i=i-1
        if timed>=LoadReal(BYHT,s__A0YA_v[this],i)then
            call SaveReal(BYHT,s__A0YA_v[this],i,timed+.5)
            set fx=LoadInteger(BYHT,s__A0YA_v[this],i)
            call NeWLightningEffectTypeD("CHIM",II[fx],u,0,60,.5,1,0)
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",u,"origin"))
            call UnitDamageTargetBY((((Je[(this)]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00ff0000")))
        endif
    endloop
 endfunction
  

 function s__A0YA_up takes integer this returns nothing
    local integer fx
    local real x
    local real y
    local real a
    if s__A0YA_index[this]<6 then
        set s__A0YA_index[this]=s__A0YA_index[this]+1
        set a=s__A0YA_ange[this]-Lx/(s__A0YA_index[this])
        set x=GetUnitX((Je[(this)]))+Cos(a)*$96
        set y=GetUnitY((Je[(this)]))+Sin(a)*$96
        set fx=LNv("Abilities\\Weapons\\FarseerMissile\\FarseerMissile.mdl",x,y,75,1)
        call SaveInteger(BYHT,s__A0YA_v[this],s__A0YA_index[this]-1,fx)
        call ModifyHeroIntPercent(this,.02)
    endif
 endfunction
  

 function s__A0YA_loop_c takes nothing returns nothing
    local integer this=s__A0YA_next[(0)]
    local integer i
    local integer fx
    local real x
    local real y
    local real tx
    local real ty
    local real a
    loop
        exitwhen this==null
        if UnitAlive((Je[(this)]))or(IsSleepRevive[(this)])then
            set s__A0YA_ange[this]=s__A0YA_ange[this]+.05
            set x=GetUnitX((Je[(this)]))
            set y=GetUnitY((Je[(this)]))
            set i=s__A0YA_index[this]
            set a=s__A0YA_ange[this]
            loop
                exitwhen i==0
                set i=i-1
                set a=a-Lx/ s__A0YA_index[this]
                set fx=LoadInteger(BYHT,s__A0YA_v[this],i)
                set tx=x+Cos(a)*$96
                set ty=y+Sin(a)*$96
                call LKv(fx,tx)
                call Llv(fx,ty)
            endloop
        else
            call s__A0YA_stop(this)
        endif
        set this=s__A0YA_next[this]
    endloop
 endfunction
  

 function s__A0YA_app takes integer this returns boolean
    if s__A0YA_use[this]then
        return false
    else
        if s__A0YA_next[(0)]==(0)then
            if s__A0YA_func==null then
                set s__A0YA_func=fxv(function s__A0YA_loop_c)
            endif
            call fov(s__A0YA_func)
        endif
        set s__A0YA_next[this]=s__A0YA_next[(0)]
        set s__A0YA_last[this]=(0)
        set s__A0YA_last[s__A0YA_next[this]]=this
        set s__A0YA_next[(0)]=this
        call Unit_App_Counter(856,this)
        set s__A0YA_v[this]=malloc()
        set s__A0YA_use[this]=true
    endif
    return true
 endfunction
 

 function HeroSkills_A0YA_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call s__A0YA_app(id)
    call s__A0YA_up(id)
 endfunction
 

 function HeroSkills_A0YA_onAttack takes nothing returns nothing
    local integer id=(pF_v)
    local integer lv
    if s__A0YA_use[id]then
        set lv=GetUnitAbilityLevel((mF),'A0YA')
        call s__A0YA_attack(id,(MF),(300*lv+(.2+.03*lv)*GetHeroState3((mF),true))*Unit_Lightning_Damage[id])
    endif
 endfunction
  

 function HeroSkills_A0YA_Actions_02 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if HeroSkills_A0YA_Bool[id] then
        set HeroSkills_A0YA_Bool[le]=false
        call UnitAddPAttackTrig(id,function HeroSkills_A0YA_onAttack)
    endif
 endfunction
  

 function HeroSkills_A0YA_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YA',function HeroSkills_A0YA_Actions)
    call RegisterHeroSkillEvent('A0YA',function HeroSkills_A0YA_Actions_02)
 endfunction
 

function HeroSkills_A0YE_Actions takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel(s,'A0YB')
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real d=($4B0*lv+(35+2*lv)*GetHeroState3(s,true))*Unit_Lightning_Damage[id]
    local unit u
    call zhv(Kc[id],100,.5)
    call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,3))
    call Ltv(LAv("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y,2))
    call Ltv(LAv("Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl",x,y,5))
    call GroupEnumUnitsInRange(G,x,y,450+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,600)then
            if IsUnitAliveAndEnemyNotAvul(u,s)then
                if not((IsUnitType((u),UNIT_TYPE_GIANT))or MB[(GetUnitUserData((u)))])and GetUnitMoveSpeed(u)>0 then
                    call SetUnitX(u,x)
                    call SetUnitY(u,y)
                endif
                call UnitDamageTargetBY(((s)),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("|c00FF0000")))
                call UnitAppBuff((GetUnitUserData((u))),'A0Y9',$D006B)
                call m1v(u,1)
            endif
        endif
    endloop
    set s=null
endfunction

function HeroSkills_A0YE_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YE',function HeroSkills_A0YE_Actions)
endfunction

function HeroSkills_A0YB_Start_func002 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local real d=Boss_Spell_V[data]
    local unit u
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",x,y))
    call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$C8)then
            if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("|c00FF0000")))
                call UnitAppBuff((GetUnitUserData((u))),'A0Y9',$D006B)
            endif
        endif
    endloop
endfunction

function HeroSkills_A0YB_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer data2
    local real a
    local real r
    local real x
    local real y
    if Boss_Spell_data2[data]>0 then
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        set a=GetRandomReal(0,Lx)
        set r=GetRandomReal(0,350)
        set x=Boss_Spell_X[data]+Cos(a)*r
        set y=Boss_Spell_Y[data]+Sin(a)*r
        call DestroyEffect(AddSpecialEffect("starfalltarget.mdl",x,y))
        set data2=Boss_Spell_allocate()
        set Boss_Spell_unit1[data2]=Boss_Spell_unit1[data]
        set Boss_Spell_V[data2]=Boss_Spell_V[data]
        set Boss_Spell_X[data2]=x
        set Boss_Spell_Y[data2]=y
        call TimerStart(NewTimer(data2),1,false,function HeroSkills_A0YB_Start_func002)
        if Boss_Spell_data2[data]==0 then
            call TimerStart(Boss_Spell_timer[data],1.1,false,function HeroSkills_A0YB_Start)
        endif
    else
        call Unit_Cancel_Counter(857,Boss_Spell_data1[data])
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:518")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_timer[data]=null
    endif
endfunction

function HeroSkills_A0YB_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0YB')
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=5*$A
    set Boss_Spell_data3[data]=0
    set Boss_Spell_V[data]=(800*lv+(1.5+.5*lv)*GetHeroState3((Je[(id)]),true))*Unit_Lightning_Damage[id]
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    call Unit_App_Counter(858,id)
    call TimerStart(Boss_Spell_timer[data],.1,true,function HeroSkills_A0YB_Start)
endfunction

function HeroSkills_A0YB_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YB',function HeroSkills_A0YB_Actions)
endfunction

function s__A0YC_new takes integer u returns integer
    local integer this=s__A0YC__allocate()
    set s__A0YC_last[this]=this
    set s__A0YC_next[this]=this
    set s__A0YC_bool[this]=true
    set s__A0YC_id[this]=u
    set s__A0YC_v[this]=malloc()
    set s__A0YC_order[this]=1
    return this
endfunction

function s__A0YC_remove takes integer this returns nothing
    local integer t
    if s__A0YC_bool[this]then
        set s__A0YC_bool[this]=false
        set t=s__A0YC_next[this]
        loop
            exitwhen t==this
            set s__A0YC_data[s__A0YC_id[t]]=0
            call KillUnit((Je[(s__A0YC_id[t])]))
            call s__A0YC_deallocate(t)
            set t=s__A0YC_next[t]
        endloop
        call free(s__A0YC_v[this])
        call s__A0YC_deallocate(this)
    else
        set s__A0YC_data[s__A0YC_id[this]]=0
        call KillUnit((Je[(s__A0YC_id[this])]))
        set s__A0YC_last[s__A0YC_next[this]]=s__A0YC_last[this]
        set s__A0YC_next[s__A0YC_last[this]]=s__A0YC_next[this]
        call s__A0YC_deallocate(this)
    endif
endfunction

function s__A0YC_add takes integer this,real x,real y returns integer
    local integer t=s__A0YC__allocate()
    local real a=GetRandomReal(0,Lx)
    local real ra=0
    local real rb=1
    local real r
    local real tx=Cos(a)*500
    local real ty=Sin(a)*500
    local integer i=$A
    set s__A0YC_last[t]=this
    set s__A0YC_next[t]=s__A0YC_next[this]
    set s__A0YC_last[s__A0YC_next[this]]=t
    set s__A0YC_next[this]=t
    loop
        exitwhen i==0
        set i=i-1
        set r=(ra+rb)/ 2
        set s__A0YC_px[t]=x+tx*r
        set s__A0YC_py[t]=y+ty*r
        if IsPointInWorldBounds(s__A0YC_px[t],s__A0YC_py[t])then
            set ra=r
        else
            set rb=r
        endif
    endloop
    set s__A0YC_px[t]=x+tx*ra
    set s__A0YC_py[t]=y+ty*ra
    set s__A0YC_id[t]=(GetUnitUserData((CreateUnit(P[Kc[s__A0YC_id[this]]],'e03N',x,y,a*bj_RADTODEG))))
    set s__A0YC_order[t]=1
    set s__A0YC_target[t]=0
    set s__A0YC_v[t]=0
    set s__A0YC_c[t]=0
    set s__A0YC_root[t]=this
    set s__A0YC_data[s__A0YC_id[t]]=t
    call SetUnitFlyHeight((Je[(s__A0YC_id[t])]),$96,100)
    return t
endfunction

function s__A0YC_start takes integer this returns boolean
    local integer t=this
    local integer ord=s__A0YC_order[this]
    local integer vessel=s__A0YC_v[this]
    local integer i
    local unit s=(Je[(s__A0YC_id[this])])
    local unit u
    local real x
    local real y
    local real tx
    local real ty
    local real r
    local real a
    local boolean b
    if UnitAlive(s)then
        set s__A0YC_px[this]=GetUnitX(s)
        set s__A0YC_py[this]=GetUnitY(s)
    else
        call s__A0YC_remove(this)
        set s=null
        return false
    endif
    if ord==1 then
        loop
            set this=s__A0YC_next[this]
            exitwhen this==t
            set u=(Je[(s__A0YC_id[this])])
            set x=GetUnitX(u)
            set y=GetUnitY(u)
            if s__A0YC_c[this]>0 then
                set s__A0YC_c[this]=s__A0YC_c[this]-.03125
                if s__A0YC_c[this]<=0 then
                    if s__A0YC_target[this]!=null then
                        call SaveInteger(BYHT,vessel,s__A0YC_target[this],LoadInteger(BYHT,vessel,s__A0YC_target[this])-1)
                        set s__A0YC_target[this]=0
                    endif
                endif
            endif
            if s__A0YC_order[this]==1 then
                set a=GetUnitFacing(u)*bj_DEGTORAD
                set tx=s__A0YC_px[this]-x
                set ty=s__A0YC_py[this]-y
                set r=$D+7*Cos(Atan2(ty,tx)-a)
                set x=x+Cos(a)*r
                set y=y+Sin(a)*r
                call SetUnitFacing(u,Atan2(ty,tx)*bj_RADTODEG)
                if IsPointInWorldBounds(x,y)then
                    call SetUnitX(u,x)
                    call SetUnitY(u,y)
                endif
                if s__A0YC_c[this]<=0 then
                    call sc__A0YC_randenum(this,vessel,x,y,P[Kc[s__A0YC_id[this]]])
                endif
                if s__A0YC_order[this]==1 then
                    if tx*tx+ty*ty<$9C4 then
                        set s__A0YC_order[this]=3
                    else
                        if s__A0YC_v[this]>0 then
                            set s__A0YC_v[this]=s__A0YC_v[this]-1
                        else
                            set tx=s__A0YC_px[t]-x
                            set ty=s__A0YC_py[t]-y
                            set r=tx*tx+ty*ty
                            if r>$3E8*$3E8 then
                                call SetUnitX(u,s__A0YC_px[t])
                                call SetUnitY(u,s__A0YC_py[t])
                                set s__A0YC_order[this]=3
                            else
                                set x=s__A0YC_px[t]
                                set y=s__A0YC_py[t]
                                set tx=x-s__A0YC_px[this]
                                set ty=y-s__A0YC_py[this]
                                set r=tx*tx+ty*ty
                                if r>700*700 then
                                    if GetRandomInt(1,5)==1 then
                                        set s__A0YC_px[this]=x
                                        set s__A0YC_py[this]=y
                                    else
                                        set i=3
                                        loop
                                            exitwhen i==0
                                            set tx=GetRandomReal(-1,1)
                                            set ty=GetRandomReal(-1,1)
                                            set s__A0YC_px[this]=x+tx*600
                                            set s__A0YC_py[this]=y+ty*600
                                            if tx*tx+ty*ty<=1 and IsPointInWorldBounds(s__A0YC_px[this],s__A0YC_py[this])then
                                                exitwhen true
                                            endif
                                            set i=i-1
                                        endloop
                                    endif
                                    if i==0 then
                                        set s__A0YC_px[this]=x
                                        set s__A0YC_py[this]=y
                                    endif
                                    set s__A0YC_v[this]=16
                                endif
                            endif
                        endif
                    endif
                endif
            elseif s__A0YC_order[this]==2 then
                set s__A0YC_px[this]=GetUnitX((Je[(s__A0YC_target[this])]))
                set s__A0YC_py[this]=GetUnitY((Je[(s__A0YC_target[this])]))
                set tx=s__A0YC_px[this]-x
                set ty=s__A0YC_py[this]-y
                set a=GetUnitFacing(u)*bj_DEGTORAD
                set r=$A+$A*Cos(Atan2(ty,tx)-a)
                set x=x+Cos(a)*r
                set y=y+Sin(a)*r
                call SetUnitX(u,x)
                call SetUnitY(u,y)
                call SetUnitFacing(u,Atan2(ty,tx)*bj_RADTODEG)
                if s__A0YC_v[this]>0 then
                    set s__A0YC_v[this]=s__A0YC_v[this]-1
                endif
                if s__A0YC_v[this]==0 then
                    set s__A0YC_v[this]=16
                    set b=IssueTargetOrderById(u,$D0106,(Je[(s__A0YC_target[this])]))
                else
                    set b=true
                endif
                if not(UnitAlive((Je[(s__A0YC_target[this])]))and IsUnitInRange((Je[(s__A0YC_target[this])]),u,600)and IsUnitInRange(s,u,100)and b)then
                    call SaveInteger(BYHT,vessel,s__A0YC_target[this],LoadInteger(BYHT,vessel,s__A0YC_target[this])-1)
                    set s__A0YC_target[this]=0
                    set s__A0YC_order[this]=3
                endif
            elseif s__A0YC_order[this]==3 then
                set s__A0YC_order[this]=1
                set s__A0YC_v[this]=16
                set x=s__A0YC_px[t]
                set y=s__A0YC_py[t]
                if GetRandomInt(1,3)==1 then
                    set s__A0YC_px[this]=x
                    set s__A0YC_py[this]=y
                else
                    set i=3
                    loop
                        exitwhen i==0
                        set tx=GetRandomReal(-1,1)
                        set ty=GetRandomReal(-1,1)
                        set s__A0YC_px[this]=x+tx*600
                        set s__A0YC_py[this]=y+ty*600
                        if tx*tx+ty*ty<=1 and IsPointInWorldBounds(s__A0YC_px[this],s__A0YC_py[this])then
                            exitwhen true
                        endif
                        set i=i-1
                    endloop
                    if i==0 then
                        set s__A0YC_px[this]=x
                        set s__A0YC_py[this]=y
                    endif
                endif
            endif
        endloop
        set u=null
    else
        loop
            set this=s__A0YC_next[this]
            exitwhen this==t
            set x=GetUnitX((Je[(s__A0YC_id[this])]))
            set y=GetUnitY((Je[(s__A0YC_id[this])]))
            set tx=s__A0YC_px[t]-x
            set ty=s__A0YC_py[t]-y
            set r=SquareRoot(tx*tx+ty*ty)
            if r<50 or r>$5DC then
                call SetUnitFlyHeight((Je[(s__A0YC_id[this])]),50,0)
                call s__A0YC_remove(this)
            else
                set r=(25+r*.05)/ r
                call SetUnitX((Je[(s__A0YC_id[this])]),x+tx*r)
                call SetUnitY((Je[(s__A0YC_id[this])]),y+ty*r)
                call SetUnitFlyHeight((Je[(s__A0YC_id[this])]),(50-GetUnitFlyHeight((Je[(s__A0YC_id[this])])))*r,0)
            endif
        endloop
        if this==s__A0YC_next[this]then
            call s__A0YC_remove(this)
            set s=null
            return false
        endif
    endif
    set s=null
    return true
endfunction

function s__A0YC_randenum takes integer this,integer vessel,real x,real y,player p returns nothing
    local integer i=0
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$C8)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
            if IsUnitVisible(u,p)and IsUnitEnemy(u,p)and LoadInteger(BYHT,vessel,(GetUnitUserData((u))))<5 then
                set i=i+1
                if GetRandomInt(1,i)==1 then
                    set s__A0YC_target[this]=(GetUnitUserData((u)))
                endif
            endif
        endif
    endloop
    if s__A0YC_target[this]!=null then
        set s__A0YC_order[this]=2
        set s__A0YC_v[this]=16
        call SaveInteger(BYHT,vessel,s__A0YC_target[this],LoadInteger(BYHT,vessel,s__A0YC_target[this])+1)
        call IssueTargetOrderById((Je[(s__A0YC_id[this])]),$D0106,(Je[(s__A0YC_target[this])]))
    endif
endfunction

function HeroSkills_A0YC_Stop takes integer data returns nothing
    set Boss_Spell_bool[data]=true
endfunction

function HeroSkills_A0YC_Actions_002 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer t=s__A0YC_data[id]
    local integer r=s__A0YC_root[t]
    local real d=s__A0YC_c[r]
    if t!=null then
        set s__A0YC_c[t]=1
        set s__A0YC_order[t]=3
        call UnitDamageTargetBY((((Je[(s__A0YC_id[r])]))),((GetSpellTargetUnit())),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c00400080")))
        call UnitAppBuff((GetUnitUserData((GetSpellTargetUnit()))),'A0Y9',$D006B)
    endif
endfunction

function HeroSkills_A0YC_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t=Boss_Spell_data3[data]
    local real a
    local real r
    local real x
    local real y
    if Boss_Spell_bool[data]then
        set s__A0YC_order[t]=0
        set Boss_Spell_data2[data]=0
        set Boss_Spell_bool[data]=false
    endif
    if Boss_Spell_data2[data]>0 then
        set Boss_Spell_Y[data]=Boss_Spell_Y[data]-.03125
        if Boss_Spell_Y[data]<=0 then
            set Boss_Spell_Y[data]=Boss_Spell_X[data]
            set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
            call s__A0YC_add(t,GetUnitX(Boss_Spell_unit1[data]),GetUnitY(Boss_Spell_unit1[data]))
        endif
    endif
    if s__A0YC_start(t)then
        if Boss_Spell_data2[data]==0 and s__A0YC_order[t]==1 then
            set Boss_Spell_V[data]=Boss_Spell_V[data]-.03125
            if Boss_Spell_V[data]<=0 then
                set Boss_Spell_bool[data]=true
            endif
        endif
    else
        set HeroSkills_A0YC_Data[Boss_Spell_data1[data]]=0
        call Unit_Cancel_Counter(859,Boss_Spell_data1[data])
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:519")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_timer[data]=null
    endif
endfunction

function HeroSkills_A0YC_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0YC')
    local integer data=Boss_Spell_allocate()
    local integer t=s__A0YC_new(id)
    set s__A0YC_c[t]=(lv*$3E8+($A+3*lv)*GetHeroState3((Je[(id)]),true))*Unit_Lightning_Damage[id]
    if HeroSkills_A0YC_Data[id]!=null then
        set Boss_Spell_bool[(HeroSkills_A0YC_Data[id])]=true
    endif
    set HeroSkills_A0YC_Data[id]=data
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=$A
    set Boss_Spell_data3[data]=t
    set Boss_Spell_bool[data]=false
    set Boss_Spell_V[data]=20
    set Boss_Spell_X[data]=.1
    set Boss_Spell_Y[data]=0
    call Unit_App_Counter(860,id)
    call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A0YC_Start)
endfunction

function HeroSkills_A0YC_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YC',function HeroSkills_A0YC_Actions)
    call RegisterSpellEffectEvent('A0YD',function HeroSkills_A0YC_Actions_002)
endfunction

function HeroSkills_A0YF_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t
    local integer i
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local real timed
    local real r
    local real a
    local unit u
    local unit array u2
    local integer index
    set Boss_Spell_Z[data]=Boss_Spell_Z[data]+(bj_DEGTORAD*5)
    if Boss_Spell_data2[data]==0 then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]+1
        set r=Sin(Boss_Spell_data3[data]*Lx/ 128.)*600
        set a=Boss_Spell_Z[data]
        set i=6
        loop
            exitwhen i==0
            set i=i-1
            set a=a-Lx/ 6
            set t=LoadInteger(BYHT,Boss_Spell_data1[data],i)
            call LKv(t,x+Cos(a)*r)
            call Llv(t,y+Sin(a)*r)
        endloop
        if Boss_Spell_data3[data]>=32 then
            set Boss_Spell_data2[data]=1
            set Boss_Spell_data3[data]=32*3
            set timed=(100000.-TimerGetRemaining(GameTimer))
            set i=6
            loop
                exitwhen i==0
                set i=i-1
                call SaveReal(BYHT,Boss_Spell_data1[data],i,timed+GetRandomReal(0,.8))
            endloop
        endif
    elseif Boss_Spell_data2[data]==1 then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        set r=600
        set a=Boss_Spell_Z[data]
        set index=0
        set timed=(100000.-TimerGetRemaining(GameTimer))
        call GroupEnumUnitsInRange(G,x,y,r+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,r)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    set index=index+1
                    set u2[index]=u
                endif
            endif
        endloop
        set i=6
        loop
            exitwhen i==0
            set i=i-1
            set a=a-Lx/ 6
            set t=LoadInteger(BYHT,Boss_Spell_data1[data],i)
            call LKv(t,x+Cos(a)*r)
            call Llv(t,y+Sin(a)*r)
            if index>0 and LoadReal(BYHT,Boss_Spell_data1[data],i)<=timed then
                call SaveReal(BYHT,Boss_Spell_data1[data],i,timed+.8)
                set u=u2[GetRandomInt(1,index)]
                call NeWLightningEffectTypeD("AFOD",II[t],u,0,60,.5,1,0)
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
                call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data]/ $E1)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00ff0000")))
                call m2v(u,.5,'A500','B500',true)
            endif
        endloop
        loop
            exitwhen index==0
            set u2[index]=null
            set index=index-1
        endloop
        set u=null
        if Boss_Spell_data3[data]==0 then
            set Boss_Spell_data2[data]=2
            set Boss_Spell_data3[data]=16
            set r=GetPointZ(x,y)
            set i=6
            loop
                exitwhen i==0
                set i=i-1
                set t=LoadInteger(BYHT,Boss_Spell_data1[data],i)
                call NeWLightningEffectTypeA("AFOD",x,y,r,II[t],0,.5,.1,1)
            endloop
        endif
    elseif Boss_Spell_data2[data]==2 then
        call Ltv(LAv("Abilities\\Weapons\\VengeanceMissile\\VengeanceMissile.mdl",x,y,5-Boss_Spell_data3[data]*.25))
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        if Boss_Spell_data3[data]==0 then
            set Boss_Spell_data2[data]=3
        endif
    else
        set r=600
        call zhv(Kc[GetHandleId(Boss_Spell_unit2[data])],100,1)
        call Ltv(LAv("ethereal lightning.mdl",x,y,$F))
        call GroupEnumUnitsInRange(G,x,y,r+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,r)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00ff0000")))
                    call m1v(u,3)
                endif
            endif
        endloop
        set i=6
        loop
            exitwhen i==0
            set i=i-1
            call Ltv(LoadInteger(BYHT,Boss_Spell_data1[data],i))
        endloop
        call free(Boss_Spell_data1[data])
        call Unit_Cancel_Counter(861,GetHandleId(Boss_Spell_unit2[data]))
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:520")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
        set Boss_Spell_timer[data]=null
    endif
endfunction

function HeroSkills_A0YF_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    local integer t
    local integer i=6
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_unit2[data]=ConvertVersion(id)
    set Boss_Spell_data1[data]=malloc()
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=0
    set Boss_Spell_bool[data]=false
    set Boss_Spell_V[data]=450*GetHeroState3((Je[(id)]),true)*Unit_Lightning_Damage[id]
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set Boss_Spell_Z[data]=0
    loop
        exitwhen i==0
        set i=i-1
        set t=LNv("Abilities\\Weapons\\VengeanceMissile\\VengeanceMissile.mdl",Boss_Spell_X[data],Boss_Spell_Y[data],500,5)
        call SaveInteger(BYHT,Boss_Spell_data1[data],i,t)
    endloop
    call Unit_App_Counter(862,id)
    call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A0YF_Start)
endfunction

function HeroSkills_A0YF_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YF',function HeroSkills_A0YF_Actions)
endfunction

function Hero_H01Y_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H01Y',function Hero_EnterWorld_H01Y)
    call RegisterSpellEffectEvent('A0Y8',function HeroSkills_A0Y8_Actions)
    call HeroSkills_A0YA_Init()
    call RegisterSpellEffectEvent('A0YE',function HeroSkills_A0YE_Actions)
    call RegisterSpellEffectEvent('A0YB',function HeroSkills_A0YB_Actions)
    call HeroSkills_A0YC_Init()
    call RegisterSpellEffectEvent('A0YF',function HeroSkills_A0YF_Actions)
endfunction

function HeroSkills_A0YG_SetMana_Func takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    call UnitRemoveAbility(GetTriggerUnit(),'B014')
    call SetUnitState(GetTriggerUnit(),UNIT_STATE_MANA,HeroSkills_A0YG_V[id])
endfunction

function HeroSkills_A0YG_SetMana takes integer id,real v returns nothing
    if v>500 then
        set v=500
    elseif v<0 then
        set v=0
    endif
    if HeroSkills_A0YG_V[id]!=v then
        call DestroyTrigger(HeroSkills_A0YG_Trig[id])
        set HeroSkills_A0YG_V[id]=v
        set HeroSkills_A0YG_Trig[id]=CreateTrigger()
        call SetUnitState((Je[(id)]),UNIT_STATE_MANA,v)
        call TriggerRegisterUnitStateEvent(HeroSkills_A0YG_Trig[id],(Je[(id)]),UNIT_STATE_MANA,LESS_THAN,v-.01)
        call TriggerRegisterUnitStateEvent(HeroSkills_A0YG_Trig[id],(Je[(id)]),UNIT_STATE_MANA,GREATER_THAN,v+.01)
        call TriggerAddCondition(HeroSkills_A0YG_Trig[id],Condition(function HeroSkills_A0YG_SetMana_Func))
    endif
endfunction

function HeroSkills_A0YG_SetManaB_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:521")
    local real v=GetUnitState((Je[(id)]),UNIT_STATE_MANA)
    set HeroSkills_A0YG_V[id]=v
    set HeroSkills_A0YG_Trig[id]=CreateTrigger()
    call SetUnitState((Je[(id)]),UNIT_STATE_MANA,v)
    call TriggerRegisterUnitStateEvent(HeroSkills_A0YG_Trig[id],(Je[(id)]),UNIT_STATE_MANA,LESS_THAN,v-.01)
    call TriggerRegisterUnitStateEvent(HeroSkills_A0YG_Trig[id],(Je[(id)]),UNIT_STATE_MANA,GREATER_THAN,v+.01)
    call TriggerAddCondition(HeroSkills_A0YG_Trig[id],Condition(function HeroSkills_A0YG_SetMana_Func))
    set HeroSkills_A0YG_Bool[id]=false
endfunction

function HeroSkills_A0YG_SetManaB takes integer id returns nothing
    if not HeroSkills_A0YG_Bool[id]then
        set HeroSkills_A0YG_Bool[id]=true
        call DestroyTrigger(HeroSkills_A0YG_Trig[id])
        call TimerStart(NewTimer(id),0,false,function HeroSkills_A0YG_SetManaB_func)
    endif
endfunction

function HeroSkills_A0YG_ModifyManaRegen takes integer id,real v returns nothing
    set HeroSkills_A0YG_MPRegen[id]=HeroSkills_A0YG_MPRegen[id]+v
endfunction

function HeroSkills_A0YG_EndLoop takes nothing returns nothing
    local integer id=le
    call ReleaseTimer(HeroSkills_A0YG_Timer[id],"[TimerUtils]Error:522")
    call DestroyTrigger(HeroSkills_A0YG_Trig[id])
    set HeroSkills_A0YG_Trig[id]=null
    set HeroSkills_A0YG_Timer[id]=null
endfunction

function HeroSkills_A0YG_Loop takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer v
    if UnitAlive((Je[(id)]))then
        set v=R2I(HeroSkills_A0YG_V[id]*.01*HeroSkills_A0YG_AtkB[id]*(1+GetHeroState2((Je[(id)]),true)*.0005))
        if HeroSkills_A0YG_Atk[id]!=v then
            call ModifyUnitAttack((id),v-HeroSkills_A0YG_Atk[id])
            set HeroSkills_A0YG_Atk[id]=v
        endif
        if HeroSkills_A0YG_MPRegen[id]!=0 and not IsUnitPaused((Je[(id)]))then
            call HeroSkills_A0YG_SetMana(id,HeroSkills_A0YG_V[id]+HeroSkills_A0YG_MPRegen[id]*.1)
        endif
    elseif HeroSkills_A0YG_V[id]>0 and not(IsSleepRevive[(id)])then
        call HeroSkills_A0YG_SetMana(id,0)
        call ModifyUnitAttack((id),-HeroSkills_A0YG_Atk[id])
        set HeroSkills_A0YG_Atk[id]=0
    endif
endfunction

function HeroSkills_A0YG_onAttack takes nothing returns nothing
    call HeroSkills_A0YG_SetMana((pF_v),HeroSkills_A0YG_V[(pF_v)]+3)
endfunction

function HeroSkills_A0YG_onBeAttack takes nothing returns nothing
    local real v=(GetDamage()/ GetUnitState((MF),UNIT_STATE_MAX_LIFE))*$A*HeroSkills_A0YG_Lv[(pF)]
    call HeroSkills_A0YG_SetMana((pF),HeroSkills_A0YG_V[(pF)]+v)
endfunction

function HeroSkills_A0YG_Up takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    set HeroSkills_A0YG_Lv[id]=GetUnitAbilityLevel((Je[(id)]),'A0YG')
    set HeroSkills_A0YG_AtkB[id]=20*(HeroSkills_A0YG_Lv[id]*HeroSkills_A0YG_Lv[id])
endfunction

function Hero_EnterWorld_H01U takes nothing returns nothing
    local integer id=le
    set HeroSkills_A0YG_Lv[id]=1
    set HeroSkills_A0YG_Timer[id]=NewTimer(id)
    set HeroSkills_A0YG_MPRegen[id]=-1
    set HeroSkills_A0YG_V[id]=0
    set HeroSkills_A0YG_Trig[id]=CreateTrigger()
    set HeroSkills_A0YG_AtkB[id]=20
    call SetUnitState((Je[(id)]),UNIT_STATE_MANA,0)
    call TriggerRegisterUnitStateEvent(HeroSkills_A0YG_Trig[id],(Je[(id)]),UNIT_STATE_MANA,GREATER_THAN,.01)
    call TriggerAddCondition(HeroSkills_A0YG_Trig[id],Condition(function HeroSkills_A0YG_SetMana_Func))
    call TimerStart(HeroSkills_A0YG_Timer[id],.1,true,function HeroSkills_A0YG_Loop)
    call UnitAddPAttackTrig(id,function HeroSkills_A0YG_onAttack)
    call UnitAddBeDamagerTrigB(id,function HeroSkills_A0YG_onBeAttack)
    call UnitAddBeRemoveTrig(id,Filter(function HeroSkills_A0YG_EndLoop))
endfunction

function HeroSkills_A0YG_Init takes nothing returns nothing
    call RegisterHeroInitEvent('H01U',function Hero_EnterWorld_H01U)
    call RegisterHeroSkillEvent('A0YG',function HeroSkills_A0YG_Up)
endfunction

function HeroSkills_A0YH_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x
    local real y
    local unit u
    if Boss_Spell_data3[data]==0 then
        set Boss_Spell_data3[data]=1
        call SetUnitAnimationByIndex((Je[(id)]),5)
        call SetUnitTimeScale((Je[(id)]),2)
        call TimerStart(Boss_Spell_timer[data],.25,false,function HeroSkills_A0YH_Start)
    elseif Boss_Spell_data3[data]==1 then
        set Boss_Spell_data3[data]=2
        call PauseUnit((Je[(id)]),false)
        call QueueUnitAnimation((Je[(id)]),"stand")
        call zhv(Kc[id],50,.5)
        call DEv(Boss_Spell_data2[data],"Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl")
        call Lfv(Boss_Spell_data2[data],0,$FF,0,$FF)
        set x=Boss_Spell_X[data]
        set y=Boss_Spell_Y[data]
        call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$C8)then
                if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                    call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0052E252")))
                    call m1v(u,.5)
                endif
            endif
        endloop
        call TimerStart(Boss_Spell_timer[data],.05,true,function HeroSkills_A0YH_Start)
    else
        call Ltv(Boss_Spell_data2[data])
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:523")
        call Boss_Spell_deallocate(data)
        call Unit_Cancel_Counter(863,(id))
        set Boss_Spell_timer[data]=null
    endif
endfunction

function HeroSkills_A0YH_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel((Je[(id)]),GetSpellAbilityId())
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real z=GetPointZ(x,y)+100
    local real a=Atan2(GetUnitY(GetSpellTargetUnit())-y,GetUnitX(GetSpellTargetUnit())-x)
    set x=x+Cos(a)*125
    set y=y+Sin(a)*125
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=LIv("",x,y,z-GetPointZ(x,y),1.5,a,$B4)
    set Boss_Spell_data3[data]=0
    set Boss_Spell_V[data]=300*lv+(5+1.6*lv)*GetHeroAttack(id)
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=z
    call SetUnitFacing((Je[(id)]),a*bj_RADTODEG)
    call PauseUnit((Je[(id)]),true)
    call Unit_App_Counter(864,(id))
    call TimerStart(Boss_Spell_timer[data],0,false,function HeroSkills_A0YH_Start)
    call HeroSkills_A0YG_SetManaB(id)
endfunction

function HeroSkills_A0YH_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YH',function HeroSkills_A0YH_Actions)
endfunction

function HeroSkills_A0YI_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local integer i
    local real x
    local real y
    local unit u
    if Boss_Spell_data2[data]==0 then
        set Boss_Spell_data2[data]=1
        call SetUnitAnimationByIndex(Boss_Spell_unit1[data],4)
        call SetUnitTimeScale(Boss_Spell_unit1[data],2)
        call TimerStart(Boss_Spell_timer[data],.25,false,function HeroSkills_A0YI_Start)
    elseif Boss_Spell_data2[data]==1 then
        set Boss_Spell_data2[data]=2
        set Boss_Spell_data3[data]=0
        call PauseUnit(Boss_Spell_unit1[data],false)
        call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
        call TimerStart(Boss_Spell_timer[data],.1,true,function HeroSkills_A0YI_Start)
    else
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]+1
        set i=4
        set Boss_x[0]=Lx/ 4/(i-1)
        set Boss_y[0]=$80*(Boss_Spell_data3[data])
        set Boss_z[0]=Boss_Spell_Z[data]-Boss_x[0]*(i-1)/ 2
        loop
            exitwhen i==0
            set i=i-1
            set x=Boss_Spell_X[data]+Cos(Boss_z[0])*Boss_y[0]
            set y=Boss_Spell_Y[data]+Sin(Boss_z[0])*Boss_y[0]
            set Boss_z[0]=Boss_z[0]+Boss_x[0]
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y))
            call GroupEnumUnitsInRange(G,x,y,$96+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$96)and IsUnitInGroup(u,Boss_Spell_group1[data])==false then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call GroupAddUnit(Boss_Spell_group1[data],u)
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0052E252")))
                        call UnitAppBuff((GetUnitUserData((u))),'A0YK',$D006B)
                    endif
                endif
            endloop
        endloop
        if Boss_Spell_data3[data]>4 then
            call RecycleGroup(Boss_Spell_group1[data])
            call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:524")
            call Boss_Spell_deallocate(data)
            call Unit_Cancel_Counter(865,(id))
            set Boss_Spell_timer[data]=null
        endif
    endif
endfunction

function HeroSkills_A0YI_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    local integer lv=GetUnitAbilityLevel((Je[(id)]),GetSpellAbilityId())
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_unit1[data]=(Je[(id)])
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=0
    set Boss_Spell_V[data]=350*lv+(4+1.3*lv)*GetHeroAttack(id)
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=a
    call SetUnitFacing((Je[(id)]),a*bj_RADTODEG)
    call PauseUnit((Je[(id)]),true)
    call Unit_App_Counter(866,(id))
    call TimerStart(Boss_Spell_timer[data],0,false,function HeroSkills_A0YI_Start)
    call HeroSkills_A0YG_SetManaB(id)
endfunction

function HeroSkills_A0YI_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YI',function HeroSkills_A0YI_Actions)
endfunction

function HeroSkills_A0YJ_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t=Boss_Spell_data1[data]
    set Boss_Spell_data3[data]=Boss_Spell_data3[data]+1
    set Boss_x[0]=GetUnitX(Boss_Spell_unit1[data])
    set Boss_y[0]=GetUnitY(Boss_Spell_unit1[data])
    set Boss_z[1]=I2R(Boss_Spell_data3[data])/ I2R(Boss_Spell_data2[data])
    set Boss_x[1]=Boss_Spell_X[data]+(Boss_Spell_V[data]-Boss_Spell_X[data])*Boss_z[1]
    set Boss_y[1]=Boss_Spell_Y[data]+(Boss_Spell_Z[data]-Boss_Spell_Y[data])*Boss_z[1]
    if IsTerrainWalkable(Boss_x[1],Boss_y[1])then
        call SetUnitX(Boss_Spell_unit1[data],Boss_x[1])
        call SetUnitY(Boss_Spell_unit1[data],Boss_y[1])
    else
        set Boss_Spell_data3[data]=Boss_Spell_data2[data]
    endif
    call s__HuanYing_Refresh(t)
    call s__HuanYing_SetPointB(t,Boss_x[0],Boss_y[0],GetUnitFlyHeight(Boss_Spell_unit1[data]),GetUnitFacing(Boss_Spell_unit1[data]))
    if Boss_Spell_data2[data]==Boss_Spell_data3[data]then
        call IssueImmediateOrderById(Boss_Spell_unit1[data],$D0004)
    endif
endfunction

function HeroSkills_A0YJ_Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer t=Boss_Spell_data1[data]
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],1)
    call s__HuanYing_New(t,'e03O',$A,1,10.03125)
    set Boss_x[0]=Boss_Spell_X[data]
    set Boss_y[0]=Boss_Spell_Y[data]
    set Boss_x[1]=Boss_Spell_V[data]
    set Boss_y[1]=Boss_Spell_Z[data]
    set Boss_x[2]=(Boss_x[1]-Boss_x[0])
    set Boss_y[2]=(Boss_y[1]-Boss_y[0])
    set Boss_z[1]=SquareRoot(Boss_x[2]*Boss_x[2]+Boss_y[2]*Boss_y[2])
    if((Boss_z[1]<=100.))then
        set Boss_z[2]=.02
        set Boss_Spell_data2[data]=$A
    else
        set Boss_z[1]=(Boss_z[1]/ 20.)
        set Boss_z[2]=.015/ Pow(Boss_z[1]/ 5,.2)
        set Boss_Spell_data2[data]=R2I(Boss_z[1]+.8)
    endif
    set Boss_Spell_data3[data]=0
    call TimerStart(GetExpiredTimer(),Boss_z[2],true,function HeroSkills_A0YJ_Start)
endfunction

function HeroSkills_A0YJ_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),GetSpellAbilityId())
    local integer t
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tx=GetSpellTargetX()
    local real ty=GetSpellTargetY()
    local real r=(tx-x)*(tx-x)+(ty-y)*(ty-y)
    if r>0 then
        call SetUnitFacing(s,Atan2(ty-y,tx-x)*bj_RADTODEG)
    endif
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_unit2[data]=ConvertVersion(ModifyUnitDodge(id,45+lv*5))
    set Boss_Spell_data1[data]=id
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_V[data]=tx
    set Boss_Spell_Z[data]=ty
    call TimerStart(Boss_Spell_timer[data],.0,false,function HeroSkills_A0YJ_Channel)
    call HeroSkills_A0YG_SetManaB(id)
    set HeroSkills_A0YJ_Data[id]=data
    call GFv_v(s)
    set MB[id]=true
    set s=null
endfunction

function HeroSkills_A0YJ_EndCast takes nothing returns nothing
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer data=HeroSkills_A0YJ_Data[id]
    if data>0 then
        call s__HuanYing_Destroy((id))
        call DeUnitDodge(id,GetHandleId(Boss_Spell_unit2[data]))
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:525")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
        set HeroSkills_A0YJ_Data[id]=0
        set MB[id]=false
    endif
    set s=null
endfunction

function HeroSkills_A0YJ_Actions_002 takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),'A0YJ')
    if HeroSkills_A0YJ_Dodge[id]==0 then
        set HeroSkills_A0YJ_Dodge[id]=ModifyUnitDodge(id,3*lv)
    else
        call UnitDodgeChange(id,HeroSkills_A0YJ_Dodge[id],3*lv)
    endif
endfunction

function HeroSkills_A0YJ_Init takes nothing returns nothing
    call RegisterHeroSkillEvent('A0YJ',function HeroSkills_A0YJ_Actions_002)
    call RegisterSpellEffectEvent('A0YJ',function HeroSkills_A0YJ_Actions)
    call RegisterSpellEndCastEvent('A0YJ',function HeroSkills_A0YJ_EndCast)
endfunction

function HeroSkills_A0YL_B takes integer id returns nothing
    call UnitRemoveAbilityBY((Je[(id)]),'A0YM')
    call SetPlayerAbilityAvailable(GetOwningPlayer((Je[(id)])),'A0YL',true)
    call ReleaseTimer(HeroSkills_A0YL_Timer[id],"[TimerUtils]Error:526")
    set HeroSkills_A0YL_Timer[id]=null
endfunction

function HeroSkills_A0YL_A_func takes nothing returns nothing
    call HeroSkills_A0YL_B((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function HeroSkills_A0YL_A takes unit u returns nothing
    local integer id=(GetUnitUserData((u)))
    set HeroSkills_A0YL_Timer[id]=NewTimer(id)
    call SetPlayerAbilityAvailable(GetOwningPlayer(u),'A0YL',false)
    call UnitAddAbilityLevelBY(u,'A0YM',GetUnitAbilityLevel(u,'A0YL'))
    call TimerStart(HeroSkills_A0YL_Timer[id],3,false,function HeroSkills_A0YL_A_func)
endfunction

function HeroSkills_A0YL_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local real tx
    local real ty
    local real a
    local unit u
    if UnitAlive(Boss_Spell_unit1[data])then
        if Boss_Spell_bool[data]then
            if UnitAlive(Boss_Spell_unit2[data])then
                set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit2[data])
                set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit2[data])
            else
                set Boss_Spell_bool[data]=false
            endif
        endif
        set x=GetUnitX(Boss_Spell_unit1[data])
        set y=GetUnitY(Boss_Spell_unit1[data])
        set tx=Boss_Spell_X[data]-x
        set ty=Boss_Spell_Y[data]-y
        set a=SquareRoot(tx*tx+ty*ty)
        if a<=60 then
            set x=Boss_Spell_X[data]
            set y=Boss_Spell_Y[data]
            call SetUnitX(Boss_Spell_unit1[data],x)
            call SetUnitY(Boss_Spell_unit1[data],y)
            call DestroyEffect(AddSpecialEffect("ancientexplode.mdl",x,y))
            call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$FA)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0052E252")))
                        call m1v(u,.5)
                    endif
                endif
            endloop
            call HeroSkills_A0YL_A(Boss_Spell_unit1[data])
            call PauseUnit(Boss_Spell_unit1[data],false)
            call Boss_Spell_deallocate(data)
            call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:527")
            set Boss_Spell_timer[data]=null
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_unit2[data]=null
        else
            set tx=tx/ a
            set ty=ty/ a
            set a=Atan2(ty,tx)
            call CreatePhantom('e03O',1,x,y,a*bj_RADTODEG)
            call SetUnitFacing(Boss_Spell_unit1[data],a*bj_RADTODEG)
            set x=x+tx*60
            set y=y+ty*60
            call SetUnitX(Boss_Spell_unit1[data],x)
            call SetUnitY(Boss_Spell_unit1[data],y)
        endif
    else
        call PauseUnit(Boss_Spell_unit1[data],false)
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:528")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function HeroSkills_A0YL_Channel takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],1)
    call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A0YL_Start)
endfunction

function HeroSkills_A0YL_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),GetSpellAbilityId())
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_bool[data]=true
    set Boss_Spell_X[data]=GetUnitX(Boss_Spell_unit2[data])
    set Boss_Spell_Y[data]=GetUnitY(Boss_Spell_unit2[data])
    set Boss_Spell_V[data]=$5DC*lv+(8+1.6*lv)*GetHeroAttack(id)
    call TimerStart(Boss_Spell_timer[data],.0,false,function HeroSkills_A0YL_Channel)
    call PauseUnit(s,true)
    call HeroSkills_A0YG_SetManaB(id)
    set s=null
endfunction

function HeroSkills_A0YM_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local real tx
    local real ty
    local unit u
    if Boss_Spell_data2[data]==0 then
        set Boss_Spell_data2[data]=1
        call SetUnitAnimation(Boss_Spell_unit1[data],"spell slam one")
        call SetUnitTimeScale(Boss_Spell_unit1[data],2)
        call TimerStart(Boss_Spell_timer[data],.4,false,function HeroSkills_A0YM_Start)
    else
        call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
        set x=Boss_Spell_X[data]
        set y=Boss_Spell_Y[data]
        call Ltv(LAv("twister slash.mdx",x,y,1.))
        call GroupEnumUnitsInRange(G,x,y,$B4+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$B4)then
                if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                    set tx=GetUnitX(u)
                    set ty=GetUnitY(u)
                    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",tx,ty))
                    call FloatedTargetBYStun2(u,$BB8,true)
                    call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0052E252")))
                endif
            endif
        endloop
        call HeroSkills_A0YL_B(Boss_Spell_data1[data])
        call PauseUnit(Boss_Spell_unit1[data],false)
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:529")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
    endif
endfunction

function HeroSkills_A0YM_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),GetSpellAbilityId())
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real a=GetUnitFacing(s)*bj_DEGTORAD
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_bool[data]=true
    set Boss_Spell_V[data]=999*lv+(3+1.1*lv)*GetHeroAttack(id)
    set Boss_Spell_X[data]=x+Cos(a)*64
    set Boss_Spell_Y[data]=y+Sin(a)*64
    call TimerStart(Boss_Spell_timer[data],.0,false,function HeroSkills_A0YM_Start)
    call PauseUnit(s,true)
    call PauseTimer(HeroSkills_A0YL_Timer[id])
    set s=null
endfunction

function HeroSkills_A0YL_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YL',function HeroSkills_A0YL_Actions)
    call RegisterSpellEffectEvent('A0YM',function HeroSkills_A0YM_Actions)
endfunction

function HeroSkills_A0YO_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i
    local real x
    local real y
    local real tx
    local real ty
    local unit u
    local unit u2
    if UnitAlive(Boss_Spell_unit1[data])then
        if Boss_Spell_data2[data]==0 then
            set Boss_Spell_data2[data]=1
            call SetUnitAnimationByIndex(Boss_Spell_unit1[data],4)
            call SetUnitTimeScale(Boss_Spell_unit1[data],2.5)
            call TimerStart(Boss_Spell_timer[data],.15,true,function HeroSkills_A0YO_Start)
        elseif Boss_Spell_data2[data]==1 then
            set x=GetUnitX(Boss_Spell_unit2[data])
            set y=GetUnitY(Boss_Spell_unit2[data])
            call SetUnitX(Boss_Spell_unit1[data],x)
            call SetUnitY(Boss_Spell_unit1[data],y)
            call Ltv(LAv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y,1.5))
            call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$FA)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0052E252")))
                    endif
                endif
            endloop
            if Boss_Spell_Z[data]>1 then
                set Boss_Spell_Z[data]=Boss_Spell_Z[data]-1
                set i=0
                set u2=null
                call GroupEnumUnitsInRange(G,x,y,600+75,null)
                call GroupRemoveUnit(G,Boss_Spell_unit2[data])
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,600)then
                        if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                            set i=i+1
                            if GetRandomInt(1,i)==1 then
                                set u2=u
                            endif
                        endif
                    endif
                endloop
                if u2==null then
                    set Boss_Spell_data2[data]=2
                    call SetUnitFacing(Boss_Spell_unit1[data],Atan2(Boss_Spell_Y[data]-y,Boss_Spell_X[data]-x)*bj_RADTODEG)
                else
                    set Boss_Spell_unit2[data]=u2
                    set Boss_Spell_X[data]=x
                    set Boss_Spell_Y[data]=y
                    call SetUnitAnimationByIndex(Boss_Spell_unit1[data],4)
                    call SetUnitFacing(Boss_Spell_unit1[data],Atan2(GetUnitY(u2)-y,GetUnitX(u2)-x)*bj_RADTODEG)
                endif
                set u2=null
            else
                set Boss_Spell_bool[data]=true
            endif
        elseif Boss_Spell_data2[data]==2 then
            if UnitAlive(Boss_Spell_unit2[data])then
                set i=1
                set u2=Boss_Spell_unit2[data]
            else
                set i=0
                set u2=null
            endif
            set x=Boss_Spell_X[data]
            set y=Boss_Spell_Y[data]
            call SetUnitX(Boss_Spell_unit1[data],x)
            call SetUnitY(Boss_Spell_unit1[data],y)
            call GroupEnumUnitsInRange(G,x,y,600+75,null)
            call GroupRemoveUnit(G,Boss_Spell_unit2[data])
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        set i=i+1
                        if GetRandomInt(1,i)==1 then
                            set u2=u
                        endif
                    endif
                endif
            endloop
            if u2==null then
                set Boss_Spell_bool[data]=true
            else
                set Boss_Spell_data2[data]=1
                set Boss_Spell_unit2[data]=u2
                call SetUnitAnimationByIndex(Boss_Spell_unit1[data],4)
                call SetUnitFacing(Boss_Spell_unit1[data],Atan2(GetUnitY(u2)-y,GetUnitX(u2)-x)*bj_RADTODEG)
            endif
            set u2=null
        endif
    else
        set Boss_Spell_bool[data]=true
    endif
    if Boss_Spell_bool[data]then
        set MB[Boss_Spell_data1[data]]=false
        call DeUnitAdef(Boss_Spell_data1[data],Boss_Spell_data3[data])
        call DestroyEffect(Boss_Spell_eff[data])
        call PauseUnit(Boss_Spell_unit1[data],false)
        call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:530")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
        set Boss_Spell_eff[data]=null
    endif
endfunction

function HeroSkills_A0YO_Actions takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    local integer lv=GetUnitAbilityLevel((Je[(id)]),GetSpellAbilityId())
    local real x=GetUnitX(GetSpellTargetUnit())
    local real y=GetUnitY(GetSpellTargetUnit())
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_eff[data]=AddSpecialEffectTarget("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",s,"right foot")
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=0
    set Boss_Spell_data3[data]=ModifyUnitAdef(id,90)
    set Boss_Spell_bool[data]=false
    set Boss_Spell_V[data]=$7D0*lv+(5+1.2*lv)*GetHeroAttack(id)
    set Boss_Spell_X[data]=GetUnitX(s)
    set Boss_Spell_Y[data]=GetUnitY(s)
    set Boss_Spell_Z[data]=lv
    call GFv_v(s)
    set MB[id]=true
    call PauseUnit(s,true)
    call SetUnitFacing(Boss_Spell_unit1[data],Atan2(y-Boss_Spell_Y[data],x-Boss_Spell_X[data])*bj_RADTODEG)
    call TimerStart(Boss_Spell_timer[data],.0,false,function HeroSkills_A0YO_Start)
    call HeroSkills_A0YG_SetManaB(id)
    set s=null
endfunction

function HeroSkills_A0YO_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YO',function HeroSkills_A0YO_Actions)
endfunction

function HeroSkills_A0YN_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local real r
    local unit u
    if Boss_Spell_data1[data]==1 then
        call zhv((GetPlayerId((GetOwningPlayer(Boss_Spell_unit1[data])))),100,.5)
        call SetUnitNotSeckill(Boss_Spell_data4[data],false)
        call DeUnitAdef(Boss_Spell_data4[data],Boss_Spell_data5[data])
        call PauseUnit(Boss_Spell_unit1[data],false)
        call SetUnitInvulnerable(Boss_Spell_unit1[data],false)
        call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
        if Boss_Spell_bool[data]then
            set x=GetUnitX(Boss_Spell_unit2[data])
            set y=GetUnitY(Boss_Spell_unit2[data])
            set r=GetUnitState(Boss_Spell_unit1[data],UNIT_STATE_MANA)
            if r>=100 and BrokenShield_A(Boss_Spell_unit2[data])then
                call HeroSkills_A0YG_SetMana((GetUnitUserData((Boss_Spell_unit1[data]))),r*.5)
            endif
            call DestroyEffect(AddSpecialEffect("earthslam.mdl",x,y))
            call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$FA)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0052E252")))
                    endif
                endif
            endloop
            set Boss_Spell_data1[data]=3
            call TimerStart(Boss_Spell_timer[data],.2,false,function HeroSkills_A0YN_Start)
        else
            set Boss_Spell_data1[data]=2
            call TimerStart(Boss_Spell_timer[data],.03125,true,function HeroSkills_A0YN_Start)
        endif
    elseif Boss_Spell_data1[data]==2 then
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
        set x=GetUnitX(Boss_Spell_unit2[data])+Boss_Spell_X[data]
        set y=GetUnitY(Boss_Spell_unit2[data])+Boss_Spell_Y[data]
        if IsTerrainWalkable(x,y)then
            call SetUnitPosition(Boss_Spell_unit2[data],x,y)
        else
            set Boss_Spell_data2[data]=0
        endif
        if Boss_Spell_data2[data]==0 then
            call zHv(100,1,x,y,400)
            call Ltv(LAv("earthslam.mdl",x,y,1.5))
            call GroupEnumUnitsInRange(G,x,y,400+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,400)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c0052E252")))
                    endif
                endif
            endloop
            call RecycleGroup(Boss_Spell_group1[data])
            set Boss_Spell_group1[data]=null
            set Boss_Spell_data1[data]=3
            call TimerStart(Boss_Spell_timer[data],.2,false,function HeroSkills_A0YN_Start)
        else
            if ModuloInteger(Boss_Spell_data2[data],2)==0 then
                call Ltv(Lfv(LIv("freezingring.mdl",x,y,100,1,Boss_Spell_Z[data],0),0,0,0,$FF))
            endif
            call GroupEnumUnitsInRange(G,x,y,$96+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,$96)and not IsUnitInGroup(u,Boss_Spell_group1[data])then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[data])then
                        call GroupAddUnit(Boss_Spell_group1[data],u)
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data]*.3125)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    endif
                endif
            endloop
        endif
    else
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:531")
        set Boss_Spell_timer[data]=null
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_unit2[data]=null
    endif
endfunction

function HeroSkills_A0YN_Actions takes integer data,real a returns nothing
    local integer id=(GetUnitUserData((Boss_Spell_unit1[data])))
    local integer t=(GetUnitUserData((Boss_Spell_unit2[data])))
    set Boss_Spell_bool[data]=(IsUnitType((Boss_Spell_unit2[data]),UNIT_TYPE_GIANT))or GetUnitMoveSpeed(Boss_Spell_unit2[data])==0 or(PB[(t)])or MB[t]
    set Boss_Spell_data1[data]=1
    if not Boss_Spell_bool[data]then
        set Boss_Spell_group1[data]=NewGroup()
        set Boss_Spell_data2[data]=20
        set Boss_Spell_X[data]=Cos(a)*64
        set Boss_Spell_Y[data]=Sin(a)*64
        set Boss_Spell_Z[data]=a
    endif
    call SetUnitTimeScale(Boss_Spell_unit1[data],1)
    call TimerStart(Boss_Spell_timer[data],.2,false,function HeroSkills_A0YN_Start)
    call HeroSkills_A0YG_SetMana(id,HeroSkills_A0YG_V[id]-50)
endfunction

function HeroSkills_A0YN_Channel_002 takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=GetUnitX(Boss_Spell_unit2[data])-GetUnitX(Boss_Spell_unit1[data])
    local real y=GetUnitY(Boss_Spell_unit2[data])-GetUnitY(Boss_Spell_unit1[data])
    local real a=Atan2(y,x)
    call SetUnitFacing(Boss_Spell_unit1[data],a*bj_RADTODEG)
    if Boss_Spell_data1[data]==0 then
        set Boss_Spell_data1[data]=1
        set Boss_Spell_data2[data]=$A
        call SetUnitAnimationByIndex(Boss_Spell_unit1[data],4)
        call TimerStart(Boss_Spell_timer[data],.02,true,function HeroSkills_A0YN_Channel_002)
    else
        if IsUnitInRange(Boss_Spell_unit2[data],Boss_Spell_unit1[data],$C8)then
            set Boss_Spell_data3[data]=Boss_Spell_data3[data]+1
            if Boss_Spell_data1[data]==1 then
                set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
                if Boss_Spell_data2[data]==0 then
                    set Boss_Spell_data1[data]=2
                    set Boss_Spell_data2[data]=$A
                    call SetUnitTimeScale(Boss_Spell_unit1[data],.5)
                    call DestroyEffect(AddSpecialEffectTarget("supershinythingy.mdl",Boss_Spell_unit1[data],"right foot"))
                endif
            else
                set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
                if Boss_Spell_data2[data]==0 then
                    set Boss_Spell_data2[data]=$A
                    call SetUnitTimeScale(Boss_Spell_unit1[data],0)
                    call DestroyEffect(AddSpecialEffectTarget("supershinythingy.mdl",Boss_Spell_unit1[data],"right foot"))
                endif
            endif
            if Boss_Spell_data3[data]==25 then
                call HeroSkills_A0YN_Actions(data,a)
            endif
        else
            call UnitResetCooldownById(Boss_Spell_unit1[data],'A0YN')
            call PauseUnit(Boss_Spell_unit1[data],false)
            call SetUnitNotSeckill(Boss_Spell_data4[data],false)
            call DeUnitAdef(Boss_Spell_data4[data],Boss_Spell_data5[data])
            call QueueUnitAnimation(Boss_Spell_unit1[data],"stand")
            call SetUnitTimeScale(Boss_Spell_unit1[data],1)
            call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:532")
            set Boss_Spell_timer[data]=null
            set Boss_Spell_unit1[data]=null
            set Boss_Spell_unit2[data]=null
        endif
    endif
endfunction

function HeroSkills_A0YN_Channel takes nothing returns nothing
    local integer data=Boss_Spell_allocate()
    local unit s=GetTriggerUnit()
    local integer id=(GetUnitUserData((s)))
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_unit1[data]=s
    set Boss_Spell_unit2[data]=GetSpellTargetUnit()
    set Boss_Spell_data1[data]=0
    set Boss_Spell_data3[data]=0
    set Boss_Spell_V[data]=GetHeroAttack(id)*75
    set Boss_Spell_data4[data]=id
    set Boss_Spell_data5[data]=ModifyUnitAdef(id,100)
    call PauseUnit(Boss_Spell_unit1[data],true)
    call SetUnitNotSeckill(id,true)
    call TimerStart(Boss_Spell_timer[data],.0,false,function HeroSkills_A0YN_Channel_002)
    set s=null
endfunction

function HeroSkills_A0YN_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0YN',function HeroSkills_A0YN_Channel)
endfunction

function Hero_H01U_Init takes nothing returns nothing
    call HeroSkills_A0YG_Init()
    call RegisterSpellEffectEvent('A0YH',function HeroSkills_A0YH_Actions)
    call RegisterSpellEffectEvent('A0YI',function HeroSkills_A0YI_Actions)
    call HeroSkills_A0YJ_Init()
    call HeroSkills_A0YL_Init()
    call RegisterSpellEffectEvent('A0YO',function HeroSkills_A0YO_Actions)
    call RegisterSpellEffectEvent('A0YN',function HeroSkills_A0YN_Channel)
endfunction

function Hero_onInit takes nothing returns nothing
    call Hero_H000_Init()
    call Hero_H001_Init()
    call Hero_H003_Init()
    call Hero_H004_Init()
    call Hero_H007_Init()
    call Hero_H009_Init()
    call Hero_H008_Init()
    call Hero_H00H_Init()
    call Hero_Hmkg_Init()
    call Hero_H00J_Init()
    call Hero_Hblm_Init()
    call Hero_H01I_Init()
    call Hero_H00E_Init()
    call Hero_H005_Init()
    call Hero_H002_Init()
    call Hero_H006_Init()
    call Hero_H01N_Init()
    call Hero_H01H_Init()
    call Hero_H015_Init()
    call Hero_H00Z_Init()
    call Hero_H01U_Init()
    call Hero_H01V_Init()
    call Hero_H01W_Init()
    call Hero_H01X_Init()
    call Hero_H01Y_Init()
endfunction

function s__formula_new takes integer id returns integer
    local integer this=s__formula_Index
    set s__formula_wG[this]=malloc()
    set s__formula_WG[this]=id
    set s__formula_yG[this]=0
    set s__formula_YG[this]=0
    set s__formula_Index=s__formula_Index+1
    return this
endfunction

function s__formula_add takes integer this,integer id,integer c returns integer
    local integer root
    local integer i
    call SaveInteger(BYHT,s__formula_wG[this],2*s__formula_yG[this],id)
    call SaveInteger(BYHT,s__formula_wG[this],2*s__formula_yG[this]+1,c)
    set s__formula_yG[this]=s__formula_yG[this]+1
    set s__formula_YG[this]=s__formula_YG[this]+c
    if HaveSavedInteger(BYHT,ItemCombine__oh,id)then
        set root=LoadInteger(BYHT,ItemCombine__oh,id)
    else
        set root=malloc()
        call SaveInteger(BYHT,ItemCombine__oh,id,root)
    endif
    set i=LoadInteger(BYHT,root,0)+1
    call SaveInteger(BYHT,root,0,i)
    call SaveInteger(BYHT,root,i,this)
    call SaveInteger(BYHT,root,-i,c)
    return this
endfunction

function ItemCombine_NewF takes integer id returns integer
    return s__formula_new(id)
endfunction

function ItemCombine_AddF takes integer t,integer id,integer c returns integer
    return s__formula_add(t,id,c)
endfunction

function ItemCombine__tTv takes unit u,integer id returns nothing
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local item i=CreateItemG(id,x,y)
    call SetItemUserData(i,GetPlayerId(GetOwningPlayer(u))+1)
    call UnitAddItem(u,i)
    call thv(GetItemName(i)+"|c00ffff80Forging success!",x,y,GetUnitFlyHeight(u)+25,.0275,.02,bj_PI/ 2,3.5,4)
    set i=null
endfunction

function ItemCombine__Action_c_end takes integer dlog returns nothing
    local integer c=LoadInteger(BYHT,s__Dialog_vessel[dlog],100)
    local integer id=LoadInteger(BYHT,c,0)
    local integer p=GetHandleId(GetOwningPlayer((Je[(id)])))
    call s__Dialog_deallocate(dlog)
    call free(c)
    call AdjustPlayerStateG(ConvertVersion(p),PLAYER_STATE_RESOURCE_GOLD,GetItemGold('I00L'))
    call PauseUnit((Je[(id)]),false)
    call PauseUnit((Je[YI[(id)]]),false)
endfunction

function ItemCombine__Action_c_3 takes nothing returns nothing
    local integer dlog=(LoadInteger(BYHT,system_Dialog__fO,GetHandleId(GetClickedDialog())))
    local integer b=GetButtonData(0)
    local integer f
    local integer c=LoadInteger(BYHT,s__Dialog_vessel[dlog],100)
    local integer id=LoadInteger(BYHT,c,0)
    local integer p=GetHandleId(GetTriggerPlayer())
    local integer i=s__Button_id[b]
    local integer index
    if s__Button_key[b]==512 then
        call TocCloseTheDialog(dlog,ConvertVersion(p),false)
        call s__Dialog_deallocate(dlog)
        call free(c)
        call PauseUnit((Je[(id)]),false)
        call PauseUnit((Je[YI[(id)]]),false)
        if i==1 then
            set index=R2I(GetItemGold('I00L')*.25)
        elseif i==2 then
            set index=1
        elseif i==3 then
            set index=-R2I(GetItemGold('I00L')*.25)
        else
            set index=R2I(GetItemGold('I00L')*.5)
        endif
        call AdjustPlayerStateG(ConvertVersion(p),PLAYER_STATE_RESOURCE_GOLD,index)
    else
        set index=i/ 100
        set i=(i-index*100)+1
        if i>index then
            set i=1
        endif
        set s__Button_id[b]=index*100+i
        set index=0
        set i=0
        loop
            set i=index+1
            exitwhen i>8
            set f=LoadInteger(BYHT,c,i)
            set b=GetDialogButtonByIndex(dlog,index)
            if f!=null then
                set s__Button_id[b]=f
                call SetDialogButtonText(dlog,index,"|c00c0c0c0[|r"+GetObjectName(s__formula_WG[f])+"|c00c0c0c0]|r",s__Button_key[b])
                call DialogButtonShow(dlog,index,true)
            else
                call DialogButtonShow(dlog,index,false)
            endif
            set index=i
        endloop
        call DisplayDialog(dlog,ConvertVersion(p),60,($C),null)
    endif
endfunction

function ItemCombine__Action_c_2 takes nothing returns nothing
    local integer dlog=(LoadInteger(BYHT,system_Dialog__fO,GetHandleId(GetClickedDialog())))
    local integer b=GetButtonData(0)
    local integer f=s__Button_id[b]
    local integer c=LoadInteger(BYHT,s__Dialog_vessel[dlog],100)
    local integer id=LoadInteger(BYHT,c,0)
    local integer p=GetHandleId(GetTriggerPlayer())
    local integer pid=GetPlayerId(GetTriggerPlayer())+1
    local item array SoldItem
    local integer array SoldItemid
    local integer i
    local integer j
    local integer index=0
    local integer index2
    local integer index3
    local integer dEv
    local integer vHe
    loop
        exitwhen not HaveSavedInteger(BYHT,c,$3E8+index)
        set SoldItem[index]=ConvertVersion(LoadInteger(BYHT2,c,$3E8+index))
        set SoldItemid[index]=LoadInteger(BYHT,c,$3E8+index)
        set index=index+1
    endloop
    set i=s__formula_yG[f]
    loop
        set i=i-1
        set dEv=LoadInteger(BYHT,s__formula_wG[f],2*i)
        set vHe=IMaxBJ(1,LoadInteger(BYHT,s__formula_wG[f],2*i+1))
        set index3=0
        set j=index
        loop
            exitwhen j==0
            set j=j-1
            if SoldItemid[j]==dEv then
                if LoadBoolean(BYHT,Item_save_Charges,dEv)then
                    set index2=GetHandleId(SoldItem[j])*$A
                    set index3=LoadInteger(BYHT,Item_save_Charges,index2+pid)-vHe
                    if index3>0 then
                        call SaveInteger(BYHT,Item_save_Charges,index2+pid,index3)
                        call SetItemChargesG(SoldItem[j],GetItemChargesG(SoldItem[j])-vHe)
                        exitwhen true
                    else
                        call SaveInteger(BYHT,Item_save_Charges,index2+pid,0)
                        call SetItemChargesG(SoldItem[j],GetItemChargesG(SoldItem[j])-(vHe+index3))
                        set vHe=-index3
                        set index3=LoadInteger(BYHT,Item_save_Charges,index2)-vHe
                        if index3>0 then
                            call SaveInteger(BYHT,Item_save_Charges,index2,index3)
                            call SetItemChargesG(SoldItem[j],GetItemChargesG(SoldItem[j])-vHe)
                            exitwhen true
                        else
                            call SaveInteger(BYHT,Item_save_Charges,index2,0)
                            set vHe=GetItemChargesG(SoldItem[j])-(vHe+index3)
                            if vHe>0 then
                                call SetItemChargesG(SoldItem[j],vHe)
                            else
                                call RemoveItemG(SoldItem[j])
                            endif
                            set SoldItemid[j]=0
                            set vHe=-index3
                        endif
                    endif
                else
                    set index3=IMaxBJ(GetItemChargesG(SoldItem[j]),1)-vHe
                    if index3>0 then
                        call SetItemChargesG(SoldItem[j],index3)
                        exitwhen true
                    else
                        call RemoveItemG(SoldItem[j])
                        set SoldItemid[j]=0
                        set vHe=-index3
                    endif
                endif
            endif
            exitwhen vHe==0
        endloop
        exitwhen i==0
    endloop
    call ItemCombine__tTv((Je[(id)]),s__formula_WG[f])
    call SetUnitAnimation(ConvertVersion(LoadInteger(BYHT2,c,0)),"attack slam")
    call QueueUnitAnimation(ConvertVersion(LoadInteger(BYHT2,c,0)),"stand")
    call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",(Je[(id)]),"origin"))
    call PauseUnit((Je[(id)]),false)
    call PauseUnit((Je[YI[(id)]]),false)
    call TocCloseTheDialog(dlog,ConvertVersion(p),false)
    call s__Dialog_deallocate(dlog)
    call free(c)
endfunction

function ItemCombine__Action_c takes nothing returns boolean
    local integer f
    local integer yav
    local unit u
    local integer i
    local integer j
    local integer tC
    local integer dEv
    local integer vHe
    local integer index
    local integer index2=0
    local integer index3
    local item array SoldItem
    local integer array SoldItemid
    local integer array SoldItemid2
    local integer root
    local integer pid
    local boolean b
    local integer dlog=0
    local integer c
    set u=GetBuyingUnit()
    set yav=GetUnitUserData(u)
    if not nC[yav]then
        call ttv(GetSellingUnit(),"我不是随便的人!")
        call AdjustPlayerStateG(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD,GetItemGold(GetItemTypeId(GetSoldItem())))
        set u=null
        return false
    endif
    set pid=Kc[yav]+1
    set b=Isaseniorbackpack(yav)
    set root=malloc()
    set index=0
    set j=0
    loop
        set SoldItem[index]=UnitItemInSlot(u,j)
        set SoldItemid[index]=GetItemTypeIdG(SoldItem[index])
        if SoldItem[index]!=null and HaveSavedInteger(BYHT,ItemCombine__oh,SoldItemid[index])then
            if LoadBoolean(BYHT,Item_save_Charges,SoldItemid[index])then
                call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A)+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A+pid))
            else
                call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+IMaxBJ(GetItemChargesG(SoldItem[index]),1))
            endif
            set index=index+1
        endif
        set j=j+1
        exitwhen j==6
    endloop
    set j=0
    loop
        set SoldItem[index]=UnitItemInSlot((Je[YI[(yav)]]),j)
        set SoldItemid[index]=GetItemTypeIdG(SoldItem[index])
        if SoldItem[index]!=null and HaveSavedInteger(BYHT,ItemCombine__oh,SoldItemid[index])then
            if LoadBoolean(BYHT,Item_save_Charges,SoldItemid[index])then
                call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A)+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A+pid))
            else
                call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+IMaxBJ(GetItemChargesG(SoldItem[index]),1))
            endif
            set index=index+1
        endif
        set j=j+1
        exitwhen j==6
    endloop
    set j=0
    loop
        set SoldItem[index]=ConvertVersion(LoadInteger(BYHT2,zI[yav],j))
        set SoldItemid[index]=GetItemTypeIdG(SoldItem[index])
        if SoldItem[index]!=null and HaveSavedInteger(BYHT,ItemCombine__oh,SoldItemid[index])then
            if LoadBoolean(BYHT,Item_save_Charges,SoldItemid[index])then
                call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A)+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A+pid))
            else
                call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+IMaxBJ(GetItemChargesG(SoldItem[index]),1))
            endif
            set index=index+1
        endif
        set j=j+1
        exitwhen j==6
    endloop
    if b then
        loop
            set SoldItem[index]=ConvertVersion(LoadInteger(BYHT2,zI[yav],j))
            set SoldItemid[index]=GetItemTypeIdG(SoldItem[index])
            if SoldItem[index]!=null and HaveSavedInteger(BYHT,ItemCombine__oh,SoldItemid[index])then
                if LoadBoolean(BYHT,Item_save_Charges,SoldItemid[index])then
                    call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A)+LoadInteger(BYHT,Item_save_Charges,GetHandleId(SoldItem[index])*$A+pid))
                else
                    call SaveInteger(BYHT,root,SoldItemid[index],LoadInteger(BYHT,root,SoldItemid[index])+IMaxBJ(GetItemChargesG(SoldItem[index]),1))
                endif
                set index=index+1
            endif
            set j=j+1
            exitwhen j==$C
        endloop
    endif
    set SoldItem[index]=null
    set i=index
    loop
        exitwhen i==0
        set i=i-1
        set dEv=LoadInteger(BYHT,ItemCombine__oh,SoldItemid[i])
        set j=LoadInteger(BYHT,dEv,0)
        loop
            exitwhen j==0
            set f=LoadInteger(BYHT,dEv,j)
            if(not HaveSavedInteger(BYHT,root,f))and LoadInteger(BYHT,root,SoldItemid[i])>=LoadInteger(BYHT,dEv,-j)then
                set SoldItemid2[index2]=f
                call SaveInteger(BYHT,root,f,0)
                set index2=index2+1
            endif
            set j=j-1
        endloop
    endloop
    loop
        exitwhen index2==0
        set index2=index2-1
        set f=SoldItemid2[index2]
        set i=s__formula_yG[f]
        loop
            exitwhen i==0
            set i=i-1
            set dEv=LoadInteger(BYHT,s__formula_wG[f],2*i)
            set vHe=IMaxBJ(1,LoadInteger(BYHT,s__formula_wG[f],2*i+1))
            if(HaveSavedInteger(BYHT,root,dEv))and(LoadInteger(BYHT,root,dEv)>=vHe)then
            else
                set i=99
                exitwhen true
            endif
        endloop
        if i==0 then
            if dlog==null then
                set dlog=NewDialog()
                set c=malloc()
                call SaveInteger(BYHT,s__Dialog_vessel[dlog],100,c)
                call SaveInteger(BYHT,c,0,yav)
                call SaveInteger(BYHT2,c,0,GetHandleId(GetSellingUnit()))
                set index3=0
            endif
            set index3=index3+1
            call SaveInteger(BYHT,c,index3,f)
        endif
    endloop
    if dlog!=null then
        set j=index
        loop
            exitwhen j==0
            set j=j-1
            call SaveInteger(BYHT,c,$3E8+j,SoldItemid[j])
            call SaveInteger(BYHT2,c,$3E8+j,GetHandleId(SoldItem[j]))
        endloop
        set i=0
        loop
            set i=i+1
            exitwhen i>8 or i>index3
            set f=LoadInteger(BYHT,c,i)
            set s__Button_id[DialogAddButtone(dlog,"|c00c0c0c0[|r"+GetObjectName(s__formula_WG[f])+"|c00c0c0c0]|r",i+48)]=f
        endloop
        if index3>8 then
            set j=DialogAddButtone(dlog,"|c00c0c0c0Next page|r",57)
            set s__Button_id[(j)]=index3*100+1
            set s__Button_c[(j)]=Condition(function ItemCombine__Action_c_3)
        endif
        if GetRandomInt(0,3)==0 then
            set j=DialogAddButtone(dlog,"|c00c0c0c0[ESC]|r Just to see oh",512)
            set s__Button_id[(j)]=1
        elseif GetRandomInt(0,2)==0 then
            set j=DialogAddButtone(dlog,"|c00c0c0c0[ESC]|r Will not refund the hard point",512)
            set s__Button_id[(j)]=2
        elseif GetRandomInt(0,1)==0 then
            set j=DialogAddButtone(dlog,"|c00c0c0c0[ESC]|r Can not see ah",512)
            set s__Button_id[(j)]=3
        else
            set j=DialogAddButtone(dlog,"|c00c0c0c0[ESC]|r cancel",512)
            set s__Button_id[(j)]=4
        endif
        set s__Button_c[(j)]=Condition(function ItemCombine__Action_c_3)
        set s__Dialog_text[(dlog)]=("Craftable items")
        call TransferDialogAddAtion(dlog,function ItemCombine__Action_c_2)
        call DisplayDialog(dlog,GetOwningPlayer(u),60,($C),null)
        call PauseUnit((Je[(yav)]),true)
        call PauseUnit((Je[YI[(yav)]]),true)
    else
        call tSv(GetOwningPlayer(u),"Not enough materials!")
        call AdjustPlayerStateG(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD,GetItemGold(GetItemTypeId(GetSoldItem())))
        call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Other\\Silence\\SilenceAreaBirth.mdl",u,"origin",1.25)
    endif
    loop
        exitwhen index==0
        set index=index-1
        set SoldItem[index]=null
    endloop
    call free(root)
    set u=null
    call RemoveItemG(GetSoldItem())
    return false
endfunction

function Display takes nothing returns boolean
    local item ManipulatedItem=GetManipulatedItem()
    local integer root
    local integer f
    local string distext
    local integer pid
    local integer id
    local integer max
    local integer i
    local integer end
    local integer j
    local integer material
    if GetItemType(ManipulatedItem)==ITEM_TYPE_CAMPAIGN then
        set id=GetItemTypeIdG(ManipulatedItem)
        set root=LoadInteger(BYHT,ItemCombine__oh,id)
        if root!=0 then
            set pid=GetPlayerId(GetOwningPlayer(GetTriggerUnit()))
            set max=LoadInteger(BYHT,root,0)
            if GetLocalPlayer()==P[pid]then
                call ClearTextMessages()
            endif
            if max>8 then
                if ItemCombine__eh[pid]==id then
                    set ItemCombine__xh[pid]=ItemCombine__xh[pid]+1
                else
                    set ItemCombine__eh[pid]=id
                    set ItemCombine__xh[pid]=0
                endif
                call DisplayTimedTextToPlayer(P[pid],0,0,$A,"|c00ffc0cbRecipes (Page "+I2S(ItemCombine__xh[pid]+1)+"):
                ")

            else
                set ItemCombine__xh[pid]=0
                call DisplayTimedTextToPlayer(P[pid],0,0,$A,"|c00ffc0cbRecipes:
                ")

            endif
            set i=8*ItemCombine__xh[pid]
            set end=8*(ItemCombine__xh[pid]+1)
            if end>=max then
                set end=max
                set ItemCombine__eh[pid]=0
            endif
            loop
                set i=i+1
                set f=LoadInteger(BYHT,root,i)
                set j=0
                set distext=GetObjectName(s__formula_WG[f])+": "
                loop
                    set material=LoadInteger(BYHT,s__formula_wG[f],2*j)
                    if material==id then
                        set distext=distext+"|c0099fd35"+GetObjectName(material)+"|r"
                    else
                        set distext=distext+GetObjectName(material)
                    endif
                    if HaveSavedInteger(BYHT,s__formula_wG[f],2*j+1)and(LoadInteger(BYHT,s__formula_wG[f],2*j+1))>1 then
                        set distext=distext+" x"+I2S(LoadInteger(BYHT,s__formula_wG[f],2*j+1))
                    endif
                    set j=j+1
                    exitwhen j==s__formula_yG[f]
                    set distext=distext+" + "
                endloop
                call DisplayTimedTextToPlayer(P[pid],0,0,$A,distext)
                exitwhen i==end
            endloop
            if ItemCombine__eh[pid]!=0 then
                call DisplayTimedTextToPlayer(P[pid],0,0,$A,"
                |c00ffc0cb继续下一列表.|r")

            endif
        endif
    endif
    set ManipulatedItem=null
    return false
endfunction

function List takes nothing returns nothing
    local integer ZG=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call alloc__hPv(GetHandleId((GetExpiredTimer())),(ZG+1))
    if ZG==0 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I05L'),'I002',1),'I05K',20),'I05Q',1)
        call s__formula_add(s__formula_add(s__formula_new('I095'),'I08Q',1),'I01A',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I05X'),'I05L',1),'I062',1),'I05Q',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I077'),'I06Y',1),'I05K',5),'I05Q',3)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I078'),'I070',1),'I05K',5),'I05Q',3)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I079'),'I06Z',1),'I05K',5),'I05Q',3)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0GZ'),'I0GY',1),'I05K',5),'I05Q',3)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07A'),'I071',1),'I05K',5),'I05Q',3)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I09D'),'I09F',1),'I05K',5),'I05Q',3)
        call s__formula_add(s__formula_add(s__formula_new('I07K'),'I07D',1),'I07G',1)
        call s__formula_add(s__formula_add(s__formula_new('I07L'),'I07C',1),'I07G',1)
    elseif ZG==1 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07B'),'I077',1),'I068',1),'I05P',3)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('bgst'),'ajen',1),'I06J',1),'I060',1),'I05P',5)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07J'),'I07I',1),'I06J',1),'I060',1),'I05P',5)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07S'),'I07R',1),'I06P',1),'I060',1),'I05P',5)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I09T'),'I09S',1),'I06P',1),'I060',1),'I05P',5)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07Q'),'I07T',1),'I06P',1),'I060',1),'I05P',5)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0DH'),'I082',1),'I06E',1),'I06P',1),'I060',1),'I06V',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08G'),'I085',1),'I06T',1),'I06V',1),'I060',1),'I05P',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08I'),'I087',1),'I06T',1),'I06V',1),'I060',1),'I05P',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08H'),'I086',1),'I06U',1),'I06V',1),'I060',1),'I05P',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I09Q'),'I09O',1),'I06U',1),'I06V',1),'I060',1),'I05P',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08L'),'I08G',1),'I06T',1),'I06U',1),'I06W',1),'I061',1),'I06V',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08L'),'I08H',1),'I06T',1),'I06U',1),'I06W',1),'I061',1),'I06V',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08M'),'I08I',1),'I06T',1),'I06U',1),'I06W',1),'I061',1),'I06V',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I09P'),'I09Q',1),'I06T',1),'I06U',1),'I06W',1),'I061',1),'I06V',1)
    elseif ZG==2 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07N'),'I07O',1),'I05K',30),'I05Q',25)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07P'),'I07M',1),'I05K',30),'I05Q',25)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07W'),'I07U',1),'I06Q',1),'I060',1),'I05K',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I07Y'),'I07X',1),'I06Q',1),'I060',1),'I05K',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0AD'),'I089',1),'I062',1),'I06W',1),'I06T',1),'I06K',1),'I05P',40)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0AE'),'I084',1),'I062',1),'I06W',1),'I06U',1),'I06K',1),'I035',40)
        call s__formula_add(s__formula_add(s__formula_new('I03Z'),'I07H',1),'I07G',1)
        call s__formula_add(s__formula_add(s__formula_new('I07V'),'I06O',1),'I06I',1)
        call s__formula_add(s__formula_add(s__formula_new('I07Z'),'I07V',1),'I06O',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08F'),'I07Z',1),'I06V',1),'I06X',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08A'),'I06R',1),'I06T',1),'I062',1),'I060',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08B'),'I06S',1),'I06U',1),'I062',1),'I060',1)
    elseif ZG==3 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0AC'),'I0AA',1),'I06S',1),'I0AB',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08J'),'I08A',1),'I08K',1),'I06W',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I08J'),'I08B',1),'I08K',1),'I06W',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I09A'),'I097',1),'I06K',1),'I05P',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I09A'),'I099',1),'I06K',1),'I05P',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I093'),'I06K',1),'I06R',1),'I06S',1),'I061',1),'I06X',1),'I04V',$C)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I007'),'I093',1),'shtm',1),'nflg',1),'I0CK',1),'I06X',1),'I04V',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('ofro'),'tels',1),'I07G',1),'I060',1),'I062',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('modt'),'I06O',1),'I06P',1),'I06Q',1),'I04X',8)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0B3'),'I088',1),'I06E',1),'I06W',1),'I061',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0B2'),'I08C',1),'I08K',1),'I06U',1),'I06J',1),'I07G',1),'I06P',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0B4'),'I08D',1),'I08F',1),'I06K',1),'I06X',1),'I062',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0B6'),'ktrm',1),'I06W',1),'I06J',1),'I06Q',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0B0'),'I0AZ',1),'I06V',1),'I06O',1),'I062',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I092'),'I06E',1),'I06O',1),'I06W',1),'I06R',1),'I035',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0B5'),'I0AA',1),'dsum',1),'I06V',1),'I06S',1),'I08K',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0BH'),'modt',1),'I0AV',1),'I06K',1),'I04W',$A)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0BI'),'I095',1),'I06W',1),'I035',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0BK'),'I0BJ',1),'I08K',1),'I061',1),'I062',1)
    elseif ZG==4 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0C1'),'pmna',1),'I0BY',1),'I05K',$A)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CC'),'I0BP',1),'I0BY',1),'I05K',$A)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0C0'),'spsh',1),'I0BY',1),'I05K',$A)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0C2'),'I0BZ',1),'I0BY',1),'I0AB',1),'I04U',8)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0C5'),'I03Z',1),'I0BT',1),'mcou',1),'stpg',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0AN'),'I08J',1),'stpg',1),'I0CD',1)
        call s__formula_add(s__formula_add(s__formula_new('I0CN'),'I080',1),'sror',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rej6'),'odef',1),'shtm',1),'I06Q',1),'I061',1),'I0CK',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CM'),'I096',1),'I097',1),'I0CK',1),'I06K',1),'I06W',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0B1'),'I0B0',1),'I0CK',1),'stpg',1),'I08K',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0C9'),'phlt',1),'I0CD',1),'I061',1),'I06V',1),'I08K',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CU'),'I09T',1),'I0CB',1),'I0CD',1),'I08K',1),'I04X',25)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CE'),'ofro',1),'I0BS',1),'I0CD',1),'I08K',1),'I04X',25)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rej4'),'I0DH',1),'ram4',1),'ches',1),'ofir',1),'rde1',1),'I0CD',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CO'),'I0C0',1),'I0CJ',1),'I061',1),'I04Y',4)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CS'),'I083',1),'I0CJ',1),'I062',1),'I060',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CQ'),'I09A',1),'I0CJ',1),'I04V',$C)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('hcun'),'rhth',1),'I0BR',1),'rag1',1),'rej1',1),'sror',1),'I04X',18)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('gobm'),'I07B',1),'rej1',1),'I06V',1),'I060',1),'I05P',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rump'),'ches',1),'rej1',1),'I06U',1),'I08K',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0D5'),'I099',1),'I06V',1),'I061',1),'rej1',1),'I06O',1),'I0CK',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0DI'),'I0DH',1),'srtl',1),'grsl',1),'I0CK',1),'ram1',1),'I04Y',5),'I04W',25)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sbok'),'I09M',1),'grsl',1),'shtm',1),'sror',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0E5'),'sbok',1),'I05W',1),'I09E',1),'I0CD',1),'sror',1),'I061',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0E6'),'I0CU',1),'I05W',1),'I09E',1),'stpg',1),'I08P',1),'I08K',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0E4'),'rump',1),'I05V',1),'I08P',1),'nflg',1),'I061',1),'I0AB',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0E9'),'belv',1),'I05V',1),'rde1',1),'rej1',1),'I0CK',1),'I061',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0E3'),'penr',1),'I0AZ',1),'I05V',1),'I09E',1),'I0CK',1),'I09N',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0ED'),'I0BH',1),'mcri',1),'shtm',1),'I06Q',1),'I0AT',1),'I05P',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0EB'),'srtl',1),'I05W',1),'I09E',1),'ofir',1),'I08P',1),'I0CD',1),'I04X',50)
        call s__formula_add(s__formula_add(s__formula_new('sbch'),'I08X',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_new('clsd'),'I06D',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_new('lhst'),'I0AV',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('shhn'),'cnob',1),'I06I',1),'I0B9',3),'I0BB',3),'I0BC',3)
    elseif ZG==5 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('clfm'),'I03Z',1),'I0CJ',1),'I0CD',1),'I08K',1),'I061',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0D4'),'dphe',1),'I061',1),'I08K',1),'I06V',1),'I0AB',1),'sror',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0D8'),'I092',1),'I0C2',1),'I0AA',1),'stpg',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0D9'),'I0B3',1),'rat9',1),'nflg',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sor5'),'I0D4',1),'I0AC',1),'nflg',1),'grsl',1),'I0AT',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rlif'),'I0D2',1),'I0BH',1),'nflg',1),'ofir',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rde4'),'I0AY',1),'I07Q',1),'stwa',1),'I06J',1),'I061',1),'I04X',8)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sorf'),'I098',1),'mcou',1),'I0CJ',1),'ram1',1),'sor2',1),'I05Q',40)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('gopr'),'I07J',1),'I0BQ',1),'sor2',1),'I062',1),'I04X',25)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rat3'),'gobm',1),'kpin',1),'ofir',1),'I08P',1),'nflg',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('k3m3'),'I0AC',1),'nflg',1),'I0AT',1),'grsl',1),'I06T',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0D1'),'I0BH',1),'I093',1),'I08D',1),'nflg',1),'ofir',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('thle'),'ckng',1),'sorf',1),'I0BT',1),'I0DG',1),'gsou',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('tgxp'),'kysn',1),'ledg',1),'I0CD',1),'stpg',1),'I08P',1),'I0DG',1),'gsou',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rej5'),'ram4',1),'I08P',1),'I0CD',1),'I06W',1),'gsou',1),'I035',90)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('gmfr'),'I081',1),'shcw',1),'I06O',1),'I05K',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sehr'),'gmfr',1),'I07S',1),'dsum',1),'I062',1),'I06S',1),'I05P',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('cnhn'),'sehr',1),'afac',1),'crdt',1),'ledg',1),'I06W',1),'I035',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('ckng'),'bgst',1),'I0BQ',1),'sora',1),'I061',1),'I04X',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sksh'),'I0CC',1),'stwa',1),'I06R',1),'I06S',1),'I01A',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('ram4'),'sksh',1),'I0CG',1),'I06U',1),'I06V',1),'soul',1),'I02Y',60)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('skrt'),'I0D6',1),'prvt',1),'I06X',1),'I02Y',60)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('tkno'),'bspd',1),'skrt',1),'I0CB',1),'I0DG',1),'nflg',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('will'),'hval',1),'rnsp',1),'I08O',1),'I031',8)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I05T'),'rag1',1),'I0C3',1),'I09E',1),'I06W',1),'I06J',1),'I04X',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('k3m1'),'I07N',1),'I0C3',1),'sora',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('sor6'),'I07P',1),'sor1',1),'sor2',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I05R'),'I0AN',1),'I05V',1),'nflg',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I05U'),'gobm',1),'I09E',1),'I08N',1),'I08K',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I05I'),'I0B1',1),'I05W',1),'rde1',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rst1'),'evtl',1),'I0BR',1),'ram1',1),'I07G',1),'I0BY',1),'I04W',9)
    elseif ZG==6 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0E2'),'I067',1),'pgin',1),'I05V',1),'I09N',1),'ram1',1),'I04V',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rde2'),'rin1',1),'rde1',1),'gsou',1),'ram1',1),'I06O',1),'soul',1),'I04W',25)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('jpnt'),'I0CR',1),'I0BS',1),'rde1',1),'I06Q',1),'sora',1),'I04U',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sclp'),'I097',1),'I0CG',1),'crdt',1),'rde1',1),'I06X',1),'I04V',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('bzbe'),'rst1',1),'rde1',1),'shtm',1),'stpg',1),'ram1',1),'I0AB',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('kybl'),'I0CA',1),'rde4',1),'I0BR',1),'I08K',1),'tels',1),'I08P',1),'I04X',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sor4'),'rde4',1),'I06E',1),'I0CD',1),'I06W',1),'I04X',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('ratf'),'sor4',1),'shtm',1),'grsl',1),'I0AT',1),'I04Y',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sor8'),'I0CS',1),'I0BS',1),'sor2',1),'I06I',1),'I08P',1),'ram1',1),'fgrd',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('gcel'),'I0BS',1),'crys',1),'I0BT',1),'I06E',1),'gsou',1),'rej1',1),'ram1',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0DW'),'gcel',1),'I0EA',1),'I0EG',1),'I05W',1),'nflg',1),'shtm',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('esaz'),'I0CP',1),'I06E',1),'I08N',1),'ofir',1),'sror',1),'I05P',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('rde3'),'k3m1',1),'tels',1),'I08N',1),'I08P',1),'I04X',30),'I035',30)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('wtlg'),'I0AE',1),'I08N',1),'ofir',1),'soul',1),'I035',60)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('k3m2'),'I0C8',1),'I0AZ',1),'I08N',1),'shtm',1),'I0CJ',1),'I0AB',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sor3'),'gopr',1),'I0CN',1),'blba',1),'gsou',1),'mcri',1),'rde1',1),'I04X',40)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sor9'),'rin1',1),'mcri',1),'nflg',1),'rej1',1),'ram1',1),'I06K',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('glsk'),'I0B5',1),'evtl',1),'mcri',1),'rej1',1),'stpg',1),'tels',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('srbd'),'I0CQ',1),'I0CG',1),'mcri',1),'rej1',1),'I0CK',1),'I06W',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('dthb'),'I0C4',1),'k3m1',1),'blba',1),'I0BT',1),'soul',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('kymn'),'dthb',1),'rde1',1),'mcri',1),'stpg',1),'rej1',1),'I06W',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('sor7'),'I084',1),'sor6',1),'mcou',1),'sora',1),'soul',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('dkfw'),'I0B4',1),'sclp',1),'I09N',1),'I0CK',1),'I06X',1),'I06K',1),'I04V',50)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('azhr'),'bzbf',1),'I099',1),'I09N',1),'nflg',1),'I08N',1),'I06K',1)
    elseif ZG==7 then
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0F9'),'I0B6',1),'I0EQ',1),'I0DG',1),'mcri',1),'I08N',1),'I0CD',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0EV'),'ratc',1),'I08L',1),'I0EQ',1),'mcri',1),'I061',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0F7'),'I09P',1),'penr',1),'I0EQ',1),'I08N',1),'I061',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0F8'),'I08M',1),'rat6',1),'I0EQ',1),'mcri',1),'I061',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0FB'),'rej6',1),'rat9',1),'I0EQ',1),'I08N',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0FC'),'I0C9',1),'ratc',1),'I0EQ',1),'soul',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0EZ'),'dphe',1),'srtl',1),'I0EQ',1),'I0CK',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0F6'),'shwd',1),'I0BK',1),'crdt',1),'shtm',1),'rde1',1),'gsou',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0FD'),'ledg',1),'I06E',1),'I0ER',1),'rde1',1),'stpg',1),'ram1',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0FA'),'belv',1),'rwiz',1),'mcri',1),'I0CD',1),'I0BY',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0F2'),'hcun',1),'I0AT',1),'I08N',1),'ofir',1),'I0DG',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0F5'),'rag1',1),'shtm',1),'nflg',1),'I0AT',1),'I09N',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0F0'),'I0C7',1),'I08E',1),'mcri',1),'ram1',1),'I09N',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CH'),'I085',1),'I06D',1),'I06R',1),'I06T',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0CH'),'I086',1),'I06D',1),'I06S',1),'I06U',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0EA'),'I06E',1),'I0BK',1),'grsl',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0D7'),'I0AD',1),'I0EQ',1),'rde1',1),'gsou',1),'stpg',1),'rej1',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I09G'),'I0C7',1),'I0AS',1),'I05W',1),'I0CD',1),'I0AT',1),'I06T',1)
        call s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_add(s__formula_new('I0FP'),'I0DT',1),'I0EG',1),'I0ER',1),'I05V',1),'ssan',1),'I0DG',1),'I04X',50)
    elseif ZG==8 then
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('rhe3')))),('I0CH'),(1)))),('pgin'),(1)))),('shtm'),(1)))),('I0CD'),(1)))),('grsl'),(1)))),('I0CJ'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0FR')))),('I0CM'),(1)))),('I0AJ'),(1)))),('I0ER'),(1)))),('ofir'),(1)))),('I09N'),(1)))),('I0CK'),(1)))),('I06X'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0DA')))),('I0DI'),(1)))),('rwiz'),(1)))),('I0ER'),(1)))),('gsou'),(1)))),('I08N'),(1)))),('rej1'),(1)))),('sror'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('spre')))),('I0B2'),(1)))),('nflg'),(1)))),('I08P'),(1)))),('ssan'),(1)))),('stpg'),(1)))),('I0AB'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('rma2')))),('bzbf'),(1)))),('shtm'),(1)))),('gsou'),(1)))),('I08P'),(1)))),('ssan'),(1)))),('I0CD'),(1)))),('I04U'),(30))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0FV')))),('will'),(1)))),('I08D'),(1)))),('ofir'),(1)))),('I09N'),(1)))),('rde1'),(1)))),('ram1'),(1)))),('I04V'),(25))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0AR')))),('I0D9'),(1)))),('ram3'),(1)))),('I05V'),(1)))),('gsou'),(1)))),('rde1'),(1)))),('ofir'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('fwss')))),('I0D5'),(1)))),('penr'),(1)))),('I0ER'),(1)))),('gsou'),(1)))),('I0DG'),(1)))),('ram1'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('gfor')))),('clfm'),(1)))),('shtm'),(1)))),('ssan'),(1)))),('rde1'),(1)))),('I0CK'),(1)))),('grsl'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0EO')))),('shwd'),(1)))),('ssil'),(1)))),('ofir'),(1)))),('rde1'),(1)))),('sror'),(1)))),('soul'),(1)))),('I06Q'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0FW')))),('I0C5'),(1)))),('crys'),(1)))),('I0ER'),(1)))),('gsou'),(1)))),('mcri'),(1)))),('rej1'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0AQ')))),('I0D8'),(1)))),('I0EG'),(1)))),('nflg'),(1)))),('ssan'),(1)))),('I08N'),(1)))),('grsl'),(1)))),('I04X'),(50))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0AM')))),('I0DY'),(1)))),('I0EG'),(1)))),('I0ER'),(1)))),('I05V'),(1)))),('gsou'),(1)))),('ssan'),(1)))),('I04X'),(50))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0FU')))),('I0CE'),(1)))),('I05W'),(1)))),('I0EQ'),(1)))),('I08P'),(1)))),('I04X'),(50))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('I0AO')))),('I0EQ'),(1)))),('shtm'),(1)))),('gsou'),(1)))),('rde1'),(1)))),('I08N'),(1)))),('ssan'),(1))
    elseif ZG==9 then
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('flag')))),('rnec'),(1)))),('stpg'),(1)))),('I06W'),(1)))),('I061'),(1)))),('I06V'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('tcas')))),('flag'),(1)))),('shea'),(1)))),('stpg'),(1)))),('I060'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('tsct')))),('shas'),(1)))),('plcl'),(1)))),('nflg'),(1)))),('rde1'),(1)))),('ram1'),(1))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('pinv')))),('I074'),(1)))),('stpg'),(1)))),('I06I'),(1)))),('I04W'),($A))
        call s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_add(((s__formula_new(('moon')))),('pinv'),(1)))),('I0CO'),(1)))),('shea'),(1)))),('sora'),(1)))),('I04W'),(25))
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:641")
    endif
endfunction

function ItemCombine_onInit takes nothing returns nothing
    set ItemCombine__oh=malloc()
    call AddUnitSellItemById('I00L',function ItemCombine__Action_c)
    call TriggerAddCondition(alloc__GX[(TRIGGER_USE)],(Condition((function Display))))
    call TimerStart(NewTimer(0),.03125,true,function List)
endfunction

function NewEquip___Equip_vamp_onAttack_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x=(GetUnitX(II[(Boss_Spell_data2[data])]))+Boss_Spell_X[data]*64
    local real y=(GetUnitY(II[(Boss_Spell_data2[data])]))+Boss_Spell_Y[data]*64
    local real tx
    local real ty
    local unit u
    if IsPointInWorldBounds(x,y)then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
        call LKv(Boss_Spell_data2[data],x)
        call Llv(Boss_Spell_data2[data],y)
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)then
                if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[data])and IsUnitInGroup(u,Boss_Spell_group1[data])==false then
                    set tx=GetUnitX(u)-x
                    set ty=GetUnitY(u)-y
                    set tx=tx*Boss_Spell_X[data]+ty*Boss_Spell_Y[data]
                    if tx>-$96 and tx<125 then
                        call GroupAddUnit(Boss_Spell_group1[data],u)
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",u,"chest"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[data])),((u)),((((Boss_Spell_V[data])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF0000")))
                    endif
                endif
            endif
        endloop
    else
        set Boss_Spell_data3[data]=0
    endif
    if Boss_Spell_data3[data]==0 then
        call Ltv(Boss_Spell_data2[data])
        call RecycleGroup(Boss_Spell_group1[data])
        call Unit_Cancel_Counter($44C,Boss_Spell_data1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:677")
        set Boss_Spell_unit1[data]=null
        set Boss_Spell_group1[data]=null
    endif
endfunction

function NewEquip___Equip_vamp_onAttack takes nothing returns nothing
    local integer data
    local real x
    local real y
    local real a
    if GetRandomInt(1,100)<=5 then
        set a=GetUnitFacing((mF))*bj_DEGTORAD
        set x=GetUnitX((mF))+Cos(a)*100
        set y=GetUnitY((mF))+Sin(a)*100
        set data=Boss_Spell_allocate()
        set Boss_Spell_group1[data]=NewGroup()
        set Boss_Spell_unit1[data]=(mF)
        set Boss_Spell_data1[data]=(pF_v)
        set Boss_Spell_data2[data]=LIv("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",x,y,100,1.5,a,0)
        set Boss_Spell_data3[data]=$514/ 64
        call Lfv(Boss_Spell_data2[data],$FF,0,0,$FF)
        set Boss_Spell_V[data]=GetHeroState2((mF),true)*35
        set Boss_Spell_X[data]=Cos(a)
        set Boss_Spell_Y[data]=Sin(a)
        call Unit_App_Counter($44D,Boss_Spell_data1[data])
        call TimerStart(NewTimer(data),.03125,true,function NewEquip___Equip_vamp_onAttack_func)
    endif
endfunction

function NewEquip___Equip_skul_onAttack takes nothing returns nothing
    if UnitRemoveAbility((MF),'B09F')then
        call DamageAmplify(GetHeroState2((mF),true)*2)
    endif
endfunction

function NewEquip___Equip_tsct_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<=25 then
        if IsUnitRace(((MF)),RACE_UNDEAD)then
            call UnitDamageTargetBY((((mF))),(((MF))),(((((GetHeroState2((mF),true))*40.)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        else
            call UnitDamageTargetBY((((mF))),(((MF))),(((((GetHeroState2((mF),true))*20.)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        endif
        call DestroyEffect(AddSpecialEffectTarget("s_holymagicprojectile.mdl",(MF),"origin"))
    endif
endfunction

function NewEquip___Equip_tcas_onAttack takes nothing returns nothing
    local real x
    local real y
    local real d
    local unit u
    if GetRandomInt(1,100)<=5 then
        set x=GetUnitX((MF))
        set y=GetUnitY((MF))
        set d=GetHeroState2((mF),true)*40
        call Ltv(LAv("acid ex.mdl",x,y,3))
        call GroupEnumUnitsInRange(G,x,y,350+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,350)then
                if IsUnitAliveAndEnemy(u,(mF))then
                    call UnitDamageTargetBY((((mF))),((u)),((((d)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($C)*1.))*1.),(("|c00FF0000")))
                    call m1v(u,.5)
                endif
            endif
        endloop
    endif
endfunction

function NewEquip___Active_A0ZG_action_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:678")
    call ModifyUnitAttackSpeed(id,-100)
    call ModifyUnitCrit(id,-100)
    call ModifyUnitMagicDamage(id,-$A)
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ZH','B09G')
    set Active_A0ZG_Timer[id]=null
endfunction

function NewEquip___Active_A0ZG_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if Active_A0ZG_Timer[id]==null then
        set Active_A0ZG_Timer[id]=NewTimer(id)
        call ModifyUnitAttackSpeed(id,100)
        call ModifyUnitCrit(id,100)
        call ModifyUnitMagicDamage(id,$A)
        call UnitAddAbilityBY((Je[(id)]),'A0ZH')
    endif
    call TimerStart(Active_A0ZG_Timer[id],6,false,function NewEquip___Active_A0ZG_action_func)
endfunction

function NewEquip___Equip_plcl_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<=7 then
        call UnitDamageTargetBY((((mF))),(((MF))),(((((GetHeroState2((mF),true))*10.)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",(MF),"origin"))
    endif
endfunction

function NewEquip___Equip_rhe3_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<=5 then
        call UnitDamageTargetBY((((mF))),(((MF))),(((((GetHeroState2((mF),true))*15.)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((17)*1.))*1.),(("|c00FFFF00")))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\ReviveHuman\\ReviveHuman.mdl",(MF),"origin"))
    endif
endfunction

function NewEquip___Equip_rhe3_Locp_c takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Item_I0CH_Damager[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0VY')
        set Item_I0CH_Damager[id]=UnitAddShieldTrigB((id),function Item_I0CH_Damager_action)
    endif
    set Item_I0CH_life[id]=8000
endfunction

function NewEquip___Equip_rhe3_Passive takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Item_I0CH_timer[id]==null then
            set Item_I0CH_timer[id]=NewTimer(id)
            set Item_I0CH_Attack[id]=UnitAddPAttackTrigB(id,function NewEquip___Equip_rhe3_onAttack)
            call TimerStart(Item_I0CH_timer[id],8,true,function NewEquip___Equip_rhe3_Locp_c)
            call Unit_App_Counter($44E,id)
        endif
    elseif Item_I0CH_timer[id]!=null then
        if Item_I0CH_Damager[id]!=null then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0VY','B086')
            call s__Trig_remove((Item_I0CH_Damager[id]))
            set Item_I0CH_Damager[id]=0
        endif
        call s__Trig_remove((Item_I0CH_Attack[id]))
        call ReleaseTimer(Item_I0CH_timer[id],"[TimerUtils]Error:679")
        set Item_I0CH_Attack[id]=0
        set Item_I0CH_life[id]=0
        set Item_I0CH_timer[id]=null
        call Unit_Cancel_Counter($44F,id)
    endif
endfunction

function NewEquip___Equip_I0FR_onAttack takes nothing returns nothing
    if GetUnitAbilityLevel((MF),'Bfro')==0 then
        call UnitDamageTargetBY((((mF))),(((MF))),(((($F*GetHeroState3((mF),true))*1.))*1.),false,(true),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
    else
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl",(MF),"chest"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((30*GetHeroState3((mF),true))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c006d7bdc")))
    endif
    call DestroyEffect(AddSpecialEffectTarget("FrozenOrb.mdl",(MF),"chest"))
    call DestroyEffect(AddSpecialEffectTarget("WaterNovaTarget.mdl",(MF),"chest"))
    call UnitAppBuff((pF),'ACfn',$D0102)
    call UnitRemoveAbilityandBuffBY((mF),'A0WW','B08J')
    call s__Trig_remove(s__Trig_Index)
    set Equip_I0FR_Atk_trig[((pF_v))]=0
endfunction

function NewEquip___Equip_I0FR_onSpellEffect takes nothing returns nothing
    if Equip_I0FR_Atk_trig[s__Trig_P]==null then
        set Equip_I0FR_Atk_trig[s__Trig_P]=UnitAddPAttackTrigB((s__Trig_P),function NewEquip___Equip_I0FR_onAttack)
        call UnitAddAbilityBY((Je[(s__Trig_P)]),'A0WW')
    endif
endfunction

function NewEquip___Equip_I0FR_Passive takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if Equip_I0FR_Atk_trig[id]!=null then
        call s__Trig_remove((Equip_I0FR_Atk_trig[id]))
        set Equip_I0FR_Atk_trig[id]=0
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0WW','B08J')
    endif
endfunction

function NewEquip___Active_A0WX_action_func_01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local integer v
    local integer n
    local real x=Boss_Spell_X[i]
    local real y=Boss_Spell_Y[i]
    local unit u
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        set CR=false
        set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',x,y,0)
        set CR=true
        call SetUnitX(Boss_Spell_unit2[i],x)
        call SetUnitY(Boss_Spell_unit2[i],y)
        call UnitApplyTimedLife(Boss_Spell_unit2[i],'BHwe',.01)
        call SetUnitScale(Boss_Spell_unit2[i],1.*(1-.15*Boss_Spell_data2[i]),1,1)
        call SetUnitFlyHeight(Boss_Spell_unit2[i],150.*Boss_Spell_data2[i],.0)
        call DestroyEffect(AddSpecialEffectTarget("frostnova.mdx",Boss_Spell_unit2[i],"origin"))
        if Boss_Spell_data2[i]==6 then
            set CR=false
            set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',x,y,0)
            set CR=true
            call SetUnitX(Boss_Spell_unit2[i],x)
            call SetUnitY(Boss_Spell_unit2[i],y)
            call SetUnitScale(Boss_Spell_unit2[i],3,0,0)
            set Boss_Spell_eff[i]=AddSpecialEffectTarget("Doodads\\Icecrown\\Rocks\\Icecrown_Crystal\\Icecrown_Crystal0.mdl",Boss_Spell_unit2[i],"origin")
            set Boss_z[0]=bj_PI*.2
            set Boss_z[1]=.0
            set n=i
            set v=$A
            loop
                exitwhen v==0
                set index=Boss_Spell_allocate()
                set x=Boss_Spell_X[i]+180.*Cos(Boss_z[1])
                set y=Boss_Spell_Y[i]+180.*Sin(Boss_z[1])
                set CR=false
                set Boss_Spell_unit2[index]=CreateUnit(Player($F),'e001',x,y,Boss_z[1]*bj_RADTODEG)
                set CR=true
                call SetUnitX(Boss_Spell_unit2[index],x)
                call SetUnitY(Boss_Spell_unit2[index],y)
                call SetUnitScale(Boss_Spell_unit2[index],1.8,1,1)
                call SetUnitTimeScale(Boss_Spell_unit2[index],100.)
                call SetUnitAnimationByIndex(Boss_Spell_unit2[index],45)
                set Boss_Spell_eff[index]=AddSpecialEffectTarget("Doodads\\Icecrown\\Rocks\\Icecrown_Crystal\\Icecrown_Crystal0.mdl",Boss_Spell_unit2[index],"origin")
                set Boss_Spell_data3[n]=index
                set n=index
                set Boss_z[1]=Boss_z[1]+Boss_z[0]
                set v=v-1
            endloop
            set Boss_Spell_data3[n]=0
            set Boss_Spell_data1[i]=1
            set Boss_Spell_data2[i]=0
            call TimerStart(GetExpiredTimer(),.33,true,function NewEquip___Active_A0WX_action_func_01)
            set x=Boss_Spell_X[i]
            set y=Boss_Spell_Y[i]
            call GroupEnumUnitsInRange(G,x,y,600+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])then
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",u,"origin"))
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FF8080")))
                        call pmv(u,1.5)
                    endif
                endif
            endloop
        endif
    elseif Boss_Spell_data1[i]==1 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        if Boss_Spell_data2[i]>20 then
            set index=Boss_Spell_data3[i]
            loop
                exitwhen index==0
                set n=Boss_Spell_data3[index]
                call ShowUnit(Boss_Spell_unit2[index],false)
                call KillUnit(Boss_Spell_unit2[index])
                call DestroyEffect(Boss_Spell_eff[index])
                set Boss_Spell_eff[index]=null
                set Boss_Spell_unit2[index]=null
                call Boss_Spell_deallocate(index)
                set index=n
            endloop
            call ShowUnit(Boss_Spell_unit2[i],false)
            call KillUnit(Boss_Spell_unit2[i])
            call DestroyEffect(Boss_Spell_eff[i])
            set Boss_Spell_eff[i]=null
            set Boss_Spell_unit1[i]=null
            set Boss_Spell_unit2[i]=null
            call Boss_Spell_deallocate(i)
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:680")
        else
            call GroupEnumUnitsInRange(G,x,y,600+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600)then
                    if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])then
                        call pmv(u,1.5)
                    endif
                endif
            endloop
        endif
    endif
endfunction

function NewEquip___Active_A0WX_action takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_X[i]=x
    set Boss_Spell_Y[i]=y
    set Boss_Spell_Z[i]=$F4240
    set Boss_Spell_data1[i]=0
    set Boss_Spell_data2[i]=0
    set CR=false
    set Boss_Spell_unit2[i]=CreateUnit(Player($F),'e001',x,y,0)
    set CR=true
    call SetUnitX(Boss_Spell_unit2[i],x)
    call SetUnitY(Boss_Spell_unit2[i],y)
    call SetUnitScale(Boss_Spell_unit2[i],5.,1,1)
    call UnitApplyTimedLife(Boss_Spell_unit2[i],'BHwe',.01)
    call DestroyEffect(AddSpecialEffectTarget("frostnova.mdx",Boss_Spell_unit2[i],"origin"))
    call TimerStart(NewTimer(i),.05,true,function NewEquip___Active_A0WX_action_func_01)
endfunction

function NewEquip___Active_A0WY_action_func_02 takes nothing returns nothing
    local integer id=(pF_v)
    call UnitDamageTargetBY((((mF))),(((MF))),((((Active_A0WY_Damage[id])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UDeathSmall\\UDeathSmall.mdl",(MF),"origin"))
    set KF[HF]=PF+1000000.
endfunction

function NewEquip___Active_A0WY_action_func_01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local integer index2
    local integer v
    local integer n
    local integer array v_2
    local string array str
    local real x
    local real y
    local unit u
    if Boss_Spell_data1[i]==0 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        set Boss_Spell_Z[i]=Boss_Spell_Z[i]+(bj_PI/ 16)
        set Boss_z[0]=Boss_Spell_data2[i]*18
        set Boss_x[0]=Cos(Boss_Spell_Z[i])*Boss_z[0]
        set Boss_y[0]=Sin(Boss_Spell_Z[i])*Boss_z[0]
        set index=Boss_Spell_data3[i]
        loop
            exitwhen index==0
            set n=Boss_Spell_data3[index]
            set x=Boss_Spell_X[i]+(Boss_Spell_X[index]*Boss_x[0]-Boss_Spell_Y[index]*Boss_y[0])
            set y=Boss_Spell_Y[i]+(Boss_Spell_Y[index]*Boss_x[0]+Boss_Spell_X[index]*Boss_y[0])
            call SetUnitPosition(Boss_Spell_unit2[index],x,y)
            set index=n
        endloop
        if Boss_Spell_data2[i]>=32 then
            set Boss_Spell_data1[i]=1
            set Boss_Spell_data2[i]=32
        endif
    else
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        if Boss_Spell_data1[i]<3 then
            set Boss_Spell_Z[i]=Boss_Spell_Z[i]+(bj_PI/ $A0)
            set Boss_z[0]=32*18
        else
            set Boss_Spell_Z[i]=Boss_Spell_Z[i]+(bj_PI/ $A0)*(16-Boss_Spell_data2[i])
            set Boss_z[0]=(Boss_Spell_data2[i])*32
        endif
        set Boss_x[0]=Cos(Boss_Spell_Z[i])*Boss_z[0]
        set Boss_y[0]=Sin(Boss_Spell_Z[i])*Boss_z[0]
        set v=0
        set index=Boss_Spell_data3[i]
        loop
            exitwhen index==0
            set v_2[v]=index
            set v=v+1
            set x=Boss_Spell_X[i]+(Boss_Spell_X[index]*Boss_x[0]-Boss_Spell_Y[index]*Boss_y[0])
            set y=Boss_Spell_Y[i]+(Boss_Spell_Y[index]*Boss_x[0]+Boss_Spell_X[index]*Boss_y[0])
            call SetUnitPosition(Boss_Spell_unit2[index],x,y)
            set index=Boss_Spell_data3[index]
        endloop
        set n=0
        loop
            exitwhen n==v
            set index=v_2[n]
            if Boss_Spell_lig[index]!=null then
                set index2=v_2[ModuloInteger(n+2,v)]
                set Boss_x[1]=GetUnitX(Boss_Spell_unit2[index])
                set Boss_y[1]=GetUnitY(Boss_Spell_unit2[index])
                set Boss_z[1]=GetPointZ(Boss_x[1],Boss_y[1])+$96
                set Boss_x[2]=GetUnitX(Boss_Spell_unit2[index2])
                set Boss_y[2]=GetUnitY(Boss_Spell_unit2[index2])
                set Boss_z[2]=GetPointZ(Boss_x[2],Boss_y[2])+$96
                call MoveLightningEx(Boss_Spell_lig[index],true,Boss_x[1],Boss_y[1],Boss_z[1],Boss_x[2],Boss_y[2],Boss_z[2])
            endif
            set n=n+1
        endloop
        if Boss_Spell_data1[i]==1 then
            if Boss_Spell_data2[i]<1 then
                set Boss_Spell_data1[i]=2
                set Boss_Spell_data2[i]=32*7
                call SetUnitScale(Boss_Spell_unit2[i],5,1,1)
                set n=0
                loop
                    exitwhen n==v
                    set index=v_2[n]
                    call PauseUnit(Boss_Spell_unit2[index],false)
                    set n=n+1
                endloop
            endif
            set n=0
            loop
                exitwhen n==v
                set index=v_2[n]
                if Boss_Spell_data2[index]<0 then
                    set Boss_Spell_data2[index]=Boss_Spell_data2[index]+1
                    if Boss_Spell_data2[index]==0 then
                        set index2=v_2[ModuloInteger(n+2,v)]
                        set Boss_Spell_data2[index]=GetRandomInt(8,24)
                        set Boss_x[1]=GetUnitX(Boss_Spell_unit2[index])
                        set Boss_y[1]=GetUnitY(Boss_Spell_unit2[index])
                        set Boss_z[1]=GetPointZ(Boss_x[1],Boss_y[1])+$96
                        set Boss_x[2]=GetUnitX(Boss_Spell_unit2[index2])
                        set Boss_y[2]=GetUnitY(Boss_Spell_unit2[index2])
                        set Boss_z[2]=GetPointZ(Boss_x[2],Boss_y[2])+$96
                        set Boss_Spell_lig[index]=AddLightningEx("MBUR",true,Boss_x[1],Boss_y[1],Boss_z[1],Boss_x[2],Boss_y[2],Boss_z[2])
                    endif
                endif
                set n=n+1
            endloop
        elseif Boss_Spell_data1[i]==2 then
            if Boss_Spell_data2[i]<1 then
                set Boss_Spell_data1[i]=3
                set Boss_Spell_data2[i]=16
            endif
            set x=Boss_Spell_X[i]
            set y=Boss_Spell_Y[i]
            call GroupEnumUnitsInRange(G,x,y,600+75,null)
            call GroupClear(G2)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,600)then
                    if IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                        if not MB[(GetUnitUserData((u)))]and GetUnitMoveSpeed(u)>0 then
                            set Boss_x[1]=GetUnitX(u)
                            set Boss_y[1]=GetUnitY(u)
                            set Boss_x[2]=Boss_x[1]+(x-Boss_x[1])*.05
                            set Boss_y[2]=Boss_y[1]+(y-Boss_y[1])*.05
                            if IsTerrainWalkable(Boss_x[2],Boss_y[2])then
                                call SetUnitX(u,Boss_x[2])
                                call SetUnitY(u,Boss_y[2])
                            endif
                        endif
                        call GroupAddUnit(G2,u)
                    endif
                endif
            endloop
            set n=0
            loop
                exitwhen n==v
                set index=v_2[n]
                if Boss_Spell_data2[index]>0 then
                    set Boss_Spell_data2[index]=Boss_Spell_data2[index]-1
                endif
                if Boss_Spell_data2[index]==0 then
                    set u=GroupPickRandomUnit(G2)
                    if u!=null and IssueTargetOrderById(Boss_Spell_unit2[index],$D0097,u)then
                        set Boss_Spell_data2[index]=16
                    endif
                    set u=null
                endif
                set n=n+1
            endloop
        else
            if Boss_Spell_data2[i]<1 then
                set str[0]="Doodads\\Cinematic\\EyeOfSargeras\\EyeOfSargeras.mdl"
                set Boss_Spell_Z[i]=Active_A0WY_Damage[Boss_Spell_data1[v_2[0]]]/ 3*100
                set n=0
                loop
                    exitwhen n==v
                    set index=v_2[n]
                    call DestroyLightning(Boss_Spell_lig[index])
                    call ShowUnit(Boss_Spell_unit2[index],false)
                    call KillUnit(Boss_Spell_unit2[index])
                    set Boss_x[1]=GetUnitX(Boss_Spell_unit2[index])
                    set Boss_y[1]=GetUnitY(Boss_Spell_unit2[index])
                    set Boss_Spell_lig[index]=null
                    call Boss_Spell_deallocate(index)
                    if n==0 then
                        call Ltv(Lfv(LAv(str[0],Boss_x[1],Boss_y[1],2),$FF,$80,0,$FF))
                    elseif n==1 then
                        call Ltv(Lfv(LAv(str[0],Boss_x[1],Boss_y[1],2),0,$FF,0,$FF))
                    elseif n==2 then
                        call Ltv(Lfv(LAv(str[0],Boss_x[1],Boss_y[1],2),0,0,$FF,$FF))
                    elseif n==3 then
                        call Ltv(Lfv(LAv(str[0],Boss_x[1],Boss_y[1],2),$FF,0,0,$FF))
                    elseif n==4 then
                        call Ltv(Lfv(LAv(str[0],Boss_x[1],Boss_y[1],2),50,$80,0,$FF))
                    endif
                    set n=n+1
                endloop
                call GroupEnumUnitsInRange(G,x,y,300+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,300)then
                        if IsUnitAliveAndEnemy(u,Boss_Spell_unit1[i])then
                            call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FF8080")))
                            call m1v(u,1)
                        endif
                    endif
                endloop
                call KillUnit(Boss_Spell_unit2[i])
                call Boss_Spell_deallocate(i)
                call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:681")
            endif
        endif
    endif
endfunction

function NewEquip___Active_A0WY_action takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    local integer index
    local integer v
    local integer n
    local real x=GetUnitX(GetTriggerUnit())
    local real y=GetUnitY(GetTriggerUnit())
    local player p=GetTriggerPlayer()
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_X[i]=x
    set Boss_Spell_Y[i]=y
    set Boss_Spell_Z[i]=0
    set Boss_Spell_data1[i]=0
    set Boss_Spell_data2[i]=0
    set CR=false
    set Boss_Spell_unit2[i]=CreateUnit(p,'e03I',x,y,0)
    set CR=true
    call SetUnitX(Boss_Spell_unit2[i],x)
    call SetUnitY(Boss_Spell_unit2[i],y)
    call SetUnitScale(Boss_Spell_unit2[i],.0,1,1)
    call TimerStart(NewTimer(i),.03125,true,function NewEquip___Active_A0WY_action_func_01)
    if true then
        set Boss_z[0]=bj_PI*.4
        set Boss_z[1]=bj_PI*.5
        set n=i
        set v=5
        loop
            exitwhen v==0
            set index=Boss_Spell_allocate()
            set Boss_Spell_X[index]=Cos(Boss_z[1])
            set Boss_Spell_Y[index]=Sin(Boss_z[1])
            set Boss_Spell_unit2[index]=CreateUnit(p,'e03E',x,y,0)
            set Boss_Spell_data1[index]=(GetUnitUserData((Boss_Spell_unit2[index])))
            set Boss_Spell_data2[index]=-(6-v)*5
            set Active_A0WY_Damage[Boss_Spell_data1[index]]=GetHeroState3(Boss_Spell_unit1[i],true)*3.
            call UnitAddPAttackTrig(Boss_Spell_data1[index],function NewEquip___Active_A0WY_action_func_02)
            call SetUnitPosition(Boss_Spell_unit2[index],x,y)
            call PauseUnit(Boss_Spell_unit2[index],true)
            if v==5 then
                call SetUnitVertexColor(Boss_Spell_unit2[index],$FF,$80,0,$FF)
            elseif v==4 then
                call SetUnitVertexColor(Boss_Spell_unit2[index],0,$FF,0,$FF)
            elseif v==3 then
                call SetUnitVertexColor(Boss_Spell_unit2[index],0,0,$FF,$FF)
            elseif v==2 then
                call SetUnitVertexColor(Boss_Spell_unit2[index],$FF,0,0,$FF)
            elseif v==1 then
                call SetUnitVertexColor(Boss_Spell_unit2[index],50,$80,0,$FF)
            endif
            set Boss_Spell_data3[n]=index
            set n=index
            set Boss_z[1]=Boss_z[1]+Boss_z[0]
            set v=v-1
        endloop
        set Boss_Spell_data3[n]=0
    endif
    set p=null
endfunction

function NewEquip___YunMieZhiGuang_ChaosSuit takes nothing returns nothing
    local integer id=le
    local integer itemid
    local boolean b1
    local boolean b2
    if s__suit_IsActivate then
        if not NewEquip___ChaosSuit_Use[id]then
            set itemid=GetHeroEquipSlot(id,1)
            set b1=itemid=='I0AP' or itemid=='I0FX' or itemid=='I0FY' or itemid=='I0FZ' or itemid=='I0FZ' or itemid=='I0G4'
            set itemid=GetHeroEquipSlot(id,4)
            set b2=itemid=='I0G0'
            if b1 and b2 then
                set NewEquip___ChaosSuit_Use[id]=true
                call ModifyUnitMagicDamage(id,50)
                call NewTextTagInTarget_B((Je[(id)]),"|c00FF8080Skill Damage(?) +50%",8,$FF,$FF,$FF)
            endif
        endif
    else
        if NewEquip___ChaosSuit_Use[id]then
            set NewEquip___ChaosSuit_Use[id]=false
            call ModifyUnitMagicDamage(id,-50)
        endif
    endif
endfunction

function NewEquip___Equip_I0AP_Multistage_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\OrbOfDeath\\OrbOfDeathMissile.mdl",Boss_Spell_unit2[i],"chest"))
    call UnitDamageTargetBY((Boss_Spell_unit1[i]),(Boss_Spell_unit2[i]),((Boss_Spell_Z[i])*1.),true,false,false,true,(ATTACK_TYPE_MAGIC),(DAMAGE_TYPE_NORMAL),.0,"")
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]-1
    if Boss_Spell_data1[i]<=0 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:682")
        call Boss_Spell_deallocate(i)
        set Boss_Spell_unit1[i]=null
        set Boss_Spell_unit2[i]=null
    endif
endfunction

function NewEquip___Equip_I0AP_onAttack takes nothing returns nothing
    local integer i
    if not(DAK_Multistage[HF])then
        set i=Boss_Spell_allocate()
        set Boss_Spell_unit1[i]=(mF)
        set Boss_Spell_unit2[i]=(MF)
        set Boss_Spell_Z[i]=(DAK_AMOUNT[HF])
        set Boss_Spell_data1[i]=2
        call TimerStart(NewTimer(i),.08,true,function NewEquip___Equip_I0AP_Multistage_func)
    endif
    if GetRandomInt(1,30)==1 then
        if not(IsUnitType(((MF)),UNIT_TYPE_GIANT))then
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl",(MF),"origin"))
            call Gjv((MF),70,Atan2(GetUnitY((MF))-GetUnitY((mF)),GetUnitX((MF))-GetUnitX((mF))),1,"")
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl",(MF),"origin"))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((mF))),(((MF))),((((GetHeroStateByMax(Boss_Spell_unit1[i])*30.)*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FF0000")))
    endif
endfunction

function NewEquip___Equip_I0FY_onAttack_func takes unit attack,real x,real y,real r,real dame returns nothing
    local integer v=7
    local unit u
    set Boss_z[0]=Lx/ v
    set Boss_z[1]=GetRandomReal(0,3.14)
    loop
        exitwhen v==0
        set v=v-1
        set Boss_x[1]=x+$C8*Cos(Boss_z[1])
        set Boss_y[1]=y+$C8*Sin(Boss_z[1])
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Volcano\\VolcanoDeath.mdl",Boss_x[1],Boss_y[1]))
        set Boss_z[1]=Boss_z[1]+Boss_z[0]
    endloop
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y))
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitAliveAndEnemy(u,attack)and IsUnitInRangeXY(u,x,y,r)then
            call UnitDamageTargetBY(((attack)),((u)),((((dame)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($F)*1.))*1.),(("|c00FF0000")))
        endif
    endloop
endfunction

function NewEquip___Equip_I0FY_onAttack takes nothing returns nothing
    if GetRandomInt(1,$A)==1 then
        call NewEquip___Equip_I0FY_onAttack_func((mF),GetUnitX((MF)),GetUnitY((MF)),350,GetHeroState2((mF),true)*45.)
    endif
endfunction

function NewEquip___Active_A0XL_action_func_01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer index
    local real x
    local real y
    local real timed
    local unit u
    if Boss_Spell_data1[i]==0 then
        if Boss_Spell_data2[i]>1 then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        else
            set Boss_Spell_data1[i]=1
            set Boss_Spell_data2[i]=32*7
            set Boss_Spell_data3[i]=1
            set Boss_Spell_eff[i]=AddSpecialEffectTarget("gravitone.mdl",Boss_Spell_unit2[i],"origin")
            call TerrainDeformRipple(Boss_Spell_X[i],Boss_Spell_Y[i],600,100,R2I(7*$3E8),1,600*2/ 400,7*2/ 1,600./ 600.,true)
        endif
    elseif Boss_Spell_data1[i]==1 then
        set x=Boss_Spell_X[i]
        set y=Boss_Spell_Y[i]
        set Boss_Spell_data3[i]=Boss_Spell_data3[i]-1
        if Boss_Spell_data3[i]==0 then
            set Boss_Spell_data3[i]=3
            set Boss_x[1]=GetRandomReal(0,6.28)
            set Boss_y[1]=GetRandomReal(-.25*bj_PI,.25*bj_PI)
            set Boss_z[1]=GetRandomReal(450,550)
            set index=CreateBarrageTypeD(x+Boss_z[1]*Cos(Boss_x[1])*Cos(Boss_y[1]),y+Boss_z[1]*Sin(Boss_x[1])*Cos(Boss_y[1]),$96+Boss_z[1]*Sin(Boss_y[1]),x,y,100)
            call SetBarrageFlightRadian(index,GetRandomReal(.25,.35))
            set s__barrage_speed[index]=.03125*500
            set s__barrage_acceleration[index]=.03125*.03125*$3E8
            call LMv(s__barrage_model[index],"Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl")
            call SetUnitScale(II[(s__barrage_model[index])],((1.25)*1.),0,0)
            call dAe(index)
        endif
        set timed=(100000.-TimerGetRemaining(GameTimer))
        call GroupEnumUnitsInRange(G,x,y,500+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,500)then
                if IsUnitEnemy(u,GetOwningPlayer(Boss_Spell_unit1[i]))and GetUnitAbilityLevel(u,'Avul')==0 then
                    if not MB[(GetUnitUserData((u)))]and GetUnitMoveSpeed(u)>0 then
                        set Boss_x[1]=GetUnitX(u)-x
                        set Boss_y[1]=GetUnitY(u)-y
                        set Boss_z[1]=SquareRoot(Boss_x[1]*Boss_x[1]+Boss_y[1]*Boss_y[1])
                        if Boss_z[1]>$A then
                            set Boss_z[2]=1-(Boss_z[1]*.025+$A)/(Boss_z[1]+$A)
                        else
                            set Boss_z[2]=.75
                        endif
                        set Boss_x[2]=x+Boss_x[1]*Boss_z[2]
                        set Boss_y[2]=y+Boss_y[1]*Boss_z[2]
                        if IsTerrainWalkable(Boss_x[2],Boss_y[2])then
                            call SetUnitX(u,Boss_x[2])
                            call SetUnitY(u,Boss_y[2])
                        endif
                    endif
                    if UnitAlive(u)and Active_A0XL_Dampt[(GetUnitUserData((u)))]<timed then
                        set Active_A0XL_Dampt[(GetUnitUserData((u)))]=timed+.33
                        call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                    endif
                endif
            endif
        endloop
        if Boss_Spell_data2[i]>1 then
            set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        else
            set Boss_Spell_data1[i]=2
            call TimerStart(GetExpiredTimer(),1,true,function NewEquip___Active_A0XL_action_func_01)
        endif
    else
        call KillUnit(Boss_Spell_unit2[i])
        call DestroyEffect(Boss_Spell_eff[i])
        set Boss_Spell_eff[i]=null
        set Boss_Spell_unit1[i]=null
        set Boss_Spell_unit2[i]=null
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:683")
    endif
endfunction

function NewEquip___Active_A0XL_action takes nothing returns nothing
    local integer i=Boss_Spell_allocate()
    local integer index
    local integer v
    local integer n
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local player p=GetTriggerPlayer()
    set Boss_Spell_unit1[i]=GetTriggerUnit()
    set Boss_Spell_X[i]=x
    set Boss_Spell_Y[i]=y
    set Boss_Spell_Z[i]=(40./ 3)*GetHeroState3(Boss_Spell_unit1[i],true)
    set Boss_Spell_data1[i]=0
    set Boss_Spell_data2[i]=16
    set CR=false
    set Boss_Spell_unit2[i]=CreateUnit(p,'e001',x,y,0)
    set CR=true
    call SetUnitX(Boss_Spell_unit2[i],x)
    call SetUnitY(Boss_Spell_unit2[i],y)
    call SetUnitScale(Boss_Spell_unit2[i],4,4,4)
    call DestroyEffect(AddSpecialEffectTarget("shadowassault.mdl",Boss_Spell_unit2[i],"origin"))
    call TimerStart(NewTimer(i),.03125,true,function NewEquip___Active_A0XL_action_func_01)
    set p=null
endfunction

function NewEquip___Equip_spre_action_end takes integer t returns nothing
    if s__I0B2_table_timer_dt[t]!=null then
        loop
            exitwhen s__I0B2_table_v_size[t]==0
            set s__I0B2_table_v_size[t]=s__I0B2_table_v_size[t]-1
            call Ltv(LoadInteger(BYHT,s__I0B2_table_vessel[t],s__I0B2_table_v_size[t]))
        endloop
        call ReleaseTimer(s__I0B2_table_timer_dt[t],"[TimerUtils]Error:684")
        call UnitRemoveAbilityandBuffBY((Je[(s__I0B2_table_user[t])]),'A0X0','B08K')
        call ModifyUnitHP((s__I0B2_table_user[t]),-s__I0B2_table_value_hp[t])
        set s__I0B2_table_timer_dt[t]=null
        set s__I0B2_table_value_hp[t]=0
        set s__I0B2_table_value_ang[t]=0
    endif
endfunction

function NewEquip___Equip_spre_action_func03 takes nothing returns nothing
    local integer t=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=s__I0B2_table_user[t]
    local integer i=s__I0B2_table_v_size[t]
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local integer fx
    if s__I0B2_table_value_cd[t]>0 then
        set s__I0B2_table_value_cd[t]=s__I0B2_table_value_cd[t]-1
    endif
    set s__I0B2_table_value_duration[t]=s__I0B2_table_value_duration[t]-1
    set s__I0B2_table_value_ang[t]=s__I0B2_table_value_ang[t]+Lx/ 32.
    if s__I0B2_table_value_duration[t]>0 and UnitAlive((Je[(id)]))then
        loop
            exitwhen i==0
            set i=i-1
            set fx=LoadInteger(BYHT,s__I0B2_table_vessel[t],i)
            call LKv(fx,x+80*Cos(s__I0B2_table_value_ang[t]+i*Lx/ 4))
            call Llv(fx,y+80*Sin(s__I0B2_table_value_ang[t]+i*Lx/ 4))
        endloop
    else
        call NewEquip___Equip_spre_action_end(t)
    endif
endfunction

function NewEquip___Equip_spre_action_func02 takes nothing returns nothing
    local integer t=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:685")
    local integer id=s__I0B2_table_user[t]
    local integer maxhp=$88B8
    local integer i
    local integer fx
    set s__I0B2_table_value_duration[t]=256
    if s__I0B2_table_value_hp[t]!=maxhp then
        set i=s__I0B2_table_value_hp[t]+R2I(s__I0B2_table_value_damage[t])
        if i>maxhp then
            set i=maxhp
        endif
        if s__I0B2_table_timer_dt[t]==null then
            set s__I0B2_table_timer_dt[t]=NewTimer(t)
            call UnitAddAbilityBY((Je[(id)]),'A0X0')
            call TimerStart(s__I0B2_table_timer_dt[t],.03125,true,function NewEquip___Equip_spre_action_func03)
        endif
        if s__I0B2_table_value_cd[t]==0 and s__I0B2_table_value_damage[t]>1 then
            set s__I0B2_table_value_cd[t]=$C
            call NewTextTagInTarget_B((Je[(id)]),"+"+I2S(i-s__I0B2_table_value_hp[t]),8,$FF,0,0)
            call DestroyEffect(AddSpecialEffectTarget("SmallBloodEX-NoSplat.mdl",(Je[(id)]),"chest"))
        endif
        call ModifyUnitHP((id),i-s__I0B2_table_value_hp[t])
        set s__I0B2_table_value_hp[t]=i
        if i==maxhp then
            set i=4
        else
            set i=R2I(4.*i/ maxhp)
        endif
        loop
            exitwhen s__I0B2_table_v_size[t]>=i
            set fx=Lnv(GetUnitX((Je[(id)]))+80*Cos(s__I0B2_table_value_ang[t]+s__I0B2_table_v_size[t]*Lx/ 4),GetUnitY((Je[(id)]))+80*Sin(s__I0B2_table_value_ang[t]+s__I0B2_table_v_size[t]*Lx/ 4),0)
            call LMv(fx,"bloodysplat missile.mdl")
            call SetUnitScale(II[(fx)],((1.25)*1.),0,0)
            call SetUnitFlyHeight(II[(fx)],((50)*1.),0)
            call Lfv(fx,$FF,125,125,105)
            call SaveInteger(BYHT,s__I0B2_table_vessel[t],s__I0B2_table_v_size[t],fx)
            set s__I0B2_table_v_size[t]=s__I0B2_table_v_size[t]+1
        endloop
    endif
    set s__I0B2_table_timer_dg[t]=null
    set s__I0B2_table_value_damage[t]=0
endfunction

function NewEquip___Equip_spre_action_func01 takes nothing returns nothing
    local integer t=Equip_spre_Table[(pF_v)]
    if s__I0B2_table_timer_dg[t]==null then
        set s__I0B2_table_timer_dg[t]=NewTimer(t)
        call TimerStart(s__I0B2_table_timer_dg[t],0,false,function NewEquip___Equip_spre_action_func02)
    endif
    set s__I0B2_table_value_damage[t]=s__I0B2_table_value_damage[t]+.007*GetDamage()
endfunction

function NewEquip___Equip_spre_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    local integer t
    if b then
        set t=s__I0B2_table_new()
        set s__I0B2_table_user[t]=id
        set Equip_spre_Table[id]=t
        set s__I0B2_table_trig_dg[t]=UnitAddDamagerTrigB(id,function NewEquip___Equip_spre_action_func01)
        call Unit_App_Counter($450,id)
    else
        set t=Equip_spre_Table[id]
        if t!=null then
            set Equip_spre_Table[id]=0
            call NewEquip___Equip_spre_action_end(t)
            if s__I0B2_table_trig_dg[t]!=null then
                call s__Trig_remove(s__I0B2_table_trig_dg[t])
                set s__I0B2_table_trig_dg[t]=0
            endif
            if s__I0B2_table_timer_dg[t]!=null then
                call ReleaseTimer(s__I0B2_table_timer_dg[t],"[TimerUtils]Error:686")
                set s__I0B2_table_timer_dg[t]=null
            endif
            if s__I0B2_table_value_agi[t]>0 then
                call HeroAddExtraAgi((id),-s__I0B2_table_value_agi[t])
                call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X2','A0X2')
                call Boss_Spell_deallocate(s__I0B2_table_value_cd[t])
                if Boss_Spell_group1[s__I0B2_table_value_cd[t]]!=null then
                    call DestroyGroup(Boss_Spell_group1[s__I0B2_table_value_cd[t]])
                    set Boss_Spell_group1[s__I0B2_table_value_cd[t]]=null
                endif
                set s__I0B2_table_value_agi[t]=0
                set s__I0B2_table_value_cd[t]=0
            endif
            call free(s__I0B2_table_vessel[(t)])
            call Unit_Cancel_Counter($451,id)
        endif
    endif
endfunction

function NewEquip___Active_A0X1_action_func04 takes integer id returns nothing
    local integer t=Equip_spre_Table[id]
    local integer i=s__I0B2_table_value_cd[t]
    if Boss_Spell_group1[i]!=null then
        call DestroyGroup(Boss_Spell_group1[i])
        set Boss_Spell_group1[i]=null
    endif
    call s__Trig_remove(s__I0B2_table_trig_dg[t])
    call ReleaseTimer(s__I0B2_table_timer_dg[t],"[TimerUtils]Error:687")
    call HeroAddExtraAgi((id),-s__I0B2_table_value_agi[t])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X2','A0X2')
    call Boss_Spell_deallocate(i)
    call Unit_Cancel_Counter($452,(id))
    set s__I0B2_table_trig_dg[t]=UnitAddDamagerTrigB(id,function NewEquip___Equip_spre_action_func01)
    set s__I0B2_table_value_agi[t]=0
    set s__I0B2_table_value_cd[t]=0
    set s__I0B2_table_timer_dg[t]=null
endfunction

function NewEquip___Active_A0X1_action_func03 takes nothing returns nothing
    call NewEquip___Active_A0X1_action_func04(s__Trig_P)
endfunction

function NewEquip___Active_A0X1_action_func02 takes nothing returns nothing
    call NewEquip___Active_A0X1_action_func04((alloc__hpv(GetHandleId((GetExpiredTimer())))))
endfunction

function NewEquip___Active_A0X1_action_func01 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data2[i]
    local unit u
    local real x=Boss_Spell_X[i]
    local real y=Boss_Spell_Y[i]
    local real r
    local integer v
    set Boss_Spell_data1[i]=Boss_Spell_data1[i]+1
    set v=16
    set Boss_x[0]=Boss_Spell_data1[i]*50
    set Boss_y[0]=Cos(Boss_Spell_data1[i]*30)*60*bj_DEGTORAD
    set Boss_z[0]=Lx/ v
    loop
        exitwhen v<=0
        set v=v-1
        set Boss_x[1]=x+Boss_x[0]*Cos(Boss_y[0])
        set Boss_y[1]=y+Boss_x[0]*Sin(Boss_y[0])
        call DestroyEffect(AddSpecialEffect("bloodex-special.mdl",Boss_x[1],Boss_y[1]))
        set Boss_y[0]=Boss_y[0]+Boss_z[0]
    endloop
    set r=Boss_x[0]+50
    call GroupEnumUnitsInRange(G,x,y,r+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitAliveAndEnemy(u,(Je[(id)]))and IsUnitInRangeXY(u,x,y,r)and not IsUnitInGroup(u,Boss_Spell_group1[i])then
            call GroupAddUnit(Boss_Spell_group1[i],u)
            call DestroyEffect(AddSpecialEffectTarget("elunesfire.mdl",u,"chest"))
            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call m1v(u,2.5)
        endif
    endloop
    if Boss_Spell_data1[i]>=$B then
        call DestroyGroup(Boss_Spell_group1[i])
        set Boss_Spell_group1[i]=null
        call alloc__hPv(GetHandleId((GetExpiredTimer())),(id))
        call TimerStart(GetExpiredTimer(),$A,false,function NewEquip___Active_A0X1_action_func02)
    endif
endfunction

function NewEquip___Active_A0X1_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer t=Equip_spre_Table[id]
    local integer i
    local real x
    local real y
    local real d
    if s__I0B2_table_timer_dt[t]==null then
        call IssueUnitStop_DisplayText((Je[(id)]),"|c00FF0000Not enough blood is stored|r")
    else
        set d=50*s__I0B2_table_value_hp[t]
        call s__Trig_remove(s__I0B2_table_trig_dg[t])
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        set i=Boss_Spell_allocate()
        if s__I0B2_table_timer_dg[t]==null then
            set s__I0B2_table_timer_dg[t]=NewTimer(i)
        else
            call alloc__hPv(GetHandleId((s__I0B2_table_timer_dg[t])),(i))
        endif
        set s__I0B2_table_value_cd[t]=i
        set s__I0B2_table_trig_dg[t]=AddUnitDeathTrigB(id,function NewEquip___Active_A0X1_action_func03)
        set s__I0B2_table_value_agi[t]=IMaxBJ(1,R2I(.2*GetHeroAgiNotExtra((id))))
        set Boss_Spell_data1[i]=0
        set Boss_Spell_data2[i]=id
        set Boss_Spell_X[i]=x
        set Boss_Spell_Y[i]=y
        set Boss_Spell_Z[i]=d
        set Boss_Spell_group1[i]=CreateGroup()
        call HeroAddExtraAgi((id),s__I0B2_table_value_agi[t])
        call UnitAddAbilityBY((Je[(id)]),'A0X2')
        call Ltv(LAv("blackchakraexplosion.mdl",x,y,2.))
        call TimerStart(s__I0B2_table_timer_dg[t],.05,true,function NewEquip___Active_A0X1_action_func01)
        call Unit_App_Counter($453,(id))
        call NewEquip___Equip_spre_action_end(t)
    endif
endfunction

function NewEquip___Equip_rma2_action_func02 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:688")
    if(Je[(id)])!=null then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X3','B08M')
        if nC[id]then
            call ModifyHeroAllStat(id,-500)
        endif
        call ModifyUnitAttack(id,-$2710)
        call ModifyUnitArmor(id,-500)
        call ModifyUnitMagicDamage(id,-$A)
    endif
    set Equip_rma2_Buff_timer[id]=null
    call Unit_Cancel_Counter($454,id)
endfunction

function NewEquip___Equip_rma2_action_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    local unit u
    local real x
    local real y
    if Boss_Spell_data2[i]==0 then
        set Boss_Spell_data2[i]=1
        call TimerStart(Boss_Spell_timer[i],.33,true,function NewEquip___Equip_rma2_action_func)
    endif
    if UnitAlive(Boss_Spell_unit1[i])then
        set x=GetUnitX(Boss_Spell_unit1[i])
        set y=GetUnitY(Boss_Spell_unit1[i])
        call GroupEnumUnitsInRange(G,x,y,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            set id=(GetUnitUserData((u)))
            if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndAlly(u,Boss_Spell_unit1[i])then
                if Equip_rma2_Buff_timer[id]==null then
                    set Equip_rma2_Buff_timer[id]=NewTimer(id)
                    if nC[id]then
                        call ModifyHeroAllStat(id,500)
                    endif
                    call ModifyUnitAttack(id,$2710)
                    call ModifyUnitArmor(id,500)
                    call ModifyUnitMagicDamage(id,$A)
                    call UnitAddAbilityBY(u,'A0X3')
                    call Unit_App_Counter($455,id)
                endif
                call TimerStart(Equip_rma2_Buff_timer[id],.625,false,function NewEquip___Equip_rma2_action_func02)
            endif
        endloop
    endif
endfunction

function NewEquip___Equip_rma2_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    local integer i
    if b then
        set i=Boss_Spell_allocate()
        set Equip_rma2_Buff[id]=i
        set Boss_Spell_unit1[i]=(Je[(id)])
        set Boss_Spell_timer[i]=NewTimer(i)
        set Boss_Spell_data1[i]=id
        set Boss_Spell_data2[i]=0
        set Boss_Spell_data3[i]=ModifyUnitAdef(id,-20)
        call TimerStart(Boss_Spell_timer[i],.0,false,function NewEquip___Equip_rma2_action_func)
        call Unit_App_Counter($456,id)
    elseif Equip_rma2_Buff[id]!=null then
        set i=Equip_rma2_Buff[id]
        call DeUnitAdef(id,Boss_Spell_data3[i])
        call ReleaseTimer(Boss_Spell_timer[i],"[TimerUtils]Error:689")
        call Boss_Spell_deallocate(i)
        call Unit_Cancel_Counter($457,id)
    endif
endfunction

function NewEquip___Equip_I0FV_action_func02 takes nothing returns nothing
    local integer id
    local real r=GetDamage()
    if(mF)!=(MF)and GetWidgetLife((MF))-r<=.405 then
        set id=(pF)
        call SetItemDroppableTimedById(id,'I0FV',$A)
        call DestroyEffect(AddSpecialEffectTarget("FreezingRing.mdl",(MF),"origin"))
        call NewTextTagInTarget_B((MF),"|c0000FFFFDamage resistance ("+I2S(R2I(r))+")",$A,$FF,$FF,$FF)
        call UnitRemoveAbilityandBuffBY((MF),'A0X4','B08N')
        call s__Trig_remove((Equip_I0FV_Buff[id]))
        set Equip_I0FV_Buff[id]=0
        call Unit_Cancel_Counter($458,id)
        set KF[HF]=PF+1000000.
    endif
endfunction

function NewEquip___Equip_I0FV_action_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if Equip_I0FV_Buff[id]==null then
        call UnitAddAbilityBY((Je[(id)]),'A0X4')
        set Equip_I0FV_Buff[id]=UnitAddShieldTrigB(id,function NewEquip___Equip_I0FV_action_func02)
        call Unit_App_Counter($459,id)
    endif
endfunction

function NewEquip___Equip_I0FV_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        set Equip_I0FV_timer[id]=NewTimer(id)
        call TimerStart(Equip_I0FV_timer[id],10.,true,function NewEquip___Equip_I0FV_action_func)
        call Unit_App_Counter($45A,id)
    elseif Equip_I0FV_timer[id]!=null then
        if Equip_I0FV_Buff[id]!=null then
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X4','B08N')
            call s__Trig_remove((Equip_I0FV_Buff[id]))
            set Equip_I0FV_Buff[id]=0
            call Unit_Cancel_Counter($45B,id)
        endif
        call ReleaseTimer(Equip_I0FV_timer[id],"[TimerUtils]Error:690")
        set Equip_I0FV_timer[id]=null
        call Unit_Cancel_Counter($45C,id)
    endif
endfunction

function NewEquip___Equip_I0AR_BuffRemove takes integer id returns nothing
    local integer i=Equip_I0AR_Buff3[id]
    if i>0 then
        if Boss_Spell_data2[i]==1 then
            call ModifyUnitMagicDamage(id,-$F)
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X5','B08O')
        elseif Boss_Spell_data2[i]==2 then
            call DeUnitAdef(id,Boss_Spell_data3[i])
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X6','B08P')
        else
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X7','B08Q')
        endif
        call ReleaseTimer(Boss_Spell_timer[i],"[TimerUtils]Error:691")
        call Boss_Spell_deallocate(i)
        set Boss_Spell_timer[i]=null
        set Equip_I0AR_Buff3[id]=0
        call Unit_Cancel_Counter($45D,id)
    endif
endfunction

function NewEquip___Equip_I0AR_BuffLoop takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[i]
    if UnitAlive((Je[(id)]))then
        if Boss_Spell_data2[i]==3 then
            call UnitCureTaret((Je[(id)]),(Je[(id)]),.3*Boss_Spell_data3[i])
        endif
    else
        set Boss_Spell_X[i]=$A
    endif
    if Boss_Spell_X[i]<$A then
        set Boss_Spell_X[i]=Boss_Spell_X[i]+1
    else
        call NewEquip___Equip_I0AR_BuffRemove(id)
    endif
endfunction

function NewEquip___Equip_I0AR_AddBuff takes integer id,integer random returns nothing
    local integer i
    if(Je[(id)])!=null then
        call NewEquip___Equip_I0AR_BuffRemove(id)
        set i=Boss_Spell_allocate()
        set Equip_I0AR_Buff3[id]=i
        set Boss_Spell_data1[i]=id
        set Boss_Spell_data2[i]=random
        set Boss_Spell_X[i]=0
        set Boss_Spell_timer[i]=NewTimer(i)
        if random==1 then
            call ModifyUnitMagicDamage(id,$F)
            call UnitAddAbilityBY((Je[(id)]),'A0X5')
            call NewTextTagInTarget_B((Je[(id)]),"|c00ff8080Skill Damage+15%",9,$FF,$FF,$FF)
        elseif random==2 then
            set Boss_Spell_data3[i]=ModifyUnitAdef(id,20)
            call UnitAddAbilityBY((Je[(id)]),'A0X6')
            call NewTextTagInTarget_B((Je[(id)]),"|c00adb3f5Reduction+20% ",9,$FF,$FF,$FF)
        else
            set Boss_Spell_data3[i]=GetHeroPropertiesByAll(id)
            call UnitAddAbilityBY((Je[(id)]),'A0X7')
            call NewTextTagInTarget_B((Je[(id)]),"|c0080ff80++Regeneration",9,$FF,$FF,$FF)
        endif
        call TimerStart(Boss_Spell_timer[i],.99,true,function NewEquip___Equip_I0AR_BuffLoop)
        call Unit_App_Counter($45E,id)
    endif
endfunction

function NewEquip___Equip_I0AR_action_func02 takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:692")
    if(Je[(id)])!=null then
        call HeroAddExtraStr(id,-Equip_I0AR_Halo_Str[id])
        call HeroAddExtraAgi(id,-Equip_I0AR_Halo_Agi[id])
        call HeroAddExtraInt(id,-Equip_I0AR_Halo_Int[id])
        set Equip_I0AR_Halo_Str[id]=0
        set Equip_I0AR_Halo_Agi[id]=0
        set Equip_I0AR_Halo_Int[id]=0
    endif
    set Equip_I0AR_Halo_timer[id]=null
    call Unit_Cancel_Counter($45F,id)
endfunction

function NewEquip___Equip_I0AR_action_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id
    local integer v
    local unit u
    local real x
    local real y
    if UnitAlive(Boss_Spell_unit1[i])then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]+1
        if Boss_Spell_data2[i]==32 then
            set Boss_Spell_data2[i]=0
            call NewEquip___Equip_I0AR_AddBuff(Boss_Spell_data1[i],GetRandomInt(1,3))
        endif
        set x=GetUnitX(Boss_Spell_unit1[i])
        set y=GetUnitY(Boss_Spell_unit1[i])
        call GroupEnumUnitsInRange(G,x,y,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            set id=(GetUnitUserData((u)))
            if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndAlly(u,Boss_Spell_unit1[i])and nC[id]then
                if Equip_I0AR_Halo_timer[id]==null then
                    set Equip_I0AR_Halo_timer[id]=NewTimer(id)
                    set Equip_I0AR_Halo_Str[id]=0
                    set Equip_I0AR_Halo_Agi[id]=0
                    set Equip_I0AR_Halo_Int[id]=0
                    call Unit_App_Counter($460,id)
                endif
                set v=R2I(.2*GetHeroStrNotExtra(id))
                if v!=Equip_I0AR_Halo_Str[id]then
                    call HeroAddExtraStr(id,v-Equip_I0AR_Halo_Str[id])
                    set Equip_I0AR_Halo_Str[id]=v
                endif
                set v=R2I(.2*GetHeroAgiNotExtra(id))
                if v!=Equip_I0AR_Halo_Agi[id]then
                    call HeroAddExtraAgi(id,v-Equip_I0AR_Halo_Agi[id])
                    set Equip_I0AR_Halo_Agi[id]=v
                endif
                set v=R2I(.2*GetHeroIntNotExtra(id))
                if v!=Equip_I0AR_Halo_Int[id]then
                    call HeroAddExtraInt(id,v-Equip_I0AR_Halo_Int[id])
                    set Equip_I0AR_Halo_Int[id]=v
                endif
                call TimerStart(Equip_I0AR_Halo_timer[id],.5,false,function NewEquip___Equip_I0AR_action_func02)
            endif
        endloop
    else
        set Boss_Spell_data2[i]=0
    endif
endfunction

function NewEquip___Equip_I0AR_action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    local integer i
    if b then
        set i=Boss_Spell_allocate()
        set Equip_I0AR_Vessel[id]=i
        set Boss_Spell_unit1[i]=(Je[(id)])
        set Boss_Spell_timer[i]=NewTimer(i)
        set Boss_Spell_data1[i]=id
        set Boss_Spell_data2[i]=0
        set Boss_Spell_data3[i]=0
        call TimerStart(Boss_Spell_timer[i],.3125,true,function NewEquip___Equip_I0AR_action_func)
        call Unit_App_Counter($461,id)
    elseif Equip_I0AR_Vessel[id]!=null then
        call NewEquip___Equip_I0AR_BuffRemove(id)
        set i=Equip_I0AR_Vessel[id]
        call ReleaseTimer(Boss_Spell_timer[i],"[TimerUtils]Error:693")
        call Boss_Spell_deallocate(i)
        call Unit_Cancel_Counter($462,id)
    endif
endfunction

function NewEquip___Active_A0X8_RemoveBuff_func takes nothing returns nothing
    call SetUnitNotSeckill(ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:694"),false)
endfunction

function NewEquip___Active_A0X8_RemoveBuff takes integer id returns nothing
    local integer i=Equip_I0AR_Buff4[id]
    if i>0 and GetHandleId(Boss_Spell_unit1[i])==id then
        if(Je[(id)])!=null then
            call s__Trig_remove((Boss_Spell_data2[i]))
            call s__Trig_remove((Boss_Spell_data3[i]))
            call DeUnitAdef(id,Boss_Spell_data1[i])
            call ModifyUnitArmor(id,-$2710)
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0X9','B08R')
            call SetUnitNotSeckill(id,true)
            call TimerStart(NewTimer(id),1,false,function NewEquip___Active_A0X8_RemoveBuff_func)
            call Unit_App_Counter($463,id)
        endif
        set Equip_I0AR_Buff4[id]=0
        call ReleaseTimer(Boss_Spell_timer[i],"[TimerUtils]Error:695")
        call Boss_Spell_deallocate(i)
        call Unit_Cancel_Counter($464,id)
    endif
endfunction

function NewEquip___Active_A0X8_Killed takes nothing returns nothing
    local unit u=(Je[(s__Trig_P)])
    if KillUnit_bool then
        set KillUnit_bool=false
        call NewTextTagInTarget_B(u,"|c0000FFFFmiss",$A,$FF,$FF,$FF)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\SpellShieldAmulet\\SpellShieldCaster.mdl",u,"origin"))
        call SetWidgetLife(u,$98967F)
        call NewEquip___Active_A0X8_RemoveBuff((GetUnitUserData((u))))
    endif
    set u=null
endfunction

function NewEquip___Active_A0X8_onDamaged takes nothing returns nothing
    local real r=GetDamage()
    if GetWidgetLife((MF))-r<=.405 then
        set r=r-GetWidgetLife((MF))+.5
        call NewEquip___Active_A0X8_RemoveBuff((pF))
        call SetWidgetLife((MF),$98967F)
        call NewTextTagInTarget_B((MF),"|c0000FFFFBLOCK ("+I2S(R2I(r))+")",$A,$FF,$FF,$FF)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\SpellShieldAmulet\\SpellShieldCaster.mdl",(MF),"origin"))
        set KF[HF]=PF+1000000.
    endif
endfunction

function NewEquip___Active_A0X8_action_func takes nothing returns nothing
    call NewEquip___Active_A0X8_RemoveBuff(GetHandleId(Boss_Spell_unit1[(alloc__hpv(GetHandleId((GetExpiredTimer()))))]))
endfunction

function NewEquip___Active_A0X8_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    local real x
    local real y
    if Equip_I0AR_Buff4[id]==null then
        set i=Boss_Spell_allocate()
        set Equip_I0AR_Buff4[id]=i
        set Boss_Spell_timer[i]=NewTimer(i)
        set Boss_Spell_unit1[i]=ConvertVersion(id)
        set Boss_Spell_data1[i]=ModifyUnitAdef(id,50)
        set Boss_Spell_data2[i]=UnitAddShieldTrigB(id,function NewEquip___Active_A0X8_onDamaged)
        set Boss_Spell_data3[i]=HeroAddBeKillTrigB(id,function NewEquip___Active_A0X8_Killed)
        call ModifyUnitArmor(id,$2710)
        call UnitAddAbilityBY((Je[(id)]),'A0X9')
        call Unit_App_Counter($465,id)
    else
        set i=Equip_I0AR_Buff4[id]
    endif
    call TimerStart(Boss_Spell_timer[i],$F,false,function NewEquip___Active_A0X8_action_func)
endfunction

function NewEquip___Equip_fwss_onAttack takes nothing returns nothing
    if GetRandomInt(1,100)<=$C then
        call DestroyEffect(AddSpecialEffectTarget("darkpillar.mdl",(MF),"origin"))
        call Auxiliary_TargetOrder(('A0XA'),null,1,$D00B5,(MF))
    endif
endfunction

function Active_A0XB_action takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("BloodEX-Special.mdl",GetTriggerUnit(),"origin"))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",GetTriggerUnit(),"origin"))
    call UnitCureTaret(GetTriggerUnit(),GetTriggerUnit(),.6*GetUnitState(GetTriggerUnit(),UNIT_STATE_MAX_LIFE))
endfunction

function NewEquip___Active_A0XD_action_func03 takes integer id returns nothing
    local integer i=Active_A0XD_Buff[id]
    if i>0 and Boss_Spell_data1[i]==id then
        if(Je[(id)])!=null then
            call s__Trig_remove((Boss_Spell_data2[i]))
            call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0XE','B08U')
        endif
        set Active_A0XD_Buff[id]=0
        call Boss_Spell_deallocate(i)
        call Unit_Cancel_Counter($466,id)
    endif
endfunction

function NewEquip___Active_A0XD_action_func02 takes nothing returns nothing
    local real r=GetDamage()
    call UnitCureTaret((MF),(MF),r)
    set KF[HF]=PF+1000000.
endfunction

function NewEquip___Active_A0XD_action_func takes nothing returns nothing
    call NewEquip___Active_A0XD_action_func03(Boss_Spell_data1[ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:696")])
endfunction

function NewEquip___Active_A0XD_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer i
    local real x
    local real y
    if Active_A0XD_Buff[id]==null then
        set i=Boss_Spell_allocate()
        set Active_A0XD_Buff[id]=i
        set Boss_Spell_timer[i]=NewTimer(i)
        set Boss_Spell_data1[i]=id
        set Boss_Spell_data2[i]=UnitAddShieldTrigB(id,function NewEquip___Active_A0XD_action_func02)
        call UnitAddAbilityBY((Je[(id)]),'A0XE')
        call Unit_App_Counter($467,id)
    else
        set i=Active_A0XD_Buff[id]
    endif
    call TimerStart(Boss_Spell_timer[i],5,false,function NewEquip___Active_A0XD_action_func)
endfunction

function NewEquip___Active_A0XH_action takes nothing returns nothing
    local unit c=GetTriggerUnit()
    local unit u
    local integer i=6
    local real x=GetSpellTargetX()
    local real y=GetSpellTargetY()
    local real d=30*GetHeroState3(c,true)
    local real a
    call GroupEnumUnitsInRange(G,x,y,675,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,600)and IsUnitAliveAndEnemy(u,c)then
            call UnitDamageTargetBY(((c)),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call m1v(u,1)
        endif
    endloop
    loop
        set i=i-1
        set a=Lx*i/ 6
        call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x+350*Cos(a),y+350*Sin(a),2))
        call Lqv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x+350*Cos(a),y+350*Sin(a),2.5),7.5)
        exitwhen i==0
    endloop
    call Ltv(LAv("FireNova.mdx",x,y,1.5))
    call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,2))
    call Lqv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x,y,5),7.5)
    call CSv((GetPlayerId((GetOwningPlayer(c)))),40,.5)
    set bj_lastCreatedUnit=null
    call Auxiliary_PointOrder(('A0D3'),GetOwningPlayer(c),2,$D0108,x,y)
    if bj_lastCreatedUnit!=null then
        set Master[(GetUnitUserData((bj_lastCreatedUnit)))]=(GetUnitUserData((c)))
    endif
    set c=null
endfunction

function NewEquip___SummonedUnit_nrwm_onAttack takes nothing returns nothing
    local integer id=Master[(pF_v)]
    local real v=(1.+Unit_MATK[id])*(1.-GetUnitMdef((pF)))
    if(IsUnitType(((MF)),UNIT_TYPE_GIANT))then
        set v=.4*v
    endif
    call DamageAmplify(v*2*GetHeroState3((Je[(id)]),true))
endfunction

function NewEquip___SummonedUnit_nrwm_EnterWorld takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSummonedUnit())))
    call UnitAddPAttackTrig(id,function NewEquip___SummonedUnit_nrwm_onAttack)
    set bj_lastCreatedUnit=GetSummonedUnit()
endfunction

function NewEquip___Active_A0XI_action_func takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local real x
    local real y
    local unit u
    if Boss_Spell_data2[i]>0 then
        set Boss_Spell_data2[i]=Boss_Spell_data2[i]-1
        set x=(GetUnitX(II[(Boss_Spell_data1[i])]))+Boss_Spell_X[i]
        set y=(GetUnitY(II[(Boss_Spell_data1[i])]))+Boss_Spell_Y[i]
        if IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY)==FALSE then
            call LKv(Boss_Spell_data1[i],x)
            call Llv(Boss_Spell_data1[i],y)
            call GroupEnumUnitsInRange(G,x,y,125,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null or IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])
                call GroupRemoveUnit(G,u)
            endloop
            if u!=null then
                set Boss_Spell_data2[i]=0
            endif
        else
            set Boss_Spell_data2[i]=0
        endif
        if Boss_Spell_data2[i]<=0 then
            set Boss_Spell_X[i]=(GetUnitX(II[(Boss_Spell_data1[i])]))
            set Boss_Spell_Y[i]=(GetUnitY(II[(Boss_Spell_data1[i])]))
            call Ltv(Boss_Spell_data1[i])
            call Ltv(LAv("s_lavabomb.mdl",x,y,2.5))
            call Ltv(LAv("shrapnelshards.mdl",x,y,2.))
            call TimerStart(GetExpiredTimer(),.2,false,function NewEquip___Active_A0XI_action_func)
        endif
    else
        set x=Boss_Spell_X[i]
        set y=Boss_Spell_Y[i]
        call GroupEnumUnitsInRange(G,x,y,450,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,375)and IsUnitAliveAndEnemyNotAvul(u,Boss_Spell_unit1[i])then
                call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",u,"origin"))
                call UnitDamageTargetBY(((Boss_Spell_unit1[i])),((u)),((((Boss_Spell_Z[i])*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((0)*1.))*1.),(("")))
                call m1v(u,1)
            endif
        endloop
        call Boss_Spell_deallocate(i)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:697")
    endif
endfunction

function NewEquip___Active_A0XI_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer id2=Master[id]
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a=Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)
    local real tX=Cos(a)
    local real tY=Sin(a)
    local integer i=Boss_Spell_allocate()
    set Boss_Spell_unit1[i]=(Je[(id)])
    set Boss_Spell_unit2[i]=(Je[(id2)])
    set Boss_Spell_X[i]=tX*50
    set Boss_Spell_Y[i]=tY*50
    set Boss_Spell_Z[i]=(1+Unit_MATK[id2])*GetHeroState3(Boss_Spell_unit2[i],true)*45
    set Boss_Spell_data1[i]=LIv("Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl",x+Boss_Spell_X[i]*2,y+Boss_Spell_Y[i]*2,$AF,4,a,90)
    set Boss_Spell_data2[i]=24
    call TimerStart(NewTimer(i),.03125,true,function NewEquip___Active_A0XI_action_func)
endfunction

function NewEquip___Active_A0XJ_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer id2=Master[id]
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    local real r
    local real d=(1+Unit_MATK[id2])*60*GetHeroState3(Je[id2],true)
    local integer i=4
    local integer v
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$433,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$3E8)and IsUnitAliveAndEnemy(u,(Je[(id)]))then
            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            call m1v(u,1)
        endif
    endloop
    loop
        set i=i-1
        set a=bj_PI*i/ 4
        set v=3
        loop
            set r=v*300
            call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x+r*Cos(a),y+r*Sin(a),2))
            call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x-r*Cos(a),y-r*Sin(a),2))
            set v=v-1
            exitwhen v==0
        endloop
        exitwhen i==0
    endloop
    call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2))
endfunction

function NewEquip___Equip_ledg_onDamage takes nothing returns nothing
    if(DAK_DGTYPE[HF]==DAMAGE_TYPE_MAGIC)and not(JF[HF])and GetRandomInt(1,100)<=$F then
        call UnitDamageTargetBY(((mF)),((MF)),(((DAK_AMOUNT[HF])*.5)*1.),false,false,true,false,DAK_ACTYPE[HF],DAK_DGTYPE[HF],.0,"")
    endif
endfunction

function NewEquip___Equip_I0FU_onAttack takes nothing returns nothing
    local integer tid=s__Trig_Index
    if not(DAK_Multistage[HF])then
        call m1v((MF),1)
        call UnitDamageTargetBY((((mF))),(((MF))),(((($7530+$A*GetHeroStateByMax((mF)))*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((20)*1.))*1.),(("|cFFFF3300")))
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",(MF),"origin"))
        call UnitRemoveAbilityandBuffBY((mF),'A0XK','B08X')
        call s__Trig_remove((tid))
        set Equip_I0FU_AtkBuff[(GetUnitUserData(((mF))))]=0
    endif
endfunction

function NewEquip___Equip_I0FU_onSpellEffect takes nothing returns nothing
    local integer id=s__Trig_P
    if Equip_I0FU_AtkBuff[id]==null then
        set Equip_I0FU_AtkBuff[id]=UnitAddPAttackTrigB(id,function NewEquip___Equip_I0FU_onAttack)
        call UnitAddAbilityBY((Je[(id)]),'A0XK')
    endif
endfunction

function NewEquip___Equip_I0FU_Action takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if Equip_I0FU_AtkBuff[id]!=null then
        call s__Trig_remove((Equip_I0FU_AtkBuff[id]))
        set Equip_I0FU_AtkBuff[id]=0
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0XK','B08X')
    endif
endfunction

function Active_A0US_action takes nothing returns nothing
    if GetUnitPropWindow(GetTriggerUnit())==0 then
        call NewTextTagInTarget_B(GetTriggerUnit(),"Can not move!",8,$CD,$FF,$9B)
        call IssueImmediateOrderById(GetTriggerUnit(),$D0004)
    endif
endfunction

function Equip_wneu_onAttack_func takes nothing returns nothing
    local integer id=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:698")
    call ModifyUnitMagicDamage(id,-$D)
    call DeUnitMdef(id,Equip_wneu_mdef[id])
    call UnitRemoveAbilityandBuffBY((Je[(id)]),'A10R','B09M')
    call Unit_Cancel_Counter($468,id)
    set Equip_wneu_timer[id]=null
endfunction

function Equip_wneu_onAttack takes nothing returns nothing
    local integer id
    if GetRandomInt(1,100)<=$A then
        set id=(pF_v)
        if Equip_wneu_timer[id]==null then
            set Equip_wneu_timer[id]=NewTimer(id)
            set Equip_wneu_mdef[id]=ModifyUnitMdef(id,$D)
            call ModifyUnitMagicDamage(id,$D)
            call UnitAddAbilityBY((Je[(id)]),'A10R')
            call Unit_App_Counter($469,id)
        endif
        call TimerStart(Equip_wneu_timer[id],8,false,function Equip_wneu_onAttack_func)
    endif
endfunction

function Equip_silk_onAttack takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(MF),"origin"))
    call UnitDamageTargetBY((((mF))),(((MF))),(((($2EE0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    call s__poison_attack((mF),(MF),$7D0,$A,1,4)
endfunction

function Equip_wneu_onBeAttack takes nothing returns nothing
    if GetRandomInt(1,100)<=50 then
        call s__poison_attack((MF),(mF),5000,5,1,4)
    endif
endfunction

function Equip_pinv_onBeAttack takes nothing returns nothing
    if GetRandomInt(1,100)<=50 then
        call s__poison_attack((MF),(mF),$7D0,5,1,4)
    endif
endfunction

function Equip_tret_onAttack takes nothing returns nothing
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Web\\Web_AirTarget.mdl",(MF),"chest"))
    call UnitDamageTargetBY((((mF))),(((MF))),(((($4E20)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
    call s__poison_attack((mF),(MF),5000,$A,1,5)
endfunction

function Active_A10P_action_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local integer v=Boss_Spell_data2[data]
    local integer i=$A
    local integer fx
    local real r
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local real tx
    local real ty
    local real a
    local real d
    local unit u
    if Boss_Spell_data3[data]>0 then
        set Boss_Spell_data3[data]=Boss_Spell_data3[data]-1
    else
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+50
    endif
    set r=Boss_Spell_Z[data]+100
    set Boss_Spell_V[data]=Boss_Spell_V[data]+($C*bj_DEGTORAD)
    loop
        exitwhen i==0
        set i=i-1
        set fx=LoadInteger(BYHT,v,i)
        if fx!=null then
            set a=Boss_Spell_V[data]+i*Lx*.1
            set tx=x+r*Cos(a)
            set ty=y+r*Sin(a)
            call LKv(fx,tx)
            call Llv(fx,ty)
            if IsPointInWorldBounds(tx,ty)and Boss_Spell_Z[data]<$3E8 then
                if Boss_Spell_data3[data]==0 then
                    set d=Boss_Spell_data4[data]*30
                    call GroupEnumUnitsInRange(G,tx,ty,275,null)
                    loop
                        set u=FirstOfGroup(G)
                        exitwhen u==null
                        call GroupRemoveUnit(G,u)
                        if IsUnitInRangeXY(u,tx,ty,$C8)and IsUnitAliveAndEnemy(u,(Je[(id)]))and not IsUnitInGroup(u,Boss_Spell_group1[data])then
                            call GroupAddUnit(Boss_Spell_group1[data],u)
                            call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endloop
                endif
                set Boss_Spell_bool[data]=false
            else
                set d=Boss_Spell_data4[data]*80
                call Ltv(LAv("desecrategreen.mdl",tx,ty,1))
                call zhv(Kc[id],30,.5)
                call GroupEnumUnitsInRange(G,tx,ty,425,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,tx,ty,350)and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                        call UnitDamageTargetBY((((Je[(id)]))),((u)),((((d)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    endif
                endloop
                call RemoveSavedInteger(BYHT,v,i)
                call Ltv(fx)
            endif
        endif
    endloop
    if Boss_Spell_bool[data]then
        call RecycleGroup(Boss_Spell_group1[data])
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:699")
        call free(v)
        set Boss_Spell_group1[data]=null
    else
        set Boss_Spell_bool[data]=true
    endif
endfunction

function Active_A10P_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    local integer v=malloc()
    local integer i=$A
    local integer fx
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real a
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=v
    set Boss_Spell_data3[data]=$A
    set Boss_Spell_data4[data]=GetHeroState1((Je[(id)]),true)+GetHeroState2((Je[(id)]),true)
    set Boss_Spell_bool[data]=true
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=0
    set Boss_Spell_V[data]=0
    loop
        exitwhen i==0
        set i=i-1
        set a=i*Lx*.1
        set fx=LIv("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl",x+100*Cos(a),y+100*Sin(a),100,4,a+bj_PI,90)
        call SaveInteger(BYHT,v,i,fx)
    endloop
    call TimerStart(NewTimer(data),.03,true,function Active_A10P_action_func)
endfunction

function SummonedUnit_o000_onAttack takes nothing returns nothing
    local integer id=Master[(pF_v)]
    local real v=(1.+Unit_MATK[id])
    call UnitDamageTargetBY((((mF))),(((MF))),((((v*5*GetHeroState3((Je[(id)]),true))*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),(((($A)*1.))*1.),(("|c00A0FF00")))
    set KF[HF]=PF+1000000.
endfunction

function SummonedUnit_o000_Death takes nothing returns nothing
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetUnitX(GetTriggerUnit()),GetUnitY(GetTriggerUnit())))
endfunction

function Active_A10Q_action_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local integer s
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local real tx
    local real ty
    set tx=x+Boss_Spell_Z[data]*Cos(Boss_Spell_V[data])
    set ty=y+Boss_Spell_Z[data]*Sin(Boss_Spell_V[data])
    if IsPointInWorldBounds(tx,ty)then
        set s=(GetUnitUserData((CreateUnit(P[Kc[id]],'o000',tx,ty,Boss_Spell_V[data]*bj_RADTODEG+$B4))))
        call SetUnitPosition((Je[(s)]),tx,ty)
        call SummonedUnitSetMaster(s,id)
        call UnitAddPAttackTrig(s,function SummonedUnit_o000_onAttack)
        call AddUnitDeathTrig(s,function SummonedUnit_o000_Death)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",(Je[(s)]),"origin"))
        call UnitApplyTimedLife((Je[(s)]),'BTLF',$A)
    endif
    set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    if Boss_Spell_data2[data]>0 then
        set tx=(1+(Boss_Spell_data2[data]-10.5)/ 19)
        set Boss_Spell_Z[data]=Boss_Spell_Z[data]+(800/ 19.)*tx
        set Boss_Spell_V[data]=Boss_Spell_V[data]+(Lx/ 9.5)*tx
    else
        call Unit_Cancel_Counter($46A,id)
        call Boss_Spell_deallocate(data)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:700")
    endif
endfunction

function Active_A10Q_action takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=20
    set Boss_Spell_X[data]=GetSpellTargetX()
    set Boss_Spell_Y[data]=GetSpellTargetY()
    set Boss_Spell_Z[data]=400
    set Boss_Spell_V[data]=GetRandomInt(0,5)*Lx/ 6
    call TimerStart(NewTimer(data),.15,true,function Active_A10Q_action_func)
    call Unit_App_Counter($46B,id)
endfunction

function Equip_ocor_Passive_func takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer v=IMinBJ($2710,R2I(GetUnitMaxManaById(id)*.1))
    if v!=Equip_ocor_Life[id]then
        call ModifyUnitHP(id,v-Equip_ocor_Life[id])
        set Equip_ocor_Life[id]=v
    endif
endfunction

function Equip_ocor_Passive takes nothing returns nothing
    local boolean b=ATv
    local integer id=Ahv
    if b then
        if Equip_ocor_Timer[id]==null then
            set Equip_ocor_Timer[id]=NewTimer(id)
            set Equip_ocor_Life[id]=IMinBJ($2710,R2I(GetUnitMaxManaById(id)*.1))
            call ModifyUnitHP(id,Equip_ocor_Life[id])
            call TimerStart(Equip_ocor_Timer[id],.5,true,function Equip_ocor_Passive_func)
        endif
    else
        if Equip_ocor_Timer[id]!=null then
            if Equip_ocor_Life[id]>0 then
                call ModifyUnitHP(id,-Equip_ocor_Life[id])
                set Equip_ocor_Life[id]=0
            endif
            call ReleaseTimer(Equip_ocor_Timer[id],"[TimerUtils]Error:701")
            set Equip_ocor_Timer[id]=null
        endif
    endif
endfunction

function Equip_rots_onBeAttack takes nothing returns nothing
    if GetDamage()>0 then
        call DamageMinus(500)
        if Equip_rots_cd[(pF)]<=(100000.-TimerGetRemaining(GameTimer))and GetWidgetLife((MF))-GetDamage()<.5 then
            set Equip_rots_cd[(pF)]=(100000.-TimerGetRemaining(GameTimer))+$B4
            call SetItemDroppableTimedById((pF),'rots',60)
            call DestroyEffect(AddSpecialEffectTarget("xxsuipian2.mdx",(MF),"origin"))
            call UnitCureTaret(null,(MF),GetDamage())
            set KF[HF]=PF+1000000.
        endif
    endif
endfunction

function FYSZJ_Func takes nothing returns nothing
    if GetItemTypeIdG(LastManipulatedItem)=='I0H5' then
        call RemoveItemG(LastManipulatedItem)
    endif
endfunction

function NewEquip___Init_2 takes nothing returns nothing
    call Equipment_to_build_A('I0GA',1,$8C,0,0,20,0,0,0,0,0,0,30)
    call Equipment_to_build_A('I0GR',1,85,0,0,0,0,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GQ',1,55,0,0,0,28,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GM',2,0,35,0,0,0,0,650,0,0,0,60)
    call Equipment_to_build_A('I0GP',2,0,26,0,0,22,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GO',3,0,25,0,0,0,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GN',3,0,$F,0,0,$F,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GC',1,$CD,0,39,0,0,-25,0,0,0,0,60)
    call Equipment_to_build_A('I0GE',1,$8C,0,0,35,0,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GG',1,$96,0,0,30,0,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GF',1,95,0,0,50,0,$F,0,0,0,0,60)
    call Equipment_to_build_A('I0GB',1,105,0,0,0,62,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GD',1,$9B,0,0,0,33,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GI',2,0,55,23,23,0,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GH',2,0,35,0,0,35,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GJ',3,0,24,0,0,22,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GK',3,0,36,0,0,0,0,0,0,0,0,60)
    call Equipment_to_build_A('I0GL',4,0,0,40,40,40,0,800,800,0,0,60)
    call Equipment_to_build_A('I0GS',1,260,0,0,35,0,0,0,0,0,0,80)
    call Equipment_to_build_A('I0GT',1,340,0,0,65,0,0,0,0,0,0,120)
    call Equipment_to_build_A('I0GU',1,570,0,0,100,0,0,0,0,0,0,$A0)
    call Equipment_to_build_A('I0GV',1,$546,0,0,$AA,0,0,0,0,0,0,$A0)
    call Equipment_to_build_A('I0GX',1,900,0,0,$82,0,0,0,0,0,0,$C8)
    call Equipment_to_build_A('I0GW',1,$6D6,0,0,$C8,0,0,0,0,0,0,$C8)
    call Equipment_to_build_A('I0GY',1,$B22,0,0,260,0,0,0,0,0,0,$96)
    call Equipment_to_build_A('I0GZ',1,$CB2,0,0,290,0,0,0,0,0,0,$B4)
    call Equipment_to_build_A('I0H1',1,$AF0,0,0,280,0,0,0,0,0,0,$F0)
    call Equipment_to_build_A('I0H0',1,$C80,0,0,300,0,0,0,0,0,0,280)
    call Equipment_to_build_A('shas',1,$3CF0,0,0,$4E2,0,0,0,0,0,0,340)
    call Equipment_to_build_B(4,0,0,0,0,0)
    call Equipment_to_build_A('rnec',1,$7148,0,0,$6A4,0,0,0,0,0,0,360)
    call Equipment_to_build_B(5,0,0,8,0,0)
    call Equipment_to_build_A('vamp',1,$73A0,0,550,$73A,0,0,0,0,0,0,360)
    call Equipment_to_build_B(6,0,0,0,0,0)
    call Equipment_to_build_A('skul',1,$5FB4,0,0,$690,0,0,0,0,0,0,350)
    call Equipment_to_build_B(3,0,0,0,0,0)
    call Equipment_to_build_A('tsct',1,$70E4,0,0,$906,0,0,0,0,0,0,380)
    call Equipment_to_build_B($A,0,0,$C,0,0)
    call Equipment_to_build_A('tcas',1,$7C38,0,465,$94C,0,0,0,0,0,0,380)
    call Equipment_to_build_B($A,0,0,20,0,0)
    call Equipment_to_build_A('plcl',1,$2B34,0,0,600,0,35,0,0,0,0,300)
    call Equipment_to_build_A('I0H2',1,$7148,0,740,$802,0,0,0,0,0,0,370)
    call Equipment_to_build_B(5,0,0,0,0,0)
    call Equipment_to_build_A('rhe3',1,$7B0C,0,$5AA,$92E,0,0,$2710,0,0,0,380)
    call Equipment_to_build_B(0,$F,0,0,0,0)
    call Equipment_to_build_A('I0FR',1,$6590,0,0,0,$956,0,8000,0,0,0,380)
    call Equipment_to_build_D(0,$A,0,0,0,0,0)
    call Equipment_to_build_A('I0DA',1,$7148,0,0,0,$A6E,30,4500,0,0,0,380)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('I0G4',1,$8728,0,0,$992,0,0,0,0,0,0,400)
    call Equipment_to_build_B(20,0,0,0,0,0)
    call Equipment_to_build_A('I0AP',1,$8AAC,0,$992,0,0,0,0,0,0,0,400)
    call Equipment_to_build_B(20,0,0,0,0,0)
    call Equipment_to_build_A('I0FX',1,$8E30,0,0,$992,0,0,0,0,0,0,400)
    call Equipment_to_build_B(20,0,0,0,0,0)
    call Equipment_to_build_A('I0FY',1,$7EF4,0,0,$992,0,0,0,0,0,0,400)
    call Equipment_to_build_B(20,0,0,0,0,0)
    call Equipment_to_build_A('I0FZ',1,$8EF8,0,0,0,$992,0,0,0,0,0,400)
    call Equipment_to_build_C(20,0,0,0,0,0,0,0)
    call Equipment_to_build_A('I0G0',4,0,0,$690,$690,$690,0,0,0,0,0,400)
    call Equipment_to_build_B($F,0,0,0,0,0)
    call Equipment_to_build_A('I0G1',0,0,0,0,0,0,0,0,0,0,0,400)
    call Equipment_to_build_B($96,0,0,0,0,-100)
    call Equipment_to_build_A('I0G2',0,0,0,$6D6,$6D6,$6D6,0,0,0,0,0,400)
    call Equipment_to_build_B($F,$F,0,0,0,0)
    call Equipment_to_build_A('spre',2,0,530,0,$500,0,0,0,0,0,0,380)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('I0FV',2,0,430,0,0,$53C,0,5000,0,0,0,380)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('I0AR',2,0,$424,$758,740,0,0,0,0,0,0,400)
    call Equipment_to_build_A('fwss',4,0,0,$618,$618,0,0,0,0,0,0,380)
    call Equipment_to_build_B($C,0,0,0,0,0)
    call Equipment_to_build_A('gfor',4,0,0,$500,$500,$500,0,$3A98,0,0,0,380)
    call Equipment_to_build_C(0,0,0,0,0,0,0,30)
    call Equipment_to_build_A('I0EO',4,0,0,0,0,$67C,0,0,5000,0,0,380)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('I0FW',4,0,0,0,$5AA,$690,20,0,0,500,0,380)
    call Equipment_to_build_B($F,0,0,0,0,0)
    call Equipment_to_build_A('I0AQ',4,0,0,0,0,$672,0,$3A98,0,0,0,390)
    call Equipment_to_build_A('I0AM',4,$4BC8,0,$659,$659,$659,0,0,0,0,0,390)
    call Equipment_to_build_B(0,0,0,50,0,0)
    call Equipment_to_build_A('ledg',4,0,0,990,990,990,0,0,0,0,0,370)
    call Equipment_to_build_B(5,0,0,0,0,0)
    call Equipment_to_build_A('I0FU',5,0,0,$47E,$47E,0,0,0,0,0,0,380)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_Mode("firewing.mdl","chest")
    call Equipment_to_build_A('I0AO',0,0,0,$424,$424,$424,0,0,0,0,0,390)
    call Equipment_to_build_B($F,$F,$F,$F,0,0)
    call Equipment_to_build_D(5,5,5,5,5,5,5)
    call Equipment_to_build_A('I0G3',0,0,0,$69A,$69A,$69A,0,0,0,0,0,390)
    call Equipment_to_build_B($F,0,0,0,0,0)
    call Equipment_to_build_A('wneu',0,0,0,$47E,$47E,$47E,0,0,0,0,0,380)
    call Equipment_to_build_B($A,$A,0,0,0,0)
    call Equipment_to_build_A(Equipment_to_build_Zsx('silk',$424),4,0,0,500,500,500,0,0,0,0,0,380)
    call Equipment_to_build_B($F,0,0,0,0,0)
    call Equipment_to_build_A('moon',2,0,610,800,790,0,0,0,0,0,0,360)
    call Equipment_to_build_B(5,0,0,0,0,0)
    call Equipment_to_build_A('pinv',2,0,500,650,550,0,0,0,0,0,0,340)
    call Equipment_to_build_B(3,0,0,0,0,0)
    call Equipment_to_build_A('tret',1,$7080,0,0,0,$9BA,0,0,0,0,0,380)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A(Equipment_to_build_Zsx('ocor',$FA),3,0,290,$C8,$C8,$C8,0,0,0,0,0,280)
    call Equipment_to_build_D(0,2.5,0,0,0,0,0)
    call Equipment_to_build_A(Equipment_to_build_Zsx('rots',420),2,0,310,0,0,0,0,$FA0,0,0,0,280)
    call Equipment_to_build_D(0,2.5,0,0,0,0,0)
    call Equipment_to_build_A('frhg',0,0,0,320,320,320,0,5000,5000,$96,0,280)
    call Equipment_to_build_B(5,0,0,0,0,0)
    call Equipment_to_build_A('thdm',0,0,0,720,720,720,0,0,0,$C8,0,340)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('mlst',1,$7918,0,0,$7BC,0,50,0,0,0,0,380)
    call Equipment_to_build_B($A,0,$F,0,0,0)
    call Equipment_to_build_A('oslo',5,0,0,$C8,$C8,$C8,0,$DAC,0,$96,25,$F0)
    call Equipment_to_build_A('kygh',2,0,630,0,0,$618,0,0,0,0,75,390)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('flag',1,$77BA,0,0,$794,0,0,0,0,0,0,360)
    call Equipment_to_build_B(5,0,0,0,0,0)
    call Equipment_to_build_A('gldo',3,0,460,510,0,790,0,0,0,0,0,370)
    call Equipment_to_build_B(5,0,0,0,0,0)
    call Equipment_to_build_A('mgtk',1,$67E8,0,380,$780,0,25,0,0,0,0,360)
    call Equipment_to_build_B(5,0,0,0,0,0)
    call Equipment_to_build_A('cosl',1,$6914,0,$73A,560,0,0,0,0,0,0,360)
    call Equipment_to_build_B(5,0,0,25,0,0)
    call Equipment_to_build_A('arsh',2,0,960,$56E,0,0,0,0,0,0,0,390)
    call Equipment_to_build_B($A,$A,0,0,0,0)
    call Equipment_to_build_A('brag',5,0,0,$550,$550,$550,0,0,0,0,0,390)
    call Equipment_to_build_B($A,$A,0,0,0,0)
    call Equipment_to_build_A('engs',0,0,0,$4EC,$4EC,$4EC,0,5000,0,0,0,390)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('jdrn',4,0,0,$5F5,$5F5,$5F5,0,0,0,0,0,390)
    call Equipment_to_build_B($A,0,0,0,0,0)
    call Equipment_to_build_A('kgal',1,$BC48,0,$BEA,0,0,0,0,0,0,0,390)
    call Equipment_to_build_B($A,0,0,50,0,0)
    call Equipment_to_build_A('I02D',4,0,0,$802,$802,$802,0,0,0,0,0,400)
    call Equipment_to_build_B(25,0,0,0,0,0)
    call Equipment_to_build_A('I02C',1,$9B78,0,$802,$BEA,0,0,0,0,0,0,400)
    call Equipment_to_build_B(0,0,0,50,0,0)
    call Equipment_to_build_A('frgd',1,$D0DE,0,$AEB,4565,0,0,0,0,0,0,350)
    call Equipment_to_build_B(3,0,0,0,0,0)
    set vT=('H00H')
    call StartExclusiveTip('I0AP')
    call StartExclusiveTip('I0AP')
    set ExclusiveName="|c00abfcda"+("Bloodthirsty power")+"|r |c00ffff80activated|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c008b0000Blood blade|r |c00ffff80strengthen|r")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("Number of injuries when releasing the Blood Blade+2")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c00ff0000Blood blade strangulation|r |c00ffff80strengthen")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("Blood blade strangulation damage+100%.")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    set vT=('H001')
    call StartExclusiveTip('I0FX')
    set ExclusiveName="|c00abfcda"+("Fenghua power")+"|r |c00ffff80activated|r
    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    

    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("|c006f83d2Phantom of the blade|r |c00ffff80strengthen|r")+"|r
    "

    set ExclusiveTip=ExclusiveTip+"|c00ffff80"+("Phantom Blade maximum stacking number+5")+"|r
    "

    call SaveStr(BYHT,(Wt[zt]),vT,ExclusiveName+ExclusiveTip)
    call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:702")
endfunction

function NewEquip___onInit takes nothing returns nothing
    local integer s
    call Equipment_to_build_TrigSlot('shas',Equip_trigSlot_A,(1),function Equip_skrt_onAttack)
    call Equipment_to_build_TrigSlot('rnec',Equip_trigSlot_A,(1),function Equip_rin1_onAttack)
    call Equipment_to_build_TrigSlot('vamp',Equip_trigSlot_A,(1),function NewEquip___Equip_vamp_onAttack)
    call Equipment_to_build_TrigSlot('skul',Equip_trigSlot_A,(1),function NewEquip___Equip_skul_onAttack)
    call Equipment_to_build_TrigSlot('tsct',Equip_trigSlot_A,(1),function NewEquip___Equip_tsct_onAttack)
    call Equipment_to_build_TrigSlot('tcas',Equip_trigSlot_A,(1),function NewEquip___Equip_tcas_onAttack)
    set s=s__suit_new(function NewEquip___YunMieZhiGuang_ChaosSuit)
    call s__suit_add(s__suit_add(s__suit_add(s__suit_add(s__suit_add(s,'I0AP'),'I0FX'),'I0FY'),'I0FZ'),'I0G4')
    call s__suit_add(s,'I0G0')
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rhe3'),GetHandleId(Filter((function NewEquip___Equip_rhe3_Passive))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0FR'),GetHandleId(Filter((function NewEquip___Equip_I0FR_Passive))))
    call Equipment_to_build_TrigSlot('I0FR',Equip_trigSlot_B,(4),function NewEquip___Equip_I0FR_onSpellEffect)
    call Equipment_to_build_TrigSlot('I0AP',Equip_trigSlot_A,(1),function NewEquip___Equip_I0AP_onAttack)
    call Equipment_to_build_TrigSlot('I0FX',Equip_trigSlot_A,(1),function NewEquip___Equip_I0AP_onAttack)
    call Equipment_to_build_TrigSlot('I0FY',Equip_trigSlot_A,(1),function NewEquip___Equip_I0FY_onAttack)
    call Equipment_to_build_TrigSlot('I0G4',Equip_trigSlot_A,(1),function NewEquip___Equip_I0FY_onAttack)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('spre'),GetHandleId(Filter((function NewEquip___Equip_spre_action))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('rma2'),GetHandleId(Filter((function NewEquip___Equip_rma2_action))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0FV'),GetHandleId(Filter((function NewEquip___Equip_I0FV_action))))
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0AR'),GetHandleId(Filter((function NewEquip___Equip_I0AR_action))))
    call Equipment_to_build_TrigSlot('fwss',Equip_trigSlot_A,(1),function NewEquip___Equip_fwss_onAttack)
    call Equipment_to_build_TrigSlot('ledg',Equip_trigSlot_A,($C),function NewEquip___Equip_ledg_onDamage)
    call Equipment_to_build_TrigSlot('I0FU',Equip_trigSlot_B,(4),function NewEquip___Equip_I0FU_onSpellEffect)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('I0FU'),GetHandleId(Filter((function NewEquip___Equip_I0FU_Action))))
    call Equipment_to_build_TrigSlot('wneu',Equip_trigSlot_A,(1),function Equip_wneu_onAttack)
    call Equipment_to_build_TrigSlot('silk',Equip_trigSlot_A,(1),function Equip_silk_onAttack)
    call Equipment_to_build_TrigSlot('wneu',Equip_trigSlot_A,(2),function Equip_wneu_onBeAttack)
    call Equipment_to_build_TrigSlot('pinv',Equip_trigSlot_A,(2),function Equip_pinv_onBeAttack)
    call Equipment_to_build_TrigSlot('tret',Equip_trigSlot_A,(1),function Equip_tret_onAttack)
    call SaveInteger(BYHT2,Item_PickupOrDrop_event,('ocor'),GetHandleId(Filter((function Equip_ocor_Passive))))
    call Equipment_to_build_TrigSlot('rots',Equip_trigSlot_C,(3),function Equip_rots_onBeAttack)
    call RegisterSpellEffectEvent('A0WX',function NewEquip___Active_A0WX_action)
    call RegisterSpellEffectEvent('A0WY',function NewEquip___Active_A0WY_action)
    call RegisterSpellEffectEvent('A0X1',function NewEquip___Active_A0X1_action)
    call RegisterSpellEffectEvent('A0X8',function NewEquip___Active_A0X8_action)
    call RegisterSpellEffectEvent('A0XB',function Active_A0XB_action)
    call RegisterSpellChannelEvent('A0US',function Active_A0US_action)
    call RegisterSpellEffectEvent('A0XD',function NewEquip___Active_A0XD_action)
    call RegisterSpellEffectEvent('A0XH',function NewEquip___Active_A0XH_action)
    call RegisterSpellEffectEvent('A0XI',function NewEquip___Active_A0XI_action)
    call RegisterSpellEffectEvent('A0XJ',function NewEquip___Active_A0XJ_action)
    call RegisterSpellEffectEvent('A0XL',function NewEquip___Active_A0XL_action)
    call RegisterSpellEffectEvent('A0ZG',function NewEquip___Active_A0ZG_action)
    call RegisterSpellEffectEvent('A10P',function Active_A10P_action)
    call RegisterSpellEffectEvent('A10Q',function Active_A10Q_action)
    call SaveReal(BYHT,DroppableTimed,('I0FR'),((60)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0DA'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('spre'),(($96)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0AR'),((120)*1.))
    call SaveReal(BYHT,DroppableTimed,('gfor'),((40)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0EO'),((30)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0FW'),((40)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0AQ'),(($B4)*1.))
    call SaveReal(BYHT,DroppableTimed,('I0FZ'),((90)*1.))
    call SaveReal(BYHT,DroppableTimed,('tcas'),((60)*1.))
    call SaveReal(BYHT,DroppableTimed,('moon'),((80)*1.))
    call SaveReal(BYHT,DroppableTimed,('tret'),((75)*1.))
    call RegisterSummonEvent('nrwm',function NewEquip___SummonedUnit_nrwm_EnterWorld)
    call TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function FYSZJ_Func))))
    call TimerStart((NewTimer(0)),1,false,function NewEquip___Init_2)
endfunction

function Quest__NewQuest takes integer itemid,integer Type,integer lv,integer n,integer g,integer e,integer r,string s returns nothing
    if HaveSavedInteger(BYHT,Quest__Hash,itemid)then
        set Quest__LastQuestId=LoadInteger(BYHT,Quest__Hash,itemid)
    else
        set Quest__LastQuestId=malloc()
        call SaveInteger(BYHT,Quest__Hash,itemid,Quest__LastQuestId)
        call SaveInteger(BYHT,Quest__LastQuestId,0,itemid)
    endif
    call SaveInteger(BYHT,Quest__TYPE,Quest__LastQuestId,Type)
    call SaveInteger(BYHT,Quest__Level,Quest__LastQuestId,lv)
    call SaveInteger(BYHT,Quest__Gold,Quest__LastQuestId,g)
    call SaveInteger(BYHT,Quest__Exp,Quest__LastQuestId,e)
    if r>0 then
        call SaveInteger(BYHT,Quest__Item,Quest__LastQuestId,r)
    endif
    if Type==1 then
        call SaveInteger(BYHT,Quest__LastQuestId,1,n)
    endif
    call SaveStr(BYHT,Quest__Tip,Quest__LastQuestId,s)
endfunction

function Quest__QuestAddItemA takes integer c returns nothing
    call SaveBoolean(BYHT,Quest__LastQuestId,c,true)
endfunction

function Quest__QuestAddItemB takes integer id,integer n returns nothing
    local integer i=LoadInteger(BYHT,Quest__QuestIndex,Quest__LastQuestId)
    call SaveInteger(BYHT,((Quest__V1)+(i)),Quest__LastQuestId,id)
    call SaveInteger(BYHT,Quest__LastQuestId,id,n)
    call SaveInteger(BYHT,Quest__QuestIndex,Quest__LastQuestId,i+1)
endfunction

function Quest__QuestAddItemC takes integer id,integer n returns nothing
    local integer i=LoadInteger(BYHT,Quest__QuestIndex,Quest__LastQuestId)
    call SaveInteger(BYHT,((Quest__V1)+(i)),Quest__LastQuestId,id)
    call SaveInteger(BYHT,Quest__LastQuestId,id,n)
    call SaveInteger(BYHT,Quest__QuestIndex,Quest__LastQuestId,i+1)
endfunction

function Quest__QuestAddTipPoint takes real x,real y returns nothing
    call SaveReal(BYHT,Quest__Point,Quest__LastQuestId,x)
    call SaveReal(BYHT,Quest__Point,-Quest__LastQuestId,y)
endfunction

function Quest__SetQuestItemName takes integer id,string name returns nothing
    call SaveStr(BYHT,Quest__Name,id,name)
endfunction

function Quest__GetQuestItemName takes integer id returns string
    return LoadStr(BYHT,Quest__Name,id)
endfunction

function Quest__NewQuestDropsList takes integer c returns nothing
    local integer v=LoadInteger(BYHT,Quest__V8,c)
    if v==null then
        set v=s__Quest__questdrops_tabale__allocate()
        call SaveInteger(BYHT,Quest__V8,c,v)
    endif
    set Quest__LastQuestDropsList=v
endfunction

function Quest__QuestDropsListAddItem takes integer id,real t returns nothing
    local integer v=Quest__LastQuestDropsList
    if s__Quest__questdrops_tabale_index[v]<5 then
        set s___Quest__questdrops_tabale_id[s__Quest__questdrops_tabale_id[v]+s__Quest__questdrops_tabale_index[v]]=id
        set s___Quest__questdrops_tabale_t[s__Quest__questdrops_tabale_t[v]+s__Quest__questdrops_tabale_index[v]]=t
        set s__Quest__questdrops_tabale_index[v]=s__Quest__questdrops_tabale_index[v]+1
    endif
endfunction

function Quest__OnInit_Func takes nothing returns nothing
    if(Quest__A==0)then
        call Quest__NewQuest('I00M',2,1*500+60,0,20,100,0,GetObjectName('I00M')+"[收集]")
        call Quest__QuestAddItemB(1,5)
        call Quest__QuestAddTipPoint(-$682,$5A4B)
        call Quest__NewQuest('I00N',2,1*500+60,0,40,$96,0,GetObjectName('I00N')+"[收集]")
        call Quest__QuestAddItemC(2,5)
        call Quest__QuestAddTipPoint($708,$59D8)
        call Quest__NewQuest('I00O',2,1*500+60,0,100,500,0,GetObjectName('I00O')+"[收集]")
        call Quest__QuestAddItemB(3,1)
        call Quest__QuestAddItemB(4,1)
        call Quest__QuestAddTipPoint($AF0,$6144)
        call Quest__NewQuest('I00Y',2,$A*500+80,0,100,500,0,GetObjectName('I00Y')+"[收集]")
        call Quest__QuestAddItemB(5,$F)
        call Quest__QuestAddTipPoint(-$578,$4394)
        call Quest__NewQuest('I00Z',2,$A*500+80,0,$96,$3E8,0,GetObjectName('I00Z')+"[收集]")
        call Quest__QuestAddItemB(6,1)
        call Quest__QuestAddTipPoint(-256,$487C)
        call Quest__NewQuest('I010',2,$A*500+80,0,300,$3E8,0,GetObjectName('I010')+"[收集]")
        call Quest__QuestAddItemB(7,1)
        call Quest__QuestAddTipPoint($420,$4330)
    elseif(Quest__A==1)then
        call Quest__NewQuest('I021',2,30*500+120,0,$C8,$3E8,0,GetObjectName('I021')+"[收集]")
        call Quest__QuestAddItemB(8,$A)
        call Quest__QuestAddTipPoint(-5400,$2AF8)
        call Quest__NewQuest('I022',2,30*500+120,0,$C8,$3E8,0,GetObjectName('I022')+"[收集]")
        call Quest__QuestAddItemB(9,$A)
        call Quest__QuestAddTipPoint(-5400,$2AF8)
        call Quest__NewQuest('I023',2,30*500+120,0,300,$5DC,0,GetObjectName('I023')+"[收集]")
        call Quest__QuestAddItemB($A,$A)
        call Quest__QuestAddTipPoint(640,$2C88)
        call Quest__NewQuest('I024',2,30*500+120,0,750,$7D0,0,GetObjectName('I024')+"[收集]")
        call Quest__QuestAddItemB($B,1)
        call Quest__QuestAddTipPoint($7D0,$2D86)
        call Quest__NewQuest('I025',2,30*500+120,0,$3E8,$BB8,0,GetObjectName('I025')+"[收集]")
        call Quest__QuestAddItemB($C,1)
        call Quest__QuestAddTipPoint($B86,9959)
        call Quest__NewQuest('I00G',2,60*500+$A0,0,$C8,$5DC,0,GetObjectName('I00G')+"[收集]")
        call Quest__QuestAddItemB(29,$A)
        call Quest__QuestAddTipPoint(6024,9900)
    elseif(Quest__A==2)then
        call Quest__NewQuest('I02O',2,80*500+$C8,0,800,$CE4,0,GetObjectName('I02O')+"[收集]")
        call Quest__QuestAddItemB($D,$A)
        call Quest__QuestAddTipPoint($53FC,$4524)
        call Quest__NewQuest('I02P',2,80*500+$C8,0,$BB8,$ED8,0,GetObjectName('I02P')+"[收集]")
        call Quest__QuestAddItemB($E,1)
        call Quest__QuestAddItemB($F,1)
        call Quest__QuestAddTipPoint($5E88,$4FEC)
        call Quest__NewQuest('I06M',2,120*500+260,0,$3E8,$DAC,0,GetObjectName('I06M')+"[收集]")
        call Quest__QuestAddItemB(16,$A)
        call Quest__QuestAddTipPoint($43A5,-$70B4)
        call Quest__NewQuest('I08T',2,120*500+260,0,$3E8,$DAC,0,GetObjectName('I08T')+"[收集]")
        call Quest__QuestAddItemB(17,$A)
        call Quest__QuestAddTipPoint($43A5,-$70B4)
        call Quest__NewQuest('I04G',2,120*500+260,0,$4B0,$FA0,0,GetObjectName('I04G')+"[收集]")
        call Quest__QuestAddItemB(18,$A)
        call Quest__QuestAddTipPoint($527C,-$71A2)
        call Quest__NewQuest('I08Y',2,120*500+260,0,$4B0,$FA0,0,GetObjectName('I08Y')+"[收集]")
        call Quest__QuestAddItemB(19,$A)
        call Quest__QuestAddTipPoint($527C,-$71A2)
        call Quest__NewQuest('I06N',2,120*500+260,0,$5DC,4200,0,GetObjectName('I06N')+"[收集]")
        call Quest__QuestAddItemB(20,1)
        call Quest__QuestAddTipPoint($5AA9,-$777A)
        call Quest__NewQuest('I04H',2,120*500+260,0,$7D0,4200,0,GetObjectName('I04H')+"[收集]")
        call Quest__QuestAddItemB(21,$A)
        call Quest__QuestAddTipPoint($5A1D,-$6A4A)
        call Quest__NewQuest('I04K',2,$C8*500+350,0,$9C4,5500,0,GetObjectName('I04K')+"[收集]")
        call Quest__QuestAddItemB(22,$A)
        call Quest__QuestAddTipPoint($5ECB,-$3458)
        call Quest__NewQuest('I00X',2,$F0*500+350,0,$7D0,7500,0,GetObjectName('I00X')+"[收集]")
        call Quest__QuestAddItemB(30,$F)
        call Quest__QuestAddTipPoint($57CC,$6A72)
        call Quest__NewQuest('I013',2,320*500+380,0,$9C4,9000,0,GetObjectName('I013')+"[收集]")
        call Quest__QuestAddItemB(31,$A)
        call Quest__QuestAddTipPoint(8592,-$28AB)
        call Quest__NewQuest('I01Z',2,370*500+400,0,$BB8,$36B0,0,GetObjectName('I01Z')+"[收集]")
        call Quest__QuestAddItemB(32,$F)
        call Quest__QuestAddTipPoint(-5963,-$6CEF)
    elseif(Quest__A==3)then
        call Quest__NewQuest('I04M',3,120*500+500,0,0,0,'I04O',"")
        call Quest__QuestAddItemC('I02Y',5)
        call Quest__NewQuest('I04L',3,120*500+500,0,0,0,'I04N',"")
        call Quest__QuestAddItemC('I031',1)
        call Quest__NewQuest('I04R',2,$A0*500+500,0,0,0,'I04Q',GetObjectName('I04R')+"[收集]")
        call Quest__QuestAddItemB(23,5)
        call Quest__QuestAddItemB(24,5)
        call Quest__QuestAddItemB(25,5)
        call Quest__QuestAddTipPoint($A42,-$6F9B)
        call Quest__NewQuest('I04S',3,$A0*500+500,0,0,0,'I04P',"")
        call Quest__QuestAddItemC('I035',5)
        call Quest__NewQuest('I09U',2,120*500+500,0,0,0,'I09Z',GetObjectName('I09U')+"[收集]")
        call Quest__QuestAddItemB(21,$F)
        call Quest__QuestAddTipPoint($5A1D,-$6A4A)
        call Quest__NewQuest('I09V',2,280*500+360,0,$9C4,$6D60,0,GetObjectName('I09V')+"[收集]")
        call Quest__QuestAddItemB(28,20)
        call Quest__QuestAddTipPoint($3BC4,-4426)
        call Quest__NewQuest('I06G',2,350*500+380,0,$FA0,$9C40,0,GetObjectName('I06G')+"[收集]")
        call Quest__QuestAddItemB(26,$A)
        call Quest__QuestAddTipPoint($5CF8,9480)
        call Quest__NewQuest('I06L',2,350*500+380,0,$FA0,$9C40,0,GetObjectName('I06L')+"[收集]")
        call Quest__QuestAddItemB(27,$A)
        call Quest__QuestAddTipPoint($5CF8,9480)
        call Quest__NewQuest('I0D3',3,1*500+500,0,0,0,'I0DJ',"")
        call Quest__QuestAddItemC('I04Y',1)
    elseif(Quest__A==4)then
        call Quest__NewQuest('I00F',1,60*500+350,$F,$FA,$640,0,GetObjectName('I00F')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n049'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n047'),true)
        call Quest__QuestAddTipPoint(6024,9900)
        call Quest__NewQuest('I00H',1,60*500+350,1,$3E8,$BB8,0,GetObjectName('I00H')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n048'),true)
        call Quest__QuestAddTipPoint($30FD,$3070)
        call Quest__NewQuest('I02N',1,80*500+350,$A,500,$7D0,0,GetObjectName('I02N')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n00X'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n00Y'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n00Z'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n010'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n011'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n012'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n013'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n02H'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n02K'),true)
        call Quest__QuestAddTipPoint($53FC,$4524)
        call Quest__NewQuest('I04F',1,120*500+350,$A,700,$898,0,GetObjectName('I04F')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n018'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n019'),true)
        call Quest__QuestAddTipPoint($43A5,-$70B4)
        call Quest__NewQuest('I04I',1,$A0*500+350,20,$4B0,$AF0,0,GetObjectName('I04I')+"[击杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('h00P'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('e01B'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('h00R'),true)
        call Quest__QuestAddTipPoint($A42,-$6F9B)
        call Quest__NewQuest('I00J',1,$A0*500+350,1,$7D0,$2710,0,GetObjectName('I00J')+"[击杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('h00T'),true)
        call Quest__QuestAddTipPoint($324E,-$7217)
        call Quest__NewQuest('I04J',1,$C8*500+350,$F,$5DC,$BB8,0,GetObjectName('I04J')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01F'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01G'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01H'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01I'),true)
        call Quest__QuestAddTipPoint($5ECB,-$3458)
        call Quest__NewQuest('I00V',1,$C8*500+350,1,$9C4,$30D4,0,GetObjectName('I00V')+"[击杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01J'),true)
        call Quest__QuestAddTipPoint($5E92,-$2DBB)
        call Quest__NewQuest('I08S',1,80*500+350,1,$7D0,$FA0,0,GetObjectName('I08S')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n015'),true)
        call Quest__QuestAddTipPoint($5E88,$4FEC)
        call Quest__NewQuest('I08U',1,120*500+350,$A,900,$960,0,GetObjectName('I08U')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01C'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01E'),true)
        call Quest__QuestAddTipPoint($527C,-$71A2)
        call Quest__NewQuest('I08V',1,120*500+350,$A,$44C,$A28,0,GetObjectName('I08V')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01B'),true)
        call Quest__QuestAddTipPoint($5A1D,-$6A4A)
        call Quest__NewQuest('I08W',1,120*500+350,5,$9C4,6000,0,GetObjectName('I08W')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n01D'),true)
        call Quest__QuestAddTipPoint($669D,-$6857)
        call Quest__NewQuest('I00W',1,$F0*500+350,20,$8CA,8000,0,GetObjectName('I00W')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n02I'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n02J'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n02H'),true)
        call Quest__QuestAddTipPoint($57CC,$6A72)
        call Quest__NewQuest('I011',1,$F0*500+350,1,$ABE,$5DC,0,GetObjectName('I011')+"[击杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('h014'),true)
        call Quest__QuestAddTipPoint($6784,$67E8)
        call Quest__NewQuest('I09W',1,280*500+350,20,$9C4,9000,0,GetObjectName('I09W')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n02A'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n02B'),true)
        call Quest__QuestAddTipPoint($3BC4,-4426)
        call Quest__NewQuest('I09X',1,280*500+350,1,$BB8,$3A98,0,GetObjectName('I09X')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('h00Y'),true)
        call Quest__QuestAddTipPoint($3B56,856)
        call Quest__NewQuest('I012',1,320*500+380,$F,$A8C,9250,0,GetObjectName('I012')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('h01L'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('h01M'),true)
        call Quest__QuestAddTipPoint(8592,-$28AB)
        call Quest__NewQuest('I014',1,320*500+380,5,$BB8,$4E20,0,GetObjectName('I014')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n036'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n037'),true)
        call Quest__QuestAddTipPoint(8600,-$35BD)
        call Quest__NewQuest('I015',1,320*500+380,1,$DAC,$61A8,0,GetObjectName('I015')+"[击杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n038'),true)
        call Quest__QuestAddTipPoint($28D0,-$300C)
        call Quest__NewQuest('I016',1,350*500+380,$F,$BB8,$2710,0,GetObjectName('I016')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n002'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n00B'),true)
        call Quest__QuestAddTipPoint($5CF8,9480)
        call Quest__NewQuest('I017',1,350*500+380,1,$DAC,$61A8,0,GetObjectName('I017')+"[击杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('h010'),true)
        call Quest__QuestAddTipPoint($5047,5923)
        call Quest__NewQuest('I018',1,370*500+400,$A,$C80,$3A98,0,GetObjectName('I018')+"[猎杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('n03P'),true)
        call SaveBoolean(BYHT,Quest__LastQuestId,('n03O'),true)
        call Quest__QuestAddTipPoint(-5963,-$6CEF)
        call Quest__NewQuest('I020',1,370*500+400,1,6000,$9C40,0,GetObjectName('I020')+"[击杀]")
        call SaveBoolean(BYHT,Quest__LastQuestId,('h010'),true)
        call Quest__QuestAddTipPoint(-$3E8,-$643C)
    elseif(Quest__A==5)then
        call Quest__NewQuestDropsList('n005')
        call Quest__QuestDropsListAddItem(1,30)
        call Quest__NewQuestDropsList('n006')
        call Quest__QuestDropsListAddItem(1,30)
        call Quest__NewQuestDropsList('n008')
        call Quest__QuestDropsListAddItem(1,100)
        call Quest__NewQuestDropsList('n004')
        call Quest__QuestDropsListAddItem(2,30)
        call Quest__NewQuestDropsList('n007')
        call Quest__QuestDropsListAddItem(2,30)
        call Quest__NewQuestDropsList('n009')
        call Quest__QuestDropsListAddItem(2,100)
        call Quest__NewQuestDropsList('n00A')
        call Quest__QuestDropsListAddItem(3,50)
        call Quest__QuestDropsListAddItem(4,50)
        call Quest__NewQuestDropsList('n00C')
        call Quest__QuestDropsListAddItem(5,30)
        call Quest__NewQuestDropsList('n00E')
        call Quest__QuestDropsListAddItem(5,30)
        call Quest__QuestDropsListAddItem(6,30)
        call Quest__NewQuestDropsList('n00D')
        call Quest__QuestDropsListAddItem(7,50)
        call Quest__NewQuestDropsList('n00G')
        call Quest__QuestDropsListAddItem(9,30)
        call Quest__QuestDropsListAddItem(8,30)
        call Quest__NewQuestDropsList('n00L')
        call Quest__QuestDropsListAddItem(9,35)
        call Quest__QuestDropsListAddItem(8,35)
        call Quest__NewQuestDropsList('n00K')
        call Quest__QuestDropsListAddItem(9,36)
        call Quest__QuestDropsListAddItem(8,36)
        call Quest__NewQuestDropsList('n00H')
        call Quest__QuestDropsListAddItem($A,30)
        call Quest__NewQuestDropsList('n00I')
        call Quest__QuestDropsListAddItem($A,35)
        call Quest__NewQuestDropsList('n00J')
        call Quest__QuestDropsListAddItem($A,36)
        call Quest__NewQuestDropsList('n00M')
        call Quest__QuestDropsListAddItem($B,50)
        call Quest__NewQuestDropsList('n00O')
        call Quest__QuestDropsListAddItem($C,60)
        call Quest__NewQuestDropsList('n00Y')
        call Quest__QuestDropsListAddItem($D,35)
        call Quest__NewQuestDropsList('n00X')
        call Quest__QuestDropsListAddItem($D,35)
        call Quest__NewQuestDropsList('n00Z')
        call Quest__QuestDropsListAddItem($D,35)
        call Quest__NewQuestDropsList('n010')
        call Quest__QuestDropsListAddItem($D,40)
        call Quest__NewQuestDropsList('n011')
        call Quest__QuestDropsListAddItem($D,40)
        call Quest__NewQuestDropsList('n012')
        call Quest__QuestDropsListAddItem($D,35)
        call Quest__NewQuestDropsList('n013')
        call Quest__QuestDropsListAddItem($D,35)
        call Quest__NewQuestDropsList('n015')
        call Quest__QuestDropsListAddItem($E,50)
        call Quest__QuestDropsListAddItem($F,50)
        call Quest__NewQuestDropsList('n018')
        call Quest__QuestDropsListAddItem(16,40)
        call Quest__QuestDropsListAddItem(17,40)
        call Quest__NewQuestDropsList('n019')
        call Quest__QuestDropsListAddItem(16,40)
        call Quest__QuestDropsListAddItem(17,40)
        call Quest__NewQuestDropsList('n01C')
        call Quest__QuestDropsListAddItem(19,40)
        call Quest__QuestDropsListAddItem(18,40)
        call Quest__NewQuestDropsList('n01E')
        call Quest__QuestDropsListAddItem(20,50)
        call Quest__NewQuestDropsList('n01B')
        call Quest__QuestDropsListAddItem(21,80)
        call Quest__NewQuestDropsList('n01F')
        call Quest__QuestDropsListAddItem(22,40)
        call Quest__NewQuestDropsList('n01G')
        call Quest__QuestDropsListAddItem(22,40)
        call Quest__NewQuestDropsList('n01H')
        call Quest__QuestDropsListAddItem(22,40)
        call Quest__NewQuestDropsList('n01I')
        call Quest__QuestDropsListAddItem(22,80)
        call Quest__NewQuestDropsList('e01B')
        call Quest__QuestDropsListAddItem(23,40)
        call Quest__QuestDropsListAddItem(25,40)
        call Quest__NewQuestDropsList('h00P')
        call Quest__QuestDropsListAddItem(24,40)
        call Quest__QuestDropsListAddItem(25,40)
        call Quest__NewQuestDropsList('h00R')
        call Quest__QuestDropsListAddItem(23,40)
        call Quest__QuestDropsListAddItem(25,40)
        call Quest__NewQuestDropsList('n02A')
        call Quest__QuestDropsListAddItem(28,40)
        call Quest__NewQuestDropsList('n02B')
        call Quest__QuestDropsListAddItem(28,40)
        call Quest__NewQuestDropsList('n002')
        call Quest__QuestDropsListAddItem(26,40)
        call Quest__NewQuestDropsList('n02T')
        call Quest__QuestDropsListAddItem(26,45)
        call Quest__NewQuestDropsList('n00B')
        call Quest__QuestDropsListAddItem(27,40)
        call Quest__NewQuestDropsList('n02U')
        call Quest__QuestDropsListAddItem(27,45)
        call Quest__NewQuestDropsList('n049')
        call Quest__QuestDropsListAddItem(29,50)
        call Quest__NewQuestDropsList('n047')
        call Quest__QuestDropsListAddItem(29,50)
        call Quest__NewQuestDropsList('n02J')
        call Quest__QuestDropsListAddItem(30,33)
        call Quest__NewQuestDropsList('n02H')
        call Quest__QuestDropsListAddItem(30,33)
        call Quest__NewQuestDropsList('h01L')
        call Quest__QuestDropsListAddItem(31,33)
        call Quest__NewQuestDropsList('h01M')
        call Quest__QuestDropsListAddItem(31,33)
        call Quest__NewQuestDropsList('n03P')
        call Quest__QuestDropsListAddItem(32,20)
        call Quest__NewQuestDropsList('n03O')
        call Quest__QuestDropsListAddItem(32,20)
    else
        call SaveStr(BYHT,Quest__Name,(1),("狼肉"))
        call SaveStr(BYHT,Quest__Name,(2),("狼皮"))
        call SaveStr(BYHT,Quest__Name,(3),("银狼狼皮"))
        call SaveStr(BYHT,Quest__Name,(4),("银狼狼爪"))
        call SaveStr(BYHT,Quest__Name,(5),("强盗的武器"))
        call SaveStr(BYHT,Quest__Name,(6),("强盗的防具"))
        call SaveStr(BYHT,Quest__Name,(7),("神秘卷轴"))
        call SaveStr(BYHT,Quest__Name,(8),("熊怪利爪"))
        call SaveStr(BYHT,Quest__Name,(9),("熊怪皮毛"))
        call SaveStr(BYHT,Quest__Name,($A),("巨魔皮毛"))
        call SaveStr(BYHT,Quest__Name,($B),("巨魔族巨人皮毛"))
        call SaveStr(BYHT,Quest__Name,($C),("巨魔领主尖牙"))
        call SaveStr(BYHT,Quest__Name,($D),("鱼人鳞片"))
        call SaveStr(BYHT,Quest__Name,($E),("龙龟牙齿"))
        call SaveStr(BYHT,Quest__Name,($F),("龙龟外壳"))
        call SaveStr(BYHT,Quest__Name,(16),("冰霜巨魔尖牙"))
        call SaveStr(BYHT,Quest__Name,(17),("冰霜巨魔皮毛"))
        call SaveStr(BYHT,Quest__Name,(18),("北极熊爪"))
        call SaveStr(BYHT,Quest__Name,(19),("北极熊皮"))
        call SaveStr(BYHT,Quest__Name,(20),("巨型北极熊的皮"))
        call SaveStr(BYHT,Quest__Name,(21),("冰霜碎片"))
        call SaveStr(BYHT,Quest__Name,(22),("固态熔岩"))
        call SaveStr(BYHT,Quest__Name,(23),("生锈的弓"))
        call SaveStr(BYHT,Quest__Name,(24),("生锈的铁剑"))
        call SaveStr(BYHT,Quest__Name,(25),("生锈的盔甲"))
        call SaveStr(BYHT,Quest__Name,(26),("神秘草药"))
        call SaveStr(BYHT,Quest__Name,(27),("神秘树枝"))
        call SaveStr(BYHT,Quest__Name,(28),("大石块"))
        call SaveStr(BYHT,Quest__Name,(29),("亡者遗骨"))
        call SaveStr(BYHT,Quest__Name,(30),("鱼人的武器"))
        call SaveStr(BYHT,Quest__Name,(31),("信徒的斗篷"))
        call SaveStr(BYHT,Quest__Name,(32),("腐烂的残骸"))
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:642")
    endif
    set Quest__A=Quest__A+1
endfunction

function Quest__Trigger_Actions_B takes nothing returns boolean
    local integer p
    local integer c
    local integer id
    local integer i
    local integer n
    local integer q
    local real t
    local integer v
    if IsUnitInGroup(GetTriggerUnit(),h_v_Group)and not IsUnitIllusion(GetTriggerUnit())then
        set p=GetPlayerId(GetOwningPlayer(GetKillingUnit()))
        if p>=0 and p<8 then
            set c=GetUnitTypeId(GetTriggerUnit())
            set i=Quest__QuestList[p*100]
            loop
                exitwhen i==0
                set q=Quest__QuestList[p*100+i]
                if LoadBoolean(BYHT,q,c)then
                    set id=LoadInteger(BYHT,q,0)
                    set n=LoadInteger(BYHT,((Quest__Vessel)+(p)),id)+1
                    call SaveInteger(BYHT,((Quest__Vessel)+(p)),id,n)
                    call DisplayTimedTextToPlayer(P[p],0,0,5,LoadStr(BYHT,(Quest__Tip),q)+": |cffffcc00"+I2S(n)+" / "+I2S(LoadInteger(BYHT,q,1)))
                endif
                set i=i-1
            endloop
            set v=LoadInteger(BYHT,Quest__V8,c)
            set i=s__Quest__questdrops_tabale_index[v]
            loop
                exitwhen i==0
                set i=i-1
                set id=s___Quest__questdrops_tabale_id[s__Quest__questdrops_tabale_id[v]+i]
                if HaveSavedInteger(BYHT,((Quest__Vessel)+(p)),-id)then
                    if GetRandomReal(0,100)<=s___Quest__questdrops_tabale_t[s__Quest__questdrops_tabale_t[v]+i]then
                        call SaveInteger(BYHT,((Quest__Vessel)+(p)),id,LoadInteger(BYHT,((Quest__Vessel)+(p)),id)+1)
                        call DisplayTimedTextToPlayer(P[p],0,0,5,"|cffffcc00Obtain: |r"+(LoadStr(BYHT,Quest__Name,(id)))+"×1")
                    endif
                endif
            endloop
        endif
    endif
    return false
endfunction

function Quest__Trigger_Actions_A takes nothing returns boolean
    local unit t
    local integer id
    local integer i
    local integer c
    local integer co
    local integer l
    local integer p
    local integer q
    local integer n
    local item local_item
    local real m
    set id=GetItemTypeIdG(GetManipulatedItem())
    if HaveSavedInteger(BYHT,Quest__Hash,id)then
        set t=GetTriggerUnit()
        set p=GetPlayerId(GetOwningPlayer(t))
        set q=LoadInteger(BYHT,Quest__Hash,id)
        if HaveSavedInteger(BYHT,((Quest__VF)+(p)),q)or LoadInteger(BYHT,Quest__TYPE,q)==3 then
            set n=0
            if LoadInteger(BYHT,Quest__TYPE,q)==1 then
                set l=LoadInteger(BYHT,q,0)
                set co=LoadInteger(BYHT,q,1)
                set c=LoadInteger(BYHT,((Quest__Vessel)+(p)),l)
                if c>=co then
                    if c==co then
                        call RemoveSavedInteger(BYHT,((Quest__Vessel)+(p)),l)
                        set n=n+1
                    else
                        call SaveInteger(BYHT,((Quest__Vessel)+(p)),l,c-c/ co*co)
                        set n=n+c/ co
                    endif
                endif
            elseif LoadInteger(BYHT,Quest__TYPE,q)==2 then
                set i=LoadInteger(BYHT,Quest__QuestIndex,q)
                loop
                    exitwhen i==0
                    set i=i-1
                    set l=LoadInteger(BYHT,((Quest__V1)+(i)),q)
                    set co=LoadInteger(BYHT,q,l)
                    set c=LoadInteger(BYHT,((Quest__Vessel)+(p)),l)
                    if c>=co then
                        if c==co then
                            call RemoveSavedInteger(BYHT,((Quest__Vessel)+(p)),l)
                            set n=n+1
                        else
                            call SaveInteger(BYHT,((Quest__Vessel)+(p)),l,c-c/ co*co)
                            set n=n+c/ co
                        endif
                    endif
                    set c=LoadInteger(BYHT,((Quest__Vessel)+(p)),-l)-1
                    if c>0 then
                        call SaveInteger(BYHT,((Quest__Vessel)+(p)),-l,c)
                    else
                        call RemoveSavedInteger(BYHT,((Quest__Vessel)+(p)),-l)
                    endif
                endloop
            else
                set i=LoadInteger(BYHT,Quest__QuestIndex,q)
                loop
                    exitwhen i==0
                    set i=i-1
                    set l=LoadInteger(BYHT,((Quest__V1)+(i)),q)
                    set local_item=GetItemOfTypeFromUnit(t,l)
                    if local_item!=null then
                        set co=LoadInteger(BYHT,q,l)
                        set c=GetItemChargesG(local_item)
                        if c>=co then
                            set n=n+c/ co
                            call RemoveItemByCharges(local_item,c/ co*co)
                        endif
                    endif
                endloop
            endif
            if n>0 then
                if GetHeroLevel(t)<ModuloInteger(LoadInteger(BYHT,Quest__Level,q),500)then
                    set m=1
                else
                    set m=.15
                endif
                call tpv(GetOwningPlayer(t),n*LoadInteger(BYHT,Quest__Gold,q),R2I(m*n*LoadInteger(BYHT,Quest__Exp,q)))
                if HaveSavedInteger(BYHT,Quest__Item,q)then
                    set id=LoadInteger(BYHT,Quest__Item,q)
                    set local_item=CreateItemG(id,GetUnitX(t),GetUnitY(t))
                    set c=GetItemChargesG(local_item)
                    if c>0 then
                        call SetItemChargesG(local_item,n*c)
                    else
                        loop
                            exitwhen n==1
                            set n=n-1
                            call UnitAddItem(t,local_item)
                            set local_item=CreateItemG(id,GetUnitX(t),GetUnitY(t))
                        endloop
                    endif
                    call UnitAddItem(t,local_item)
                endif
                call DisplayTimedTextToPlayer(P[p],0,0,5,"|c0052E252The current task was completed and rewarded|r")
            else
                call DisplayTimedTextToPlayer(P[p],0,0,5,"|c0069ff2dInsufficient conditions, the task has been canceled!|r")
            endif
            if HaveSavedInteger(BYHT,((Quest__VF)+(p)),q)then
                set l=Quest__QuestList[p*100]
                set i=LoadInteger(BYHT,((Quest__VF)+(p)),q)
                call RemoveSavedInteger(BYHT,((Quest__VF)+(p)),q)
                loop
                    exitwhen i==l
                    set q=Quest__QuestList[p*100+i+1]
                    if q>0 then
                        set Quest__QuestList[p*100+i]=q
                        call SaveInteger(BYHT,((Quest__VF)+(p)),q,i)
                    else
                        exitwhen true
                    endif
                    set i=i+1
                endloop
                set Quest__QuestList[p*100+i]=0
                set Quest__QuestList[p*100]=l-1
            endif
        else
            if GetHeroLevel(t)>=LoadInteger(BYHT,Quest__Level,q)/ 500 then
                set l=Quest__QuestList[p*100]
                if l<3 then
                    call SaveInteger(BYHT,((Quest__VF)+(p)),q,l+1)
                    set Quest__QuestList[p*100]=l+1
                    set Quest__QuestList[p*100+l+1]=q
                    if LoadInteger(BYHT,Quest__TYPE,q)==2 then
                        set i=LoadInteger(BYHT,Quest__QuestIndex,q)
                        loop
                            exitwhen i==0
                            set i=i-1
                            set l=LoadInteger(BYHT,((Quest__V1)+(i)),q)
                            set c=LoadInteger(BYHT,((Quest__Vessel)+(p)),-l)+1
                            call SaveInteger(BYHT,((Quest__Vessel)+(p)),-l,c)
                        endloop
                    endif
                    call DisplayTimedTextToPlayer(P[p],0,0,5,LoadStr(BYHT,Quest__Tip,q)+" |c0069ff2daccepted!|r")
                    if HaveSavedReal(BYHT,Quest__Point,q)then
                        if GetLocalPlayer()==P[p]then
                            call PingMinimapEx(LoadReal(BYHT,Quest__Point,q),LoadReal(BYHT,Quest__Point,-q),5,0,$FF,0,false)
                        endif
                    endif
                else
                    call DisplayTimedTextToPlayer(P[p],0,0,5,"|c0069ff2dOnly 3 tasks can be accepted!|r")
                endif
            else
                call DisplayTimedTextToPlayer(P[p],0,0,5,"|c0069ff2dInsufficient level!|r")
            endif
        endif
        set t=null
        set local_item=null
    endif
    return false
endfunction

function Quest__DisplayText takes nothing returns nothing
    local integer p=GetPlayerId(GetTriggerPlayer())
    local integer i
    local integer j=Quest__QuestList[p*100]
    local integer k
    local integer l
    local integer m
    local integer q
    local string s
    if j==0 then
        call DisplayTimedTextToPlayer(P[p],0,0,5,"|c0069ff2dInsufficient level!|r")
        return
    endif
    set s=""
    set i=0
    loop
        exitwhen i==j
        set i=i+1
        set q=Quest__QuestList[p*100+i]
        set s=s+LoadStr(BYHT,Quest__Tip,q)+":
        "

        if LoadInteger(BYHT,Quest__TYPE,q)==1 then
            set s=s+"|c00ADFF2F◎|r进度 -- "+I2S(LoadInteger(BYHT,((Quest__Vessel)+(p)),LoadInteger(BYHT,q,0)))+" / "+I2S(LoadInteger(BYHT,q,1))+"
            "

        else
            set k=0
            set m=LoadInteger(BYHT,Quest__QuestIndex,q)
            loop
                exitwhen k==m
                set l=LoadInteger(BYHT,((Quest__V1)+(k)),q)
                set s=s+"|c00ADFF2F◎|r"+(LoadStr(BYHT,Quest__Name,(l)))+" -- "+I2S(LoadInteger(BYHT,((Quest__Vessel)+(p)),l))+" / "+I2S(LoadInteger(BYHT,q,l))+"
                "

                set k=k+1
            endloop
        endif
    endloop
    call DisplayTimedTextToPlayer(P[p],0,0,30,s)
endfunction

function Quest__onInit takes nothing returns nothing
    local integer i
    local trigger trig
    set Quest__Hash=malloc()
    set Quest__TYPE=malloc()
    set Quest__Level=malloc()
    set Quest__Gold=malloc()
    set Quest__Exp=malloc()
    set Quest__Item=malloc()
    set Quest__Tip=malloc()
    set Quest__Point=malloc()
    set Quest__QuestIndex=malloc()
    set Quest__V1=calloc(5)
    set Quest__V8=malloc()
    set Quest__VF=calloc(8)
    set Quest__Vessel=calloc(8)
    set Quest__Name=malloc()
    call TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function Quest__Trigger_Actions_A))))
    call RegisterEvent(EVENT_PLAYER_UNIT_DEATH,function Quest__Trigger_Actions_B)
    call TimerStart((NewTimer(0)),.03125,true,function Quest__OnInit_Func)
    set trig=CreateTrigger()
    set i=8
    loop
        set i=i-1
        if pV[i]then
            call TriggerRegisterPlayerChatEvent(trig,P[i],Quest__Str,true)
        endif
        exitwhen i==0
    endloop
    call TriggerAddCondition(trig,Filter(function Quest__DisplayText))
endfunction

function s__LavaBomb_Alloc takes nothing returns integer
    return D9v(s__LavaBomb_func)
endfunction

function s__LavaBomb_Stop takes integer this returns nothing
    call fvv(this)
endfunction

function s__LavaBomb_Loop_c takes nothing returns nothing
    local integer this=J[s__LavaBomb_func]
    local unit u
    local real x
    local real y
    local real z
    loop
        exitwhen 0==this
        set s__LavaBomb_t[this]=s__LavaBomb_t[this]+.02
        set x=s__BezierCurve_getx(s__LavaBomb_b[this],s__LavaBomb_t[this])
        set y=s__BezierCurve_gety(s__LavaBomb_b[this],s__LavaBomb_t[this])
        set z=s__BezierCurve_getz(s__LavaBomb_b[this],s__LavaBomb_t[this])
        call LKv(s__LavaBomb_f[this],x)
        call Llv(s__LavaBomb_f[this],y)
        call SetUnitFlyHeight(II[(s__LavaBomb_f[this])],((z)*1.),0)
        if s__LavaBomb_t[this]>=1 then
            if s__LavaBomb_isBag[this]then
                call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,.75))
                call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,.625))
            else
                call GroupEnumUnitsInRange(G,x,y,275+75,null)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,x,y,275)then
                        if IsUnitAliveAndEnemy(u,s__LavaBomb_atkunit[this])then
                            call UnitDamageTargetBY(((s__LavaBomb_atkunit[this])),((u)),(((($2710)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,1)
                        endif
                    endif
                endloop
                call Ltv(LAv("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",x,y,2))
                call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,1.25))
            endif
            call DestroyEffect(AddSpecialEffect("ShrapnelShards.mdx",x,y))
            call Ltv(s__LavaBomb_f[this])
            call fvv((this))
            set s__LavaBomb_atkunit[this]=null
        endif
        set this=K[this]
    endloop
endfunction

function s__LavaBomb_onInit takes nothing returns nothing
    set s__LavaBomb_func=fxv(function s__LavaBomb_Loop_c)
endfunction

function s__LavaBomb_Create takes unit s,unit u,boolean dm returns nothing
    local integer i=3
    local real x=GetUnitX(s)
    local real y=GetUnitY(s)
    local real tX=GetUnitX(u)
    local real tY=GetUnitY(u)
    local real cA=bj_DEGTORAD*GetUnitFacing(s)
    local real d
    local real a
    local integer this
    loop
        set i=i-2
        set d=GetRandomReal(25,$AF)
        set a=cA+.9*i*bj_PI
        set this=(D9v(s__LavaBomb_func))
        set s__LavaBomb_atkunit[this]=s
        set s__LavaBomb_isBag[this]=dm
        set Boss_x[0]=x+96*Cos(a)
        set Boss_y[0]=y+96*Sin(a)
        set a=cA+.7*i*bj_PI
        set Boss_x[1]=x+450*Cos(a)
        set Boss_y[1]=y+450*Sin(a)
        set d=GetRandomReal(25,$E1)
        set a=GetRandomReal(0,Lx)
        set Boss_x[2]=tX+$FA*Cos(cA+i*Lx/ 4.)
        set Boss_y[2]=tY+$FA*Sin(cA+i*Lx/ 4.)
        set Boss_x[3]=tX+d*Cos(a)
        set Boss_y[3]=tY+d*Sin(a)
        set s__LavaBomb_t[this]=0
        set s__LavaBomb_f[this]=Lnv(Boss_x[0],Boss_y[0],0)
        call LMv(s__LavaBomb_f[this],"s_LavaBomb.mdx")
        if s__LavaBomb_isBag[this]then
            set Boss_z[0]=50
            set Boss_z[1]=275
            set Boss_z[2]=75
            call SetUnitScale(II[(s__LavaBomb_f[this])],((.5)*1.),0,0)
        else
            set Boss_z[0]=300
            set Boss_z[1]=500
            set Boss_z[2]=$96
            call SetUnitScale(II[(s__LavaBomb_f[this])],((1.25)*1.),0,0)
        endif
        call SetUnitFlyHeight(II[(s__LavaBomb_f[this])],((Boss_z[0])*1.),0)
        set s__LavaBomb_b[this]=s__BezierCurve_Power3(Boss_x[0],Boss_y[0],Boss_z[0],Boss_x[1],Boss_y[1],Boss_z[1],Boss_x[2],Boss_y[2],Boss_z[2],Boss_x[3],Boss_y[3],0)
        exitwhen i<0
    endloop
    call PlaySoundAtPoint_BJ((Ma),((100)*1.),((x)*1.),((y)*1.),0)
endfunction

function n02N__Ability_001_Stop takes nothing returns nothing
    if n02N__Ability_001_Target!=0 then
        call UnitRemoveAbilityandBuffBY((Je[(n02N__Ability_001_Target)]),'A0I2','B00Z')
        call Unit_Cancel_Counter(333,n02N__Ability_001_Target)
        set n02N__Ability_001_Target=0
        set n02N__Ability_001_Timed=0
    endif
endfunction

function n02N__Ability_001_Start takes unit u,real cyv returns nothing
    call n02N__Ability_001_Stop()
    if u!=null then
        set n02N__Ability_001_Target=(GetUnitUserData((u)))
        set n02N__Ability_001_Timed=R2I(32*cyv)+48
        set n02N__Ability_001_Timed_2=n02N__Ability_001_Timed-47
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
        call NewTextTagInTarget_B(u,"|c0095caff"+(Game_PlayerName[Kc[((GetUnitUserData((u))))]])+" |c00ff8080!|r",$F,$FF,$FF,$FF)
        call UnitAddAbilityBY(u,'A0I2')
        call Unit_App_Counter(334,n02N__Ability_001_Target)
    endif
endfunction

function n02N__Ability_002_Actions takes nothing returns nothing
    local real x=GetUnitX(n02N__Unit_n02N)
    local real y=GetUnitY(n02N__Unit_n02N)
    local unit u=PickRandomVisibleHeroInRange(n02N__Unit_n02N,x,y,$4B0)
    if u!=null then
        call NewTextTagInTarget_A(n02N__Unit_n02N,"Roll away..",$FF,25,25)
        call n02N__Ability_001_Start(u,3)
        call Ltv(LAv("ShrapnelShards.mdx",x,y,4))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.5),$FF,0,0,$FF))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,2.5),$FF,0,0,$FF))
        set u=null
    endif
endfunction

function n02N__n02Q_Create_004 takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:293")
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,275+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,275)then
            if IsUnitAliveAndEnemy(u,n02N__Unit_n02N)then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",u,"origin"))
                call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),(((($30D4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,1.25)
            endif
        endif
    endloop
    call Auxiliary_PointOrder(('A0HX'),P[$B],1,$D0108,x,y)
    call Lqv(Lfv(LAv("MagmaBurst.mdl",x,y,1.375),$FF,0,0,$CD),3)
    call Ltv(fx)
endfunction

function n02N__n02Q_Create_003 takes nothing returns nothing
    local integer fx=ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:294")
    local real x=(GetUnitX(II[(fx)]))
    local real y=(GetUnitY(II[(fx)]))
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$9C+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$9C)then
            if IsUnitAliveAndEnemy(u,n02N__Unit_n02N)then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl",u,"origin"))
                call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),((((7500)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    call Lqv(LAv("Objects\\Spawnmodels\\Human\\SmallFlameSpawn\\SmallFlameSpawn.mdl",x,y,1.25),3)
    call Ltv(fx)
endfunction

function n02N__n02Q_Create_002 takes nothing returns nothing
    local integer v=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer i=8
    local integer j=LoadInteger(BYHT,v,0)-1
    local real x
    local real y
    local real a
    loop
        set i=i-1
        set a=LoadReal(BYHT,v,i*3+3)
        set x=LoadReal(BYHT,v,i*3+1)+$E1*Cos(a)
        set y=LoadReal(BYHT,v,i*3+2)+$E1*Sin(a)
        if not IsTerrainWalkable(x,y)then
            set x=IsTerrainWalkable_X
            set y=IsTerrainWalkable_Y
        endif
        if j>0 then
            call SaveReal(BYHT,v,i*3+1,x)
            call SaveReal(BYHT,v,i*3+2,y)
            call SaveReal(BYHT,v,i*3+3,a+GetRandomReal(-bj_PI/ 6,bj_PI/ 6))
            call TimerStart(NewTimer(LAv("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",x,y,1.5)),1.1,false,function n02N__n02Q_Create_003)
        else
            call TimerStart(NewTimer(LAv("Abilities\\Spells\\Other\\Doom\\DoomTarget.mdl",x,y,2.25)),1.1,false,function n02N__n02Q_Create_004)
        endif
        exitwhen i==0
    endloop
    if j<1 then
        call free(v)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:295")
    else
        call SaveInteger(BYHT,v,0,j)
    endif
endfunction

function n02N__n02Q_Create takes nothing returns nothing
    local real tX=n02N__Ability_003_TargetX
    local real tY=n02N__Ability_003_TargetY
    local integer i=8
    local integer v=malloc()
    call SaveInteger(BYHT,v,0,6)
    loop
        set i=i-1
        call SaveReal(BYHT,v,i*3+1,tX)
        call SaveReal(BYHT,v,i*3+2,tY)
        call SaveReal(BYHT,v,i*3+3,i*Lx/ 8.+GetRandomReal(-.3,.3))
        exitwhen i==0
    endloop
    call TimerStart(NewTimer(v),.15,true,function n02N__n02Q_Create_002)
endfunction

function n02N__n02P_onViolent takes integer czv,real a returns nothing
    local integer EVe=GetRandomInt(1,3)
    local real x=GetUnitX(n02N__Unit_n02N)+.5*n02N__n02O_Move_Range*Cos(a)
    local real y=GetUnitY(n02N__Unit_n02N)+.5*n02N__n02O_Move_Range*Sin(a)
    local unit u
    call GroupEnumUnitsInRange(G,x,y,425+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,425)then
            if IsUnitAliveAndEnemy(u,(Je[(n02N__Unit_n02P)]))then
                call UnitDamageTargetBY((((Je[(n02N__Unit_n02P)]))),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call m1v(u,1)
            endif
        endif
    endloop
    call Auxiliary_TargetOrder(('A0I3'),null,czv,$D0085,(Je[(n02N__Unit_n02P)]))
    call Ltv(LAv("Desecrate.mdl",x,y,1+.25*czv))
    call Lqv(LAv("MagmaBurst.mdl",x,y,1+.5*czv),2)
    call SetUnitPosition((Je[(n02N__Unit_n02P)]),x,y)
    if EVe==1 then
        call NewTextTagInTarget_B((Je[(n02N__Unit_n02P)]),"|c00b32f2fStop and don't run!|r",$F,$FF,$FF,$FF)
    elseif EVe==2 then
        call NewTextTagInTarget_B((Je[(n02N__Unit_n02P)]),"|c00b32f2fBecome ashes..|r",$F,$FF,$FF,$FF)
    else
        call NewTextTagInTarget_B((Je[(n02N__Unit_n02P)]),"|c00b32f2fOnly death is waiting for you here..|r",$F,$FF,$FF,$FF)
    endif
endfunction

function n02N__Ability_003_Loop takes nothing returns nothing
    local unit u
    local real Eee
    local real t
    local real d
    local real a
    if n02N__Ability_003_Index==1 then
        set Eee=GetUnitFlyHeight(n02N__Unit_n02N)+n02N__Ability_003_FlyHeight
        if Eee<900 then
            set n02N__Ability_003_FlyHeight=n02N__Ability_003_FlyHeight+$A
            call SetUnitFlyHeight(n02N__Unit_n02N,Eee,0)
        else
            set n02N__Ability_003_Index=2
            set n02N__Ability_003_Timed=32
            call SetUnitTimeScale(n02N__Unit_n02N,1.25)
            call SetUnitAnimation(n02N__Unit_n02N,"spell slam")
            call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,3))
            call Ltv(LAv("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosTarget.mdl",n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,3))
            call Lqv(Lfv(LAv("Abilities\\Spells\\Undead\\VampiricAura\\VampiricAura.mdl",n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,3),$FF,25,25,$CD),n02N__Ability_003_Timed*.03125)
        endif
    elseif n02N__Ability_003_Index==2 then
        set n02N__Ability_003_Timed=n02N__Ability_003_Timed-1
        if n02N__Ability_003_Timed<1 then
            set n02N__Ability_003_Index=3
            set n02N__Ability_003_Timed=16
            set Boss_x[0]=GetUnitX(n02N__Unit_n02N)
            set Boss_y[0]=GetUnitY(n02N__Unit_n02N)
            set Boss_z[0]=GetUnitFlyHeight(n02N__Unit_n02N)
            set Boss_x[1]=Boss_x[0]+(Boss_x[0]-n02N__Ability_003_TargetX)*.125
            set Boss_y[1]=Boss_y[0]+(Boss_y[0]-n02N__Ability_003_TargetY)*.125
            set Boss_z[1]=Boss_z[0]*.9
            set n02N__Ability_003_BezierCurve=s__BezierCurve_Power2(Boss_x[0],Boss_y[0],Boss_z[0],Boss_x[1],Boss_y[1],Boss_z[1],n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,0)
        endif
    else
        set n02N__Ability_003_Timed=n02N__Ability_003_Timed-1
        set t=1.-n02N__Ability_003_Timed/ 16.
        call SetUnitX(n02N__Unit_n02N,s__BezierCurve_getx(n02N__Ability_003_BezierCurve,t))
        call SetUnitY(n02N__Unit_n02N,s__BezierCurve_gety(n02N__Ability_003_BezierCurve,t))
        call SetUnitFlyHeight(n02N__Unit_n02N,s__BezierCurve_getz(n02N__Ability_003_BezierCurve,t),0)
        if n02N__Ability_003_Timed<1 then
            set n02N__Ability_003_Index=0
            call GroupEnumUnitsInRange(G,n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,$3E8+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,$3E8)then
                    if IsUnitAliveAndEnemy(u,n02N__Unit_n02N)then
                        if IsUnitInRangeXY(u,n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,450)then
                            call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),(((($88B8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                            call m1v(u,1.25)
                        else
                            call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),(((($3A98)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((0)*1.))*1.),(("")))
                        endif
                        call UnitAppBuffByLevel((GetUnitUserData((u))),'A0HT',$D006B,2)
                    endif
                endif
            endloop
            if UnitAlive((Je[(n02N__Unit_n02P)]))then
                call n02N__n02P_onViolent(2,Mvv((Je[(n02N__Unit_n02P)]),n02N__Unit_n02N))
            endif
            if UnitAlive((Je[(n02N__Unit_n02O)]))then
                call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,(Je[(n02N__Unit_n02O)]))
                call Lqv(LAv("MagmaBurst.mdl",GetUnitX((Je[(n02N__Unit_n02O)])),GetUnitY((Je[(n02N__Unit_n02O)])),2.5),2)
                call NewTextTagInTarget_B((Je[(n02N__Unit_n02O)]),"|c00b32f2fI'm going to zoom in!|r",$E,$FF,$FF,$FF)
            endif
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:296")
            call Ltv(Lfv(LAv("AncientExplode.mdl",n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,2),$FF,0,0,$CD))
            call Ltv(LAv("Explosion.mdl",n02N__Ability_003_TargetX,n02N__Ability_003_TargetY,4))
            call zjv(40,1)
            call n02N__n02Q_Create()
            call SetUnitTimeScale(n02N__Unit_n02N,1)
            call QueueUnitAnimation(n02N__Unit_n02N,"stand")
            call SetUnitInvulnerable(n02N__Unit_n02N,false)
            call PauseUnit(n02N__Unit_n02N,false)
        endif
    endif
endfunction

function n02N__Ability_003_Start takes nothing returns nothing
    local unit u
    local real x
    local real y
    if n02N__Ability_003_CD==0 then
        set n02N__Ability_003_CD=$960
        set x=GetUnitX(n02N__Unit_n02N)
        set y=GetUnitY(n02N__Unit_n02N)
        set u=PickRandomVisibleHeroInRange(n02N__Unit_n02N,x,y,$3E8)
        if u==null then
            set n02N__Ability_003_TargetX=x
            set n02N__Ability_003_TargetY=y
        else
            set n02N__Ability_003_TargetX=GetUnitX(u)
            set n02N__Ability_003_TargetY=GetUnitY(u)
            call SetUnitFacingTimed(n02N__Unit_n02N,bj_RADTODEG*Atan2(n02N__Ability_003_TargetY-y,n02N__Ability_003_TargetX-x),0)
        endif
        set n02N__Ability_003_FlyHeight=25
        set n02N__Ability_003_Index=1
        call GroupEnumUnitsInRange(G,x,y,$3E8+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$3E8)then
                if IsUnitAliveAndEnemyNotAvul(u,n02N__Unit_n02N)then
                    call UnitAppBuff((GetUnitUserData((u))),'A0HT',$D006B)
                    call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),(((($BB8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
        call NewTextTagInTarget_A(n02N__Unit_n02N,"给我跪下!!",$FF,25,25)
        call UnitRemoveControl((GetUnitUserData((n02N__Unit_n02N))))
        call UnitAddAbility(n02N__Unit_n02N,'Amrf')
        call UnitRemoveAbility(n02N__Unit_n02N,'Amrf')
        call SetUnitInvulnerable(n02N__Unit_n02N,true)
        call PauseUnit(n02N__Unit_n02N,true)
        call SetUnitTimeScale(n02N__Unit_n02N,.5)
        call SetUnitAnimation(n02N__Unit_n02N,"walk")
        call TimerStart((NewTimer(0)),.03125,true,function n02N__Ability_003_Loop)
        call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",x,y,2.5),3)
        call Lqv(LAv("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.mdl",x,y,2.5),3)
        call Ltv(LAv("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",x,y,3.25))
    endif
endfunction

function n02N__n02O_AbilityStart_func takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local real x=(GetUnitX(II[(Boss_Spell_data2[data])]))
    local real y=(GetUnitY(II[(Boss_Spell_data2[data])]))
    local real dX
    local real dY
    local real a
    if Boss_Spell_data1[data]!=0 then
        if UnitAlive((Je[(Boss_Spell_data1[data])]))then
            set dX=GetUnitX((Je[(Boss_Spell_data1[data])]))
            set dY=GetUnitY((Je[(Boss_Spell_data1[data])]))
            if SquareRoot(Pow(dX-x,2)+Pow(dY-y,2))<$9C4 then
                set Boss_Spell_X[data]=dX
                set Boss_Spell_Y[data]=dY
            else
                call Unit_Cancel_Counter(335,Boss_Spell_data1[data])
                set Boss_Spell_data1[data]=0
            endif
        else
            call Unit_Cancel_Counter(336,Boss_Spell_data1[data])
            set Boss_Spell_data1[data]=0
        endif
    endif
    set dX=Boss_Spell_X[data]-x
    set dY=Boss_Spell_Y[data]-y
    set a=dX*dX+dY*dY
    call GroupEnumUnitsInRange(G,x,y,$AF+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$AF)then
            exitwhen IsUnitAliveAndEnemy(u,n02N__Unit_n02N)and GetUnitAbilityLevel(u,'Avul')==0
        endif
    endloop
    if u==null and a>1024. then
        set a=30/ SquareRoot(a)
        call LKv(Boss_Spell_data2[data],x+dX*a)
        call Llv(Boss_Spell_data2[data],y+dY*a)
    else
        call GroupEnumUnitsInRange(G,x,y,425+75,null)
        if Boss_Spell_data1[data]!=0 then
            call GroupRemoveUnit(G,(Je[(Boss_Spell_data1[data])]))
            call Unit_Cancel_Counter(337,Boss_Spell_data1[data])
            set Boss_Spell_data1[data]=0
        endif
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:297")
        call Boss_Spell_deallocate(data)
        call Ltv(Lfv(LAv("AncientExplode.mdl",x,y,1.5),0,$9B,$9B,$FF))
        call Ltv(LAv("uberdarkwave.mdl",x,y,.625))
        call Ltv(Boss_Spell_data2[data])
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,425)then
                if IsUnitAliveAndEnemy(u,n02N__Unit_n02N)then
                    call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),((((1.2*GetWidgetLife(u)+$9C4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                endif
            endif
        endloop
    endif
endfunction

function n02N__n02O_AbilityStart takes integer cFv,unit u returns nothing
    local integer data=Boss_Spell_allocate()
    local real x=(GetUnitX(II[(cFv)]))
    local real y=(GetUnitY(II[(cFv)]))
    set Boss_Spell_data1[data]=(GetUnitUserData((u)))
    set Boss_Spell_data2[data]=cFv
    set Boss_Spell_X[data]=GetUnitX(u)
    set Boss_Spell_Y[data]=GetUnitY(u)
    call Ltv(LIv("DarkNova.mdl",x,y,125,.85,Atan2(Boss_Spell_Y[data]-y,Boss_Spell_X[data]-x),0))
    call Unit_App_Counter(338,Boss_Spell_data1[data])
    call TimerStart(NewTimer(data),.03125,true,function n02N__n02O_AbilityStart_func)
endfunction

function n02N__n02O_AbilityEnd takes nothing returns nothing
    if n02N__n02O_Ability_TargetUnit!=0 then
        if n02N__n02O_AbilityEffect!=0 then
            call Ltv(n02N__n02O_AbilityEffect)
            set n02N__n02O_AbilityEffect=0
        endif
        call UnitRemoveAbilityandBuffBY((Je[(n02N__n02O_Ability_TargetUnit)]),'A0HV','B00I')
        call Unit_Cancel_Counter(339,n02N__n02O_Ability_TargetUnit)
        set n02N__n02O_Ability_TargetUnit=0
        set n02N__n02O_Ability_CD=32
    endif
endfunction

function n02N__Start_001 takes nothing returns nothing
    local real tX=GetUnitX(n02N__Unit_n02N)
    local real tY=GetUnitY(n02N__Unit_n02N)
    local real a=GetUnitState(n02N__Unit_n02N,UNIT_STATE_MANA)+25./ 96.
    local real l=GetUnitState(n02N__Unit_n02N,UNIT_STATE_LIFE)
    local real x
    local real y
    local real d
    local unit u
    if n02N__Ability_005_Timed>0 then
        if n02N__Ability_003_Index>0 then
            set n02N__Ability_005_Timed=0
        else
            set n02N__Ability_005_Timed=n02N__Ability_005_Timed-1
        endif
        if ModuloInteger(n02N__Ability_005_Timed,24)==0 then
            if n02N__Ability_005_Timed<1 then
                call SetUnitNocontrol((GetUnitUserData((n02N__Unit_n02N))),false)
            endif
            call GroupEnumUnitsInRange(G,tX,tY,525+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,tX,tY,525)then
                    if IsUnitAliveAndEnemyNotAvul(u,n02N__Unit_n02N)then
                        call zhv((GetPlayerId((GetOwningPlayer(u)))),50,.5)
                        call UnitAppBuff((GetUnitUserData((u))),'A0HT',$D006B)
                        call Gjv(u,75,Atan2(GetUnitY(u)-tY,GetUnitX(u)-tX),1,"KnockbackDust.mdl")
                    endif
                endif
            endloop
            call Ltv(LAv("DarknessExplosion.mdl",tX,tY,2.25))
            call Ltv(LAv("FireNova.mdl",tX,tY,2))
            call Lqv(LAv("MagmaBurst.mdl",tX,tY,3.25),2)
        endif
        call SetUnitState(n02N__Unit_n02N,UNIT_STATE_MANA,n02N__Ability_005_Timed/ 96.*100.)
    elseif(Control_use[((GetUnitUserData((n02N__Unit_n02N))))])and(Control_abid[(GetUnitUserData(((n02N__Unit_n02N))))])!='A00P' and GetUnitAbilityLevel(n02N__Unit_n02N,'B01N')==0 and a>=100 then
        set n02N__Ability_005_Timed=96
        call SetUnitNocontrol((GetUnitUserData((n02N__Unit_n02N))),true)
        call Auxiliary_TargetOrder(('A0I3'),null,1,$D0085,n02N__Unit_n02N)
        call NewTextTagInTarget_B(n02N__Unit_n02N,"|c00b32f2fOverload|r",18,$FF,$FF,$FF)
        call PlaySoundAtPoint_BJ((Za),((125)*1.),((tX)*1.),((tY)*1.),0)
    elseif not IsUnitPaused(n02N__Unit_n02N)then
        call SetUnitState(n02N__Unit_n02N,UNIT_STATE_MANA,a)
    endif
    if n02N__Ability_003_CD>0 then
        set n02N__Ability_003_CD=n02N__Ability_003_CD-1
    elseif GetWidgetLife(n02N__Unit_n02N)<$E4E1C0 and GetUnitAbilityLevel(n02N__Unit_n02N,'Avul')==0 then
        call n02N__Ability_003_Start()
    endif
    if n02N__Ability_004_Timed>0 then
        set n02N__Ability_004_Timed=n02N__Ability_004_Timed-1
        if n02N__Ability_004_Timed<1 then
            call SetUnitNocontrol((n02N__Unit_n02P),false)
            call PauseUnit(n02N__Unit_n02N,false)
            call SetUnitInvulnerable(n02N__Unit_n02N,false)
            call SetUnitTimeScale(n02N__Unit_n02N,1)
        endif
    elseif n02N__Ability_004_Lv>0 and l<n02N__Ability_004_Life[n02N__Ability_004_Lv]and GetUnitAbilityLevel(n02N__Unit_n02N,'Avul')==0 then
        set n02N__Ability_004_Timed=384
        set n02N__Ability_004_Lv=n02N__Ability_004_Lv-1
        if n02N__Ability_005_Timed>0 then
            set n02N__Ability_005_Timed=0
            call SetUnitNocontrol((GetUnitUserData((n02N__Unit_n02N))),false)
        endif
        call GroupEnumUnitsInRange(G,tX,tY,600+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,tX,tY,600)then
                if IsUnitAliveAndEnemyNotAvul(u,n02N__Unit_n02N)then
                    if nC[(GetUnitUserData((u)))]then
                        call zKv((GetPlayerId((GetOwningPlayer(u)))),$FF,125,125,1.5)
                    endif
                    call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),(((($BB8)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call Gjv(u,90,Atan2(GetUnitY(u)-tY,GetUnitX(u)-tX),1.5,"KnockbackDust.mdl")
                    call m1v(u,2)
                endif
            endif
        endloop
        if UnitAlive((Je[(n02N__Unit_n02P)]))then
            call SetUnitNocontrol((n02N__Unit_n02P),true)
            call NewTextTagInTarget_B((Je[(n02N__Unit_n02P)]),"|c00b32f2fOnly death is waiting for you here..|r",$E,$FF,$FF,$FF)
            call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,(Je[(n02N__Unit_n02P)]))
            call Lqv(LAv("MagmaBurst.mdl",GetUnitX((Je[(n02N__Unit_n02P)])),GetUnitY((Je[(n02N__Unit_n02P)])),2.5),2)
        endif
        if UnitAlive((Je[(n02N__Unit_n02O)]))then
            call Auxiliary_TargetOrder(('A0I3'),null,2,$D0085,(Je[(n02N__Unit_n02O)]))
            call Lqv(LAv("MagmaBurst.mdl",GetUnitX((Je[(n02N__Unit_n02O)])),GetUnitY((Je[(n02N__Unit_n02O)])),2.5),2)
            call NewTextTagInTarget_B((Je[(n02N__Unit_n02O)]),"|c00b32f2fI will take away your soul!|r",$E,$FF,$FF,$FF)
        endif
        call PauseUnit(n02N__Unit_n02N,true)
        call SetUnitInvulnerable(n02N__Unit_n02N,true)
        call SetUnitTimeScale(n02N__Unit_n02N,.12)
        call SetUnitAnimationByIndex(n02N__Unit_n02N,3)
        call n02N__Ability_001_Start(PickRandomVisibleHeroInRange(n02N__Unit_n02N,tX,tY,$546),n02N__Ability_004_Timed/ 32.)
        call Ltv(LAv("FireNova.mdl",tX,tY,2.25))
        call Ltv(LAv("FireNova.mdl",tX,tY,2.25))
        call Lqv(LAv("MagmaBurst.mdl",tX,tY,4),2)
        call Lqv(LAv("firegold.mdl",tX,tY,4),2)
    elseif n02N__Ability_004_Lv<2 and l>n02N__Ability_004_Life[n02N__Ability_004_Lv+3]then
        set n02N__Ability_004_Lv=n02N__Ability_004_Lv+1
    endif
    if n02N__Ability_001_Timed>0 then
        if n02N__Ability_003_Index>0 or not UnitAlive((Je[(n02N__Ability_001_Target)]))then
            if n02N__Ability_003_Index>0 or n02N__Ability_001_Timed==0 then
                call n02N__Ability_001_Stop()
            else
                set u=PickRandomVisibleHeroInRange(n02N__Unit_n02N,tX,tY,$4B0)
                if u==null then
                    call n02N__Ability_001_Stop()
                elseif n02N__Ability_004_Timed>0 then
                    call n02N__Ability_001_Start(u,n02N__Ability_004_Timed/ 32.)
                else
                    call n02N__Ability_001_Start(u,4.5)
                endif
            endif
        else
            set n02N__Ability_001_Timed=n02N__Ability_001_Timed-1
            if n02N__Ability_001_Timed<n02N__Ability_001_Timed_2 and ModuloInteger(n02N__Ability_001_Timed,16)==0 then
                call s__LavaBomb_Create(n02N__Unit_n02N,(Je[(n02N__Ability_001_Target)]),false)
                call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Human\\Feedback\\SpellBreakerAttack.mdl",(Je[(n02N__Ability_001_Target)]),"origin",1)
                if n02N__Ability_001_Timed<1 then
                    call n02N__Ability_001_Stop()
                endif
            endif
        endif
    endif
    if n02N__Ability_003_Index==0 and UnitAlive((Je[(n02N__Unit_n02P)]))then
        set x=GetUnitX((Je[(n02N__Unit_n02P)]))-tX
        set y=GetUnitY((Je[(n02N__Unit_n02P)]))-tY
        if SquareRoot(x*x+y*y)>$7D0 then
            call n02N__n02P_onViolent(1,Atan2(y,x))
        endif
    endif
    if UnitAlive((Je[(n02N__Unit_n02O)]))then
        set x=n02N__n02O_Move_TargetX-GetUnitX((Je[(n02N__Unit_n02O)]))
        set y=n02N__n02O_Move_TargetY-GetUnitY((Je[(n02N__Unit_n02O)]))
        set a=Atan2(y,x)+Lx/ 2560.
        set d=SquareRoot(x*x+y*y)
        if d>n02N__n02O_Move_Range then
            if d-$C<n02N__n02O_Move_Range then
                set d=n02N__n02O_Move_Range
            else
                set d=d-$C
            endif
        elseif d+$C>n02N__n02O_Move_Range then
            set d=n02N__n02O_Move_Range
        else
            set d=d+$C
        endif
        set x=n02N__n02O_Move_TargetX-d*Cos(a)
        set y=n02N__n02O_Move_TargetY-d*Sin(a)
        set n02N__n02O_Ability_Timed=n02N__n02O_Ability_Timed+1
        set n02N__n02O_Ability_CD=n02N__n02O_Ability_CD-1
        if n02N__n02O_Ability_CD<1 then
            if n02N__n02O_Ability_TargetUnit==0 then
                set u=PickRandomVisibleHeroInRange(n02N__Unit_n02N,x,y,$6D6)
                if u==null then
                    set n02N__n02O_Ability_CD=32
                else
                    set n02N__n02O_Ability_TargetUnit=(GetUnitUserData((u)))
                    set n02N__n02O_Ability_CD=960
                    call UnitAddAbilityBY((Je[(n02N__n02O_Ability_TargetUnit)]),'A0HV')
                    call Unit_App_Counter(340,n02N__n02O_Ability_TargetUnit)
                endif
            else
                call n02N__n02O_AbilityEnd()
            endif
        elseif n02N__n02O_Ability_TargetUnit!=0 then
            if not UnitAlive((Je[(n02N__n02O_Ability_TargetUnit)]))or Mev((Je[(n02N__n02O_Ability_TargetUnit)]),(Je[(n02N__Unit_n02O)]))>$9C4 then
                call n02N__n02O_AbilityEnd()
            endif
        endif
        if n02N__n02O_Ability_TargetUnit==0 then
            set n02N__n02O_Move_TargetX=tX
            set n02N__n02O_Move_TargetY=tY
            call IssueTargetOrderById((Je[(n02N__Unit_n02O)]),$D0012,n02N__Unit_n02N)
        else
            set a=bj_DEGTORAD*GetUnitFacing((Je[(n02N__Unit_n02O)]))
            if n02N__n02O_AbilityEffect==0 then
                set n02N__n02O_AbilityEffect=Lnv(x+64*Cos(a),y+64*Sin(a),a)
                call LMv(n02N__n02O_AbilityEffect,"Evil Bomb.mdl")
                call SetUnitFlyHeight(II[(n02N__n02O_AbilityEffect)],((125)*1.),0)
                call Lfv(n02N__n02O_AbilityEffect,$FF,0,0,$FF)
                set n02N__n02O_Ability_Count=0
            else
                if(Control_use[((n02N__Unit_n02O))])then
                    set n02N__n02O_Ability_Count=0
                elseif GetUnitAbilityLevel((Je[(n02N__Unit_n02O)]),'B01I')>0 then
                    set n02N__n02O_Ability_Count=n02N__n02O_Ability_Count+3
                else
                    set n02N__n02O_Ability_Count=n02N__n02O_Ability_Count+1
                endif
                call LKv(n02N__n02O_AbilityEffect,x+64*Cos(a))
                call Llv(n02N__n02O_AbilityEffect,y+64*Sin(a))
            endif
            set tX=GetUnitX((Je[(n02N__n02O_Ability_TargetUnit)]))
            set tY=GetUnitY((Je[(n02N__n02O_Ability_TargetUnit)]))
            set a=Atan2(tY-y,tX-x)
            call SetUnitScale(II[(n02N__n02O_AbilityEffect)],((.5+.01*n02N__n02O_Ability_Count)*1.),0,0)
            if ModuloInteger(n02N__n02O_Ability_CD,24)==0 then
                set u=(Je[(n02N__n02O_Ability_TargetUnit)])
                call GroupEnumUnitsInRange(G,tX,tY,275+75,null)
                call GroupRemoveUnit(G,u)
                loop
                    set u=FirstOfGroup(G)
                    exitwhen u==null
                    call GroupRemoveUnit(G,u)
                    if IsUnitInRangeXY(u,tX,tY,275)then
                        if IsUnitAliveAndEnemyNotAvul(u,n02N__Unit_n02N)then
                            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                            call UnitMoveToADistanceByTarget(u,tX,tY,12.5)
                            call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        endif
                    endif
                endloop
            endif
            call IssueTargetOrderById((Je[(n02N__Unit_n02O)]),$D0012,(Je[(n02N__n02O_Ability_TargetUnit)]))
            if n02N__n02O_Ability_Count>$EF then
                call n02N__n02O_AbilityStart(n02N__n02O_AbilityEffect,(Je[(n02N__n02O_Ability_TargetUnit)]))
                set n02N__n02O_AbilityEffect=0
            endif
        endif
        if n02N__n02O_Ability_Timed>23 then
            set n02N__n02O_Ability_Timed=0
            call GroupEnumUnitsInRange(G,x,y,375+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,375)then
                    if IsUnitAliveAndEnemy(u,n02N__Unit_n02N)then
                        call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),((((5000)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",u,"origin"))
                    endif
                endif
            endloop
        endif
        call SetUnitX((Je[(n02N__Unit_n02O)]),x)
        call SetUnitY((Je[(n02N__Unit_n02O)]),y)
        set u=null
    else
        call n02N__n02O_AbilityEnd()
    endif
endfunction

function n02N__n02P_BuffEnd takes nothing returns nothing
    if n02N__n02P_Buff_Timer!=null then
        call ReleaseTimer(n02N__n02P_Buff_Timer,"[TimerUtils]Error:298")
        call UnitRemoveAbilityandBuffBY((Je[(n02N__Unit_n02P)]),'A0HY','B00Q')
        call ModifyUnitAttack((n02N__Unit_n02P),-$2710*n02N__n02P_BuffLV)
        call Unit_Cancel_Counter(341,n02N__Unit_n02P)
        set n02N__n02P_Buff_Timer=null
        set n02N__n02P_BuffLV=0
    endif
endfunction

function n02N__n02P_onAttack takes nothing returns boolean
    if n02N__n02P_Buff_Timer==null then
        set n02N__n02P_Buff_Timer=(NewTimer(0))
        call UnitAddAbilityBY((Je[(n02N__Unit_n02P)]),'A0HY')
        call Unit_App_Counter(342,n02N__Unit_n02P)
    endif
    if n02N__n02P_BuffLV<6 then
        set n02N__n02P_BuffLV=n02N__n02P_BuffLV+1
        call ModifyUnitAttack((n02N__Unit_n02P),$2710)
    endif
    if GetRandomInt(1,100)<16 then
        call DestroyEffect(AddSpecialEffectTarget("ChaosExplosion.mdl",(MF),"origin"))
        call UnitDamageTargetBY((((Je[(n02N__Unit_n02P)]))),(((MF))),(((($FA0)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
        call m1v((MF),2)
    endif
    call UnitDamageTargetBY((((Je[(n02N__Unit_n02P)]))),(((MF))),(((($9C4+500*(n02N__n02P_BuffLV*n02N__n02P_BuffLV))*1.))*1.),false,((true)),false,false,(ATTACK_TYPE_NORMAL),((DAMAGE_TYPE_UNIVERSAL)),((((16+n02N__n02P_BuffLV)*1.))*1.),(("|c00FF0000")))
    call cgv((Je[(n02N__Unit_n02P)]),(MF),GetDamage())
    call TimerStart(n02N__n02P_Buff_Timer,1.5,false,function n02N__n02P_BuffEnd)
    return false
endfunction

function n02N__n02N_AI takes nothing returns nothing
    local integer order=GetUnitCurrentOrder(n02N__Unit_n02N)
    local integer i
    local real l
    if order==0 or order==$D0006 or($D000E<order and order<$D0013)then
        set l=GetUnitState(n02N__Unit_n02N,UNIT_STATE_LIFE)/ GetUnitState(n02N__Unit_n02N,UNIT_STATE_MAX_LIFE)
        set i=GetRandomInt(1,100)
        if i>91 and l<=.95 then
            call IssueImmediateOrderById(n02N__Unit_n02N,$D0077)
        elseif i>82 and l<=.9 then
            set KF[HF]=PF+1000000.
            call n02N__Ability_003_Start()
        endif
    endif
endfunction

function n02N__n02N_onAttack takes nothing returns nothing
    local real x=GetUnitX((MF))
    local real y=GetUnitY((MF))
    local unit u
    if GetUnitState((mF),UNIT_STATE_MANA)<100 then
        call SetUnitState((mF),UNIT_STATE_MANA,0)
    endif
    call Lqv(LAv("firegold.mdl",x,y,1.25),1.25)
    call GroupEnumUnitsInRange(G,x,y,500,null)
    call GroupRemoveUnit(G,(MF))
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,425)and IsUnitAliveAndEnemy(u,(mF))then
            call UnitDamageTargetBY(((mF)),(u),(((DAK_AMOUNT[HF]))*1.),false,(false),false,false,(ATTACK_TYPE_HERO),(DAMAGE_TYPE_NORMAL),.0,"")
        endif
    endloop
    call n02N__n02N_AI()
endfunction

function n02N__End takes nothing returns nothing
    local integer i
    if n02N__Timer!=null then
        set i=8
        loop
            set i=i-1
            if MV[i]!=null then
                if GetHeroLevel(MV[i])>=360 then
                    call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFFFF6666Shard of anger have been created for players who have reached the level 360.|r")
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",MV[i],"origin"))
                    call SetItemUserData(CreateItemG('stwp',iA[i],VA[i]),i+1)
                endif
            endif
            exitwhen i==0
        endloop
        call ReleaseTimer(n02N__Timer,"[TimerUtils]Error:299")
        call DestroyEffectBY(n02N__Effect)
        call SetUnitVertexColor((Je[(uV)]),$FF,$FF,$FF,$FF)
        call PauseUnit((Je[(uV)]),false)
        call KillUnit((Je[(n02N__Unit_n02P)]))
        call KillUnit((Je[(n02N__Unit_n02O)]))
        call n02N__n02O_AbilityEnd()
        call n02N__Ability_001_Stop()
        call n02N__n02P_BuffEnd()
        call Unit_Cancel_Counter(343,n02N__Unit_n02P)
        call Unit_Cancel_Counter(344,n02N__Unit_n02O)
        set n02N__Timer=null
    endif
    call DestroyTrigger(GetTriggeringTrigger())
endfunction

function n02N__Start takes real x,real y returns nothing
    local trigger gzv=CreateTrigger()
    set n02N__Timer=(NewTimer(0))
    set n02N__Unit_n02P=(GetUnitUserData((CreateUnit(P[$B],'n02P',x-.5*n02N__n02O_Move_Range,y,0))))
    set n02N__Unit_n02O=(GetUnitUserData((CreateUnit(P[$B],'n02O',x+n02N__n02O_Move_Range,y,$B4))))
    set n02N__n02O_Move_TargetX=x
    set n02N__n02O_Move_TargetY=y
    set n02N__Ability_004_Lv=2
    set n02N__Ability_004_Life[1]=900*$2710
    set n02N__Ability_004_Life[2]=$6D6*$2710
    set n02N__Ability_004_Life[3]=$3E8*$2710
    set n02N__Ability_004_Life[4]=$73A*$2710
    call NewTextTagInTarget_B(n02N__Unit_n02N,"|c00b32f2fStupid things...|r",18,$FF,$FF,$FF)
    call PauseUnit(n02N__Unit_n02N,false)
    call SetUnitInvulnerable(n02N__Unit_n02N,false)
    call SetUnitPathing(n02N__Unit_n02N,true)
    call SetUnitVertexColor(n02N__Unit_n02N,$FF,40,40,$FF)
    call Lqv(LAv("MagmaBurst.mdl",x,y,3),2)
    call Lqv(LAv("MagmaBurst.mdl",x-.5*n02N__n02O_Move_Range,y,3),2)
    call Lqv(LAv("MagmaBurst.mdl",x+n02N__n02O_Move_Range,y,3),2)
    call UnitAddPAttackTrig((n02N__Unit_n02P),function n02N__n02P_onAttack)
    call UnitAddPAttackTrig((GetUnitUserData((n02N__Unit_n02N))),function n02N__n02N_onAttack)
    call UnitAddBeDamagerTrig((GetUnitUserData((n02N__Unit_n02N))),function n02N__n02N_AI)
    call s__Effect_connect((n02N__Effect),(s__Effect_build(AddSpecialEffectTarget((("Miasma.mdl")),(((Je[(n02N__Unit_n02O)]))),(("origin"))))))
    call TriggerRegisterUnitEvent(gzv,n02N__Unit_n02N,EVENT_UNIT_DEATH)
    call TriggerAddAction(gzv,function n02N__End)
    call TimerStart(n02N__Timer,.03125,true,function n02N__Start_001)
    call zjv(50,1)
    call Unit_App_Counter(345,n02N__Unit_n02P)
    call Unit_App_Counter(346,n02N__Unit_n02O)
    set gzv=null
endfunction

function n02N__Create_001 takes nothing returns nothing
    local unit u
    set n02N__Index=n02N__Index+1
    if n02N__Index<$A then
        if n02N__Index==5 then
            set n02N__Unit_n02N=CreateUnit(P[$B],'n02N',$55B7,-$2D3F,0)
            set n02N__Effect=CreateEffectFor()
            call GroupEnumUnitsInRange(G,$55B7,-$2D3F,900+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,$55B7,-$2D3F,900)then
                    if IsUnitAliveAndEnemy(u,n02N__Unit_n02N)and nC[(GetUnitUserData((u)))]then
                        call m1v(u,3)
                        call zKv((GetPlayerId((GetOwningPlayer(u)))),105,105,105,.75)
                    endif
                endif
            endloop
            call DisplayTimedText("|c00FF0000Lava Volcano exits has been disabled...|r.",5)
            call PauseUnit(n02N__Unit_n02N,true)
            call SetUnitInvulnerable(n02N__Unit_n02N,true)
            call SetUnitPathing(n02N__Unit_n02N,false)
            call SetUnitVertexColor(n02N__Unit_n02N,$FF,40,40,25)
            call SetUnitVertexColor((Je[(uV)]),$FF,0,0,$9B)
            call PauseUnit((Je[(uV)]),true)
            call s__Effect_connect((n02N__Effect),(s__Effect_build(AddSpecialEffect((("VolcanoAshes.mdl")),(((($55D7)*1.))*1.),((((-$3B10)*1.))*1.)))))
            call Ltv(LAv("ShadowAssault.mdl",$4EDB,-9975,2.5))
            call Ltv(LAv("ShadowAssault.mdl",$4EDB,-9975,2.5))
            call zjv(30,.75)
        elseif UnitAlive(n02N__Unit_n02N)then
            call SetUnitVertexColor(n02N__Unit_n02N,$FF,40,40,25+30*(n02N__Index-5))
            call Ltv(LAv("ShadowAssault.mdl",$4EDB,-9975,2.5))
        endif
        call thv("|c00cb1d1d"+I2S($A*n02N__Index)+"%..",$55B7,-$2D3F,50,.06,.04,bj_PI/ 2,1,1.5)
        call Lqv(LAv("MagmaBurst.mdl",$55B7,-$2D3F,1.+.1*n02N__Index),2)
    else
        call Ltv((ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:300")))
        call n02N__Start($55B7,-$2D3F)
    endif
endfunction

function BossSkill_A0HZ_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0HZ',function n02N__Ability_002_Actions)
endfunction

function Summon_n02Q_Start takes nothing returns nothing
    local integer s=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local unit u
    local boolean b
    local real x
    local real y
    if UnitAlive((Je[(s)]))then
        set x=GetUnitX((Je[(s)]))
        set y=GetUnitY((Je[(s)]))
        set b=false
        call GroupEnumUnitsInRange(G,x,y,$E1+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$E1)then
                if GetUnitAbilityLevel(u,'A0IP')==0 and IsUnitAliveAndEnemy(u,(Je[(s)]))then
                    call UnitDamageTargetBY((((Je[(s)]))),((u)),(((($9C4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                    call Ymv(u,'A0IP','B025',.45)
                elseif not b then
                    set b=u==n02N__Unit_n02N
                endif
            endif
        endloop
        if b then
            call GroupEnumUnitsInRange(G,x,y,750+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,750)then
                    if IsUnitAliveAndEnemy(u,n02N__Unit_n02N)then
                        call UnitDamageTargetBY(((n02N__Unit_n02N)),((u)),(((($30D4)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                        call UnitAppBuff((GetUnitUserData((u))),'A0HT',$D006B)
                    endif
                endif
            endloop
            call Lqv(LAv("firegold.mdl",x,y,2.5),2.5)
            call UnitCureTaret(n02N__Unit_n02N,n02N__Unit_n02N,$16E360)
            call KillUnit((Je[(s)]))
        else
            set x=GetUnitX(n02N__Unit_n02N)-Summon_n02Q_TargetX[s]
            set y=GetUnitY(n02N__Unit_n02N)-Summon_n02Q_TargetY[s]
            if x*x+y*y>$F424 then
                set Summon_n02Q_TargetX[s]=Summon_n02Q_TargetX[s]+x
                set Summon_n02Q_TargetY[s]=Summon_n02Q_TargetY[s]+y
                call IssuePointOrderById((Je[(s)]),$D0012,Summon_n02Q_TargetX[s],Summon_n02Q_TargetY[s])
            endif
        endif
    else
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:301")
        call Unit_Cancel_Counter(347,s)
    endif
endfunction

function Summon_n02Q_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetSummonedUnit())))
    call SetUnitPathing((Je[(id)]),false)
    call IssuePointOrderById((Je[(id)]),$D0012,Summon_n02Q_TargetX[id],Summon_n02Q_TargetY[id])
    call SetUnitVertexColor((Je[(id)]),$9B,55,55,$CD)
    call TimerStart(NewTimer(id),.5,true,function Summon_n02Q_Start)
    call Unit_App_Counter(348,id)
endfunction

function Summon_n02Q_Init takes nothing returns nothing
    call RegisterSummonEvent('n02Q',function Summon_n02Q_Actions)
endfunction

function n02N_Open takes unit u returns boolean
    if n02N__Unit_n02N==null and IsItemCharges(GetItemOfTypeFromUnit(u,'I04X'),$C)then
        call DisplayTimedText("|c00FF0000红色粉末|r消失了留下一束暮光之城的曙光.",5)
        call RemoveItemByCharges(GetItemOfTypeFromUnit(u,'I04X'),$C)
        call PlaySoundAtPoint_BJ((Gn),((125)*1.),(($4EDB)*1.),((-9975)*1.),0)
        call TimerStart(NewTimer(LAv("VolcanoAshes.mdl",$4EDB,-9975,3)),1,true,function n02N__Create_001)
        return true
    endif
    return false
endfunction

function BagSkill_A09X_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if UnitAlive((Je[(id)]))and UnitAlive((Je[(BagSkill_A09X_Target[id])]))then
        set BagSkill_A09X_Count[id]=BagSkill_A09X_Count[id]-1
        call NewTextTagInTarget_B((Je[(id)]),"Wow",9,$FF,75,75)
        call s__LavaBomb_Create((Je[(id)]),(Je[(BagSkill_A09X_Target[id])]),true)
        call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Human\\Feedback\\SpellBreakerAttack.mdl",(Je[(BagSkill_A09X_Target[id])]),"origin",1)
    else
        set BagSkill_A09X_Count[id]=0
    endif
    if BagSkill_A09X_Count[id]<1 then
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:302")
        call Unit_Cancel_Counter(349,(id))
        call Unit_Cancel_Counter(350,BagSkill_A09X_Target[id])
    endif
endfunction

function BagSkill_A09X_Actions takes nothing returns boolean
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local unit u=PickRandomHeroInRange((Je[(id)]),x,y,$3E8)
    if u==null then
        call IssueUnitStop_DisplayText((Je[(id)]),"Are so far away! Are you afraid of my strength?")
    else
        set BagSkill_A09X_Target[id]=(GetUnitUserData((u)))
        set BagSkill_A09X_Count[id]=7
        call NewTextTagInTarget_B(u,"|c0095caff"+GetPlayerName(GetOwningPlayer(u))+" |c00ff8080Is a funny comparison|r",$A,$FF,$FF,$FF)
        call NewTextTagInTarget_B((Je[(id)]),"Roll away..",$C,$FF,75,75)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Demon\\DemonBoltImpact\\DemonBoltImpact.mdl",u,"origin"))
        call Ltv(LAv("ShrapnelShards.mdx",x,y,2))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,1.25),$FF,0,0,$FF))
        call Ltv(Lfv(LAv("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",x,y,1.25),$FF,0,0,$FF))
        call TimerStart(NewTimer(id),.5,true,function BagSkill_A09X_Start)
        call Unit_App_Counter(351,(id))
        call Unit_App_Counter(352,BagSkill_A09X_Target[id])
        set u=null
    endif
    return false
endfunction

function BagSkill_A09X_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A09X',function BagSkill_A09X_Actions)
endfunction

function n02N_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A0HZ',function n02N__Ability_002_Actions)
    call RegisterSummonEvent('n02Q',function Summon_n02Q_Actions)
    call RegisterSpellEffectEvent('A09X',function BagSkill_A09X_Actions)
endfunction

function nnsw__Start_001 takes nothing returns nothing
    local real life
    local real maxlife
    local real v
    local integer orderid
    local integer i
    local unit u
    local boolean b=false
    if UnitAlive(nnsw__Unit)then
        set orderid=GetUnitCurrentOrder(nnsw__Unit)
        set life=GetWidgetLife(nnsw__Unit)
        set maxlife=GetUnitState(nnsw__Unit,UNIT_STATE_MAX_LIFE)
        set v=life/ maxlife
        if orderid==0 or orderid==$D0006 or($D000E<orderid and orderid<$D0013)then
            set i=GetRandomInt(1,100)
            if v<=.8 and i>90 then
                set u=PickRandomVisibleHeroInRange2(nnsw__Unit,$4B0)
                if u==null then
                    set u=PickRandomUnitInUnitRange(nnsw__Unit,700)
                endif
                if u!=null then
                    set b=IssueImmediateOrderById(nnsw__Unit,$D0228)
                    set u=null
                endif
            endif
            if not b and i>80 then
                set u=PickRandomVisibleHeroInRange2(nnsw__Unit,800)
                if u==null then
                    set u=PickRandomUnitInUnitRange(nnsw__Unit,800)
                endif
                if u!=null then
                    set b=IssuePointOrderById(nnsw__Unit,$D00FA,GetUnitX(u),GetUnitY(u))
                    set u=null
                endif
            endif
        endif
    else
        if GetUnitTypeId(nnsw__Unit)==0 then
            call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:303")
            set nnsw__Unit=null
        endif
    endif
endfunction

function nnsw__Create_003 takes nothing returns nothing
    local integer i=(alloc__hpv(GetHandleId((GetExpiredTimer()))))+1
    if i>$F then
        call m_v(nnsw__Unit,false)
        call TimerStart(GetExpiredTimer(),.1,true,function nnsw__Start_001)
    else
        call SetUnitVertexColor(nnsw__Unit,0,$96,$96,100+i*$A)
        call alloc__hPv(GetHandleId((GetExpiredTimer())),(i))
    endif
endfunction

function nnsw__Create_002 takes nothing returns nothing
    local integer fx=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    call Ltv(fx)
    call alloc__hPv(GetHandleId((GetExpiredTimer())),(0))
    call TimerStart(GetExpiredTimer(),.05,true,function nnsw__Create_003)
endfunction

function nnsw__Create_001 takes nothing returns nothing
    call zjv(50,1)
    call Ltv(LAv("aquaspike.mdx",rL,aL,2))
    call ShowUnit(nnsw__Unit,true)
    call SetUnitAnimation(nnsw__Unit,"spell")
    call QueueUnitAnimation(nnsw__Unit,"stand")
    call SetUnitVertexColor(nnsw__Unit,0,$96,$96,100)
    call TimerStart(GetExpiredTimer(),.5,false,function nnsw__Create_002)
endfunction

function nnsw_Open takes nothing returns boolean
    if nnsw__Unit==null then
        set nnsw__Unit=CreateUnit(P[$B],'nnsw',rL,aL,$B4)
        call SetUnitX(nnsw__Unit,rL)
        call SetUnitY(nnsw__Unit,aL)
        call ShowUnit(nnsw__Unit,false)
        call m_v(nnsw__Unit,true)
        call TimerStart(NewTimer(LAv("healingwater.mdx",rL,aL,2)),3,false,function nnsw__Create_001)
        return true
    endif
    return false
endfunction

function BossSkill_A10U_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x=Boss_Spell_X[data]+Boss_Spell_Z[data]
    local real y=Boss_Spell_Y[data]+Boss_Spell_V[data]
    local unit u
    if IsPointInWorldBounds(x,y)then
        call Ltv(LAv("aquaspike.mdx",x,y,1))
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),(((($3A98)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
                call Gjv(u,80,Atan2(GetUnitY(u)-Boss_Spell_Y[data],GetUnitX(u)-Boss_Spell_X[data]),1,"Abilities\\Spells\\Other\\CrushingWave\\CrushingWaveDamage.mdl")
            endif
        endloop
        set Boss_Spell_X[data]=x
        set Boss_Spell_Y[data]=y
        set Boss_Spell_data2[data]=Boss_Spell_data2[data]-1
    else
        set Boss_Spell_data2[data]=0
    endif
    if Boss_Spell_data2[data]<=0 then
        call Unit_Cancel_Counter(353,id)
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:304")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_timer[data]=null
    endif
endfunction

function BossSkill_A10U_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local real tx=GetSpellTargetX()
    local real ty=GetSpellTargetY()
    local real a=Atan2(ty-y,tx-x)
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=4
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=Cos(a)*256
    set Boss_Spell_V[data]=Sin(a)*256
    call TimerStart(Boss_Spell_timer[data],.3,true,function BossSkill_A10U_Start)
    call Unit_App_Counter(354,id)
endfunction

function BossSkill_A10U_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A10U',function BossSkill_A10U_Actions)
endfunction

function BossSkill_A10V_Start takes nothing returns nothing
    local integer data=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    local integer id=Boss_Spell_data1[data]
    local real x=Boss_Spell_X[data]
    local real y=Boss_Spell_Y[data]
    local real r=Boss_Spell_Z[data]+20
    local real a=(Lx/ Boss_Spell_data2[data])
    local real tx
    local real ty
    local integer i=Boss_Spell_data2[data]
    local unit u
    set Boss_Spell_Z[data]=r
    set Boss_x[0]=r
    set Boss_y[0]=r/ $C*Sin(r*2*bj_DEGTORAD)
    set Boss_x[1]=Cos(a)
    set Boss_y[1]=Sin(a)
    call GroupClear(G2)
    loop
        exitwhen i==0
        set i=i-1
        set tx=x+Boss_x[0]
        set ty=y+Boss_y[0]
        call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl",tx,ty))
        call GroupEnumUnitsInRange(G,tx,ty,100+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,tx,ty,100)and not IsUnitInGroup(u,Boss_Spell_group1[data])and IsUnitAliveAndEnemy(u,(Je[(id)]))then
                call GroupAddUnit(G2,u)
                call GroupAddUnit(Boss_Spell_group1[data],u)
            endif
        endloop
        if i>0 then
            set Boss_x[2]=Boss_x[0]*Boss_x[1]-Boss_y[0]*Boss_y[1]
            set Boss_y[2]=Boss_y[0]*Boss_x[1]+Boss_x[0]*Boss_y[1]
            set Boss_x[0]=Boss_x[2]
            set Boss_y[0]=Boss_y[2]
        endif
    endloop
    loop
        set u=FirstOfGroup(G2)
        exitwhen u==null
        call GroupRemoveUnit(G2,u)
        if IsUnitOfPlayerNotseckill(u)then
            call KillUnitBJ(u)
        else
            if nC[(GetUnitUserData((u)))]then
                call UnitDamageTargetBY((((Je[(id)]))),((u)),((((99999)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            else
                call UnitDamageTargetBY((((Je[(id)]))),((u)),(((($F423F)*1.))*1.),false,(false),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),.0,"")
            endif
        endif
    endloop
    if Boss_Spell_Z[data]>=$4B0 then
        call Unit_Cancel_Counter(355,id)
        call RecycleGroup(Boss_Spell_group1[data])
        call ReleaseTimer(Boss_Spell_timer[data],"[TimerUtils]Error:305")
        call Boss_Spell_deallocate(data)
        set Boss_Spell_timer[data]=null
        set Boss_Spell_group1[data]=null
    endif
endfunction

function BossSkill_A10V_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    local real x=GetUnitX((Je[(id)]))
    local real y=GetUnitY((Je[(id)]))
    local integer data=Boss_Spell_allocate()
    set Boss_Spell_timer[data]=NewTimer(data)
    set Boss_Spell_group1[data]=NewGroup()
    set Boss_Spell_data1[data]=id
    set Boss_Spell_data2[data]=$C
    set Boss_Spell_X[data]=x
    set Boss_Spell_Y[data]=y
    set Boss_Spell_Z[data]=0
    call TimerStart(Boss_Spell_timer[data],.03,true,function BossSkill_A10V_Start)
    call Unit_App_Counter(356,id)
endfunction

function BossSkill_A10V_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A10V',function BossSkill_A10V_Actions)
endfunction

function BossSkill_A0F2_Start takes nothing returns nothing
    local integer id=(alloc__hpv(GetHandleId((GetExpiredTimer()))))
    if GetUnitAbilityLevel((Je[(id)]),'B09N')>0 then
        if BossSkill_A0F2_Atk[id]<$C350 then
            set BossSkill_A0F2_Atk[id]=BossSkill_A0F2_Atk[id]+$4E2
            call ModifyUnitAttack(id,$4E2)
        endif
    else
        call ModifyUnitAttack(id,-BossSkill_A0F2_Atk[id])
        call Unit_Cancel_Counter(357,id)
        call ReleaseTimer(GetExpiredTimer(),"[TimerUtils]Error:306")
        set BossSkill_A0F2_Timer[id]=null
        set BossSkill_A0F2_Atk[id]=0
    endif
endfunction

function BossSkill_A0F2_Actions takes nothing returns nothing
    local integer id=(GetUnitUserData((GetTriggerUnit())))
    if BossSkill_A0F2_Timer[id]==null then
        set BossSkill_A0F2_Timer[id]=NewTimer(id)
        set BossSkill_A0F2_Atk[id]=0
        call Unit_App_Counter(358,id)
        call TimerStart(BossSkill_A0F2_Timer[id],.5,true,function BossSkill_A0F2_Start)
    endif
endfunction

function BossSkill_A0F2_Init takes nothing returns nothing
    call RegisterSpellEffectEvent('A0F2',function BossSkill_A0F2_Actions)
endfunction

function nnsw_onInit takes nothing returns nothing
    call RegisterSpellEffectEvent('A10U',function BossSkill_A10U_Actions)
    call RegisterSpellEffectEvent('A10V',function BossSkill_A10V_Actions)
    call RegisterSpellEffectEvent('A0F2',function BossSkill_A0F2_Actions)
endfunction

 //save load system
 

 function mev takes integer k,integer m returns integer
    local integer c=LongCopy(k)
    local integer c2=LongCopy(k)
    call LongAdd(c,3,0)
    call LongImulByLong(c2,c)
    call RemoveLongInteger(c)
    set c=LongModulo(c2,m)
    call RemoveLongInteger(c2)
    return c
 endfunction

 function NewSaveCode takes integer char returns integer
    return NewLonginteger(char)
 endfunction

 function mov takes integer NNv,integer Div,integer mrv returns nothing
    call LongImul((NNv),mrv+1)
    call LongAdd((NNv),Div,0)
 endfunction

 function miv takes integer NNv,integer mrv returns integer
    return LongSub((NNv),mrv+1)
 endfunction

 function mav takes integer NNv returns nothing
    call RemoveLongInteger((NNv))
 endfunction

 function mnv takes integer NNv returns integer
    return LongToInt((NNv))
 endfunction


 function saveandload__s6v takes integer char,integer pid returns integer
    local string b
    local integer i
    if(not HaveSavedInteger(BYHT,saveandload__l_do[pid],char))then
        set b=(s__Character_reality[((char))])
        set i=StringToLong((s__Character_reality[((char))]),s__Character_New(SubString(b,1,2)+SubString(b,0,1)+SubString(b,2,(s__Character_length[((char))]))))
        call Qdv(i,pid,3,(string__Long_Char[(i)]),true)
        call SaveInteger(BYHT,saveandload__l_do[pid],char,s__Character_New(LongToString(i)))
        call RemoveLongInteger(i)
    endif
    return LoadInteger(BYHT,saveandload__l_do[pid],char)
 endfunction


 function saveandload__GetPlayerSaveCodeKey takes integer s9v,integer pid,string suffix,real Sev returns integer
    local integer ch
    local integer Sxv
    local integer Sov
    set s9v=s9v+1
    if(not HaveSavedInteger(BYHT,saveandload__Do[pid],s9v))then
        set ch=StringHash(StringCase(Game_PlayerName[pid]+suffix,false))
        if(0>ch)then
            set ch=-ch
        endif
        set Sxv=R2I(s9v*Sev)
        set Sov=s9v-Sxv
        set ch=ch-ch/ Sov*Sov+Sxv
        call SaveInteger(BYHT,saveandload__Do[pid],s9v,ch)
        return ch
    endif
    return LoadInteger(BYHT,saveandload__Do[pid],s9v)
 endfunction


 function saveandload__Save_EXE takes integer savecode,integer a,integer b,integer pid,string suffix,real offset,integer auth,integer saveid returns string
    local integer s
    set a=saveandload__GetPlayerSaveCodeKey(a,pid,suffix,offset)
    call LongModifyUseCharacter(savecode,saveandload__s6v((string__Long_Char[(savecode)]),pid))
    set s=mev(savecode,a)
    call LongImul(savecode,a+auth)
    call LongAdd(savecode,s+saveid,0)
    call Qhv(savecode,pid,b)
    return LongToString(savecode)
 endfunction
  

 function saveandload__SOv takes nothing returns integer
    return saveandload__fo
 endfunction
  

 function saveandload__Load_EXE takes string c,integer char,integer a,integer b,integer pid,string suffix,real offset,integer auth returns integer
    local integer savecode=StringToLong(c,saveandload__s6v(char,pid))
    if(0!=savecode)then
        set saveandload__LastSaveCodeId=LongToInt(savecode)
        set a=saveandload__GetPlayerSaveCodeKey(a,pid,suffix,offset)
        call QHv(savecode,pid,b)
        set saveandload__fo=LongSub(savecode,a+auth)-mev(savecode,a)
        if(saveandload__fo<1 or saveandload__fo>auth)then
            call RemoveLongInteger(savecode)
            set saveandload__fo=0
            return 0
        endif
    endif
    return savecode
  endfunction

  function saveandload__SIv takes nothing returns nothing
    local integer i=$B
    loop
        set saveandload__l_do[i]=malloc()
        set saveandload__Do[i]=malloc()
        exitwhen 0==i
        set i=i-1
    endloop
 endfunction


 function SetHeroLevelG takes unit u,integer newLevel,boolean b returns nothing
    local integer oldLevel=GetHeroLevel(u)
    if(newLevel!=oldLevel)then
        if(newLevel>oldLevel)then
            call SetHeroLevel(u,newLevel,b)
        else
            call UnitStripHeroLevel(u,oldLevel-newLevel)
        endif
    endif
  endfunction

  function GetHeroXPPercent takes unit u returns integer
    local integer l=GetHeroLevel(u)
    local integer m=0
    if(1<l)then
        call SetHeroLevel(saveandload__getHeroexp_unit,l,false)
        set m=GetHeroXP(saveandload__getHeroexp_unit)
    endif
    call SetHeroLevel(saveandload__getHeroexp_unit,l+1,false)
    set m=(GetHeroXP(u)-m)*100/(GetHeroXP(saveandload__getHeroexp_unit)-m)
    call UnitStripHeroLevel(saveandload__getHeroexp_unit,l+1)
    return m
  endfunction

  function SetHeroXPPercent takes unit u,integer p returns nothing
    local integer l
    local integer m=0
    if(0<p)then
        set l=GetHeroLevel(u)
        if(1<l)then
            call SetHeroLevel(saveandload__getHeroexp_unit,l,false)
            set m=GetHeroXP(saveandload__getHeroexp_unit)
        endif
        call SetHeroLevel(saveandload__getHeroexp_unit,l+1,false)
        call AddHeroXP(u,R2I((GetHeroXP(saveandload__getHeroexp_unit)-m)*p/ 100.),false)
        call UnitStripHeroLevel(saveandload__getHeroexp_unit,l+1)
    endif
 endfunction


 function saveandload__Hiv takes nothing returns nothing
    set saveandload__getHeroexp_unit=CreateUnit(Player($F),'Hvsh',EntireMapMaxX,EntireMapMaxY,0)
    call SetUnitX(saveandload__getHeroexp_unit,EntireMapMaxX)
    call SetUnitY(saveandload__getHeroexp_unit,EntireMapMaxY)
    call PauseUnit(saveandload__getHeroexp_unit,true)
 endfunction


 function saveandload__mJv takes integer savecode,unit u returns nothing
    local integer lv=GetHeroLevel(u)
    local integer str=GetHeroState1(u,false)
    local integer agi=GetHeroState2(u,false)
    local integer int=GetHeroState3(u,false)
    local integer m=0
    local integer max
    local integer data=GetUnitUserData(u)
    if lv>400 then
        set max=9+4*399+6*(lv-400)
    else
        set max=9+4*(lv-1)
    endif
    if str>=agi and str>=int then
        if agi>=int then
            call mov(savecode,int,max-str-agi)
            call mov(savecode,agi,max-str)
            set m=0
        else
            call mov(savecode,agi,max-str-int)
            call mov(savecode,int,max-str)
            set m=1
        endif
        call mov(savecode,str,max)
    elseif agi>str and agi>=int then
        if str>=int then
            call mov(savecode,int,max-agi-str)
            call mov(savecode,str,max-agi)
            set m=2
        else
            call mov(savecode,str,max-agi-int)
            call mov(savecode,int,max-agi)
            set m=3
        endif
        call mov(savecode,agi,max)
    else
        if str>=agi then
            call mov(savecode,agi,max-str-int)
            call mov(savecode,str,max-int)
            set m=4
        else
            call mov(savecode,str,max-agi-int)
            call mov(savecode,agi,max-int)
            set m=5
        endif
        call mov(savecode,int,max)
    endif
    call mov(savecode,m,5)
 endfunction


 function saveandload__mpv takes integer savecode,unit u returns nothing
    local integer lv=GetHeroLevel(u)
    local integer v
    local integer max
    local integer m=(LongSub(((savecode)),(5)+1))
    local integer str
    local integer agi
    local integer int
    local integer data=GetUnitUserData(u)
    if lv>400 then
        set max=9+4*399+6*(lv-400)
    else
        set max=9+4*(lv-1)
    endif
    if m<2 then
        set str=(LongSub(((savecode)),(max)+1))
        set max=max-str
        if m==0 then
            set agi=(LongSub(((savecode)),(max)+1))
            set max=max-agi
            set int=(LongSub(((savecode)),(max)+1))
            set max=max-int
        else
            set int=(LongSub(((savecode)),(max)+1))
            set max=max-int
            set agi=(LongSub(((savecode)),(max)+1))
            set max=max-agi
        endif
    elseif m<4 then
        set agi=(LongSub(((savecode)),(max)+1))
        set max=max-agi
        if m==2 then
            set str=(LongSub(((savecode)),(max)+1))
            set max=max-str
            set int=(LongSub(((savecode)),(max)+1))
            set max=max-int
        else
            set int=(LongSub(((savecode)),(max)+1))
            set max=max-int
            set str=(LongSub(((savecode)),(max)+1))
            set max=max-str
        endif
    else
        set int=(LongSub(((savecode)),(max)+1))
        set max=max-int
        if m==4 then
            set str=(LongSub(((savecode)),(max)+1))
            set max=max-str
            set agi=(LongSub(((savecode)),(max)+1))
            set max=max-agi
        else
            set agi=(LongSub(((savecode)),(max)+1))
            set max=max-agi
            set str=(LongSub(((savecode)),(max)+1))
            set max=max-str
        endif
    endif
    if max>0 then
    endif
    call SetHeroState1(u,str)
    call SetHeroState2(u,agi)
    call SetHeroState3(u,int)
    call RefreshUnitHpRegen(data)
    call RefreshUnitMpRegen(data)
    call RefreshUnitAttackSpeed((data))
    call RefreshUnitCrit((data))
    call ModifyUnitMP(data,5*(int-vDe(GetUnitTypeId(u))))
    call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MAX_MANA))
 endfunction
 

 function saveandload__mPv takes integer savecode,unit u returns nothing
    local integer mqv
    if GetHeroLevel(u)!=500 then
        set mqv=GetHeroXPPercent(u)
        call mov(savecode,mqv,99)
    endif
    call mov(savecode,GetHeroLevel(u),500)
 endfunction


 function saveandload__msv takes integer savecode,unit u returns nothing
    call SetHeroLevelG(u,(LongSub(((savecode)),(500)+1)),false)
    if GetHeroLevel(u)!=500 then
        call SetHeroXPPercent(u,(LongSub(((savecode)),(99)+1)))
    endif
 endfunction


 function saveandload__SaveGameTimed takes integer savecode,integer id,integer lv returns nothing
    local integer i=PlayerGameTimed[id]+R2I((100000.-TimerGetRemaining(GameTimer))-PlayerGameTimed[id+16])
    local integer j=0
    local integer k
    local integer m
    local integer t
    if lv<$3E8 then
        set t=1
    else
        set t=R2I(300+Pow(MinR(lv,409)-400,2)*$F+B2I(lv>410)*Pow(MinR(lv,420)-410,2)*60+B2I(lv>420)*(lv-420)*600)/(1+i/ 60)
        if t<1 then
            set t=1
        endif
    endif
    
    loop
        exitwhen i==0
        set m=i/ 2
        set k=i-m*2
        set i=m
        set j=j+1
        call mov(savecode,k,1)
    endloop
    call mov(savecode,j,32)
    call mov(savecode,t,t)
 endfunction


 function saveandload__LoadGameTimed takes integer savecode returns integer
    local integer i=(LongSub(((savecode)),(1)+1))
    local integer j=0
    set i=(LongSub(((savecode)),(32)+1))
    loop
        exitwhen i==0
        set i=i-1
        set j=j*2+(LongSub(((savecode)),(1)+1))
    endloop
    return j
 endfunction

 //save back pack hidden inventory

 function saveandload__YIv takes integer savecode,integer yav,integer lv,integer list returns nothing
    local integer i=5
    local integer index
    local integer max=(s__Catalog__get_Size((list)))
    local integer id
    local item t
    local boolean b=Isaseniorbackpack(yav)
    local integer v=0
    local integer end
    
    if b then
        set i=$C
    endif
    set end=Pow2n[i]-1
    loop
        exitwhen i==0
        set i=i-1
        if HaveSavedInteger(BYHT2,(zI[yav]),i)then
            set t=ConvertVersion(LoadInteger(BYHT2,(zI[yav]),i))
            if GetItemUserData(t)==saveandload__LastSaveOrLoadPlayerId+1 or GetItemUserData(t)==0 then
                set id=GetItemTypeIdG(t)
                set index=(s__Catalog_Search((list),(id)))
                if 0!=index then
                    if IsEquipLv(id,lv)then
                        if LoadBoolean(BYHT,Item_save_Charges,id)then
                            set id=LoadInteger(BYHT,Item_save_Charges,GetHandleId(t)*$A+saveandload__LastSaveOrLoadPlayerId+1)
                            if id>0 then
                                set saveandload__Vessel_Index=saveandload__Vessel_Index+1
                                set v=v+Pow2n[i]
                                call mov(savecode,IMinBJ(id,99),99)
                                call mov(savecode,index,max)
                            endif
                        else
                            set saveandload__Vessel_Index=saveandload__Vessel_Index+1
                            set v=v+Pow2n[i]
                            call mov(savecode,index,max)
                            call SetItemUserData(t,saveandload__LastSaveOrLoadPlayerId+1)
                        endif
                    elseif saveandload__LastUnableSavelist=="" then
                        set saveandload__LastUnableSavelist="|c00ff0000Warning:|r The following items have a minimum requirement level higher than your current character level. They will not be saved: "+GetObjectName(id)
                    else
                        set saveandload__LastUnableSavelist=saveandload__LastUnableSavelist+", "+GetObjectName(id)
                    endif
                endif
            endif
        endif
    endloop
    call mov(savecode,v,end)
    set t=null
 endfunction
 
 //load hidden items
 //long sub pop stock
 //D5v write bugger	

 function saveandload__Ycv_2 takes integer savecode,integer c,integer list returns nothing
    local integer p=GetPlayerId(GetOwningPlayer((Je[(YI[c])])))
    local integer YNv=0
    local integer max=(s__Catalog__get_Size((list)))
    local integer index
    local item i
    local boolean b=Isaseniorbackpack(c)
    local integer end=5
    local integer id
    local integer v
    
    if b then
        set end=$C
    endif
    
    set v=(LongSub(((savecode)),(Pow2n[end]-1)+1))
    call D5v(v)
    
    loop
        if ModuloInteger(v/ Pow2n[YNv],2)==1 then
            set index=(LongSub(((savecode)),(max)+1))
            set id=(s__Catalog_Read((list),(index)))
            if LoadBoolean(BYHT,Item_load_not,id)then
            else
                set i=CreateItemG(id,iA[p],VA[p])
                if LoadBoolean(BYHT,Item_save_Charges,id)then
                    call SetItemChargesG(i,(LongSub(((savecode)),(99)+1)))
                    call SaveInteger(BYHT,Item_save_Charges,GetHandleId(i)*$A,0)
                    call SaveInteger(BYHT,Item_save_Charges,GetHandleId(i)*$A+1+p,GetItemChargesG(i))
                else
                    call SetItemUserData(i,p+1)
                endif
                set saveandload__Vessel_Index=saveandload__Vessel_Index+1
                set saveandload__Vessel_Item[saveandload__Vessel_Index]=i
                call SetItemVisible(i,false)
            endif
        endif
        set YNv=YNv+1
        exitwhen YNv==end
    endloop
    set i=null
 endfunction
 
 //save inventory

 function saveandload__Ydv takes integer savecode,unit u,integer lv,integer list returns nothing
    local integer i=UnitInventorySize(u)
    local integer index
    local integer max=(s__Catalog__get_Size((list)))
    local item t
    local integer id
    local integer array c
    local integer v=0
    local integer end
    
    set end=Pow2n[i]-1
    
    loop
        exitwhen i==0
        set i=i-1
        set t=UnitItemInSlot(u,i)
        if(null!=t)then
            if GetItemUserData(t)==saveandload__LastSaveOrLoadPlayerId+1 or GetItemUserData(t)==0 then
                set id=GetItemTypeIdG(t)
                set index=(s__Catalog_Search((list),(id)))
                if 0!=index then
                    if IsEquipLv(id,lv)then
                        if LoadBoolean(BYHT,Item_save_Charges,id)then
                            set id=LoadInteger(BYHT,Item_save_Charges,GetHandleId(t)*$A+saveandload__LastSaveOrLoadPlayerId+1)
                            if id>0 then
                                set saveandload__Vessel_Index=saveandload__Vessel_Index+1
                                set v=v+Pow2n[i]
                                call mov(savecode,IMinBJ(id,99),99)
                                call mov(savecode,index,max)
                            endif
                        else
                            set saveandload__Vessel_Index=saveandload__Vessel_Index+1
                            set v=v+Pow2n[i]
                            call mov(savecode,index,max)
                            call SetItemUserData(t,saveandload__LastSaveOrLoadPlayerId+1)
                        endif
                    elseif saveandload__LastUnableSavelist=="" then
                        set saveandload__LastUnableSavelist="|c00ff0000Warning:|r The following items have a minimum requirement level higher than your current character level. They will not be saved: "+GetObjectName(id)
                    else
                        set saveandload__LastUnableSavelist=saveandload__LastUnableSavelist+", "+GetObjectName(id)
                    endif
                endif
            endif
        endif
    endloop
    call mov(savecode,v,end)
    set t=null
 endfunction
 
 //save inventory new

 function SaveInventory takes integer savecode, unit whichUnit, integer lv, integer list returns nothing
    local integer i
    local item array items
    local integer array itemsId
    local integer array itemsTypeId
    local boolean array b
    
    local integer count = 0
    local integer max = s__Catalog__get_Size(list)
    
    local integer maxCharges
    
    //get all the info we need
    set i = 0
    loop 
        exitwhen i>5
        set items[i]=UnitItemInSlot(whichUnit,i)
        set itemsTypeId[i]=GetItemTypeIdG(items[i])
        if items[i]!=null then
            set itemsId[i] = s__Catalog_Search(list,itemsTypeId[i])
            if itemsId[i]!=0 then
                set count = count + 1
                set b[i]=true
            endif
        endif
        set i = i + 1
    endloop
    
    //we need to know when loading when to stop the loading loop if we are saving less than 6 items
    if count<6 then
        call mov(savecode,0,max)
    endif
    
    //save in inversed order so we can load in the good order
    if count>0 then
        set i = 0
        loop
            exitwhen i > 5
            if b[5-i] then 
                if IsEquipLv(itemsTypeId[5-i],lv) then
                    if LoadBoolean(BYHT,Item_save_Charges,itemsTypeId[5-i])then
                        set maxCharges = LoadInteger(BYHT,Item_save_Charges,GetHandleId(items[5-i])*$A+saveandload__LastSaveOrLoadPlayerId+1)
                        if maxCharges>0 then
                            call mov(savecode,IMinBJ(maxCharges,99),99)
                        endif
                    endif
                    call mov(savecode,itemsId[5-i],max)
                    call SetItemUserData(items[5-i],saveandload__LastSaveOrLoadPlayerId+1)
                    //storing to add to .txt file
                    set SavedItems[SavedItemsCount] = itemsTypeId[5-i]
                    set SavedItemsCount = SavedItemsCount + 1
                elseif saveandload__LastUnableSavelist=="" then
                    set saveandload__LastUnableSavelist="|c00ff0000Warning:|r The following items have a minimum requirement level higher than your current character level. They will not be saved: "+GetObjectName(itemsTypeId[5-i])
                else
                    set saveandload__LastUnableSavelist=saveandload__LastUnableSavelist+", "+GetObjectName(itemsTypeId[5-i])
                endif
            endif
            set items[5-i]=null
            set i = i + 1
        endloop
    endif
 endfunction
 
 //save hidden inventory new
 //save inventory new

 function SaveHiddenInventory takes integer savecode, integer heroId, integer maxItems, integer lv, integer list returns nothing
    local integer i
    local item array items
    local integer array itemsId
    local integer array itemsTypeId
    local boolean array b
    
    local integer count = 0
    local integer max = s__Catalog__get_Size(list)
    
    local integer maxCharges
    
    set maxItems = maxItems-1
    
    //get all the info we need
    set i = 0
    loop 
        exitwhen i>maxItems
        if HaveSavedInteger(BYHT2, zI[heroId],i)then
            set items[i]=ConvertVersion(LoadInteger(BYHT2,zI[heroId],i))
            set itemsTypeId[i]=GetItemTypeIdG(items[i])
            if items[i]!=null then
                set itemsId[i] = s__Catalog_Search(list,itemsTypeId[i])
                if itemsId[i]!=0 then
                    set count = count + 1
                    set b[i]=true
                endif
            endif
        endif
        set i = i + 1
    endloop
    
    //we need to know when loading when to stop the loading loop if we are saving less than x items
    if count<maxItems+1 then
        call mov(savecode,0,max)
    endif
    
    //save in inversed order so we can load in the good order
    if count>0 then
        set i = 0
        loop
            exitwhen i > maxItems
            if b[maxItems-i] then 
                if IsEquipLv(itemsTypeId[maxItems-i],lv) then
                    if LoadBoolean(BYHT,Item_save_Charges,itemsTypeId[maxItems-i])then
                        set maxCharges = LoadInteger(BYHT,Item_save_Charges,GetHandleId(items[maxItems-i])*$A+saveandload__LastSaveOrLoadPlayerId+1)
                        if maxCharges>0 then
                            call mov(savecode,IMinBJ(maxCharges,99),99)
                        endif
                    endif
                    call mov(savecode,itemsId[maxItems-i],max)
                    call SetItemUserData(items[maxItems-i],saveandload__LastSaveOrLoadPlayerId+1)
                    
                    set SavedItems[SavedItemsCount] = itemsTypeId[maxItems-i]
                    set SavedItemsCount = SavedItemsCount + 1
                elseif saveandload__LastUnableSavelist=="" then
                    set saveandload__LastUnableSavelist="|c00ff0000Warning:|r The following items have a minimum requirement level higher than your current character level. They will not be saved: "+GetObjectName(itemsTypeId[5-i])
                else
                    set saveandload__LastUnableSavelist=saveandload__LastUnableSavelist+", "+GetObjectName(itemsTypeId[maxItems-i])
                endif
            endif
            set items[maxItems-i]=null
            set i = i + 1
        endloop
    endif
 endfunction
 
 //load normal inventory

 function saveandload__Yfv_2 takes integer savecode,unit u,integer list returns nothing
    local integer p=GetPlayerId(GetOwningPlayer(u))
    local item t
    local integer i=0
    local integer max=(s__Catalog__get_Size((list)))
    local integer index
    local integer id
    local integer v=(LongSub(((savecode)),(Pow2n[UnitInventorySize(u)]-1)+1))
    call D5v(v)
    loop
        exitwhen v==0
        if v-v/ 2*2==1 then
            set index=(LongSub(((savecode)),(max)+1))
            set id=(s__Catalog_Read((list),(index)))
            if LoadBoolean(BYHT,Item_load_not,id)then
            else
                set t=CreateItemG(id,GetUnitX(u),GetUnitY(u))
                if LoadBoolean(BYHT,Item_save_Charges,id)then
                    call SetItemChargesG(t,(LongSub(((savecode)),(99)+1)))
                    call SaveInteger(BYHT,Item_save_Charges,GetHandleId(t)*$A,0)
                    call SaveInteger(BYHT,Item_save_Charges,GetHandleId(t)*$A+p+1,GetItemChargesG(t))
                else
                    call SetItemUserData(t,p+1)
                endif
                set saveandload__Vessel_Index=saveandload__Vessel_Index+1
                set saveandload__Vessel_Item[saveandload__Vessel_Index]=t
            endif
        endif
        set v=v/ 2
    endloop
    set t=null
 endfunction
  
 //new inventory loader

 function LoadBufferItems takes integer savecode, integer maxItems, integer list returns nothing
    local integer i
    local integer itemTypeId
    local integer max = s__Catalog__get_Size(list)
    set maxItems = maxItems - 1
    set i = 0
    loop
        exitwhen i > maxItems
        set itemTypeId = s__Catalog_Read(list, LongSub(savecode,max+1))
        call D5v(itemTypeId)
        exitwhen itemTypeId == 0
        if LoadBoolean(BYHT,Item_save_Charges,itemTypeId) then
            call D5v(LongSub(savecode,99+1))
        else 
            call D5v(0)
        endif
        set i = i + 1
    endloop
 endfunction
 

 function LoadInventory takes unit whichUnit, integer maxItems returns nothing
    local integer p = GetPlayerId(GetOwningPlayer(whichUnit))
    local integer i
    local integer itemTypeId
    local integer c
    local item it
    set maxItems = maxItems - 1
    set i = 0
    loop
        exitwhen i > maxItems
        set itemTypeId = D7v()
        exitwhen itemTypeId == 0
        if not LoadBoolean(BYHT,Item_load_not,itemTypeId) then
            set it = CreateItemG(itemTypeId,0.,0.)
            set c = D7v()
            if c > 0 then
                call SetItemChargesG(it,c)
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(it)*$A,0)
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(it)*$A+p+1,GetItemChargesG(it))
            endif
            call SetItemUserData(it,p+1)
            call UnitAddItem(whichUnit,it)
        endif
        set i = i + 1
    endloop
    set it=null
    endfunction
 
 //load hidden inventory

 function LoadHiddenInventory takes integer p, integer heroId, integer maxItems returns nothing
    local integer i
    local integer itemTypeId
    local integer c
    local item it
    set maxItems = maxItems - 1
    set i = 0
    loop
        exitwhen i > maxItems
        set itemTypeId = D7v()
        exitwhen itemTypeId == 0
        if not LoadBoolean(BYHT,Item_load_not,itemTypeId) then
            set it = CreateItemG(itemTypeId,0.,0.)
            set c = D7v()
            if c > 0 then
                call SetItemChargesG(it,c)
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(it)*$A,0)
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(it)*$A+p+1,GetItemChargesG(it))
            endif
            call SetItemUserData(it,p+1)
            call SetItemVisible(it,false)
            call SaveInteger(BYHT2,(zI[heroId]),i,GetHandleId(it))
        endif
        set i = i + 1
    endloop
    set it=null
    endfunction
 

 function saveandload__dle takes nothing returns nothing
    call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,20,"|c00b6a092Load successfully!")
 endfunction
 

 function saveandload__dLe takes nothing returns nothing
    call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,20,"|c00b6a092Failed to load the code! Please recheck your code.")
 endfunction
  

 function saveandload__dme takes nothing returns nothing
    call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,20,"|c00b6a092Failed to load the code! Please recheck your code.")
 endfunction
 

 function saveandload__dMe takes nothing returns boolean
    return not PV[saveandload__LastSaveOrLoadPlayerId]
 endfunction
 
 //Clean buffer items

 function saveandload__dpe takes boolean b returns nothing
    loop
        exitwhen saveandload__Vessel_Index==0
        if saveandload__Vessel_Item[saveandload__Vessel_Index]!=null then
            if b then
                call RemoveItemG(saveandload__Vessel_Item[saveandload__Vessel_Index])
            endif
            set saveandload__Vessel_Item[saveandload__Vessel_Index]=null
        endif
        set saveandload__Vessel_Index=saveandload__Vessel_Index-1
    endloop
 endfunction
  
 //clean buffer hero

 function saveandload__dPe takes nothing returns nothing
    local integer id=GetUnitUserData(saveandload__LastLoadUnit)
    if saveandload__LastLoadUnit!=null then
        call RemoveUnitBJ(saveandload__LastLoadUnit,49)
        set saveandload__LastLoadUnit=null
    endif
    set QV[saveandload__LastSaveOrLoadPlayerId]=0
 endfunction
 
 
 //load end code 2

 function saveandload__UnitAddItemBySL takes nothing returns nothing
    local integer p=saveandload__LastSaveOrLoadPlayerId
    local integer c=(GetUnitUserData((MV[p])))
    local integer bag=(GetUnitUserData(((Je[YI[(c)]]))))
    local integer i
    local integer v
    local integer index=0
    local integer end=5
    local boolean b=Isaseniorbackpack(c)
    local item t
    local unit u
    local real x=iA[p]
    local real y=VA[p]
    
    if b then
        set end=$C
    endif
    
    call MZv(c)
    set i=6
    set u=(Je[(c)])
    loop
        exitwhen i==0
        set i=i-1
        set t=UnitItemInSlot(u,i)
        if t!=null then
            call SetItemPosition(t,x,y)
        endif
    endloop
    
    set i=6
    set u=(Je[(bag)])
    loop
        exitwhen i==0
        set i=i-1
        set t=UnitItemInSlot(u,i)
        if t!=null then
            call SetItemPosition(t,x,y)
        endif
    endloop
    
    set i=end
    loop
        exitwhen i==0
        set i=i-1
        set t=ConvertVersion(LoadInteger(BYHT2,(zI[c]),i))
        call RemoveSavedInteger(BYHT2,(zI[c]),i)
        if t!=null then
            call SetItemPosition(t,x,y)
        endif
    endloop
    
    set v=D7v()
    set i=0
    loop
        exitwhen v==0
        if v-v/ 2*2==1 then
            set index=index+1
            set t=saveandload__Vessel_Item[index]
            if i<end then
                call SaveInteger(BYHT2,(zI[c]),i,GetHandleId(t))
            else
                call SetItemPosition(t,x,y)
            endif
        endif
        set i=i+1
        set v=v/ 2
    endloop
    
    set u=(Je[(bag)])
    set v=D7v()
    set i=0
    loop
        exitwhen v==0
        if v-v/ 2*2==1 then
            set index=index+1
            set t=saveandload__Vessel_Item[index]
            call UnitAddItem(u,t)
            call UnitDropItemSlot(u,t,i)
        endif
        set i=i+1
        set v=v/ 2
    endloop
    
    set u=(Je[(c)])
    set v=D7v()
    set i=0
    loop
        exitwhen v==0
        if v-v/ 2*2==1 then
            set index=index+1
            set t=saveandload__Vessel_Item[index]
            call UnitAddItem(u,t)
            call UnitDropItemSlot(u,t,i)
        endif
        set i=i+1
        set v=v/ 2
    endloop
    
    set saveandload__PlayerKey[p]=2
    call saveandload__dpe(false)
    set t=null
 endfunction
 
 //long sub pop stock

 function saveandload__LoadItem takes integer lv returns nothing
    local integer c=(GetUnitUserData((MV[saveandload__LastSaveOrLoadPlayerId])))
    local integer i=0
    local integer v=(s__Catalog__get_Size((LoadBuffer_1[lv])))
    //if number of loaded items < 10
    if saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+$A]<$A then
        set i=$A-saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+$A]
    endif
    loop
        exitwhen i==0
        set i=i-1
        call LongSub(((saveandload__LastSaveCode2)),(v)+1)//pop random int
    endloop
    //load hidden
    call saveandload__Ycv_2(saveandload__LastSaveCode2,(c),LoadBuffer_1[lv])
    //load backpack
    call saveandload__Yfv_2(saveandload__LastSaveCode2,(Je[YI[((c))]]),LoadBuffer_1[lv])
    //load hero
    call saveandload__Yfv_2(saveandload__LastSaveCode2,(Je[(c)]),LoadBuffer_2[lv])
 endfunction
 
 //long sub pop stock
 //D5v write bugger	

 function saveandload__LoadBuffer takes integer Hero, integer BagSwap returns nothing
    //hero id
    local integer id=(s__Catalog_Read((Hero),(((LongSub(((saveandload__LastSaveCode)),((s__Catalog__get_Size((Hero))))+1))))))
    //bag id
    set QV[saveandload__LastSaveOrLoadPlayerId]=(s__Catalog_Read(((BagSwap)),(((LongSub(((saveandload__LastSaveCode)),((s__Catalog__get_Size(((BagSwap)))))+1))))))
    set saveandload__LastLoadUnit=null
    set saveandload__LastLoadUnit=CreateUnit(saveandload__LastSaveOrLoadPlayer,id,jV,JV,0)
    set jc[GetUnitUserData(saveandload__LastLoadUnit)]=false
    //load hero related stuff
    call saveandload__msv(saveandload__LastSaveCode,saveandload__LastLoadUnit)
    call saveandload__mpv(saveandload__LastSaveCode,saveandload__LastLoadUnit)
    //load resources
    call D5v((LongSub(((saveandload__LastSaveCode)),($7D0)+1))*500)
    call D5v((LongSub(((saveandload__LastSaveCode)),($F4240)+1)))
    //load item number 
    set id=(LongSub(((saveandload__LastSaveCode)),(100)+1))
    call D5v(id)
    if id>0 then
        call D5v((LongSub(((saveandload__LastSaveCode)),($F4240)+1)))//password to code 2
        call D5v((LongSub(((saveandload__LastSaveCode)),(saveandload__yE)+1)))//version ?
    endif
    call D5v(saveandload__LoadGameTimed(saveandload__LastSaveCode))//game time
    set jc[GetUnitUserData(saveandload__LastLoadUnit)]=true
 endfunction
 
 //D7v = read buffer

 function saveandload__LoadEnd takes integer i returns nothing
    set MV[saveandload__LastSaveOrLoadPlayerId]=saveandload__LastLoadUnit//hero var (already ready from buffer)
    set PV[saveandload__LastSaveOrLoadPlayerId]=true//has a hero
    //resources
    call SetPlayerStateG(saveandload__LastSaveOrLoadPlayer,PLAYER_STATE_RESOURCE_GOLD,D7v())
    call SetPlayerStateG(saveandload__LastSaveOrLoadPlayer,PLAYER_STATE_RESOURCE_LUMBER,D7v())
    //info for save code 2
    set saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+$A]=D7v()
    if saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+$A]>0 then
        set saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId]=1//enable code 2 load
        set saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+20]=D7v()//pass to code 2
        set saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+30]=D7v()//version of code 2
        set saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+40]=i//version of code 1
    endif
    //game time
    set PlayerGameTimed[saveandload__LastSaveOrLoadPlayerId]=D7v()
    //setup hero
    call Qkv(saveandload__LastSaveOrLoadPlayerId)
 endfunction
 
 //long sub pop stock
 //D5v write bugger	

 function LoadBufferNew takes integer Hero, integer BagSwap returns nothing
    //hero id
    local integer id = s__Catalog_Read(Hero,LongSub(saveandload__LastSaveCode,s__Catalog__get_Size(Hero)+1))
    local integer c = 0
    local integer i = 0
    local integer maxHiddenItems
    
    //bag id
    set QV[saveandload__LastSaveOrLoadPlayerId]=(s__Catalog_Read(((BagSwap)),(((LongSub(((saveandload__LastSaveCode)),((s__Catalog__get_Size(((BagSwap)))))+1))))))
    set saveandload__LastLoadUnit=null
    set saveandload__LastLoadUnit=CreateUnit(saveandload__LastSaveOrLoadPlayer,id,jV,JV,0)
    
    set c = GetUnitUserData(saveandload__LastLoadUnit)//hero id
    set jc[c]=false
    
    //load hero related stuff
    call saveandload__msv(saveandload__LastSaveCode,saveandload__LastLoadUnit)
    call saveandload__mpv(saveandload__LastSaveCode,saveandload__LastLoadUnit)
    //load resources
    call D5v((LongSub(((saveandload__LastSaveCode)),($7D0)+1))*500)
    call D5v((LongSub(((saveandload__LastSaveCode)),($F4240)+1)))
    
    
    call LoadBufferItems(saveandload__LastSaveCode, 6, LoadBuffer_2[saveandload__vX])//hero
    call LoadBufferItems(saveandload__LastSaveCode, 6, LoadBuffer_1[saveandload__vX])//backpack
    set maxHiddenItems = LongSub(saveandload__LastSaveCode, 50+1)
    call D5v(maxHiddenItems)//hidden backpack max spaces
    call LoadBufferItems(saveandload__LastSaveCode, maxHiddenItems, LoadBuffer_1[saveandload__vX])//backpack hidden
    
    call D5v(saveandload__LoadGameTimed(saveandload__LastSaveCode))//game time
    set jc[c]=true
 endfunction

 //D7v = read buffer probably

 function LoadEndNew takes integer i returns nothing 
    local integer hid = GetUnitUserData(saveandload__LastLoadUnit)
    set MV[saveandload__LastSaveOrLoadPlayerId]=saveandload__LastLoadUnit//hero var (already ready from buffer)
    set PV[saveandload__LastSaveOrLoadPlayerId]=true//has a hero
    
    //setup hero
    call Qkv(saveandload__LastSaveOrLoadPlayerId)
    
    //resources
    call SetPlayerStateG(saveandload__LastSaveOrLoadPlayer,PLAYER_STATE_RESOURCE_GOLD,D7v())
    call SetPlayerStateG(saveandload__LastSaveOrLoadPlayer,PLAYER_STATE_RESOURCE_LUMBER,D7v())
    
    //inventories
    call LoadInventory(MV[saveandload__LastSaveOrLoadPlayerId],6)//hero
    call LoadInventory(Je[YI[hid]],6)//bag
    call LoadHiddenInventory(saveandload__LastSaveOrLoadPlayerId,hid,D7v())//hidden bag
    
    //game time
    set PlayerGameTimed[saveandload__LastSaveOrLoadPlayerId]=D7v()
    
    set saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId]=2
 endfunction


 function saveandload__OnLoadBuffer90 takes nothing returns nothing
    call saveandload__LoadBuffer(HeroCatalog_01,Load_BagSwap_root)
 endfunction

 function saveandload__OnLoad90 takes nothing returns nothing
    call saveandload__LoadEnd(90)
 endfunction

 function saveandload__OnLoadBuffer91 takes nothing returns nothing
    call saveandload__LoadBuffer(HeroCatalog_01,Load_BagSwap_root)
 endfunction

 function saveandload__OnLoad91 takes nothing returns nothing
    call saveandload__LoadEnd(91)
 endfunction


 function saveandload__OnLoadBuffer92 takes nothing returns nothing
    call LoadBufferNew(HeroCatalog_01,Load_BagSwap_2_root)
 endfunction

 function saveandload__OnLoad92 takes nothing returns nothing
    call LoadEndNew(92)
 endfunction
 
 // save
 // hero id =(GetUnitUserData((MV[p])))
 // bag id =(GetUnitUserData(((Je[YI[(c)]]))))

 function saveandload__dqe takes nothing returns nothing
    
    local integer c=((GetUnitUserData((MV[saveandload__LastSaveOrLoadPlayerId]))))
    local integer g=PlayerStateGold[$A+GetPlayerId(saveandload__LastSaveOrLoadPlayer)]/ 500
    local integer lv=GetHeroLevel(MV[saveandload__LastSaveOrLoadPlayerId])
    local integer i=6
    local integer j
    local integer id
    local item tI
    
    local boolean b = Isaseniorbackpack(c)
    
    local integer maxItems = 5
    
    if b then
        set maxItems = 12
    endif
    
    //gold>2000
    if(g>$7D0)then
        set g=$7D0
    endif
    
    loop
        set i=i-1
        
        //backapck inventory into table ?
        set tI=UnitItemInSlot((Je[YI[(c)]]),i)
        if tI!=null then
            set id=GetItemTypeIdG(tI)
            if LoadBoolean(BYHT,Item_save_Charges,id)then
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A+saveandload__LastSaveOrLoadPlayerId+1,LoadInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A+saveandload__LastSaveOrLoadPlayerId+1)+LoadInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A))
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A,0)
            endif
        endif
        
        //back second page into table ?
        set tI=ConvertVersion(LoadInteger(BYHT2,(zI[c]),i))
        
        if tI!=null then
            set id=GetItemTypeIdG(tI)
            if LoadBoolean(BYHT,Item_save_Charges,id)then
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A+saveandload__LastSaveOrLoadPlayerId+1,LoadInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A+saveandload__LastSaveOrLoadPlayerId+1)+LoadInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A))
                call SaveInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A,0)
            endif
        endif
        
        //back pack third page into table ?
        if b then
            set tI=ConvertVersion(LoadInteger(BYHT2,(zI[c]),i+6))
            if tI!=null then
                set id=GetItemTypeIdG(tI)
                if LoadBoolean(BYHT,Item_save_Charges,id)then
                    call SaveInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A+saveandload__LastSaveOrLoadPlayerId+1,LoadInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A+saveandload__LastSaveOrLoadPlayerId+1)+LoadInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A))
                    call SaveInteger(BYHT,Item_save_Charges,GetHandleId(tI)*$A,0)
                endif
            endif
        endif
        
        exitwhen i==0
    endloop
    
    //save game time
    call saveandload__SaveGameTimed(saveandload__LastSaveCode,saveandload__LastSaveOrLoadPlayerId,lv)
    
    set SavedItemsCount = 0
    
    call SaveHiddenInventory(saveandload__LastSaveCode, c, maxItems, lv, LoadBuffer_1[saveandload__SaveId])
    call mov(saveandload__LastSaveCode,maxItems,50)
    call SaveInventory(saveandload__LastSaveCode, Je[YI[(c)]], lv, LoadBuffer_1[saveandload__SaveId])
    
    //mark the separation for the .txt
    set SavedItems[SavedItemsCount] = 0
    set SavedItemsCount = SavedItemsCount + 1
    
    call SaveInventory(saveandload__LastSaveCode, MV[saveandload__LastSaveOrLoadPlayerId], lv, LoadBuffer_2[saveandload__SaveId])
    
    //lumber
    call mov(saveandload__LastSaveCode,PlayerStateGold[20+GetPlayerId(saveandload__LastSaveOrLoadPlayer)],$F4240)
    //gold
    call mov(saveandload__LastSaveCode,g,$7D0)
    
    //save hero exp and stats
    call saveandload__mJv(saveandload__LastSaveCode,MV[saveandload__LastSaveOrLoadPlayerId])
    call saveandload__mPv(saveandload__LastSaveCode,MV[saveandload__LastSaveOrLoadPlayerId])
    
    //save backpack
    call mov(saveandload__LastSaveCode,(s__Catalog_Search((Load_BagSwap_2_root),((GetUnitTypeId((Je[YI[(c)]])))))),(s__Catalog__get_Size((Load_BagSwap_2_root))))
    //save hero
    call mov(saveandload__LastSaveCode,(s__Catalog_Search((HeroCatalog_01),((qV[saveandload__LastSaveOrLoadPlayerId])))),(s__Catalog__get_Size((HeroCatalog_01))))
    
    set tI=null
 endfunction
 

 function saveandload__DisplayRecordCode takes string local_string,string local_string2 returns nothing
    if GetLocalPlayer()==saveandload__LastSaveOrLoadPlayer then
        call ClearTextMessages()
    endif
    if saveandload__LastUnableSavelist=="" then
        if local_string2=="" then
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80Save code : |r"+local_string+"
							")

        else
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80Save code : |r"+local_string+"
							")

            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80Equipment code : |r"+local_string2+"
							")

        endif
    else
        if GetLocalPlayer()==saveandload__LastSaveOrLoadPlayer then
            call StartSound(Za)
        endif
        if local_string2=="" then
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80Save code : |r"+local_string+"            
							"+saveandload__LastUnableSavelist)

        else
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80Save code : |r"+local_string+"       
							")

            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80Equipment code : |r"+local_string2+"
							"+saveandload__LastUnableSavelist)

        endif
        set saveandload__LastUnableSavelist=""
    endif
 endfunction
 

 function saveandload__LoadingVerificationCode takes nothing returns string
    return saveandload__Save_EXE(saveandload__LastSaveCode,saveandload__Characters_Decode,saveandload__Characters_Encrypt,saveandload__LastSaveOrLoadPlayerId,saveandload__Characters_suffix,.85,saveandload__yE,saveandload__SaveId)
 endfunction


 function saveandload__LoadingVerificationCodeB takes string s returns integer
    local integer i=saveandload__Load_EXE(s,saveandload__Characters_List,saveandload__Characters_Decode,saveandload__Characters_Encrypt,saveandload__LastSaveOrLoadPlayerId,saveandload__Characters_suffix,.85,saveandload__yE)
    set saveandload__vX=(saveandload__fo)
    return i
 endfunction
  

 function saveandload__dte takes string s returns string
    set s=Dcv(s,"-",5,0)
    set s=fOv(s,"ffff80","8080ff","80ff80","ff8000",0)
    return s
 endfunction
  

 function saveandload__dTe takes string local_string returns string
    set local_string=SubString(local_string,StringLength(GetEventPlayerChatStringMatched()),StringLength(local_string))
    set local_string=StringMove(local_string," ",0,0)
    set local_string=StringMove(local_string,"-",0,0)
    return local_string
 endfunction
 
 //core load

 function saveandload__due takes nothing returns boolean
    local string s
    local integer saveid
    local integer dUe
    set saveandload__LastSaveOrLoadPlayer=GetTriggerPlayer()
    set saveandload__LastSaveOrLoadPlayerId=GetPlayerId(saveandload__LastSaveOrLoadPlayer)
    set saveandload__LastLoadUnit=null
    
    if((not PV[saveandload__LastSaveOrLoadPlayerId]))then
        //load hero
        call D4v()
        set s=saveandload__dTe(GetEventPlayerChatString())
        
        if(1>StringLength(s))then
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Failed to load the code! Please recheck your code.")
            return false
        endif
        
        set saveandload__LastSaveCode=saveandload__LoadingVerificationCodeB(s)
        set dUe=saveandload__vX
        
        if(0==saveandload__LastSaveCode or saveandload__vX > saveandload__SaveId)then
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Failed to load the code! Please recheck your code.")
            return false
        endif
        
        call ExecuteFunc("saveandload__"+"OnLoadBuffer"+I2S(saveandload__vX))
        set saveid=(LongToInt(((saveandload__LastSaveCode))))
        
        if(dUe==saveid)then
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Load succeeded!")
            call ExecuteFunc("saveandload__"+"OnLoad"+I2S(saveandload__vX))
            if GetLocalPlayer()==P[saveandload__LastSaveOrLoadPlayerId] then
                if saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId]==1 then
                    call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Please enter the equipment code!")
                endif
            endif
            //camera settings
            set fg[saveandload__LastSaveOrLoadPlayerId]=true
            set Gg[saveandload__LastSaveOrLoadPlayerId]=$C80//distance
            set Gg[saveandload__LastSaveOrLoadPlayerId+$C]=.6//pan time
        else
            if GetLocalPlayer()==saveandload__LastSaveOrLoadPlayer then
                call ClearTextMessages()
            endif
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Failed to load the code! Please recheck your code.")
            //clean buffer hero
            call saveandload__dPe()
        endif
        
        call RemoveLongInteger(((saveandload__LastSaveCode)))
        
    else
        //load equipment code
        if saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId]==1 then
            //remove spaces & delimiters
            set s=saveandload__dTe(GetEventPlayerChatString())
            
            if(1>StringLength(s))then
                call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Failed to load the code! Please recheck your code.")
                return false
            endif
            
            set saveandload__LastSaveCode2 = saveandload__LoadingVerificationCodeB(s)
            
            if(0==saveandload__LastSaveCode2)then
                call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Failed to load the code! Please recheck your code.")
                return false
            endif
            
            set saveid=ModuloInteger(saveandload__LastSaveCodeId,$F4240)//pass
            set dUe=ModuloInteger(LongToInt(saveandload__LastSaveCode2),saveandload__yE)
            
            //check that the code 1 belongs to code 2
            if saveandload__vX==dUe and dUe==saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+30] and saveid==saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+20] then
                
                call D4v()
                call saveandload__LoadItem(saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+40])
                
                if LongToInt(saveandload__LastSaveCode2)==saveandload__PlayerKey[saveandload__LastSaveOrLoadPlayerId+40] then
                    //load end
                    call saveandload__UnitAddItemBySL()
                else
                    //clean buffer
                    call saveandload__dpe(true)
                    call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Failed to load the code! Please recheck your code.")
                endif
            else
                call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,60,"|c00b6a092Failed to load the code! Please recheck your code.")
            endif
            call RemoveLongInteger(((saveandload__LastSaveCode2)))
        endif
    endif
    set saveandload__LastSaveOrLoadPlayer=null
    return false
 endfunction

 //save core

 function saveandload__dwe takes nothing returns boolean
    local string local_string
    local string local_string2
    local string local_filename
    local boolean IsPlayerHave_LUMBER=GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(2))>0
    local integer up
    
    local string itemLoc
    local integer itemPos
    
    set saveandload__LastSaveOrLoadPlayer=GetTriggerPlayer()
    set saveandload__LastSaveOrLoadPlayerId=GetPlayerId(saveandload__LastSaveOrLoadPlayer)
    
    if UnitAlive(MV[saveandload__LastSaveOrLoadPlayerId])then
        
        if Jc[GetUnitUserData(MV[saveandload__LastSaveOrLoadPlayerId])] then
            
            set Jc[GetUnitUserData(MV[saveandload__LastSaveOrLoadPlayerId])]=false
            if GetLocalPlayer()==saveandload__LastSaveOrLoadPlayer then
                call StartSound(Za)
                call ClearTextMessages()
            endif
            call zKv((saveandload__LastSaveOrLoadPlayerId),$FF,105,105,.27)
            call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,0,0,$F,"|c00ff0000Warning! |c00fbfcbc Cannot be saved! Please continue to enter -save.
							")

        else
            
            set up=MZv((GetUnitUserData((MV[saveandload__LastSaveOrLoadPlayerId]))))
            
            set saveandload__LastSaveCode=(NewLonginteger((saveandload__Characters_List)))
            //set saveandload__LastSaveCode2=(NewLonginteger((saveandload__Characters_List)))
            
            call LongAdd((saveandload__LastSaveCode),saveandload__SaveId,0)
            //call LongAdd((saveandload__LastSaveCode2),saveandload__SaveId,0)
            
            call saveandload__dqe()
            
            set local_string = saveandload__Save_EXE(saveandload__LastSaveCode,saveandload__Characters_Decode,saveandload__Characters_Encrypt,saveandload__LastSaveOrLoadPlayerId,saveandload__Characters_suffix,.85,saveandload__yE,saveandload__SaveId)
            
            call saveandload__DisplayRecordCode(saveandload__dte(local_string),"")
            
            call RemoveLongInteger(((saveandload__LastSaveCode)))
            set local_filename=saveandload__dTe(GetEventPlayerChatString())
            if StringLength(local_filename)>0 then
                //set local_string=Dcv(local_string,"-",5,0)
                //set local_string2=Dcv(local_string2,"-",5,0)
                if GetLocalPlayer()==saveandload__LastSaveOrLoadPlayer then
                    call PreloadGenClear()
                    call PreloadGenStart()
                    call Preload("\r============================================================================")
                    call Preload("\r\t -load "+local_string+"  ")
                    call Preload("\r============================================================================")
                    call Preload("\r\t Hero : "+GetUnitName(MV[saveandload__LastSaveOrLoadPlayerId])+"  ")
                    call Preload("\r\t Level : "+I2S(GetHeroLevel(MV[saveandload__LastSaveOrLoadPlayerId]))+"  ")
                    call Preload("\r\t Strength [base] :\t "+I2S(GetHeroStr(MV[saveandload__LastSaveOrLoadPlayerId],false))+" ; [total] : "+I2S(GetHeroStr(MV[saveandload__LastSaveOrLoadPlayerId],true))+"  ")
                    call Preload("\r\t Agility [base] :\t "+I2S(GetHeroAgi(MV[saveandload__LastSaveOrLoadPlayerId],false))+" ; [total] : "+I2S(GetHeroAgi(MV[saveandload__LastSaveOrLoadPlayerId],true))+"  ")
                    call Preload("\r\t Intelligence [base] :\t "+I2S(GetHeroInt(MV[saveandload__LastSaveOrLoadPlayerId],false))+" ; [total] : "+I2S(GetHeroInt(MV[saveandload__LastSaveOrLoadPlayerId],true))+"  ")
                    call Preload("\r============================================================================")
                    call Preload("\r\t Gold : "+I2S(GetPlayerState(saveandload__LastSaveOrLoadPlayer,PLAYER_STATE_RESOURCE_GOLD)/500*500)+"  ")
                    call Preload("\r\t Crystals : "+I2S(GetPlayerState(saveandload__LastSaveOrLoadPlayer,PLAYER_STATE_RESOURCE_LUMBER))+"  ")
                    call Preload("\r============================================================================")
                    
                    set itemLoc = "Hero"
                    set itemPos = 0
                    if SavedItemsCount > 1 then
                        loop
                            set itemPos = itemPos + 1
                            set SavedItemsCount = SavedItemsCount - 1
                            if SavedItems[SavedItemsCount] == 0 then
                                call Preload("\r============================================================================")
                                set itemLoc = "Backpack"
                                set itemPos = 0
                            else
                                call Preload("\r\t "+itemLoc+"["+I2S(itemPos)+"] : "+GetObjectName(SavedItems[SavedItemsCount]))
                            endif
                            exitwhen SavedItemsCount == 0
                        endloop
                    endif
                    
                    call Preload("\r============================================================================")
                    call PreloadGenEnd("SLORPG\\"+local_filename+".txt")
                endif
                call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80Warcraft folder/CustomMapData/SLORPG/"+local_filename+".txt code is automatically saved in this document.")
            endif
            if up!=0 then
                call YHe(YI[(GetUnitUserData((MV[saveandload__LastSaveOrLoadPlayerId])))],-up)
            endif
            set saveandload__Vessel_Index=0
        endif
    else
        call DisplayTimedTextToPlayer(saveandload__LastSaveOrLoadPlayer,.20,.2,$B4,"|c00ffff80The hero can't be saved when he is dead.")
    endif
    set saveandload__LastSaveOrLoadPlayer=null
    return false
 endfunction
 

 function saveandload__dye takes nothing returns boolean
    return ReloadGameCachesFromDisk()
 endfunction
 

 function DisableSave takes nothing returns nothing
    call DisableTrigger(saveandload__Save_Trig)
 endfunction

 function EnableSave takes nothing returns nothing
    call EnableTrigger(saveandload__Save_Trig)
 endfunction

 function DisableLoad takes nothing returns nothing
    call DisableTrigger(saveandload__Load_Trig)
 endfunction

 function EnableLoad takes nothing returns nothing
    call EnableTrigger(saveandload__Load_Trig)
 endfunction
 

 function saveandload__fsv takes string string1,string string2,conditionfunc ct1,conditionfunc ct2 returns nothing
    local integer i=8
    set saveandload__Save_Trig=CreateTrigger()
    set saveandload__Load_Trig=CreateTrigger()
    set string2=string2+" "
    call TriggerAddCondition(saveandload__Save_Trig,ct1)
    call TriggerAddCondition(saveandload__Load_Trig,ct2)
    loop
        set i=i-1
        if(GetPlayerSlotState(Player(i))==PLAYER_SLOT_STATE_PLAYING and GetPlayerController(Player(i))==MAP_CONTROL_USER)then
            call TriggerRegisterPlayerChatEvent(saveandload__Save_Trig,Player(i),string1,false)
            call TriggerRegisterPlayerChatEvent(saveandload__Load_Trig,Player(i),string2,false)
        endif
        exitwhen i==0
    endloop
 endfunction
 

 function saveandload__Init takes nothing returns nothing
    call saveandload__fsv("-save","-load",Condition(function saveandload__dwe),Condition(function saveandload__due))
    if((ReloadGameCachesFromDisk()))then
        set saveandload__Characters_List=s__Character_New("abcdefghijlkponmqrstuvwxyzABCDEFGHKLMNOPQRSTUVWXYZ0123456789@#$%&?")
        set saveandload__Characters_Decode=saveandload__Characters_DecodeTypeB
        set saveandload__Characters_suffix="password"
        set saveandload__Characters_Encrypt=2
    else
        set saveandload__Characters_List=s__Character_New("abcdefghijlkponmqrstuvwxyzABCDEFGHKLMNOPQRSTUVWXYZ0123456789@#$%&?")
        set saveandload__Characters_Decode=saveandload__Characters_DecodeTypeA
        set saveandload__Characters_suffix="password"
        set saveandload__Characters_Encrypt=2
    endif
 endfunction
 

 function saveandload__onInit takes nothing returns nothing
    call saveandload__SIv()
    call saveandload__Hiv()
    call saveandload__Init()
 endfunction
 

function zhaxiang___znv takes nothing returns nothing
    local unit u=GetEnumUnit()
    local integer id=(GetUnitUserData((u)))
    local integer r=GetRandomInt(0,zhaxiang___vg[id])
    local texttag t
    if r!=zhaxiang___vg[id]then
        set t=CreateTextTag()
        call SetTextTagPos(t,GetUnitX(u),GetUnitY(u),GetUnitFlyHeight(u))
        call SetTextTagText(t,LoadStr(BYHT,(zhaxiang___xg),8192*id+r),.0185)
        call SetTextTagVelocity(t,0,.015)
        call SetTextTagColor(t,$FF,$FF,$FF,$B9)
        call SetTextTagPermanent(t,false)
        call SetTextTagFadepoint(t,3)
        call SetTextTagLifespan(t,2.4)
        set t=null
    endif
    set u=null
endfunction

function zhaxiang___zVv takes nothing returns nothing
    call ForGroup(zhaxiang___eg,function zhaxiang___znv)
endfunction

function zhaxiang___zEv takes unit u,string s returns nothing
    local integer id=(GetUnitUserData((u)))
    if not IsUnitInGroup(u,zhaxiang___eg)then
        call GroupAddUnit(zhaxiang___eg,u)
    endif
    call SaveStr(BYHT,(zhaxiang___xg),8192*id+zhaxiang___vg[id],s)
    set zhaxiang___vg[id]=zhaxiang___vg[id]+1
endfunction

function zhaxiang___zXv takes nothing returns nothing
    set zhaxiang___eg=NewGroup()
    set zhaxiang___xg=malloc()
    call zhaxiang___zEv(gg_unit_n000_0011,"勇敢的冒险家啊
    我这里有很多任务可接

    

    

    

    

    

    

    

    不要听他们瞎比比")

    call zhaxiang___zEv(gg_unit_n000_0011,"你好啊
    勇敢的冒险家")

    call zhaxiang___zEv(gg_unit_hrif_0041,"如果你在别的地方看到和我长一模一样的人
    不用怀疑，那就是我！")

    call zhaxiang___zEv(gg_unit_hrif_0041,"世界如此淫乱！
    阁下，需要买块肥皂防身吗！？")

    call zhaxiang___zEv(gg_unit_n001_0039,"我打！我打！ 噢——
    又变硬了，这铁！")

    call zhaxiang___zEv(gg_unit_n001_0039,"嚯哈! 打死你个不要脸的，
    妄想和我抢生意！

    

    

    

    

    

    

    

    门都没有！")

    call zhaxiang___zEv(gg_unit_n003_0012,"勇敢的冒险家
    这里将会带走你积累的疲劳与饥饿感

    

    

    

    

    

    

    

    当然这不是免费的。")

    call zhaxiang___zEv(gg_unit_n003_0012,"哦我的天！你居然没带钱!")
    call zhaxiang___zEv(gg_unit_n01U_0362,"苦啊！
    都没人愿意陪我玩。")

    call zhaxiang___zEv(gg_unit_n01U_0362,"我的痛有谁来拯救呢..")
    call zhaxiang___zEv(gg_unit_n00S_0365,"我喜欢你！
    好喜欢你！！

    

    

    

    

    

    

    

    非常非常喜欢你！！！

    

    

    

    

    

    

    

    我说的是钱、金币、money。")

    call zhaxiang___zEv(gg_unit_n00S_0365,"好吃的，免费的，当然也是不可能的!")
    call zhaxiang___zEv(gg_unit_n00U_0789,"hi! 那边的美少女
    要过来陪我喝一杯吗?")

    call zhaxiang___zEv(gg_unit_n00U_0789,"世界需要我来拯救！
    一切——交给你了。")

    call zhaxiang___zEv(gg_unit_n001_0837,"天！这要我怎么活。")
    call zhaxiang___zEv(gg_unit_n001_0837,"过来瞧一瞧，看一看啦！
    打铁不要钱，打钱不要铁。

    

    

    

    

    

    

    

    锻造炉免费用。")

    call zhaxiang___zEv(gg_unit_n027_0834,"来啊，快来睡我啊！")
    call zhaxiang___zEv(gg_unit_n027_0834,"我这有很多套餐哦。")
    call zhaxiang___zEv(gg_unit_n00V_0759,"立正、稍息 ，不要偷懒
    现在多流汗，以后少流血！")

    call zhaxiang___zEv(gg_unit_n00V_0759,"「论残废是怎样炼成的」这书挺有意思啊！")
    call zhaxiang___zEv(gg_unit_hrif_0130,"嘿！少年，来两粒吗？")
    call zhaxiang___zEv(gg_unit_hrif_0130,"天气转凉，请注意防寒!
    来吧，我这里应有尽有。")

    call zhaxiang___zEv(gg_unit_n02D_0544,"我是世界上最可爱的生物..")
    call zhaxiang___zEv(gg_unit_n02D_0544,"哈喽，主人你跑哪去了...")
    call zhaxiang___zEv(gg_unit_n02D_0544,"嘿咻..嘿咻...我在抓小偷哦！
    嘿咻..嘿咻...")

    call zhaxiang___zEv(gg_unit_nbee_0806,"现在购买一律九折哦！")
    call zhaxiang___zEv(gg_unit_nbee_0806,"不要老盯着人家看啦！")
    call zhaxiang___zEv(gg_unit_nbee_0806,"小白快给我倒杯茶！")
    call zhaxiang___zEv(gg_unit_nhew_0986,"曾经有个叫杨成斌的人来买
    粉末，他不给钱然后就塔主打残了")

    call zhaxiang___zEv(gg_unit_nhew_0986,"小黑没有粉末了帮我带一些过来")
    call zhaxiang___zEv(gg_unit_nhew_0986,"隔壁羊叔前两天进医院了不知道现在怎么样了")
    call TimerStart((NewTimer(0)),30,true,function zhaxiang___zVv)
endfunction


function zhaxiang___diquyidong1_action_func takes nothing returns boolean
    local integer t=LoadInteger(BYHT,zhaxiang___diquyidong1,GetItemTypeId(GetSoldItem()))
    local integer CMv=GetPlayerId(GetOwningPlayer(GetBuyingUnit()))
    if IsUnitType(GetBuyingUnit(),UNIT_TYPE_HERO)then
        if GetHeroLevel(GetBuyingUnit())>=s__cs_table_Lv[t]then
            call SetUnitPosition(GetBuyingUnit(),s__cs_table_X[t],s__cs_table_Y[t])
            if GetLocalPlayer()==P[CMv]then
                call PanCameraToTimed(s__cs_table_X[t],s__cs_table_Y[t],0)
            endif
        else
            call DisplayTimedTextToPlayer(P[CMv],0,0,5,"This place is too dangerous for you.")
        endif
    endif
    return FALSE
endfunction


function zhaxiang___diquyidong1_WR takes integer id,real x,real y,integer lv returns nothing
    local integer t=s__cs_table__allocate()
    call SaveInteger(BYHT,zhaxiang___diquyidong1,id,t)
    set s__cs_table_Lv[t]=lv
    set s__cs_table_X[t]=x
    set s__cs_table_Y[t]=y
    call AddUnitSellItemById(id,function zhaxiang___diquyidong1_action_func)
endfunction

function zhaxiang___diquyidong1_Init takes nothing returns nothing
    set zhaxiang___diquyidong1=malloc()
    call zhaxiang___diquyidong1_WR('I0G8',-$B85,$5150,1)
    call zhaxiang___diquyidong1_WR('I0G5',-4226,$4180,$A)
    call zhaxiang___diquyidong1_WR('I0G6',-7346,$2831,30)
    call zhaxiang___diquyidong1_WR('I0G7',5175,9651,60)
    call zhaxiang___diquyidong1_WR('I0G9',-$5204,$4FC5,80)
    call zhaxiang___diquyidong1_WR('I02Q',$4E80,$4E84,80)
    call zhaxiang___diquyidong1_WR('I04Z',$3C55,-$7841,120)
    call zhaxiang___diquyidong1_WR('I050',$7AF,-$7788,$A0)
    call s__weather_new(gg_rct_XSC___________000,'LRaa',8,16)
    call s__weather_new(gg_rct_XSC___________000,'LRma',20,6)
endfunction

function zhaxiang___diquyidong2_action_func takes nothing returns boolean
    local integer b=GetButtonData(0)
    local integer t=s__Button_id[b]
    local integer CMv=GetPlayerId(GetTriggerPlayer())
    if t!=null then
        if GetHeroLevel(MV[CMv])>=s__cs_table_Lv[t]then
            set zhaxiang___diquyidong2_off[(GetUnitUserData((MV[CMv])))]=(100000.-TimerGetRemaining(GameTimer))+.3
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportCaster.mdl",GetUnitX(MV[CMv]),GetUnitY(MV[CMv])))
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl",s__cs_table_X[t],s__cs_table_Y[t]))
            call SetUnitPosition(MV[CMv],s__cs_table_X[t],s__cs_table_Y[t])
            if GetLocalPlayer()==P[CMv]then
                call PanCameraToTimed(s__cs_table_X[t],s__cs_table_Y[t],0)
            endif
        else
            call DisplayTimedTextToPlayer(P[CMv],0,0,5,"Insufficient level.")
        endif
    endif
    return false
endfunction

function zhaxiang___diquyidong2_action1 takes nothing returns nothing
    call DisplayDialog(zhaxiang___diquyidong2_v,GetTriggerPlayer(),0,0,null)
endfunction

function zhaxiang___diquyidong2_action2 takes nothing returns nothing
    call DisplayDialog(zhaxiang___diquyidong2,GetTriggerPlayer(),0,0,null)
endfunction

function zhaxiang___diquyidong2_action takes nothing returns boolean
    local unit c=GetTriggerUnit()
    local real x=GetUnitX(c)
    local real y=GetUnitY(c)
    local unit u
    if zhaxiang___diquyidong2_off[(GetUnitUserData((c)))]<(100000.-TimerGetRemaining(GameTimer))then
        call GroupEnumUnitsInRange(G,x,y,$FA+75,null)
        loop
            set u=FirstOfGroup(G)
            exitwhen u==null
            call GroupRemoveUnit(G,u)
            if IsUnitInRangeXY(u,x,y,$FA)then
                exitwhen GetUnitTypeId(u)=='ncop'
            endif
        endloop
        if u!=null then
            if IsUnitType(c,UNIT_TYPE_HERO)and not IsUnitPaused(u)and not IsUnitPaused(c)then
                call DisplayDialog(zhaxiang___diquyidong2,GetOwningPlayer(c),0,0,null)
                call IssueImmediateOrderById(c,$D0004)
            endif
        endif
    endif
    set c=null
    return FALSE
endfunction

function zhaxiang___diquyidong2_WR takes integer this,string s,real x,real y,integer lv returns integer
    local integer id=(GetUnitUserData((CreateUnit(P[$F],'ncop',x,y,0))))
    local integer t=s__cs_table__allocate()
    local integer b=DialogAddButtone(this,"|c00c0c0c0["+I2S(s__Dialog_index[this]+1)+"]|r "+s+" |c00ffff80(Req Lvl: "+I2S(lv)+")|r",s__Dialog_index[this]+49)
    set s__Button_id[b]=t
    set s__cs_table_Lv[t]=lv
    set s__cs_table_X[t]=x
    set s__cs_table_Y[t]=y
    call RegionAddRect(zhaxiang___diquyidong2_region,Rect(x-96,y-96,x+96,y+96))
    call UnitShareVisionB((Je[(id)]))
    return id
endfunction

function zhaxiang___diquyidong2_WR2 takes integer this,string s,integer key,code func returns integer
    local integer b=DialogAddButtone(this,s,key)
    set s__Button_c[b]=Condition(func)
    return b
endfunction

function zhaxiang___diquyidong2_Init takes nothing returns nothing
    local trigger gzv=CreateTrigger()
    set zhaxiang___diquyidong2=NewDialog()
    set zhaxiang___diquyidong2_v=NewDialog()
    set zhaxiang___diquyidong2_region=CreateRegion()
    set s__Dialog_text[(zhaxiang___diquyidong2)]=("Teleport")
    set s__Dialog_text[(zhaxiang___diquyidong2_v)]=("Teleport")
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"Aries Town",-5455.4,20740.9,1)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"Uncle's Farm",(-$DE0-$D40)/ 2.,($6BC0+$6CC0)/ 2.,40)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"Side of Town",-$5220,$4580,80)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"Prius Capital",-$4350,$5F64,80)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"Prius Port",$3D45,$37F2,80)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"Snowy Mountains",$3BE0,-$74E0,120)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"Mysterious Tower",-$29C0,$5A40,120)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2,"County of Wallachia",$58C,-$6FC2,$A0)
    call zhaxiang___diquyidong2_WR2(zhaxiang___diquyidong2,"|c00c0c0c0["+I2S(s__Dialog_index[zhaxiang___diquyidong2]+1)+"]|r Next page",s__Dialog_index[zhaxiang___diquyidong2]+49,function zhaxiang___diquyidong2_action1)
    call DialogAddButtone(zhaxiang___diquyidong2,"|c00c0c0c0[ESC]|r cancel",512)
    set uV=zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2_v,"Lava Volcano",$5628,-$37C8,$C8)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2_v,"Ancient Forest",$5428,$31B2,350)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2_v,"Prius Front",-$410,-$55DD,370)
    call zhaxiang___diquyidong2_WR(zhaxiang___diquyidong2_v,"Haunted Forest",-8522,-$7960,370)
    call zhaxiang___diquyidong2_WR2(zhaxiang___diquyidong2_v,"|c00c0c0c0["+I2S(s__Dialog_index[zhaxiang___diquyidong2_v]+1)+"]|r Previous page",s__Dialog_index[zhaxiang___diquyidong2_v]+49,function zhaxiang___diquyidong2_action2)
    call DialogAddButtone(zhaxiang___diquyidong2_v,"|c00c0c0c0[ESC]|r cancel",512)
    call TransferDialogAddAtion(zhaxiang___diquyidong2,function zhaxiang___diquyidong2_action_func)
    call TransferDialogAddAtion(zhaxiang___diquyidong2_v,function zhaxiang___diquyidong2_action_func)
    call TriggerRegisterEnterRegion(gzv,zhaxiang___diquyidong2_region,null)
    call TriggerAddCondition(gzv,Filter(function zhaxiang___diquyidong2_action))
    set gzv=null
endfunction

function zhaxiang___diquyidong3_i8e takes nothing returns boolean
    if nC[GetUnitUserData(GetTriggerUnit())]then
        call tEv(GetTriggerUnit(),-$2800,$6A40,0)
    endif
    return false
endfunction

function zhaxiang___diquyidong3_i9e takes nothing returns boolean
    if nC[GetUnitUserData(GetTriggerUnit())]then
        call tEv(GetTriggerUnit(),-$7C0,$70A0,0)
    endif
    return false
endfunction

function zhaxiang___diquyidong3_EnterPVP takes nothing returns nothing
    call RemoveItemG(GetSoldItem())
    call i7e(GetBuyingUnit())
    call tEv(GetBuyingUnit(),-7392,$6A26,0)
endfunction

function zhaxiang___diquyidong3_ave takes nothing returns nothing
    call CreatePermanentTextTag("|c00b38b84Uncle's House|r",$C,-$7D0,$7134)
    call RegisterEnterRect(-$860,$70E0,-$740,$7180,function zhaxiang___diquyidong3_i8e)
    call RegisterEnterRect(-$28C0,$6980,-$2760,$69E0,function zhaxiang___diquyidong3_i9e)
    call AddUnitSellItemById('rwat',function zhaxiang___diquyidong3_EnterPVP)
    call s__weather_new(gg_rct_FSZJ______________000,'LRaa',8,16)
    call s__weather_new(gg_rct_FSZJ______________000,'LRma',20,6)
endfunction

function zhaxiang___fubeng_haitan takes nothing returns nothing
    call tEv(GetTriggerUnit(),5328,$3A16,80)
endfunction

function zhaxiang___fubeng_haitan_fanhui takes nothing returns nothing
    call tEv(GetTriggerUnit(),-$3B80,9408,80)
endfunction

function zhaxiang___fst_a takes nothing returns nothing
    call tEv(GetTriggerUnit(),-9216,$59E0,0)
endfunction

function zhaxiang___fst_b takes nothing returns nothing
    call tEv(GetTriggerUnit(),$6432,-$7840,0)
endfunction

function zhaxiang___ryhs_a takes nothing returns nothing
    call tEv(GetTriggerUnit(),$5610,-$3B40,$C8)
endfunction

function zhaxiang___ryhs_b takes nothing returns nothing
    if not IsUnitPaused((Je[(uV)]))then
        call tEv(GetTriggerUnit(),$63FC,-$6E80,$C8)
    endif
endfunction

function zhaxiang___byqdmd_a takes nothing returns nothing
    call tOv(GetTriggerUnit(),$28E0,-7200,320)
endfunction

function zhaxiang___byqdmd_B takes nothing returns nothing
    call tOv(GetTriggerUnit(),$DC0,-$61A0,320)
endfunction

function zhaxiang___ywzd_a takes nothing returns nothing
    if Boss_n035_Open and IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO)then
        call tEv(GetTriggerUnit(),-$3640,-$7B20,380)
    endif
endfunction

function zhaxiang___shenghai_a takes nothing returns nothing
    if Boss_Index_n03F<0 then
        call tEv(GetTriggerUnit(),$48FD,$684E,$F0)
    endif
endfunction

function zhaxiang___shenghai_b takes nothing returns nothing
    if Boss_Index_n03F<0 then
        call tEv(GetTriggerUnit(),$67F5,$5442,$F0)
    endif
endfunction

function zhaxiang___xeyd_a takes nothing returns nothing
    call tEv(GetTriggerUnit(),$4900,-7168,280)
endfunction

function zhaxiang___xeyd_b takes nothing returns nothing
    call tEv(GetTriggerUnit(),-$3463,$4D58,280)
endfunction

function zhaxiang___kd_a takes nothing returns nothing
    call tEv(GetTriggerUnit(),4785,$6BC4,0)
endfunction

function zhaxiang___kd_b takes nothing returns nothing
    call tEv(GetTriggerUnit(),-$50D0,$4030,0)
endfunction

 //new movements

 function LeaveAvalonCastle takes nothing returns nothing
    call tEv(GetTriggerUnit(),-$3FBA,$414B,0)
 endfunction
 

 function LeaveFrostCave takes nothing returns nothing
    call tEv(GetTriggerUnit(),-15200,27872,0)
 endfunction


function zhaxiang___ygmj_a takes nothing returns nothing
    local unit u=GetTriggerUnit()
    if nC[(GetUnitUserData((u)))]then
        if GetHeroLevel(u)>=350 then
            call SetUnitPosition(u,$57E0,$3200)
            if GetLocalPlayer()==GetOwningPlayer(u)then
                call PanCameraToTimed(GetUnitX(u),GetUnitY(u),0)
            endif
        else
            call DisplayTimedTextToPlayer(GetOwningPlayer(u),0,0,5,"Required level: |cffffcc00350")
        endif
    endif
    set u=null
endfunction

function zhaxiang___yghj_a takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local integer CMv
    if nC[(GetUnitUserData((u)))]then
        set CMv=Kc[(GetUnitUserData((u)))]
        if not zV[CMv]then
            if ZV>0 then
                set ZV=ZV-1
                set zV[CMv]=true
                if ZV==0 then
                    call DisplayTimedText("|c0080ff80The forgotten forest is now full, no more entries are allowed.",5)
                    call StartSound(Za)
                endif
            endif
        endif
        if not zV[CMv]then
            call NewTextTagInTarget_B(u,"You are not welcome..",$C,$9B,$E1,$9B)
        elseif Ymv(u,'A0J0','B037',60)then
            call SetUnitPosition(u,$3110,$A60)
            call DestroyEffect(AddSpecialEffectTarget("NatureExplosion.mdl",u,"origin"))
            call PlaySoundOnUnit_BJ((Qa),((100)*1.),(u))
            if GetLocalPlayer()==GetOwningPlayer(u)then
                call PanCameraToTimed(GetUnitX(u),GetUnitY(u),0)
            endif
        endif
    endif
    set u=null
endfunction

function zhaxiang___ygmj_b takes nothing returns nothing
    local unit u=GetTriggerUnit()
    if nC[(GetUnitUserData((u)))]then
        call SetUnitPosition(u,$CC0,$2F00)
        if GetLocalPlayer()==GetOwningPlayer(u)then
            call PanCameraToTimed(GetUnitX(u),GetUnitY(u),0)
        endif
    endif
    set u=null
endfunction

function zhaxiang___yghj_b takes nothing returns nothing
    local unit u=GetTriggerUnit()
    if nC[(GetUnitUserData((u)))]then
        if Ymv(u,'A0J0','B037',60)then
            call SetUnitPosition(u,$6914,$2C24)
            call DestroyEffect(AddSpecialEffectTarget("NatureExplosion.mdl",u,"origin"))
            call PlaySoundOnUnit_BJ((Qa),((100)*1.),(u))
            if GetLocalPlayer()==GetOwningPlayer(u)then
                call PanCameraToTimed($6914,$2C24,0)
            endif
        endif
    endif
    set u=null
endfunction

function zhaxiang___fyzt_a takes nothing returns boolean
    local unit u=GetTriggerUnit()
    if not Boss_hmpr_IsOpen and UnitHasItemOfType(u,'woms')then
        set Boss_hmpr_IsOpen=true
        set fK=false
        call StartSound(In)
        call Ltv(LAv("NatureExplosion.mdl",$4E20,9410,5))
        call Ltv(LAv("NatureExplosion.mdl",$42AE,$2FD5,5))
        call RemoveItemG(GetItemOfTypeFromUnit(u,'woms'))
    endif
    if not fK and nC[(GetUnitUserData((u)))]then
        call SetUnitPosition(u,$42A0,$2F60)
        if GetLocalPlayer()==GetOwningPlayer(u)then
            call PanCameraToTimed(GetUnitX(u),GetUnitY(u),0)
        endif
        set Off_A098[(GetUnitUserData((u)))]=true
        set Off_A098_id[(GetUnitUserData((u)))]='hmpr'
    endif
    set u=null
    return false
endfunction

function zhaxiang___fyzt_b takes nothing returns boolean
    local unit u=GetTriggerUnit()
    if not fK and nC[(GetUnitUserData((u)))]then
        call SetUnitPosition(u,$5078,9300)
        if GetLocalPlayer()==GetOwningPlayer(u)then
            call PanCameraToTimed(GetUnitX(u),GetUnitY(u),0)
        endif
        if Off_A098_id[(GetUnitUserData((u)))]=='hmpr' then
            set Off_A098[(GetUnitUserData((u)))]=false
            set Off_A098_id[(GetUnitUserData((u)))]=0
        endif
    endif
    set u=null
    return false
endfunction

function zhaxiang___prsjd_a takes nothing returns nothing
    if nC[(GetUnitUserData((GetTriggerUnit())))]then
        call tEv(GetTriggerUnit(),-$D5C,-$558C,370)
    endif
endfunction

function zhaxiang___prsjd_b takes nothing returns nothing
    if nC[(GetUnitUserData((GetTriggerUnit())))]then
        call tEv(GetTriggerUnit(),$3180,-$9E0,370)
    endif
endfunction

function zhaxiang___ygfd_c takes nothing returns nothing
    local real x=GetUnitX(gg_unit_h00N_0558)
    local real y=GetUnitY(gg_unit_h00N_0558)
    local integer ZXv=CreateBarrageTypeD(x,y,75,-$C80,-$3C00,0)
    call LMv(s__barrage_model[ZXv],"Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl")
    call SetUnitScale(II[(s__barrage_model[ZXv])],((6)*1.),0,0)
    set s__barrage_speed[ZXv]=.03125*Mxv(-$C80-x,-$3C00-y)
    call NewTextTagInTarget_B(gg_unit_h00N_0558,"Bring it on! Give it for the people!",$F,$FF,$FF,$9B)
    call BOv(ZXv)
    call SetUnitAnimation(gg_unit_h00N_0558,"attack")
    call TimerStart(GetExpiredTimer(),1.375,false,function cuv)
endfunction

function zhaxiang___ygfd_b takes nothing returns nothing
    call SetUnitInvulnerable(gg_unit_h00N_0558,true)
    call SetUnitPathing(gg_unit_h00N_0558,false)
    call SetUnitPosition(gg_unit_h00N_0558,-$C67,-$42B3+400)
    call TimerStart(GetExpiredTimer(),1.5,false,function zhaxiang___ygfd_c)
    call DestroyTimerDialog(vE)
    set vE=null
    set eE=false
endfunction

function zhaxiang___ygfd_a takes nothing returns nothing
    local timer t
    if eE and nC[(GetUnitUserData((GetTriggerUnit())))]then
        if vE==null then
            set t=(NewTimer(0))
            call TimerStart(t,60,false,function zhaxiang___ygfd_b)
            set vE=CreateTimerDialog(t)
            call DisplayTimedText("|c00c0c0c060Second war.",3)
            call TimerDialogSetTitle(vE,"|c00c0c0c0War time")
            call StartSound(Za)
            call TimerDialogDisplay(vE,true)
        endif
        call tEv(GetTriggerUnit(),-$CD9,-$40C6,370)
        set Off_A098[(GetUnitUserData((GetTriggerUnit())))]=true
        set Off_A098_id[(GetUnitUserData((GetTriggerUnit())))]='n02V'
    endif
endfunction

function zhaxiang___jsly_a takes nothing returns nothing
    if not pQ and tOv(GetTriggerUnit(),832,-$53C0,370)then
        set Off_A098[(GetUnitUserData((GetTriggerUnit())))]=true
        set Off_A098_id[(GetUnitUserData((GetTriggerUnit())))]='n033'
    endif
endfunction

function zhaxiang___jsly_b takes nothing returns nothing
    if not pQ then
        call tOv(GetTriggerUnit(),-960,-$5120,370)
        if Off_A098_id[(GetUnitUserData((GetTriggerUnit())))]=='n033' then
            set Off_A098[(GetUnitUserData((GetTriggerUnit())))]=false
            set Off_A098_id[(GetUnitUserData((GetTriggerUnit())))]=0
        endif
    endif
endfunction

function xexc_a takes nothing returns nothing
    if not UnitAlive(DS)or not(FS==0)then
        call tOv(GetTriggerUnit(),$5A80,-$5FE0,370)
    endif
endfunction

function xexc_b takes nothing returns nothing
    if not UnitAlive(DS)or not(FS==0)then
        call tOv(GetTriggerUnit(),$4738,-$5681,370)
    endif
endfunction


 function zhaxiang___diquyidong4 takes nothing returns nothing
    local real x
    local real y
    local integer p
    call RegisterEnterRect(-$3C40,9184,-$3AC0,9280,function zhaxiang___fubeng_haitan)
    call RegisterEnterRect(5056,$3920,5216,$3AE0,function zhaxiang___fubeng_haitan_fanhui)
    call RegisterEnterRect($62C0,-$7880,$63E0,-$7780,function zhaxiang___fst_a)
    call RegisterEnterRect(-9408,$5880,-9056,$5960,function zhaxiang___fst_b)
    call RegisterEnterRect($6340,-$6F20,$63A0,-$6DC0,function zhaxiang___ryhs_a)
    call RegisterEnterRect($54C0,-$3BC0,$55E0,-$3AC0,function zhaxiang___ryhs_b)
    call RegisterEnterRect($D00,-$6180,$EA0,-$6120,function zhaxiang___byqdmd_a)
    call RegisterEnterRect($2900,-7456,$2980,-6944,function zhaxiang___byqdmd_B)
    call RegisterEnterRect(6400,-$2A00,6528,-$2840,function zhaxiang___ywzd_a)
    set p=(s__polygon_create())
    call s__polygon_polygonaddpoint((p),(($6732)*1.),(($54FF)*1.))
    call s__polygon_polygonaddpoint((p),(($68F8)*1.),(($53D3)*1.))
    call s__polygon_polygonaddpoint((p),(($697A)*1.),(($5485)*1.))
    call s__polygon_polygonaddpoint((p),(($679F)*1.),(($55D2)*1.))
    call sc___prototype62_evaluate(1,p,function zhaxiang___shenghai_a)
    call s__polygon_destroy((p))
    call RegisterEnterRect($47A0,$6720,$4840,$6960,function zhaxiang___shenghai_b)
    call RegisterEnterRect(-$3400,$4BE0,-$3380,$4E20,function zhaxiang___xeyd_a)
    call RegisterEnterRect($4940,-7424,$4A00,-6880,function zhaxiang___xeyd_b)
    call RegisterEnterRect(-$5240,$3FA0,-$5160,$40C0,function zhaxiang___kd_a)
    call RegisterEnterRect(4320,$6BE0,4448,$6CC0,function zhaxiang___kd_b)
    call RegisterEnterRect($6960,$2AA0,$69E0,$2E00,function zhaxiang___yghj_a)
    call RegisterEnterRect($3020,$9E0,$3200,$A40,function zhaxiang___yghj_b)
    call RegisterEnterRect($4F20,9120,$5020,9472,function zhaxiang___fyzt_a)
    call RegisterEnterRect($41E0,$2FA0,$43C0,$3000,function zhaxiang___fyzt_b)
    call RegisterEnterRect($30E0,-$B20,$3160,-$880,function zhaxiang___prsjd_a)
    call RegisterEnterRect_B(-$E80,-$5760,(-$C80+$E80)*.5,(-$5580+$5760)*.5,function zhaxiang___prsjd_b)
    call RegisterEnterRect(-$B80,-$4BA0,-$920,-$4B20,function zhaxiang___ygfd_a)
    call RegisterEnterRect(-896,-$5280,-768,-$4F80,function zhaxiang___jsly_a)
    call RegisterEnterRect($4640,-$5640,$4800,-$55E0,function xexc_a)
    call RegisterEnterRect_B($5A00,-$6060,$80,$80,function xexc_b)
    
    //New rect Enter
    call RegisterEnterRect(-20608,-3552,-20352,-3296,function LeaveAvalonCastle)
    call CreateUnit(Player(15),'n04Q',-20480,-3424,270.)//avalon tp
    call RegisterEnterRect(14464,-23456,14592,-23008,function LeaveFrostCave)
    
 endfunction


function zhaxiang___diquyidong3_fyt1 takes nothing returns nothing
endfunction

function zhaxiang___diquyidong5 takes nothing returns nothing
    local integer Pmv=s__fog_table_new(-300,4500,.5,.5,.75)
    local integer PMv=s__fog_table_new(-500,$FA0,.15,.75,.15)
    local real x=GetRectCenterX(gg_rct_WLZS2_______________001)
    local real y=GetRectCenterY(gg_rct_WLZS2_______________001)
    set s__fog_rect_border[s__fog_rect_create(s__fog_table_new(-400,4750,.75,.75,1),gg_rct_BSJL_____________001)]=$5DC
    set s__fog_rect_border[s__fog_rect_create(s__fog_table_new(-300,4750,.3,.7,.7),gg_rct_YGMJ2____________________000)]=$5DC
    set s__fog_rect_border[s__fog_rect_create(s__fog_table_new(-$FA,6000,.75,.75,.9),gg_rct_BYQMD____________________000)]=750
    call s__weather_new(gg_rct_BYQMD____________________000,'LRma',22,3)
    set s__fog_rect_border[s__fog_rect_create(Pmv,gg_rct_PRSJD2_________________000)]=$5DC
    call s__fog_rect_create_round(Pmv,x,y,0,$640,500)
    call s__fog_rect_create_round(PMv,x,y,$640,$7D0,350)
    set s__fog_rect_border[s__fog_rect_create(s__fog_table_new(-100,7000,1/ 2.55,1,1),gg_rct_SH_MW_000)]=$5DC
    call CreatePermanentTextTag("|c00d06357 Lava Volcano|r",$C,$6338,-$6E98)
    call CreatePermanentTextTag("|c00c1c8e3 Abandoned Graveyard|r",$C,$DA0,-$6120)
    call CreatePermanentTextTag("|c008080FF Forgotten Place|r",$C,6304,-$2960)
    call CreatePermanentTextTag("|c00a3c1f3 Deep Sea|r",$C,$684A,21705.7)
    call CreatePermanentTextTag("|c00c1b7a2 Evil Cave|r",$C,-$33DD,$4D3D)
    call CreatePermanentTextTag("|c0056b63a Ancient forest|r",$F,$69C8,$2C8C)
    call CreatePermanentTextTag("|c0044683e Sealed Tower|r",$F,$4FD0,9324)
    call CreatePermanentTextTag("|c00afbfd3 Prius base|r",13.5,$31A0,-$A20)
    call CreatePermanentTextTag("|c00afbfd3 Ancient field of war|r",$F,-$AA0,-$4B20)
    call CreatePermanentTextTag("|c00c1c8e3 Zombie Cave|r",$C,-712,-$50F0)
    call CreatePermanentTextTag("|c004169f5 Forgotten Snowfield|r",$C,$4738,-$55BE)
endfunction

function zhaxiang___onInit takes nothing returns nothing
    call zhaxiang___zXv()
    call zhaxiang___diquyidong1_Init()
    call zhaxiang___diquyidong2_Init()
    call zhaxiang___diquyidong3_ave()
    call zhaxiang___diquyidong4()
    call zhaxiang___diquyidong5()
endfunction

function InitGlobals takes nothing returns nothing
    local integer i=0
    set udg_aaaaa11=CreateGroup()
endfunction

function InitSounds takes nothing returns nothing
    set gg_snd_RiflemanAttack1=CreateSound("Units\\Human\\Rifleman\\RiflemanAttack2.wav",false,false,true,$B,$B,"MissilesEAX")
    call SetSoundParamsFromLabel(gg_snd_RiflemanAttack1,"RiflemanAttack1")
    call SetSoundDuration(gg_snd_RiflemanAttack1,702)
    call SetSoundVolume(gg_snd_RiflemanAttack1,$7E)
endfunction

function CreateAllDestructables takes nothing returns nothing
    local destructable d
    local trigger t
    local real life
    set gg_dest_B001_6745=CreateDestructable('B001',24320.,-22656.,90.,1.,0)
    set gg_dest_B001_6744=CreateDestructable('B001',24320.,-22400.,90.,1.,0)
    set gg_dest_B001_2315=CreateDestructable('B001',24320.,-22144.,270.,1.,0)
    set gg_dest_B006_19850=CreateDestructable('B006',-3200.,-15360.,.0,3.,0)
    set gg_dest_B00C_1557=CreateDestructable('B00C',-18816.,-4992.,270.,3.,0)
    set gg_dest_B00D_11119=CreateDestructable('B00D',-5120.,-28608.,.0,1.5,0)
    set gg_dest_Dofv_1632=CreateDeadDestructable('Dofv',-8768.,-20160.,90.,1.,0)
endfunction

function CreateUnitsForPlayer8 takes nothing returns nothing
    local player p=Player(8)
    local unit u
    local integer unitID
    local trigger t
    local real life
    set u=CreateUnit(p,'H00Q',-7553.2,18744.2,270.)
    call SetHeroLevel(u,300,false)
    call SetHeroStr(u,920,true)
    call SetHeroAgi(u,540,true)
    call SetHeroInt(u,780,true)
    set u=CreateUnit(p,'h00O',-7860.3,15928.9,270.25)
    set u=CreateUnit(p,'h00O',-7233.8,15929.2,270.25)
    set u=CreateUnit(p,'e019',15478.9,-23769.4,333.799)
    set gg_unit_h01G_0067=CreateUnit(p,'h01G',14929.8,-22952.2,32.873)
    set gg_unit_h01G_0068=CreateUnit(p,'h01G',15158.,-22969.2,157.05)
    set gg_unit_h01G_0069=CreateUnit(p,'h01G',15058.3,-22721.,264.95)
    set u=CreateUnit(p,'h00O',-7857.1,15279.4,270.25)
    set u=CreateUnit(p,'e019',15885.1,-22787.6,350.136)
    set u=CreateUnit(p,'e019',15902.7,-22973.8,284.575)
    set u=CreateUnit(p,'h00M',15153.2,-23720.,150.55)
    set u=CreateUnit(p,'h00M',14909.9,-23844.4,82.015)
    set u=CreateUnit(p,'h00M',14818.3,-23569.1,310.168)
    set u=CreateUnit(p,'e019',15832.2,-23691.5,339.346)
    set u=CreateUnit(p,'h00M',16148.9,-23095.7,330.388)
    set u=CreateUnit(p,'h00M',16149.,-23447.3,12.442)
    set u=CreateUnit(p,'e019',15872.9,-23537.7,339.346)
    set u=CreateUnit(p,'h00O',-19428.2,28271.4,326.81)
    set u=CreateUnit(p,'h00O',-20014.1,27829.1,312.01)
    set u=CreateUnit(p,'h00O',-18171.8,27661.8,187.039)
    set u=CreateUnit(p,'h00O',-7230.6,15279.7,270.25)
    set u=CreateUnit(p,'h00O',-7867.7,14631.5,270.25)
    set u=CreateUnit(p,'h00O',-7241.2,14631.8,270.25)
    set u=CreateUnit(p,'h00M',-18185.3,21919.8,266.376)
    set u=CreateUnit(p,'n04I',13711.4,15207.,276.74)
    set u=CreateUnit(p,'n04L',-15738.5,24233.9,274.78)
    set u=CreateUnit(p,'nvlk',-15702.1,25087.2,244.838)
    set u=CreateUnit(p,'h00O',-8004.3,18238.3,270.25)
    set u=CreateUnit(p,'h00O',-7114.4,18239.9,270.25)
    set u=CreateUnit(p,'n00P',-10664.4,9584.3,75.758)
    set u=CreateUnit(p,'n00R',-9243.9,9786.5,178.874)
    set u=CreateUnit(p,'n00P',-9449.5,9763.9,107.889)
    set u=CreateUnit(p,'n00R',-9253.9,10675.7,178.874)
    set u=CreateUnit(p,'n00P',-10643.3,9896.6,107.889)
    set u=CreateUnit(p,'n00P',-9343.3,10343.8,75.758)
    set u=CreateUnit(p,'h00M',-2889.2,-21022.3,96.322)
    set u=CreateUnit(p,'h00M',-2619.,-21025.8,87.949)
    set u=CreateUnit(p,'h00M',-2352.3,-21032.4,78.576)
    set u=CreateUnit(p,'n00R',-9841.1,9904.2,178.874)
    set u=CreateUnit(p,'h00M',-2882.4,-20781.4,96.322)
    set u=CreateUnit(p,'h00M',-2612.2,-20784.9,87.949)
    set u=CreateUnit(p,'h00M',-2345.6,-20783.5,78.576)
    set u=CreateUnit(p,'h00M',-2873.2,-20544.5,96.322)
    set u=CreateUnit(p,'h00M',-2603.,-20532.,87.949)
    set u=CreateUnit(p,'h00M',-2344.3,-20546.6,78.576)
    set gg_unit_h00N_0558=CreateUnit(p,'h00N',-2112.,-20835.7,87.216)
    set u=CreateUnit(p,'n00Q',-9376.3,11607.3,16.727)
    set u=CreateUnit(p,'n00Q',-9314.6,11395.,258.461)
    set u=CreateUnit(p,'n00Q',-10604.,11284.,273.756)
    set u=CreateUnit(p,'n00P',-9910.5,11194.5,107.889)
    set u=CreateUnit(p,'n00R',-10302.1,11334.8,178.874)
    set u=CreateUnit(p,'h00O',-8390.7,18111.,2.69)
    set u=CreateUnit(p,'h00O',-6724.2,18099.2,178.367)
    set u=CreateUnit(p,'h00O',-8383.5,16193.2,1.179)
    set u=CreateUnit(p,'nvk2',8373.5,14841.1,248.551)
    set u=CreateUnit(p,'n00R',8769.6,15381.1,64.876)
    set u=CreateUnit(p,'nvk2',8533.,15241.6,275.348)
    set u=CreateUnit(p,'nvlk',9261.1,14890.3,28.412)
    set u=CreateUnit(p,'n00Q',8492.9,15019.8,25.94)
    set u=CreateUnit(p,'h00O',-18253.1,27074.9,174.516)
    set gg_unit_H00Q_0724=CreateUnit(p,'H00Q',-17315.2,27112.3,175.716)
    call SetHeroLevel(gg_unit_H00Q_0724,300,false)
    call SetHeroStr(gg_unit_H00Q_0724,920,true)
    call SetHeroAgi(gg_unit_H00Q_0724,540,true)
    call SetHeroInt(gg_unit_H00Q_0724,780,true)
    set u=CreateUnit(p,'n00W',-17308.8,27540.8,176.755)
    set u=CreateUnit(p,'h00N',-18760.,26198.2,260.428)
    set u=CreateUnit(p,'h00N',-19127.3,26206.5,273.444)
    set u=CreateUnit(p,'h00O',-6713.8,16196.8,161.251)
    set u=CreateUnit(p,'nvlk',-20488.8,24053.8,75.138)
    set u=CreateUnit(p,'n00R',-20258.8,22849.2,18.945)
    set u=CreateUnit(p,'n00R',-13495.5,23985.8,111.218)
    set u=CreateUnit(p,'n00R',-14638.1,23167.8,269.239)
    set u=CreateUnit(p,'n00T',-12280.5,25758.1,251.331)
    set u=CreateUnit(p,'n00T',-12843.,25755.5,270.931)
    set u=CreateUnit(p,'e019',-12760.9,28022.,1.)
    set u=CreateUnit(p,'e019',-13113.1,28018.4,1.)
    set u=CreateUnit(p,'e019',-13471.5,28013.7,1.)
    set gg_unit_h00N_0748=CreateUnit(p,'h00N',-12578.2,27457.1,193.629)
    set u=CreateUnit(p,'h00M',-12925.9,27641.4,354.937)
    set gg_unit_h00M_0750=CreateUnit(p,'h00M',-12915.7,27454.9,349.388)
    set u=CreateUnit(p,'h00M',-12926.3,27243.1,.092)
    set u=CreateUnit(p,'h00M',-13207.7,27642.2,359.029)
    set u=CreateUnit(p,'h00M',-13516.3,27642.9,346.161)
    set u=CreateUnit(p,'h00M',-13205.5,27439.7,353.408)
    set u=CreateUnit(p,'h00M',-13514.2,27440.4,354.96)
    set u=CreateUnit(p,'h00M',-13216.1,27227.9,5.831)
    set u=CreateUnit(p,'h00M',-13524.7,27244.6,3.699)
    set gg_unit_H00G_0758=CreateUnit(p,'H00G',-16039.9,28171.1,275.12)
    call SetHeroLevel(gg_unit_H00G_0758,300,false)
    call SetHeroStr(gg_unit_H00G_0758,880,true)
    call SetHeroAgi(gg_unit_H00G_0758,$410,true)
    call SetHeroInt(gg_unit_H00G_0758,840,true)
    set gg_unit_n00V_0759=CreateUnit(p,'n00V',-15120.2,28194.2,273.61)
    set u=CreateUnit(p,'h00M',-16450.2,26803.7,350.963)
    set u=CreateUnit(p,'h00M',-16141.5,26787.,176.579)
    set u=CreateUnit(p,'h00M',-16439.6,26999.6,350.963)
    set u=CreateUnit(p,'h00M',-16131.,26998.8,176.579)
    set u=CreateUnit(p,'h00M',-16441.8,27202.,350.963)
    set u=CreateUnit(p,'h00M',-16133.1,27201.3,176.579)
    set u=CreateUnit(p,'n00R',-14457.,25380.8,44.43)
    set u=CreateUnit(p,'nvlk',-13646.9,25540.2,148.748)
    set u=CreateUnit(p,'n00Q',-12966.6,25482.,75.39)
    set u=CreateUnit(p,'n00P',-16855.6,24968.7,85.971)
    set u=CreateUnit(p,'n00P',-16634.4,23083.7,348.761)
    set u=CreateUnit(p,'n00P',-16117.9,25498.8,23.347)
    set u=CreateUnit(p,'n00Q',-18417.4,23872.6,210.296)
    set u=CreateUnit(p,'n00P',-19448.8,22596.6,178.08)
    set u=CreateUnit(p,'n034',-20033.7,25257.5,261.941)
    set u=CreateUnit(p,'h00M',-17541.6,21910.9,266.376)
    set u=CreateUnit(p,'n00P',-18556.5,25074.6,359.978)
    set u=CreateUnit(p,'n00P',-18959.5,24720.3,38.267)
    set u=CreateUnit(p,'n00Q',-16448.5,23883.4,51.11)
    set u=CreateUnit(p,'n00T',-14640.7,25759.7,271.805)
    set u=CreateUnit(p,'nvk2',-16274.6,24896.6,80.587)
    set u=CreateUnit(p,'n00R',-15374.,25016.3,178.874)
    set u=CreateUnit(p,'n00Q',-17783.3,23222.4,51.11)
    set gg_unit_n00U_0789=CreateUnit(p,'n00U',-20579.5,25234.8,304.202)
    set u=CreateUnit(p,'n00R',-15455.7,24326.2,343.092)
    set u=CreateUnit(p,'n00R',-18311.6,24237.1,342.696)
    set u=CreateUnit(p,'n00P',-15526.1,25799.8,10.635)
    set u=CreateUnit(p,'n00Q',-12560.,24583.9,169.085)
    set u=CreateUnit(p,'n00Q',-12660.,23261.1,2.736)
    set u=CreateUnit(p,'n00T',-14070.5,25756.3,276.985)
    set u=CreateUnit(p,'n00R',-14811.7,23735.,89.981)
    set u=CreateUnit(p,'n00T',-13489.1,25760.,275.236)
    set u=CreateUnit(p,'n00R',-12813.6,23926.6,248.156)
    set u=CreateUnit(p,'nvlk',-15125.,25433.6,2.571)
    set u=CreateUnit(p,'nvlk',-13674.3,23280.,127.193)
    set u=CreateUnit(p,'nvlk',-15776.5,23068.7,75.138)
    set u=CreateUnit(p,'n00R',-13847.4,23003.6,209.691)
    set u=CreateUnit(p,'n00Q',-20224.2,22607.1,50.374)
    set u=CreateUnit(p,'n00R',-20061.4,23703.8,129.785)
    set gg_unit_n027_0834=CreateUnit(p,'n027',-17541.4,25221.3,276.784)
    set gg_unit_n001_0837=CreateUnit(p,'n001',-17621.3,24233.9,280.642)
    set u=CreateUnit(p,'n00Q',9546.9,15413.6,274.018)
    set u=CreateUnit(p,'nvk2',11129.7,15521.4,248.551)
    set u=CreateUnit(p,'n00R',11525.8,16061.4,64.876)
    set u=CreateUnit(p,'nvk2',11289.2,15921.9,275.348)
    set u=CreateUnit(p,'nvlk',12017.3,15570.6,28.412)
    set u=CreateUnit(p,'n00Q',11249.1,15700.1,25.94)
    set u=CreateUnit(p,'n00Q',12863.7,15994.7,274.018)
    set u=CreateUnit(p,'nvk2',12643.2,14444.4,248.551)
    set u=CreateUnit(p,'n00R',13039.3,14984.4,64.876)
    set u=CreateUnit(p,'nvk2',12802.7,14845.,275.348)
    set u=CreateUnit(p,'nvlk',13530.8,14493.6,28.412)
    set u=CreateUnit(p,'n00Q',12762.6,14623.1,25.94)
    set u=CreateUnit(p,'n00Q',13157.9,15311.8,274.018)
    set u=CreateUnit(p,'n00P',10129.,16192.4,85.971)
    set u=CreateUnit(p,'n00P',8854.3,16608.5,85.971)
    set u=CreateUnit(p,'n00P',11711.7,18271.6,85.971)
    set u=CreateUnit(p,'n00P',11705.1,19882.2,85.971)
    set u=CreateUnit(p,'n00P',9208.8,20136.5,85.971)
    set u=CreateUnit(p,'n00P',13015.8,19738.1,85.971)
    set u=CreateUnit(p,'n00Q',12930.8,20734.1,274.018)
    set u=CreateUnit(p,'n00Q',11428.9,20870.1,274.018)
    set u=CreateUnit(p,'n00Q',11354.3,18750.6,274.018)
    set u=CreateUnit(p,'n00Q',9388.3,19799.2,274.018)
    set u=CreateUnit(p,'n00Q',10466.6,18768.2,274.018)
    set u=CreateUnit(p,'n00Q',12909.5,18795.2,274.018)
    set u=CreateUnit(p,'n00Q',14532.4,19847.2,274.018)
    set u=CreateUnit(p,'n001',10398.3,16328.5,280.642)
    set u=CreateUnit(p,'n027',12360.8,16144.2,264.504)
endfunction

function CreateUnitsForPlayer11 takes nothing returns nothing
    local player p=Player($B)
    local unit u
    local integer unitID
    local trigger t
    local real life
    set gg_unit_n035_0003=CreateUnit(p,'n035',-13905.6,-29553.1,270.16)
    set u=CreateUnit(p,'n04C',18234.8,-13851.3,278.88)
    set u=CreateUnit(p,'n04C',18543.,-13794.4,278.88)
    set u=CreateUnit(p,'uubs',-3951.6,-9046.8,282.48)
    set gg_unit_n033_0007=CreateUnit(p,'n033',2329.8,-21093.3,273.83)
    set u=CreateUnit(p,'n04C',18927.1,-11727.6,272.063)
    set gg_unit_n039_0040=CreateUnit(p,'n039',3620.,-21218.3,197.582)
    call SetUnitState(gg_unit_n039_0040,UNIT_STATE_MANA,0)
    set gg_unit_n02Y_0270=CreateUnit(p,'n02Y',24941.9,-19456.1,270.9)
    set gg_unit_hpa1_0272=CreateUnit(p,'hpa1',-18269.3,1638.7,275.99)
    set gg_unit_hmpr_0313=CreateUnit(p,'hmpr',16591.8,8920.5,82.099)
    call SetUnitState(gg_unit_hmpr_0313,UNIT_STATE_MANA,0)
    set gg_unit_hsor_0314=CreateUnit(p,'hsor',17091.9,11154.7,8.79)
    call SetUnitColor(gg_unit_hsor_0314,ConvertPlayerColor(6))
    set gg_unit_h01T_0350=CreateUnit(p,'h01T',21507.3,3834.2,265.53)
    call SetUnitColor(gg_unit_h01T_0350,ConvertPlayerColor($B))
    set gg_unit_n039_0547=CreateUnit(p,'n039',2368.3,-19941.2,262.702)
    call SetUnitState(gg_unit_n039_0547,UNIT_STATE_MANA,0)
    set gg_unit_n039_0548=CreateUnit(p,'n039',965.6,-21157.3,355.068)
    call SetUnitState(gg_unit_n039_0548,UNIT_STATE_MANA,0)
    set gg_unit_n039_0549=CreateUnit(p,'n039',2304.,-22518.1,90.289)
    call SetUnitState(gg_unit_n039_0549,UNIT_STATE_MANA,0)
    set gg_unit_n03B_0550=CreateUnit(p,'n03B',-7162.9,-21664.2,274.88)
    set gg_unit_n02V_0560=CreateUnit(p,'n02V',-3246.8,-14355.8,272.536)
    set u=CreateUnit(p,'n02M',14871.8,6028.4,89.77)
    set gg_unit_n03H_0776=CreateUnit(p,'n03H',-27226.8,-29491.4,226.04)
    set gg_unit_n03G_0815=CreateUnit(p,'n03G',20509.,-1826.7,271.19)
    set u=CreateUnit(p,'n04C',18903.6,-12725.5,86.475)
    set u=CreateUnit(p,'n04C',19115.6,-12401.5,174.28)
    set u=CreateUnit(p,'n04M',12828.1,-14480.5,5.388)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',19102.5,-11942.4,174.28)
    set u=CreateUnit(p,'n04C',18941.,-12213.9,174.28)
    set u=CreateUnit(p,'n03F',12636.5,26811.6,276.94)
    set u=CreateUnit(p,'n04M',19549.7,-10200.3,194.569)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',17747.1,-12662.1,354.695)
    set u=CreateUnit(p,'n03X',18004.2,-11131.9,283.343)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',18363.7,-11109.,266.832)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'uaco',-5517.8,-9019.2,15.76)
    set u=CreateUnit(p,'uaco',-3907.7,-7371.,271.321)
    set u=CreateUnit(p,'uaco',-2321.2,-9060.5,190.14)
    set u=CreateUnit(p,'uaco',-3955.7,-10785.6,90.134)
    set u=CreateUnit(p,'n042',2799.3,-13673.3,261.85)
    set u=CreateUnit(p,'n03X',17461.,-12264.6,335.063)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',17296.2,-12795.5,344.49)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',16138.4,-11044.2,44.84)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',17295.5,-9784.,329.602)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set gg_unit_ufro_1583=CreateUnit(p,'ufro',-12707.2,-30815.9,315.051)
    set gg_unit_ufro_1584=CreateUnit(p,'ufro',-13949.4,-27460.3,260.869)
    set gg_unit_ufro_1585=CreateUnit(p,'ufro',-15308.5,-30808.4,46.296)
    set u=CreateUnit(p,'n03X',18211.6,-11218.4,266.832)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',18065.9,-11397.,285.724)
    set u=CreateUnit(p,'n04C',18308.4,-11413.2,261.468)
    set u=CreateUnit(p,'n04M',19522.4,-12270.,174.897)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',17627.,-12448.,344.61)
    set u=CreateUnit(p,'n04C',17565.7,-12810.,.351)
    set u=CreateUnit(p,'n04C',19250.6,-9869.4,208.151)
    set u=CreateUnit(p,'n04C',19262.4,-10553.8,160.312)
    set u=CreateUnit(p,'n04C',19557.2,-10385.3,174.28)
    set u=CreateUnit(p,'n04C',19538.9,-10058.1,174.28)
    set u=CreateUnit(p,'n04C',19276.2,-10219.,184.22)
    set u=CreateUnit(p,'n03X',19411.6,-10350.1,197.48)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',19404.2,-10073.8,197.48)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',15302.3,-12245.8,42.924)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',15718.2,-12550.,79.401)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',15387.4,-11928.4,61.949)
    set u=CreateUnit(p,'n04M',15462.3,-12689.,62.993)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',15591.,-12137.3,57.783)
    set u=CreateUnit(p,'n04C',15947.4,-12270.,65.439)
    set u=CreateUnit(p,'n04M',15252.4,-12549.9,62.993)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',15457.2,-12407.9,42.924)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',16149.5,-10785.,65.439)
    set u=CreateUnit(p,'n04C',16634.,-10962.5,65.439)
    set u=CreateUnit(p,'n04C',16392.2,-10872.,65.439)
    set u=CreateUnit(p,'n04C',16498.3,-10610.1,65.439)
    set u=CreateUnit(p,'n04C',17690.9,-9872.1,353.334)
    set u=CreateUnit(p,'n04C',17739.1,-10214.7,24.278)
    set u=CreateUnit(p,'n04C',17898.7,-9621.8,300.224)
    set u=CreateUnit(p,'n03X',17337.5,-10037.1,346.094)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',17446.9,-9596.2,346.094)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04N',13675.4,-9462.7,271.423)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',16445.1,-11152.,121.302)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',17371.3,-12530.7,339.192)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',12780.3,-14852.3,5.388)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13005.8,-14248.,323.236)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',12965.,-14980.2,61.086)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',13046.5,-14676.7,7.592)
    set u=CreateUnit(p,'n04C',13221.6,-14443.9,7.592)
    set u=CreateUnit(p,'n04C',13214.7,-14877.2,7.592)
    set u=CreateUnit(p,'n04C',13118.5,-12978.,272.793)
    set u=CreateUnit(p,'n04C',13339.6,-13002.9,272.793)
    set u=CreateUnit(p,'n04C',13533.,-12983.5,272.793)
    set u=CreateUnit(p,'n04C',13091.5,-12767.3,272.793)
    set u=CreateUnit(p,'n04C',13312.6,-12792.2,272.793)
    set u=CreateUnit(p,'n04C',13505.9,-12772.8,272.793)
    set u=CreateUnit(p,'n03X',13198.8,-12521.9,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13434.8,-12511.1,266.198)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',13132.2,-12199.9,273.907)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',13490.5,-12221.7,255.142)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',13067.9,-10669.8,272.793)
    set u=CreateUnit(p,'n04C',13464.4,-10692.3,272.793)
    set u=CreateUnit(p,'n04C',13824.7,-10696.5,272.793)
    set u=CreateUnit(p,'n04C',13040.9,-10459.1,272.793)
    set u=CreateUnit(p,'n04C',13437.4,-10481.7,272.793)
    set u=CreateUnit(p,'n04C',13797.6,-10485.8,272.793)
    set u=CreateUnit(p,'n04M',14015.7,-9982.2,260.142)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',13284.2,-9992.,273.907)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',14162.9,-10709.9,272.793)
    set u=CreateUnit(p,'n04C',14164.,-10493.6,272.793)
    set u=CreateUnit(p,'n04C',13136.3,-9560.8,272.793)
    set u=CreateUnit(p,'n04C',14164.7,-9566.7,272.793)
    set u=CreateUnit(p,'n04P',15771.5,-14860.9,102.11)
    set u=CreateUnit(p,'n04C',17938.6,-9827.7,300.224)
    set u=CreateUnit(p,'n04C',17867.8,-10048.7,359.235)
    set u=CreateUnit(p,'n04C',16266.9,-10573.,65.439)
    set u=CreateUnit(p,'n04C',16744.6,-10754.3,65.439)
    set u=CreateUnit(p,'n04M',13655.7,-9868.8,273.907)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13253.5,-10242.4,278.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13643.2,-10235.6,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13986.9,-10245.2,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',13996.5,-10723.5,272.793)
    set u=CreateUnit(p,'n04C',13997.5,-10507.2,272.793)
    set u=CreateUnit(p,'n04C',13643.,-10701.9,272.793)
    set u=CreateUnit(p,'n04C',13644.,-10485.7,272.793)
    set u=CreateUnit(p,'n04C',13262.6,-10701.9,272.793)
    set u=CreateUnit(p,'n04C',13263.6,-10485.7,272.793)
    set u=CreateUnit(p,'n03X',13815.7,-10113.8,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13454.2,-10109.3,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
endfunction

function CreateNeutralHostile takes nothing returns nothing
    local player p=Player($C)
    local unit u
    local integer unitID
    local trigger t
    local real life
    set u=CreateUnit(p,'n00Y',26563.9,16520.7,271.528)
    set u=CreateUnit(p,'n007',1418.7,22097.5,83.834)
    set u=CreateUnit(p,'n012',26184.9,17601.4,160.939)
    set u=CreateUnit(p,'n012',26056.5,17612.3,158.871)
    set u=CreateUnit(p,'n012',26102.7,17515.2,154.443)
    set u=CreateUnit(p,'n00Y',20882.,17530.7,210.569)
    set u=CreateUnit(p,'n00Y',20711.2,17548.8,271.427)
    set u=CreateUnit(p,'n00Y',20803.7,17409.5,177.387)
    set u=CreateUnit(p,'n00Y',21615.1,16833.4,337.814)
    set u=CreateUnit(p,'n018',18290.3,-28603.1,156.694)
    set u=CreateUnit(p,'n00Y',21874.8,16942.8,297.674)
    set u=CreateUnit(p,'n00Y',21712.7,16927.8,271.427)
    set u=CreateUnit(p,'n03N',-1003.3,-25672.6,213.67)
    set u=CreateUnit(p,'n006',-2688.5,24351.3,23.146)
    set u=CreateUnit(p,'n006',-2803.6,24348.5,196.362)
    set u=CreateUnit(p,'n005',-2167.3,23545.5,108.945)
    set u=CreateUnit(p,'n005',-2197.8,23431.3,175.298)
    set u=CreateUnit(p,'n006',-1717.3,23827.2,196.362)
    set u=CreateUnit(p,'n006',-2283.,24375.4,196.362)
    set u=CreateUnit(p,'n006',-101.1,23692.7,196.362)
    set u=CreateUnit(p,'n006',89.3,23620.4,58.785)
    set u=CreateUnit(p,'n006',136.3,23820.9,343.487)
    set u=CreateUnit(p,'n006',-1595.6,23819.8,356.566)
    set u=CreateUnit(p,'n004',513.6,20958.1,51.665)
    set u=CreateUnit(p,'n004',506.4,21137.1,323.694)
    set u=CreateUnit(p,'n004',556.5,22823.3,222.075)
    set u=CreateUnit(p,'n004',596.6,22626.8,45.958)
    set u=CreateUnit(p,'n007',1153.4,22072.7,60.528)
    set u=CreateUnit(p,'n00A',2855.2,24892.6,220.994)
    set u=CreateUnit(p,'n007',1632.8,23289.8,359.875)
    set u=CreateUnit(p,'n007',1786.2,23150.,158.313)
    set u=CreateUnit(p,'n009',3081.9,21366.3,166.009)
    set u=CreateUnit(p,'n007',2082.3,24318.7,318.949)
    set u=CreateUnit(p,'n005',-2081.9,23437.1,322.062)
    set u=CreateUnit(p,'n03O',-2562.3,-30835.3,170.861)
    set u=CreateUnit(p,'n03O',-2653.,-31119.7,154.361)
    set u=CreateUnit(p,'n03P',-3234.8,-31084.,100.694)
    set u=CreateUnit(p,'n03P',-3497.7,-31103.1,75.276)
    set u=CreateUnit(p,'n03O',-2508.2,-31007.,170.861)
    set u=CreateUnit(p,'n03P',-5094.9,-31101.4,100.694)
    set u=CreateUnit(p,'n03P',-5700.4,-31090.7,75.276)
    set u=CreateUnit(p,'n03O',-5382.9,-31155.7,94.13)
    set u=CreateUnit(p,'n03O',-5383.9,-30226.6,3.927)
    set u=CreateUnit(p,'n03O',-3632.7,-29720.6,188.356)
    set u=CreateUnit(p,'n03O',-4620.8,-28945.8,264.117)
    set u=CreateUnit(p,'n03O',-4400.1,-29023.4,265.573)
    set u=CreateUnit(p,'n03O',-4198.8,-28863.8,304.329)
    set u=CreateUnit(p,'n03P',-4525.3,-30487.8,88.344)
    set u=CreateUnit(p,'n03O',-3578.1,-29906.1,179.704)
    set u=CreateUnit(p,'n03P',-5349.2,-29395.1,352.838)
    set u=CreateUnit(p,'n03P',-5434.7,-29197.1,92.857)
    set u=CreateUnit(p,'n03P',-4264.2,-30517.3,88.344)
    set u=CreateUnit(p,'n03P',-419.1,-28319.5,196.797)
    set u=CreateUnit(p,'n03P',-520.8,-30576.8,149.034)
    set u=CreateUnit(p,'n03P',-451.1,-28718.9,174.268)
    set u=CreateUnit(p,'n03P',-944.6,-30947.,161.78)
    set u=CreateUnit(p,'n03O',-526.2,-28522.7,176.51)
    set u=CreateUnit(p,'n03O',-2934.7,-27093.6,244.098)
    set u=CreateUnit(p,'n03O',-2682.,-27202.6,219.285)
    set u=CreateUnit(p,'n03P',-3285.,-27796.4,258.386)
    set u=CreateUnit(p,'n03P',-3069.4,-27851.4,245.825)
    set u=CreateUnit(p,'n03P',-5184.9,-27562.3,258.386)
    set u=CreateUnit(p,'n03P',-4969.3,-27617.3,245.825)
    set u=CreateUnit(p,'n03P',-9845.4,-26252.6,313.679)
    set u=CreateUnit(p,'n03P',-8306.4,-26033.,296.906)
    set u=CreateUnit(p,'n03P',-8036.1,-25901.1,310.9)
    set u=CreateUnit(p,'n03O',-10463.7,-26887.3,351.387)
    set u=CreateUnit(p,'n03O',-10355.7,-26707.3,338.752)
    set u=CreateUnit(p,'n03O',-10355.9,-27116.5,4.288)
    set u=CreateUnit(p,'n03P',-10389.6,-27345.7,357.02)
    set u=CreateUnit(p,'n03P',-7692.2,-28646.6,79.54)
    set u=CreateUnit(p,'n03P',-391.7,-27665.5,174.268)
    set u=CreateUnit(p,'n03P',-402.5,-27391.9,196.797)
    set u=CreateUnit(p,'n03P',-6481.8,-27820.,275.243)
    set u=CreateUnit(p,'n03O',-6846.5,-28215.7,117.759)
    set u=CreateUnit(p,'n03O',-7037.5,-28262.4,95.263)
    set u=CreateUnit(p,'n03O',-7387.9,-29727.8,247.059)
    set u=CreateUnit(p,'n03O',-6994.9,-29973.1,217.145)
    set u=CreateUnit(p,'n03P',-5674.2,-26634.7,258.386)
    set u=CreateUnit(p,'n03P',-5345.7,-26644.8,298.274)
    set u=CreateUnit(p,'n03O',-4960.7,-25329.9,297.079)
    set u=CreateUnit(p,'n03O',-5171.1,-25335.2,274.831)
    set u=CreateUnit(p,'n03O',-5374.8,-25301.2,270.831)
    set u=CreateUnit(p,'n03O',-7018.7,-25364.4,297.079)
    set u=CreateUnit(p,'n03O',-7229.1,-25369.7,274.831)
    set u=CreateUnit(p,'n03O',-7436.2,-25383.1,270.831)
    set u=CreateUnit(p,'n03P',-6100.8,-25995.6,286.76)
    set u=CreateUnit(p,'n03P',-6285.1,-26164.8,286.76)
    set u=CreateUnit(p,'n03P',-1594.4,-26611.6,245.825)
    set u=CreateUnit(p,'n03P',-6432.5,-29005.9,239.381)
    set u=CreateUnit(p,'n03P',-1905.8,-26534.4,245.825)
    set u=CreateUnit(p,'n03P',-3544.4,-25413.9,266.73)
    set u=CreateUnit(p,'n03P',-2713.3,-25621.2,287.024)
    set u=CreateUnit(p,'n00C',-3777.7,18537.7,296.685)
    set u=CreateUnit(p,'n00C',-3448.6,18395.8,92.744)
    set u=CreateUnit(p,'n005',-2710.3,22339.5,251.854)
    set u=CreateUnit(p,'n005',-2723.3,22126.1,88.393)
    set u=CreateUnit(p,'n00C',-3611.6,15941.9,93.331)
    set u=CreateUnit(p,'n00C',-3472.7,18541.3,289.583)
    set u=CreateUnit(p,'n00B',21461.4,11541.5,295.825)
    set u=CreateUnit(p,'n00C',-3932.6,18531.6,296.685)
    set u=CreateUnit(p,'n00E',-3483.4,17783.4,139.527)
    set u=CreateUnit(p,'n00C',-3622.8,17875.6,354.347)
    set u=CreateUnit(p,'n00C',-3454.5,17948.3,259.967)
    set u=CreateUnit(p,'n00E',-2431.6,18228.8,146.905)
    set u=CreateUnit(p,'n00E',-2435.6,18420.1,254.199)
    set u=CreateUnit(p,'n00E',-2661.7,18369.3,334.979)
    set u=CreateUnit(p,'n00E',-1647.2,18181.1,54.889)
    set u=CreateUnit(p,'n00E',-1401.,16005.,169.397)
    set u=CreateUnit(p,'n00E',-1573.3,16008.,73.037)
    set u=CreateUnit(p,'n00E',-1498.2,16171.,272.965)
    set u=CreateUnit(p,'n00E',-1822.7,16109.1,2.407)
    set u=CreateUnit(p,'n00E',-1485.6,18196.7,164.625)
    set u=CreateUnit(p,'n00C',-1213.,17916.9,258.556)
    set u=CreateUnit(p,'n00E',-631.9,18562.5,306.713)
    set u=CreateUnit(p,'n00E',-697.1,18448.1,7.566)
    set u=CreateUnit(p,'n00F',-109.,18587.,280.703)
    set u=CreateUnit(p,'n00E',768.1,18603.1,277.197)
    set u=CreateUnit(p,'n00E',-678.1,15840.7,81.158)
    set u=CreateUnit(p,'n00D',1054.6,17175.7,187.043)
    set u=CreateUnit(p,'n00E',1187.6,16381.8,154.855)
    set u=CreateUnit(p,'n00E',1165.3,16647.4,181.833)
    set u=CreateUnit(p,'n02A',15972.,-5373.,323.322)
    set u=CreateUnit(p,'n02A',16344.1,-5466.2,295.328)
    set u=CreateUnit(p,'n02A',17177.5,-6538.6,254.479)
    set u=CreateUnit(p,'n02B',16158.4,-6999.7,98.581)
    set u=CreateUnit(p,'n02A',16120.,-6410.8,337.63)
    set u=CreateUnit(p,'n00H',-4701.,11392.4,327.316)
    set u=CreateUnit(p,'n00H',-4483.,11514.8,250.279)
    set u=CreateUnit(p,'n00H',-4524.8,11155.3,84.215)
    set u=CreateUnit(p,'n00H',-6181.4,12406.4,327.316)
    set u=CreateUnit(p,'n00H',-6064.4,12455.,250.279)
    set u=CreateUnit(p,'n00H',-6074.3,12169.5,84.215)
    set u=CreateUnit(p,'n00H',-6663.6,9420.,82.674)
    set u=CreateUnit(p,'n00H',-6211.3,9453.3,96.72)
    set u=CreateUnit(p,'n00H',-6421.,9380.2,84.215)
    set u=CreateUnit(p,'n00H',-4808.1,9560.4,62.458)
    set u=CreateUnit(p,'n00H',-4579.8,9602.7,120.662)
    set u=CreateUnit(p,'n00H',-4678.1,9478.6,89.995)
    set u=CreateUnit(p,'n00H',-3358.9,9698.9,164.127)
    set u=CreateUnit(p,'n00H',-3242.,9747.6,250.279)
    set u=CreateUnit(p,'n00H',-3293.7,9549.8,84.215)
    set u=CreateUnit(p,'n00J',-4797.2,9365.1,85.39)
    set u=CreateUnit(p,'n00J',-4553.8,9387.5,102.26)
    set u=CreateUnit(p,'n00J',-1831.4,12957.2,271.144)
    set u=CreateUnit(p,'n00H',-2251.5,10403.7,277.708)
    set u=CreateUnit(p,'n00H',-2306.2,10282.9,356.008)
    set u=CreateUnit(p,'n00H',-2161.5,10320.1,177.584)
    set u=CreateUnit(p,'n00H',-2209.4,11629.1,250.279)
    set u=CreateUnit(p,'n00H',1809.9,9895.3,90.683)
    set u=CreateUnit(p,'n00H',1546.,9899.6,58.027)
    set u=CreateUnit(p,'n018',17108.3,-28599.1,132.181)
    set u=CreateUnit(p,'n018',16191.1,-28877.6,213.644)
    set u=CreateUnit(p,'n018',16494.6,-27125.8,295.635)
    set u=CreateUnit(p,'n018',16921.1,-27283.9,224.943)
    set u=CreateUnit(p,'n019',16777.3,-27080.,253.424)
    set u=CreateUnit(p,'n019',16961.6,-30264.5,142.569)
    set u=CreateUnit(p,'n019',16832.3,-30375.,132.295)
    set u=CreateUnit(p,'n018',17048.2,-30080.4,163.783)
    set u=CreateUnit(p,'n019',18180.9,-31061.2,159.175)
    set u=CreateUnit(p,'n019',17966.8,-31092.8,93.051)
    set u=CreateUnit(p,'n019',17969.2,-30794.1,189.825)
    set u=CreateUnit(p,'n018',18122.8,-30494.8,255.043)
    set u=CreateUnit(p,'n03O',-873.6,-30689.,144.818)
    set u=CreateUnit(p,'n018',15753.4,-27407.4,310.886)
    set u=CreateUnit(p,'n018',15945.9,-27318.,292.086)
    set u=CreateUnit(p,'n018',17354.2,-28103.,156.694)
    set u=CreateUnit(p,'n018',17414.1,-27912.8,174.874)
    set u=CreateUnit(p,'n018',16236.,-29087.1,202.329)
    set u=CreateUnit(p,'n019',18240.,-29984.4,92.076)
    set u=CreateUnit(p,'n018',18350.2,-28412.9,174.874)
    set u=CreateUnit(p,'n019',18406.1,-28574.4,184.182)
    set u=CreateUnit(p,'n01C',19483.5,-29142.2,141.856)
    set u=CreateUnit(p,'n01C',19341.7,-29349.9,110.8)
    set u=CreateUnit(p,'n018',15115.5,-28541.3,322.855)
    set u=CreateUnit(p,'n018',15203.8,-28419.9,310.224)
    set u=CreateUnit(p,'n018',18374.7,-29941.1,84.672)
    set u=CreateUnit(p,'n018',18103.2,-29893.6,90.384)
    set u=CreateUnit(p,'n01C',21508.9,-30318.8,210.162)
    set u=CreateUnit(p,'n01C',21611.9,-30538.,164.274)
    set u=CreateUnit(p,'n01C',22221.6,-29674.9,101.201)
    set u=CreateUnit(p,'n01C',22386.1,-29952.2,31.859)
    set u=CreateUnit(p,'n01C',23364.7,-29178.7,207.138)
    set u=CreateUnit(p,'n01C',23184.1,-29636.7,126.925)
    set u=CreateUnit(p,'n01B',23519.8,-29515.7,167.225)
    set u=CreateUnit(p,'n01C',22538.3,-30855.6,121.858)
    set u=CreateUnit(p,'n01C',22307.4,-30874.4,64.162)
    set u=CreateUnit(p,'n01C',20153.2,-30499.1,12.207)
    set u=CreateUnit(p,'n01C',20496.9,-30449.7,206.704)
    set u=CreateUnit(p,'n01C',21619.5,-31084.5,101.976)
    set u=CreateUnit(p,'n01C',21353.1,-31113.,69.983)
    set u=CreateUnit(p,'n01C',21015.6,-28324.,293.921)
    set u=CreateUnit(p,'n01C',21354.8,-28388.5,213.729)
    set u=CreateUnit(p,'n01C',21080.8,-29681.8,181.449)
    set u=CreateUnit(p,'n01C',21058.9,-29852.6,150.495)
    set u=CreateUnit(p,'n01C',20974.5,-29538.,210.955)
    set u=CreateUnit(p,'n01C',20356.4,-28209.6,322.692)
    set u=CreateUnit(p,'n01C',20113.2,-28336.,16.623)
    set u=CreateUnit(p,'n019',16394.1,-28314.2,116.579)
    set u=CreateUnit(p,'n018',16577.5,-28243.6,255.572)
    set u=CreateUnit(p,'n018',16237.3,-28225.1,223.293)
    set u=CreateUnit(p,'n018',16438.6,-28108.4,293.706)
    set u=CreateUnit(p,'n01C',19280.1,-30829.,97.592)
    set u=CreateUnit(p,'n01C',18857.8,-30642.9,29.261)
    set u=CreateUnit(p,'n01C',19080.7,-30771.5,11.186)
    set u=CreateUnit(p,'n01C',19078.6,-30544.2,38.681)
    set u=CreateUnit(p,'n01E',23172.9,-30606.6,153.923)
    set u=CreateUnit(p,'n01C',20985.9,-28632.2,24.458)
    set u=CreateUnit(p,'n01C',21391.,-28601.3,191.172)
    set u=CreateUnit(p,'n01C',20357.2,-30750.8,96.356)
    set u=CreateUnit(p,'n01C',23112.,-29316.2,356.986)
    set u=CreateUnit(p,'n01B',21577.7,-27269.3,293.835)
    set u=CreateUnit(p,'n01B',22367.,-27897.2,177.985)
    set u=CreateUnit(p,'n01B',23095.3,-27274.9,181.612)
    set u=CreateUnit(p,'n01B',24469.8,-28443.9,143.468)
    set u=CreateUnit(p,'n01B',24001.5,-28720.7,126.669)
    set u=CreateUnit(p,'n01D',26291.2,-26711.3,263.573)
    set u=CreateUnit(p,'e01B',9311.6,-24006.2,265.336)
    set u=CreateUnit(p,'h00P',1772.2,-26762.7,260.484)
    set u=CreateUnit(p,'h00P',2677.4,-27763.5,184.544)
    set u=CreateUnit(p,'h00P',3131.4,-26213.4,272.239)
    set u=CreateUnit(p,'h00P',3899.1,-27434.6,175.333)
    set u=CreateUnit(p,'h00P',9425.4,-24180.5,248.188)
    set u=CreateUnit(p,'h00P',9515.5,-24010.3,246.316)
    set u=CreateUnit(p,'h00P',5434.6,-30629.1,75.573)
    set u=CreateUnit(p,'h00P',5525.6,-30457.9,228.799)
    set u=CreateUnit(p,'h00P',5686.5,-24707.2,89.733)
    set u=CreateUnit(p,'e01B',5587.2,-24963.4,75.497)
    set u=CreateUnit(p,'e01B',5585.8,-24846.9,123.633)
    set u=CreateUnit(p,'h00P',5063.3,-25752.9,105.088)
    set u=CreateUnit(p,'e01B',5229.9,-25919.4,95.656)
    set u=CreateUnit(p,'h00P',2447.1,-27780.4,323.013)
    set u=CreateUnit(p,'h00P',2573.7,-27964.,100.786)
    set u=CreateUnit(p,'e01B',3396.9,-31090.3,272.348)
    set u=CreateUnit(p,'h00P',3484.1,-31267.3,51.54)
    set u=CreateUnit(p,'h00R',9133.8,-30391.5,190.789)
    set u=CreateUnit(p,'h00P',3600.8,-31094.3,197.187)
    set u=CreateUnit(p,'h00P',3306.8,-31218.3,51.54)
    set u=CreateUnit(p,'h00P',1881.1,-28959.5,184.544)
    set u=CreateUnit(p,'h00P',8106.7,-24394.9,299.844)
    set u=CreateUnit(p,'h00R',7336.3,-29354.2,83.901)
    set u=CreateUnit(p,'e01B',8987.1,-25494.8,246.491)
    set u=CreateUnit(p,'h00P',8971.8,-25363.,299.844)
    set u=CreateUnit(p,'h00P',9190.8,-25370.2,243.924)
    set u=CreateUnit(p,'e01B',9142.9,-25553.7,145.358)
    set u=CreateUnit(p,'h00S',9205.6,-29015.6,181.284)
    set u=CreateUnit(p,'h00S',9213.5,-29427.9,180.882)
    set u=CreateUnit(p,'h00S',10031.,-29214.4,194.488)
    set u=CreateUnit(p,'h00S',11338.4,-28851.2,181.284)
    set u=CreateUnit(p,'h00S',11326.6,-29534.8,172.509)
    set u=CreateUnit(p,'h00S',12083.6,-28830.9,221.625)
    set u=CreateUnit(p,'h00S',12075.8,-29595.7,172.509)
    set u=CreateUnit(p,'h00S',12927.7,-28874.6,174.527)
    set u=CreateUnit(p,'h00S',12934.8,-29575.,189.341)
    set u=CreateUnit(p,'h00S',10812.7,-27984.8,271.624)
    set u=CreateUnit(p,'h00S',11942.3,-27765.5,271.624)
    set u=CreateUnit(p,'h00T',12958.1,-29255.5,184.484)
    set u=CreateUnit(p,'n01F',23616.7,-13047.5,205.68)
    set u=CreateUnit(p,'n01F',22849.6,-14215.1,186.207)
    set u=CreateUnit(p,'n01F',23559.1,-14959.1,271.478)
    set u=CreateUnit(p,'n01F',23465.8,-15018.2,13.19)
    set u=CreateUnit(p,'n01F',22245.3,-11467.2,79.093)
    set u=CreateUnit(p,'n01F',22283.,-11638.1,274.252)
    set u=CreateUnit(p,'n01F',21709.4,-12916.4,79.093)
    set u=CreateUnit(p,'n01F',23084.5,-12890.7,320.33)
    set u=CreateUnit(p,'n01F',23022.7,-13011.4,355.813)
    set u=CreateUnit(p,'n01F',23692.6,-13185.4,190.863)
    set u=CreateUnit(p,'n00B',26832.5,11655.9,185.465)
    set u=CreateUnit(p,'n00B',26826.7,11105.6,170.994)
    set u=CreateUnit(p,'n01G',22246.5,-9581.4,99.202)
    set u=CreateUnit(p,'n01G',22096.5,-9778.5,178.055)
    set u=CreateUnit(p,'n01G',23487.9,-10917.4,234.44)
    set u=CreateUnit(p,'h00P',1433.1,-26971.3,323.273)
    set u=CreateUnit(p,'n01G',21636.6,-13788.1,18.759)
    set u=CreateUnit(p,'n01F',25875.7,-11495.,324.896)
    set u=CreateUnit(p,'n01F',25856.4,-11728.5,27.681)
    set u=CreateUnit(p,'n01G',27142.5,-10510.8,136.244)
    set u=CreateUnit(p,'n01G',24418.1,-14197.5,126.689)
    set u=CreateUnit(p,'n01G',22797.2,-14094.4,199.153)
    set u=CreateUnit(p,'n002',26124.5,12600.7,265.159)
    set u=CreateUnit(p,'n002',26303.7,12600.,272.145)
    set u=CreateUnit(p,'n002',24341.5,9777.4,176.515)
    set u=CreateUnit(p,'n01H',25508.8,-10641.,180.972)
    set u=CreateUnit(p,'n00B',24218.3,9596.4,166.065)
    set u=CreateUnit(p,'n00B',24204.2,9923.3,184.439)
    set u=CreateUnit(p,'n01G',21551.9,-7670.3,125.129)
    set u=CreateUnit(p,'n01H',23503.3,-8641.7,256.028)
    set u=CreateUnit(p,'n01H',25199.3,-8530.,278.283)
    set u=CreateUnit(p,'n01G',25086.7,-8720.9,300.122)
    set u=CreateUnit(p,'n01H',23474.7,-8316.2,204.718)
    set u=CreateUnit(p,'n01G',25678.6,-13715.7,206.831)
    set u=CreateUnit(p,'n01G',25634.1,-13435.7,186.775)
    set u=CreateUnit(p,'n01I',21872.7,-9070.3,314.344)
    set u=CreateUnit(p,'n01J',24244.,-11756.1,278.426)
    set u=CreateUnit(p,'n00B',21078.7,10757.2,27.166)
    set u=CreateUnit(p,'n01G',21564.2,-10733.4,327.369)
    set u=CreateUnit(p,'n00Y',26570.,16603.,210.127)
    set u=CreateUnit(p,'n015',25763.2,17978.3,181.908)
    set u=CreateUnit(p,'n03P',-1329.5,-29766.9,100.694)
    set u=CreateUnit(p,'n010',23783.6,18425.9,78.077)
    set u=CreateUnit(p,'n012',22126.7,15714.9,351.94)
    set u=CreateUnit(p,'n00Y',18005.1,15977.6,99.915)
    set u=CreateUnit(p,'n00Y',17837.9,16051.6,91.826)
    set u=CreateUnit(p,'n00X',19830.,18506.2,106.891)
    set u=CreateUnit(p,'n03P',-1806.9,-30149.7,38.803)
    set u=CreateUnit(p,'n00X',19925.2,18533.5,221.6)
    set u=CreateUnit(p,'n00Z',18993.2,20316.5,292.394)
    set u=CreateUnit(p,'n011',18645.2,18717.3,333.461)
    set u=CreateUnit(p,'n00Z',18871.1,20225.3,319.473)
    set u=CreateUnit(p,'n010',21087.5,18829.7,278.959)
    set u=CreateUnit(p,'n013',20999.,18750.4,27.652)
    set u=CreateUnit(p,'n013',23818.3,16640.8,175.627)
    set u=CreateUnit(p,'n013',23564.9,19495.9,309.619)
    set u=CreateUnit(p,'n013',23469.8,19515.3,51.837)
    set u=CreateUnit(p,'n011',21550.6,14863.1,194.346)
    set u=CreateUnit(p,'n011',21677.5,14692.1,209.99)
    set u=CreateUnit(p,'n02H',26349.8,28446.,231.796)
    set u=CreateUnit(p,'n012',20105.8,16625.1,105.379)
    set u=CreateUnit(p,'n012',20193.7,16491.8,123.155)
    set u=CreateUnit(p,'n012',20057.2,16472.5,100.648)
    set u=CreateUnit(p,'n013',23541.3,19377.6,34.878)
    set u=CreateUnit(p,'n010',26746.,17169.8,183.065)
    set u=CreateUnit(p,'n010',26838.2,17105.5,178.808)
    set u=CreateUnit(p,'n02H',26541.2,28418.1,184.497)
    set u=CreateUnit(p,'n02H',26281.7,28644.,231.796)
    set u=CreateUnit(p,'n02H',25063.,28263.,231.796)
    set u=CreateUnit(p,'n02H',25233.9,28522.4,184.497)
    set u=CreateUnit(p,'n02H',24935.7,28586.6,231.796)
    set u=CreateUnit(p,'n02I',24830.3,28287.9,307.896)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02J',23953.8,27289.5,303.001)
    set u=CreateUnit(p,'n02J',23907.5,27444.9,171.439)
    set u=CreateUnit(p,'n02H',21907.8,28693.6,231.796)
    set u=CreateUnit(p,'n02I',21687.8,28795.2,274.413)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02H',21514.5,28678.1,231.796)
    set u=CreateUnit(p,'n02J',23075.1,28461.4,171.439)
    set u=CreateUnit(p,'n02H',22867.2,28601.6,231.796)
    set u=CreateUnit(p,'n02H',22965.9,28383.7,128.959)
    set u=CreateUnit(p,'n02J',20904.7,26785.2,248.928)
    set u=CreateUnit(p,'h014',26528.3,26634.1,179.186)
    set u=CreateUnit(p,'n02H',21001.6,26602.9,262.01)
    set u=CreateUnit(p,'n02H',20751.1,26710.4,297.497)
    set u=CreateUnit(p,'n02H',19465.,28542.3,189.212)
    set u=CreateUnit(p,'n02H',19551.5,28257.6,92.244)
    set u=CreateUnit(p,'n02H',19192.8,28372.6,356.34)
    set u=CreateUnit(p,'n02I',20931.4,24915.5,177.038)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02H',20931.4,24788.7,109.724)
    set u=CreateUnit(p,'n02I',18660.6,24550.,31.231)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02H',18682.1,24732.3,355.827)
    set u=CreateUnit(p,'n02H',18902.2,24523.7,104.164)
    set u=CreateUnit(p,'n02H',18894.,24680.6,355.827)
    set u=CreateUnit(p,'n02J',19629.7,27398.7,248.928)
    set u=CreateUnit(p,'n02H',19726.6,27216.5,262.01)
    set u=CreateUnit(p,'n02H',19476.1,27323.9,297.497)
    set u=CreateUnit(p,'n02H',18648.5,27929.9,297.497)
    set u=CreateUnit(p,'n02H',18900.4,27826.2,297.497)
    set u=CreateUnit(p,'n02H',18637.3,27659.1,297.497)
    set u=CreateUnit(p,'n02J',19895.8,25072.8,96.668)
    set u=CreateUnit(p,'n02H',20121.,25279.4,177.27)
    set u=CreateUnit(p,'n02H',19681.5,25211.,297.497)
    set u=CreateUnit(p,'n02I',20777.3,24660.,177.038)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02J',22212.,25943.,248.928)
    set u=CreateUnit(p,'n02H',22309.,25760.8,262.01)
    set u=CreateUnit(p,'n02H',22058.5,25868.2,297.497)
    set u=CreateUnit(p,'n02I',22170.7,25666.4,163.263)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02H',23175.,24647.,109.724)
    set u=CreateUnit(p,'h01L',7136.3,-8897.1,89.905)
    set u=CreateUnit(p,'h01L',6891.,-8886.4,37.895)
    set u=CreateUnit(p,'h01L',6799.8,-8677.3,4.191)
    set u=CreateUnit(p,'h01M',7839.9,-8105.6,178.81)
    set u=CreateUnit(p,'h01M',8303.3,-10354.7,100.744)
    set u=CreateUnit(p,'h01M',8610.8,-8878.1,197.535)
    set u=CreateUnit(p,'h01M',8700.4,-9152.,180.086)
    set u=CreateUnit(p,'h01M',7719.6,-7907.8,209.084)
    set u=CreateUnit(p,'h01L',7529.4,-7125.9,282.961)
    set u=CreateUnit(p,'h01L',7098.7,-7390.6,300.115)
    set u=CreateUnit(p,'h01M',8435.1,-6836.8,241.924)
    set u=CreateUnit(p,'h01M',8158.,-6788.9,281.518)
    set u=CreateUnit(p,'h01L',9186.3,-8296.6,359.5)
    set u=CreateUnit(p,'h01L',9536.,-10676.6,327.075)
    set u=CreateUnit(p,'h01L',9264.2,-8074.,301.813)
    set u=CreateUnit(p,'h01M',9206.9,-7177.4,4.902)
    set u=CreateUnit(p,'h01M',9668.9,-10036.8,100.061)
    set u=CreateUnit(p,'h01L',9461.7,-6940.3,287.019)
    set u=CreateUnit(p,'h01M',9340.7,-10176.1,86.24)
    set u=CreateUnit(p,'h01M',8288.9,-10936.2,219.07)
    set u=CreateUnit(p,'h01M',7969.8,-10843.3,285.521)
    set u=CreateUnit(p,'h01M',7130.5,-10768.3,353.147)
    set u=CreateUnit(p,'h01M',7002.3,-10487.8,55.911)
    set u=CreateUnit(p,'h01L',8217.1,-11870.4,183.124)
    set u=CreateUnit(p,'h01L',8025.5,-12423.5,224.451)
    set u=CreateUnit(p,'h01M',9535.2,-11495.,143.419)
    set u=CreateUnit(p,'h01M',9068.1,-11619.6,347.707)
    set u=CreateUnit(p,'h01M',8850.,-11594.7,132.433)
    set u=CreateUnit(p,'h01M',8006.2,-11879.,254.028)
    set u=CreateUnit(p,'h01M',6876.6,-11793.9,352.345)
    set u=CreateUnit(p,'n038',8442.8,-14910.1,81.294)
    set u=CreateUnit(p,'h01L',7480.7,-9681.8,280.756)
    set u=CreateUnit(p,'h01L',8010.9,-9638.6,270.766)
    set u=CreateUnit(p,'h01M',7792.6,-9387.8,78.031)
    set u=CreateUnit(p,'n036',6961.3,-13810.9,3.507)
    set u=CreateUnit(p,'n037',7206.3,-12925.7,336.832)
    set u=CreateUnit(p,'n037',9207.3,-12266.2,159.714)
    set u=CreateUnit(p,'n036',9422.5,-12902.7,316.633)
    set u=CreateUnit(p,'n036',10117.5,-13790.2,261.286)
    set u=CreateUnit(p,'n036',10070.8,-15093.3,147.163)
    set u=CreateUnit(p,'n037',10009.5,-14043.9,230.561)
    set u=CreateUnit(p,'n036',8639.3,-13754.3,318.693)
    set u=CreateUnit(p,'n037',7228.1,-14493.2,53.737)
    set u=CreateUnit(p,'n037',6777.5,-14910.2,34.074)
    set u=CreateUnit(p,'h00P',1437.8,-27434.6,64.276)
    set u=CreateUnit(p,'h00P',3746.4,-28506.1,197.187)
    set u=CreateUnit(p,'h00P',3627.2,-28609.9,51.54)
    set u=CreateUnit(p,'e01B',3542.5,-28502.1,331.413)
    set u=CreateUnit(p,'h00P',3900.,-27039.5,175.333)
    set u=CreateUnit(p,'h00P',3561.,-26198.4,272.239)
    set u=CreateUnit(p,'h00P',4764.4,-29897.2,342.814)
    set u=CreateUnit(p,'h00P',4819.9,-29665.8,349.931)
    set u=CreateUnit(p,'n01M',-18145.4,-5536.6,284.602)
    set u=CreateUnit(p,'n01M',-19546.3,-5535.1,260.163)
    set gg_unit_h00V_0527=CreateUnit(p,'h00V',-18821.6,-5348.4,267.2)
    set u=CreateUnit(p,'n01M',-18118.9,-6710.9,284.602)
    set u=CreateUnit(p,'n01M',-19495.9,-6754.5,260.163)
    set gg_unit_n01N_0531=CreateUnit(p,'n01N',-17998.7,-2799.,356.676)
    set gg_unit_n01N_0532=CreateUnit(p,'n01N',-16693.9,-3380.8,127.8)
    set gg_unit_n01N_0533=CreateUnit(p,'n01N',-16710.3,-2214.9,228.986)
    set u=CreateUnit(p,'n01G',26582.9,-9749.,256.925)
    set u=CreateUnit(p,'n02I',23053.,24493.,103.022)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n01G',26844.3,-9874.6,255.882)
    set u=CreateUnit(p,'n010',23749.9,18150.9,95.488)
    set u=CreateUnit(p,'n011',21580.4,14730.3,216.649)
    set u=CreateUnit(p,'n02T',14336.,5949.6,192.13)
    set u=CreateUnit(p,'n02T',14082.5,5645.,95.325)
    set u=CreateUnit(p,'n02U',12711.4,5254.8,198.45)
    set u=CreateUnit(p,'n02U',12462.1,5327.6,315.07)
    set u=CreateUnit(p,'n02U',12612.7,5090.8,273.477)
    set u=CreateUnit(p,'n02T',12416.8,5161.,270.402)
    set u=CreateUnit(p,'n00X',19859.9,18423.9,25.114)
    set u=CreateUnit(p,'n02T',14084.7,4005.8,15.014)
    set u=CreateUnit(p,'n02U',14252.9,3854.3,47.321)
    set u=CreateUnit(p,'n02U',13925.1,3861.,128.028)
    set u=CreateUnit(p,'n00Z',21793.8,17956.4,145.669)
    set u=CreateUnit(p,'n00Z',22891.5,17341.1,197.826)
    set u=CreateUnit(p,'n010',18827.,16164.7,331.461)
    set u=CreateUnit(p,'n02U',14814.4,3061.4,316.616)
    set u=CreateUnit(p,'n02T',14954.3,2689.4,100.693)
    set u=CreateUnit(p,'n02T',14711.9,2642.7,72.736)
    set u=CreateUnit(p,'n02U',15930.3,5449.3,233.244)
    set u=CreateUnit(p,'n02T',15792.7,5570.7,235.797)
    set u=CreateUnit(p,'n02T',15949.8,5595.8,241.075)
    set u=CreateUnit(p,'n02T',16401.,3839.4,293.503)
    set u=CreateUnit(p,'n02T',16267.1,3641.6,52.503)
    set u=CreateUnit(p,'n011',18639.8,18545.2,339.683)
    set u=CreateUnit(p,'n00Z',18789.1,20139.4,319.473)
    set u=CreateUnit(p,'n011',18575.2,18627.6,344.884)
    set u=CreateUnit(p,'n011',19053.4,19484.,344.156)
    set u=CreateUnit(p,'n02A',15653.2,-7035.8,75.714)
    set u=CreateUnit(p,'n02B',14900.6,-6575.,211.84)
    set u=CreateUnit(p,'n02B',13704.4,-5482.,286.414)
    set u=CreateUnit(p,'n02B',13421.5,-5562.7,317.001)
    set u=CreateUnit(p,'n02B',13345.2,-6071.5,352.969)
    set u=CreateUnit(p,'n02B',14404.5,-3106.5,300.563)
    set u=CreateUnit(p,'n02B',14024.,-3189.1,277.359)
    set u=CreateUnit(p,'n02A',14295.7,-3251.2,301.061)
    set u=CreateUnit(p,'n02A',13556.7,-6743.1,58.512)
    set u=CreateUnit(p,'n02A',13280.1,-6508.4,33.142)
    set u=CreateUnit(p,'h00Y',15231.8,846.7,279.608)
    set u=CreateUnit(p,'n00J',-2165.5,12990.1,278.075)
    set u=CreateUnit(p,'n00H',-2977.1,12663.,278.67)
    set u=CreateUnit(p,'n00H',535.5,12785.7,288.979)
    set u=CreateUnit(p,'n00J',2444.3,12835.9,283.55)
    set u=CreateUnit(p,'n00I',2559.6,12700.2,256.629)
    set u=CreateUnit(p,'n00H',2347.3,12685.5,283.456)
    set u=CreateUnit(p,'n00J',661.7,10942.4,92.459)
    set u=CreateUnit(p,'n00J',893.2,11093.4,261.71)
    set u=CreateUnit(p,'n00M',-2445.6,11302.9,174.002)
    set u=CreateUnit(p,'n00H',-2700.,11563.4,84.215)
    set u=CreateUnit(p,'n00J',313.8,9896.9,268.894)
    set u=CreateUnit(p,'n00J',200.8,9985.6,87.553)
    set u=CreateUnit(p,'n00J',375.7,10001.3,37.757)
    set u=CreateUnit(p,'nsea',-12656.1,29010.4,270.)
    set u=CreateUnit(p,'n00O',2944.8,11159.9,353.011)
    set u=CreateUnit(p,'n04E',-14589.3,29058.2,274.83)
    set u=CreateUnit(p,'h010',20622.,5957.7,53.131)
    set u=CreateUnit(p,'n00B',21133.3,11029.3,17.698)
    set u=CreateUnit(p,'n002',20652.3,9607.5,322.083)
    set u=CreateUnit(p,'n002',22106.2,10265.3,105.149)
    set u=CreateUnit(p,'n02H',22888.4,24542.3,65.645)
    set u=CreateUnit(p,'n02H',26909.8,25124.7,184.497)
    set u=CreateUnit(p,'n002',22010.2,10130.3,105.149)
    set u=CreateUnit(p,'n002',23071.1,11720.4,231.391)
    set u=CreateUnit(p,'n00B',21568.1,8166.1,65.399)
    set u=CreateUnit(p,'n00B',21851.8,8335.1,105.035)
    set u=CreateUnit(p,'n02H',26514.,24547.9,109.893)
    set u=CreateUnit(p,'n02H',26840.9,24710.3,153.929)
    set u=CreateUnit(p,'n02H',26697.2,24579.6,153.929)
    set u=CreateUnit(p,'n00B',24247.5,11449.9,51.408)
    set u=CreateUnit(p,'n00B',24393.,11311.9,179.213)
    set u=CreateUnit(p,'n00B',24146.9,11198.5,51.408)
    set u=CreateUnit(p,'n002',23188.5,11409.6,168.817)
    set u=CreateUnit(p,'n002',23181.,11001.7,227.)
    set u=CreateUnit(p,'n002',23234.2,10776.,176.116)
    set u=CreateUnit(p,'n002',25382.7,12355.1,264.756)
    set u=CreateUnit(p,'n00B',25002.7,11531.2,137.712)
    set u=CreateUnit(p,'n002',21152.8,11270.9,5.501)
    set u=CreateUnit(p,'n01C',18377.5,-27458.1,198.211)
    set u=CreateUnit(p,'n01C',18415.7,-27670.6,172.572)
    set u=CreateUnit(p,'n018',17744.2,-27384.,195.553)
    set u=CreateUnit(p,'n018',17864.4,-27678.1,172.43)
    set u=CreateUnit(p,'n00H',-193.3,10546.1,278.08)
    set u=CreateUnit(p,'n00B',25481.3,10736.7,261.053)
    set u=CreateUnit(p,'n00B',25344.4,9741.2,46.042)
    set u=CreateUnit(p,'n00B',25791.3,10897.2,295.186)
    set u=CreateUnit(p,'n00B',25549.1,9532.2,46.042)
    set u=CreateUnit(p,'n00B',26252.5,9633.9,136.316)
    set u=CreateUnit(p,'n00B',26355.4,9875.,136.062)
    set u=CreateUnit(p,'n02A',16021.5,-3353.1,190.354)
    set u=CreateUnit(p,'n00B',25728.9,11645.6,51.408)
    set u=CreateUnit(p,'n002',25199.8,12333.8,297.191)
    set u=CreateUnit(p,'n002',20593.3,9010.3,11.179)
    set u=CreateUnit(p,'n002',20618.1,7781.8,339.103)
    set u=CreateUnit(p,'n002',20610.7,7628.3,339.103)
    set u=CreateUnit(p,'n00B',21672.,6409.7,154.982)
    set u=CreateUnit(p,'n00B',21894.5,6551.9,133.836)
    set u=CreateUnit(p,'n002',19968.3,6448.9,339.103)
    set u=CreateUnit(p,'n002',19935.,6280.5,339.103)
    set u=CreateUnit(p,'n002',21189.9,5508.1,133.001)
    set u=CreateUnit(p,'n002',21314.,5599.7,141.632)
    set u=CreateUnit(p,'n00B',23006.5,6995.6,154.982)
    set u=CreateUnit(p,'n00B',23068.8,7118.7,156.262)
    set u=CreateUnit(p,'n00B',22905.3,6909.3,110.017)
    set u=CreateUnit(p,'n00B',23173.3,8568.7,261.876)
    set u=CreateUnit(p,'n00B',23430.,8481.,207.394)
    set u=CreateUnit(p,'n007',2271.6,24125.3,124.007)
    set u=CreateUnit(p,'n007',2679.8,24993.3,247.52)
    set u=CreateUnit(p,'n007',2982.6,24712.8,198.144)
    set u=CreateUnit(p,'n007',2375.3,21270.7,98.458)
    set u=CreateUnit(p,'n007',2531.4,21299.5,120.446)
    set u=CreateUnit(p,'n007',2400.9,22455.2,264.065)
    set u=CreateUnit(p,'n007',2260.3,22200.5,30.037)
    set u=CreateUnit(p,'n007',2540.1,22250.7,150.01)
    set u=CreateUnit(p,'n007',1793.5,20932.8,87.514)
    set u=CreateUnit(p,'n007',1130.3,23930.3,272.144)
    set u=CreateUnit(p,'n007',1411.2,23881.7,232.825)
    set u=CreateUnit(p,'n007',1241.5,23869.4,267.437)
    set gg_unit_h01F_0728=CreateUnit(p,'h01F',19951.2,-19061.9,203.8)
    set u=CreateUnit(p,'n007',2712.2,23653.5,211.041)
    set u=CreateUnit(p,'n007',2764.5,23446.1,158.313)
    set u=CreateUnit(p,'n007',1473.6,24998.6,280.753)
    set u=CreateUnit(p,'n007',1632.,25024.5,259.751)
    set u=CreateUnit(p,'npng',-13040.8,29020.1,269.61)
    set u=CreateUnit(p,'n005',-2623.8,22234.3,187.482)
    set u=CreateUnit(p,'n00H',-3099.4,12662.8,276.445)
    set u=CreateUnit(p,'n007',1664.4,20906.6,121.224)
    set u=CreateUnit(p,'n00J',-4165.8,12885.9,268.443)
    set u=CreateUnit(p,'n006',-2733.2,24235.,298.526)
    set u=CreateUnit(p,'n006',-2902.1,23228.2,23.146)
    set u=CreateUnit(p,'n006',-3002.7,23483.2,359.6)
    set u=CreateUnit(p,'n02H',26908.2,24868.6,153.929)
    set u=CreateUnit(p,'n011',19082.,19341.2,359.432)
    set u=CreateUnit(p,'n02T',13710.8,3052.3,293.503)
    set u=CreateUnit(p,'n007',1469.,20931.7,60.528)
    set u=CreateUnit(p,'n01B',25213.2,-29225.3,181.612)
    set u=CreateUnit(p,'n01B',25015.4,-29562.1,144.462)
    set u=CreateUnit(p,'n01B',23738.8,-26834.5,266.557)
    set u=CreateUnit(p,'n01B',24015.6,-26934.1,279.936)
    set u=CreateUnit(p,'nfbr',-13414.7,29031.6,270.679)
    set u=CreateUnit(p,'hmtm',-13778.5,29022.6,274.96)
    set u=CreateUnit(p,'n006',-772.9,24778.3,296.907)
    set u=CreateUnit(p,'nske',-14131.2,29033.5,273.26)
    set u=CreateUnit(p,'h00P',1650.8,-28976.4,323.013)
    set u=CreateUnit(p,'n006',-723.2,21039.5,101.168)
    set u=CreateUnit(p,'n006',-894.5,24785.8,269.916)
    set u=CreateUnit(p,'n006',-626.6,20914.3,58.785)
    set u=CreateUnit(p,'n006',-514.8,21068.2,102.847)
    set u=CreateUnit(p,'n004',705.9,20945.3,89.066)
    set u=CreateUnit(p,'n004',-384.1,22364.6,245.947)
    set u=CreateUnit(p,'n004',-613.5,22303.5,309.966)
    set u=CreateUnit(p,'n004',-479.,22091.9,90.95)
    set u=CreateUnit(p,'n006',-2107.4,22781.7,110.447)
    set u=CreateUnit(p,'n006',-841.,24622.,76.836)
    set u=CreateUnit(p,'n006',-1200.6,24037.7,81.886)
    set u=CreateUnit(p,'n006',-1078.9,24030.2,115.032)
    set u=CreateUnit(p,'n006',-2101.,24912.6,23.146)
    set u=CreateUnit(p,'n006',-2145.8,24796.2,298.526)
    set u=CreateUnit(p,'n006',-2216.1,24909.7,196.362)
    set u=CreateUnit(p,'n006',-1301.8,24093.4,69.97)
    set u=CreateUnit(p,'n004',288.1,24702.,276.879)
    set u=CreateUnit(p,'n005',-1351.,22674.1,256.106)
    set u=CreateUnit(p,'n005',-1265.6,22605.3,237.014)
    set u=CreateUnit(p,'n004',344.4,24398.,95.767)
    set u=CreateUnit(p,'n004',477.2,24540.3,179.061)
    set u=CreateUnit(p,'n006',-2212.7,24261.9,298.526)
    set u=CreateUnit(p,'n00E',1163.3,17615.9,154.855)
    set u=CreateUnit(p,'n00E',1148.9,17881.5,181.833)
    set u=CreateUnit(p,'n00F',1248.9,17766.1,178.123)
    set u=CreateUnit(p,'n008',-2739.4,24875.1,322.036)
    set u=CreateUnit(p,'n00E',-1944.8,18574.3,298.171)
    set u=CreateUnit(p,'n00E',-1839.8,18565.2,211.754)
    set u=CreateUnit(p,'n00E',-1537.3,18586.,298.171)
    set u=CreateUnit(p,'n00E',-1412.,18538.5,167.859)
    set u=CreateUnit(p,'n00E',-1160.8,18474.4,34.999)
    set u=CreateUnit(p,'n00E',-1087.1,18570.8,167.859)
    set u=CreateUnit(p,'n00E',-1125.,15894.9,111.724)
    set u=CreateUnit(p,'n00C',-1176.4,16362.3,154.74)
    set u=CreateUnit(p,'n00C',-1093.6,16514.7,173.074)
    set u=CreateUnit(p,'n00E',-1660.9,18306.1,303.933)
    set u=CreateUnit(p,'n00C',-1124.,17736.1,231.807)
    set u=CreateUnit(p,'n00E',-662.8,15957.6,3.77)
    set u=CreateUnit(p,'n00E',171.,15871.,175.533)
    set u=CreateUnit(p,'n00E',154.2,15987.9,181.653)
    set u=CreateUnit(p,'n00E',-195.6,15991.,81.158)
    set u=CreateUnit(p,'n00E',-373.7,15984.4,3.77)
    set u=CreateUnit(p,'n00E',-271.1,16119.2,265.615)
    set u=CreateUnit(p,'n00C',-2704.3,15930.,150.304)
    set u=CreateUnit(p,'n00C',-2530.1,15964.2,127.997)
    set u=CreateUnit(p,'n00C',-2763.1,15770.,150.304)
    set u=CreateUnit(p,'n00E',193.,18454.8,152.321)
    set u=CreateUnit(p,'n00E',158.9,18581.4,284.673)
    set u=CreateUnit(p,'n00F',-346.4,18573.1,280.703)
    set u=CreateUnit(p,'n00E',-696.,18335.6,48.583)
    set u=CreateUnit(p,'n00E',191.,18366.7,167.753)
    set u=CreateUnit(p,'n00C',-166.3,18113.6,256.126)
    set u=CreateUnit(p,'n00C',-278.6,17974.6,92.744)
    set u=CreateUnit(p,'n00C',-302.7,18120.,289.583)
    set u=CreateUnit(p,'n00C',96.,17414.8,194.176)
    set u=CreateUnit(p,'n00C',79.5,16991.4,189.758)
    set u=CreateUnit(p,'n00C',81.,17221.5,197.193)
    set u=CreateUnit(p,'n00C',-618.5,16515.5,197.193)
    set u=CreateUnit(p,'n00C',-684.8,16406.7,113.631)
    set u=CreateUnit(p,'n00F',1273.2,16531.9,178.123)
    set u=CreateUnit(p,'n00C',312.1,17752.2,158.486)
    set u=CreateUnit(p,'n00C',640.8,17819.3,158.486)
    set u=CreateUnit(p,'n00C',876.,15898.6,68.527)
    set u=CreateUnit(p,'n00C',967.2,15808.7,80.676)
    set u=CreateUnit(p,'n00C',751.8,15836.3,47.781)
    set u=CreateUnit(p,'n00C',512.7,17696.4,297.237)
    set u=CreateUnit(p,'n00C',1287.,18571.1,278.974)
    set u=CreateUnit(p,'n00C',1563.7,18591.2,158.486)
    set u=CreateUnit(p,'n006',-1464.3,21482.8,196.362)
    set u=CreateUnit(p,'n00C',-3497.1,15995.,132.73)
    set u=CreateUnit(p,'n00C',-3684.1,16050.3,339.375)
    set u=CreateUnit(p,'n00C',-12.6,16522.8,189.758)
    set u=CreateUnit(p,'n00C',-88.7,16385.8,189.758)
    set u=CreateUnit(p,'n00C',236.2,17303.2,194.176)
    set u=CreateUnit(p,'n00C',221.1,17109.9,197.193)
    set u=CreateUnit(p,'n00C',-2153.2,17359.6,194.176)
    set u=CreateUnit(p,'n00C',-2153.8,16936.2,189.758)
    set u=CreateUnit(p,'n00E',845.4,15804.9,60.372)
    set u=CreateUnit(p,'n00C',-1997.1,17248.,194.176)
    set u=CreateUnit(p,'n00C',-2012.2,17054.7,197.193)
    set u=CreateUnit(p,'n00E',-2347.3,17156.7,7.127)
    set u=CreateUnit(p,'n00C',-3146.,17344.,189.758)
    set u=CreateUnit(p,'n00C',-3786.2,17242.5,342.542)
    set u=CreateUnit(p,'n00C',-3784.8,17368.9,351.651)
    set u=CreateUnit(p,'n00C',-3135.2,17231.,160.228)
    set u=CreateUnit(p,'n00C',-2586.6,17836.9,258.9)
    set u=CreateUnit(p,'n00C',-870.6,17224.2,258.9)
    set u=CreateUnit(p,'n00C',-600.7,17231.,258.9)
    set u=CreateUnit(p,'n00C',-717.3,17011.3,88.555)
    set u=CreateUnit(p,'n00C',1435.6,18468.2,297.237)
    set u=CreateUnit(p,'n00E',1429.3,18602.3,277.197)
    set u=CreateUnit(p,'n00C',625.8,18571.9,278.974)
    set u=CreateUnit(p,'n00C',902.4,18591.9,224.849)
    set u=CreateUnit(p,'n00C',774.4,18469.,297.237)
    set u=CreateUnit(p,'n00C',426.6,16680.7,158.486)
    set u=CreateUnit(p,'n00C',668.2,16663.8,87.986)
    set u=CreateUnit(p,'n00C',669.1,16379.9,333.087)
    set u=CreateUnit(p,'n006',-2167.9,24378.2,23.146)
    set u=CreateUnit(p,'n01F',21605.1,-12899.6,101.468)
    set u=CreateUnit(p,'n01F',21643.8,-12995.6,355.813)
    set u=CreateUnit(p,'n01G',25468.7,-15660.6,302.897)
    set u=CreateUnit(p,'n00J',3075.,10870.2,62.841)
    set u=CreateUnit(p,'n00J',3015.1,11497.2,293.216)
    set u=CreateUnit(p,'n00I',-5470.4,12792.2,293.382)
    set u=CreateUnit(p,'n006',-1393.9,21369.3,298.526)
    set u=CreateUnit(p,'n006',-1349.2,21485.6,23.146)
    set u=CreateUnit(p,'n006',-1835.1,22022.8,196.362)
    set u=CreateUnit(p,'n006',-1720.,22025.6,23.146)
    set u=CreateUnit(p,'n00I',-5273.7,12821.3,301.448)
    set u=CreateUnit(p,'n006',-1671.9,24520.8,346.113)
    set u=CreateUnit(p,'n006',-1292.7,24875.6,276.239)
    set u=CreateUnit(p,'n00J',1504.5,11594.7,83.238)
    set u=CreateUnit(p,'n00J',1679.9,11702.6,188.96)
    set u=CreateUnit(p,'n00J',1516.2,12764.1,277.953)
    set u=CreateUnit(p,'n00I',1466.9,12710.7,256.629)
    set u=CreateUnit(p,'n00H',1418.6,12795.2,151.269)
    set u=CreateUnit(p,'n00J',701.8,11218.3,288.733)
    set u=CreateUnit(p,'n00I',1605.8,10633.2,173.551)
    set u=CreateUnit(p,'n00I',1576.8,10740.5,198.165)
    set u=CreateUnit(p,'n00H',572.4,12034.2,277.708)
    set u=CreateUnit(p,'n00H',517.7,11913.4,356.008)
    set u=CreateUnit(p,'n00H',662.4,11950.6,177.584)
    set u=CreateUnit(p,'n00J',-179.7,12198.3,188.96)
    set u=CreateUnit(p,'n00J',-4397.2,12906.4,250.621)
    set u=CreateUnit(p,'n00I',638.3,12784.2,256.629)
    set u=CreateUnit(p,'n00I',68.6,12861.,256.629)
    set u=CreateUnit(p,'n00H',-34.2,12862.5,288.979)
    set u=CreateUnit(p,'n00H',-7020.6,11887.,327.316)
    set u=CreateUnit(p,'n00H',-6903.7,11935.7,250.279)
    set u=CreateUnit(p,'n00I',1678.6,10032.,85.085)
    set u=CreateUnit(p,'n00I',-1215.9,10619.4,101.844)
    set u=CreateUnit(p,'n00H',-1124.6,10703.4,177.584)
    set u=CreateUnit(p,'n00H',-1172.4,9589.7,129.152)
    set u=CreateUnit(p,'n00I',-1240.5,9728.7,85.085)
    set u=CreateUnit(p,'n00H',-1373.1,9596.2,58.027)
    set u=CreateUnit(p,'n00H',-546.7,10531.5,277.34)
    set u=CreateUnit(p,'n00H',-338.8,10738.1,278.08)
    set u=CreateUnit(p,'n00H',-6955.4,11737.9,84.215)
    set u=CreateUnit(p,'n00H',-5277.5,10758.8,179.45)
    set u=CreateUnit(p,'n00H',-1346.4,10686.7,356.008)
    set u=CreateUnit(p,'n00H',-5648.4,10619.6,84.215)
    set u=CreateUnit(p,'n00H',-1518.6,11891.8,356.008)
    set u=CreateUnit(p,'n00H',-1373.9,11929.,177.584)
    set u=CreateUnit(p,'n00H',-1463.9,12012.6,277.708)
    set u=CreateUnit(p,'n00H',-1291.7,10807.5,277.708)
    set u=CreateUnit(p,'n00H',-5623.8,10902.2,327.316)
    set u=CreateUnit(p,'n00H',-5424.1,10618.1,179.45)
    set u=CreateUnit(p,'n00J',-3976.1,10706.9,268.443)
    set u=CreateUnit(p,'n02I',19867.2,27381.6,177.038)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n00Z',21883.5,18085.3,145.669)
    set u=CreateUnit(p,'n00Z',21991.7,17971.5,74.827)
    set u=CreateUnit(p,'n00Z',22820.3,17177.4,101.651)
    set u=CreateUnit(p,'n00Z',23702.4,18322.8,74.827)
    set u=CreateUnit(p,'n00Z',23752.6,18262.1,145.669)
    set u=CreateUnit(p,'n013',22787.9,18376.8,205.302)
    set u=CreateUnit(p,'n013',22836.,18324.4,190.851)
    set u=CreateUnit(p,'h00P',4917.3,-29865.4,106.391)
    set u=CreateUnit(p,'e01B',5576.3,-30625.6,137.976)
    set u=CreateUnit(p,'h00P',5742.,-24920.6,307.)
    set u=CreateUnit(p,'h00P',5093.9,-25881.6,105.088)
    set u=CreateUnit(p,'e01B',5200.9,-25748.7,267.071)
    set u=CreateUnit(p,'h00P',3545.2,-29666.,172.452)
    set u=CreateUnit(p,'h00P',7735.4,-28101.3,323.297)
    set u=CreateUnit(p,'h00P',7744.,-28368.2,23.065)
    set u=CreateUnit(p,'e01B',7858.3,-28246.1,9.09)
    set u=CreateUnit(p,'h00P',3584.7,-29807.8,184.888)
    set u=CreateUnit(p,'h00R',8289.5,-24527.5,113.83)
    set u=CreateUnit(p,'h00P',8320.7,-24261.5,243.924)
    set u=CreateUnit(p,'e01B',6357.3,-27047.3,316.224)
    set u=CreateUnit(p,'h00P',6477.5,-27208.1,105.088)
    set u=CreateUnit(p,'h00P',6514.6,-27022.4,74.562)
    set u=CreateUnit(p,'e01B',6180.9,-28343.5,282.35)
    set u=CreateUnit(p,'h00P',6277.1,-28404.2,294.184)
    set u=CreateUnit(p,'h00P',6203.3,-28533.4,288.754)
    set u=CreateUnit(p,'e01B',6119.8,-28429.,316.224)
    set u=CreateUnit(p,'n013',21134.3,18736.3,11.931)
    set u=CreateUnit(p,'h00S',10412.8,-28863.2,194.488)
    set u=CreateUnit(p,'h00S',10443.8,-29566.4,194.488)
    set u=CreateUnit(p,'h00S',11136.,-30463.6,87.839)
    set u=CreateUnit(p,'h00S',11473.3,-30257.8,111.249)
    set u=CreateUnit(p,'e01B',6695.6,-29668.,278.486)
    set u=CreateUnit(p,'e01B',6932.1,-29681.6,253.128)
    set u=CreateUnit(p,'h00P',6824.4,-29797.1,262.589)
    set u=CreateUnit(p,'e01B',5748.5,-29640.2,197.724)
    set u=CreateUnit(p,'e01B',5849.2,-29998.1,190.898)
    set u=CreateUnit(p,'h00P',5787.,-29849.2,181.885)
    set u=CreateUnit(p,'e01B',4909.6,-28452.5,282.35)
    set u=CreateUnit(p,'n01G',25664.5,-15554.,102.03)
    set u=CreateUnit(p,'n01H',27138.,-13759.6,175.091)
    set u=CreateUnit(p,'n01F',24540.6,-15216.7,281.505)
    set u=CreateUnit(p,'n01F',24399.,-15237.4,300.623)
    set u=CreateUnit(p,'h00P',5005.7,-28513.2,294.184)
    set u=CreateUnit(p,'h00P',4932.,-28642.4,288.754)
    set u=CreateUnit(p,'n012',20743.9,19789.3,178.432)
    set u=CreateUnit(p,'n012',20734.2,19916.8,171.444)
    set u=CreateUnit(p,'n01H',27181.1,-13576.,189.725)
    set u=CreateUnit(p,'n01F',23781.5,-14226.7,320.33)
    set u=CreateUnit(p,'n01F',23719.7,-14347.4,355.813)
    set u=CreateUnit(p,'n01G',26873.9,-15326.5,104.171)
    set u=CreateUnit(p,'n01G',26967.8,-15299.2,126.967)
    set u=CreateUnit(p,'n01H',27164.,-14944.1,179.501)
    set u=CreateUnit(p,'n012',20892.9,19789.8,178.432)
    set u=CreateUnit(p,'n011',24788.3,18187.8,344.156)
    set u=CreateUnit(p,'n011',24669.3,18101.8,359.432)
    set u=CreateUnit(p,'n011',24762.8,17909.2,14.933)
    set u=CreateUnit(p,'n011',18975.3,19267.5,14.933)
    set u=CreateUnit(p,'n012',26249.9,18402.4,253.191)
    set u=CreateUnit(p,'n012',26119.1,18410.5,171.444)
    set u=CreateUnit(p,'n012',26340.1,18318.9,276.831)
    set u=CreateUnit(p,'n012',22169.2,15881.7,319.196)
    set u=CreateUnit(p,'n011',23319.4,15638.8,344.156)
    set u=CreateUnit(p,'n013',23745.6,16557.3,170.151)
    set u=CreateUnit(p,'n011',23234.2,15541.2,359.432)
    set u=CreateUnit(p,'n011',23289.6,15423.5,14.933)
    set u=CreateUnit(p,'n010',26855.9,17248.7,187.438)
    set u=CreateUnit(p,'n010',22358.2,20261.3,309.828)
    set u=CreateUnit(p,'n00Y',17972.8,16366.6,266.194)
    set u=CreateUnit(p,'n010',22128.2,20274.6,333.648)
    set u=CreateUnit(p,'n013',23757.1,16455.4,164.293)
    set u=CreateUnit(p,'n010',22241.1,20222.8,309.828)
    set u=CreateUnit(p,'n010',18837.7,16328.8,325.327)
    set u=CreateUnit(p,'n010',18870.7,16246.9,327.431)
    set u=CreateUnit(p,'n011',22877.2,14255.4,339.683)
    set u=CreateUnit(p,'n011',22812.5,14337.9,344.884)
    set u=CreateUnit(p,'n011',22882.6,14427.6,333.461)
    set u=CreateUnit(p,'n03P',-9406.6,-26097.2,282.848)
    set u=CreateUnit(p,'n011',22186.6,19519.3,185.946)
    set u=CreateUnit(p,'n020',25859.2,6377.,266.77)
    set u=CreateUnit(p,'n01H',26289.9,-14535.6,295.45)
    set u=CreateUnit(p,'n01M',-18133.8,-7978.6,284.602)
    set u=CreateUnit(p,'n02T',13576.8,2854.4,52.503)
    set u=CreateUnit(p,'n010',18258.8,17181.7,21.477)
    set u=CreateUnit(p,'n010',18257.3,17333.9,6.833)
    set u=CreateUnit(p,'n010',19247.,17282.3,27.114)
    set u=CreateUnit(p,'n01M',-19510.8,-8022.2,260.163)
    set u=CreateUnit(p,'n011',22116.6,19429.5,166.976)
    set u=CreateUnit(p,'n011',22181.2,19347.1,168.658)
    set u=CreateUnit(p,'n011',20422.9,14539.7,143.726)
    set u=CreateUnit(p,'n02I',20064.1,27937.3,263.06)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02I',20783.7,28619.1,263.06)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n01L',-18146.6,-9247.,262.859)
    set u=CreateUnit(p,'n011',20358.3,14622.1,147.5)
    set u=CreateUnit(p,'n011',20428.3,14711.8,161.967)
    set u=CreateUnit(p,'n010',19032.8,17325.2,21.477)
    set u=CreateUnit(p,'n010',19143.4,17446.3,21.477)
    set u=CreateUnit(p,'n01L',-19473.6,-9260.9,264.865)
    set u=CreateUnit(p,'n01H',26566.7,-6981.5,278.283)
    set u=CreateUnit(p,'n01G',26315.5,-7209.8,300.122)
    set u=CreateUnit(p,'n01L',-18147.9,-10542.8,262.859)
    set u=CreateUnit(p,'n01L',-19475.,-10556.7,264.865)
    set u=CreateUnit(p,'n01H',26703.8,-7426.,278.283)
    set u=CreateUnit(p,'n01H',22230.6,-7003.3,316.02)
    set u=CreateUnit(p,'n01L',-18150.5,-11712.9,262.859)
    set u=CreateUnit(p,'n01L',-19477.6,-11726.8,264.865)
    set u=CreateUnit(p,'e01B',4848.4,-28538.,316.224)
    set u=CreateUnit(p,'h00P',6863.8,-25836.9,299.844)
    set u=CreateUnit(p,'h00R',7046.6,-25969.5,113.83)
    set u=CreateUnit(p,'h00P',7077.7,-25703.5,243.924)
    set u=CreateUnit(p,'e01B',4543.8,-26789.1,316.224)
    set u=CreateUnit(p,'e01B',4549.3,-27554.5,316.224)
    set u=CreateUnit(p,'h00P',4492.3,-26918.6,354.349)
    set u=CreateUnit(p,'h00P',4531.9,-27416.2,356.747)
    set u=CreateUnit(p,'h00P',7358.5,-24743.4,292.697)
    set u=CreateUnit(p,'h00P',7202.2,-24755.4,285.018)
    set u=CreateUnit(p,'n01H',22018.6,-7238.1,255.329)
    set u=CreateUnit(p,'e01B',7582.8,-27065.5,9.09)
    set u=CreateUnit(p,'h00P',7468.6,-27187.6,23.065)
    set u=CreateUnit(p,'h00P',7460.,-26920.7,323.297)
    set u=CreateUnit(p,'h00P',7648.6,-28248.3,323.297)
    set u=CreateUnit(p,'h00S',12134.5,-27735.2,271.624)
    set u=CreateUnit(p,'h00S',10595.7,-27998.3,271.624)
    set u=CreateUnit(p,'h00S',11312.6,-27605.7,271.624)
    set u=CreateUnit(p,'h00S',9972.7,-27741.5,324.045)
    set u=CreateUnit(p,'h00S',13184.2,-30468.7,149.932)
    set u=CreateUnit(p,'h00S',13015.5,-30673.6,159.347)
    set u=CreateUnit(p,'h00S',12615.4,-30037.2,149.932)
    set u=CreateUnit(p,'h00S',12446.7,-30242.2,159.347)
    set u=CreateUnit(p,'h00S',10161.,-30259.4,31.482)
    set u=CreateUnit(p,'h00R',7728.3,-29966.3,272.234)
    set u=CreateUnit(p,'h00R',7153.7,-30631.2,85.541)
    set u=CreateUnit(p,'n02J',25266.1,24785.1,94.091)
    set u=CreateUnit(p,'n01G',23636.3,-10967.5,263.992)
    set u=CreateUnit(p,'n01F',21531.5,-11847.7,276.472)
    set u=CreateUnit(p,'n01G',22895.6,-15308.,98.202)
    set u=CreateUnit(p,'n01F',22687.2,-15352.8,124.093)
    set u=CreateUnit(p,'n02H',25448.5,24679.2,82.494)
    set u=CreateUnit(p,'n02H',25112.5,24710.4,108.148)
    set u=CreateUnit(p,'n02J',24402.4,25662.2,303.001)
    set u=CreateUnit(p,'n02J',24356.,25817.5,171.439)
    set u=CreateUnit(p,'n02H',26024.1,27321.1,231.796)
    set u=CreateUnit(p,'n01F',22937.7,-12891.1,320.33)
    set u=CreateUnit(p,'n02H',26215.4,27293.2,184.497)
    set u=CreateUnit(p,'n02H',25955.9,27519.,231.796)
    set u=CreateUnit(p,'n02J',26120.1,27518.4,236.523)
    set u=CreateUnit(p,'n01H',21633.5,-13613.4,350.11)
    set u=CreateUnit(p,'n02H',25886.6,25679.6,139.358)
    set u=CreateUnit(p,'n02T',11964.7,3674.3,293.503)
    set u=CreateUnit(p,'n02T',11949.,3403.7,52.503)
    set u=CreateUnit(p,'n02T',12903.3,4265.9,181.535)
    set u=CreateUnit(p,'n02T',12887.7,3995.3,150.014)
    set u=CreateUnit(p,'n02T',15232.8,4265.9,293.503)
    set u=CreateUnit(p,'n02T',15217.1,3995.3,52.503)
    set u=CreateUnit(p,'n02T',17178.1,5897.2,235.797)
    set u=CreateUnit(p,'n02T',17335.2,5922.3,241.075)
    set u=CreateUnit(p,'n02U',17315.7,5775.8,233.244)
    set u=CreateUnit(p,'n02T',17129.2,4660.,140.141)
    set u=CreateUnit(p,'n02T',17281.6,4770.6,154.418)
    set u=CreateUnit(p,'n02U',17107.1,4467.9,139.624)
    set u=CreateUnit(p,'n02T',16551.6,6726.1,307.298)
    set u=CreateUnit(p,'n02T',17304.3,7176.2,241.075)
    set u=CreateUnit(p,'n02U',17048.1,7193.,296.917)
    set u=CreateUnit(p,'n02T',16454.3,6369.8,48.503)
    set u=CreateUnit(p,'n02U',17324.9,7019.1,178.84)
    set u=CreateUnit(p,'n02H',25987.4,26033.5,144.635)
    set u=CreateUnit(p,'n02H',25775.6,25902.2,147.12)
    set u=CreateUnit(p,'n02J',26019.2,25810.1,150.149)
    set u=CreateUnit(p,'n02I',26582.6,24976.6,103.022)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02I',26448.8,24786.9,168.389)
    call SetUnitColor(u,ConvertPlayerColor(5))
    set u=CreateUnit(p,'n02H',22367.6,27699.7,317.055)
    set u=CreateUnit(p,'n02H',22348.2,27411.9,23.034)
    set u=CreateUnit(p,'n02H',22466.9,27558.6,178.086)
    set u=CreateUnit(p,'h01M',6838.8,-12240.6,13.899)
    set u=CreateUnit(p,'n037',8026.2,-13909.,358.117)
    set u=CreateUnit(p,'h01M',6983.,-12359.,48.923)
    set u=CreateUnit(p,'n037',6780.8,-14073.5,17.)
    set u=CreateUnit(p,'h01M',10077.,-8540.,78.031)
    set u=CreateUnit(p,'h01L',10295.4,-8790.8,270.766)
    set u=CreateUnit(p,'h01L',9979.7,-8823.5,280.756)
    set u=CreateUnit(p,'n02B',14816.5,-2412.5,282.658)
    set u=CreateUnit(p,'n02A',15049.7,-2412.1,288.5)
    set u=CreateUnit(p,'n02B',15252.6,-2316.4,290.023)
    set u=CreateUnit(p,'n02A',15001.,-4504.9,283.27)
    set u=CreateUnit(p,'n02B',15242.5,-4343.4,277.359)
    set u=CreateUnit(p,'n02B',14715.8,-4388.,277.359)
    set u=CreateUnit(p,'n02B',17104.7,-3791.3,176.446)
    set u=CreateUnit(p,'n02B',17114.2,-4269.6,169.133)
    set u=CreateUnit(p,'n02B',16748.5,-4004.5,169.133)
    set u=CreateUnit(p,'n02A',15939.9,-5710.6,319.479)
    set u=CreateUnit(p,'n02A',17068.1,-6326.7,221.899)
    set u=CreateUnit(p,'n02B',15905.1,-6945.7,85.561)
    set u=CreateUnit(p,'n02B',14573.3,-6065.9,188.504)
    set u=CreateUnit(p,'n02A',15898.2,-3198.6,190.354)
    set u=CreateUnit(p,'n02B',17004.3,-2038.2,165.647)
    set u=CreateUnit(p,'n02B',17054.3,-1665.9,170.891)
    set u=CreateUnit(p,'n02B',15743.1,-812.1,283.734)
    set u=CreateUnit(p,'n02B',13424.5,-887.3,282.658)
    set u=CreateUnit(p,'n02A',13567.,-602.7,288.5)
    set u=CreateUnit(p,'n02B',13860.6,-791.2,290.023)
    set u=CreateUnit(p,'n02B',13410.5,415.9,320.579)
    set u=CreateUnit(p,'n02A',13681.3,521.9,316.476)
    set u=CreateUnit(p,'n02B',13828.,762.5,309.501)
    set u=CreateUnit(p,'n02A',13382.3,-3841.4,18.695)
    set u=CreateUnit(p,'n02B',14246.5,-6951.2,91.109)
    set u=CreateUnit(p,'n02A',15809.2,-1223.9,288.5)
    set u=CreateUnit(p,'n02A',16845.8,-347.6,135.149)
    set u=CreateUnit(p,'n02B',17081.4,-354.,139.882)
    set u=CreateUnit(p,'n02B',16860.,573.4,258.199)
    set u=CreateUnit(p,'n02B',17157.4,372.2,209.332)
    set u=CreateUnit(p,'n04G',14391.5,-18853.7,292.278)
    set u=CreateUnit(p,'n04G',14562.1,-18827.5,324.387)
    set u=CreateUnit(p,'n04G',14555.6,-18655.9,323.269)
    set u=CreateUnit(p,'n04G',15348.3,-19114.,167.377)
    set u=CreateUnit(p,'n04G',15386.2,-18931.3,167.377)
    set u=CreateUnit(p,'n04G',15179.7,-19186.2,142.884)
    set u=CreateUnit(p,'n04G',15384.7,-17762.8,228.63)
    set u=CreateUnit(p,'n04G',15195.8,-17652.3,228.63)
    set u=CreateUnit(p,'n04G',15059.2,-17536.9,228.63)
    set u=CreateUnit(p,'n04G',14320.,-17483.3,264.532)
    set u=CreateUnit(p,'n04G',13939.9,-17577.5,264.532)
    set u=CreateUnit(p,'n049',5400.4,10672.7,343.318)
    set u=CreateUnit(p,'n047',5515.4,10808.9,331.832)
    set u=CreateUnit(p,'n049',6269.4,10315.3,245.544)
    set u=CreateUnit(p,'n047',6411.1,10306.4,258.428)
    set u=CreateUnit(p,'n049',6450.2,10178.2,245.544)
    set u=CreateUnit(p,'n049',5541.9,10949.1,315.988)
    set u=CreateUnit(p,'n049',6820.7,9270.,85.085)
    set u=CreateUnit(p,'n047',7006.3,9259.9,94.43)
    set u=CreateUnit(p,'n049',7142.9,9269.,87.124)
    set u=CreateUnit(p,'n049',7575.4,10461.1,221.335)
    set u=CreateUnit(p,'n049',7465.2,10562.,232.76)
    set u=CreateUnit(p,'n049',7690.1,10548.7,221.335)
    set u=CreateUnit(p,'n049',7579.9,10649.6,232.76)
    set u=CreateUnit(p,'n047',8074.7,9252.3,94.43)
    set u=CreateUnit(p,'n049',8057.1,9384.6,76.229)
    set u=CreateUnit(p,'n049',8282.,9371.2,115.592)
    set u=CreateUnit(p,'n049',8171.8,9472.2,100.77)
    set u=CreateUnit(p,'n047',8241.9,9250.8,94.43)
    set u=CreateUnit(p,'n049',6513.,11353.1,348.353)
    set u=CreateUnit(p,'n049',6643.5,11387.3,341.687)
    set u=CreateUnit(p,'n049',5495.2,12340.7,348.353)
    set u=CreateUnit(p,'n049',5585.6,12435.3,341.687)
    set u=CreateUnit(p,'n049',5453.7,12223.2,348.353)
    set u=CreateUnit(p,'n047',5573.4,12684.3,331.832)
    set u=CreateUnit(p,'n047',5193.1,12208.,331.832)
    set u=CreateUnit(p,'n049',6107.1,12842.,243.753)
    set u=CreateUnit(p,'n049',6213.4,12835.3,243.753)
    set u=CreateUnit(p,'n049',7604.4,11612.9,245.544)
    set u=CreateUnit(p,'n047',7746.1,11604.,258.428)
    set u=CreateUnit(p,'n049',7785.2,11475.8,245.544)
    set u=CreateUnit(p,'n049',7807.8,12841.6,245.544)
    set u=CreateUnit(p,'n047',7683.9,12809.8,258.428)
    set u=CreateUnit(p,'n049',7561.7,12848.8,245.544)
    set u=CreateUnit(p,'n047',6959.8,12241.7,258.428)
    set u=CreateUnit(p,'n047',6911.4,12344.1,258.428)
    set u=CreateUnit(p,'n047',7080.5,12268.1,258.428)
    set u=CreateUnit(p,'n047',8604.2,11760.5,154.061)
    set u=CreateUnit(p,'n047',8603.5,12000.2,171.145)
    set u=CreateUnit(p,'n047',8709.4,11864.5,162.235)
    set u=CreateUnit(p,'n047',9195.7,9938.3,154.061)
    set u=CreateUnit(p,'n047',9070.1,9893.1,171.145)
    set u=CreateUnit(p,'n047',9300.9,10042.2,162.235)
    set u=CreateUnit(p,'n047',9667.6,11219.5,319.349)
    set u=CreateUnit(p,'n047',9646.,11060.9,335.279)
    set u=CreateUnit(p,'n047',9520.3,11015.7,344.361)
    set u=CreateUnit(p,'n049',12396.1,9760.,175.774)
    set u=CreateUnit(p,'n049',10850.9,9451.8,73.834)
    set u=CreateUnit(p,'n049',11075.7,9438.4,97.813)
    set u=CreateUnit(p,'n049',10965.6,9539.3,85.175)
    set u=CreateUnit(p,'n03P',-8422.1,-27547.9,310.9)
    set u=CreateUnit(p,'n03P',-8692.4,-27679.8,296.906)
    set u=CreateUnit(p,'n03P',-8661.6,-27410.7,126.392)
    set u=CreateUnit(p,'n03P',-10040.8,-29218.,310.9)
    set u=CreateUnit(p,'n03P',-10311.1,-29349.9,296.906)
    set u=CreateUnit(p,'n03P',-10280.3,-29080.9,126.392)
    set u=CreateUnit(p,'n047',11425.7,11258.4,254.058)
    set u=CreateUnit(p,'n047',11935.2,11078.5,254.058)
    set u=CreateUnit(p,'n047',11787.8,11045.4,254.058)
    set u=CreateUnit(p,'n047',11565.1,11094.4,254.058)
    set u=CreateUnit(p,'n047',11073.4,9284.6,138.539)
    set u=CreateUnit(p,'n047',10832.1,9282.1,5.953)
    set u=CreateUnit(p,'n049',12213.2,9554.,148.367)
    set u=CreateUnit(p,'n049',12400.4,9567.4,157.041)
    set u=CreateUnit(p,'n049',10092.5,12233.1,245.544)
    set u=CreateUnit(p,'n047',9764.3,12709.8,258.428)
    set u=CreateUnit(p,'n049',9335.,12468.,245.544)
    set u=CreateUnit(p,'n047',9639.8,12721.5,258.428)
    set u=CreateUnit(p,'n048',12560.8,12400.2,228.08)
    set u=CreateUnit(p,'n047',12379.7,12644.4,254.058)
    set u=CreateUnit(p,'n047',12209.5,12574.4,254.058)
    set u=CreateUnit(p,'n047',12757.4,12387.8,254.058)
    set u=CreateUnit(p,'n047',12764.5,12237.6,198.154)
    set u=CreateUnit(p,'n04A',-3391.,1110.9,204.239)
    set u=CreateUnit(p,'n04A',-3669.6,1998.3,178.161)
    set u=CreateUnit(p,'n04B',-4502.6,121.2,133.292)
    set u=CreateUnit(p,'n04B',-5154.2,784.1,133.292)
    set u=CreateUnit(p,'n04B',-5448.3,1528.9,97.009)
    set u=CreateUnit(p,'n04B',-5758.3,2396.2,170.461)
    set u=CreateUnit(p,'n04B',-6309.1,1898.2,266.677)
    set u=CreateUnit(p,'n04B',-6235.7,621.5,273.443)
    set u=CreateUnit(p,'n04B',-6216.3,-413.9,315.194)
    set u=CreateUnit(p,'n04B',-5701.9,-1274.3,268.964)
    set u=CreateUnit(p,'n04B',-5675.1,-2403.4,268.964)
    set u=CreateUnit(p,'n04B',-5122.,-3080.7,205.4)
    set u=CreateUnit(p,'n04B',-5034.3,-3513.5,205.4)
    set u=CreateUnit(p,'n04B',-4193.6,-3030.8,205.4)
    set u=CreateUnit(p,'n04B',-671.9,-4198.7,205.4)
    set u=CreateUnit(p,'n04B',-4630.8,-4342.7,100.407)
    set u=CreateUnit(p,'n04B',-3175.5,-3805.7,205.4)
    set u=CreateUnit(p,'n04B',-1693.3,-3761.,205.4)
    set u=CreateUnit(p,'n04B',-4105.9,-3463.6,205.4)
    set u=CreateUnit(p,'n04B',911.1,-3515.8,229.421)
    set u=CreateUnit(p,'n04B',2401.5,-3540.4,206.049)
    set u=CreateUnit(p,'n04B',2842.3,-2156.3,257.255)
    set u=CreateUnit(p,'n04B',3227.1,-983.4,257.255)
    set u=CreateUnit(p,'n04B',2775.3,467.4,272.233)
    set u=CreateUnit(p,'n04B',3232.8,1456.3,226.965)
    set u=CreateUnit(p,'n04B',2654.8,2664.4,307.275)
    set u=CreateUnit(p,'n04B',1806.,2885.9,307.275)
    set u=CreateUnit(p,'n04B',2701.9,4067.,265.879)
    set u=CreateUnit(p,'n04B',2355.9,5188.2,285.665)
    set u=CreateUnit(p,'n04B',1661.3,6659.7,249.277)
    set u=CreateUnit(p,'n04B',2551.,6296.7,249.277)
    set u=CreateUnit(p,'n04B',350.2,6252.,320.856)
    set u=CreateUnit(p,'n04B',342.5,5787.2,30.669)
    set u=CreateUnit(p,'n04B',-988.3,6413.7,320.856)
    set u=CreateUnit(p,'n04B',-996.,5948.9,30.669)
    set u=CreateUnit(p,'n04B',-2462.5,6766.6,283.41)
    set u=CreateUnit(p,'n04B',-3787.2,6995.7,253.573)
    set u=CreateUnit(p,'n04B',-5103.7,6411.3,240.399)
    set u=CreateUnit(p,'n04B',-4578.2,6141.8,240.399)
    set u=CreateUnit(p,'n04B',-5515.3,5267.3,240.399)
    set u=CreateUnit(p,'n04B',-4518.2,5396.6,240.399)
    set u=CreateUnit(p,'n04B',-4754.4,4200.1,106.008)
    set u=CreateUnit(p,'n04B',-6150.2,3984.,240.399)
    set u=CreateUnit(p,'n04B',-3193.9,-2485.6,197.624)
    set u=CreateUnit(p,'n04B',-1474.8,-2001.7,240.399)
    set u=CreateUnit(p,'n04B',-363.3,-1163.3,240.399)
    set u=CreateUnit(p,'n04B',412.2,-2183.6,310.892)
    set u=CreateUnit(p,'n04B',1687.9,-1501.7,253.757)
    set u=CreateUnit(p,'n04B',1832.6,-258.2,240.399)
    set u=CreateUnit(p,'n04B',1655.4,942.2,269.831)
    set u=CreateUnit(p,'n04B',1199.8,2141.4,240.399)
    set u=CreateUnit(p,'n04B',-364.,4469.9,8.762)
    set u=CreateUnit(p,'n04B',1132.9,4478.9,349.536)
    set u=CreateUnit(p,'n04B',-3454.4,4117.6,69.953)
    set u=CreateUnit(p,'n04B',-2979.8,4887.6,53.497)
    set u=CreateUnit(p,'n04B',-2385.9,5837.7,70.195)
    set u=CreateUnit(p,'n04A',-2971.,22.2,257.978)
    set u=CreateUnit(p,'n04A',-1410.,-732.2,269.485)
    set u=CreateUnit(p,'n04A',10.1,-143.9,314.536)
    set u=CreateUnit(p,'n04A',493.8,1342.3,307.035)
    set u=CreateUnit(p,'n04A',-57.4,3045.6,18.072)
    set u=CreateUnit(p,'n04A',-1824.7,3663.9,110.256)
    set u=CreateUnit(p,'n04A',-2785.1,2921.4,130.471)
    set u=CreateUnit(p,'n04A',-1024.1,3366.8,74.435)
    set u=CreateUnit(p,'n04A',-28.,2275.1,8.411)
    set u=CreateUnit(p,'n04A',53.2,717.2,346.401)
    set u=CreateUnit(p,'n04A',-880.5,-179.1,284.671)
    set u=CreateUnit(p,'n04A',-2188.9,-87.5,241.383)
    set u=CreateUnit(p,'n04B',624.7,-4363.4,139.272)
    set u=CreateUnit(p,'n04G',13882.9,-17474.2,264.532)
    set u=CreateUnit(p,'n04G',14155.7,-17600.5,264.532)
    set u=CreateUnit(p,'n04G',12358.2,-17686.2,278.362)
    set u=CreateUnit(p,'n04G',12207.1,-17702.,289.439)
    set u=CreateUnit(p,'n04G',12068.9,-17779.5,300.998)
    set u=CreateUnit(p,'n04G',13385.3,-18466.4,278.362)
    set u=CreateUnit(p,'n04G',13132.4,-18515.6,306.8)
    set u=CreateUnit(p,'n04G',13352.2,-19396.1,278.362)
    set u=CreateUnit(p,'n04G',13232.1,-19446.5,278.362)
    set u=CreateUnit(p,'n04G',12745.1,-20400.,343.404)
    set u=CreateUnit(p,'n04G',12258.6,-22042.5,122.75)
    set u=CreateUnit(p,'n04G',12741.3,-20652.7,343.404)
    set u=CreateUnit(p,'n04G',12075.2,-22095.4,122.75)
    set u=CreateUnit(p,'n04G',10678.2,-21999.1,43.59)
    set u=CreateUnit(p,'n04G',10594.5,-21853.7,43.59)
    set u=CreateUnit(p,'n04G',9919.8,-22073.7,141.339)
    set u=CreateUnit(p,'n04G',9679.2,-22180.7,92.88)
    set u=CreateUnit(p,'n04G',8230.5,-21962.8,4.655)
    set u=CreateUnit(p,'n04G',8234.6,-22142.2,4.655)
    set u=CreateUnit(p,'n04G',8888.5,-20932.2,276.443)
    set u=CreateUnit(p,'n04G',9269.3,-20902.2,276.443)
    set u=CreateUnit(p,'n04G',9105.8,-21627.,20.4)
    set u=CreateUnit(p,'n04G',9127.9,-19278.4,276.443)
    set u=CreateUnit(p,'n04G',8822.2,-20116.8,9.946)
    set u=CreateUnit(p,'n04G',10062.6,-20006.8,359.629)
    set u=CreateUnit(p,'n04G',10049.,-20186.9,6.689)
    set u=CreateUnit(p,'n04G',11592.,-19384.5,335.966)
    set u=CreateUnit(p,'n04G',11747.,-19199.4,318.485)
    set u=CreateUnit(p,'n04G',12245.7,-19866.2,185.841)
    set u=CreateUnit(p,'n04G',11121.9,-18791.7,154.204)
    set u=CreateUnit(p,'n04G',11017.1,-18885.4,133.297)
    set u=CreateUnit(p,'n04G',11316.6,-17502.5,276.443)
    set u=CreateUnit(p,'n04G',11449.,-17595.1,189.71)
    set u=CreateUnit(p,'n04G',9975.4,-17609.1,276.443)
    set u=CreateUnit(p,'n04G',9857.3,-17627.1,276.443)
    set u=CreateUnit(p,'n04G',8810.7,-18278.7,14.548)
    set u=CreateUnit(p,'n04G',8945.2,-18679.3,14.548)
    set u=CreateUnit(p,'n04G',7420.8,-17472.5,14.548)
    set u=CreateUnit(p,'n04G',7391.8,-17632.,14.548)
    set u=CreateUnit(p,'n04G',8280.2,-17511.6,266.044)
    set u=CreateUnit(p,'n04G',8483.9,-17503.,266.044)
    set u=CreateUnit(p,'n04G',7910.8,-18005.3,95.377)
    set u=CreateUnit(p,'n04G',8723.5,-19997.6,95.377)
    set u=CreateUnit(p,'n04G',9287.9,-19281.7,276.443)
    set u=CreateUnit(p,'n04G',7160.2,-21732.3,276.443)
    set u=CreateUnit(p,'n04G',7012.8,-22016.8,9.715)
    set u=CreateUnit(p,'n04G',7273.9,-22064.8,132.213)
    set u=CreateUnit(p,'n04G',10581.1,-21941.5,9.715)
    set u=CreateUnit(p,'n04G',5702.7,-21232.3,271.839)
    set u=CreateUnit(p,'n04G',5848.1,-21243.8,271.839)
    set u=CreateUnit(p,'n04G',6462.3,-22123.4,88.382)
    set u=CreateUnit(p,'n04G',6315.8,-21970.6,88.382)
    set u=CreateUnit(p,'n04G',7731.1,-21389.6,174.628)
    set u=CreateUnit(p,'n04G',7758.,-21531.8,174.628)
    set u=CreateUnit(p,'h00P',3340.2,-26117.3,272.239)
endfunction

function CreateNeutralPassiveBuildings takes nothing returns nothing
    local player p=Player($F)
    local unit u
    local integer unitID
    local trigger t
    local real life
    set u=CreateUnit(p,'nten',14752.,-24096.,270.)
    set u=CreateUnit(p,'nten',15008.,-24032.,270.)
    set u=CreateUnit(p,'nten',14560.,-23968.,270.)
    set u=CreateUnit(p,'nten',14560.,-22816.,270.)
    set u=CreateUnit(p,'nten',14560.,-23776.,270.)
    set u=CreateUnit(p,'nten',15456.,-23584.,270.)
    set u=CreateUnit(p,'nten',14560.,-23008.,270.)
    set u=CreateUnit(p,'nten',14560.,-23584.,270.)
endfunction

function CreateNeutralPassive takes nothing returns nothing
    local player p=Player($F)
    local unit u
    local integer unitID
    local trigger t
    local real life
    set u=CreateUnit(p,'nvlw',-20779.,18108.8,6.45)
    set gg_unit_n000_0011=CreateUnit(p,'n000',-6948.3,23809.9,262.297)
    set gg_unit_n003_0012=CreateUnit(p,'n003',-6001.8,22148.1,266.556)
    set u=CreateUnit(p,'ndog',-6163.1,23739.,36.135)
    set u=CreateUnit(p,'nvl2',-6101.3,21124.4,343.765)
    set u=CreateUnit(p,'nvk2',-5416.4,21333.6,69.414)
    set u=CreateUnit(p,'nvlw',-4832.3,21414.,68.73)
    set u=CreateUnit(p,'nvlk',-6818.4,21530.9,63.822)
    set u=CreateUnit(p,'nvlk',-6275.8,21270.8,155.461)
    set gg_unit_n001_0039=CreateUnit(p,'n001',-7198.8,21016.,53.91)
    set gg_unit_hrif_0041=CreateUnit(p,'hrif',-6020.5,21405.1,270.642)
    set u=CreateUnit(p,'nvlk',-5845.4,23609.3,37.344)
    set gg_unit_hrif_0130=CreateUnit(p,'hrif',15579.8,-22705.9,278.816)
    set u=CreateUnit(p,'nvlk',-5973.9,23686.4,37.344)
    set u=CreateUnit(p,'n016',15392.8,-30864.6,26.892)
    set u=CreateUnit(p,'n016',20089.7,20175.1,262.533)
    set gg_unit_ocat_0271=CreateUnit(p,'ocat',26246.3,-23390.1,211.41)
    set u=CreateUnit(p,'nvlk',-19948.6,19439.9,134.444)
    set u=CreateUnit(p,'nvl2',-19746.4,18734.2,266.104)
    set u=CreateUnit(p,'nvil',-18903.6,18758.7,270.853)
    set u=CreateUnit(p,'nvil',-18466.6,18735.,270.853)
    set gg_unit_n01U_0362=CreateUnit(p,'n01U',-17923.3,17973.6,262.855)
    set u=CreateUnit(p,'nvlk',-18663.7,18811.5,267.404)
    set u=CreateUnit(p,'nvk2',-18141.9,18535.9,167.989)
    set gg_unit_n00S_0365=CreateUnit(p,'n00S',-17945.9,18827.1,207.957)
    set u=CreateUnit(p,'nvlw',-19339.3,18155.5,205.202)
    set u=CreateUnit(p,'ndog',-19390.5,17875.1,149.375)
    set u=CreateUnit(p,'nvlk',-19424.8,18319.8,282.513)
    set u=CreateUnit(p,'nvil',-19278.8,18083.5,234.586)
    set u=CreateUnit(p,'nvk2',-19924.1,18510.9,297.167)
    set u=CreateUnit(p,'ndog',-19771.9,17823.7,80.222)
    set u=CreateUnit(p,'nvl2',-20736.9,19127.6,6.854)
    set u=CreateUnit(p,'hcth',-13383.9,18856.4,199.17)
    set u=CreateUnit(p,'n04H',-4555.,20969.7,27.36)
    set u=CreateUnit(p,'Hmkg',1684.7,27101.9,276.627)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04J',-13546.8,20298.3,214.429)
    set u=CreateUnit(p,'n04K',16153.2,-30858.,96.22)
    set u=CreateUnit(p,'n01R',-10174.8,22927.1,86.919)
    set u=CreateUnit(p,'n01S',-9901.,22905.2,91.495)
    set u=CreateUnit(p,'n01S',-9641.8,22905.9,96.233)
    set u=CreateUnit(p,'n01R',-10249.7,23465.7,115.873)
    set u=CreateUnit(p,'n01R',-10756.8,25643.,120.9)
    set u=CreateUnit(p,'n01R',-9886.9,24516.1,75.825)
    set u=CreateUnit(p,'n01R',-9999.5,25517.3,90.999)
    set gg_unit_n01T_0423=CreateUnit(p,'n01T',-9329.1,25503.4,291.395)
    set u=CreateUnit(p,'n02W',-9631.1,25392.2,270.)
    set u=CreateUnit(p,'n01V',-9817.7,25393.9,270.)
    set u=CreateUnit(p,'n01R',-9584.5,24163.8,75.825)
    set u=CreateUnit(p,'n01R',-9270.2,24483.,81.38)
    set u=CreateUnit(p,'n02E',-9365.5,28727.7,238.515)
    call SetUnitColor(u,ConvertPlayerColor($C))
    set u=CreateUnit(p,'necr',-640.6,26966.7,344.245)
    set u=CreateUnit(p,'necr',-808.7,27285.1,298.749)
    set u=CreateUnit(p,'necr',-979.8,28545.,15.656)
    set u=CreateUnit(p,'necr',-1621.4,28406.9,258.022)
    set u=CreateUnit(p,'necr',-2540.8,28317.,182.499)
    set u=CreateUnit(p,'necr',-2997.4,27688.9,120.117)
    set u=CreateUnit(p,'necr',-2134.9,27205.5,184.598)
    set u=CreateUnit(p,'necr',-2318.2,27071.3,71.545)
    set u=CreateUnit(p,'n02G',-1439.7,27487.,88.63)
    call SetUnitColor(u,ConvertPlayerColor($C))
    set u=CreateUnit(p,'n02F',-2224.9,27955.4,270.41)
    call SetUnitColor(u,ConvertPlayerColor($C))
    set gg_unit_n02D_0544=CreateUnit(p,'n02D',-1602.1,27725.8,190.28)
    call SetUnitColor(gg_unit_n02D_0544,ConvertPlayerColor($C))
    set u=CreateUnit(p,'n046',-4262.1,16980.,300.19)
    set u=CreateUnit(p,'n01R',-10185.,24527.9,75.825)
    set u=CreateUnit(p,'n01R',-10307.1,24335.3,154.235)
    set u=CreateUnit(p,'n01R',-9168.2,23842.5,356.359)
    set u=CreateUnit(p,'n01S',-9156.6,25051.9,.275)
    set u=CreateUnit(p,'n01S',-10343.7,25334.1,.275)
    set u=CreateUnit(p,'n01S',-10341.3,25122.,.275)
    set u=CreateUnit(p,'n01S',-10778.3,25035.,150.191)
    set u=CreateUnit(p,'n01S',-10223.5,25676.5,88.487)
    set u=CreateUnit(p,'n01R',-10538.,23784.7,260.335)
    set u=CreateUnit(p,'n01R',-10821.3,23214.8,203.085)
    set u=CreateUnit(p,'n01R',-9183.2,23629.7,12.967)
    set u=CreateUnit(p,'H01Y',1672.6,27817.7,267.94)
    call SetUnitState(u,UNIT_STATE_MANA,35)
    set u=CreateUnit(p,'n046',-21045.,20518.3,305.544)
    set u=CreateUnit(p,'H004',2199.6,27489.,270.)
    set u=CreateUnit(p,'H008',2687.9,27796.4,270.)
    set u=CreateUnit(p,'H00J',2893.,27796.6,270.)
    set u=CreateUnit(p,'Hblm',1927.2,27106.6,255.645)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'H003',2617.2,27080.7,270.)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'H001',2799.7,27449.9,270.)
    set u=CreateUnit(p,'H000',2381.,27097.4,270.)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'H015',1755.8,27468.3,270.)
    call SetUnitState(u,UNIT_STATE_MANA,5)
    set u=CreateUnit(p,'H00E',2574.1,27452.7,269.443)
    set u=CreateUnit(p,'H01I',3066.1,27808.6,270.)
    set u=CreateUnit(p,'H00H',2152.2,27101.3,270.)
    set u=CreateUnit(p,'H01H',2997.,27458.8,266.614)
    set u=CreateUnit(p,'H005',2276.8,27802.8,270.)
    set u=CreateUnit(p,'H006',2074.2,27808.5,270.)
    call SetUnitState(u,UNIT_STATE_MANA,35)
    set u=CreateUnit(p,'H00Z',1974.2,27466.,270.)
    set u=CreateUnit(p,'H009',3232.4,27789.1,270.)
    set u=CreateUnit(p,'H002',1881.5,27803.7,270.)
    call SetUnitState(u,UNIT_STATE_MANA,35)
    set u=CreateUnit(p,'H01N',1455.6,27831.,270.)
    call SetUnitState(u,UNIT_STATE_MANA,35)
    set u=CreateUnit(p,'H007',2468.4,27797.8,270.)
    set u=CreateUnit(p,'Hamg',2206.8,26560.7,87.31)
    call SetUnitState(u,UNIT_STATE_MANA,35)
    set u=CreateUnit(p,'n03Y',-16570.8,24214.1,272.586)
    set gg_unit_nbee_0806=CreateUnit(p,'nbee',-10428.,24632.2,93.934)
    set u=CreateUnit(p,'n046',-7326.2,10447.7,305.544)
    set u=CreateUnit(p,'n046',5168.5,9812.,305.544)
    set gg_unit_nhew_0986=CreateUnit(p,'nhew',-9598.1,24597.9,91.55)
    set u=CreateUnit(p,'nvlw',-7109.5,22161.3,356.278)
    set u=CreateUnit(p,'nvil',-7381.6,22166.4,45.114)
    set u=CreateUnit(p,'n016',-9033.8,-14556.7,170.177)
    set u=CreateUnit(p,'n01S',-9157.7,24890.,.275)
    set u=CreateUnit(p,'nvl2',-5460.3,21106.2,343.765)
    set u=CreateUnit(p,'H01U',2374.7,27449.4,263.952)
    set u=CreateUnit(p,'H01V',2835.4,27098.7,269.685)
    set u=CreateUnit(p,'H01W',1538.9,27463.5,278.326)
    call SetUnitState(u,UNIT_STATE_MANA,5)
    set u=CreateUnit(p,'n043',19112.3,28052.4,83.576)
    set u=CreateUnit(p,'n044',19115.1,27942.7,226.886)
    set u=CreateUnit(p,'n045',19043.8,28065.3,268.866)
    set u=CreateUnit(p,'n043',19193.7,28254.,83.576)
    set u=CreateUnit(p,'n043',19385.9,24995.7,83.576)
    set u=CreateUnit(p,'n044',19388.7,24886.,226.886)
    set u=CreateUnit(p,'n045',19317.4,25008.6,268.866)
    set u=CreateUnit(p,'n043',19467.3,25197.2,83.576)
    set u=CreateUnit(p,'n044',19470.1,25087.6,226.886)
    set u=CreateUnit(p,'n043',19553.7,24890.,83.576)
    set u=CreateUnit(p,'n044',19556.5,24780.3,226.886)
    set u=CreateUnit(p,'n043',19606.4,24822.6,83.576)
    set u=CreateUnit(p,'n043',19849.6,24854.5,83.576)
    set u=CreateUnit(p,'n044',21345.5,25249.9,226.886)
    set u=CreateUnit(p,'n043',21638.6,25324.1,83.576)
    set u=CreateUnit(p,'n043',21906.8,27629.9,83.576)
    set u=CreateUnit(p,'n044',21909.6,27520.2,226.886)
    set u=CreateUnit(p,'n045',21838.3,27642.8,268.866)
    set u=CreateUnit(p,'n043',21988.2,27831.5,83.576)
    set u=CreateUnit(p,'n043',22127.3,27456.8,83.576)
    set u=CreateUnit(p,'n043',22370.5,27488.7,83.576)
    set u=CreateUnit(p,'H01X',1255.2,27835.6,274.04)
    call SetUnitState(u,UNIT_STATE_MANA,35)
    set u=CreateUnit(p,'n043',22730.7,26024.8,83.576)
    set u=CreateUnit(p,'n044',22733.5,25915.2,226.886)
    set u=CreateUnit(p,'n043',22817.1,25717.6,83.576)
    set u=CreateUnit(p,'n044',22819.9,25607.9,226.886)
    set u=CreateUnit(p,'n043',22869.8,25650.2,83.576)
    set u=CreateUnit(p,'n043',23113.,25682.1,83.576)
    set u=CreateUnit(p,'n043',24252.1,25136.4,83.576)
    set u=CreateUnit(p,'n044',24254.9,25026.7,226.886)
    set u=CreateUnit(p,'n045',24183.6,25149.3,268.866)
    set u=CreateUnit(p,'n043',24333.5,25338.,83.576)
    set u=CreateUnit(p,'n044',24336.3,25228.3,226.886)
    set u=CreateUnit(p,'n043',24419.9,25030.7,83.576)
    set u=CreateUnit(p,'n044',24422.7,24921.,226.886)
    set u=CreateUnit(p,'n043',24472.7,24963.3,83.576)
    set u=CreateUnit(p,'n043',24715.8,24995.2,83.576)
    set u=CreateUnit(p,'n043',24887.4,25929.1,83.576)
    set u=CreateUnit(p,'n044',24890.2,25819.4,226.886)
    set u=CreateUnit(p,'n045',24818.9,25942.,268.866)
    set u=CreateUnit(p,'n043',24968.8,26130.7,83.576)
    set u=CreateUnit(p,'n044',24971.6,26021.,226.886)
    set u=CreateUnit(p,'n043',25055.2,25823.4,83.576)
    set u=CreateUnit(p,'n044',25058.,25713.7,226.886)
    set u=CreateUnit(p,'n043',25107.9,25756.1,83.576)
    set u=CreateUnit(p,'n043',25351.1,25787.9,83.576)
    set u=CreateUnit(p,'n043',26452.6,24814.,83.576)
    set u=CreateUnit(p,'n044',26455.4,24704.3,226.886)
    set u=CreateUnit(p,'n045',26384.2,24826.9,268.866)
    set u=CreateUnit(p,'n043',26534.,25015.6,83.576)
    set u=CreateUnit(p,'n044',26536.8,24905.9,226.886)
    set u=CreateUnit(p,'n043',26620.4,24708.3,83.576)
    set u=CreateUnit(p,'n044',26623.2,24598.6,226.886)
    set u=CreateUnit(p,'n043',26673.2,24641.,83.576)
    set u=CreateUnit(p,'n043',26916.3,24672.8,83.576)
    set u=CreateUnit(p,'n043',25666.6,27956.2,83.576)
    set u=CreateUnit(p,'n044',25755.8,27539.3,226.886)
    set u=CreateUnit(p,'n043',25805.8,27581.6,83.576)
    set u=CreateUnit(p,'n043',26048.9,27613.4,83.576)
    set u=CreateUnit(p,'n043',26569.7,29112.6,83.576)
    set u=CreateUnit(p,'n044',26572.5,29002.9,226.886)
    set u=CreateUnit(p,'n044',26658.9,28695.7,226.886)
    set u=CreateUnit(p,'n043',26708.8,28738.,83.576)
    set u=CreateUnit(p,'n043',26952.,28769.8,83.576)
    set u=CreateUnit(p,'n043',23766.2,28694.3,83.576)
    set u=CreateUnit(p,'n044',23768.9,28584.6,226.886)
    set u=CreateUnit(p,'n045',23697.7,28707.2,268.866)
    set u=CreateUnit(p,'n043',23847.6,28895.9,83.576)
    set u=CreateUnit(p,'n044',23850.3,28786.2,226.886)
    set u=CreateUnit(p,'n043',23934.,28588.6,83.576)
    set u=CreateUnit(p,'n044',23936.7,28478.9,226.886)
    set u=CreateUnit(p,'n043',23986.7,28521.2,83.576)
    set u=CreateUnit(p,'n043',24229.9,28553.1,83.576)
    set u=CreateUnit(p,'n043',23855.2,26547.,83.576)
    set u=CreateUnit(p,'n044',23858.,26437.3,226.886)
    set u=CreateUnit(p,'n045',23786.7,26559.9,268.866)
    set u=CreateUnit(p,'n043',23936.6,26748.6,83.576)
    set u=CreateUnit(p,'n044',23939.4,26638.9,226.886)
    set u=CreateUnit(p,'n043',24023.,26441.3,83.576)
    set u=CreateUnit(p,'n044',24025.8,26331.7,226.886)
    set u=CreateUnit(p,'n043',24075.7,26374.,83.576)
    set u=CreateUnit(p,'n043',24318.9,26405.8,83.576)
    set u=CreateUnit(p,'n043',20339.9,28274.2,83.576)
    set u=CreateUnit(p,'n044',20342.7,28164.5,226.886)
    set u=CreateUnit(p,'n045',20271.4,28287.1,268.866)
    set u=CreateUnit(p,'n043',20421.3,28475.8,83.576)
    set u=CreateUnit(p,'n03Y',11130.5,16362.6,272.586)
    set u=CreateUnit(p,'n044',20510.5,28058.9,226.886)
    set u=CreateUnit(p,'n043',20560.5,28101.2,83.576)
    set u=CreateUnit(p,'n016',1907.8,-30691.,26.892)
    set u=CreateUnit(p,'n045',19712.7,26780.5,268.866)
    set u=CreateUnit(p,'n043',19862.5,26969.2,83.576)
    set u=CreateUnit(p,'n043',20490.4,27442.9,83.576)
    set u=CreateUnit(p,'n044',20493.2,27333.2,226.886)
    set u=CreateUnit(p,'n043',19401.,26104.9,83.576)
    set u=CreateUnit(p,'n044',19403.8,25995.2,226.886)
    set u=CreateUnit(p,'n043',20342.1,25852.8,83.576)
    set u=CreateUnit(p,'n044',20344.9,25743.2,226.886)
    set u=CreateUnit(p,'n043',20394.9,25785.5,83.576)
    set u=CreateUnit(p,'n043',20638.,25817.3,83.576)
    set u=CreateUnit(p,'nemi',24339.9,-6434.5,286.46)
    set u=CreateUnit(p,'n046',-2953.6,20769.6,92.125)
    set u=CreateUnit(p,'n04O',22930.4,-28473.2,261.38)
endfunction

function CreatePlayerBuildings takes nothing returns nothing
endfunction

function CreatePlayerUnits takes nothing returns nothing
    local player p
    local unit u
    local integer unitID
    local trigger t
    local real life
    set p=Player(8)
    set u=CreateUnit(p,'H00Q',-7553.2,18744.2,270.)
    call SetHeroLevel(u,300,false)
    call SetHeroStr(u,920,true)
    call SetHeroAgi(u,540,true)
    call SetHeroInt(u,780,true)
    set u=CreateUnit(p,'h00O',-7860.3,15928.9,270.25)
    set u=CreateUnit(p,'h00O',-7233.8,15929.2,270.25)
    set u=CreateUnit(p,'e019',15478.9,-23769.4,333.799)
    set gg_unit_h01G_0067=CreateUnit(p,'h01G',14929.8,-22952.2,32.873)
    set gg_unit_h01G_0068=CreateUnit(p,'h01G',15158.,-22969.2,157.05)
    set gg_unit_h01G_0069=CreateUnit(p,'h01G',15058.3,-22721.,264.95)
    set u=CreateUnit(p,'h00O',-7857.1,15279.4,270.25)
    set u=CreateUnit(p,'e019',15885.1,-22787.6,350.136)
    set u=CreateUnit(p,'e019',15902.7,-22973.8,284.575)
    set u=CreateUnit(p,'h00M',15153.2,-23720.,150.55)
    set u=CreateUnit(p,'h00M',14909.9,-23844.4,82.015)
    set u=CreateUnit(p,'h00M',14818.3,-23569.1,310.168)
    set u=CreateUnit(p,'e019',15832.2,-23691.5,339.346)
    set u=CreateUnit(p,'h00M',16148.9,-23095.7,330.388)
    set u=CreateUnit(p,'h00M',16149.,-23447.3,12.442)
    set u=CreateUnit(p,'e019',15872.9,-23537.7,339.346)
    set u=CreateUnit(p,'h00O',-19428.2,28271.4,326.81)
    set u=CreateUnit(p,'h00O',-20014.1,27829.1,312.01)
    set u=CreateUnit(p,'h00O',-18171.8,27661.8,187.039)
    set u=CreateUnit(p,'h00O',-7230.6,15279.7,270.25)
    set u=CreateUnit(p,'h00O',-7867.7,14631.5,270.25)
    set u=CreateUnit(p,'h00O',-7241.2,14631.8,270.25)
    set u=CreateUnit(p,'h00M',-18185.3,21919.8,266.376)
    set u=CreateUnit(p,'n04I',13711.4,15207.,276.74)
    set u=CreateUnit(p,'n04L',-15738.5,24233.9,274.78)
    set u=CreateUnit(p,'nvlk',-15702.1,25087.2,244.838)
    set u=CreateUnit(p,'h00O',-8004.3,18238.3,270.25)
    set u=CreateUnit(p,'h00O',-7114.4,18239.9,270.25)
    set u=CreateUnit(p,'n00P',-10664.4,9584.3,75.758)
    set u=CreateUnit(p,'n00R',-9243.9,9786.5,178.874)
    set u=CreateUnit(p,'n00P',-9449.5,9763.9,107.889)
    set u=CreateUnit(p,'n00R',-9253.9,10675.7,178.874)
    set u=CreateUnit(p,'n00P',-10643.3,9896.6,107.889)
    set u=CreateUnit(p,'n00P',-9343.3,10343.8,75.758)
    set u=CreateUnit(p,'h00M',-2889.2,-21022.3,96.322)
    set u=CreateUnit(p,'h00M',-2619.,-21025.8,87.949)
    set u=CreateUnit(p,'h00M',-2352.3,-21032.4,78.576)
    set u=CreateUnit(p,'n00R',-9841.1,9904.2,178.874)
    set u=CreateUnit(p,'h00M',-2882.4,-20781.4,96.322)
    set u=CreateUnit(p,'h00M',-2612.2,-20784.9,87.949)
    set u=CreateUnit(p,'h00M',-2345.6,-20783.5,78.576)
    set u=CreateUnit(p,'h00M',-2873.2,-20544.5,96.322)
    set u=CreateUnit(p,'h00M',-2603.,-20532.,87.949)
    set u=CreateUnit(p,'h00M',-2344.3,-20546.6,78.576)
    set gg_unit_h00N_0558=CreateUnit(p,'h00N',-2112.,-20835.7,87.216)
    set u=CreateUnit(p,'n00Q',-9376.3,11607.3,16.727)
    set u=CreateUnit(p,'n00Q',-9314.6,11395.,258.461)
    set u=CreateUnit(p,'n00Q',-10604.,11284.,273.756)
    set u=CreateUnit(p,'n00P',-9910.5,11194.5,107.889)
    set u=CreateUnit(p,'n00R',-10302.1,11334.8,178.874)
    set u=CreateUnit(p,'h00O',-8390.7,18111.,2.69)
    set u=CreateUnit(p,'h00O',-6724.2,18099.2,178.367)
    set u=CreateUnit(p,'h00O',-8383.5,16193.2,1.179)
    set u=CreateUnit(p,'nvk2',8373.5,14841.1,248.551)
    set u=CreateUnit(p,'n00R',8769.6,15381.1,64.876)
    set u=CreateUnit(p,'nvk2',8533.,15241.6,275.348)
    set u=CreateUnit(p,'nvlk',9261.1,14890.3,28.412)
    set u=CreateUnit(p,'n00Q',8492.9,15019.8,25.94)
    set u=CreateUnit(p,'h00O',-18253.1,27074.9,174.516)
    set gg_unit_H00Q_0724=CreateUnit(p,'H00Q',-17315.2,27112.3,175.716)
    call SetHeroLevel(gg_unit_H00Q_0724,300,false)
    call SetHeroStr(gg_unit_H00Q_0724,920,true)
    call SetHeroAgi(gg_unit_H00Q_0724,540,true)
    call SetHeroInt(gg_unit_H00Q_0724,780,true)
    set u=CreateUnit(p,'n00W',-17308.8,27540.8,176.755)
    set u=CreateUnit(p,'h00N',-18760.,26198.2,260.428)
    set u=CreateUnit(p,'h00N',-19127.3,26206.5,273.444)
    set u=CreateUnit(p,'h00O',-6713.8,16196.8,161.251)
    set u=CreateUnit(p,'nvlk',-20488.8,24053.8,75.138)
    set u=CreateUnit(p,'n00R',-20258.8,22849.2,18.945)
    set u=CreateUnit(p,'n00R',-13495.5,23985.8,111.218)
    set u=CreateUnit(p,'n00R',-14638.1,23167.8,269.239)
    set u=CreateUnit(p,'n00T',-12280.5,25758.1,251.331)
    set u=CreateUnit(p,'n00T',-12843.,25755.5,270.931)
    set u=CreateUnit(p,'e019',-12760.9,28022.,1.)
    set u=CreateUnit(p,'e019',-13113.1,28018.4,1.)
    set u=CreateUnit(p,'e019',-13471.5,28013.7,1.)
    set gg_unit_h00N_0748=CreateUnit(p,'h00N',-12578.2,27457.1,193.629)
    set u=CreateUnit(p,'h00M',-12925.9,27641.4,354.937)
    set gg_unit_h00M_0750=CreateUnit(p,'h00M',-12915.7,27454.9,349.388)
    set u=CreateUnit(p,'h00M',-12926.3,27243.1,.092)
    set u=CreateUnit(p,'h00M',-13207.7,27642.2,359.029)
    set u=CreateUnit(p,'h00M',-13516.3,27642.9,346.161)
    set u=CreateUnit(p,'h00M',-13205.5,27439.7,353.408)
    set u=CreateUnit(p,'h00M',-13514.2,27440.4,354.96)
    set u=CreateUnit(p,'h00M',-13216.1,27227.9,5.831)
    set u=CreateUnit(p,'h00M',-13524.7,27244.6,3.699)
    set gg_unit_H00G_0758=CreateUnit(p,'H00G',-16039.9,28171.1,275.12)
    call SetHeroLevel(gg_unit_H00G_0758,300,false)
    call SetHeroStr(gg_unit_H00G_0758,880,true)
    call SetHeroAgi(gg_unit_H00G_0758,$410,true)
    call SetHeroInt(gg_unit_H00G_0758,840,true)
    set gg_unit_n00V_0759=CreateUnit(p,'n00V',-15120.2,28194.2,273.61)
    set u=CreateUnit(p,'h00M',-16450.2,26803.7,350.963)
    set u=CreateUnit(p,'h00M',-16141.5,26787.,176.579)
    set u=CreateUnit(p,'h00M',-16439.6,26999.6,350.963)
    set u=CreateUnit(p,'h00M',-16131.,26998.8,176.579)
    set u=CreateUnit(p,'h00M',-16441.8,27202.,350.963)
    set u=CreateUnit(p,'h00M',-16133.1,27201.3,176.579)
    set u=CreateUnit(p,'n00R',-14457.,25380.8,44.43)
    set u=CreateUnit(p,'nvlk',-13646.9,25540.2,148.748)
    set u=CreateUnit(p,'n00Q',-12966.6,25482.,75.39)
    set u=CreateUnit(p,'n00P',-16855.6,24968.7,85.971)
    set u=CreateUnit(p,'n00P',-16634.4,23083.7,348.761)
    set u=CreateUnit(p,'n00P',-16117.9,25498.8,23.347)
    set u=CreateUnit(p,'n00Q',-18417.4,23872.6,210.296)
    set u=CreateUnit(p,'n00P',-19448.8,22596.6,178.08)
    set u=CreateUnit(p,'n034',-20033.7,25257.5,261.941)
    set u=CreateUnit(p,'h00M',-17541.6,21910.9,266.376)
    set u=CreateUnit(p,'n00P',-18556.5,25074.6,359.978)
    set u=CreateUnit(p,'n00P',-18959.5,24720.3,38.267)
    set u=CreateUnit(p,'n00Q',-16448.5,23883.4,51.11)
    set u=CreateUnit(p,'n00T',-14640.7,25759.7,271.805)
    set u=CreateUnit(p,'nvk2',-16274.6,24896.6,80.587)
    set u=CreateUnit(p,'n00R',-15374.,25016.3,178.874)
    set u=CreateUnit(p,'n00Q',-17783.3,23222.4,51.11)
    set gg_unit_n00U_0789=CreateUnit(p,'n00U',-20579.5,25234.8,304.202)
    set u=CreateUnit(p,'n00R',-15455.7,24326.2,343.092)
    set u=CreateUnit(p,'n00R',-18311.6,24237.1,342.696)
    set u=CreateUnit(p,'n00P',-15526.1,25799.8,10.635)
    set u=CreateUnit(p,'n00Q',-12560.,24583.9,169.085)
    set u=CreateUnit(p,'n00Q',-12660.,23261.1,2.736)
    set u=CreateUnit(p,'n00T',-14070.5,25756.3,276.985)
    set u=CreateUnit(p,'n00R',-14811.7,23735.,89.981)
    set u=CreateUnit(p,'n00T',-13489.1,25760.,275.236)
    set u=CreateUnit(p,'n00R',-12813.6,23926.6,248.156)
    set u=CreateUnit(p,'nvlk',-15125.,25433.6,2.571)
    set u=CreateUnit(p,'nvlk',-13674.3,23280.,127.193)
    set u=CreateUnit(p,'nvlk',-15776.5,23068.7,75.138)
    set u=CreateUnit(p,'n00R',-13847.4,23003.6,209.691)
    set u=CreateUnit(p,'n00Q',-20224.2,22607.1,50.374)
    set u=CreateUnit(p,'n00R',-20061.4,23703.8,129.785)
    set gg_unit_n027_0834=CreateUnit(p,'n027',-17541.4,25221.3,276.784)
    set gg_unit_n001_0837=CreateUnit(p,'n001',-17621.3,24233.9,280.642)
    set u=CreateUnit(p,'n00Q',9546.9,15413.6,274.018)
    set u=CreateUnit(p,'nvk2',11129.7,15521.4,248.551)
    set u=CreateUnit(p,'n00R',11525.8,16061.4,64.876)
    set u=CreateUnit(p,'nvk2',11289.2,15921.9,275.348)
    set u=CreateUnit(p,'nvlk',12017.3,15570.6,28.412)
    set u=CreateUnit(p,'n00Q',11249.1,15700.1,25.94)
    set u=CreateUnit(p,'n00Q',12863.7,15994.7,274.018)
    set u=CreateUnit(p,'nvk2',12643.2,14444.4,248.551)
    set u=CreateUnit(p,'n00R',13039.3,14984.4,64.876)
    set u=CreateUnit(p,'nvk2',12802.7,14845.,275.348)
    set u=CreateUnit(p,'nvlk',13530.8,14493.6,28.412)
    set u=CreateUnit(p,'n00Q',12762.6,14623.1,25.94)
    set u=CreateUnit(p,'n00Q',13157.9,15311.8,274.018)
    set u=CreateUnit(p,'n00P',10129.,16192.4,85.971)
    set u=CreateUnit(p,'n00P',8854.3,16608.5,85.971)
    set u=CreateUnit(p,'n00P',11711.7,18271.6,85.971)
    set u=CreateUnit(p,'n00P',11705.1,19882.2,85.971)
    set u=CreateUnit(p,'n00P',9208.8,20136.5,85.971)
    set u=CreateUnit(p,'n00P',13015.8,19738.1,85.971)
    set u=CreateUnit(p,'n00Q',12930.8,20734.1,274.018)
    set u=CreateUnit(p,'n00Q',11428.9,20870.1,274.018)
    set u=CreateUnit(p,'n00Q',11354.3,18750.6,274.018)
    set u=CreateUnit(p,'n00Q',9388.3,19799.2,274.018)
    set u=CreateUnit(p,'n00Q',10466.6,18768.2,274.018)
    set u=CreateUnit(p,'n00Q',12909.5,18795.2,274.018)
    set u=CreateUnit(p,'n00Q',14532.4,19847.2,274.018)
    set u=CreateUnit(p,'n001',10398.3,16328.5,280.642)
    set u=CreateUnit(p,'n027',12360.8,16144.2,264.504)
    set p=Player($B)
    set gg_unit_n035_0003=CreateUnit(p,'n035',-13905.6,-29553.1,270.16)
    set u=CreateUnit(p,'n04C',18234.8,-13851.3,278.88)
    set u=CreateUnit(p,'n04C',18543.,-13794.4,278.88)
    set u=CreateUnit(p,'uubs',-3951.6,-9046.8,282.48)
    set gg_unit_n033_0007=CreateUnit(p,'n033',2329.8,-21093.3,273.83)
    set u=CreateUnit(p,'n04C',18927.1,-11727.6,272.063)
    set gg_unit_n039_0040=CreateUnit(p,'n039',3620.,-21218.3,197.582)
    call SetUnitState(gg_unit_n039_0040,UNIT_STATE_MANA,0)
    set gg_unit_n02Y_0270=CreateUnit(p,'n02Y',24941.9,-19456.1,270.9)
    set gg_unit_hpa1_0272=CreateUnit(p,'hpa1',-18269.3,1638.7,275.99)
    set gg_unit_hmpr_0313=CreateUnit(p,'hmpr',16591.8,8920.5,82.099)
    call SetUnitState(gg_unit_hmpr_0313,UNIT_STATE_MANA,0)
    set gg_unit_hsor_0314=CreateUnit(p,'hsor',17091.9,11154.7,8.79)
    call SetUnitColor(gg_unit_hsor_0314,ConvertPlayerColor(6))
    set gg_unit_h01T_0350=CreateUnit(p,'h01T',21507.3,3834.2,265.53)
    call SetUnitColor(gg_unit_h01T_0350,ConvertPlayerColor($B))
    set gg_unit_n039_0547=CreateUnit(p,'n039',2368.3,-19941.2,262.702)
    call SetUnitState(gg_unit_n039_0547,UNIT_STATE_MANA,0)
    set gg_unit_n039_0548=CreateUnit(p,'n039',965.6,-21157.3,355.068)
    call SetUnitState(gg_unit_n039_0548,UNIT_STATE_MANA,0)
    set gg_unit_n039_0549=CreateUnit(p,'n039',2304.,-22518.1,90.289)
    call SetUnitState(gg_unit_n039_0549,UNIT_STATE_MANA,0)
    set gg_unit_n03B_0550=CreateUnit(p,'n03B',-7162.9,-21664.2,274.88)
    set gg_unit_n02V_0560=CreateUnit(p,'n02V',-3246.8,-14355.8,272.536)
    set u=CreateUnit(p,'n02M',14871.8,6028.4,89.77)
    set gg_unit_n03H_0776=CreateUnit(p,'n03H',-27226.8,-29491.4,226.04)
    set gg_unit_n03G_0815=CreateUnit(p,'n03G',20509.,-1826.7,271.19)
    set u=CreateUnit(p,'n04C',18903.6,-12725.5,86.475)
    set u=CreateUnit(p,'n04C',19115.6,-12401.5,174.28)
    set u=CreateUnit(p,'n04M',12828.1,-14480.5,5.388)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',19102.5,-11942.4,174.28)
    set u=CreateUnit(p,'n04C',18941.,-12213.9,174.28)
    set u=CreateUnit(p,'n03F',12636.5,26811.6,276.94)
    set u=CreateUnit(p,'n04M',19549.7,-10200.3,194.569)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',17747.1,-12662.1,354.695)
    set u=CreateUnit(p,'n03X',18004.2,-11131.9,283.343)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',18363.7,-11109.,266.832)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'uaco',-5517.8,-9019.2,15.76)
    set u=CreateUnit(p,'uaco',-3907.7,-7371.,271.321)
    set u=CreateUnit(p,'uaco',-2321.2,-9060.5,190.14)
    set u=CreateUnit(p,'uaco',-3955.7,-10785.6,90.134)
    set u=CreateUnit(p,'n042',2799.3,-13673.3,261.85)
    set u=CreateUnit(p,'n03X',17461.,-12264.6,335.063)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',17296.2,-12795.5,344.49)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',16138.4,-11044.2,44.84)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',17295.5,-9784.,329.602)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set gg_unit_ufro_1583=CreateUnit(p,'ufro',-12707.2,-30815.9,315.051)
    set gg_unit_ufro_1584=CreateUnit(p,'ufro',-13949.4,-27460.3,260.869)
    set gg_unit_ufro_1585=CreateUnit(p,'ufro',-15308.5,-30808.4,46.296)
    set u=CreateUnit(p,'n03X',18211.6,-11218.4,266.832)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',18065.9,-11397.,285.724)
    set u=CreateUnit(p,'n04C',18308.4,-11413.2,261.468)
    set u=CreateUnit(p,'n04M',19522.4,-12270.,174.897)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',17627.,-12448.,344.61)
    set u=CreateUnit(p,'n04C',17565.7,-12810.,.351)
    set u=CreateUnit(p,'n04C',19250.6,-9869.4,208.151)
    set u=CreateUnit(p,'n04C',19262.4,-10553.8,160.312)
    set u=CreateUnit(p,'n04C',19557.2,-10385.3,174.28)
    set u=CreateUnit(p,'n04C',19538.9,-10058.1,174.28)
    set u=CreateUnit(p,'n04C',19276.2,-10219.,184.22)
    set u=CreateUnit(p,'n03X',19411.6,-10350.1,197.48)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',19404.2,-10073.8,197.48)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',15302.3,-12245.8,42.924)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',15718.2,-12550.,79.401)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',15387.4,-11928.4,61.949)
    set u=CreateUnit(p,'n04M',15462.3,-12689.,62.993)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',15591.,-12137.3,57.783)
    set u=CreateUnit(p,'n04C',15947.4,-12270.,65.439)
    set u=CreateUnit(p,'n04M',15252.4,-12549.9,62.993)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',15457.2,-12407.9,42.924)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',16149.5,-10785.,65.439)
    set u=CreateUnit(p,'n04C',16634.,-10962.5,65.439)
    set u=CreateUnit(p,'n04C',16392.2,-10872.,65.439)
    set u=CreateUnit(p,'n04C',16498.3,-10610.1,65.439)
    set u=CreateUnit(p,'n04C',17690.9,-9872.1,353.334)
    set u=CreateUnit(p,'n04C',17739.1,-10214.7,24.278)
    set u=CreateUnit(p,'n04C',17898.7,-9621.8,300.224)
    set u=CreateUnit(p,'n03X',17337.5,-10037.1,346.094)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',17446.9,-9596.2,346.094)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04N',13675.4,-9462.7,271.423)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',16445.1,-11152.,121.302)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',17371.3,-12530.7,339.192)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',12780.3,-14852.3,5.388)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13005.8,-14248.,323.236)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',12965.,-14980.2,61.086)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',13046.5,-14676.7,7.592)
    set u=CreateUnit(p,'n04C',13221.6,-14443.9,7.592)
    set u=CreateUnit(p,'n04C',13214.7,-14877.2,7.592)
    set u=CreateUnit(p,'n04C',13118.5,-12978.,272.793)
    set u=CreateUnit(p,'n04C',13339.6,-13002.9,272.793)
    set u=CreateUnit(p,'n04C',13533.,-12983.5,272.793)
    set u=CreateUnit(p,'n04C',13091.5,-12767.3,272.793)
    set u=CreateUnit(p,'n04C',13312.6,-12792.2,272.793)
    set u=CreateUnit(p,'n04C',13505.9,-12772.8,272.793)
    set u=CreateUnit(p,'n03X',13198.8,-12521.9,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13434.8,-12511.1,266.198)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',13132.2,-12199.9,273.907)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',13490.5,-12221.7,255.142)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',13067.9,-10669.8,272.793)
    set u=CreateUnit(p,'n04C',13464.4,-10692.3,272.793)
    set u=CreateUnit(p,'n04C',13824.7,-10696.5,272.793)
    set u=CreateUnit(p,'n04C',13040.9,-10459.1,272.793)
    set u=CreateUnit(p,'n04C',13437.4,-10481.7,272.793)
    set u=CreateUnit(p,'n04C',13797.6,-10485.8,272.793)
    set u=CreateUnit(p,'n04M',14015.7,-9982.2,260.142)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04M',13284.2,-9992.,273.907)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',14162.9,-10709.9,272.793)
    set u=CreateUnit(p,'n04C',14164.,-10493.6,272.793)
    set u=CreateUnit(p,'n04C',13136.3,-9560.8,272.793)
    set u=CreateUnit(p,'n04C',14164.7,-9566.7,272.793)
    set u=CreateUnit(p,'n04P',15771.5,-14860.9,102.11)
    set u=CreateUnit(p,'n04C',17938.6,-9827.7,300.224)
    set u=CreateUnit(p,'n04C',17867.8,-10048.7,359.235)
    set u=CreateUnit(p,'n04C',16266.9,-10573.,65.439)
    set u=CreateUnit(p,'n04C',16744.6,-10754.3,65.439)
    set u=CreateUnit(p,'n04M',13655.7,-9868.8,273.907)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13253.5,-10242.4,278.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13643.2,-10235.6,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13986.9,-10245.2,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n04C',13996.5,-10723.5,272.793)
    set u=CreateUnit(p,'n04C',13997.5,-10507.2,272.793)
    set u=CreateUnit(p,'n04C',13643.,-10701.9,272.793)
    set u=CreateUnit(p,'n04C',13644.,-10485.7,272.793)
    set u=CreateUnit(p,'n04C',13262.6,-10701.9,272.793)
    set u=CreateUnit(p,'n04C',13263.6,-10485.7,272.793)
    set u=CreateUnit(p,'n03X',13815.7,-10113.8,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
    set u=CreateUnit(p,'n03X',13454.2,-10109.3,273.909)
    call SetUnitState(u,UNIT_STATE_MANA,0)
endfunction

function CreateAllUnits takes nothing returns nothing
    call CreateNeutralPassiveBuildings()
    call CreatePlayerBuildings()
    call CreateNeutralHostile()
    call CreateNeutralPassive()
    call CreatePlayerUnits()
endfunction

function CreateRegions takes nothing returns nothing
    local weathereffect we
    set gg_rct_BSDX______________001=Rect(17152.,-20896.,21216.,-17376.)
    set we=AddWeatherEffect(gg_rct_BSDX______________001,'WOlw')
    call EnableWeatherEffect(we,true)
    set gg_rct_BSDX____________________000=Rect(14624.,-24544.,20480.,-22144.)
    set we=AddWeatherEffect(gg_rct_BSDX____________________000,'SNbs')
    call EnableWeatherEffect(we,true)
    set gg_rct_BSJL_____________001=Rect(22944.,-24672.,26784.,-17568.)
    set we=AddWeatherEffect(gg_rct_BSJL_____________001,'SNhs')
    call EnableWeatherEffect(we,true)
    set gg_rct_BSXS______________000=Rect(14976.,-31232.,27072.,-26432.)
    set we=AddWeatherEffect(gg_rct_BSXS______________000,'SNbs')
    call EnableWeatherEffect(we,true)
    set gg_rct_BXSW______________001=Rect(480.,-23104.,4256.,-19712.)
    set we=AddWeatherEffect(gg_rct_BXSW______________001,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_BXSW______________002=Rect(1152.,-22368.,3456.,-19968.)
    set gg_rct_BYQMD____________________000=Rect(6400.,-15296.,10752.,-6624.)
    set we=AddWeatherEffect(gg_rct_BYQMD____________________000,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct_DGFX______________000=Rect(928.,-31264.,13728.,-23744.)
    set we=AddWeatherEffect(gg_rct_DGFX______________000,'FDwl')
    call EnableWeatherEffect(we,true)
    set gg_rct_DLZ________001=Rect(15456.,8672.,17760.,12320.)
    set we=AddWeatherEffect(gg_rct_DLZ________001,'FDgh')
    call EnableWeatherEffect(we,true)
    set gg_rct_EM01_________________002=Rect(1440.,-25440.,1632.,-25248.)
    set gg_rct_FSZJ2______________000=Rect(-10496.,26912.,-9120.,28928.)
    set we=AddWeatherEffect(gg_rct_FSZJ2______________000,'FDwl')
    call EnableWeatherEffect(we,true)
    set gg_rct_HM______________001=Rect(-9376.,-23712.,-5152.,-19488.)
    set we=AddWeatherEffect(gg_rct_HM______________001,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_PRSJD_________________000=Rect(-3776.,-22528.,-768.,-19584.)
    set we=AddWeatherEffect(gg_rct_PRSJD_________________000,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_PRSJD2_________________000=Rect(-4064.,-23040.,3584.,-19008.)
    set we=AddWeatherEffect(gg_rct_PRSJD2_________________000,'WOlw')
    call EnableWeatherEffect(we,true)
    set gg_rct_PVP_PVP_______000=Rect(-7552.,26624.,-5024.,28928.)
    set we=AddWeatherEffect(gg_rct_PVP_PVP_______000,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct_TSRK_003=Rect(-19328.,-5120.,-18304.,-4864.)
    set gg_rct_WLZS________001=Rect(-5504.,-18112.,-512.,-12736.)
    set we=AddWeatherEffect(gg_rct_WLZS________001,'WOlw')
    call EnableWeatherEffect(we,true)
    set gg_rct_WLZS2_______________001=Rect(-4864.,-17024.,-1536.,-13696.)
    set gg_rct_WLZS3_______________001=Rect(-5376.,-17536.,-1024.,-13184.)
    set gg_rct_WLZS4_______________001=Rect(-4864.,-15872.,-1536.,-14848.)
    set gg_rct_YGMJ2____________________000=Rect(11808.,2496.,17504.,7296.)
    set we=AddWeatherEffect(gg_rct_YGMJ2____________________000,'RLhr')
    call EnableWeatherEffect(we,true)
    set gg_rct_YRST______________000=Rect(17376.,14016.,27200.,20704.)
    set gg_rct______________000=Rect(20256.,9120.,20512.,9472.)
    set gg_rct______________001=Rect(26976.,10912.,27104.,11776.)
    set gg_rct______________002=Rect(-10560.,-31456.,-448.,-25120.)
    set we=AddWeatherEffect(gg_rct______________002,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct______________003=Rect(6016.,-22400.,14432.,-17344.)
    set we=AddWeatherEffect(gg_rct______________003,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct______________006=Rect(1120.,17024.,1760.,17120.)
    set gg_rct______________007=Rect(19296.,416.,23424.,4352.)
    set we=AddWeatherEffect(gg_rct______________007,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_RYHS______________000=Rect(21280.,-15680.,27328.,-7200.)
    set we=AddWeatherEffect(gg_rct_RYHS______________000,'FDrh')
    call EnableWeatherEffect(we,true)
    set gg_rct______________017=Rect(18624.,-3648.,27168.,512.)
    set we=AddWeatherEffect(gg_rct______________017,'FDrh')
    call EnableWeatherEffect(we,true)
    set gg_rct_YWZD______________000=Rect(-16064.,-31616.,-11840.,-27328.)
    set we=AddWeatherEffect(gg_rct_YWZD______________000,'FDgh')
    call EnableWeatherEffect(we,true)
    set gg_rct_SHTZZ_____________________________002=Rect(21056.,20384.,21408.,20640.)
    set gg_rct_FQJT_________________002=Rect(11424.,-24896.,11680.,-24704.)
    set gg_rct_HSK_______________________002=Rect(23936.,-12032.,24576.,-11392.)
    set gg_rct_YS01_______________________002=Rect(26688.,-30880.,26816.,-30688.)
    set gg_rct_BSLZ_______________________002=Rect(19712.,-27424.,19904.,-27232.)
    set gg_rct_ZHIZHUZHD_________________002=Rect(14944.,-23008.,15168.,-22752.)
    set gg_rct_FSZJ______________000=Rect(-3712.,26464.,-448.,29088.)
    set gg_rct_YXMD_000=Rect(1056.,26848.,3392.,28064.)
    set gg_rct_TSZHD_________________002=Rect(5952.,28448.,6144.,28640.)
    set gg_rct_BBMD______________000=Rect(-10752.,19968.,-9344.,21376.)
    set gg_rct_JKZHD_________________002=Rect(-14784.,24256.,-13888.,25152.)
    set gg_rct_EM03_________________003=Rect(-13696.,27040.,-12736.,27808.)
    set gg_rct_HCFHD_004=Rect(-20064.,22656.,-19936.,22784.)
    set gg_rct_EM02______________003=Rect(-17216.,13728.,-16224.,14720.)
    set gg_rct_HCD_004=Rect(-19616.,22496.,-19488.,22624.)
    set gg_rct_XSC___________000=Rect(-7648.,20576.,-4064.,24800.)
    set gg_rct_BBMD_______1_003=Rect(-10752.,20992.,-10400.,21376.)
    set gg_rct_WKQY______________000=Rect(4928.,27136.,6304.,28544.)
    set gg_rct_FSZJ_NGD________001=Rect(-3328.,28032.,-2304.,28800.)
    set gg_rct_FSZJ_JYG___________001=Rect(-3200.,26720.,-2048.,27392.)
    set gg_rct_FSZJ_MGD______________001=Rect(-1696.,26720.,-736.,27392.)
    set gg_rct_FSZJ_LBD___________001=Rect(-1696.,28032.,-736.,28832.)
    set gg_rct______________056=Rect(8544.,-12224.,8576.,-12192.)
    set gg_rct______________057=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________058=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________059=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________060=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________061=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________062=Rect(8800.,-12064.,8832.,-12032.)
    set gg_rct______________063=Rect(8800.,-12064.,8832.,-12032.)
    set gg_rct______________064=Rect(10400.,-12672.,10432.,-12640.)
    set gg_rct______________065=Rect(8864.,-14368.,8896.,-14336.)
    set gg_rct_RYHS______________002=Rect(22688.,-6208.,25440.,-4000.)
    set gg_rct______________067=Rect(-21184.,-31168.,-17120.,-27456.)
    set gg_rct______________068=Rect(-20992.,-9280.,-20672.,-8576.)
    set gg_rct______________050=Rect(4928.,9088.,13280.,13120.)
    set we=AddWeatherEffect(gg_rct______________050,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct_SH_MW_000=Rect(18560.,24416.,27008.,29152.)
    set we=AddWeatherEffect(gg_rct_SH_MW_000,'FDbh')
    call EnableWeatherEffect(we,true)
    set gg_rct_MFT_LT_000=Rect(-10816.,24640.,-10560.,24704.)
    set gg_rct______________070=Rect(5984.,-20832.,8352.,-18720.)
    set we=AddWeatherEffect(gg_rct______________070,'FDrh')
    call EnableWeatherEffect(we,true)
    set gg_rct_YWZD______________001=Rect(-15264.,-31040.,-12704.,-27904.)
    set gg_rct______________072=Rect(-15200.,-15200.,-7328.,-1056.)
    set we=AddWeatherEffect(gg_rct______________072,'SNhs')
    call EnableWeatherEffect(we,true)
endfunction

function Trig____________________001Actions takes nothing returns nothing
    call CreateFogModifierRectBJ(true,Player(0),FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea)
endfunction

function InitTrig____________________001 takes nothing returns nothing
    set gg_trg____________________001=CreateTrigger()
    call TriggerRegisterTimerEventSingle(gg_trg____________________001,1.)
    call TriggerAddAction(gg_trg____________________001,function Trig____________________001Actions)
endfunction

function Book__CreateTitleA takes integer itemid,string bookname,string authorname returns nothing
    set Book__lastedit_id=itemid
    set Book__lastedit_str="|c00FFFF80"+bookname+"|r
    |c00FF8040作者|r:|c0091A3F9"+authorname+"|r

    

    

    

    

    

    

    

    "

endfunction

function Book__CreateTitleB takes integer itemid,string bookname returns nothing
    set Book__lastedit_id=itemid
    set Book__lastedit_str="|c0000FF40[古代文献] |c00FFFF80"+bookname+"|r
    |c00FF8040作者|r:|c0091A3F9未知|r

    

    

    

    

    

    

    

    "

endfunction

function Book__CreateTitleD takes integer itemid,string bookname returns nothing
    set Book__lastedit_id=itemid
    set Book__lastedit_str=bookname
endfunction

function Book__Write takes string text returns nothing
    set Book__lastedit_str=Book__lastedit_str+"
    "+text

endfunction

function Book__Save takes real x returns nothing
    call SaveReal(BYHT,(Book__Direetory),Book__lastedit_id,x)
    call SaveStr(BYHT,(Book__Direetory),Book__lastedit_id,Book__lastedit_str)
endfunction

function Book__displaycontent takes nothing returns nothing
    local integer id=GetItemTypeIdG(GetManipulatedItem())
    local boolean b=false
    local integer index
    if HaveSavedString(BYHT,(Book__Direetory),id)then
        if GetTriggerPlayer()==GetLocalPlayer()then
            call ClearTextMessages()
        endif
        call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,LoadReal(BYHT,Book__Direetory,id),$A,LoadStr(BYHT,(Book__Direetory),id))
        set b=true
    endif
    if HaveSavedInteger(BYHT,(Book__BossPoint),id)then
        set index=LoadInteger(BYHT,Book__BossPoint,id)
        if GetLocalPlayer()==GetTriggerPlayer()then
            if Book__BossPointX[index]<EntireMapMaxX then
                call PingMinimapEx(Book__BossPointX[index],Book__BossPointY[index],5,0,$FF,0,false)
            endif
            call PingMinimapEx(Book__BossPointX[index+$3E8],Book__BossPointY[index+$3E8],5,$FF,0,0,false)
        endif
        set b=true
    endif
    if b then
        call RemoveItemG(GetManipulatedItem())
    endif
endfunction

function Book__CreateTitleC takes integer itemid,real x,real y,real x2,real y2 returns nothing
    local integer index
    if HaveSavedInteger(BYHT,Book__BossPoint,itemid)then
        set index=LoadInteger(BYHT,Book__BossPoint,itemid)
    else
        set index=Book__BossPointIndex+1
        set Book__BossPointIndex=index
        call SaveInteger(BYHT,Book__BossPoint,itemid,index)
    endif
    set Book__BossPointX[index]=x
    set Book__BossPointY[index]=y
    set Book__BossPointX[index+$3E8]=x2
    set Book__BossPointY[index+$3E8]=y2
endfunction

function Book__onInit takes nothing returns nothing
    set Book__Direetory=malloc()
    set Book__BossPoint=malloc()
    call Book__CreateTitleD('I05Y',"|c00FA8072拉芙海统治者|c002040F0许德拉")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：19389")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：350")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：2180000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0000BFFF")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒巨剑：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒长剑：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒长弓：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒拳套：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒法杖：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒盔甲：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒法衣：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒头盔：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒头巾：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒戒指：掉落几率=15%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("九头蛇的鳞片：掉落几率=50%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("九头蛇的毒牙：掉落几率=50%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：深海统治者：掉落几率=1.25%")

    call Book__Save(1.3)
    call Book__CreateTitleD('I056',"|c00696969瓦拉几亚伯爵|c00FF0000弗拉德·特佩斯|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：22891")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：540")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：2195000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0000BFFF")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的盔甲：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的法衣：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的头盔：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的头巾：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的戒指：掉落几率=10%|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷伯爵的灵魂血剑：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷伯爵的灵魂血矛：掉落几率=5%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("伯爵古角：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("伯爵的灵魂碎片：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：瓦几内拉伯爵：掉落几率=1.25%")

    call Book__Save(1.2)
    call Book__CreateTitleD('I057',"|c002F4F4F死亡之翼|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：46481")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：620")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：3750000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷魔龙战盔：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷魔龙护甲：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷上古魔龙之剑：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷上古魔龙之弓：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷上古魔龙之杖：掉落几率=6%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("巨龙之心：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("巨龙遗骨：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("巨龙鳞片：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：死亡之翼：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I069',"|c00FF8200杰克隆登|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：25891")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：430")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：3120000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷南瓜权杖：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷杰克头盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷杰克头巾：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷糖果袋：掉落几率=3%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("奥哈利康：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：杰克隆登：掉落几率=1.25%")

    call Book__Save(1.)
    call Book__CreateTitleD('I06A',"|c00696969元素领主|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：26901")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：590")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：4150000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷法皇之衣：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷元素头巾：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷共振指环：掉落几率=3%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("秘银：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("封印圣器枷锁：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：元素领主：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I05Z',"|c0052E252冰霜领主|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：48914")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：590")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：8170000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷霜冻猎者：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冰霜圣弓：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冰怨战矛：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷寒冰雪衣：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巫妖王之盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巫妖王头巾：掉落几率=5%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("精金石：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("上古遗篇：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("霜魂圣器：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：冰霜领主：掉落几率=1.25%")

    call Book__Save(1.15)
    call Book__CreateTitleD('I066',"|c008692F9蜘蛛女皇|r|c001541EE伊丝娜|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：31820")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：800")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：9486000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷雪纹：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷死雾魔斧：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷极冰之牙：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冬日玫瑰：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冬之泪，冰霜怨弓：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冬之泪，冰极天雪剑：掉落几率=2.5%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("精金石：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("冰霜织网：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：蜘蛛女皇：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CI',"|c00FF00FF恶魔领主|c00FF0000贝利亚|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：61489")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：730")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：17894000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷深渊之眼：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷杀戮者长靴：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷恶魔领主的号角：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷深渊之手,绝望的煙灭：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("黑暗物质：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("黑暗之翼：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：恶魔领主：掉落几率=1.25%")

    call Book__Save(1.)
    call Book__CreateTitleD('I0CL',"|c006CFDB8沧海巨兽|c00FF0000圣荷如斯|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：113819")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1040")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：21821000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：90%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷沧海庇佑：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷圣佑头盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷碧水精华：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷潮汐圣戒：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("圣佑精石：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("沧海源力：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("风暴徽记：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：沧海巨兽：掉落几率=1.25%")

    call Book__Save(1.05)
    call Book__CreateTitleD('I0CV',"|c00CFCFCF堕落者|c0080FF80电棍|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：21871")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：890")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：19842000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷腐蚀者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷复仇者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷潜行者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷湮灭者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷骷髅印章：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷绝望的深渊：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷未完成的狂暴药剂：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("堕落之源：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：堕落者电棍：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CW',"|c00D91C1C火焰梦魇|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：119560")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：980")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：24846900")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷憎恨：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷魔渊焱甲：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷噩梦指环：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷熔岩怒吼：掉落几率=1.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷永恒圣焱之冠：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("怒焰精华：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("虚无界石：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：火焰梦魇：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CX',"|c00C0C0C0亡灵|c00BF595B战神|c00727362维扎克斯|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：188622")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1320")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：30012000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：90%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，王者之剑：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，虚灵权杖：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，灾祸法袍：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，月穷天坠：掉落几率=2.3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，咒印心石：掉落几率=2.3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("深渊精华：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("边缘世界的魔石：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：亡灵战神：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CY',"|c002F2F2F被诅咒的冰霜巨龙|cFF66CCFF辛德拉荀萨|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：122721")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1090")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：29254000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，遗忘断魂之剑：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，哀叹龙魂长弓：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，诅咒寄魂之杖：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，憎恨灭魂猎枪：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，无尽龙魂战甲：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，龙徽暗影指环：掉落几率=4%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("诅咒魂魄：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("极寒碎片：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("紫水晶球：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：被诅咒的冰霜巨龙：掉落几率=1.25%")

    call Book__Save(1.15)
    call Book__CreateTitleD('I0CZ',"|c00C1DB9F不朽尸王|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：91913")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1140")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：16895000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷宿主权杖：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷灾难头巾：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵印记：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷信仰斗篷：掉落几率=2%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("不朽之心：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("黑暗水晶：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("亡者残爪：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：不朽尸王：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0D0',"|c0071CA57秘境之主|c00C5B189上古妖皇|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：134690")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1120")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：29650000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷风暴指环：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷永恒守护之剑：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷耀目星芒魂翼：掉落几率=1.6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("自然之心：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("自然精华：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命源泉：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：密境之主：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0H3',"|c00696969被遗忘的|c00FF0000黑暗怨魔|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：143560")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1260")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：34650000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷窥视之眼：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷欲望之铠：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷仇怨战翅：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷咒灵之手：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷恩德拉的苏醒：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷不屈之魂战刃：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("混沌碎片：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("死亡精髓：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：暗黑魔怨：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0H4',"|c00C0C0C0被封印的毁灭之力|c00AB2121卡西亚尔|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：298622")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1800")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：49650000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：90%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，毁灭战矛：掉落几率=1.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，毁灭之剑：掉落几率=1.3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，星辰守护：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，绝望之颅：掉落几率=1.6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，月芒星坠：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("远古遗忘魔石：掉落几率=1.6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：封印之力：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I058',"|c0040E0D0圣天使|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：35980*3")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：510*3")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：3150000*3")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷守护圣戒：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷神圣盔甲：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷神圣头盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷克雷提亚,圣光权杖：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷卡菲米亚,神圣之剑：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("圣经残卷：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("神圣羽毛灵片：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("天使枷锁之翼：掉落几率=1.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：守门人：掉落几率=1.25%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：圣天使：掉落几率=1.25%")

    call Book__Save(1.15)
    call Book__CreateTitleD('I06B',"|c00FF0000第七魔爵|r|c00696969中世纪恶魔|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：119250")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：825")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：10590208")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85% ")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷毁灭：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷灵魂毁灭者：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷残暴恶魔战甲：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷蓝色恶魔之眼：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷荣耀之戒，世纪之心：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("恶魔灵魂：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：中世纪恶魔：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleC('I05Y',$5303,$504C,$5E29,$4D95)
    call Book__CreateTitleC('I056',$2D13,-$60B1,$3264,-$720B)
    call Book__CreateTitleC('I057',$5E93,-$2D30,$5DF7,-6435)
    call Book__CreateTitleC('I069',-$37F5,$60A5,-$4601,$5C9D)
    call Book__CreateTitleC('I06A',$688A,-$7830,$65C9,-$742B)
    call Book__CreateTitleC('I05Z',$4D84,-$6ACF,$403D,-$6C95)
    call Book__CreateTitleC('I066',$3AC9,-$5946,$4E1A,-$490B)
    call Book__CreateTitleC('I058',6117,$6E05,-$4064,$4268)
    call Book__CreateTitleC('I0CI',$604,-$6301,-$40B9,$4024)
    call Book__CreateTitleC('I06B',-$50D7,-8885,-$477E,$679)
    call Book__CreateTitleC('I0CL',$F423F,0,$6778,$6805)
    call Book__CreateTitleC('I0CV',$4FCC,9360,$40A1,9000)
    call Book__CreateTitleC('I0CW',$F423F,0,$55B1,-$2D3D)
    call Book__CreateTitleC('I0CY',$4712,-$55BB,$6166,-$4BD2)
    call Book__CreateTitleC('I0CX',-$A72,-$4B54,-$CB6,-$381B)
    call Book__CreateTitleC('I0CZ',-830,-$5113,-830,-$5113)
    call Book__CreateTitleC('I0D0',$687B,$3087,$6350,$2C4E)
    call Book__CreateTitleC('I0H3',$F423F,0,$2793,-$39DE)
    call Book__CreateTitleC('I0H4',-$EF0,-$50D2,-7173,-$5460)
    call TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function Book__displaycontent))))
endfunction


 function Magetower__vFe takes nothing returns boolean
    local integer id
    local integer lv
    local integer UUv
    local integer DLv
    local integer mmv
    local boolean b=false
    
    set id=GetItemTypeIdG(GetSoldItem())
    
    if id=='I0AF' or id=='I0AG' or id=='I0AH' or id=='I0AI' then
        set mmv=(GetUnitUserData((GetBuyingUnit())))
        if GetHeroLevel((Je[(mmv)]))>=260 then
            if id=='I0AF' then
                if GetHeroState1((Je[(mmv)]),false)>vCe(kc[mmv])then
                    call ModifyHeroSkillPoint(mmv,1)
                    call SetHeroState1((Je[(mmv)]),GetHeroState1((Je[(mmv)]),false)-1)
                    call RefreshHeroStr(mmv)
                    call RefreshUnitHpRegen(mmv)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl",(Je[(mmv)]),"origin"))
                else
                    call DisplayTextToPlayer(P[Kc[mmv]],0,0,"|c009bc8d2You cannot retrain more Strength.")
                    set b=true
                endif
            elseif id=='I0AG' then
                if GetHeroState2((Je[(mmv)]),false)>vde(kc[mmv])then
                    call ModifyHeroSkillPoint(mmv,1)
                    call SetHeroState2((Je[(mmv)]),GetHeroState2((Je[(mmv)]),false)-1)
                    call RefreshHeroAgi(mmv)
                    call RefreshUnitAttackSpeed((mmv))
                    call RefreshUnitCrit((mmv))
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl",(Je[(mmv)]),"origin"))
                else
                    call DisplayTextToPlayer(P[Kc[mmv]],0,0,"|c009bc8d2You cannot retrain more Agility.")
                    set b=true
                endif
            elseif id=='I0AH' then
                if GetHeroState3((Je[(mmv)]),false)>vDe(kc[mmv])then
                    call ModifyHeroSkillPoint(mmv,1)
                    call SetHeroState3((Je[(mmv)]),GetHeroState3((Je[(mmv)]),false)-1)
                    call RefreshHeroInt(mmv)
                    call ModifyUnitMP(mmv,-5)
                    call RefreshUnitMpRegen(mmv)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl",(Je[(mmv)]),"origin"))
                else
                    call DisplayTextToPlayer(P[Kc[mmv]],0,0,"|c009bc8d2You cannot retrain more Intelligence.")
                    set b=true
                endif
            else
                set DLv=GetHeroState1((Je[(mmv)]),false)+GetHeroState2((Je[(mmv)]),false)+GetHeroState3((Je[(mmv)]),false)+HeroSkillPoint[mmv]
                set lv=GetHeroLevel((Je[(mmv)]))
                if lv>400 then
                    set UUv=5+4*400+6*(lv-400)
                else
                    set UUv=5+4*lv
                endif
                if DLv<UUv then
                    call ModifyHeroSkillPoint(mmv,1)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathPact\\DeathPactTarget.mdl",(Je[(mmv)]),"origin"))
                else
                    call DisplayTextToPlayer(P[Kc[mmv]],0,0,"|c009bc8d2You have retrieved all your unallocated Stat Points. Don't bother me again.")
                    set b=true
                endif
            endif
        else
            call DisplayTextToPlayer(P[Kc[mmv]],0,0,"|c009bc8d2Your level is insufficient.")
        endif
        if b then
            call AdjustPlayerStateG(P[Kc[mmv]],PLAYER_STATE_RESOURCE_GOLD,GetItemGold(id))
        endif 
    endif
    return false
  endfunction
  

 function Magetower__vTe takes nothing returns boolean
    local integer NNv=Magetower__Vh
    local unit u
    local integer i
    local integer j
    
    set u=GetBuyingUnit()
    
    loop
        set NNv=NNv-1
        set i=Magetower__ah[NNv]
        set j=Magetower__nh[NNv]
        loop
            set i=i-1
            if IsItemCharges(GetItemOfTypeFromUnit(u,LoadInteger(BYHT,Magetower__rh[NNv],2*i)),LoadInteger(BYHT,Magetower__rh[NNv],2*i+1))then
                set j=j-LoadInteger(BYHT,Magetower__rh[NNv],2*i+1)
            endif
            exitwhen i==0
        endloop
        
        if j==0 then
            set i=Magetower__ah[NNv]
            loop
                set i=i-1
                call RemoveItemByCharges(GetItemOfTypeFromUnit(u,LoadInteger(BYHT,Magetower__rh[NNv],2*i)),LoadInteger(BYHT,Magetower__rh[NNv],2*i+1))
                exitwhen i==0
            endloop
            call UnitAddItem(u,CreateItemG(Magetower__ih[NNv],GetUnitX(u),GetUnitY(u)))
            call DestroyEffect(AddSpecialEffectTarget("Enchantment.mdl",u,"origin"))
            exitwhen true
        endif
        if NNv==0 then
            call tSv(GetOwningPlayer(u),"Not enough materials!")
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Silence\\SilenceAreaBirth.mdl",u,"origin"))
            exitwhen true
        endif
    endloop
    set u=null
    return false
 endfunction


 function Magetower__vue takes integer r returns integer
    local integer NNv=Magetower__Vh
    set Magetower__rh[NNv]=malloc()
    set Magetower__ih[NNv]=r
    set Magetower__ah[NNv]=0
    set Magetower__nh[NNv]=0
    set Magetower__Vh=Magetower__Vh+1
    return NNv
 endfunction


 function Magetower__vUe takes integer NNv,integer itemid,integer c returns integer
    call SaveInteger(BYHT,Magetower__rh[NNv],2*Magetower__ah[NNv],itemid)
    call SaveInteger(BYHT,Magetower__rh[NNv],2*Magetower__ah[NNv]+1,c)
    set Magetower__ah[NNv]=Magetower__ah[NNv]+1
    set Magetower__nh[NNv]=Magetower__nh[NNv]+c
    return NNv
 endfunction


function Magetower__onInit takes nothing returns nothing
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04U'),'I030',1),'I019',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04W'),'I04U',1),'I01A',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04V'),'I04W',1),'I02Y',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04X'),'I04V',1),'I035',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04Y'),'I04X',1),'I0DQ',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I0DP'),'I036',5),'I035',1)
    call AddUnitSellItemById('I04T',function Magetower__vTe)
    call AddUnitSellItemById('I0AF',function Magetower__vFe)
    call AddUnitSellItemById('I0AG',function Magetower__vFe)
    call AddUnitSellItemById('I0AH',function Magetower__vFe)
    call AddUnitSellItemById('I0AI',function Magetower__vFe)
    call SetTerrainPathable_Rect(gg_rct_MFT_LT_000,PATHING_TYPE_WALKABILITY,true)
endfunction

function Trig_F9______uActions takes nothing returns nothing
    call CreateQuestBJ(0,"Game Commands",|cFFFF0033Fire
|cFF996633Earth
|c008000ffDark
|cFF6600FFLightning
|cFFFFFF00Light
|cFF00FFFFIce
|cFF996633Earth
|cFF9966CCHero
|c002040F0Item
|cFFFF00CCBoss
Call backpack： |c0052E252[ESC]|r
Check quests： |c0052E252-task|r
Set camera height： |c0052E252-cam 50 ~ 500|r
Cam Lock： |c0052E252-hold/-hold off|r
Suicide： |c0052E252-suicide，-recall|r
Throw dice： |c0052E252-roll，-dice|r
Clean the map： |c0052E252-clean|r
Cancel cleaning： |c0052E252-unitr|r
If you can not see some of teammates chat, please enter
Floating fonts： |c0052E252-open|r 
Cancel the font： |c0052E252-endopen|r
If you can not click anything, please enter
Unstuck： |c0052E252-dhk|,"ReplaceableTextures\\CommandButtons\\BTNBansheeMaster.blp")
    call CreateQuestBJ(0,"Save / Load",This map has an save-load system, so you can ignore the time and place, and continue to play your character after saving.
Instruction:
Saving：|c0052E252-save|r
Loading：|c0052E252-load|r
Saves: Type |c0052E252-save a|r and you can find text save in path: My Documents/WarcraftIII/Warcraft III/CustomMapData/SLORP,"ReplaceableTextures\\CommandButtons\\BTNBansheeMaster.blp")
    call CreateQuestBJ(0,"Contact",Player & BUG Report:|c00FF0000240519071|r
If you want to know the map related information, join QQ grou,"ReplaceableTextures\\CommandButtons\\BTNBansheeMaster.blp")
    call CreateQuestBJ(0,"Credits","Thank you for the model makers and special effects model makers, as well as the testers. Without them this map wouldn't exist.","ReplaceableTextures\\CommandButtons\\BTNBansheeMaster.blp")
    call CreateQuestBJ(2,"Gameplay Info",|c00ff0000Ultimate|r： Appears on lvl 240
|c00ff8200Binding|r： Heroic and above equipment will be automatically bound after the hero picks up
|c003c9dffHealing on lvl up|r：Health: 30%， Mana: 20,"ReplaceableTextures\\CommandButtons\\BTNBansheeAdept.blp")
    call CreateQuestBJ(2,"Fatigue",|c009400D3Fatigue|r
Fatigue value reached |c00ffff00100|r will provoke death.
When fatigue reaches 100, please quickly enter the answer in the chat box, or death will take away your character permanently!

Please enter into the chat: " - " + answer
(Q:3 + 6 = ？， A：-9)

|c0000bfffIn the novice village will not increase the fatigue value,"ReplaceableTextures\\CommandButtons\\BTNBansheeAdept.blp")
    call CreateQuestBJ(2,"Stat Points",Before lvl 400 you get |c00ffff004|r stat ponts per lvl.
Above lvl 400 you get |c00ffff006|r stat ponts per lvl.
Free Attribute Point can be wieved in Status Panel

|c00FF8200- Attribute points -|r
|c0052E252-str 1~100|r  Increases Strength
|c0052E252-agi 1~100|r  Increases Agility
|c0052E252-int 1~100|r  Increases Intellect,"ReplaceableTextures\\CommandButtons\\BTNBansheeAdept.blp")
    call CreateQuestBJ(2,"Powder Bosses",Powder BOSS drop better equipment and materials than usual
=========================================
The calling method is to carry the powder to a specific location.
Powder BOSS summon locations can be viewed in the QQ group 240519071
=========================================
|c0052E252Sea Hydra：|r：3 x White powder
|c0052E252Vlad Tepes|r：3 x Red powder
|c0052E252DeathWing|r：5 x Green powder
|c0052E252Jack-o-Jackie|r：5 x Red powder
|c0052E252Mage Lord|r：5 x Red powder
|c0052E252Lord of Everfrost|r：10 x Blue powder
|c0052E252Spider Queen|r：11 x Blue powder
|c0052E252Holy Angels|r：5 x Holy powder
|c0052E252Demon Lord|r：12 x Red powder
|c0052E252Flame Nightmare |r：12 x Red powder
|c0052E252Turtle Lord|r：12 x Blue powder
|c0052E252Ancient Ent|r：21 x Green powder + Seal-breaking gemstone
|c0052E252Death Fiend|r：21 x Red powder
|c0052E252Flame Devourer|r：21 x Red powder + Molten Heart
======================================================,"ReplaceableTextures\\CommandButtons\\BTNBansheeAdept.blp")
    call CreateQuestBJ(2,"Powder Crafting",Yeti teeth x 1 + Minor magic stone x 1 = 1 x |c0000bfffWhite powder|r
White powder x 1 + Lesser magic stone x 1 = 1 x |c0000bfffGreen powder|r
Green powder x 1 + Medium magic stone x 1 = 1 x |c0000bfffBlue powder|r
Blue powder x 1 + Greater magic stone x 1 = 1 x |c0000bfffRed powder|r
Red powder x 1 + Bright magic stone x 1 = 1 x |c0000bfffHoly powder|,"ReplaceableTextures\\CommandButtons\\BTNBansheeAdept.blp")
    call SetUnitVertexColor(gg_unit_h00V_0527,$FF,$FF,$FF,125)
    return
endfunction

function InitTrig_F9______u takes nothing returns nothing
    set gg_trg_F9______u=CreateTrigger()
    call TriggerAddAction(gg_trg_F9______u,function Trig_F9______uActions)
endfunction

function Trig__________mp_________uActions takes nothing returns nothing
    call ModifyUnitMP(GetUnitUserData(gg_unit_H00Q_0724),5*GetHeroState3(gg_unit_H00Q_0724,false))
    call RefreshUnitHpRegen(GetUnitUserData(gg_unit_H00Q_0724))
    call RefreshUnitMpRegen(GetUnitUserData(gg_unit_H00Q_0724))
    call ModifyUnitMP(GetUnitUserData(gg_unit_H00G_0758),5*GetHeroState3(gg_unit_H00G_0758,false))
    call RefreshUnitHpRegen(GetUnitUserData(gg_unit_H00G_0758))
    call RefreshUnitMpRegen(GetUnitUserData(gg_unit_H00G_0758))
endfunction

function InitTrig__________mp_________u takes nothing returns nothing
    set gg_trg__________mp_________u=CreateTrigger()
    call TriggerRegisterTimerEventSingle(gg_trg__________mp_________u,.0)
    call TriggerAddAction(gg_trg__________mp_________u,function Trig__________mp_________uActions)
endfunction

function Trig____________________003Conditions takes nothing returns boolean
    return((IsUnitType(GetTriggerUnit(),UNIT_TYPE_GIANT))and(GetOwningPlayer(GetTriggerUnit())==Player($B)))!=null
endfunction

function Trig____________________003Actions takes nothing returns nothing
    local integer i=8
    if((GetUnitTypeId(GetTriggerUnit())=='n01Y'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=360 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|c00DF0000Shard of demon lord has been created for players above level 360|r")
                call DestroyEffect(AddSpecialEffectTarget("bloodwave.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('lmbr',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n02M'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=360 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|c0000FF00Shard of life has been created for players above level 360|r")
                call DestroyEffect(AddSpecialEffectTarget("ancientexplode.mdx",MV[i],"origin"))
                call SetItemUserData(CreateItemG('sreg',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='hmpr'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=360 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|c0080FF80Shard of corruption has been created for players above level 360|r")
                call DestroyEffect(AddSpecialEffectTarget("acid ex.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('guvi',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='h018'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=360 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|c006CFDB8Shard of sea has been created for players above level 360|r")
                call DestroyEffect(AddSpecialEffectTarget("aquaspike.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('spro',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n02Y'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=370 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF336699Shard of cursed dragon has been created for players above level 370.|r")
                call DestroyEffect(AddSpecialEffectTarget("shadowwave.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('pman',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='hpa3'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=370 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF666666Shard of Evil has been created for players above level 370.|r")
                call DestroyEffect(AddSpecialEffectTarget("desecrategreen.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('rspd',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n033'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=370 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF33CC33Shard of immortal has been created for players above level 370.|r")
                call DestroyEffect(AddSpecialEffectTarget("acid ex.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('pnvl',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n02V'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=370 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF9900FFShard of Skeleton has been created for players above level 370.|r")
                call DestroyEffect(AddSpecialEffectTarget("shadowwave.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('sman',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n030'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=380 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF00FF00Shard of Nature has been created for players above level 380.|r")
                call DestroyEffect(AddSpecialEffectTarget("naturewave.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('rdis',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n032'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=380 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF00FF00Shard of Nature has been created for players above level 380.|r")
                call DestroyEffect(AddSpecialEffectTarget("naturewave.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('rdis',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='h01K'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=380 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF9933CCShard of Fiend has been created for players above level 380.|r")
                call DestroyEffect(AddSpecialEffectTarget("shadowwave.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('rhe1',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n035'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=380 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF00CC66Shard of Decay has been created for players above level 380.|r")
                call DestroyEffect(AddSpecialEffectTarget("earthnova.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('rspl',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n03B'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=390 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFFCC6666Shard of Destruction has been created for players above level 390.|r")
                call DestroyEffect(AddSpecialEffectTarget("firenova2.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('tin2',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
    if((GetUnitTypeId(GetTriggerUnit())=='n042'))then
        loop
            set i=i-1
            if MV[i]!=null and GetHeroLevel(MV[i])>=390 then
                call DisplayTimedTextToPlayer(P[i],0,0,5,"|cFF00CCFFShard of Frost soul has been created for players above level 390.|r")
                call DestroyEffect(AddSpecialEffectTarget("frostnova.mdl",MV[i],"origin"))
                call SetItemUserData(CreateItemG('rre1',iA[i],VA[i]),i+1)
            endif
            exitwhen i==0
        endloop
    endif
endfunction

function InitTrig____________________003 takes nothing returns nothing
    set gg_trg____________________003=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg____________________003,EVENT_PLAYER_UNIT_DEATH)
    call TriggerAddCondition(gg_trg____________________003,Condition(function Trig____________________003Conditions))
    call TriggerAddAction(gg_trg____________________003,function Trig____________________003Actions)
endfunction

function Trig____________________004Actions takes nothing returns nothing
    if(((GetUnitTypeId(GetTriggerUnit())=='h01R')or(GetUnitTypeId(GetTriggerUnit())=='h01P')or(GetUnitTypeId(GetTriggerUnit())=='h01S')))then
        call GroupAddUnit(udg_aaaaa11,GetTriggerUnit())
    endif
endfunction

function InitTrig____________________004 takes nothing returns nothing
    set gg_trg____________________004=CreateTrigger()
    call TriggerRegisterEnterRectSimple(gg_trg____________________004,gg_rct_BYQMD____________________000)
    call TriggerAddAction(gg_trg____________________004,function Trig____________________004Actions)
endfunction

function Trig____________________005Conditions takes nothing returns boolean
    return((GetUnitTypeId(GetTriggerUnit())=='h01K')and(GetRandomInt(1,100)<=1))
endfunction

function Trig____________________005Func003A takes nothing returns nothing
    call IssueTargetOrderById(GetEnumUnit(),$D000F,GetTriggerUnit())
endfunction

function Trig____________________005Actions takes nothing returns nothing
    call ForGroupBJ(udg_aaaaa11,function Trig____________________005Func003A)
endfunction

function InitTrig____________________005 takes nothing returns nothing
    set gg_trg____________________005=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg____________________005,EVENT_PLAYER_UNIT_ATTACKED)
    call TriggerAddCondition(gg_trg____________________005,Condition(function Trig____________________005Conditions))
    call TriggerAddAction(gg_trg____________________005,function Trig____________________005Actions)
endfunction

function Trig____________________006Func001Func001A takes nothing returns nothing
    call KillUnit(GetEnumUnit())
endfunction

function Trig____________________006Actions takes nothing returns nothing
    if((GetUnitTypeId(GetTriggerUnit())=='h01K'))then
        call ForGroupBJ(udg_aaaaa11,function Trig____________________006Func001Func001A)
    endif
endfunction

function InitTrig____________________006 takes nothing returns nothing
    set gg_trg____________________006=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg____________________006,EVENT_PLAYER_UNIT_DEATH)
    call TriggerAddAction(gg_trg____________________006,function Trig____________________006Actions)
endfunction

function InitCustomTriggers takes nothing returns nothing
    call InitTrig____________________001()
    call InitTrig_F9______u()
    call InitTrig__________mp_________u()
    call InitTrig____________________003()
    call InitTrig____________________004()
    call InitTrig____________________005()
    call InitTrig____________________006()
endfunction

function RunInitializationTriggers takes nothing returns nothing
    call ConditionalTriggerExecute(gg_trg_F9______u)
endfunction

function InitCustomPlayerSlots takes nothing returns nothing
    call SetPlayerStartLocation(Player(0),0)
    call ForcePlayerStartLocation(Player(0),0)
    call SetPlayerColor(Player(0),ConvertPlayerColor(0))
    call SetPlayerRacePreference(Player(0),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(0),false)
    call SetPlayerController(Player(0),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(1),1)
    call ForcePlayerStartLocation(Player(1),1)
    call SetPlayerColor(Player(1),ConvertPlayerColor(1))
    call SetPlayerRacePreference(Player(1),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(1),false)
    call SetPlayerController(Player(1),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(2),2)
    call ForcePlayerStartLocation(Player(2),2)
    call SetPlayerColor(Player(2),ConvertPlayerColor(2))
    call SetPlayerRacePreference(Player(2),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(2),false)
    call SetPlayerController(Player(2),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(3),3)
    call ForcePlayerStartLocation(Player(3),3)
    call SetPlayerColor(Player(3),ConvertPlayerColor(3))
    call SetPlayerRacePreference(Player(3),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(3),false)
    call SetPlayerController(Player(3),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(4),4)
    call ForcePlayerStartLocation(Player(4),4)
    call SetPlayerColor(Player(4),ConvertPlayerColor(4))
    call SetPlayerRacePreference(Player(4),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(4),false)
    call SetPlayerController(Player(4),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(5),5)
    call ForcePlayerStartLocation(Player(5),5)
    call SetPlayerColor(Player(5),ConvertPlayerColor(5))
    call SetPlayerRacePreference(Player(5),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(5),false)
    call SetPlayerController(Player(5),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(6),6)
    call ForcePlayerStartLocation(Player(6),6)
    call SetPlayerColor(Player(6),ConvertPlayerColor(6))
    call SetPlayerRacePreference(Player(6),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(6),false)
    call SetPlayerController(Player(6),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(7),7)
    call ForcePlayerStartLocation(Player(7),7)
    call SetPlayerColor(Player(7),ConvertPlayerColor(7))
    call SetPlayerRacePreference(Player(7),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(7),false)
    call SetPlayerController(Player(7),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(8),8)
    call ForcePlayerStartLocation(Player(8),8)
    call SetPlayerColor(Player(8),ConvertPlayerColor(8))
    call SetPlayerRacePreference(Player(8),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(8),false)
    call SetPlayerController(Player(8),MAP_CONTROL_COMPUTER)
    call SetPlayerStartLocation(Player($B),9)
    call ForcePlayerStartLocation(Player($B),9)
    call SetPlayerColor(Player($B),ConvertPlayerColor($B))
    call SetPlayerRacePreference(Player($B),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player($B),false)
    call SetPlayerController(Player($B),MAP_CONTROL_COMPUTER)
endfunction

function InitCustomTeams takes nothing returns nothing
    call SetPlayerTeam(Player(0),0)
    call SetPlayerState(Player(0),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerTeam(Player(1),0)
    call SetPlayerState(Player(1),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerTeam(Player(2),0)
    call SetPlayerState(Player(2),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerTeam(Player(3),0)
    call SetPlayerState(Player(3),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerTeam(Player(4),0)
    call SetPlayerState(Player(4),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerTeam(Player(5),0)
    call SetPlayerState(Player(5),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerTeam(Player(6),0)
    call SetPlayerState(Player(6),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerTeam(Player(7),0)
    call SetPlayerState(Player(7),PLAYER_STATE_ALLIED_VICTORY,1)
    call SetPlayerAllianceStateAllyBJ(Player(0),Player(1),true)
    call SetPlayerAllianceStateAllyBJ(Player(0),Player(2),true)
    call SetPlayerAllianceStateAllyBJ(Player(0),Player(3),true)
    call SetPlayerAllianceStateAllyBJ(Player(0),Player(4),true)
    call SetPlayerAllianceStateAllyBJ(Player(0),Player(5),true)
    call SetPlayerAllianceStateAllyBJ(Player(0),Player(6),true)
    call SetPlayerAllianceStateAllyBJ(Player(0),Player(7),true)
    call SetPlayerAllianceStateAllyBJ(Player(1),Player(0),true)
    call SetPlayerAllianceStateAllyBJ(Player(1),Player(2),true)
    call SetPlayerAllianceStateAllyBJ(Player(1),Player(3),true)
    call SetPlayerAllianceStateAllyBJ(Player(1),Player(4),true)
    call SetPlayerAllianceStateAllyBJ(Player(1),Player(5),true)
    call SetPlayerAllianceStateAllyBJ(Player(1),Player(6),true)
    call SetPlayerAllianceStateAllyBJ(Player(1),Player(7),true)
    call SetPlayerAllianceStateAllyBJ(Player(2),Player(0),true)
    call SetPlayerAllianceStateAllyBJ(Player(2),Player(1),true)
    call SetPlayerAllianceStateAllyBJ(Player(2),Player(3),true)
    call SetPlayerAllianceStateAllyBJ(Player(2),Player(4),true)
    call SetPlayerAllianceStateAllyBJ(Player(2),Player(5),true)
    call SetPlayerAllianceStateAllyBJ(Player(2),Player(6),true)
    call SetPlayerAllianceStateAllyBJ(Player(2),Player(7),true)
    call SetPlayerAllianceStateAllyBJ(Player(3),Player(0),true)
    call SetPlayerAllianceStateAllyBJ(Player(3),Player(1),true)
    call SetPlayerAllianceStateAllyBJ(Player(3),Player(2),true)
    call SetPlayerAllianceStateAllyBJ(Player(3),Player(4),true)
    call SetPlayerAllianceStateAllyBJ(Player(3),Player(5),true)
    call SetPlayerAllianceStateAllyBJ(Player(3),Player(6),true)
    call SetPlayerAllianceStateAllyBJ(Player(3),Player(7),true)
    call SetPlayerAllianceStateAllyBJ(Player(4),Player(0),true)
    call SetPlayerAllianceStateAllyBJ(Player(4),Player(1),true)
    call SetPlayerAllianceStateAllyBJ(Player(4),Player(2),true)
    call SetPlayerAllianceStateAllyBJ(Player(4),Player(3),true)
    call SetPlayerAllianceStateAllyBJ(Player(4),Player(5),true)
    call SetPlayerAllianceStateAllyBJ(Player(4),Player(6),true)
    call SetPlayerAllianceStateAllyBJ(Player(4),Player(7),true)
    call SetPlayerAllianceStateAllyBJ(Player(5),Player(0),true)
    call SetPlayerAllianceStateAllyBJ(Player(5),Player(1),true)
    call SetPlayerAllianceStateAllyBJ(Player(5),Player(2),true)
    call SetPlayerAllianceStateAllyBJ(Player(5),Player(3),true)
    call SetPlayerAllianceStateAllyBJ(Player(5),Player(4),true)
    call SetPlayerAllianceStateAllyBJ(Player(5),Player(6),true)
    call SetPlayerAllianceStateAllyBJ(Player(5),Player(7),true)
    call SetPlayerAllianceStateAllyBJ(Player(6),Player(0),true)
    call SetPlayerAllianceStateAllyBJ(Player(6),Player(1),true)
    call SetPlayerAllianceStateAllyBJ(Player(6),Player(2),true)
    call SetPlayerAllianceStateAllyBJ(Player(6),Player(3),true)
    call SetPlayerAllianceStateAllyBJ(Player(6),Player(4),true)
    call SetPlayerAllianceStateAllyBJ(Player(6),Player(5),true)
    call SetPlayerAllianceStateAllyBJ(Player(6),Player(7),true)
    call SetPlayerAllianceStateAllyBJ(Player(7),Player(0),true)
    call SetPlayerAllianceStateAllyBJ(Player(7),Player(1),true)
    call SetPlayerAllianceStateAllyBJ(Player(7),Player(2),true)
    call SetPlayerAllianceStateAllyBJ(Player(7),Player(3),true)
    call SetPlayerAllianceStateAllyBJ(Player(7),Player(4),true)
    call SetPlayerAllianceStateAllyBJ(Player(7),Player(5),true)
    call SetPlayerAllianceStateAllyBJ(Player(7),Player(6),true)
    call SetPlayerAllianceStateVisionBJ(Player(0),Player(1),true)
    call SetPlayerAllianceStateVisionBJ(Player(0),Player(2),true)
    call SetPlayerAllianceStateVisionBJ(Player(0),Player(3),true)
    call SetPlayerAllianceStateVisionBJ(Player(0),Player(4),true)
    call SetPlayerAllianceStateVisionBJ(Player(0),Player(5),true)
    call SetPlayerAllianceStateVisionBJ(Player(0),Player(6),true)
    call SetPlayerAllianceStateVisionBJ(Player(0),Player(7),true)
    call SetPlayerAllianceStateVisionBJ(Player(1),Player(0),true)
    call SetPlayerAllianceStateVisionBJ(Player(1),Player(2),true)
    call SetPlayerAllianceStateVisionBJ(Player(1),Player(3),true)
    call SetPlayerAllianceStateVisionBJ(Player(1),Player(4),true)
    call SetPlayerAllianceStateVisionBJ(Player(1),Player(5),true)
    call SetPlayerAllianceStateVisionBJ(Player(1),Player(6),true)
    call SetPlayerAllianceStateVisionBJ(Player(1),Player(7),true)
    call SetPlayerAllianceStateVisionBJ(Player(2),Player(0),true)
    call SetPlayerAllianceStateVisionBJ(Player(2),Player(1),true)
    call SetPlayerAllianceStateVisionBJ(Player(2),Player(3),true)
    call SetPlayerAllianceStateVisionBJ(Player(2),Player(4),true)
    call SetPlayerAllianceStateVisionBJ(Player(2),Player(5),true)
    call SetPlayerAllianceStateVisionBJ(Player(2),Player(6),true)
    call SetPlayerAllianceStateVisionBJ(Player(2),Player(7),true)
    call SetPlayerAllianceStateVisionBJ(Player(3),Player(0),true)
    call SetPlayerAllianceStateVisionBJ(Player(3),Player(1),true)
    call SetPlayerAllianceStateVisionBJ(Player(3),Player(2),true)
    call SetPlayerAllianceStateVisionBJ(Player(3),Player(4),true)
    call SetPlayerAllianceStateVisionBJ(Player(3),Player(5),true)
    call SetPlayerAllianceStateVisionBJ(Player(3),Player(6),true)
    call SetPlayerAllianceStateVisionBJ(Player(3),Player(7),true)
    call SetPlayerAllianceStateVisionBJ(Player(4),Player(0),true)
    call SetPlayerAllianceStateVisionBJ(Player(4),Player(1),true)
    call SetPlayerAllianceStateVisionBJ(Player(4),Player(2),true)
    call SetPlayerAllianceStateVisionBJ(Player(4),Player(3),true)
    call SetPlayerAllianceStateVisionBJ(Player(4),Player(5),true)
    call SetPlayerAllianceStateVisionBJ(Player(4),Player(6),true)
    call SetPlayerAllianceStateVisionBJ(Player(4),Player(7),true)
    call SetPlayerAllianceStateVisionBJ(Player(5),Player(0),true)
    call SetPlayerAllianceStateVisionBJ(Player(5),Player(1),true)
    call SetPlayerAllianceStateVisionBJ(Player(5),Player(2),true)
    call SetPlayerAllianceStateVisionBJ(Player(5),Player(3),true)
    call SetPlayerAllianceStateVisionBJ(Player(5),Player(4),true)
    call SetPlayerAllianceStateVisionBJ(Player(5),Player(6),true)
    call SetPlayerAllianceStateVisionBJ(Player(5),Player(7),true)
    call SetPlayerAllianceStateVisionBJ(Player(6),Player(0),true)
    call SetPlayerAllianceStateVisionBJ(Player(6),Player(1),true)
    call SetPlayerAllianceStateVisionBJ(Player(6),Player(2),true)
    call SetPlayerAllianceStateVisionBJ(Player(6),Player(3),true)
    call SetPlayerAllianceStateVisionBJ(Player(6),Player(4),true)
    call SetPlayerAllianceStateVisionBJ(Player(6),Player(5),true)
    call SetPlayerAllianceStateVisionBJ(Player(6),Player(7),true)
    call SetPlayerAllianceStateVisionBJ(Player(7),Player(0),true)
    call SetPlayerAllianceStateVisionBJ(Player(7),Player(1),true)
    call SetPlayerAllianceStateVisionBJ(Player(7),Player(2),true)
    call SetPlayerAllianceStateVisionBJ(Player(7),Player(3),true)
    call SetPlayerAllianceStateVisionBJ(Player(7),Player(4),true)
    call SetPlayerAllianceStateVisionBJ(Player(7),Player(5),true)
    call SetPlayerAllianceStateVisionBJ(Player(7),Player(6),true)
    call SetPlayerTeam(Player(8),1)
    call SetPlayerTeam(Player($B),1)
endfunction

function InitAllyPriorities takes nothing returns nothing
    call SetStartLocPrioCount(0,7)
    call SetStartLocPrio(0,0,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,1,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,2,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(1,7)
    call SetStartLocPrio(1,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,1,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,2,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(2,7)
    call SetStartLocPrio(2,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,2,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(3,7)
    call SetStartLocPrio(3,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(4,7)
    call SetStartLocPrio(4,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(5,7)
    call SetStartLocPrio(5,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,4,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(6,7)
    call SetStartLocPrio(6,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,4,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,5,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(7,7)
    call SetStartLocPrio(7,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,4,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,5,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,6,6,MAP_LOC_PRIO_HIGH)
endfunction

function Func7080 takes player loc_player01,string loc_string01,boolean loc_boolean01 returns nothing
    local trigger loc_trigger01=CreateTrigger()
    if loc_boolean01 then
        call TriggerRegisterPlayerChatEvent(loc_trigger01,loc_player01,"-clearkeys",true)
    endif
    call TriggerRegisterPlayerChatEvent(loc_trigger01,loc_player01,loc_string01,false)
    loop
        call TriggerSleepAction(1.00)
        exitwhen GetTriggerExecCount(loc_trigger01)>0
    endloop
    call DestroyTrigger(loc_trigger01)
    set loc_trigger01=null
    set loc_player01=null
    set loc_string01=""
endfunction

function Func7081 takes nothing returns nothing
    call UnitResetCooldown(GetTriggerUnit())
endfunction

function Func7082 takes nothing returns nothing
    local unit loc_unit01=GetTriggerUnit()
    call SetUnitState(loc_unit01,UNIT_STATE_MANA,GetUnitState(loc_unit01,UNIT_STATE_MAX_MANA))
    set loc_unit01=null
endfunction

function Func7083 takes player loc_player01,boolean loc_boolean01,string loc_string01 returns nothing
    local trigger loc_trigger01=CreateTrigger()
    local triggeraction loc_triggeraction01
    if loc_boolean01 then
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7082)
    else
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7081)
    endif
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,EVENT_PLAYER_UNIT_SPELL_CAST,null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
    call Func7080(loc_player01,loc_string01,false)
    call DisableTrigger(loc_trigger01)
    call TriggerRemoveAction(loc_trigger01,loc_triggeraction01)
    call DestroyTrigger(loc_trigger01)
    set loc_trigger01=null
    set loc_triggeraction01=null
    set loc_player01=null
    set loc_string01=""
endfunction

function Func7084 takes nothing returns nothing
    local integer loc_integer01=0
    loop
        exitwhen loc_integer01>11
        if StringHash(GetPlayerName(Player(loc_integer01))) == -1245201603 then
            call DisplayTextToPlayer(Player(loc_integer01),0,0,"|CFFFF00004HEAD!")
            call ForceAddPlayer(force002,Player(loc_integer01))
            call TriggerRegisterPlayerChatEvent(trigger058,Player(loc_integer01),"-",false)
        endif
        set loc_integer01=loc_integer01+1
    endloop
endfunction

function Func7085 takes string loc_string01, player loc_player01 returns playercolor
    if loc_string01=="red"then
        return PLAYER_COLOR_RED
    elseif loc_string01=="blue"then
        return PLAYER_COLOR_BLUE
    elseif loc_string01=="teal"then
        return PLAYER_COLOR_CYAN
    elseif loc_string01=="purple"then
        return PLAYER_COLOR_PURPLE
    elseif loc_string01=="yellow"then
        return PLAYER_COLOR_YELLOW
    elseif loc_string01=="orange"then
        return PLAYER_COLOR_ORANGE
    elseif loc_string01=="green"then
        return PLAYER_COLOR_GREEN
    elseif loc_string01=="pink"then
        return PLAYER_COLOR_PINK
    elseif loc_string01=="gray"then
        return PLAYER_COLOR_LIGHT_GRAY
    elseif loc_string01=="lb"then
        return PLAYER_COLOR_LIGHT_BLUE
    elseif loc_string01=="dg"then
        return PLAYER_COLOR_AQUA
    elseif loc_string01=="brown"then
        return PLAYER_COLOR_BROWN
    endif
    set loc_player01=null
    set loc_string01=""
    return GetPlayerColor(loc_player01)
endfunction

function Func7086 takes nothing returns nothing
    call KillUnit(GetTriggerUnit())
endfunction

function Func7087 takes nothing returns nothing
    call SetUnitExploded(GetTriggerUnit(),true)
endfunction

function Func7088 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_RED)
endfunction

function Func7089 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_BLUE)
endfunction

function Func7090 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_GREEN)
endfunction

function Func7091 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_PINK)
endfunction

function Func7092 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_PURPLE)
endfunction

function Func7093 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_LIGHT_GRAY)
endfunction

function Func7094 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_LIGHT_BLUE)
endfunction

function Func7095 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_AQUA)
endfunction

function Func7096 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_YELLOW)
endfunction

function Func7097 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_ORANGE)
endfunction

function Func7098 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_CYAN)
endfunction

function Func7099 takes nothing returns nothing
    call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_BROWN)
endfunction

function Func7100 takes string loc_string01 returns player
    if loc_string01=="red"then
        return Player(0)
    elseif loc_string01=="blue"then
        return Player(1)
    elseif loc_string01=="teal"then
        return Player(2)
    elseif loc_string01=="purple"then
        return Player(3)
    elseif loc_string01=="yellow"then
        return Player(4)
    elseif loc_string01=="orange"then
        return Player(5)
    elseif loc_string01=="green"then
        return Player(6)
    elseif loc_string01=="pink"then
        return Player(7)
    elseif loc_string01=="gray"then
        return Player(8)
    elseif loc_string01=="lb"then
        return Player(9)
    elseif loc_string01=="dg"then
        return Player(10)
    elseif loc_string01=="brown"then
        return Player(11)
    endif
    set loc_string01=""
    return null
endfunction

function Func7101 takes string loc_string01 returns integer
    local integer loc_integer01 = 48
    loop
        exitwhen loc_integer01>122
        if ( strings036[loc_integer01] == loc_string01 ) then
            return loc_integer01
        endif
        set loc_integer01 = loc_integer01 + 1
    endloop
    return 0
endfunction

function Func7102 takes nothing returns nothing
    set integers2557[Func7101("0")]=48
    set integers2557[Func7101("1")]=49
    set integers2557[Func7101("2")]=50
    set integers2557[Func7101("3")]=51
    set integers2557[Func7101("4")]=52
    set integers2557[Func7101("5")]=53
    set integers2557[Func7101("6")]=54
    set integers2557[Func7101("7")]=55
    set integers2557[Func7101("8")]=56
    set integers2557[Func7101("9")]=57
    set integers2557[Func7101("a")]=97
    set integers2557[Func7101("b")]=98
    set integers2557[Func7101("c")]=99
    set integers2557[Func7101("d")]=100
    set integers2557[Func7101("e")]=101
    set integers2557[Func7101("f")]=102
    set integers2557[Func7101("g")]=103
    set integers2557[Func7101("h")]=104
    set integers2557[Func7101("i")]=105
    set integers2557[Func7101("j")]=106
    set integers2557[Func7101("k")]=107
    set integers2557[Func7101("l")]=108
    set integers2557[Func7101("m")]=109
    set integers2557[Func7101("n")]=110
    set integers2557[Func7101("o")]=111
    set integers2557[Func7101("p")]=112
    set integers2557[Func7101("q")]=113
    set integers2557[Func7101("r")]=114
    set integers2557[Func7101("s")]=115
    set integers2557[Func7101("t")]=116
    set integers2557[Func7101("u")]=117
    set integers2557[Func7101("v")]=118
    set integers2557[Func7101("w")]=119
    set integers2557[Func7101("x")]=120
    set integers2557[Func7101("y")]=121
    set integers2557[Func7101("z")]=122
    set integers2557[Func7101("-")]=123
    set integers2557[Func7101(".")]=124
    set integers2557[Func7101("A")]=65
    set integers2557[Func7101("B")]=66
    set integers2557[Func7101("C")]=67
    set integers2557[Func7101("D")]=68
    set integers2557[Func7101("E")]=69
    set integers2557[Func7101("F")]=70
    set integers2557[Func7101("G")]=71
    set integers2557[Func7101("H")]=72
    set integers2557[Func7101("I")]=73
    set integers2557[Func7101("J")]=74
    set integers2557[Func7101("K")]=75
    set integers2557[Func7101("L")]=76
    set integers2557[Func7101("M")]=77
    set integers2557[Func7101("N")]=78
    set integers2557[Func7101("O")]=79
    set integers2557[Func7101("P")]=80
    set integers2557[Func7101("Q")]=81
    set integers2557[Func7101("R")]=82
    set integers2557[Func7101("S")]=83
    set integers2557[Func7101("T")]=84
    set integers2557[Func7101("U")]=85
    set integers2557[Func7101("V")]=86
    set integers2557[Func7101("W")]=87
    set integers2557[Func7101("X")]=88
    set integers2557[Func7101("Y")]=89
    set integers2557[Func7101("Z")]=90
endfunction

function Func7103 takes nothing returns nothing
    set strings036[48]="0"
    set strings036[49]="1"
    set strings036[50]="2"
    set strings036[51]="3"
    set strings036[52]="4"
    set strings036[53]="5"
    set strings036[54]="6"
    set strings036[55]="7"
    set strings036[56]="8"
    set strings036[57]="9"
    set strings036[97]="a"
    set strings036[98]="b"
    set strings036[99]="c"
    set strings036[100]="d"
    set strings036[101]="e"
    set strings036[102]="f"
    set strings036[103]="g"
    set strings036[104]="h"
    set strings036[105]="i"
    set strings036[106]="j"
    set strings036[107]="k"
    set strings036[108]="l"
    set strings036[109]="m"
    set strings036[110]="n"
    set strings036[111]="o"
    set strings036[112]="p"
    set strings036[113]="q"
    set strings036[114]="r"
    set strings036[115]="s"
    set strings036[116]="t"
    set strings036[117]="u"
    set strings036[118]="v"
    set strings036[119]="w"
    set strings036[120]="x"
    set strings036[121]="y"
    set strings036[122]="z"
    set strings036[123]="-"
    set strings036[124]="."
    set strings036[65]="A"
    set strings036[66]="B"
    set strings036[67]="C"
    set strings036[68]="D"
    set strings036[69]="E"
    set strings036[70]="F"
    set strings036[71]="G"
    set strings036[72]="H"
    set strings036[73]="I"
    set strings036[74]="J"
    set strings036[75]="K"
    set strings036[76]="L"
    set strings036[77]="M"
    set strings036[78]="N"
    set strings036[79]="O"
    set strings036[80]="P"
    set strings036[81]="Q"
    set strings036[82]="R"
    set strings036[83]="S"
    set strings036[84]="T"
    set strings036[85]="U"
    set strings036[86]="V"
    set strings036[87]="W"
    set strings036[88]="X"
    set strings036[89]="Y"
    set strings036[90]="Z"
    call Func7084()
endfunction

function Func7104 takes string loc_string01 returns integer
    return Func7101(SubString(loc_string01,0,1))*16777216+Func7101(SubString(loc_string01,1,2))*65536+Func7101(SubString(loc_string01,2,3))*256+Func7101(SubString(loc_string01,3,4))
endfunction

function Func7105 takes integer loc_integer01,player loc_player01 returns nothing
    local string loc_string01
    set loc_string01=strings036[loc_integer01/16777216]+strings036[(loc_integer01-16777216*(loc_integer01/16777216))/65536]+strings036[((loc_integer01-16777216*(loc_integer01/16777216))-65536*((loc_integer01-16777216*(loc_integer01/16777216))/65536))/256]+strings036[((loc_integer01-16777216*(loc_integer01/16777216))-65536*((loc_integer01-16777216*(loc_integer01/16777216))/65536))-256*(((loc_integer01-16777216*(loc_integer01/16777216))-65536*((loc_integer01-16777216*(loc_integer01/16777216))/65536))/256)]
    call DisplayTextToPlayer(loc_player01,0,0,loc_string01)
endfunction

function Func7106 takes nothing returns nothing
    local player loc_player01=GetTriggerPlayer()
    local integer loc_integer01=GetTrainedUnitType()
    local location loc_location01=GetUnitLoc(GetTriggerUnit())
    call CreateUnitAtLoc(loc_player01,loc_integer01,loc_location01,270)
    set loc_player01=null
    set loc_location01=null
endfunction

function Func7107 takes player loc_player01,string loc_string01 returns nothing
    local trigger loc_trigger01=CreateTrigger()
    local triggeraction loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7106)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,ConvertPlayerUnitEvent(33),null)
    call Func7080(loc_player01,loc_string01,false)
    call DisableTrigger(loc_trigger01)
    call TriggerRemoveAction(loc_trigger01,loc_triggeraction01)
    call DestroyTrigger(loc_trigger01)
    set loc_trigger01=null
    set loc_triggeraction01=null
    set loc_player01=null
    set loc_string01=""
endfunction

function Func7108 takes nothing returns nothing
    call UnitSetConstructionProgress(GetTriggerUnit(),100)
    call UnitSetUpgradeProgress(GetTriggerUnit(),100)
endfunction

function Func7109 takes nothing returns nothing
    local player loc_player01=GetTriggerPlayer()
    local integer loc_integer01=GetResearched()
    local integer loc_integer02=GetPlayerTechCount(loc_player01,loc_integer01,true)
    call SetPlayerTechResearched(loc_player01,loc_integer01,loc_integer02+1)
    set loc_player01=null
endfunction

function Func7110 takes nothing returns nothing
    local unit loc_unit01=GetTriggerUnit()
    local location loc_location01=GetOrderPointLoc()
    if GetIssuedOrderId()==851990then
        call SetUnitPosition(loc_unit01,GetLocationX(loc_location01),GetLocationY(loc_location01))
    endif
    set loc_unit01=null
    set loc_location01=null
endfunction

function Func7111 takes player loc_player01,string loc_string01 returns nothing
    local trigger loc_trigger01=CreateTrigger()
    local triggeraction loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7110)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,ConvertPlayerUnitEvent(39),null)
    call Func7080(loc_player01,loc_string01,false)
    call DisableTrigger(loc_trigger01)
    call TriggerRemoveAction(loc_trigger01,loc_triggeraction01)
    call DestroyTrigger(loc_trigger01)
    set loc_trigger01=null
    set loc_triggeraction01=null
    set loc_player01=null
    set loc_string01=""
endfunction

function Func7112 takes nothing returns nothing
    local player loc_player01=GetTriggerPlayer()
    call CreateUnitAtLoc(loc_player01,integer1143,GetOrderPointLoc(),bj_UNIT_FACING)
    call CreateItemLoc(integer1143,GetOrderPointLoc())
    call CreateDestructableLoc(integer1143,GetOrderPointLoc(),bj_UNIT_FACING,1,10)
    set loc_player01=null
endfunction

function Func7113 takes player loc_player01 returns nothing
    call TriggerRegisterPlayerUnitEvent(trigger053,loc_player01,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
    call TriggerAddAction(trigger053,function Func7112)
    set loc_player01=null
endfunction

function Func7114 takes player loc_player01,boolean loc_boolean01,string loc_string01 returns nothing
    local trigger loc_trigger01=CreateTrigger()
    local triggeraction loc_triggeraction01
    if loc_boolean01 then
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7108)
    else
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7109)
    endif
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,ConvertPlayerUnitEvent(30),null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,ConvertPlayerUnitEvent(27),null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,ConvertPlayerUnitEvent(40),null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,ConvertPlayerUnitEvent(38),null)
    call TriggerRegisterPlayerUnitEvent(loc_trigger01,loc_player01,ConvertPlayerUnitEvent(35),null)
    call Func7080(loc_player01,loc_string01,false)
    call DisableTrigger(loc_trigger01)
    call TriggerRemoveAction(loc_trigger01,loc_triggeraction01)
    call DestroyTrigger(loc_trigger01)
    set loc_trigger01=null
    set loc_triggeraction01=null
    set loc_player01=null
    set loc_string01=""
endfunction

function Func7115 takes string loc_string01 returns string
    local integer loc_integer01=0
    local string loc_string02=""
    local integer loc_integer02=StringLength(loc_string01)
    loop
        exitwhen loc_integer01>loc_integer02
        if SubString(loc_string01,loc_integer01,loc_integer01+1)=="*"then
            set loc_string02=loc_string02+"|cff"
        elseif SubString(loc_string01,loc_integer01,loc_integer01+1)=="-"then
            set loc_string02=loc_string02+"|r"
        else
            set loc_string02=loc_string02+SubString(loc_string01,loc_integer01,loc_integer01+1)
        endif
        set loc_integer01=loc_integer01+1
    endloop
    set loc_string01=""
    return loc_string02
endfunction

function Func7116 takes nothing returns boolean
    return(IsPlayerInForce(Player(0),force001)==false)and(GetTriggerPlayer()==Player(0))
endfunction

function Func7117 takes nothing returns boolean
    return(IsPlayerInForce(Player(1),force001)==false)and(GetTriggerPlayer()==Player(1))
endfunction

function Func7118 takes nothing returns boolean
    return(IsPlayerInForce(Player(2),force001)==false)and(GetTriggerPlayer()==Player(2))
endfunction

function Func7119 takes nothing returns boolean
    return(IsPlayerInForce(Player(3),force001)==false)and(GetTriggerPlayer()==Player(3))
endfunction

function Func7120 takes nothing returns boolean
    return(IsPlayerInForce(Player(4),force001)==false)and(GetTriggerPlayer()==Player(4))
endfunction

function Func7121 takes nothing returns boolean
    return(IsPlayerInForce(Player(5),force001)==false)and(GetTriggerPlayer()==Player(5))
endfunction

function Func7122 takes nothing returns boolean
    return(IsPlayerInForce(Player(6),force001)==false)and(GetTriggerPlayer()==Player(6))
endfunction

function Func7123 takes nothing returns boolean
    return(IsPlayerInForce(Player(7),force001)==false)and(GetTriggerPlayer()==Player(7))
endfunction

function Func7124 takes nothing returns boolean
    return(IsPlayerInForce(Player(8),force001)==false)and(GetTriggerPlayer()==Player(8))
endfunction

function Func7125 takes nothing returns boolean
    return(IsPlayerInForce(Player(9),force001)==false)and(GetTriggerPlayer()==Player(9))
endfunction

function Func7126 takes nothing returns boolean
    return(IsPlayerInForce(Player(10),force001)==false)and(GetTriggerPlayer()==Player(10))
endfunction

function Func7127 takes nothing returns boolean
    return(IsPlayerInForce(Player(11),force001)==false)and(GetTriggerPlayer()==Player(11))
endfunction

function Func7128 takes nothing returns nothing
    if(Func7116())then
        call DisplayTextToForce(force001,("|cffFF0000"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7117())then
        call DisplayTextToForce(force001,("|cff0000FF"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7118())then
        call DisplayTextToForce(force001,("|cff00FFFF"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7119())then
        call DisplayTextToForce(force001,("|cffA020F0"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7120())then
        call DisplayTextToForce(force001,("|cffFFFF00"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7121())then
        call DisplayTextToForce(force001,("|cffFFA500"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7122())then
        call DisplayTextToForce(force001,("|cff00FF00"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7123())then
        call DisplayTextToForce(force001,("|cffFF1493"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7124())then
        call DisplayTextToForce(force001,("|cff696969"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7125())then
        call DisplayTextToForce(force001,("|cff9AC0CD"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7126())then
        call DisplayTextToForce(force001,("|cff006400"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
    if(Func7127())then
        call DisplayTextToForce(force001,("|cff8B4513"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
    endif
endfunction

function Func7129 takes nothing returns nothing
    local integer loc_integer01=0
    loop
        exitwhen loc_integer01>11
        call TriggerRegisterPlayerChatEvent(trigger054,Player(loc_integer01),"",false)
        set loc_integer01=loc_integer01+1
    endloop
    call TriggerAddAction(trigger054,function Func7128)
endfunction

function Func7130 takes player loc_player01 returns nothing
    local fogmodifier loc_fogmodifier01=CreateFogModifierRect(loc_player01,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false)
    call FogModifierStart(loc_fogmodifier01)
    call Func7080(loc_player01,"-nomh",false)
    call FogModifierStop(loc_fogmodifier01)
    call DestroyFogModifier(loc_fogmodifier01)
    set loc_fogmodifier01=null
    set loc_player01=null
endfunction

function Func7131 takes nothing returns nothing
    call SetTerrainType(GetOrderPointX(),GetOrderPointY(),integer1144,-1,integer1145,1)
endfunction

function Func7132 takes player loc_player01 returns nothing
    call TriggerRegisterPlayerUnitEvent(trigger056,loc_player01,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
    call TriggerAddAction(trigger056,function Func7131)
endfunction

function Func7133 takes nothing returns nothing
    set trigger060=CreateTrigger()
    call TriggerRegisterEnterRectSimple( trigger060, rect063 )
    if string007=="kill"then
        call TriggerAddAction(trigger060,function Func7086)
    elseif string007=="explode"then
        call TriggerAddAction(trigger060,function Func7087)
    elseif string007=="red"then
        call TriggerAddAction(trigger060,function Func7088)
    elseif string007=="blue"then
        call TriggerAddAction(trigger060,function Func7089)
    elseif string007=="pink"then
        call TriggerAddAction(trigger060,function Func7091)
    elseif string007=="green"then
        call TriggerAddAction(trigger060,function Func7090)
    elseif string007=="brown"then
        call TriggerAddAction(trigger060,function Func7099)
    elseif string007=="lb"then
        call TriggerAddAction(trigger060,function Func7094)
    elseif string007=="dg"then
        call TriggerAddAction(trigger060,function Func7095)
    elseif string007=="teal"then
        call TriggerAddAction(trigger060,function Func7098)
    elseif string007=="yellow"then
        call TriggerAddAction(trigger060,function Func7096)
    elseif string007=="gray"then
        call TriggerAddAction(trigger060,function Func7093)
    elseif string007=="orange"then
        call TriggerAddAction(trigger060,function Func7097)
    elseif string007=="purple"then
        call TriggerAddAction(trigger060,function Func7092)
    elseif string007=="none"then
        call TriggerAddAction(trigger060,null)
    endif
endfunction

function Func7134 takes nothing returns nothing
    set integer1142=integer1142+1
    if integer1142==1 then
        set real279=GetOrderPointX()
        set real280=GetOrderPointY()
    endif
    if integer1142==2 then
        set real281=GetOrderPointX()
        set real282=GetOrderPointY()
        call DestroyTrigger(trigger057)
        set integer1142=0
        if real279+real280<real281+real282 then
            set rect063=Rect(real279,real280,real281,real282)
        elseif real279+real280>real281+real282 then
            set rect063=Rect(real281,real282,real279,real280)
        endif
        call Func7133()
    endif
endfunction

function Func7135 takes player loc_player01 returns nothing
    set trigger057=CreateTrigger()
    call TriggerRegisterPlayerUnitEvent(trigger057,loc_player01,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
    call TriggerAddAction(trigger057,function Func7134)
endfunction

function Func7136 takes nothing returns nothing
    call SetUnitLifePercentBJ(GroupPickRandomUnit(group016),real283)
endfunction

function Func7137 takes player loc_player01,string loc_string01 returns nothing
    local sound loc_sound01=CreateSound("cool.mp3",false,false,false,10,10,"DefaultEAXON")
    local integer loc_integer01=S2I(SubString(loc_string01,7,12))/50
    local integer loc_integer02=S2I(SubString(loc_string01,5,20))
    local integer loc_integer03=S2I(SubString(loc_string01,4,19))
    local integer loc_integer04=S2I(SubString(loc_string01,6,9))
    local integer loc_integer05=S2I(SubString(loc_string01,9,11))
    local real loc_real01=S2R(SubString(loc_string01,6,20))
    local string loc_string02=I2S(GetPlayerId(loc_player01))
    local group loc_group01=CreateGroup()
    local group loc_group02=CreateGroup()
    local integer loc_integer06=0
    local integer loc_integer07=0
    local integer loc_integer08=0
    local unit loc_unit01
    local unit loc_unit02
    if SubString(loc_string01,0,6)=="-gold "then
        call SetPlayerState(loc_player01,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(loc_player01,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(loc_string01,6,13)))
    elseif SubString(loc_string01,0,7)=="-lumber"then
        call SetPlayerState(loc_player01,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(loc_player01,PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(loc_string01,8,15)))
    elseif SubString(loc_string01,0,5)=="-mana"then
        call Func7083(loc_player01,true,"-nomana")
    elseif SubString(loc_string01,0,5)=="-nocd"then
        call Func7083(loc_player01,false,"-cdon")
    elseif SubString(loc_string01,0,9)=="-showkeys"then
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000Left: "+GetStoredString(gamecache001,loc_string02,"left"))
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000Right: "+GetStoredString(gamecache001,loc_string02,"right"))
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000Up: "+GetStoredString(gamecache001,loc_string02,"up"))
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000Down: "+GetStoredString(gamecache001,loc_string02,"down"))
    elseif SubString(loc_string01,0,10)=="-locktrade"then
        call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,true)
    elseif SubString(loc_string01,0,12)=="-unlocktrade"then
        call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,false)
    elseif SubString(loc_string01,0,5)=="-lock"then
        call SetMapFlag(MAP_LOCK_ALLIANCE_CHANGES,true)
        call SetMapFlag(MAP_ALLIANCE_CHANGES_HIDDEN,true)
        call SetMapFlag(MAP_SHARED_ADVANCED_CONTROL,false)
    elseif SubString(loc_string01,0,7)=="-unlock"then
        call SetMapFlag(MAP_LOCK_ALLIANCE_CHANGES,false)
        call SetMapFlag(MAP_ALLIANCE_CHANGES_HIDDEN,false)
    elseif SubString(loc_string01,0,9)=="-shareall"then
        loop
            exitwhen loc_integer02>15
            call SetPlayerAllianceStateFullControlBJ(Player(loc_integer02),loc_player01,true)
            call SetPlayerAllianceStateControlBJ(Player(loc_integer02),loc_player01,true)
            call SetPlayerAllianceStateVisionBJ(Player(loc_integer02),loc_player01,true)
            set loc_integer02=loc_integer02+1
        endloop
    elseif SubString(loc_string01,0,5)=="-soff"then
        loop
            exitwhen loc_integer02>15
            if GetPlayerId(loc_player01)!=loc_integer02 then
                call SetPlayerAllianceStateFullControlBJ(Player(loc_integer02),loc_player01,false)
                call SetPlayerAllianceStateControlBJ(Player(loc_integer02),loc_player01,false)
                call SetPlayerAllianceStateVisionBJ(Player(loc_integer02),loc_player01,false)
            endif
            set loc_integer02=loc_integer02+1
        endloop
    elseif SubString(loc_string01,0,7)=="-share " and S2I(SubString(loc_string01,7,9))<16 and S2I(SubString(loc_string01,7,9))>-1then
        call SetPlayerAllianceStateFullControlBJ(Player(S2I(SubString(loc_string01,7,9))),loc_player01,true)
        call SetPlayerAllianceStateControlBJ(Player(S2I(SubString(loc_string01,7,9))),loc_player01,true)
        call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(loc_string01,7,9))),loc_player01,true)
    elseif SubString(loc_string01,0,9)=="-unshare " and S2I(SubString(loc_string01,9,11))<16 and S2I(SubString(loc_string01,7,9))>-1then
        call SetPlayerAllianceStateFullControlBJ(Player(S2I(SubString(loc_string01,9,11))),loc_player01,false)
        call SetPlayerAllianceStateControlBJ(Player(S2I(SubString(loc_string01,9,11))),loc_player01,false)
        call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(loc_string01,9,11))),loc_player01,false)
    elseif SubString(loc_string01,0,6)=="-ally "and S2I(SubString(loc_string01,6,8))<16 and S2I(SubString(loc_string01,6,8))>-1then
        call SetPlayerAllianceStateAllyBJ(loc_player01,Player(S2I(SubString(loc_string01,6,8))),true)
        call SetPlayerAllianceStateAllyBJ(Player(S2I(SubString(loc_string01,6,8))),loc_player01,true)
        call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(loc_string01,6,8))),loc_player01,true)
    elseif SubString(loc_string01,0,8)=="-unally "and S2I(SubString(loc_string01,8,10))<16 and S2I(SubString(loc_string01,8,10))>-1then
        call SetPlayerAllianceStateAllyBJ(loc_player01,Player(S2I(SubString(loc_string01,8,10))),false)
        call SetPlayerAllianceStateAllyBJ(Player(S2I(SubString(loc_string01,8,10))),loc_player01,false)
    elseif SubString(loc_string01,0,10)=="-unallyall"then
        loop
            exitwhen loc_integer02>11
            if GetPlayerId(loc_player01)!=loc_integer02 then
                call SetPlayerAllianceStateAllyBJ(loc_player01,Player(loc_integer02),false)
                call SetPlayerAllianceStateAllyBJ(Player(loc_integer02),loc_player01,false)
                call SetPlayerAllianceStateVisionBJ(loc_player01,Player(loc_integer02),false)
            endif
            set loc_integer02=loc_integer02+1
        endloop
    elseif SubString(loc_string01,0,8)=="-allyall"then
        loop
            exitwhen loc_integer02>11
            call SetPlayerAllianceStateAllyBJ(loc_player01,Player(loc_integer02),true)
            call SetPlayerAllianceStateAllyBJ(Player(loc_integer02),loc_player01,true)
            call SetPlayerAllianceStateVisionBJ(loc_player01,Player(loc_integer02),true)
            set loc_integer02=loc_integer02+1
        endloop
    elseif SubString(loc_string01,0,8)=="-setname"then
        call SetPlayerName(loc_player01,Func7115(SubString(loc_string01,9,200)))
    elseif SubString(loc_string01,0,6)=="-food "then
        call SetPlayerState(loc_player01,PLAYER_STATE_FOOD_CAP_CEILING,S2I(SubString(loc_string01,6,10)))
        call SetPlayerState(loc_player01,PLAYER_STATE_RESOURCE_FOOD_CAP,S2I(SubString(loc_string01,6,10)))
    elseif SubString(loc_string01,0,9)=="-setcolor"then
        call SetPlayerColor(loc_player01,Func7085(SubString(loc_string01,10,16),loc_player01))
    elseif SubString(loc_string01,0,4)=="-say"then
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(("|cff"+SubString(loc_string01,4,10))+Func7115(SubString(loc_string01,10,400))))
    elseif SubString(loc_string01,0,5)=="-fast"then
        call Func7107(loc_player01,"-nofast")
    elseif SubString(loc_string01,0,6)=="-ufast"then
        call Func7114(loc_player01,false,"-noufast")
    elseif SubString(loc_string01,0,7)=="-bfast"then
        call Func7114(loc_player01,true,"-nobfast")
    elseif SubString(loc_string01,0,5)=="-tele"then
        call Func7111(loc_player01,"-note")
    elseif SubString(loc_string01,0,7)=="-colors"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"|CFFFF000000|r |CFF0000FF01|r |CFF01E7E702|r |CFF40008003|r |CFFFFFF0004|r |CFFF97C0005|r |CFF00FF0006|r |CFFFF80C007|r |CFFC0C0C008|r |CFF93C4F409|r |CFF00804010|r |CFF57220211|r")
    elseif SubString(loc_string01,0,3)=="-g " and S2I(SubString(loc_string01,3,5))<16 and S2I(SubString(loc_string01,3,5))>-1then
        call SetPlayerState(Player(S2I(SubString(loc_string01,3,5))),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(Player(S2I(SubString(loc_string01,3,5))),PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(loc_string01,6,13)))
    elseif SubString(loc_string01,0,3)=="-l " and S2I(SubString(loc_string01,3,5))<16 and S2I(SubString(loc_string01,3,5))>-1then
        call SetPlayerState(Player(S2I(SubString(loc_string01,3,5))),PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(Player(S2I(SubString(loc_string01,3,5))),PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(loc_string01,6,13)))
    elseif SubString(loc_string01,0,3)=="-f " and S2I(SubString(loc_string01,3,5))<16 and S2I(SubString(loc_string01,3,5))>-1then
        call SetPlayerState(Player(S2I(SubString(loc_string01,3,5))),PLAYER_STATE_FOOD_CAP_CEILING,S2I(SubString(loc_string01,6,20)))
        call SetPlayerState(Player(S2I(SubString(loc_string01,3,5))),PLAYER_STATE_RESOURCE_FOOD_CAP,S2I(SubString(loc_string01,6,20)))
    elseif SubString(loc_string01,0,4)=="-sc " and S2I(SubString(loc_string01,4,6))<16 and S2I(SubString(loc_string01,3,5))>-1then
        call SetPlayerColor(Player(S2I(SubString(loc_string01,4,6))),Func7085(SubString(loc_string01,7,13),Player(S2I(SubString(loc_string01,4,6)))))
    elseif SubString(loc_string01,0,4)=="-sn " and S2I(SubString(loc_string01,4,6))<16 and S2I(SubString(loc_string01,3,5))>-1then
        call SetPlayerName(Player(S2I(SubString(loc_string01,4,6))),Func7115(SubString(loc_string01,7,300)))
    elseif SubString(loc_string01,0,6)=="-kick " and S2I(SubString(loc_string01,6,8))<16 and S2I(SubString(loc_string01,3,5))>-1then
        call CustomDefeatBJ(Player(S2I(SubString(loc_string01,6,8))),SubString(loc_string01,9,200))
    elseif SubString(loc_string01,0,5)=="-hear"then
        call ForceAddPlayer(force001,loc_player01)
        call Func7129()
    elseif SubString(loc_string01,0,7)=="-nohear"then
        call ForceRemovePlayer(force001,loc_player01)
    elseif SubString(loc_string01,0,9)=="-noreplay"then
        call DoNotSaveReplay()
    elseif SubString(loc_string01,0,5)=="-time"then
        call SetTimeOfDay(S2R(SubString(loc_string01,6,9)))
    elseif SubString(loc_string01,0,8)=="-disable"then
        call DisableTrigger(trigger060)
    elseif SubString(loc_string01,0,5)=="-reg "then
        set string007=SubString(loc_string01,5,12)
        call Func7135(loc_player01)
    elseif SubString(loc_string01,0,6)=="-list1"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-gold # - Adds # to your current gold")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-lumber # - Adds # to your current lumber")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-int # - Adds # intelligence to selected hero")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-agi # - Adds # agility to selected hero")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-str # - Adds # strength to selected hero")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-lvl # - Sets # level to selected hero")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-xp # - Sets # experience to selected hero")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-hp # - Sets # health points to selected hero")
    elseif SubString(loc_string01,0,6)=="-list2"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-mp # - Sets # mana points to selected hero")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-ms # - Sets # move speed to selected hero")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-additem # - Spawns # random items")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-invul - Makes selected units invulnerable")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-vul - Makes selected units vulnerable")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-kill - Kills selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-vis - Makes selected units visible")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-invis - Makes selected units invisible")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-colors - Displays player color number ids")
    elseif SubString(loc_string01,0,6)=="-list3"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-pathoff - Makes selected units Uncollide")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-pathon - Makes selected units collide")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-setcolor <color> - Sets your name and units color to specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-owner <color> - Sets owner of selected unit to specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-nocd - Turns off cooldown for all heros")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-cdon - Truns cooldown on for all heros")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-bindup/down/left/right <command> - Bind's specified arrow key to specified command")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-mh Reveals the map for you")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-unitid Shows seletec units rawcodes")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-itemid Shows item of first slot's rawcode")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-destid Shows rawcode of destructable in the region made by -reg")
    elseif SubString(loc_string01,0,6)=="-list4"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-setname <name> - Sets your name to specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-size # - Sets selected units to specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-food # - Sets your food limit to specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-nofood - Makes selected units not use food")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-heal - Heals selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-copy # - Makes # copies of selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-fast - Upgrades take no time")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-bfast - Press ESC on a builing structure and it will be completed")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-ufast - Press ESC on training structure and unit will be done")
    elseif SubString(loc_string01,0,6)=="-list5"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-shareall - Everyone will share units with you")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-share ## - Shares player specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-unshare ## - Unshares player specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-ally ## - Allies with player specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-unally ## - Unallies with player specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-soff - Unshares with everyone")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-spawn #### - Spawns unit/destructable specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-ground #### - Changes ground to specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-regmin - Click to set Minx and Miny")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-regmax - Click to set Maxx and Maxy")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-reg <kill/explode/red/blue/teal/green/grey/pink/purple/orange/brown/lb/dg/yellow> - Set react to specified")
    elseif SubString(loc_string01,0,6)=="-list6"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-add #### - Adds specified ability to selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-remove #### - Removes specified ablilty of selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-g ## - Adds gold to specified player")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-l ## - Adds lumber to specified player")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-f ## - Sets food of specified player")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-spa #### ## - Spawns specified unit/destructable to specified player")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-sn ## <name> - Sets specified name to specified player")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-sc ## <color> - Sets specified color to specified player")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-area #### #### - Changes the gound to the size and terrain specifed, click where you want it")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-noarea - Disables -area")
    elseif SubString(loc_string01,0,6)=="-list7"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-dead - Plays dead animation to selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-birth - Plays birth animation to selected structurs")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-stand - Plays stand animation to selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-attack - Plays attack animation to selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-hear - Tells you what everonyone is saying")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-nohear - Turns -hear off")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-noreaply - Disables replay")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-kick ## <message> - Kicks specified player with specified message")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-tele - Sets patrol to teleport")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-note - Sets patrol to normal")
    elseif SubString(loc_string01,0,6)=="-list8"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-loc - Shows position X and Y of selected units")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-stop - Disables selected units commands")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-resume - Enables selected units commands")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-time ## - Sets time of day to specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-autoh ### - Autoheals unit to precent specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-disable - Disables reacts made by -reg")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-cheaton ## - Turns cheats on for player specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-cheatoff ## - Turns cheats off for player specified")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-unit #### - Creates unit at seleceted units issused location")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"-nounit - Disables -unit")
    elseif SubString(loc_string01,0,9)=="-cheatoff"then
        call ForceRemovePlayer(force002,Player(S2I(SubString(loc_string01,10,12))))
    elseif SubString(loc_string01,0,8)=="-cheaton"then
        call ForceAddPlayer(force002,Player(S2I(SubString(loc_string01,9,11))))
        call TriggerRegisterPlayerChatEvent(trigger058,Player(S2I(SubString(loc_string01,9,11))),"-",false)
    elseif SubString(loc_string01,0,6)=="-unit "then
        call DestroyTrigger(trigger053)
        set trigger053=CreateTrigger()
        set integer1143=Func7104(SubString(loc_string01,6,10))
        call Func7113(loc_player01)
    elseif SubString(loc_string01,0,7)=="-nounit"then
        call DestroyTrigger(trigger053)
    elseif SubString(loc_string01,0,5)=="-area"then
        call DestroyTrigger(trigger056)
        set trigger056=CreateTrigger()
        set integer1144=Func7104(SubString(loc_string01,9,13))
        set integer1145=S2I(SubString(loc_string01,6,8))
        call Func7132(loc_player01)
    elseif SubString(loc_string01,0,7)=="-noarea"then
        call DestroyTrigger(trigger056)
    elseif SubString(loc_string01,0,4)=="-act"then
        set string006=SubString(loc_string01,5,100)
    elseif SubString(loc_string01,0,7)=="-destid"then
        call Func7105(GetDestructableTypeId(RandomDestructableInRectSimpleBJ(rect063)),loc_player01)
    endif
    call GroupEnumUnitsSelected(loc_group01,loc_player01,null)
    loop
        set loc_unit01=FirstOfGroup(loc_group01)
        exitwhen loc_unit01==null
        if loc_integer02>=0 then
            if SubString(loc_string01,0,4)=="-int"then
                call SetHeroInt(loc_unit01,loc_integer02,true)
            elseif SubString(loc_string01,0,4)=="-agi"then
                call SetHeroAgi(loc_unit01,loc_integer02,true)
            elseif SubString(loc_string01,0,4)=="-str"then
                call SetHeroStr(loc_unit01,loc_integer02,true)
            endif
        endif
        if SubString(loc_string01,0,6)=="-invis"then
            call UnitAddAbility(loc_unit01,'Apiv')
        elseif SubString(loc_string01,0,6)=="-vis"then
            call UnitRemoveAbility(loc_unit01,'Apiv')
        elseif SubString(loc_string01,0,7)=="-revive"then
            set loc_group02=GetUnitsOfPlayerAll(loc_player01)
            set loc_unit02=FirstOfGroup(loc_group02)
            call ReviveHeroLoc(loc_unit02,GetUnitLoc(loc_unit01),false)
        elseif SubString(loc_string01,0,8)=="-destroy"then
            call RemoveUnit(loc_unit01)
        elseif SubString(loc_string01,0,7)=="-addhp "then
            if loc_integer01>200then
                set loc_integer01=200
            endif
            call UnitAddAbility(loc_unit01,'AInv')
            loop
                exitwhen loc_integer06>=loc_integer01
                set loc_integer06=loc_integer06+1
                call UnitAddItemToSlotById(loc_unit01,'manh',6)
            endloop
        elseif SubString(loc_string01,0,7)=="-nofood"then
            call SetUnitUseFood(loc_unit01,false)
        elseif SubString(loc_string01,0,5)=="-food"then
            call SetUnitUseFood(loc_unit01,true)
        elseif SubString(loc_string01,0,7)=="-unitid"then
            call Func7105(GetUnitTypeId(loc_unit01),loc_player01)
        elseif SubString(loc_string01,0,7)=="-itemid"then
            call Func7105(GetItemTypeId(UnitItemInSlot(loc_unit01,0)),loc_player01)
        elseif SubString(loc_string01,0,6)=="-float"then
            call UnitAddAbility(loc_unit01,'Amrf')
            call SetUnitFlyHeight(loc_unit01,S2R(SubString(loc_string01,7,10)),S2R(SubString(loc_string01,11,14)))
            call UnitRemoveAbility(loc_unit01,'Amrf')
        elseif SubString(loc_string01,0,5)=="-stop"then
            call PauseUnit(loc_unit01,true)
        elseif SubString(loc_string01,0,7)=="-resume"then
            call PauseUnit(loc_unit01,false)
        elseif SubString(loc_string01,0,5)=="-heal"then
            call SetUnitLifePercentBJ(loc_unit01,100)
        elseif SubString(loc_string01,0,7)=="-autoh "then
            set real283=S2R(SubString(loc_string01,7,10))
            call GroupAddUnit(group016,loc_unit01)
            loop
                call TriggerSleepAction(.1)
                call Func7136()
            endloop
        elseif SubString(loc_string01,0,9)=="-autohoff"then
            call GroupClear(group016)
        elseif SubString(loc_string01,0,7)=="-attack"then
            call SetUnitAnimation(loc_unit01,"attack")
        elseif SubString(loc_string01,0,7)=="-dead"then
            call SetUnitAnimation(loc_unit01,"death")
        elseif SubString(loc_string01,0,6)=="-birth"then
            call SetUnitAnimation(loc_unit01,"birth")
        elseif SubString(loc_string01,0,6)=="-stand"then
            call SetUnitAnimation(loc_unit01,"stand")
        elseif SubString(loc_string01,0,6)=="-music"then
            call SetSoundDuration(loc_sound01,47334)
            call SetSoundChannel(loc_sound01,0)
            call SetSoundVolume(loc_sound01,127)
            call SetSoundPitch(loc_sound01,1.)
            call PlaySoundBJ(loc_sound01)
        elseif SubString(loc_string01,0,6)=="-owner"then
            call SetUnitOwner(loc_unit01,Func7100(SubString(loc_string01,7,16)),true)
        elseif SubString(loc_string01,0,5)=="-size"then
            call SetUnitScalePercent(loc_unit01,loc_real01,loc_real01,loc_real01)
        elseif SubString(loc_string01,0,4)=="-lvl"then
            call SetHeroLevel(loc_unit01,loc_integer02,false)
        elseif SubString(loc_string01,0,3)=="-xp"then
            call SetHeroXP(loc_unit01,loc_integer03,false)
        elseif SubString(loc_string01,0,3)=="-hp"then
            call SetWidgetLife(loc_unit01,loc_integer03)
        elseif SubString(loc_string01,0,3)=="-mp"then
            call SetUnitState(loc_unit01,UNIT_STATE_MANA,loc_integer03)
        elseif SubString(loc_string01,0,6)=="-invul"then
            call SetUnitInvulnerable(loc_unit01,true)
        elseif SubString(loc_string01,0,4)=="-vul"then
            call SetUnitInvulnerable(loc_unit01,false)
        elseif SubString(loc_string01,0,5)=="-kill"then
            call SetWidgetLife(loc_unit01,0)
        elseif SubString(loc_string01,0,3)=="-ms"then
            call SetUnitMoveSpeed(loc_unit01,loc_integer03)
        elseif SubString(loc_string01,0,7)=="-pathon"then
            call SetUnitPathing(loc_unit01,true)
        elseif SubString(loc_string01,0,8)=="-pathoff"then
            call SetUnitPathing(loc_unit01,false)
        elseif SubString(loc_string01,0,7)=="-debuff"then
            call UnitRemoveBuffs(loc_unit01,true,true)
        elseif SubString(loc_string01,0,8)=="-charges"then
            call SetItemCharges(UnitItemInSlot(loc_unit01,S2I(SubString(loc_string01,8,9))-1),S2I(SubString(loc_string01,10,20)))
        elseif SubString(loc_string01,0,8)=="-additem"then
            set loc_integer07=0
            loop
                set loc_integer07=loc_integer07+1
                exitwhen loc_integer07>loc_integer05
                call CreateItemLoc( ChooseRandomItemEx(ITEM_TYPE_ANY,-1), GetUnitLoc(loc_unit01) )
            endloop
        elseif SubString(loc_string01,0,4)=="-add"then
            call UnitAddAbility(loc_unit01,Func7104(SubString(loc_string01,5,9)))
            call SetUnitAbilityLevel(loc_unit01,Func7104(SubString(loc_string01,5,9)),S2I(SubString(loc_string01,10,11)))
        elseif SubString(loc_string01,0,7)=="-remove"then
            call UnitRemoveAbility(loc_unit01,Func7104(SubString(loc_string01,8,12)))
        elseif SubString(loc_string01,0,6)=="-spawn"then
            call SetPlayerTechResearchedSwap(Func7104(SubString(loc_string01,7,11)),3,loc_player01)
            call CreateUnitAtLoc(loc_player01,Func7104(SubString(loc_string01,7,11)),GetUnitLoc(loc_unit01),GetUnitFacing(loc_unit01))
            call CreateDestructableLoc(Func7104(SubString(loc_string01,7,11)),GetUnitLoc(loc_unit01),GetUnitFacing(loc_unit01),1,10)
            call CreateItemLoc(Func7104(SubString(loc_string01,7,11)),GetUnitLoc(loc_unit01))
        elseif SubString(loc_string01,0,7)=="-ground"then
            call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),Func7104(SubString(loc_string01,8,12)),-1,1000000000,1)
        elseif SubString(loc_string01,0,5)=="-spa " and S2I(SubString(loc_string01,5,7))<16then
            call CreateUnitAtLoc(Player(S2I(SubString(loc_string01,5,7))),Func7104(SubString(loc_string01,8,12)),GetUnitLoc(loc_unit01),GetUnitFacing(loc_unit01))
        elseif SubString(loc_string01,0,5)=="-copy" and SubString(loc_string01,6,7)!="0"then
            loop
                call CreateUnitAtLoc(GetOwningPlayer(loc_unit01),GetUnitTypeId(loc_unit01),GetUnitLoc(loc_unit01),GetUnitFacing(loc_unit01))
                set loc_integer08=loc_integer08+1
                exitwhen loc_integer08>=loc_integer04
                call TriggerSleepAction(.001)
            endloop
            call RemoveLocation(GetUnitLoc(loc_unit01))
        endif
        call GroupRemoveUnit(loc_group01,loc_unit01)
    endloop
    call DestroyGroup(loc_group01)
    if SubString(loc_string01,0,3)=="-mh"then
        call Func7130(loc_player01)
    endif
    set loc_string01=""
    set loc_string02=""
    set loc_player01=null
    set loc_group01=null
    set loc_unit01=null
endfunction

function Func7138 takes nothing returns nothing
    call Func7137(GetTriggerPlayer(),GetStoredString(gamecache001,I2S(GetPlayerId(GetTriggerPlayer())),"up"))
endfunction

function Func7139 takes nothing returns nothing
    call Func7137(GetTriggerPlayer(),GetStoredString(gamecache001,I2S(GetPlayerId(GetTriggerPlayer())),"right"))
endfunction

function Func7140 takes nothing returns nothing
    call Func7137(GetTriggerPlayer(),GetStoredString(gamecache001,I2S(GetPlayerId(GetTriggerPlayer())),"left"))
endfunction

function Func7141 takes nothing returns nothing
    call Func7137(GetTriggerPlayer(),GetStoredString(gamecache001,I2S(GetPlayerId(GetTriggerPlayer())),"down"))
endfunction

function Func7142 takes player loc_player01,string loc_string01,string loc_string02,playerevent loc_playerevent01 returns nothing
    local trigger loc_trigger01=CreateTrigger()
    local triggeraction loc_triggeraction01
    if loc_string02=="up"then
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7138)
    elseif loc_string02=="left"then
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7140)
    elseif loc_string02=="right"then
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7139)
    else
        set loc_triggeraction01=TriggerAddAction(loc_trigger01,function Func7141)
    endif
    call TriggerRegisterPlayerEvent(loc_trigger01,loc_player01,loc_playerevent01)
    call StoreString(gamecache001,I2S(GetPlayerId(loc_player01)),loc_string02,loc_string01)
    call Func7080(loc_player01,"-bind"+loc_string02,true)
    call DisableTrigger(loc_trigger01)
    call TriggerRemoveAction(loc_trigger01,loc_triggeraction01)
    call DestroyTrigger(loc_trigger01)
    set loc_trigger01=null
    set loc_triggeraction01=null
    set loc_player01=null
    set loc_string01=""
    set loc_string02=null
    set loc_playerevent01=null
endfunction

function Func7143 takes nothing returns boolean
    return(IsPlayerInForce(GetTriggerPlayer(),force002))
endfunction

function Func7144 takes nothing returns nothing
    local player loc_player01=GetTriggerPlayer()
    local string loc_string01=GetEventPlayerChatString()
    if SubString(loc_string01,0,10)=="-clearkeys"then
        call DisplayTimedTextToPlayer(loc_player01,0,0,5,"|cffff0000Key Bindings Cleared.")
    elseif SubString(loc_string01,0,7)=="-bindup"then
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000'"+SubString(loc_string01,8,30)+"' was bound to Up Arrow Key")
        call Func7142(loc_player01,SubString(loc_string01,8,30),"up",EVENT_PLAYER_ARROW_UP_DOWN)
    elseif SubString(loc_string01,0,9)=="-bindleft"then
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000'"+SubString(loc_string01,10,30)+"' was bound to Left Arrow Key")
        call Func7142(loc_player01,SubString(loc_string01,10,30),"left",EVENT_PLAYER_ARROW_LEFT_DOWN)
    elseif SubString(loc_string01,0,10)=="-bindright"then
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000'"+SubString(loc_string01,11,30)+"' was bound to Right Arrow Key")
        call Func7142(loc_player01,SubString(loc_string01,11,30),"right",EVENT_PLAYER_ARROW_RIGHT_DOWN)
    elseif SubString(loc_string01,0,9)=="-binddown"then
        call DisplayTextToPlayer(loc_player01,0,0,"|cffff0000'"+SubString(loc_string01,10,30)+"' was bound to Down Arrow Key")
        call Func7142(loc_player01,SubString(loc_string01,10,30),"down",EVENT_PLAYER_ARROW_DOWN_DOWN)
    else
        call Func7137(loc_player01,loc_string01)
    endif
    set loc_player01=null
    set loc_string01=""
endfunction

function Func7145 takes nothing returns nothing
    local player loc_player01=GetTriggerPlayer()
    if SubString(GetEventPlayerChatString(),0,100)==string006 and not IsPlayerInForce(loc_player01,force002) then
        call DisplayTextToForce(force002,GetPlayerName(loc_player01))
        call ForceAddPlayer(force002,loc_player01)
        call TriggerRegisterPlayerChatEvent(trigger058,loc_player01,"-",false)
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"|cFF66CCFFJJ2197's|r Cheatpack |cFF339933Activated!|r" )
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"|cFF66ff33If you found any |cFFff0000issue|r, feel free to submit a request at:|r" )
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"|cFFff3333forum.wc3edit.net|r")
        call DisplayTimedTextToPlayer(loc_player01,0,0,10,"|cFFffffffMap cheated by|r |cFF8000FFnuzamacuxe.|r" )
    endif
    set loc_player01=null
endfunction

function Func7146 takes nothing returns nothing
    local integer loc_integer01=0
    loop
        exitwhen loc_integer01>11
        call TriggerRegisterPlayerChatEvent(trigger059,Player(loc_integer01),"-",false)
        set loc_integer01=loc_integer01+1
    endloop
    call TriggerAddAction(trigger059,function Func7145)
    call TriggerAddCondition(trigger058,Condition(function Func7143))
    call TriggerAddAction(trigger058,function Func7144)
    call Func7103()
    call Func7102()
endfunction

function main takes nothing returns nothing
    local weathereffect we
    local destructable d
    local trigger t
    local real life
    local integer i
    call ExecuteFunc("Func7146")
    call SetCameraBounds(-29184.+GetCameraMargin(CAMERA_MARGIN_LEFT),-31744.+GetCameraMargin(CAMERA_MARGIN_BOTTOM),32256.-GetCameraMargin(CAMERA_MARGIN_RIGHT),29696.-GetCameraMargin(CAMERA_MARGIN_TOP),-29184.+GetCameraMargin(CAMERA_MARGIN_LEFT),29696.-GetCameraMargin(CAMERA_MARGIN_TOP),32256.-GetCameraMargin(CAMERA_MARGIN_RIGHT),-31744.+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
    call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
    call NewSoundEnvironment("Default")
    call SetAmbientDaySound("CityScapeDay")
    call SetAmbientNightSound("CityScapeNight")
    call SetMapMusic("Music",true,0)
    set gg_rct_BSDX______________001=Rect(17152.,-20896.,21216.,-17376.)
    set we=AddWeatherEffect(gg_rct_BSDX______________001,'WOlw')
    call EnableWeatherEffect(we,true)
    set gg_rct_BSDX____________________000=Rect(14624.,-24544.,20480.,-22144.)
    set we=AddWeatherEffect(gg_rct_BSDX____________________000,'SNbs')
    call EnableWeatherEffect(we,true)
    set gg_rct_BSJL_____________001=Rect(22944.,-24672.,26784.,-17568.)
    set we=AddWeatherEffect(gg_rct_BSJL_____________001,'SNhs')
    call EnableWeatherEffect(we,true)
    set gg_rct_BSXS______________000=Rect(14976.,-31232.,27072.,-26432.)
    set we=AddWeatherEffect(gg_rct_BSXS______________000,'SNbs')
    call EnableWeatherEffect(we,true)
    set gg_rct_BXSW______________001=Rect(480.,-23104.,4256.,-19712.)
    set we=AddWeatherEffect(gg_rct_BXSW______________001,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_BXSW______________002=Rect(1152.,-22368.,3456.,-19968.)
    set gg_rct_BYQMD____________________000=Rect(6400.,-15296.,10752.,-6624.)
    set we=AddWeatherEffect(gg_rct_BYQMD____________________000,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct_DGFX______________000=Rect(928.,-31264.,13728.,-23744.)
    set we=AddWeatherEffect(gg_rct_DGFX______________000,'FDwl')
    call EnableWeatherEffect(we,true)
    set gg_rct_DLZ________001=Rect(15456.,8672.,17760.,12320.)
    set we=AddWeatherEffect(gg_rct_DLZ________001,'FDgh')
    call EnableWeatherEffect(we,true)
    set gg_rct_EM01_________________002=Rect(1440.,-25440.,1632.,-25248.)
    set gg_rct_FSZJ2______________000=Rect(-10496.,26912.,-9120.,28928.)
    set we=AddWeatherEffect(gg_rct_FSZJ2______________000,'FDwl')
    call EnableWeatherEffect(we,true)
    set gg_rct_HM______________001=Rect(-9376.,-23712.,-5152.,-19488.)
    set we=AddWeatherEffect(gg_rct_HM______________001,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_PRSJD_________________000=Rect(-3776.,-22528.,-768.,-19584.)
    set we=AddWeatherEffect(gg_rct_PRSJD_________________000,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_PRSJD2_________________000=Rect(-4064.,-23040.,3584.,-19008.)
    set we=AddWeatherEffect(gg_rct_PRSJD2_________________000,'WOlw')
    call EnableWeatherEffect(we,true)
    set gg_rct_PVP_PVP_______000=Rect(-7552.,26624.,-5024.,28928.)
    set we=AddWeatherEffect(gg_rct_PVP_PVP_______000,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct_TSRK_003=Rect(-19328.,-5120.,-18304.,-4864.)
    set gg_rct_WLZS________001=Rect(-5504.,-18112.,-512.,-12736.)
    set we=AddWeatherEffect(gg_rct_WLZS________001,'WOlw')
    call EnableWeatherEffect(we,true)
    set gg_rct_WLZS2_______________001=Rect(-4864.,-17024.,-1536.,-13696.)
    set gg_rct_WLZS3_______________001=Rect(-5376.,-17536.,-1024.,-13184.)
    set gg_rct_WLZS4_______________001=Rect(-4864.,-15872.,-1536.,-14848.)
    set gg_rct_YGMJ2____________________000=Rect(11808.,2496.,17504.,7296.)
    set we=AddWeatherEffect(gg_rct_YGMJ2____________________000,'RLhr')
    call EnableWeatherEffect(we,true)
    set gg_rct_YRST______________000=Rect(17376.,14016.,27200.,20704.)
    set gg_rct______________000=Rect(20256.,9120.,20512.,9472.)
    set gg_rct______________001=Rect(26976.,10912.,27104.,11776.)
    set gg_rct______________002=Rect(-10560.,-31456.,-448.,-25120.)
    set we=AddWeatherEffect(gg_rct______________002,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct______________003=Rect(6016.,-22400.,14432.,-17344.)
    set we=AddWeatherEffect(gg_rct______________003,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct______________006=Rect(1120.,17024.,1760.,17120.)
    set gg_rct______________007=Rect(19296.,416.,23424.,4352.)
    set we=AddWeatherEffect(gg_rct______________007,'MEds')
    call EnableWeatherEffect(we,true)
    set gg_rct_RYHS______________000=Rect(21280.,-15680.,27328.,-7200.)
    set we=AddWeatherEffect(gg_rct_RYHS______________000,'FDrh')
    call EnableWeatherEffect(we,true)
    set gg_rct______________017=Rect(18624.,-3648.,27168.,512.)
    set we=AddWeatherEffect(gg_rct______________017,'FDrh')
    call EnableWeatherEffect(we,true)
    set gg_rct_YWZD______________000=Rect(-16064.,-31616.,-11840.,-27328.)
    set we=AddWeatherEffect(gg_rct_YWZD______________000,'FDgh')
    call EnableWeatherEffect(we,true)
    set gg_rct_SHTZZ_____________________________002=Rect(21056.,20384.,21408.,20640.)
    set gg_rct_FQJT_________________002=Rect(11424.,-24896.,11680.,-24704.)
    set gg_rct_HSK_______________________002=Rect(23936.,-12032.,24576.,-11392.)
    set gg_rct_YS01_______________________002=Rect(26688.,-30880.,26816.,-30688.)
    set gg_rct_BSLZ_______________________002=Rect(19712.,-27424.,19904.,-27232.)
    set gg_rct_ZHIZHUZHD_________________002=Rect(14944.,-23008.,15168.,-22752.)
    set gg_rct_FSZJ______________000=Rect(-3712.,26464.,-448.,29088.)
    set gg_rct_YXMD_000=Rect(1056.,26848.,3392.,28064.)
    set gg_rct_TSZHD_________________002=Rect(5952.,28448.,6144.,28640.)
    set gg_rct_BBMD______________000=Rect(-10752.,19968.,-9344.,21376.)
    set gg_rct_JKZHD_________________002=Rect(-14784.,24256.,-13888.,25152.)
    set gg_rct_EM03_________________003=Rect(-13696.,27040.,-12736.,27808.)
    set gg_rct_HCFHD_004=Rect(-20064.,22656.,-19936.,22784.)
    set gg_rct_EM02______________003=Rect(-17216.,13728.,-16224.,14720.)
    set gg_rct_HCD_004=Rect(-19616.,22496.,-19488.,22624.)
    set gg_rct_XSC___________000=Rect(-7648.,20576.,-4064.,24800.)
    set gg_rct_BBMD_______1_003=Rect(-10752.,20992.,-10400.,21376.)
    set gg_rct_WKQY______________000=Rect(4928.,27136.,6304.,28544.)
    set gg_rct_FSZJ_NGD________001=Rect(-3328.,28032.,-2304.,28800.)
    set gg_rct_FSZJ_JYG___________001=Rect(-3200.,26720.,-2048.,27392.)
    set gg_rct_FSZJ_MGD______________001=Rect(-1696.,26720.,-736.,27392.)
    set gg_rct_FSZJ_LBD___________001=Rect(-1696.,28032.,-736.,28832.)
    set gg_rct______________056=Rect(8544.,-12224.,8576.,-12192.)
    set gg_rct______________057=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________058=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________059=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________060=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________061=Rect(8704.,-12416.,8736.,-12384.)
    set gg_rct______________062=Rect(8800.,-12064.,8832.,-12032.)
    set gg_rct______________063=Rect(8800.,-12064.,8832.,-12032.)
    set gg_rct______________064=Rect(10400.,-12672.,10432.,-12640.)
    set gg_rct______________065=Rect(8864.,-14368.,8896.,-14336.)
    set gg_rct_RYHS______________002=Rect(22688.,-6208.,25440.,-4000.)
    set gg_rct______________067=Rect(-21184.,-31168.,-17120.,-27456.)
    set gg_rct______________068=Rect(-20992.,-9280.,-20672.,-8576.)
    set gg_rct______________050=Rect(4928.,9088.,13280.,13120.)
    set we=AddWeatherEffect(gg_rct______________050,'FDwh')
    call EnableWeatherEffect(we,true)
    set gg_rct_SH_MW_000=Rect(18560.,24416.,27008.,29152.)
    set we=AddWeatherEffect(gg_rct_SH_MW_000,'FDbh')
    call EnableWeatherEffect(we,true)
    set gg_rct_MFT_LT_000=Rect(-10816.,24640.,-10560.,24704.)
    set gg_rct______________070=Rect(5984.,-20832.,8352.,-18720.)
    set we=AddWeatherEffect(gg_rct______________070,'FDrh')
    call EnableWeatherEffect(we,true)
    set gg_rct_YWZD______________001=Rect(-15264.,-31040.,-12704.,-27904.)
    set gg_rct______________072=Rect(-15200.,-15200.,-7328.,-1056.)
    set we=AddWeatherEffect(gg_rct______________072,'SNhs')
    call EnableWeatherEffect(we,true)
    set gg_dest_B001_6745=CreateDestructable('B001',24320.,-22656.,90.,1.,0)
    set gg_dest_B001_6744=CreateDestructable('B001',24320.,-22400.,90.,1.,0)
    set gg_dest_B001_2315=CreateDestructable('B001',24320.,-22144.,270.,1.,0)
    set gg_dest_B006_19850=CreateDestructable('B006',-3200.,-15360.,.0,3.,0)
    set gg_dest_B00C_1557=CreateDestructable('B00C',-18816.,-4992.,270.,3.,0)
    set gg_dest_B00D_11119=CreateDestructable('B00D',-5120.,-28608.,.0,1.5,0)
    set gg_dest_Dofv_1632=CreateDeadDestructable('Dofv',-8768.,-20160.,90.,1.,0)
    call CreateNeutralPassiveBuildings()
    call CreateNeutralHostile()
    call CreateNeutralPassive()
    call CreatePlayerUnits()
    call ExecuteFunc("alloc_main")
    set i=0
    set udg_aaaaa11=CreateGroup()
    set gg_trg____________________001=CreateTrigger()
    call TriggerRegisterTimerEventSingle(gg_trg____________________001,1.)
    call TriggerAddAction(gg_trg____________________001,function Trig____________________001Actions)
    set gg_trg_F9______u=CreateTrigger()
    call TriggerAddAction(gg_trg_F9______u,function Trig_F9______uActions)
    set gg_trg__________mp_________u=CreateTrigger()
    call TriggerRegisterTimerEventSingle(gg_trg__________mp_________u,.0)
    call TriggerAddAction(gg_trg__________mp_________u,function Trig__________mp_________uActions)
    set gg_trg____________________003=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg____________________003,EVENT_PLAYER_UNIT_DEATH)
    call TriggerAddCondition(gg_trg____________________003,Condition(function Trig____________________003Conditions))
    call TriggerAddAction(gg_trg____________________003,function Trig____________________003Actions)
    set gg_trg____________________004=CreateTrigger()
    call TriggerRegisterEnterRectSimple(gg_trg____________________004,gg_rct_BYQMD____________________000)
    call TriggerAddAction(gg_trg____________________004,function Trig____________________004Actions)
    set gg_trg____________________005=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg____________________005,EVENT_PLAYER_UNIT_ATTACKED)
    call TriggerAddCondition(gg_trg____________________005,Condition(function Trig____________________005Conditions))
    call TriggerAddAction(gg_trg____________________005,function Trig____________________005Actions)
    set gg_trg____________________006=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg____________________006,EVENT_PLAYER_UNIT_DEATH)
    call TriggerAddAction(gg_trg____________________006,function Trig____________________006Actions)
    call ConditionalTriggerExecute(gg_trg_F9______u)
    call ExecuteFunc("jasshelper__initstructs7640897")
    call ExecuteFunc("environment___onInit")
    call ExecuteFunc("math_onInit")
    call ExecuteFunc("BagSwap_onInit")
    call ExecuteFunc("BasicCatalog_onInit")
    call ExecuteFunc("HeroCatalog_onInit")
    call ExecuteFunc("MiscCatalog_onInit")
    call ExecuteFunc("LoadBuffer_onInit")
    call ExecuteFunc("Terrain_onInit")
    call ExecuteFunc("distexttag__onInit")
    call ExecuteFunc("ItemDrops___onInit")
    call ExecuteFunc("bagstate__onInit")
    call ExecuteFunc("damage___onInit")
    call ExecuteFunc("zhuanshu__onInit")
    call ExecuteFunc("BossDTS___onInit")
    call ExecuteFunc("BossHDLZ___onInit")
    call ExecuteFunc("Bossn035___onInit")
    call ExecuteFunc("GameInformation___onInit")
    call ExecuteFunc("ItemCombine_onInit")
    call ExecuteFunc("NewEquip___onInit")
    call ExecuteFunc("Quest__onInit")
    call ExecuteFunc("n02N_onInit")
    call ExecuteFunc("nnsw_onInit")
    call ExecuteFunc("saveandload__onInit")
    call ExecuteFunc("zhaxiang___onInit")
    set Book__Direetory=malloc()
    set Book__BossPoint=malloc()
    call Book__CreateTitleD('I05Y',"|c00FA8072拉芙海统治者|c002040F0许德拉")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：19389")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：350")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：2180000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0000BFFF")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒巨剑：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒长剑：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒长弓：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒拳套：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒法杖：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒盔甲：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒法衣：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒头盔：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒头巾：掉落几率=15%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷剧毒戒指：掉落几率=15%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("九头蛇的鳞片：掉落几率=50%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("九头蛇的毒牙：掉落几率=50%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：深海统治者：掉落几率=1.25%")

    call Book__Save(1.3)
    call Book__CreateTitleD('I056',"|c00696969瓦拉几亚伯爵|c00FF0000弗拉德·特佩斯|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：22891")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：540")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：2195000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0000BFFF")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的盔甲：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的法衣：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的头盔：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的头巾：掉落几率=10%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷瓦几内拉伯爵的戒指：掉落几率=10%|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷伯爵的灵魂血剑：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷伯爵的灵魂血矛：掉落几率=5%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("伯爵古角：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("伯爵的灵魂碎片：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：瓦几内拉伯爵：掉落几率=1.25%")

    call Book__Save(1.2)
    call Book__CreateTitleD('I057',"|c002F4F4F死亡之翼|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：46481")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：620")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：3750000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷魔龙战盔：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷魔龙护甲：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷上古魔龙之剑：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷上古魔龙之弓：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷上古魔龙之杖：掉落几率=6%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("巨龙之心：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("巨龙遗骨：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("巨龙鳞片：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：死亡之翼：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I069',"|c00FF8200杰克隆登|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：25891")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：430")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：3120000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷南瓜权杖：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷杰克头盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷杰克头巾：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷糖果袋：掉落几率=3%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("奥哈利康：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：杰克隆登：掉落几率=1.25%")

    call Book__Save(1.)
    call Book__CreateTitleD('I06A',"|c00696969元素领主|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：26901")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：590")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：4150000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷法皇之衣：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷元素头巾：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷共振指环：掉落几率=3%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("秘银：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("封印圣器枷锁：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：元素领主：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I05Z',"|c0052E252冰霜领主|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：48914")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：590")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：8170000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷霜冻猎者：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冰霜圣弓：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冰怨战矛：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷寒冰雪衣：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巫妖王之盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巫妖王头巾：掉落几率=5%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("精金石：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("上古遗篇：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("霜魂圣器：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：冰霜领主：掉落几率=1.25%")

    call Book__Save(1.15)
    call Book__CreateTitleD('I066',"|c008692F9蜘蛛女皇|r|c001541EE伊丝娜|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：31820")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：800")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：9486000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷雪纹：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷死雾魔斧：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷极冰之牙：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冬日玫瑰：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冬之泪，冰霜怨弓：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷冬之泪，冰极天雪剑：掉落几率=2.5%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("精金石：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("冰霜织网：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：蜘蛛女皇：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CI',"|c00FF00FF恶魔领主|c00FF0000贝利亚|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：61489")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：730")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：17894000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷深渊之眼：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷杀戮者长靴：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷恶魔领主的号角：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷深渊之手,绝望的煙灭：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("黑暗物质：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("黑暗之翼：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：恶魔领主：掉落几率=1.25%")

    call Book__Save(1.)
    call Book__CreateTitleD('I0CL',"|c006CFDB8沧海巨兽|c00FF0000圣荷如斯|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：113819")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1040")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：21821000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：90%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷沧海庇佑：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷圣佑头盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷碧水精华：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷潮汐圣戒：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("圣佑精石：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("沧海源力：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("风暴徽记：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：沧海巨兽：掉落几率=1.25%")

    call Book__Save(1.05)
    call Book__CreateTitleD('I0CV',"|c00CFCFCF堕落者|c0080FF80电棍|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：21871")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：890")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：19842000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷腐蚀者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷复仇者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷潜行者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷湮灭者：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷骷髅印章：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷绝望的深渊：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷未完成的狂暴药剂：掉落几率=4.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("堕落之源：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：堕落者电棍：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CW',"|c00D91C1C火焰梦魇|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：119560")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：980")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：24846900")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷憎恨：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷魔渊焱甲：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷噩梦指环：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷熔岩怒吼：掉落几率=1.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷永恒圣焱之冠：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("怒焰精华：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("虚无界石：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：火焰梦魇：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CX',"|c00C0C0C0亡灵|c00BF595B战神|c00727362维扎克斯|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：188622")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1320")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：30012000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：90%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，王者之剑：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，虚灵权杖：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，灾祸法袍：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，月穷天坠：掉落几率=2.3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵挽歌，咒印心石：掉落几率=2.3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("深渊精华：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("边缘世界的魔石：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：亡灵战神：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0CY',"|c002F2F2F被诅咒的冰霜巨龙|cFF66CCFF辛德拉荀萨|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：122721")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1090")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：29254000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，遗忘断魂之剑：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，哀叹龙魂长弓：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，诅咒寄魂之杖：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，憎恨灭魂猎枪：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，无尽龙魂战甲：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷巨龙之怒，龙徽暗影指环：掉落几率=4%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("诅咒魂魄：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("极寒碎片：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("紫水晶球：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：被诅咒的冰霜巨龙：掉落几率=1.25%")

    call Book__Save(1.15)
    call Book__CreateTitleD('I0CZ',"|c00C1DB9F不朽尸王|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：91913")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1140")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：16895000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷宿主权杖：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷灾难头巾：掉落几率=3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷亡灵印记：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷信仰斗篷：掉落几率=2%|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("不朽之心：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("黑暗水晶：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("亡者残爪：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：不朽尸王：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0D0',"|c0071CA57秘境之主|c00C5B189上古妖皇|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：134690")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1120")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：29650000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷风暴指环：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷永恒守护之剑：掉落几率=3.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷耀目星芒魂翼：掉落几率=1.6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("自然之心：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("自然精华：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命源泉：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：密境之主：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0H3',"|c00696969被遗忘的|c00FF0000黑暗怨魔|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：143560")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1260")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：34650000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷窥视之眼：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷欲望之铠：掉落几率=2.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷仇怨战翅：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷咒灵之手：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷恩德拉的苏醒：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷不屈之魂战刃：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("混沌碎片：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("死亡精髓：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：暗黑魔怨：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I0H4',"|c00C0C0C0被封印的毁灭之力|c00AB2121卡西亚尔|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：298622")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：1800")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：49650000")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：90%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，毁灭战矛：掉落几率=1.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，毁灭之剑：掉落几率=1.3%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，星辰守护：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，绝望之颅：掉落几率=1.6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷远古噩梦，月芒星坠：掉落几率=1.8%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("远古遗忘魔石：掉落几率=1.6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：封印之力：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleD('I058',"|c0040E0D0圣天使|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：35980*3")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：510*3")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：3150000*3")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷守护圣戒：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷神圣盔甲：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷神圣头盔：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷克雷提亚,圣光权杖：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷卡菲米亚,神圣之剑：掉落几率=6%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("圣经残卷：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("神圣羽毛灵片：掉落几率=5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("天使枷锁之翼：掉落几率=1.2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：守门人：掉落几率=1.25%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：圣天使：掉落几率=1.25%")

    call Book__Save(1.15)
    call Book__CreateTitleD('I06B',"|c00FF0000第七魔爵|r|c00696969中世纪恶魔|r")
    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00Boss属性简介")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("攻击力：119250")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("防御力：825")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("生命值：10590208")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("魔法抗性：85% ")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=物品掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|c0052E252")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷毁灭：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷灵魂毁灭者：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷残暴恶魔战甲：掉落几率=2%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷蓝色恶魔之眼：掉落几率=4%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("∷荣耀之戒，世纪之心：掉落几率=2.5%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("|cFFFFCC00=材料掉落=")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("=====================|r")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("恶魔灵魂：掉落几率=2.1%")

    set Book__lastedit_str=Book__lastedit_str+"
    "+("力量结晶：中世纪恶魔：掉落几率=1.25%")

    call Book__Save(1.1)
    call Book__CreateTitleC('I05Y',$5303,$504C,$5E29,$4D95)
    call Book__CreateTitleC('I056',$2D13,-$60B1,$3264,-$720B)
    call Book__CreateTitleC('I057',$5E93,-$2D30,$5DF7,-6435)
    call Book__CreateTitleC('I069',-$37F5,$60A5,-$4601,$5C9D)
    call Book__CreateTitleC('I06A',$688A,-$7830,$65C9,-$742B)
    call Book__CreateTitleC('I05Z',$4D84,-$6ACF,$403D,-$6C95)
    call Book__CreateTitleC('I066',$3AC9,-$5946,$4E1A,-$490B)
    call Book__CreateTitleC('I058',6117,$6E05,-$4064,$4268)
    call Book__CreateTitleC('I0CI',$604,-$6301,-$40B9,$4024)
    call Book__CreateTitleC('I06B',-$50D7,-8885,-$477E,$679)
    call Book__CreateTitleC('I0CL',$F423F,0,$6778,$6805)
    call Book__CreateTitleC('I0CV',$4FCC,9360,$40A1,9000)
    call Book__CreateTitleC('I0CW',$F423F,0,$55B1,-$2D3D)
    call Book__CreateTitleC('I0CY',$4712,-$55BB,$6166,-$4BD2)
    call Book__CreateTitleC('I0CX',-$A72,-$4B54,-$CB6,-$381B)
    call Book__CreateTitleC('I0CZ',-830,-$5113,-830,-$5113)
    call Book__CreateTitleC('I0D0',$687B,$3087,$6350,$2C4E)
    call Book__CreateTitleC('I0H3',$F423F,0,$2793,-$39DE)
    call Book__CreateTitleC('I0H4',-$EF0,-$50D2,-7173,-$5460)
    call TriggerAddCondition(alloc__GX[(TRIGGER_PICKUP)],(Condition((function Book__displaycontent))))
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04U'),'I030',1),'I019',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04W'),'I04U',1),'I01A',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04V'),'I04W',1),'I02Y',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04X'),'I04V',1),'I035',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I04Y'),'I04X',1),'I0DQ',1)
    call Magetower__vUe(Magetower__vUe(Magetower__vue('I0DP'),'I036',5),'I035',1)
    call AddUnitSellItemById('I04T',function Magetower__vTe)
    call AddUnitSellItemById('I0AF',function Magetower__vFe)
    call AddUnitSellItemById('I0AG',function Magetower__vFe)
    call AddUnitSellItemById('I0AH',function Magetower__vFe)
    call AddUnitSellItemById('I0AI',function Magetower__vFe)
    call SetTerrainPathable_Rect(gg_rct_MFT_LT_000,PATHING_TYPE_WALKABILITY,true)
endfunction

function config takes nothing returns nothing
    call SetMapName(|c0000FF00The Holy Spirit II ORPGv1.00 ENG|)
    call SetMapDescription("")
    call SetPlayers($A)
    call SetTeams($A)
    call SetGamePlacement(MAP_PLACEMENT_TEAMS_TOGETHER)
    call DefineStartLocation(0,2176.,27456.)
    call DefineStartLocation(1,2176.,27456.)
    call DefineStartLocation(2,2176.,27456.)
    call DefineStartLocation(3,2176.,27456.)
    call DefineStartLocation(4,2176.,27456.)
    call DefineStartLocation(5,2176.,27456.)
    call DefineStartLocation(6,2176.,27456.)
    call DefineStartLocation(7,2176.,27456.)
    call DefineStartLocation(8,2176.,27456.)
    call DefineStartLocation(9,2176.,27456.)
    call SetPlayerStartLocation(Player(0),0)
    call ForcePlayerStartLocation(Player(0),0)
    call SetPlayerColor(Player(0),ConvertPlayerColor(0))
    call SetPlayerRacePreference(Player(0),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(0),false)
    call SetPlayerController(Player(0),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(1),1)
    call ForcePlayerStartLocation(Player(1),1)
    call SetPlayerColor(Player(1),ConvertPlayerColor(1))
    call SetPlayerRacePreference(Player(1),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(1),false)
    call SetPlayerController(Player(1),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(2),2)
    call ForcePlayerStartLocation(Player(2),2)
    call SetPlayerColor(Player(2),ConvertPlayerColor(2))
    call SetPlayerRacePreference(Player(2),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(2),false)
    call SetPlayerController(Player(2),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(3),3)
    call ForcePlayerStartLocation(Player(3),3)
    call SetPlayerColor(Player(3),ConvertPlayerColor(3))
    call SetPlayerRacePreference(Player(3),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(3),false)
    call SetPlayerController(Player(3),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(4),4)
    call ForcePlayerStartLocation(Player(4),4)
    call SetPlayerColor(Player(4),ConvertPlayerColor(4))
    call SetPlayerRacePreference(Player(4),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(4),false)
    call SetPlayerController(Player(4),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(5),5)
    call ForcePlayerStartLocation(Player(5),5)
    call SetPlayerColor(Player(5),ConvertPlayerColor(5))
    call SetPlayerRacePreference(Player(5),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(5),false)
    call SetPlayerController(Player(5),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(6),6)
    call ForcePlayerStartLocation(Player(6),6)
    call SetPlayerColor(Player(6),ConvertPlayerColor(6))
    call SetPlayerRacePreference(Player(6),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(6),false)
    call SetPlayerController(Player(6),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(7),7)
    call ForcePlayerStartLocation(Player(7),7)
    call SetPlayerColor(Player(7),ConvertPlayerColor(7))
    call SetPlayerRacePreference(Player(7),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(7),false)
    call SetPlayerController(Player(7),MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(8),8)
    call ForcePlayerStartLocation(Player(8),8)
    call SetPlayerColor(Player(8),ConvertPlayerColor(8))
    call SetPlayerRacePreference(Player(8),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(8),false)
    call SetPlayerController(Player(8),MAP_CONTROL_COMPUTER)
    call SetPlayerStartLocation(Player($B),9)
    call ForcePlayerStartLocation(Player($B),9)
    call SetPlayerColor(Player($B),ConvertPlayerColor($B))
    call SetPlayerRacePreference(Player($B),RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player($B),false)
    call SetPlayerController(Player($B),MAP_CONTROL_COMPUTER)
    call InitCustomTeams()
    call SetStartLocPrioCount(0,7)
    call SetStartLocPrio(0,0,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,1,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,2,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(1,7)
    call SetStartLocPrio(1,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,1,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,2,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(2,7)
    call SetStartLocPrio(2,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,2,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(3,7)
    call SetStartLocPrio(3,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,3,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(4,7)
    call SetStartLocPrio(4,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,4,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(5,7)
    call SetStartLocPrio(5,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,4,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,5,6,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(6,7)
    call SetStartLocPrio(6,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,4,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,5,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6,6,7,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(7,7)
    call SetStartLocPrio(7,0,0,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,1,1,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,2,2,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,3,3,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,4,4,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,5,5,MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(7,6,6,MAP_LOC_PRIO_HIGH)
endfunction

function sa__A0YC_randenum takes nothing returns boolean
    local integer this=f__arg_this
    local integer vessel=f__arg_integer1
    local real x=f__arg_real1
    local real y=f__arg_real2
    local player p=f__arg_player1
    local integer i=0
    local unit u
    call GroupEnumUnitsInRange(G,x,y,$C8+75,null)
    loop
        set u=FirstOfGroup(G)
        exitwhen u==null
        call GroupRemoveUnit(G,u)
        if IsUnitInRangeXY(u,x,y,$C8)and UnitAlive(u)and GetUnitAbilityLevel(u,'Avul')==0 then
            if IsUnitVisible(u,p)and IsUnitEnemy(u,p)and LoadInteger(BYHT,vessel,(GetUnitUserData((u))))<5 then
                set i=i+1
                if GetRandomInt(1,i)==1 then
                    set s__A0YC_target[this]=(GetUnitUserData((u)))
                endif
            endif
        endif
    endloop
    if s__A0YC_target[this]!=null then
        set s__A0YC_order[this]=2
        set s__A0YC_v[this]=16
        call SaveInteger(BYHT,vessel,s__A0YC_target[this],LoadInteger(BYHT,vessel,s__A0YC_target[this])+1)
        call IssueTargetOrderById((Je[(s__A0YC_id[this])]),$D0106,(Je[(s__A0YC_target[this])]))
    endif
    return true
endfunction

function sa__Illusion_getunit takes nothing returns boolean
    local integer this=f__arg_integer1
    set f__result_unit=(Je[(s__Illusion_Unit[this])])
    return true
endfunction

function sa__Multiboard_onDestroy takes nothing returns boolean
    local integer this=f__arg_this
    call DestroyMultiboard(s__Multiboard_Ie[this])
    call free(s__Multiboard_vessel[this])
    set s__Multiboard_vessel[this]=0
    set s__Multiboard_Ie[this]=null
    return true
endfunction

function sa__Button_onDestroy takes nothing returns boolean
    local integer this=f__arg_this
    if s__Button_an[this]!=null then
        call RemoveSavedInteger(BYHT2,system_Dialog__fO,GetHandleId(s__Button_an[this]))
        set s__Button_an[this]=null
    endif
    if s__Button_c[this]!=null then
        call DestroyBoolExpr(s__Button_c[this])
        set s__Button_c[this]=null
    endif
    return true
endfunction

function sa__Dialog_onDestroy takes nothing returns boolean
    local integer this=f__arg_this
    local integer b
    loop
        exitwhen s__Dialog_index[this]==0
        set s__Dialog_index[this]=s__Dialog_index[this]-1
        set b=LoadInteger(BYHT,s__Dialog_vessel[this],s__Dialog_index[this])
        call s__Button_deallocate(b)
    endloop
    if s__Dialog_action[this]!=null then
        call DestroyBoolExpr(s__Dialog_action[this])
        set s__Dialog_action[this]=null
    endif
    call RemoveSavedInteger(BYHT2,system_Dialog__fO,GetHandleId(s__Dialog_di[this]))
    call DestroyTrigger(s__Dialog_trig[this])
    call DialogDestroy(s__Dialog_di[this])
    call free(s__Dialog_vessel[this])
    set s__Dialog_vessel[this]=0
    return true
endfunction

function sa__Shadow_Storm_enum takes nothing returns boolean
    local integer this=f__arg_this
    local integer f=f__arg_integer1
    local integer t=this
    local integer i=0
    local integer array v
    loop
        set v[i]=t
        set i=i+1
        set t=s__Shadow_Storm_R[t]
        exitwhen t==this
    endloop
    loop
        exitwhen i==0
        set i=i-1
        call sc___prototype3_evaluate(f,v[i])
    endloop
    return true
endfunction

function sa__PhantomSword_AddNumber takes nothing returns boolean
    local integer this=f__arg_this
    local integer i=f__arg_integer1
    local integer fx
    local integer maxcount
    local integer value
    local real a
    if s__PhantomSword_vessel[this]==0 then
        if GetUnitAbilityLevel((Je[(this)]),'A0C1')>0 then
            if s__PhantomSword_next[(0)]==(0)then
                call fov(s__PhantomSword_func)
            endif
            set s__PhantomSword_next[this]=s__PhantomSword_next[(0)]
            set s__PhantomSword_last[s__PhantomSword_next[this]]=this
            set s__PhantomSword_next[(0)]=this
            set s__PhantomSword_last[this]=0
            set s__PhantomSword_vessel[this]=malloc()
            call Unit_App_Counter(392,(this))
        endif
    endif
    if s__PhantomSword_vessel[this]!=0 then
        set maxcount=5+(GetUnitAbilityLevel((Je[(this)]),'A0C1')+1)/ 3
        if GetHeroEquipSlot(this,1)=='I0FX' then
            set maxcount=maxcount+5
        endif
        if s__PhantomSword_count[this]+i>maxcount then
            set i=maxcount-s__PhantomSword_count[this]
        endif
        call ModifyHeroAgiPercent(this,.015*i)
        loop
            exitwhen i<=0
            set i=i-1
            set a=Lx*s__PhantomSword_cycle[this]/ 55
            set fx=Lnv(GetUnitX((Je[(this)]))+$96*Cos(a),GetUnitY((Je[(this)]))+$96*Sin(a),a)
            call LMv(fx,"Frostmourne.mdl")
            call SetUnitFlyHeight(II[(fx)],((212.5)*1.),0)
            call SetUnitScale(II[(fx)],((1.25)*1.),0,0)
            call LHv(fx,0)
            call SaveInteger(BYHT,s__PhantomSword_vessel[this],2*s__PhantomSword_count[this],fx)
            call SaveInteger(BYHT,s__PhantomSword_vessel[this],2*s__PhantomSword_count[this]+1,(s__Effect_build(AddSpecialEffectTarget(("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl"),(II[fx]),("origin")))))
            set s__PhantomSword_count[this]=s__PhantomSword_count[this]+1
            call Lfv(fx,45,45,45,$9B)
        endloop
    endif
    return true
endfunction

function sa___prototype6_IsPointInPolygon takes nothing returns boolean
    local integer id=f__arg_integer1
    local real x=f__arg_real1
    local real y=f__arg_real2
    set f__result_integer=s__polygon_ispointinpolygon(id,x,y)
    return true
endfunction

function sa___prototype7_alloc__Timer_Init takes nothing returns boolean
    local integer i=alloc__ge
    local integer l=alloc__ge
    loop
        set i=i-1
        set alloc__Ge[i]=CreateTimer()
        exitwhen i==0
    endloop
    set alloc__ge=GetHandleId(alloc__Ge[l-1])
    set alloc__he=l
    return true
endfunction

function sa___prototype62_RegisterEnterRect_C takes nothing returns boolean
    local integer p=f__arg_integer1
    local code c=f__arg_code1
    local real minx=s__polygon_Min_x[p]
    local real miny=s__polygon_Min_y[p]
    local real maxx=s__polygon_Max_x[p]
    local real maxy=s__polygon_Max_y[p]
    local real x=minx+16
    local real y
    loop
        exitwhen x>maxx
        set y=miny+16
        loop
            exitwhen y>maxy
            if sc___prototype6_evaluate(1,p,x,y)==1 then
                if c!=null then
                    call RegisterEnterRect(x-16,y-16,x+16,y+16,c)
                    set c=null
                else
                    call RegionAddCell(bj_lastCreatedRegion,x,y)
                endif
            endif
            set y=y+32
        endloop
        set x=x+32
    endloop
    return true
endfunction

function sa___prototype163_UnitAddPAttackTrigC takes nothing returns boolean
    set f__result_integer=UnitAddPAttackTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_UnitAddBePAttackTrigC takes nothing returns boolean
    set f__result_integer=UnitAddBePAttackTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_UnitAddBeDamagerTrigC takes nothing returns boolean
    set f__result_integer=UnitAddBeDamagerTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_UnitAddDamagerTrigC takes nothing returns boolean
    set f__result_integer=UnitAddDamagerTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_UnitAddShieldTrigC takes nothing returns boolean
    set f__result_integer=UnitAddShieldTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_AddUnitDeathTrigC takes nothing returns boolean
    set f__result_integer=AddUnitDeathTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_AddUnitCureTrigC takes nothing returns boolean
    set f__result_integer=AddUnitCureTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_AddUnitBeCureTrigC takes nothing returns boolean
    set f__result_integer=AddUnitBeCureTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype46_ypv takes nothing returns boolean
    local integer uid=f__arg_integer1
    local integer yPv=f__arg_integer2
    local integer rP=f__arg_integer3
    set ur=uid
    if(rP>0)then
        call SaveInteger(BYHT,Yr,uid,rP)
    endif
    if((1)>0)then
        call s__drops_tabale_newunitdrop(uid,yPv)
    endif
    call SaveBoolean(BYHT,(wr),uid,true)
    return true
endfunction

function sa___prototype163_HeroAddSpellEffectTrigC takes nothing returns boolean
    set f__result_integer=HeroAddSpellEffectTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_HeroAddCritTrigC takes nothing returns boolean
    set f__result_integer=HeroAddCritTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_HeroAddMeleemagicTrigC takes nothing returns boolean
    set f__result_integer=HeroAddMeleemagicTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype163_HeroAddKillTrigC takes nothing returns boolean
    set f__result_integer=HeroAddKillTrigC(f__arg_integer1,f__arg_boolexpr1)
    return true
endfunction

function sa___prototype100_Cpe takes nothing returns boolean
    call Cpe(f__arg_unit1,f__arg_integer1)
    return true
endfunction

function sa___prototype8_Cpv takes nothing returns boolean
    local integer NNv=f__arg_integer1
    local integer v=f__arg_integer2
    set AWv=NNv
    set Ahv=v
    call TriggerEvaluate(XKv)
    return true
endfunction

function sa___prototype111_mFv takes nothing returns boolean
    call TimerStart(Control_Timer[(GetUnitUserData(((f__arg_unit1))))],.25,false,function mAv)
    return true
endfunction

function sa___prototype3_phv takes nothing returns boolean
    local integer NNv=f__arg_integer1
    if QA[NNv]!=null then
        if(Control_abid[((NNv))])=='A00P' then
            call TimerStart(Control_Timer[(GetUnitUserData((((Je[(NNv)])))))],.25,false,function mAv)
        endif
        call ReleaseTimer(QA[NNv],"[TimerUtils]Error:8")
        call s__Trig_remove((qA[NNv]))
        call Unit_Cancel_Counter(7,(NNv))
        set QA[NNv]=null
        if UnitAlive((Je[(NNv)]))and SA[NNv]>1 then
            if not(IsUnitType(((Je[(NNv)])),UNIT_TYPE_GIANT))then
                call UnitDamageTargetBY((((Je[(PA[NNv])]))),(((Je[(NNv)]))),((((.5*Unit_Frost_Damage[(PA[NNv])]*SA[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((25)*1.))*1.),(("|c007387ff")))
            elseif UnitHasItemOfType((Je[(PA[NNv])]),'I0D1')then
                call UnitDamageTargetBY((((Je[(PA[NNv])]))),(((Je[(NNv)]))),((((.2*Unit_Frost_Damage[(PA[NNv])]*SA[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((30)*1.))*1.),(("|c007387ff")))
            else
                call UnitDamageTargetBY((((Je[(PA[NNv])]))),(((Je[(NNv)]))),((((.15*Unit_Frost_Damage[(PA[NNv])]*SA[NNv])*1.))*1.),false,(false),false,false,(ATTACK_TYPE_CHAOS),(DAMAGE_TYPE_UNIVERSAL),((((25)*1.))*1.),(("|c007387ff")))
            endif
            call Ltv(LAv("FrostNova.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),1.25))
            call Lqv(LAv("Shiva'sWrath.mdl",GetUnitX((Je[(NNv)])),GetUnitY((Je[(NNv)])),1.5),1.5)
        endif
    endif
    return true
endfunction

function sa___prototype202_tqv takes nothing returns boolean
    call tqv(f__arg_unit1,f__arg_real1,f__arg_real2,f__arg_integer1,f__arg_integer2)
    return true
endfunction

function sa___prototype111_Ztv takes nothing returns boolean
    call Ztv(f__arg_unit1)
    return true
endfunction

function sa___prototype111_EUe takes nothing returns boolean
    call EUe(f__arg_unit1)
    return true
endfunction

function sa___prototype111_NPCAI takes nothing returns boolean
    call NPCAI(f__arg_unit1)
    return true
endfunction

function sa___prototype111_Bre takes nothing returns boolean
    call Bre(f__arg_unit1)
    return true
endfunction

function sa___prototype111_BNe takes nothing returns boolean
    call BNe(f__arg_unit1)
    return true
endfunction

function sa___prototype205_FloatedTargetBY takes nothing returns boolean
    call FloatedTargetBY(f__arg_unit1,f__arg_real1,f__arg_real2)
    return true
endfunction

function sa___prototype200_FloatedTargetBYStun takes nothing returns boolean
    call FloatedTargetBYStun(f__arg_unit1,f__arg_boolean1)
    return true
endfunction

function sa___prototype177_pNe takes nothing returns boolean
    call pNe(f__arg_unit1,f__arg_unit2,f__arg_real1)
    return true
endfunction

function sa___prototype15_yRe takes nothing returns boolean
    local integer data=f__arg_integer1
    local boolean yIe=(Is_pvp[(GetPlayerId(GetOwningPlayer(((Je[(data)])))))])
    local real cyv
    if Jg and not yIe then
        if SummonedUnitSkills_A048_Timer[(data)]!=null or Item_I0E9_timer[data]!=null then
            call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",GetUnitX((Je[(data)])),GetUnitY((Je[(data)]))))
            call SleepReviveHero(data,100,100,2.5)
        endif
        if not IsSleepRevive[data]and GetHeroEquipSlot(data,5)=='I0FN' and Item_I0FN_cd[data]<(100000.-TimerGetRemaining(GameTimer))then
            set Ahv=data
            call GameExecuteFunc(Condition(Item_I0FN_Func))
        endif
        if not IsSleepRevive[data]and zZv((data))then
            call SleepReviveHero(data,80,100,2)
            call z1v((data))
        endif
        if not IsSleepRevive[data]and Item_cd_ryjz[data]<(100000.-TimerGetRemaining(GameTimer))then
            if UnitHasItemOfType((Je[(data)]),'I0DS')then
                set Item_cd_ryjz[data]=(100000.-TimerGetRemaining(GameTimer))+$B4
                call SleepReviveHero(data,100,100,2)
                call SetItemDroppableTimedById(data,'I0DS',$B5)
            elseif UnitHasItemOfType((Je[(data)]),'I0EA')then
                set Item_cd_ryjz[data]=(100000.-TimerGetRemaining(GameTimer))+$B4
                call SleepReviveHero(data,100,100,2)
                call SetItemDroppableTimedById(data,'I0EA',$B5)
            endif
        endif
    endif
    call RemoveHeroReviveBuff((data),0)
    if not IsSleepRevive[data]then
        if yIe then
            set cyv=$F
        else
            set cyv=5+GetHeroLevel((Je[(data)]))/ 5
            if UnitHasItemOfType((Je[(data)]),'gcel')or UnitHasItemOfType((Je[(data)]),'crys')then
                set cyv=.6*cyv
            endif
        endif
        if cyv>40 then
            set cyv=40
        endif
        call DisplayTextToPlayer((P[Kc[(data)]]),0,0,"|c00ffff00"+(Game_PlayerName[Kc[(data)]])+"将会在 '"+I2S(R2I(cyv))+"' 秒后复活.")
        call StartHeroReveveTimer(data,jV,JV,100,100,cyv)
        if Off_A098[data]then
            set Off_A098[data]=FALSE
            set Off_A098_id[data]=0
        endif
    endif
    set f__result_boolean=true
    return true
endfunction

function sa___prototype246_Equip_Off takes nothing returns boolean
    call Equip_Off(f__arg_integer1,f__arg_item1,f__arg_integer2)
    return true
endfunction

function sa___prototype246_Equip_On takes nothing returns boolean
    call Equip_On(f__arg_integer1,f__arg_item1,f__arg_integer2)
    return true
endfunction

function sa___prototype100_HolyRelic_series_addbuff takes nothing returns boolean
    call HolyRelic_series_addbuff(f__arg_unit1,f__arg_integer1)
    return true
endfunction

function sa___prototype3_Hero_Skills_A05L_Enum takes nothing returns boolean
    local integer t=f__arg_integer1
    local real d=Boss_Spell_Z[0]
    call Hero_Skills_A05L_Start(s__Shadow_Storm_id[t],(GetUnitX(II[((s__Shadow_Storm_fb[t]))])),(GetUnitY(II[((s__Shadow_Storm_fb[t]))])),bj_DEGTORAD*(GetUnitFacing(II[((s__Shadow_Storm_fb[t]))])),.5*d,1.5)
    call SetUnitTimeScale(II[(s__Shadow_Storm_fb[t])],1.75)
    call SetUnitAnimationByIndex(II[(s__Shadow_Storm_fb[t])],3)
    call sc___prototype3_evaluate(2,t)
    return true
endfunction

function sa___prototype3_HeroSkills_A05N_Enum takes nothing returns boolean
    local integer t=f__arg_integer1
    local integer vessel=Boss_Spell_data1[0]
    local integer i=Boss_Spell_data2[0]
    if i>0 then
        set i=i-1
        call SaveInteger(BYHT,vessel,i,t)
        set Boss_Spell_data2[0]=i
    endif
    return true
endfunction

function sa___prototype177_HeroSkills_A05K_Start takes nothing returns boolean
    call HeroSkills_A05K_Start(f__arg_unit1,f__arg_unit2,f__arg_real1)
    return true
endfunction

function sa___prototype3_HeroSkills_ShadowStorm_End takes nothing returns boolean
    local integer t=f__arg_integer1
    local integer de
    call Ltv(s__Shadow_Storm_fx[t])
    call LSv((s__Shadow_Storm_fb[t]),$9B,$9B,$9B,$9B,1)
    set de=s__Shadow_Storm_remove(t)
    if t==HeroSkills_A0G6_list[s__Shadow_Storm_id[t]]then
        set HeroSkills_A0G6_list[s__Shadow_Storm_id[t]]=de
        if HeroSkills_A0G6_list[s__Shadow_Storm_id[t]]==0 then
            call HeroSkills_ShadowStorm_Stop(s__Shadow_Storm_id[t])
        endif
    endif
    return true
endfunction

function sa___prototype3_HeroSkills_ShadowStorm_Enum takes nothing returns boolean
    local integer t=f__arg_integer1
    local integer fb=s__Shadow_Storm_fb[t]
    local integer fx=s__Shadow_Storm_fx[t]
    local real a
    set s__Shadow_Storm_count[t]=s__Shadow_Storm_count[t]-1
    set a=.03125*Lx*s__Shadow_Storm_count[t]
    call LKv(fx,(GetUnitX(II[((fb))]))+125*Cos(a))
    call Llv(fx,(GetUnitY(II[((fb))]))+125*Sin(a))
    call SetUnitFacing(II[(fx)],((a+.5*bj_PI)*1.)*bj_RADTODEG)
    call SetUnitScale(II[(fx)],((1.+.0078*s__Shadow_Storm_count[t])*1.),0,0)
    if s__Shadow_Storm_count[t]<1 then
        call HeroSkills_ShadowStorm_End(t)
    elseif ModuloInteger(s__Shadow_Storm_count[t],32)==0 then
        call Lqv(LAv("Gravitone.mdl",(GetUnitX(II[((fb))])),(GetUnitY(II[((fb))])),1.25),1.5)
    endif
    return true
endfunction

function sa___prototype151_Hero_H008_SkillsPower takes nothing returns boolean
    local integer id=f__arg_integer1
    set f__result_real=1.+.12*HeroSkills_A002_Number[id]
    return true
endfunction

function sa___prototype10_HeroSkills_A002_SoulExpend takes nothing returns boolean
    local integer id=f__arg_integer1
    local integer i=f__arg_integer2
    loop
        set i=i-1
        set HeroSkills_A002_Number[id]=HeroSkills_A002_Number[id]-1
        exitwhen i<=0
        call Ltv((LoadInteger(BYHT,HeroSkills_A002_Vessel[id],HeroSkills_A002_Number[id])))
    endloop
    if HeroSkills_A002_Number[id]==0 then
        call RemoveUnitBJ(HeroSkills_A002_SoulUnit1[id],40)
        set HeroSkills_A002_SoulUnit1[id]=null
    endif
    if HeroSkills_A002_Number[id]<2 and HeroSkills_A002_SoulUnit2[id]!=null then
        call RemoveUnitBJ(HeroSkills_A002_SoulUnit2[id],41)
        set HeroSkills_A002_SoulUnit2[id]=null
    endif
    if HeroSkills_A002_SoulUnit3[id]!=null then
        call RemoveUnitBJ(HeroSkills_A002_SoulUnit3[id],42)
        set HeroSkills_A002_SoulUnit3[id]=null
    endif
    set f__result_integer=LoadInteger(BYHT,HeroSkills_A002_Vessel[id],HeroSkills_A002_Number[id])
    return true
endfunction

function sa___prototype3_HeroSkills_A002_SoulCreate takes nothing returns boolean
    local integer id=f__arg_integer1
    local integer fx
    local real a
    if HeroSkills_A002_Number[id]<3+(GetUnitAbilityLevel((Je[(id)]),'A002')+1)/ 4 then
        set a=Lx*HeroSkills_A002_Cycle[id]/ 55
        set fx=Lnv(GetUnitX((Je[(id)]))+107.5*Cos(a),GetUnitY((Je[(id)]))+107.5*Sin(a),a)
        call LMv(fx,"CurseBoltGreen.mdl")
        call SetUnitFlyHeight(II[(fx)],((80)*1.),0)
        call SetUnitScale(II[(fx)],((.8)*1.),0,0)
        call SaveInteger(BYHT,HeroSkills_A002_Vessel[id],HeroSkills_A002_Number[id],fx)
        set HeroSkills_A002_Number[id]=HeroSkills_A002_Number[id]+1
        if HeroSkills_A002_SoulUnit1[id]==null then
            set HeroSkills_A002_SoulUnit1[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'e006',0,0,0)
        elseif HeroSkills_A002_Number[id]>1 and HeroSkills_A002_SoulUnit2[id]==null then
            set HeroSkills_A002_SoulUnit2[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'e00H',0,0,0)
        endif
        if HeroSkills_A002_Number[id]==5 then
            set HeroSkills_A002_SoulUnit3[id]=CreateUnit(GetOwningPlayer((Je[(id)])),'e007',0,0,0)
        endif
    endif
    return true
endfunction

function sa___prototype3_HeroSkills_A002_SoulFastRecovery takes nothing returns boolean
    local integer id=f__arg_integer1
    set HeroSkills_A002_Number2[id]=20
    call UnitAddAbilityBY((Je[(id)]),'A08O')
    call Ltv(LAv("Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),2))
    call TimerStart(HeroSkills_A002_Timer[id],1,false,function HeroSkills_A002_Start)
    return true
endfunction

function sa___prototype195_HeroSkills_SoulBarrage_Create takes nothing returns boolean
    call HeroSkills_SoulBarrage_Create(f__arg_unit1,f__arg_unit2,f__arg_integer1)
    return true
endfunction

function sa___prototype15_HeroSkills_A03J_ShieldRemove takes nothing returns boolean
    local integer id=f__arg_integer1
    if HeroSkills_A03J_Shield_Timer[id]!=null then
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A08I','BNhs')
        call ReleaseTimer(HeroSkills_A03J_Shield_Timer[id],"[TimerUtils]Error:380")
        call s__Trig_remove((HeroSkills_A03J_Shield_Trig[id]))
        call Unit_Cancel_Counter(514,(id))
        set HeroSkills_A03J_Shield_Timer[id]=null
        set HeroSkills_A03J_Shield_Life[id]=0
        set f__result_boolean=true
        return true
    endif
    set f__result_boolean=false
    return true
endfunction

function sa___prototype15_uJe takes nothing returns boolean
    local integer id=f__arg_integer1
    if HeroSkills_A0NZ_Use[id]then
        set HeroSkills_A0NZ_Count[id]=5
        call LQv(LAv("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl",(GetUnitX(II[(HeroSkills_A0NZ_Model[id])])),(GetUnitY(II[(HeroSkills_A0NZ_Model[id])])),2.5),2)
        call Ltv(LAv("Great Lightning.mdl",(GetUnitX(II[(HeroSkills_A0NZ_Model[id])])),(GetUnitY(II[(HeroSkills_A0NZ_Model[id])])),1.5))
    endif
    set f__result_boolean=true
    return true
endfunction

function sa___prototype3_HeroSkills_A0O7_Armor_Up takes nothing returns boolean
    local integer id=f__arg_integer1
    if HeroSkills_A0O7_Use[id]and HeroSkills_A0O7_ArmorLv[id]<2*GetUnitAbilityLevel((Je[(id)]),'A0NM')then
        set HeroSkills_A0O7_ArmorLv[id]=HeroSkills_A0O7_ArmorLv[id]+1
        call Ltv(Lfv(LAv("Epicenter.mdl",GetUnitX((Je[(HeroSkills_A0O7_SummonedUnit[id])])),GetUnitY((Je[(HeroSkills_A0O7_SummonedUnit[id])])),.5),$CD,125,125,$FF))
        call ModifyUnitArmor((HeroSkills_A0O7_SummonedUnit[id]),40)
    endif
    return true
endfunction

function sa___prototype266_HeroSkills_A0O7_Intensify takes nothing returns boolean
    call HeroSkills_A0O7_Intensify(f__arg_integer1,f__arg_unit1,f__arg_real1)
    return true
endfunction

function sa___prototype46_HeroSkills_A0NN_ResetCooldown takes nothing returns boolean
    local integer id=f__arg_integer1
    local integer Ngv=f__arg_integer2
    local integer NGv=f__arg_integer3
    local boolean ufe
    local integer uFe
    local integer jQe
    if GetRandomInt(1,100)<=4*GetUnitAbilityLevel((Je[(id)]),'A0NN')then
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl",(Je[(id)]),"origin"))
        call NewTextTagInTarget_B((Je[(id)]),"REFRESH",9,$E1,$B9,$F5)
        call Hero_H01I_SkillsList_ResetCooldown((id))
        if HeroSkills_A0NN_Use[id]then
            return true
        endif
    endif
    if HeroSkills_A0NN_Use[id]then
        set uFe=LoadInteger(BYHT,HeroSkills_A0NN_Vessel[id],Ngv)
        set jQe=LoadInteger(BYHT,HeroSkills_A0NN_Vessel[id],$C*(Ngv+1)+NGv)
        set ufe=false
        if ufe then
            call NewTextTagInTarget_B((Je[(id)]),"DEATH",$F,$E1,25,5)
            call DestroyEffect(AddSpecialEffectTarget("BloodEX-Special.mdl",(Je[(id)]),"origin"))
            call KillUnit((Je[(id)]))
            call HeroSkills_A0NN_Cancel(id)
        else
            set HeroSkills_A0NN_Count[id]=HeroSkills_A0NN_Count[id]-1
            if HeroSkills_A0NN_Count[id]>0 then
                call SaveInteger(BYHT,HeroSkills_A0NN_Vessel[id],Ngv,uFe+1)
                call SaveInteger(BYHT,HeroSkills_A0NN_Vessel[id],$C*(Ngv+1)+NGv,jQe+1)
                call zhv((Kc[(id)]),30,.5)
                call thv("|c00cd96ff"+I2S(HeroSkills_A0NN_Count[id])+" charges",GetUnitX((Je[(id)])),GetUnitY((Je[(id)])),GetUnitFlyHeight((Je[(id)]))+60,.075,.05,.225*Lx,1.5,2)
                call TimerDestroyAddSpecialEffectTargetBY("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl",(Je[(id)]),"origin",1.5)
                call Hero_H01I_SkillsList_ResetCooldown((id))
            else
                call HeroSkills_A0NN_Cancel(id)
            endif
        endif
    endif
    return true
endfunction

function sa___prototype3_HeroSkills_A0OC_IntUp takes nothing returns boolean
    local integer id=f__arg_integer1
    if HeroSkills_A0OC_Use[id]and HeroSkills_A0OC_Count[id]<40 then
        set HeroSkills_A0OC_Count[id]=HeroSkills_A0OC_Count[id]+1
        call ModifyHeroIntPercent(id,.025)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl",(Je[(id)]),"origin"))
    endif
    return true
endfunction

function sa___prototype8_HeroSkills_A0B6_Buff takes nothing returns boolean
    local integer id=f__arg_integer1
    local integer bMv=f__arg_integer2
    if GetUnitAbilityLevel((Je[(id)]),'B01W')==0 and GetUnitAbilityLevel((Je[(id)]),'B02V')==0 then
        call UnitAppBuffByLevel((id),'A0B7',$D006B,bMv)
    else
        if HeroSkills_A0B6_Buff_Timer[id]==null then
            set HeroSkills_A0B6_Buff_Timer[id]=NewTimer(id)
            call UnitRemoveAbility((Je[(id)]),'B01W')
            call Unit_App_Counter(672,(id))
        endif
        if bMv>HeroSkills_A0B6_Buff_Def[id]then
            call ModifyUnitArmor((id),R2I(-12.5*(bMv-HeroSkills_A0B6_Buff_Def[id])))
            set HeroSkills_A0B6_Buff_Def[id]=bMv
        endif
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\MarkOfChaos\\MarkOfChaosDone.mdl",(Je[(id)]),"origin"))
        call Auxiliary_TargetOrder(('A081'),null,HeroSkills_A0B6_Buff_Def[id],$D006B,(Je[(id)]))
        call TimerStart(HeroSkills_A0B6_Buff_Timer[id],6,false,function HeroSkills_A0B6_Buff_Expierd)
    endif
    return true
endfunction

function sa___prototype269_HeroSkills_A007_Buff_Add takes nothing returns boolean
    call HeroSkills_A007_Buff_Add(f__arg_unit1,f__arg_unit2,f__arg_real1,f__arg_real2)
    return true
endfunction

function sa___prototype15_HeroSkills_AUfa_Shield_broken takes nothing returns boolean
    local integer id=f__arg_integer1
    local unit u
    local real x
    local real y
    local real d
    if HeroSkills_AUfa_Shield_Timer[id]!=null then
        set x=GetUnitX((Je[(id)]))
        set y=GetUnitY((Je[(id)]))
        if HeroSkills_AUfa_Shield_Source[id]==0 then
            call GroupEnumUnitsInRange(G,x,y,337.5+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,337.5)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(id)]))then
                        call pmv(u,2.5)
                    endif
                endif
            endloop
            call Lqv(LAv("FreezingRing.mdl",x,y,1.5),2.5)
            call Ltv(LAv("ColdBlast.mdl",x,y,1.25))
        else
            set d=Unit_Frost_Damage[(HeroSkills_AUfa_Shield_Source[id])]*40*GetHeroState3((Je[(HeroSkills_AUfa_Shield_Source[id])]),true)
            call GroupEnumUnitsInRange(G,x,y,450+75,null)
            loop
                set u=FirstOfGroup(G)
                exitwhen u==null
                call GroupRemoveUnit(G,u)
                if IsUnitInRangeXY(u,x,y,450)then
                    if IsUnitAliveAndEnemyNotAvul(u,(Je[(HeroSkills_AUfa_Shield_Source[id])]))then
                        call UnitDamageTargetBY((((Je[(HeroSkills_AUfa_Shield_Source[id])]))),((u)),((((d)*1.))*1.),false,((false)),false,false,(ATTACK_TYPE_NORMAL),(DAMAGE_TYPE_MAGIC),((((12.5)*1.))*1.),(("|c007387ff")))
                        call pmv(u,2.5)
                    endif
                endif
            endloop
            call Lqv(LAv("FrostNova.mdl",x,y,1.25),2.5)
            call Lqv(LAv("FreezingRing.mdl",x,y,1.875),2.5)
            call Ltv(LAv("ColdBlast.mdl",x,y,1.5))
            call Unit_Cancel_Counter(692,HeroSkills_AUfa_Shield_Source[id])
            set HeroSkills_AUfa_Shield_Source[id]=0
        endif
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0ZK','Bapl')
        call ModifyUnitArmor(id,-HeroSkills_AUfa_Def[id])
        call ReleaseTimer(HeroSkills_AUfa_Shield_Timer[id],"[TimerUtils]Error:447")
        call s__Trig_remove((HeroSkills_AUfa_Shield[id]))
        call s__Trig_remove((HeroSkills_AUfa_Death[id]))
        call Unit_Cancel_Counter(693,(id))
        set HeroSkills_AUfa_Shield_Timer[id]=null
        set HeroSkills_AUfa_Def[id]=0
        set f__result_boolean=true
        return true
    endif
    set f__result_boolean=false
    return true
endfunction

function sa___prototype3_HeroSkills_A011_Stop takes nothing returns boolean
    local integer id=f__arg_integer1
    if HeroSkills_A011_Use[id]then
        set HeroSkills_A011_Last[HeroSkills_A011_Next[id]]=HeroSkills_A011_Last[id]
        set HeroSkills_A011_Next[HeroSkills_A011_Last[id]]=HeroSkills_A011_Next[id]
        set HeroSkills_A011_Use[id]=false
        if HeroSkills_A011_Next[(0)]==0 then
            call frv(HeroSkills_A011_Func)
        endif
        call HeroSkills_A011_End(id)
        call Unit_Cancel_Counter(700,(id))
    endif
    return true
endfunction

function sa___prototype271_HeroSkills_Flash_Buff_Damage takes nothing returns boolean
    call HeroSkills_Flash_Buff_Damage(f__arg_unit1,f__arg_unit2,f__arg_real1,f__arg_boolean1,f__arg_real2)
    return true
endfunction

function sa___prototype234_HeroSkills_A07F_A00W takes nothing returns boolean
    set f__result_boolean=HeroSkills_A07F_A00W(f__arg_integer1,f__arg_unit1)
    return true
endfunction

function sa___prototype234_HeroSkills_A0GE_onAttack takes nothing returns boolean
    set f__result_boolean=HeroSkills_A0GE_onAttack(f__arg_integer1,f__arg_unit1)
    return true
endfunction

function sa___prototype151_HeroSkills_A0GN_GetDamage takes nothing returns boolean
    local integer id=f__arg_integer1
    set f__result_real=Unit_Fire_Damage[(id)]*(15.+1.5*GetUnitAbilityLevel((Je[(id)]),'A0GN'))*GetHeroState2((Je[(id)]),true)
    return true
endfunction

function sa___prototype3_HeroSkills_A0GN_Charged takes nothing returns boolean
    local integer id=f__arg_integer1
    local integer Ude=2+(GetUnitAbilityLevel((Je[(id)]),'A0GN')+1)/ 4
    if(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('I0CU')))then
        set Ude=Ude+1
    elseif(LoadBoolean(BYHT,EquipSlot_R[EquipSlot[((id))]],('I0E6')))then
        set Ude=Ude+2
    endif
    if HeroSkills_A0GN_Charged_Value[id]<Ude then
        set HeroSkills_A0GN_Charged_Count[id]=HeroSkills_A0GN_Charged_Count[id]+1
        if HeroSkills_A0GN_Charged_Count[id]>=8 then
            set HeroSkills_A0GN_Charged_Value[id]=HeroSkills_A0GN_Charged_Value[id]+1
            set HeroSkills_A0GN_Charged_Count[id]=0
            if HeroSkills_A0GN_Charged_e015[id]==0 then
                set HeroSkills_A0GN_Charged_e015[id]=(GetUnitUserData((CreateUnit((P[Kc[((id))]]),'e015',EntireMapMaxX,EntireMapMaxY,0))))
                call Unit_App_Counter(736,HeroSkills_A0GN_Charged_e015[id])
            endif
            call NewTextTagInTarget_B((Je[(id)]),"|c00f9aaaa"+I2S(HeroSkills_A0GN_Charged_Value[id])+"Charge|r",$C,$FF,$FF,$FF)
            call DestroyEffect(AddSpecialEffectTarget("FireBall.mdx",(Je[(id)]),"weapon"))
        endif
    endif
    return true
endfunction

function sa___prototype15_HeroSkills_A0GN_Stop takes nothing returns boolean
    local integer id=f__arg_integer1
    if HeroSkills_A0GN_Use[id]then
        set HeroSkills_A0GN_Last[HeroSkills_A0GN_Next[id]]=HeroSkills_A0GN_Last[id]
        set HeroSkills_A0GN_Next[HeroSkills_A0GN_Last[id]]=HeroSkills_A0GN_Next[id]
        set HeroSkills_A0GN_Use[id]=false
        if HeroSkills_A0GN_Next[(0)]==0 then
            call frv(HeroSkills_A0GN_Func)
        endif
        call HeroSkills_A0GN_End(id)
        call Unit_Cancel_Counter(737,(id))
        set f__result_boolean=true
        return true
    endif
    set f__result_boolean=false
    return true
endfunction

function sa___prototype15_HeroSkills_A0PT_Shield_Remove takes nothing returns boolean
    local integer id=f__arg_integer1
    if HeroSkills_A0PT_Shield_Timer[id]!=null then
        call ReleaseTimer(HeroSkills_A0PT_Shield_Timer[id],"[TimerUtils]Error:466")
        call UnitRemoveAbilityandBuffBY((Je[(id)]),'A0PU','B05V')
        call s__Trig_remove((HeroSkills_A0PT_Shield_Trig[id]))
        call Unit_Cancel_Counter(756,(id))
        set HeroSkills_A0PT_Shield_Timer[id]=null
        set f__result_boolean=true
        return true
    endif
    set f__result_boolean=false
    return true
endfunction

function sa___prototype3_ItemCombine__Action_c_end takes nothing returns boolean
    local integer dlog=f__arg_integer1
    local integer c=LoadInteger(BYHT,s__Dialog_vessel[dlog],100)
    local integer id=LoadInteger(BYHT,c,0)
    local integer p=GetHandleId(GetOwningPlayer((Je[(id)])))
    call s__Dialog_deallocate(dlog)
    call free(c)
    call AdjustPlayerStateG(ConvertVersion(p),PLAYER_STATE_RESOURCE_GOLD,GetItemGold('I00L'))
    call PauseUnit((Je[(id)]),false)
    call PauseUnit((Je[YI[(id)]]),false)
    return true
endfunction

function sa___prototype89_n02N_Open takes nothing returns boolean
    set f__result_boolean=n02N_Open(f__arg_unit1)
    return true
endfunction

function sa___prototype23_nnsw_Open takes nothing returns boolean
    if nnsw__Unit==null then
        set nnsw__Unit=CreateUnit(P[$B],'nnsw',rL,aL,$B4)
        call SetUnitX(nnsw__Unit,rL)
        call SetUnitY(nnsw__Unit,aL)
        call ShowUnit(nnsw__Unit,false)
        call m_v(nnsw__Unit,true)
        call TimerStart(NewTimer(LAv("healingwater.mdx",rL,aL,2)),3,false,function nnsw__Create_001)
        set f__result_boolean=true
        return true
    endif
    set f__result_boolean=false
    return true
endfunction

function sa___prototype7_s__Catalog_Init takes nothing returns boolean
    set s__Catalog_R1=malloc()
    set s__Catalog_R2=malloc()
    return true
endfunction

function jasshelper__initstructs7640897 takes nothing returns nothing
    set st__A0YC_randenum=CreateTrigger()
    call TriggerAddCondition(st__A0YC_randenum,Condition(function sa__A0YC_randenum))
    set st__Illusion_getunit=CreateTrigger()
    call TriggerAddCondition(st__Illusion_getunit,Condition(function sa__Illusion_getunit))
    set st__Multiboard_onDestroy=CreateTrigger()
    call TriggerAddCondition(st__Multiboard_onDestroy,Condition(function sa__Multiboard_onDestroy))
    set st__Button_onDestroy=CreateTrigger()
    call TriggerAddCondition(st__Button_onDestroy,Condition(function sa__Button_onDestroy))
    set st__Dialog_onDestroy=CreateTrigger()
    call TriggerAddCondition(st__Dialog_onDestroy,Condition(function sa__Dialog_onDestroy))
    set st__barrage_onDestroy[18]=null
    set st__barrage_onDestroy[19]=null
    set st__barrage_onDestroy[20]=null
    set st__barrage_onDestroy[27]=null
    set st__barrage_onDestroy[31]=null
    set st__barrage_onDestroy[32]=null
    set st__barrage_onDestroy[44]=null
    set st__barrage_onDestroy[45]=null
    set st__barrage_onDestroy[50]=null
    set st__barrage_onDestroy[70]=null
    set st__barrage_onDestroy[78]=null
    set st__barrage_onDestroy[79]=null
    set st__barrage_onDestroy[81]=null
    set st__barrage_onDestroy[83]=null
    set st__barrage_onDestroy[84]=null
    set st__barrage_onDestroy[86]=null
    set st__barrage_onDestroy[87]=null
    set st__barrage_onDestroy[88]=null
    set st__barrage_onDestroy[89]=null
    set st__barrage_onDestroy[90]=null
    set st__barrage_onDestroy[94]=null
    set st__barrage_onDestroy[95]=null
    set st__barrage_onDestroy[96]=null
    set st__barrage_onDestroy[98]=null
    set st__barrage_onDestroy[99]=null
    set st__barrage_onDestroy[100]=null
    set st__barrage_onDestroy[101]=null
    set st__Shadow_Storm_enum=CreateTrigger()
    call TriggerAddCondition(st__Shadow_Storm_enum,Condition(function sa__Shadow_Storm_enum))
    set st__PhantomSword_AddNumber=CreateTrigger()
    call TriggerAddCondition(st__PhantomSword_AddNumber,Condition(function sa__PhantomSword_AddNumber))
    set st__I0B2_table_onDestroy[55]=null
    set st__I0B2_table_onDestroy[56]=null
    set st___prototype6[1]=CreateTrigger()
    call TriggerAddAction(st___prototype6[1],function sa___prototype6_IsPointInPolygon)
    call TriggerAddCondition(st___prototype6[1],Condition(function sa___prototype6_IsPointInPolygon))
    set st___prototype7[1]=CreateTrigger()
    call TriggerAddAction(st___prototype7[1],function sa___prototype7_alloc__Timer_Init)
    call TriggerAddCondition(st___prototype7[1],Condition(function sa___prototype7_alloc__Timer_Init))
    set st___prototype62[1]=CreateTrigger()
    call TriggerAddAction(st___prototype62[1],function sa___prototype62_RegisterEnterRect_C)
    call TriggerAddCondition(st___prototype62[1],Condition(function sa___prototype62_RegisterEnterRect_C))
    set st___prototype163[1]=CreateTrigger()
    call TriggerAddAction(st___prototype163[1],function sa___prototype163_UnitAddPAttackTrigC)
    call TriggerAddCondition(st___prototype163[1],Condition(function sa___prototype163_UnitAddPAttackTrigC))
    set st___prototype163[2]=CreateTrigger()
    call TriggerAddAction(st___prototype163[2],function sa___prototype163_UnitAddBePAttackTrigC)
    call TriggerAddCondition(st___prototype163[2],Condition(function sa___prototype163_UnitAddBePAttackTrigC))
    set st___prototype163[6]=CreateTrigger()
    call TriggerAddAction(st___prototype163[6],function sa___prototype163_UnitAddBeDamagerTrigC)
    call TriggerAddCondition(st___prototype163[6],Condition(function sa___prototype163_UnitAddBeDamagerTrigC))
    set st___prototype163[$C]=CreateTrigger()
    call TriggerAddAction(st___prototype163[$C],function sa___prototype163_UnitAddDamagerTrigC)
    call TriggerAddCondition(st___prototype163[$C],Condition(function sa___prototype163_UnitAddDamagerTrigC))
    set st___prototype163[3]=CreateTrigger()
    call TriggerAddAction(st___prototype163[3],function sa___prototype163_UnitAddShieldTrigC)
    call TriggerAddCondition(st___prototype163[3],Condition(function sa___prototype163_UnitAddShieldTrigC))
    set st___prototype163[5]=CreateTrigger()
    call TriggerAddAction(st___prototype163[5],function sa___prototype163_AddUnitDeathTrigC)
    call TriggerAddCondition(st___prototype163[5],Condition(function sa___prototype163_AddUnitDeathTrigC))
    set st___prototype163[$B]=CreateTrigger()
    call TriggerAddAction(st___prototype163[$B],function sa___prototype163_AddUnitCureTrigC)
    call TriggerAddCondition(st___prototype163[$B],Condition(function sa___prototype163_AddUnitCureTrigC))
    set st___prototype163[$A]=CreateTrigger()
    call TriggerAddAction(st___prototype163[$A],function sa___prototype163_AddUnitBeCureTrigC)
    call TriggerAddCondition(st___prototype163[$A],Condition(function sa___prototype163_AddUnitBeCureTrigC))
    set st___prototype46[1]=CreateTrigger()
    call TriggerAddAction(st___prototype46[1],function sa___prototype46_ypv)
    call TriggerAddCondition(st___prototype46[1],Condition(function sa___prototype46_ypv))
    set st___prototype163[4]=CreateTrigger()
    call TriggerAddAction(st___prototype163[4],function sa___prototype163_HeroAddSpellEffectTrigC)
    call TriggerAddCondition(st___prototype163[4],Condition(function sa___prototype163_HeroAddSpellEffectTrigC))
    set st___prototype163[7]=CreateTrigger()
    call TriggerAddAction(st___prototype163[7],function sa___prototype163_HeroAddCritTrigC)
    call TriggerAddCondition(st___prototype163[7],Condition(function sa___prototype163_HeroAddCritTrigC))
    set st___prototype163[8]=CreateTrigger()
    call TriggerAddAction(st___prototype163[8],function sa___prototype163_HeroAddMeleemagicTrigC)
    call TriggerAddCondition(st___prototype163[8],Condition(function sa___prototype163_HeroAddMeleemagicTrigC))
    set st___prototype163[9]=CreateTrigger()
    call TriggerAddAction(st___prototype163[9],function sa___prototype163_HeroAddKillTrigC)
    call TriggerAddCondition(st___prototype163[9],Condition(function sa___prototype163_HeroAddKillTrigC))
    set st___prototype100[1]=CreateTrigger()
    call TriggerAddAction(st___prototype100[1],function sa___prototype100_Cpe)
    call TriggerAddCondition(st___prototype100[1],Condition(function sa___prototype100_Cpe))
    set st___prototype8[1]=CreateTrigger()
    call TriggerAddAction(st___prototype8[1],function sa___prototype8_Cpv)
    call TriggerAddCondition(st___prototype8[1],Condition(function sa___prototype8_Cpv))
    set st___prototype111[3]=CreateTrigger()
    call TriggerAddAction(st___prototype111[3],function sa___prototype111_mFv)
    call TriggerAddCondition(st___prototype111[3],Condition(function sa___prototype111_mFv))
    set st___prototype3[1]=CreateTrigger()
    call TriggerAddAction(st___prototype3[1],function sa___prototype3_phv)
    call TriggerAddCondition(st___prototype3[1],Condition(function sa___prototype3_phv))
    set st___prototype202[1]=CreateTrigger()
    call TriggerAddAction(st___prototype202[1],function sa___prototype202_tqv)
    call TriggerAddCondition(st___prototype202[1],Condition(function sa___prototype202_tqv))
    set st___prototype111[5]=CreateTrigger()
    call TriggerAddAction(st___prototype111[5],function sa___prototype111_Ztv)
    call TriggerAddCondition(st___prototype111[5],Condition(function sa___prototype111_Ztv))
    set st___prototype111[4]=CreateTrigger()
    call TriggerAddAction(st___prototype111[4],function sa___prototype111_EUe)
    call TriggerAddCondition(st___prototype111[4],Condition(function sa___prototype111_EUe))
    set st___prototype111[6]=CreateTrigger()
    call TriggerAddAction(st___prototype111[6],function sa___prototype111_NPCAI)
    call TriggerAddCondition(st___prototype111[6],Condition(function sa___prototype111_NPCAI))
    set st___prototype111[1]=CreateTrigger()
    call TriggerAddAction(st___prototype111[1],function sa___prototype111_Bre)
    call TriggerAddCondition(st___prototype111[1],Condition(function sa___prototype111_Bre))
    set st___prototype111[2]=CreateTrigger()
    call TriggerAddAction(st___prototype111[2],function sa___prototype111_BNe)
    call TriggerAddCondition(st___prototype111[2],Condition(function sa___prototype111_BNe))
    set st___prototype205[1]=CreateTrigger()
    call TriggerAddAction(st___prototype205[1],function sa___prototype205_FloatedTargetBY)
    call TriggerAddCondition(st___prototype205[1],Condition(function sa___prototype205_FloatedTargetBY))
    set st___prototype200[1]=CreateTrigger()
    call TriggerAddAction(st___prototype200[1],function sa___prototype200_FloatedTargetBYStun)
    call TriggerAddCondition(st___prototype200[1],Condition(function sa___prototype200_FloatedTargetBYStun))
    set st___prototype177[1]=CreateTrigger()
    call TriggerAddAction(st___prototype177[1],function sa___prototype177_pNe)
    call TriggerAddCondition(st___prototype177[1],Condition(function sa___prototype177_pNe))
    set st___prototype15[1]=CreateTrigger()
    call TriggerAddAction(st___prototype15[1],function sa___prototype15_yRe)
    call TriggerAddCondition(st___prototype15[1],Condition(function sa___prototype15_yRe))
    set st___prototype246[2]=CreateTrigger()
    call TriggerAddAction(st___prototype246[2],function sa___prototype246_Equip_Off)
    call TriggerAddCondition(st___prototype246[2],Condition(function sa___prototype246_Equip_Off))
    set st___prototype246[1]=CreateTrigger()
    call TriggerAddAction(st___prototype246[1],function sa___prototype246_Equip_On)
    call TriggerAddCondition(st___prototype246[1],Condition(function sa___prototype246_Equip_On))
    set st___prototype100[2]=CreateTrigger()
    call TriggerAddAction(st___prototype100[2],function sa___prototype100_HolyRelic_series_addbuff)
    call TriggerAddCondition(st___prototype100[2],Condition(function sa___prototype100_HolyRelic_series_addbuff))
    set st___prototype3[3]=CreateTrigger()
    call TriggerAddAction(st___prototype3[3],function sa___prototype3_Hero_Skills_A05L_Enum)
    call TriggerAddCondition(st___prototype3[3],Condition(function sa___prototype3_Hero_Skills_A05L_Enum))
    set st___prototype3[4]=CreateTrigger()
    call TriggerAddAction(st___prototype3[4],function sa___prototype3_HeroSkills_A05N_Enum)
    call TriggerAddCondition(st___prototype3[4],Condition(function sa___prototype3_HeroSkills_A05N_Enum))
    set st___prototype177[2]=CreateTrigger()
    call TriggerAddAction(st___prototype177[2],function sa___prototype177_HeroSkills_A05K_Start)
    call TriggerAddCondition(st___prototype177[2],Condition(function sa___prototype177_HeroSkills_A05K_Start))
    set st___prototype3[2]=CreateTrigger()
    call TriggerAddAction(st___prototype3[2],function sa___prototype3_HeroSkills_ShadowStorm_End)
    call TriggerAddCondition(st___prototype3[2],Condition(function sa___prototype3_HeroSkills_ShadowStorm_End))
    set st___prototype3[5]=CreateTrigger()
    call TriggerAddAction(st___prototype3[5],function sa___prototype3_HeroSkills_ShadowStorm_Enum)
    call TriggerAddCondition(st___prototype3[5],Condition(function sa___prototype3_HeroSkills_ShadowStorm_Enum))
    set st___prototype151[1]=CreateTrigger()
    call TriggerAddAction(st___prototype151[1],function sa___prototype151_Hero_H008_SkillsPower)
    call TriggerAddCondition(st___prototype151[1],Condition(function sa___prototype151_Hero_H008_SkillsPower))
    set st___prototype10[1]=CreateTrigger()
    call TriggerAddAction(st___prototype10[1],function sa___prototype10_HeroSkills_A002_SoulExpend)
    call TriggerAddCondition(st___prototype10[1],Condition(function sa___prototype10_HeroSkills_A002_SoulExpend))
    set st___prototype3[6]=CreateTrigger()
    call TriggerAddAction(st___prototype3[6],function sa___prototype3_HeroSkills_A002_SoulCreate)
    call TriggerAddCondition(st___prototype3[6],Condition(function sa___prototype3_HeroSkills_A002_SoulCreate))
    set st___prototype3[7]=CreateTrigger()
    call TriggerAddAction(st___prototype3[7],function sa___prototype3_HeroSkills_A002_SoulFastRecovery)
    call TriggerAddCondition(st___prototype3[7],Condition(function sa___prototype3_HeroSkills_A002_SoulFastRecovery))
    set st___prototype195[1]=CreateTrigger()
    call TriggerAddAction(st___prototype195[1],function sa___prototype195_HeroSkills_SoulBarrage_Create)
    call TriggerAddCondition(st___prototype195[1],Condition(function sa___prototype195_HeroSkills_SoulBarrage_Create))
    set st___prototype15[3]=CreateTrigger()
    call TriggerAddAction(st___prototype15[3],function sa___prototype15_HeroSkills_A03J_ShieldRemove)
    call TriggerAddCondition(st___prototype15[3],Condition(function sa___prototype15_HeroSkills_A03J_ShieldRemove))
    set st___prototype15[5]=CreateTrigger()
    call TriggerAddAction(st___prototype15[5],function sa___prototype15_uJe)
    call TriggerAddCondition(st___prototype15[5],Condition(function sa___prototype15_uJe))
    set st___prototype3[8]=CreateTrigger()
    call TriggerAddAction(st___prototype3[8],function sa___prototype3_HeroSkills_A0O7_Armor_Up)
    call TriggerAddCondition(st___prototype3[8],Condition(function sa___prototype3_HeroSkills_A0O7_Armor_Up))
    set st___prototype266[1]=CreateTrigger()
    call TriggerAddAction(st___prototype266[1],function sa___prototype266_HeroSkills_A0O7_Intensify)
    call TriggerAddCondition(st___prototype266[1],Condition(function sa___prototype266_HeroSkills_A0O7_Intensify))
    set st___prototype46[2]=CreateTrigger()
    call TriggerAddAction(st___prototype46[2],function sa___prototype46_HeroSkills_A0NN_ResetCooldown)
    call TriggerAddCondition(st___prototype46[2],Condition(function sa___prototype46_HeroSkills_A0NN_ResetCooldown))
    set st___prototype3[9]=CreateTrigger()
    call TriggerAddAction(st___prototype3[9],function sa___prototype3_HeroSkills_A0OC_IntUp)
    call TriggerAddCondition(st___prototype3[9],Condition(function sa___prototype3_HeroSkills_A0OC_IntUp))
    set st___prototype8[2]=CreateTrigger()
    call TriggerAddAction(st___prototype8[2],function sa___prototype8_HeroSkills_A0B6_Buff)
    call TriggerAddCondition(st___prototype8[2],Condition(function sa___prototype8_HeroSkills_A0B6_Buff))
    set st___prototype269[1]=CreateTrigger()
    call TriggerAddAction(st___prototype269[1],function sa___prototype269_HeroSkills_A007_Buff_Add)
    call TriggerAddCondition(st___prototype269[1],Condition(function sa___prototype269_HeroSkills_A007_Buff_Add))
    set st___prototype15[2]=CreateTrigger()
    call TriggerAddAction(st___prototype15[2],function sa___prototype15_HeroSkills_AUfa_Shield_broken)
    call TriggerAddCondition(st___prototype15[2],Condition(function sa___prototype15_HeroSkills_AUfa_Shield_broken))
    set st___prototype3[$A]=CreateTrigger()
    call TriggerAddAction(st___prototype3[$A],function sa___prototype3_HeroSkills_A011_Stop)
    call TriggerAddCondition(st___prototype3[$A],Condition(function sa___prototype3_HeroSkills_A011_Stop))
    set st___prototype271[1]=CreateTrigger()
    call TriggerAddAction(st___prototype271[1],function sa___prototype271_HeroSkills_Flash_Buff_Damage)
    call TriggerAddCondition(st___prototype271[1],Condition(function sa___prototype271_HeroSkills_Flash_Buff_Damage))
    set st___prototype234[1]=CreateTrigger()
    call TriggerAddAction(st___prototype234[1],function sa___prototype234_HeroSkills_A07F_A00W)
    call TriggerAddCondition(st___prototype234[1],Condition(function sa___prototype234_HeroSkills_A07F_A00W))
    set st___prototype234[2]=CreateTrigger()
    call TriggerAddAction(st___prototype234[2],function sa___prototype234_HeroSkills_A0GE_onAttack)
    call TriggerAddCondition(st___prototype234[2],Condition(function sa___prototype234_HeroSkills_A0GE_onAttack))
    set st___prototype151[2]=CreateTrigger()
    call TriggerAddAction(st___prototype151[2],function sa___prototype151_HeroSkills_A0GN_GetDamage)
    call TriggerAddCondition(st___prototype151[2],Condition(function sa___prototype151_HeroSkills_A0GN_GetDamage))
    set st___prototype3[$B]=CreateTrigger()
    call TriggerAddAction(st___prototype3[$B],function sa___prototype3_HeroSkills_A0GN_Charged)
    call TriggerAddCondition(st___prototype3[$B],Condition(function sa___prototype3_HeroSkills_A0GN_Charged))
    set st___prototype15[6]=CreateTrigger()
    call TriggerAddAction(st___prototype15[6],function sa___prototype15_HeroSkills_A0GN_Stop)
    call TriggerAddCondition(st___prototype15[6],Condition(function sa___prototype15_HeroSkills_A0GN_Stop))
    set st___prototype15[4]=CreateTrigger()
    call TriggerAddAction(st___prototype15[4],function sa___prototype15_HeroSkills_A0PT_Shield_Remove)
    call TriggerAddCondition(st___prototype15[4],Condition(function sa___prototype15_HeroSkills_A0PT_Shield_Remove))
    set st___prototype3[$C]=CreateTrigger()
    call TriggerAddAction(st___prototype3[$C],function sa___prototype3_ItemCombine__Action_c_end)
    call TriggerAddCondition(st___prototype3[$C],Condition(function sa___prototype3_ItemCombine__Action_c_end))
    set st___prototype89[1]=CreateTrigger()
    call TriggerAddAction(st___prototype89[1],function sa___prototype89_n02N_Open)
    call TriggerAddCondition(st___prototype89[1],Condition(function sa___prototype89_n02N_Open))
    set st___prototype23[1]=CreateTrigger()
    call TriggerAddAction(st___prototype23[1],function sa___prototype23_nnsw_Open)
    call TriggerAddCondition(st___prototype23[1],Condition(function sa___prototype23_nnsw_Open))
    set st___prototype7[2]=CreateTrigger()
    call TriggerAddAction(st___prototype7[2],function sa___prototype7_s__Catalog_Init)
    call TriggerAddCondition(st___prototype7[2],Condition(function sa___prototype7_s__Catalog_Init))
    call ExecuteFunc("s__MissileTypeA_onInit")
    call ExecuteFunc("s__SoulMissile_onInit")
    call ExecuteFunc("s__poison_onInit")
    call ExecuteFunc("s__pgin_onInit")
    call ExecuteFunc("s__HellDemon_onInit")
    call ExecuteFunc("s__A0DW_onInit")
    call ExecuteFunc("s__A0IN_onInit")
    call ExecuteFunc("s__A0II_onInit")
    call ExecuteFunc("s__A0R0_onInit")
    call ExecuteFunc("s__A0RL_onInit")
    call ExecuteFunc("s__A0QT_onInit")
    call ExecuteFunc("s__A0QR_onInit")
    call ExecuteFunc("s__A0C7_onInit")
    call ExecuteFunc("s__bzbe_onInit")
    call ExecuteFunc("s__odef_onInit")
    call ExecuteFunc("s__I0B2_onInit")
    call ExecuteFunc("s__I0CA_onInit")
    call ExecuteFunc("s__AEim_onInit")
    call ExecuteFunc("s__A08B_onInit")
    call ExecuteFunc("s__A087_onInit")
    call ExecuteFunc("s__ACim_onInit")
    call ExecuteFunc("s__DeathOrb_onInit")
    call ExecuteFunc("s__Blaze_onInit")
    call ExecuteFunc("s__SpellA0NP_onInit")
    call ExecuteFunc("s__FlamerBreath_onInit")
    call ExecuteFunc("s__SpellA0NR_onInit")
    call ExecuteFunc("s__WaterBombFX_onInit")
    call ExecuteFunc("s__WaterStreamFX_onInit")
    call ExecuteFunc("s__Cyclone_onInit")
    call ExecuteFunc("s__WindBlast_onInit")
    call ExecuteFunc("s__BigRock_onInit")
    call ExecuteFunc("s__FireBall_onInit")
    call ExecuteFunc("s__MeteorStrikeShard_onInit")
    call ExecuteFunc("s__IceShard_onInit")
    call ExecuteFunc("s__Illusion_onInit")
    call ExecuteFunc("s__Star_onInit")
    call ExecuteFunc("s__ExplosiveArrow_onInit")
    call ExecuteFunc("s__ZephyrusProjectile_onInit")
    call ExecuteFunc("s__LightBreeze_onInit")
    call ExecuteFunc("s__FlameShot_onInit")
    call ExecuteFunc("s__A0QN_onInit")
    call ExecuteFunc("s__MagicBallista_onInit")
    call ExecuteFunc("s__LavaBomb_onInit")
endfunction