equal
deleted
inserted
replaced
1345 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
1345 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
1346 begin |
1346 begin |
1347 FindPlace(Gear, false, t, t + LAND_WIDTH div 2);// could make Gear == nil |
1347 FindPlace(Gear, false, t, t + LAND_WIDTH div 2);// could make Gear == nil |
1348 if Gear <> nil then |
1348 if Gear <> nil then |
1349 begin |
1349 begin |
1350 Gear^.Pos:= GetRandom(19); |
1350 Gear^.Pos:= GetRandom(49); |
1351 Gear^.dX.isNegative:= p = 1; |
1351 Gear^.dX.isNegative:= p = 1; |
1352 end |
1352 end |
1353 end; |
1353 end; |
1354 t:= LAND_WIDTH div 2 |
1354 t:= LAND_WIDTH div 2 |
1355 end |
1355 end |