# HG changeset patch
# User unc0rr
# Date 1171401720 0
# Node ID f2920f08ea5f192baa4a8110dae08637b8aa7e1c
# Parent  710d12dbeb61596d2a970981b688be468c355be8
Fix hedgehog stopping after picking up bonus box

diff -r 710d12dbeb61 -r f2920f08ea5f hedgewars/GSHandlers.inc
--- 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;
 
diff -r 710d12dbeb61 -r f2920f08ea5f hedgewars/uAI.pas
--- 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;