equal
deleted
inserted
replaced
812 dec(tries) |
812 dec(tries) |
813 end; |
813 end; |
814 end; |
814 end; |
815 |
815 |
816 for i := 0 to min(count, positionsCount) - 1 do |
816 for i := 0 to min(count, positionsCount) - 1 do |
817 AddGear(positions[i].X, positions[i].Y - cHHRadius, gtSentry, 0, _0, _0, 0); |
817 AddGear(positions[i].X, positions[i].Y - cHHRadius, gtSentry, 0, _0, _0, 0)^.Hedgehog := nil; |
818 end; |
818 end; |
819 |
819 |
820 function AddWaterSentries(count: Longword): Longword; |
820 function AddWaterSentries(count: Longword): Longword; |
821 var i, x, y: LongInt; |
821 var i, x, y: LongInt; |
822 positions: array[0..255] of TPoint; |
822 positions: array[0..255] of TPoint; |
840 end; |
840 end; |
841 end; |
841 end; |
842 |
842 |
843 for i := 0 to min(count, positionsCount) - 1 do |
843 for i := 0 to min(count, positionsCount) - 1 do |
844 begin |
844 begin |
845 AddGear(positions[i].X, positions[i].Y - cHHRadius, gtSentry, 0, _0, _0, 0); |
845 AddGear(positions[i].X, positions[i].Y - cHHRadius, gtSentry, 0, _0, _0, 0)^.Hedgehog := nil; |
846 inc(AddWaterSentries); |
846 inc(AddWaterSentries); |
847 end; |
847 end; |
848 end; |
848 end; |
849 |
849 |
850 procedure AddMiscGears; |
850 procedure AddMiscGears; |