author | unc0rr |
Tue, 07 Apr 2009 14:02:06 +0000 | |
changeset 1948 | 1e0e1f03180d |
parent 1947 | 9b8bdee5db6c |
child 1949 | 9f3ea865f00c |
--- 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);