设为首页收藏
切换到窄版

 找回密码
 点一下
GA地精研究院»论坛 › 地精研究院 › 技能区 › 如何做一个投射物可以放出去又收回来造成二段伤害呢？ ...
返回列表 发新帖
查看: 1388|回复: 9

如何做一个投射物可以放出去又收回来造成二段伤害呢？

[复制链接]
发表于 2015-2-1 20:47:36 | 显示全部楼层 |阅读模式
整体来说就像英雄联盟里的战争女神一样的技能，我猜想可不可以在发动技能效果时放出马甲，命令马甲向前使用冲锋技能，然后等待一段时间后再使用冲锋技能回到触发单位？
如何

相关帖子
回复

使用道具 举报

Kaduo
发表于 2015-2-2 21:28:32 | 显示全部楼层
你可以放一个震荡波出去，然后算好位置再一个震荡波回来

点评

duotianhui0000
你这个只能是固定距离。楼主要做只能做冲锋模拟  详情 回复 发表于 2015-2-6 20:10
中国好上瘾
那么具体该怎么做呢？我还是初学者  详情 回复 发表于 2015-2-3 22:27
回复

使用道具 举报

 楼主| 发表于 2015-2-3 22:27:47 | 显示全部楼层
Kaduo 发表于 2015-2-2 21:28
你可以放一个震荡波出去，然后算好位置再一个震荡波回来

那么具体该怎么做呢？我还是初学者
回复

使用道具 举报

发表于 2015-2-4 18:49:19 | 显示全部楼层
释放冲击波到一定距离后 安置一个马甲~~让马甲再向你的方向释放冲击波，但为了技能完美，你算好冲击波回来的时间后设置英雄暂停1秒或....。要不然你释放后就能走动，冲击波就没有回旋接收的效果了~~~！冲击波可以改为投刃车刀刃的样子。
回复

使用道具 举报

发表于 2015-2-5 22:10:47 | 显示全部楼层
个人建议LZ先去学下如何用触发模拟冲锋，LZ所说的这个无非就是来回冲锋
回复

使用道具 举报

发表于 2015-2-6 20:10:09 | 显示全部楼层
Kaduo 发表于 2015-2-2 21:28
你可以放一个震荡波出去，然后算好位置再一个震荡波回来

你这个只能是固定距离。楼主要做只能做冲锋模拟
回复

使用道具 举报

发表于 2015-2-6 20:38:14 | 显示全部楼层
本帖最后由 RoyalFlare 于 2015-2-6 20:42 编辑

1.20e GameCache+ReturnBug环境使用
1.24e的话就更换为HashTable来存储数据就好了


  2. globals
  3.     gamecache udg_Titans_Cache=null
  4. endglobals

  6. function H2I takes handle H returns integer
  7.     return H
  8.     return 0
  9. endfunction
  10. function I2U takes integer I returns unit
  11.     return I
  12.     return null
  13. endfunction
  14. function H2S takes handle H returns string
  15.     return I2S(H2I(H))
  16.     return null
  17. endfunction
  18. function FlushEx takes string MissionKey returns nothing
  19.     call FlushStoredMission(udg_Titans_Cache,MissionKey)
  20. endfunction
  21. function SaveInteger takes string MissionKey,string Key,integer Value returns nothing
  22.     call StoreInteger(udg_Titans_Cache,MissionKey,Key,Value)
  23. endfunction
  24. function SaveReal takes string MissionKey,string Key,real Value returns nothing
  25.     call StoreReal(udg_Titans_Cache,MissionKey,Key,Value)
  26. endfunction
  27. function SaveBoolean takes string MissionKey,string Key,boolean Value returns nothing
  28.     call StoreBoolean(udg_Titans_Cache,MissionKey,Key,Value)
  29. endfunction
  30. function GetInteger takes string MissionKey,string Key returns integer
  31.     return GetStoredInteger(udg_Titans_Cache,MissionKey,Key)
  32. endfunction
  33. function GetReal takes string MissionKey,string Key returns real
  34.     return GetStoredReal(udg_Titans_Cache,MissionKey,Key)
  35. endfunction
  36. function GetBoolean takes string MissionKey,string Key returns boolean
  37.     return GetStoredBoolean(udg_Titans_Cache,MissionKey,Key)
  38. endfunction

  40. function WhirlCutDamageEstimate takes nothing returns boolean
  41.     local unit Unia=I2U(GetInteger("WhirlCut","Hero"))
  42.     local unit Unib=I2U(GetInteger("WhirlCutDamageUnit","Unit"+H2S(GetFilterUnit())))
  43.     local real Damage=GetReal("WhirlCut","Damage")
  44.     local player Plaa=GetOwningPlayer(Unia)
  45.     local boolean Booa=IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE)==false
  46.     local boolean Boob=IsUnitType(GetFilterUnit(),UNIT_TYPE_ANCIENT)==false
  47.     local boolean Booc=IsUnitType(GetFilterUnit(),UNIT_TYPE_SAPPER)==false
  48.     local boolean Bood=GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)>0
  49.     local boolean Booe=IsUnitHidden(GetFilterUnit())==false
  50.     local boolean Boof=GetUnitAbilityLevel(GetFilterUnit(),'Avul')==0
  51.     local boolean Boog=IsUnitType(GetFilterUnit(),UNIT_TYPE_ETHEREAL)==false
  52.     local boolean Booh=IsUnitType(GetFilterUnit(),UNIT_TYPE_MECHANICAL)==false
  53.     local boolean Booi=IsUnitAlly(GetFilterUnit(),Plaa)==false
  54.     local boolean Booj=GetFilterUnit()!=Unib
  55.     if Booa and Boob and Booc and Bood and Booe and Boof and Boog and Booh and Booi and Booj then
  56.         call UnitDamageTarget(Unia,GetFilterUnit(),Damage,true,false,ATTACK_TYPE_HERO,DAMAGE_TYPE_UNIVERSAL,WEAPON_TYPE_METAL_MEDIUM_SLICE)
  57.         call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl",GetFilterUnit(),"chest"))
  58.         call SaveInteger("WhirlCutDamageUnit","Unit"+H2S(GetFilterUnit()),H2I(GetFilterUnit()))
  59.     endif
  60.     set Plaa=null
  61.     set Unia=null
  62.     set Unib=null
  63.     return false
  64. endfunction

  66. function WhirlCutRun takes nothing returns nothing
  67.     local real Distance
  68.     local real Face
  69.     local real Speed
  70.     local real Track=GetReal("WhirlCut","Track")
  71.     local unit Unia=I2U(GetInteger("WhirlCut","Unit"))
  72.     local unit Unib=I2U(GetInteger("WhirlCut","Hero"))
  73.     local boolean Return=GetBoolean("WhirlCut","Return")
  74.     local real Ax
  75.     local real Ay
  76.     local real Bx
  77.     local real By
  78.     local group Groa
  79.     local boolexpr Booa
  80.     if Return then
  81.         set Ax=GetUnitX(Unib)
  82.         set Ay=GetUnitY(Unib)
  83.         set Bx=GetUnitX(Unia)
  84.         set By=GetUnitY(Unia)
  85.         set Distance=SquareRoot(((Bx-Ax)*(Bx-Ax))+((By-Ay)*(By-Ay)))
  86.         set Face=(180/3.14159)*Atan2(Ay-By,Ax-Bx)
  87.         if Distance>=30 then
  88.             set Speed=Track/30
  89.             set Track=Track+Speed
  90.             call SetUnitX(Unia,GetUnitX(Unia)+Speed*Cos(Face*3.14159/180))
  91.             call SetUnitY(Unia,GetUnitY(Unia)+Speed*Sin(Face*3.14159/180))
  92.             set Groa=CreateGroup()
  93.             set Booa=Condition(function WhirlCutDamageEstimate)
  94.             call GroupEnumUnitsInRange(Groa,GetUnitX(Unia),GetUnitY(Unia),80,Booa)
  95.             call DestroyGroup(Groa)
  96.             call DestroyBoolExpr(Booa)
  97.             set Groa=null
  98.             set Booa=null
  99.             if Speed<15 then
  100.                 call SaveReal("WhirlCut","Track",Track)
  101.             endif
  102.         else
  103.             call RemoveUnit(Unia)
  104.             call FlushEx("WhirlCut")
  105.             call FlushEx("WhirlCutDamageUnit")
  106.             call PauseTimer(GetExpiredTimer())
  107.             call DestroyTimer(GetExpiredTimer())
  108.         endif
  109.     else
  110.         set Distance=GetReal("WhirlCut","Distance")
  111.         set Face=GetReal("WhirlCut","Face")
  112.         if Track<=Distance-30 then
  113.             set Speed=(Distance-Track)/30
  114.             set Track=Track+Speed
  115.             call SetUnitX(Unia,GetUnitX(Unia)+Speed*Cos(Face*3.14159/180))
  116.             call SetUnitY(Unia,GetUnitY(Unia)+Speed*Sin(Face*3.14159/180))
  117.             set Groa=CreateGroup()
  118.             set Booa=Condition(function WhirlCutDamageEstimate)
  119.             call GroupEnumUnitsInRange(Groa,GetUnitX(Unia),GetUnitY(Unia),80,Booa)
  120.             call DestroyGroup(Groa)
  121.             call DestroyBoolExpr(Booa)
  122.             set Groa=null
  123.             set Booa=null
  124.             call SaveReal("WhirlCut","Track",Track)
  125.         else
  126.             call SaveBoolean("WhirlCut","Return",true)
  127.             call SaveReal("WhirlCut","Track",((Distance-Track)/30)+90)
  128.             call FlushEx("WhirlCutDamageUnit")
  129.         endif
  130.     endif
  131.     set Unia=null
  132.     set Unib=null
  133. endfunction

  135. function WhirlCut takes unit Unia,real x,real y returns nothing
  136.     local real Ax=GetUnitX(Unia)
  137.     local real Ay=GetUnitY(Unia)
  138.     local real Bx=x
  139.     local real By=y
  140.     local real Face=(180/3.14159)*Atan2(By-Ay,Bx-Ax)
  141.     local real Distance=SquareRoot(((Bx-Ax)*(Bx-Ax))+((By-Ay)*(By-Ay)))
  142.     local real Damage=(GetUnitAbilityLevel(Unia,'A08I')*30)+50
  143.     local timer Tima=CreateTimer()
  144.     if Distance<(GetUnitAbilityLevel(Unia,'A08I')*100)+400 then
  145.         set Distance=(GetUnitAbilityLevel(Unia,'A08I')*100)+400
  146.     endif
  147.     call SaveReal("WhirlCut","Distance",Distance)
  148.     call SaveReal("WhirlCut","Track",0)
  149.     call SaveReal("WhirlCut","Face",Face)
  150.     call SaveReal("WhirlCut","Damage",Damage)
  151.     call SaveInteger("WhirlCut","Unit",H2I(CreateUnit(GetOwningPlayer(Unia),'u00W',Ax,Ay,Face)))
  152.     call SaveInteger("WhirlCut","Hero",H2I(Unia))
  153.     call SaveBoolean("WhirlCut","Return",false)
  154.     call TimerStart(Tima,0.01,true,function WhirlCutRun)
  155. endfunction

  157. function InitTrig_WhirlCut takes nothing returns nothing
  158. endfunction
复制代码


调用方法如下:

  2. function SpellShadowHunterEstimate takes nothing returns boolean
  3.     local location Loca
  4.     if GetTriggerEventId()==EVENT_UNIT_SPELL_EFFECT then
  5.         if GetSpellAbilityId()=='A08I' then
  6.             set Loca=GetSpellTargetLoc()
  7.             call WhirlCut(GetTriggerUnit(),GetLocationX(Loca),GetLocationY(Loca))
  8.             call RemoveLocation(Loca)
  9.             set Loca=null
  10.     else
  11.     endif
  12.     return false
  13. endfunction

  15. function SpellShadowHunter takes unit Unia returns nothing
  16.     local trigger Tria=CreateTrigger()
  17.     call TriggerRegisterUnitEvent(Tria,Unia,EVENT_UNIT_SPELL_EFFECT)
  18.     call TriggerAddCondition(Tria,Condition(function SpellShadowHunterEstimate))
  19.     set Tria=null
  20. endfunction

  22. function InitTrig_SpellShadowHunter takes nothing returns nothing
  23. endfunction
复制代码
回复

使用道具 举报

发表于 2015-2-7 12:41:06 | 显示全部楼层
蜘蛛攻击
回复

使用道具 举报

发表于 2015-2-7 12:41:10 | 显示全部楼层
蜘蛛攻击
回复

使用道具 举报

 楼主| 发表于 2015-2-9 18:24:50 | 显示全部楼层
这几天有事，刚回来看回复就看到一大堆的J，我T还是半吊子呢，让我看J......虽然大致看得懂J但也只是看得懂而已。
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 点一下

本版积分规则

Archiver|移动端|小黑屋|地精研究院

GMT+8, 2024-12-22 16:28 , Processed in 0.233506 second(s), 27 queries .

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表