513         begin

   513         begin

   514         cLaserSighting:= false;

   514         cLaserSighting:= false;

   515         cLaserSightingSniper:= false

   515         cLaserSightingSniper:= false

   516         end;

   516         end;

   517 

   517 

   520     // have to sweep *all* current team hedgehogs since it is theoretically possible if you have enough invulnerabilities and switch turns to make your entire team invulnerable

   518     // have to sweep *all* current team hedgehogs since it is theoretically possible if you have enough invulnerabilities and switch turns to make your entire team invulnerable

   521     if (CurrentTeam <> nil) then

   519     if (CurrentTeam <> nil) then

   522         with CurrentTeam^ do

   520         with CurrentTeam^ do

   523             for i:= 0 to cMaxHHIndex do

   521             for i:= 0 to cMaxHHIndex do

   524                 with Hedgehogs[i] do

   522                 with Hedgehogs[i] do

   733                             Effects[heInvulnerable]:= 1;

   731                             Effects[heInvulnerable]:= 1;

   734 

   732 

   735 if (GameFlags and gfLaserSight) <> 0 then

   733 if (GameFlags and gfLaserSight) <> 0 then

   736     cLaserSighting:= true;

   734     cLaserSighting:= true;

   737 

   735 

   740 for i:= (LAND_WIDTH*LAND_HEIGHT) div 524288+2 downto 0 do

   736 for i:= (LAND_WIDTH*LAND_HEIGHT) div 524288+2 downto 0 do

   741     begin

   737     begin

   742     rx:= GetRandom(rightX-leftX)+leftX;

   738     rx:= GetRandom(rightX-leftX)+leftX;

   743     ry:= GetRandom(LAND_HEIGHT-topY)+topY;

   739     ry:= GetRandom(LAND_HEIGHT-topY)+topY;

   744     rdx:= _90-(GetRandomf*_360);

   740     rdx:= _90-(GetRandomf*_360);