equal
deleted
inserted
replaced
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 |
646 for i:= (LAND_WIDTH*LAND_HEIGHT) div 524288+2 downto 0 do |
647 for i:= GetRandom(10)+30 downto 0 do |
|
648 begin |
647 begin |
649 rx:= GetRandom(rightX-leftX)+leftX; |
648 rx:= GetRandom(rightX-leftX)+leftX; |
650 ry:= GetRandom(LAND_HEIGHT-topY)+topY; |
649 ry:= GetRandom(LAND_HEIGHT-topY)+topY; |
651 rdx:= _90-(GetRandomf*_360); |
650 rdx:= _90-(GetRandomf*_360); |
652 rdy:= _90-(GetRandomf*_360); |
651 rdy:= _90-(GetRandomf*_360); |
930 end; |
929 end; |
931 |
930 |
932 var GearsNearArray : TPGearArray; |
931 var GearsNearArray : TPGearArray; |
933 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS; |
932 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS; |
934 var |
933 var |
935 t : PGear; |
934 t: PGear; |
936 s: Longword; |
935 s: Longword; |
937 begin |
936 begin |
938 r:= r*r; |
937 r:= r*r; |
939 s:= 0; |
938 s:= 0; |
940 SetLength(GearsNearArray, s); |
939 SetLength(GearsNearArray, s); |
947 inc(s); |
946 inc(s); |
948 SetLength(GearsNearArray, s); |
947 SetLength(GearsNearArray, s); |
949 GearsNearArray[s - 1] := t; |
948 GearsNearArray[s - 1] := t; |
950 end; |
949 end; |
951 t := t^.NextGear; |
950 t := t^.NextGear; |
952 end; |
951 end; |
953 |
952 |
954 GearsNear.size:= s; |
953 GearsNear.size:= s; |
955 GearsNear.ar:= @GearsNearArray |
954 GearsNear.ar:= @GearsNearArray |
956 end; |
955 end; |
957 |
956 |