Fix hedgehog stopping after picking up bonus box
authorunc0rr
Tue, 13 Feb 2007 21:22:00 +0000
changeset 441 f2920f08ea5f
parent 440 710d12dbeb61
child 442 57ed1444606e
Fix hedgehog stopping after picking up bonus box
hedgewars/GSHandlers.inc
hedgewars/uAI.pas
--- a/hedgewars/GSHandlers.inc	Tue Feb 13 18:52:14 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Tue Feb 13 21:22:00 2007 +0000
@@ -786,6 +786,8 @@
    begin
    DeleteGear(Gear);
    FreeActionsList;
+   with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do
+     if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump);
    exit
    end;
 
--- a/hedgewars/uAI.pas	Tue Feb 13 18:52:14 2007 +0000
+++ b/hedgewars/uAI.pas	Tue Feb 13 21:22:00 2007 +0000
@@ -43,9 +43,6 @@
    ThinkThread:= nil
    end;
 
-with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do
-     if Gear <> nil then Gear^.Message:= 0;
-
 BestActions.Count:= 0;
 BestActions.Pos:= 0
 end;