equal
deleted
inserted
replaced
874 begin |
874 begin |
875 i:= GetRandom(Count); |
875 i:= GetRandom(Count); |
876 if PlacingHogs then |
876 if PlacingHogs then |
877 ar[i]^.Unplaced:= true |
877 ar[i]^.Unplaced:= true |
878 else |
878 else |
879 FindPlace(ar[i]^.Gear, false, leftX, playWidth, true); |
879 FindPlace(ar[i]^.Gear, false, leftX, rightX, true); |
880 if ar[i]^.Gear <> nil then |
880 if ar[i]^.Gear <> nil then |
881 begin |
881 begin |
882 ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > leftX + playWidth div 2; |
882 ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > leftX + playWidth div 2; |
883 ar[i]^.Gear^.Pos:= GetRandom(19) |
883 ar[i]^.Gear^.Pos:= GetRandom(19) |
884 end; |
884 end; |