hedgewars/GSHandlers.inc
changeset 441 f2920f08ea5f
parent 439 c336ed82e76d
child 495 62c1c2b4414c
--- 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;