Return control as soon as Birdy begins to disappear
authorpalewolf
Sun, 28 Mar 2010 23:40:49 +0000
changeset 3150 d212e612c08e
parent 3149 08c4d9670b54
child 3151 3f23113d9df4
Return control as soon as Birdy begins to disappear
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Mar 28 23:37:28 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Mar 28 23:40:49 2010 +0000
@@ -2891,7 +2891,9 @@
     Gear^.State:= Gear^.State or gstAnimation or gstTmpFlag;
     Gear^.Timer:= 0;
     Gear^.doStep:= @doStepBirdyDisappear;
+    CurAmmoGear:= nil;
     isCursorVisible:= false;
+    AfterAttack;
     end
 end;
 
@@ -2899,12 +2901,12 @@
 procedure doStepBirdyDescend(Gear: PGear);
 var HHGear: PGear;
 begin
-AllInactive:= false;
 if Gear^.Timer > 0 then
     dec(Gear^.Timer, 1)
 else if CurrentHedgehog = nil then
     begin
     DeleteGear(Gear);
+    AfterAttack;
     exit
     end;
 HHGear:= CurrentHedgehog^.Gear;