Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uLandGraphics.pas
changeset 4359 83ef50815535
parent 4357 a1fcfc341a52
child 4367 f4a0ec067601
equal deleted inserted replaced
4357:a1fcfc341a52 4359:83ef50815535 
    37 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet: boolean);
 
    37 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet: boolean);
 
    38 
    38 
    39 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 
    39 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 
    40 
    40 
    41 implementation
 
    41 implementation
 
    42 uses SDLh, uMisc, uLand, uLandTexture;
 
    42 uses SDLh, uMisc, uLand, uLandTexture, uVariables;
 
    43 
    43 
    44 procedure FillCircleLines(x, y, dx, dy: LongInt; Value: Longword);
 
    44 procedure FillCircleLines(x, y, dx, dy: LongInt; Value: Longword);
 
    45 var i: LongInt;
 
    45 var i: LongInt;
 
    46 begin
 
    46 begin
 
    47 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
 
    47 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
hedgewars