equal
deleted
inserted
replaced
6375 begin |
6375 begin |
6376 updateTarget(Gear, ndX, ndY); |
6376 updateTarget(Gear, ndX, ndY); |
6377 Timer := iceWaitCollision; |
6377 Timer := iceWaitCollision; |
6378 FlightTime := 0; |
6378 FlightTime := 0; |
6379 end |
6379 end |
6380 else |
6380 // Extend ice beam, unless it is far outside he map boundaries |
|
6381 else if (not ((hwRound(X + dX) > max(LAND_WIDTH,4096)*2) or |
|
6382 (hwRound(X + dX) < -max(LAND_WIDTH,4096)*2) or |
|
6383 (hwRound(Y + dY) < -max(LAND_HEIGHT,4096)*2) or |
|
6384 (hwRound(Y + dY) > max(LAND_HEIGHT,4096)+512))) then |
6381 begin |
6385 begin |
6382 X:= X + dX; |
6386 X:= X + dX; |
6383 Y:= Y + dY; |
6387 Y:= Y + dY; |
6384 gX:= hwRound(X); |
6388 gX:= hwRound(X); |
6385 gY:= hwRound(Y); |
6389 gY:= hwRound(Y); |
6580 Target.Y:= gY; |
6584 Target.Y:= gY; |
6581 X:= HHGear^.X; |
6585 X:= HHGear^.X; |
6582 Y:= HHGear^.Y |
6586 Y:= HHGear^.Y |
6583 end |
6587 end |
6584 end; |
6588 end; |
6585 if (gX > max(LAND_WIDTH,4096)*2) or |
|
6586 (gX < -max(LAND_WIDTH,4096)) or |
|
6587 (gY < -max(LAND_HEIGHT,4096)) or |
|
6588 (gY > max(LAND_HEIGHT,4096)+512) then |
|
6589 begin |
|
6590 //X:= HHGear^.X; |
|
6591 //Y:= HHGear^.Y |
|
6592 Target.X:= gX; |
|
6593 Target.Y:= gY; |
|
6594 end |
|
6595 end |
6589 end |
6596 end; |
6590 end; |
6597 end; |
6591 end; |
6598 |
6592 |
6599 procedure doStepAddAmmo(Gear: PGear); |
6593 procedure doStepAddAmmo(Gear: PGear); |