hedgewars/uGears.pas
changeset 1000 e7b204880318
parent 999 8dcf263c9e8f
child 1002 14ecd5fd4fab
--- a/hedgewars/uGears.pas	Tue Jun 17 18:10:15 2008 +0000
+++ b/hedgewars/uGears.pas	Tue Jun 17 18:45:21 2008 +0000
@@ -1082,6 +1082,7 @@
 		begin
 		i:= GetRandom(Count);
 		FindPlace(ar[i], false, 0, 2048);
+		ar[i]^.dX.isNegative:= ar[i]^.X > _1024;
 		ar[i]^.Pos:= GetRandom(19);
 		ar[i]:= ar[Count - 1];
 		dec(Count)