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/uCollisions.pas
changeset 57 e1a77ae57065
parent 54 839fd258ae6f
child 62 c3eda0c68cd6
equal deleted inserted replaced
56:a29135563e94 57:e1a77ae57065 
    54 function TestCollisionYwithGear(Gear: PGear; Dir: integer): boolean;
 
    54 function TestCollisionYwithGear(Gear: PGear; Dir: integer): boolean;
 
    55 function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean;
 
    55 function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean;
 
    56 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean;
 
    56 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean;
 
    57 
    57 
    58 implementation
 
    58 implementation
 
    59 uses uMisc, uConsts, uLand, uGraphics;
 
    59 uses uMisc, uConsts, uLand, uLandGraphics;
 
    60 
    60 
    61 type TCollisionEntry = record
 
    61 type TCollisionEntry = record
 
    62                        X, Y, Radius: integer;
 
    62                        X, Y, Radius: integer;
 
    63                        cGear: PGear;
 
    63                        cGear: PGear;
 
    64                        end;
 
    64                        end;
hedgewars