equal
deleted
inserted
replaced
1053 end |
1053 end |
1054 end |
1054 end |
1055 end; |
1055 end; |
1056 |
1056 |
1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear; |
1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear; |
1058 begin |
1058 var t: PGear; |
1059 var t: PGear; |
|
1060 width, dX, dY: hwFloat; |
1059 width, dX, dY: hwFloat; |
1061 bound: LongInt; |
1060 bound: LongInt; |
1062 isHit: Boolean; |
1061 isHit: Boolean; |
1063 begin |
1062 begin |
1064 t:= GearsList; |
1063 t:= GearsList; |