equal
deleted
inserted
replaced
824 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
824 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
825 begin |
825 begin |
826 if PlacingHogs then |
826 if PlacingHogs then |
827 Unplaced:= true |
827 Unplaced:= true |
828 else |
828 else |
829 FindPlace(Gear, false, t, t + LAND_WIDTH div 2);// could make Gear == nil; |
829 FindPlace(Gear, false, t, t + LAND_WIDTH div 2, true);// could make Gear == nil; |
830 if Gear <> nil then |
830 if Gear <> nil then |
831 begin |
831 begin |
832 Gear^.Pos:= GetRandom(49); |
832 Gear^.Pos:= GetRandom(49); |
833 Gear^.dX.isNegative:= p = 1; |
833 Gear^.dX.isNegative:= p = 1; |
834 end |
834 end |
857 begin |
857 begin |
858 i:= GetRandom(Count); |
858 i:= GetRandom(Count); |
859 if PlacingHogs then |
859 if PlacingHogs then |
860 ar[i]^.Unplaced:= true |
860 ar[i]^.Unplaced:= true |
861 else |
861 else |
862 FindPlace(ar[i]^.Gear, false, 0, LAND_WIDTH); |
862 FindPlace(ar[i]^.Gear, false, 0, LAND_WIDTH, true); |
863 if ar[i]^.Gear <> nil then |
863 if ar[i]^.Gear <> nil then |
864 begin |
864 begin |
865 ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > LAND_WIDTH div 2; |
865 ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > LAND_WIDTH div 2; |
866 ar[i]^.Gear^.Pos:= GetRandom(19) |
866 ar[i]^.Gear^.Pos:= GetRandom(19) |
867 end; |
867 end; |