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 4403 0dfe26f48ec1
parent 4377 43945842da0c
child 4634 784e2df9e79a
equal deleted inserted replaced
4402:54a78ec6aac4 4403:0dfe26f48ec1 
    38 function  LandBackPixel(x, y: LongInt): LongWord;
 
    38 function  LandBackPixel(x, y: LongInt): LongWord;
 
    39 
    39 
    40 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 
    40 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 
    41 
    41 
    42 implementation
 
    42 implementation
 
    43 uses SDLh, uLandTexture, uVariables, uUtils, uIO;
 
    43 uses SDLh, uLandTexture, uVariables, uUtils, uDebug;
 
    44 
    44 
    45 procedure FillCircleLines(x, y, dx, dy: LongInt; Value: Longword);
 
    45 procedure FillCircleLines(x, y, dx, dy: LongInt; Value: Longword);
 
    46 var i: LongInt;
 
    46 var i: LongInt;
 
    47 begin
 
    47 begin
 
    48 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
 
    48 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
hedgewars