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, 5000); |
817 AddGear(positions[i].X, positions[i].Y - cHHRadius, gtSentry, 0, _0, _0, 0); |
818 end; |
818 end; |
819 |
819 |
820 procedure AddMiscGears; |
820 procedure AddMiscGears; |
821 var p,i,j,t,h,unplaced: Longword; |
821 var p,i,j,t,h,unplaced: Longword; |
822 rx, ry: LongInt; |
822 rx, ry: LongInt; |
1518 @doStepGenericFaller, |
1518 @doStepGenericFaller, |
1519 @doStepKnife, |
1519 @doStepKnife, |
1520 @doStepCreeper, |
1520 @doStepCreeper, |
1521 @doStepMinigun, |
1521 @doStepMinigun, |
1522 @doStepMinigunBullet, |
1522 @doStepMinigunBullet, |
1523 @doStepSentry); |
1523 @doStepSentryDeploy); |
1524 begin |
1524 begin |
1525 doStepHandlers:= handlers; |
1525 doStepHandlers:= handlers; |
1526 |
1526 |
1527 RegisterVariable('skip', @chSkip, false); |
1527 RegisterVariable('skip', @chSkip, false); |
1528 RegisterVariable('hogsay', @chHogSay, true ); |
1528 RegisterVariable('hogsay', @chHogSay, true ); |