hedgewars/uCollisions.pas
changeset 14282 6015b74eea55
parent 14006 105793e575d6
child 14531 e0af4ce7d8bc
equal deleted inserted replaced
14281:e754b516cc35 14282:6015b74eea55
   143 end;
   143 end;
   144 
   144 
   145 function CheckCoordInWater(X, Y: LongInt): boolean; inline;
   145 function CheckCoordInWater(X, Y: LongInt): boolean; inline;
   146 begin
   146 begin
   147     CheckCoordInWater:= (Y > cWaterLine)
   147     CheckCoordInWater:= (Y > cWaterLine)
   148         or ((WorldEdge = weSea) and ((X < LongInt(leftX)) or (X > LongInt(rightX))));
   148         or ((WorldEdge = weSea) and ((X < leftX) or (X > rightX)));
   149 end;
   149 end;
   150 
   150 
   151 function CheckGearsCollision(Gear: PGear): PGearArray;
   151 function CheckGearsCollision(Gear: PGear): PGearArray;
   152 var mx, my, tr: LongInt;
   152 var mx, my, tr: LongInt;
   153     i: Longword;
   153     i: Longword;