hedgewars/uGears.pas
changeset 1948 1e0e1f03180d
parent 1939 4b8e4cd9e7c0
child 1964 dc9ea05c9d2f
--- a/hedgewars/uGears.pas	Tue Apr 07 14:01:46 2009 +0000
+++ b/hedgewars/uGears.pas	Tue Apr 07 14:02:06 2009 +0000
@@ -1634,6 +1634,8 @@
    (CountGears(gtCase) >= 5) or
    (getrandom(cCaseFactor) <> 0) then exit;
 
+FollowGear:= nil;
+
 case getrandom(20) of
      0..6: begin
         FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);