# HG changeset patch
# User unc0rr
# Date 1398853026 -14400
# Node ID a3a200e35c6eabf0face832bd98d9e4b86c1bc82
# Parent  aef994a2ec1a4bf86ccd8b28dc5f0c50d6a8ec45
Fix crashers in rc plane code

diff -r aef994a2ec1a -r a3a200e35c6e hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Tue Apr 29 10:20:45 2014 +0400
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Apr 30 14:17:06 2014 +0400
@@ -3430,7 +3430,7 @@
 
     // pickup bonuses
     t := CheckGearNear(Gear, gtCase, 36, 36);
-    if t <> nil then
+    if (t <> nil) and (HHGear <> nil) then
         PickUp(HHGear, t);
 
     CheckCollision(Gear);
@@ -3464,7 +3464,8 @@
             TurnTimeLeft:= 14 * 125;
             end;
 
-        HHGear^.Message := 0;
+        if HHGear <> nil then 
+            HHGear^.Message := 0;
         ParseCommand('/taunt ' + #1, true)
         end
 end;