hedgewars/uCollisions.pas
changeset 13168 0e7eddfbce8a
parent 12898 8a40ce061d94
child 13463 f1d349a52bc7
equal deleted inserted replaced
13165:89a6b862e692 13168:0e7eddfbce8a
   289 
   289 
   290 function UpdateHitOrder(Gear: PGear; Order: LongInt): boolean;
   290 function UpdateHitOrder(Gear: PGear; Order: LongInt): boolean;
   291 var i: LongInt;
   291 var i: LongInt;
   292 begin
   292 begin
   293 UpdateHitOrder:= true;
   293 UpdateHitOrder:= true;
   294 for i:= 0 to cMaxGearHitOrderInd do
   294 for i:= 0 to ordera.Count - 1 do
   295     if ordera.ar[i] = Gear then
   295     if ordera.ar[i] = Gear then
   296         begin
   296         begin
   297         if Order <= ordera.order[i] then UpdateHitOrder:= false;
   297         if Order <= ordera.order[i] then UpdateHitOrder:= false;
   298         ordera.order[i]:= Max(ordera.order[i], order);
   298         ordera.order[i]:= Max(ordera.order[i], order);
   299         exit;
   299         exit;