diff -r 9a3ba4e76e38 -r f7b5b4b88171 hedgewars/uLandPainted.pas --- a/hedgewars/uLandPainted.pas Wed May 14 21:41:42 2014 +0400 +++ b/hedgewars/uLandPainted.pas Wed May 14 22:50:07 2014 +0400 @@ -82,6 +82,7 @@ prevPoint: PointRec; radius: LongInt; color: Longword; + linePoints: Longword; begin // shutup compiler prevPoint.X:= 0; @@ -99,18 +100,16 @@ begin if (pe^.point.flags and $80 <> 0) then begin - if (pe^.point.flags and $40 <> 0) then + if (pe^.point.flags and $40 <> 0) and (not cAdvancedMapGenMode) then color:= 0 else color:= lfBasic; radius:= (pe^.point.flags and $3F) * 5 + 3; - AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+'), radius = '+inttostr(radius)); - FillRoundInLand(pe^.point.X, pe^.point.Y, radius, color) + linePoints:= FillRoundInLand(pe^.point.X, pe^.point.Y, radius, color) end else begin - AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+'), radius = '+inttostr(radius)); - DrawThickLine(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y, radius, color); + inc(linePoints, DrawThickLine(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y, radius, color)); end; prevPoint:= pe^.point;