[求助](技能)绝命三连击,制作完毕，但是存在BUG,求解决。

jxy2000121

技能名称:绝命三连击
技能效果:对下一个攻击目标造成三次致命伤害，分别为2,4,8倍伤害，无视防御和闪避
         (攻击中期间如果转移目标或者攻击间隔超过一秒则被打断，效果可以被净化)


目前技能BUG

少放几次没有什么明显的错误，但是如果放多了就会出现错误。
经过测试，以下代码存在问题，它可能会造成缓存储存的混乱，大家给看看，到底哪里存在问题。
代码奉上：

2. function H2I takes handle h returns integer
3.     return h
4.     return 0
5. endfunction
7. function SH takes handle h,string s,handle v returns nothing
8.     if v==null then
9.         call FlushStoredInteger(udg_GC,I2S(H2I(h)),s)
10.     else
11.         call StoreInteger(udg_GC,I2S(H2I(h)),s,H2I(v))
12.     endif
13. endfunction
15. function SI takes handle h,string s,integer v returns nothing
16.     if v==0 then
17.         call FlushStoredInteger(udg_GC,I2S(H2I(h)),s)
18.     else
19.         call StoreInteger(udg_GC,I2S(H2I(h)),s,v)
20.     endif
21. endfunction
23. function SB takes handle h,string s,boolean v returns nothing
24.     if v==false then
25.         call FlushStoredBoolean(udg_GC,I2S(H2I(h)),s)
26.     else
27.         call StoreBoolean(udg_GC,I2S(H2I(h)),s,v)
28.     endif
29. endfunction
31. function GI takes handle h,string s returns integer
32.     return GetStoredInteger(udg_GC,I2S(H2I(h)),s)
33. endfunction
35. function GBO takes handle h,string s returns boolean
36.     return GetStoredBoolean(udg_GC,I2S(H2I(h)),s)
37. endfunction
39. function GU takes handle h,string s returns unit
40.     return GetStoredInteger(udg_GC,I2S(H2I(h)),s)
41.     return null
42. endfunction
44. function GTR takes handle h,string s returns trigger
45.     return GetStoredInteger(udg_GC,I2S(H2I(h)),s)
46.     return null
47. endfunction
49. function GTA takes handle h,string s returns triggeraction
50.     return GetStoredInteger(udg_GC,I2S(H2I(h)),s)
51.     return null
52. endfunction
54. function DeleteTrigger takes trigger trgr returns nothing
55.     call TriggerRemoveAction(trgr,GTA(trgr,"action"))
56.     call FlushStoredMission(udg_GC,I2S(H2I(trgr)))
57.     call DestroyTrigger(trgr)
58. endfunction
60. function UnitRemoveSanlian takes unit u returns nothing
61.     call SB(u,"sanlian",false)
62.     call UnitRemoveAbility(u,'A001')
63.     call UnitRemoveAbility(u,'A002')
64.     call UnitRemoveAbility(u,'Bfzy')
65. endfunction
67. function UnitDamaged takes nothing returns nothing
68.     local trigger trgr2=GetTriggeringTrigger()
69.     local trigger trgr=GTR(trgr2,"trigger")
70.     local unit u=GU(trgr,"unit")
71.     local unit u2=GetTriggerUnit()
72.     if GetTriggerEventId()==EVENT_UNIT_DAMAGED and GetEventDamageSource()==u and GBO(trgr2,"damaged")==false then
73.         call SB(trgr2,"damaged",true)
74.         if GI(trgr,"times")<2 then
75.             call SI(trgr,"times",GI(trgr,"times")+1)
76.             call SetUnitAbilityLevel(u,'A001',GI(trgr,"times")+1)
77.         else
78.             if GBO(u,"sanlian") then
79.                 call UnitRemoveSanlian(u)
80.                 call DeleteTrigger(trgr)
81.             endif
82.         endif
83.     else
84.         if GI(trgr2,"times")>=GI(trgr,"attacked") then
85.             if GBO(u,"sanlian") then
86.                 call UnitRemoveSanlian(u)
87.                 call DeleteTrigger(trgr)
88.             endif
89.         endif
90.         call DeleteTrigger(trgr2)
91.     endif
92.     set trgr=null
93.     set trgr2=null
94.     set u=null
95.     set u2=null
96. endfunction
98. function sanlian takes nothing returns nothing
99.     local trigger trgr=GetTriggeringTrigger()
100.     local trigger trgr2
101.     local unit u=GU(trgr,"unit")
102.     local unit u2=GetTriggerUnit()
103.     local integer i=GI(trgr,"times")
104.     if u==GetAttacker() then
105. call DisplayTextToPlayer(GetLocalPlayer(),0,0,"单位被攻击")
106.         if i==0 then
107.             if GU(trgr,"target")==null and GetUnitAbilityLevel(u,'Bfzy')>0 then
108.                 call SH(trgr,"target",u2)
109.                 call SI(trgr,"attacked",1)
110.                 set trgr2=CreateTrigger()
111.                 call TriggerRegisterUnitEvent(trgr2,u2,EVENT_UNIT_DAMAGED)
112.                 call TriggerRegisterTimerEvent(trgr2,1,false)
113.                 call SH(trgr2,"action",TriggerAddAction(trgr2,function UnitDamaged))
114.                 call SH(trgr2,"trigger",trgr)
115.                 call SI(trgr2,"times",1)
116.             else
117.                 call UnitRemoveSanlian(u)
118.                 call DeleteTrigger(trgr)
119.             endif
120.         elseif i==1 then
121.             if GU(trgr,"target")==u2 and GetUnitAbilityLevel(u,'Bfzy')>0 then
122.                 call SI(trgr,"attacked",2)
123.                 set trgr2=CreateTrigger()
124.                 call TriggerRegisterUnitEvent(trgr2,u2,EVENT_UNIT_DAMAGED)
125.                 call TriggerRegisterTimerEvent(trgr2,1,false)
126.                 call SH(trgr2,"action",TriggerAddAction(trgr2,function UnitDamaged))
127.                 call SH(trgr2,"trigger",trgr)
128.                 call SI(trgr2,"times",2)
129.             else
130.                 call UnitRemoveSanlian(u)
131.                 call DeleteTrigger(trgr)
132.             endif
133.         elseif i==2 then
134.             if GU(trgr,"target")==u2 and GetUnitAbilityLevel(u,'Bfzy')>0 then
135.                 call SI(trgr,"attacked",3)
136.                 set trgr2=CreateTrigger()
137.                 call TriggerRegisterUnitEvent(trgr2,u2,EVENT_UNIT_DAMAGED)
138.                 call TriggerRegisterTimerEvent(trgr2,1,false)
139.                 call SH(trgr2,"action",TriggerAddAction(trgr2,function UnitDamaged))
140.                 call SH(trgr2,"trigger",trgr)
141.                 call SI(trgr2,"times",3)
142.             else
143.                 call UnitRemoveSanlian(u)
144.                 call DeleteTrigger(trgr)
145.             endif
146.         endif
147.         set trgr2=null
148.     endif
149.     set trgr=null
150.     set u=null
151.     set u2=null
152. endfunction
154. function Trig_duomingsandao_Conditions takes nothing returns boolean
155.     local trigger trgr
156.     local integer plyr=0
157.     if GetSpellAbilityId() == 'A000' and GBO(GetTriggerUnit(),"sanlian")==false then
158.         set trgr=CreateTrigger()
159.         call SB(GetTriggerUnit(),"sanlian",true)
160.         call UnitAddAbility(GetTriggerUnit(),'A001')
161.         call UnitAddAbility(GetTriggerUnit(),'A002')
162.         loop
163.             if IsPlayerEnemy(GetOwningPlayer(GetTriggerUnit()),Player(plyr)) then
164.                 call TriggerRegisterPlayerUnitEvent(trgr,Player(plyr),EVENT_PLAYER_UNIT_ATTACKED,null)
165.             endif
166.             set plyr=plyr+1
167.             exitwhen plyr==16
168.         endloop
169.         call SH(trgr,"action",TriggerAddAction(trgr,function sanlian))
170.         call SH(trgr,"unit",GetTriggerUnit())
171.         set trgr=null
172.     endif
173.     return false
174. endfunction
176. //===========================================================================
177. function InitTrig_duomingsandao takes nothing returns nothing
178.     set gg_trg_duomingsandao = CreateTrigger(  )
179.     call TriggerRegisterAnyUnitEventBJ( gg_trg_duomingsandao, EVENT_PLAYER_UNIT_SPELL_EFFECT )
180.     call TriggerAddCondition( gg_trg_duomingsandao, Condition( function Trig_duomingsandao_Conditions ) )
181. endfunction

复制代码

eff

用缓存肯定会出问题的啦。

flush是有问题的