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 1806 3c4f0886c123
parent 1792 c30c6944bd49
child 1807 795f97007833
equal deleted inserted replaced
1805:dd9fb4b13fd8 1806:3c4f0886c123 
    35 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet: boolean);
 
    35 procedure ChangeRoundInLand(X, Y, Radius: LongInt; doSet: boolean);
 
    36 
    36 
    37 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 
    37 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 
    38 
    38 
    39 implementation
 
    39 implementation
 
    40 uses SDLh, uMisc, uLand;
 
    40 uses SDLh, uMisc, uLand, uLandTexture;
 
    41 
    41 
    42 procedure FillCircleLines(x, y, dx, dy: LongInt; Value: Longword);
 
    42 procedure FillCircleLines(x, y, dx, dy: LongInt; Value: Longword);
 
    43 var i: LongInt;
 
    43 var i: LongInt;
 
    44 begin
 
    44 begin
 
    45 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
 
    45 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
hedgewars