equal
deleted
inserted
replaced
565 Dispose(t) |
565 Dispose(t) |
566 end; |
566 end; |
567 end; |
567 end; |
568 |
568 |
569 procedure AddMiscGears; |
569 procedure AddMiscGears; |
570 var p,i,j,rx, ry, unplaced: Longword; |
570 var p,i,j, unplaced: Longword; |
|
571 rx, ry: LongInt; |
571 rdx, rdy: hwFloat; |
572 rdx, rdy: hwFloat; |
572 Gear: PGear; |
573 Gear: PGear; |
573 begin |
574 begin |
574 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
575 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
575 |
576 |
642 if (not hasBorder) and cSnow then |
643 if (not hasBorder) and cSnow then |
643 for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do |
644 for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do |
644 begin |
645 begin |
645 rx:=GetRandom(snowRight - snowLeft); |
646 rx:=GetRandom(snowRight - snowLeft); |
646 ry:=GetRandom(750); |
647 ry:=GetRandom(750); |
647 AddGear(rx + snowLeft, LAND_HEIGHT + ry - 1300, gtFlake, 0, _0, _0, 0) |
648 AddGear(rx + snowLeft, LongInt(LAND_HEIGHT) + ry - 1300, gtFlake, 0, _0, _0, 0) |
648 end |
649 end |
649 end; |
650 end; |
650 |
651 |
651 procedure AssignHHCoords; |
652 procedure AssignHHCoords; |
652 var i, t, p, j: LongInt; |
653 var i, t, p, j: LongInt; |