hedgewars/uGearsList.pas
changeset 13463 f1d349a52bc7
parent 13399 3d6aae2ae698
child 13464 7b4643ff60ea
equal deleted inserted replaced
13462:4c47a480009b 13463:f1d349a52bc7
   210 
   210 
   211 if CurrentHedgehog <> nil then
   211 if CurrentHedgehog <> nil then
   212     begin
   212     begin
   213     gear^.Hedgehog:= CurrentHedgehog;
   213     gear^.Hedgehog:= CurrentHedgehog;
   214     if (CurrentHedgehog^.Gear <> nil) and (hwRound(CurrentHedgehog^.Gear^.X) = X) and (hwRound(CurrentHedgehog^.Gear^.Y) = Y) then
   214     if (CurrentHedgehog^.Gear <> nil) and (hwRound(CurrentHedgehog^.Gear^.X) = X) and (hwRound(CurrentHedgehog^.Gear^.Y) = Y) then
   215         gear^.CollisionMask:= lfNotCurrentMask
   215         gear^.CollisionMask:= lfNotCurHogCrate
   216     end;
   216     end;
   217 
   217 
   218 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   218 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   219     gear^.Z:= cHHZ+1
   219     gear^.Z:= cHHZ+1
   220 else gear^.Z:= cUsualZ;
   220 else gear^.Z:= cUsualZ;
   412                 gear^.Radius:= 3;
   412                 gear^.Radius:= 3;
   413                 gear^.Friction:= _450 * _0_01 * cRopePercent;
   413                 gear^.Friction:= _450 * _0_01 * cRopePercent;
   414                 RopePoints.Count:= 0;
   414                 RopePoints.Count:= 0;
   415                 gear^.Tint:= $D8D8D8FF;
   415                 gear^.Tint:= $D8D8D8FF;
   416                 gear^.Tag:= 0; // normal rope render
   416                 gear^.Tag:= 0; // normal rope render
   417                 gear^.CollisionMask:= lfNotCurrentMask //lfNotObjMask or lfNotHHObjMask;
   417                 gear^.CollisionMask:= lfNotCurHogCrate //lfNotObjMask or lfNotHHObjMask;
   418                 end;
   418                 end;
   419         gtMine: begin
   419         gtMine: begin
   420                 gear^.ImpactSound:= sndMineImpact;
   420                 gear^.ImpactSound:= sndMineImpact;
   421                 gear^.nImpactSounds:= 1;
   421                 gear^.nImpactSounds:= 1;
   422                 gear^.Health:= 10;
   422                 gear^.Health:= 10;