【移植方便，可多人】投射物类技能的投射物模拟

LichKel

RT，原理是用马甲单位模拟投射物
以下是代码
按顺序复制粘贴到地图的自定义文本即可

1. globals
   
2.     hashtable H = InitHashtable()
   
3.     unit Mis_tt = null
   
4.     unit Mis_mis = null
   
5.     real Mis_aoed = 0.00
   
6. endglobals
   
7. 
   
8. 
   
9. function missile_groupcondition takes nothing returns boolean
   
10.     return (((IsUnitAliveBJ(GetFilterUnit()) == true) and ((IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(Mis_mis)) == true) and (GetFilterUnit() != Mis_tt))))
    
11. endfunction
    
12. 
    
13. function missile_aoedamage takes nothing returns nothing
    
14.     call UnitDamageTargetBJ(Mis_mis,GetEnumUnit(),Mis_aoed,ATTACK_TYPE_HERO,DAMAGE_TYPE_MAGIC)
    
15. endfunction
    
16. 
    
17. function MissileMove takes nothing returns nothing
    
18.     local integer parentKey = GetHandleId(GetExpiredTimer())
    
19.     local unit mis = LoadUnitHandle(H,parentKey,1)
    
20.     local unit tt = LoadUnitHandle(H,parentKey,2)
    
21.     local boolean aoe = LoadBoolean(H,parentKey,3)
    
22.     local real dmg = LoadReal(H,parentKey,4)
    
23.     local real spd = LoadReal(H,parentKey,5)
    
24.     local real aoer = LoadReal(H,parentKey,6)
    
25.     local real aoed = LoadReal(H,parentKey,7)
    
26.     local string Eff = LoadStr(H,parentKey,8)
    
27.     local location p1 = GetUnitLoc(mis)
    
28.     local location p2 = GetUnitLoc(tt)
    
29.     local location p3 = null
    
30.     local group aoeg = CreateGroup()
    
31.     local real dis = DistanceBetweenPoints(p1,p2)
    
32.     if (IsUnitDeadBJ(tt) == true) then//判断目标是否死亡，死亡则立刻杀死马甲
    
33.         call KillUnit(mis)
    
34.         call RemoveLocation(p1)
    
35.         call RemoveLocation(p2)
    
36.         set mis = null
    
37.         set tt = null
    
38.         set p1 = null
    
39.         set p2 = null
    
40.         call FlushChildHashtable(H,parentKey)
    
41.         call DestroyTimer(GetExpiredTimer())
    
42.     elseif dis<=26.0 then//命中判定
    
43.         call DestroyEffect(AddSpecialEffectLoc(Eff,p2))
    
44.         call UnitDamageTargetBJ(mis,tt,dmg,ATTACK_TYPE_HERO,DAMAGE_TYPE_MAGIC)
    
45.         if aoe == true then
    
46.             set Mis_aoed = dmg*aoed
    
47.             set Mis_mis = mis
    
48.             set Mis_tt = tt
    
49.             set aoeg = GetUnitsInRangeOfLocMatching(aoer,p2,Condition(function missile_groupcondition))
    
50.             call ForGroup(aoeg,function missile_aoedamage)
    
51.         endif
    
52.         call RemoveLocation(p1)
    
53.         call RemoveLocation(p2)
    
54.         call KillUnit(mis)
    
55.         set mis = null
    
56.         set tt = null
    
57.         set p1 = null
    
58.         set p2 = null
    
59.         call FlushChildHashtable(H,parentKey)
    
60.         call DestroyTimer(GetExpiredTimer())
    
61.     else//移动投射物
    
62.         set p3 = PolarProjectionBJ(p1,spd/100.0,AngleBetweenPoints(p1,p2))
    
63.         call SetUnitPositionLoc(mis,p3)
    
64.         call SetUnitFacing(mis,AngleBetweenPoints(p1,p2))
    
65.         call RemoveLocation(p1)
    
66.         call RemoveLocation(p2)
    
67.         call RemoveLocation(p3)
    
68.         set p3 = null
    
69.         set p2 = null
    
70.         set p1 = null
    
71.     endif
    
72.     set mis = null
    
73.     set tt = null//排泄单位
    
74.     call DestroyGroup(aoeg)
    
75.     set aoeg = null
    
76. endfunction
    
77. 
    
78. function MissileStart takes unit Missile,unit Target,boolean aoe,real damage,real speed,real aoer,real aoed,string eff returns nothing
    
79.     local timer tm = CreateTimer()
    
80.     local integer parentKey = GetHandleId(tm)
    
81.     call SaveUnitHandle(H,parentKey,1,Missile)
    
82.     call SaveUnitHandle(H,parentKey,2,Target)
    
83.     call SaveBoolean(H,parentKey,3,aoe)
    
84.     call SaveReal(H,parentKey,4,damage)
    
85.     call SaveReal(H,parentKey,5,speed)
    
86.     call SaveReal(H,parentKey,6,aoer)
    
87.     call SaveReal(H,parentKey,7,aoed)
    
88.     call SaveStr(H,parentKey,8,eff)
    
89.     call TimerStart(tm,0.01,true,function MissileMove)
    
90.     set tm = null
    
91.     set Missile = null
    
92.     set Target = null
    
93. endfunction

复制代码

使用时，在触发器的动作栏用自定义代码写：
call MissileStart($unit$,$unit$,$boolean$,$real$,$real$,$real$,$real$,$string$)
注意：将$***$依次替换为：
投射物马甲[单位]，投射物马甲的目标[单位]，是否AOE[布尔值]，命中后伤害[实数]，投射物速度[实数]，AOE半径[实数]，AOE伤害(其实是主伤害的倍数)[实数]，命中后产出特效的路径[字符串]
注意：变量编辑器中的全局变量引用时需加入udg_前缀。是否AOE填写false则AOE半径和伤害无效
以上

fan198947

为何不放个演示