equal
deleted
inserted
replaced
513 begin |
513 begin |
514 cLaserSighting:= false; |
514 cLaserSighting:= false; |
515 cLaserSightingSniper:= false |
515 cLaserSightingSniper:= false |
516 end; |
516 end; |
517 |
517 |
518 if (GameFlags and gfArtillery) = 0 then |
|
519 cArtillery:= false; |
|
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 |
738 if (GameFlags and gfArtillery) <> 0 then |
|
739 cArtillery:= true; |
|
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); |