hedgewars/uCollisions.pas
changeset 15674 f5b127ee3196
parent 15656 c34cad72cd85
child 15722 498c1482dec2
equal deleted inserted replaced
15673:74ede02bc882 15674:f5b127ee3196
   373 end;
   373 end;
   374 
   374 
   375 function UpdateHitOrder(Gear: PGear; Order: LongInt; Global: boolean): boolean; inline;
   375 function UpdateHitOrder(Gear: PGear; Order: LongInt; Global: boolean): boolean; inline;
   376 begin
   376 begin
   377     if Global then
   377     if Global then
       
   378         UpdateHitOrder := UpdateHitOrderImpl(@globalordera, Gear, Order)
       
   379     else
   378         UpdateHitOrder := UpdateHitOrderImpl(@ordera, Gear, Order)
   380         UpdateHitOrder := UpdateHitOrderImpl(@ordera, Gear, Order)
   379     else
       
   380         UpdateHitOrder := UpdateHitOrderImpl(@globalordera, Gear, Order)
       
   381 end;
   381 end;
   382 
   382 
   383 function UpdateGlobalHitOrder(Gear: PGear; Order: LongInt): boolean; inline;
   383 function UpdateGlobalHitOrder(Gear: PGear; Order: LongInt): boolean; inline;
   384 begin
   384 begin
   385     UpdateGlobalHitOrder := UpdateHitOrderImpl(@globalordera, Gear, Order);
   385     UpdateGlobalHitOrder := UpdateHitOrderImpl(@globalordera, Gear, Order);