hedgewars/uGearsList.pas
changeset 8751 4609823efc94
parent 8744 6c87486fd89b
child 8774 39754516eee6
equal deleted inserted replaced
8749:1b9f026e9fc6 8751:4609823efc94
   183 
   183 
   184 if CurrentHedgehog <> nil then 
   184 if CurrentHedgehog <> nil then 
   185     begin
   185     begin
   186     gear^.Hedgehog:= CurrentHedgehog;
   186     gear^.Hedgehog:= CurrentHedgehog;
   187     if (CurrentHedgehog^.Gear <> nil) and (hwRound(CurrentHedgehog^.Gear^.X) = X) and (hwRound(CurrentHedgehog^.Gear^.Y) = Y) then
   187     if (CurrentHedgehog^.Gear <> nil) and (hwRound(CurrentHedgehog^.Gear^.X) = X) and (hwRound(CurrentHedgehog^.Gear^.Y) = Y) then
   188         gear^.CollisionMask:= lfCurrentMask
   188         gear^.CollisionMask:= lfNotCurrentMask
   189     end;
   189     end;
   190 
   190 
   191 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   191 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   192     gear^.Z:= cHHZ+1
   192     gear^.Z:= cHHZ+1
   193 else gear^.Z:= cUsualZ;
   193 else gear^.Z:= cUsualZ;