342 |
342 |
343 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet, isCurrent: boolean); |
343 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet, isCurrent: boolean); |
344 begin |
344 begin |
345 if not doSet and isCurrent then |
345 if not doSet and isCurrent then |
346 FillRoundInLandFT(X, Y, Radius, setNotCurrentMask) |
346 FillRoundInLandFT(X, Y, Radius, setNotCurrentMask) |
347 else if not doSet and not IsCurrent then |
347 else if not doSet and (not IsCurrent) then |
348 FillRoundInLandFT(X, Y, Radius, changePixelSetNotCurrent) |
348 FillRoundInLandFT(X, Y, Radius, changePixelSetNotCurrent) |
349 else if doSet and IsCurrent then |
349 else if doSet and IsCurrent then |
350 FillRoundInLandFT(X, Y, Radius, setCurrentHog) |
350 FillRoundInLandFT(X, Y, Radius, setCurrentHog) |
351 else if doSet and not IsCurrent then |
351 else if doSet and (not IsCurrent) then |
352 FillRoundInLandFT(X, Y, Radius, changePixelNotSetNotCurrent); |
352 FillRoundInLandFT(X, Y, Radius, changePixelNotSetNotCurrent); |
353 end; |
353 end; |
354 |
354 |
355 procedure DrawIceBreak(x, y, iceRadius, iceHeight: Longint); |
355 procedure DrawIceBreak(x, y, iceRadius, iceHeight: Longint); |
356 var |
356 var |