hedgewars/uGears.pas
changeset 8030 165aeaaaf445
parent 8011 ffd5eba8f7c2
child 8096 453917e94e55
child 8127 cffa2c8275e0
equal deleted inserted replaced
8027:e5ba3dd12531 8030:165aeaaaf445
   641 if (GameFlags and gfLaserSight) <> 0 then
   641 if (GameFlags and gfLaserSight) <> 0 then
   642     cLaserSighting:= true;
   642     cLaserSighting:= true;
   643 
   643 
   644 if (GameFlags and gfArtillery) <> 0 then
   644 if (GameFlags and gfArtillery) <> 0 then
   645     cArtillery:= true;
   645     cArtillery:= true;
   646 for i:= GetRandom(10)+30 downto 0 do
   646 for i:= (LAND_WIDTH*LAND_HEIGHT) div 524288+2 downto 0 do
   647     begin
   647     begin
   648     rx:= GetRandom(rightX-leftX)+leftX;
   648     rx:= GetRandom(rightX-leftX)+leftX;
   649     ry:= GetRandom(LAND_HEIGHT-topY)+topY;
   649     ry:= GetRandom(LAND_HEIGHT-topY)+topY;
   650     rdx:= _90-(GetRandomf*_360);
   650     rdx:= _90-(GetRandomf*_360);
   651     rdy:= _90-(GetRandomf*_360);
   651     rdy:= _90-(GetRandomf*_360);