# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1523988610 -7200
# Node ID 2489c36c61b7b628a02816a0020b2dceb405a8fa
# Parent  817e1890ee66799302aac3e654fff16ec0faa24d
Fix crash when firing portal gun at low quality graphics

diff -r 817e1890ee66 -r 2489c36c61b7 ChangeLog.txt
--- a/ChangeLog.txt	Tue Apr 17 00:37:15 2018 +0200
+++ b/ChangeLog.txt	Tue Apr 17 20:10:10 2018 +0200
@@ -1,5 +1,8 @@
 + features
 * bugfixes
+====================== 0.9.24.1 =====================
+ * Fix crash when portable portal device is fired at reduced graphics quality
+
 ====================== 0.9.24 ======================
 Game:
  + New weapon: Minigun
diff -r 817e1890ee66 -r 2489c36c61b7 hedgewars/uGearsRender.pas
--- a/hedgewars/uGearsRender.pas	Tue Apr 17 00:37:15 2018 +0200
+++ b/hedgewars/uGearsRender.pas	Tue Apr 17 20:10:10 2018 +0200
@@ -1250,10 +1250,11 @@
                  if ((Gear^.Tag and 1) = 0) and ((GameTicks mod 4) = 0) and (not isPaused) then
                      begin
                      vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1);
-                     if Gear^.Tag = 0 then
-                         vg^.Tint:= $fab02ab0
-                     else if Gear^.Tag = 2 then
-                         vg^.Tint:= $364df7b0;
+                     if vg <> nil then
+                         if Gear^.Tag = 0 then
+                             vg^.Tint:= $fab02ab0
+                         else if Gear^.Tag = 2 then
+                             vg^.Tint:= $364df7b0;
                      end;
                  end;