hedgewars/uGearsList.pas
changeset 8744 6c87486fd89b
parent 8494 53b91a602955
child 8751 4609823efc94
equal deleted inserted replaced
8743:0097855532f6 8744:6c87486fd89b
   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:= $FF7F
   188         gear^.CollisionMask:= lfCurrentMask
   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;