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);