hedgewars/uGears.pas
changeset 5708 8972de340fa1
parent 5706 4454aa0523e7
child 5744 746de1d303d2
equal deleted inserted replaced
5706:4454aa0523e7 5708:8972de340fa1
   215 gear^.dX:= dX;
   215 gear^.dX:= dX;
   216 gear^.dY:= dY;
   216 gear^.dY:= dY;
   217 gear^.doStep:= doStepHandlers[Kind];
   217 gear^.doStep:= doStepHandlers[Kind];
   218 gear^.CollisionIndex:= -1;
   218 gear^.CollisionIndex:= -1;
   219 gear^.Timer:= Timer;
   219 gear^.Timer:= Timer;
   220 gear^.Z:= cUsualZ;
       
   221 gear^.FlightTime:= 0;
   220 gear^.FlightTime:= 0;
   222 gear^.uid:= Counter;
   221 gear^.uid:= Counter;
   223 gear^.SoundChannel:= -1;
   222 gear^.SoundChannel:= -1;
   224 gear^.ImpactSound:= sndNone;
   223 gear^.ImpactSound:= sndNone;
   225 gear^.nImpactSounds:= 0;
   224 gear^.nImpactSounds:= 0;
   226 // Define ammo association, if any.
   225 // Define ammo association, if any.
   227 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   226 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
       
   227 if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then gear^.Z:= cHHZ+1
       
   228 else gear^.Z:= cUsualZ;
   228 
   229 
   229 if CurrentHedgehog <> nil then
   230 if CurrentHedgehog <> nil then
   230     begin
   231     begin
   231     gear^.Hedgehog:= CurrentHedgehog;
   232     gear^.Hedgehog:= CurrentHedgehog;
   232     gear^.IntersectGear:= CurrentHedgehog^.Gear
   233     gear^.IntersectGear:= CurrentHedgehog^.Gear
   369                 gear^.nImpactSounds:= 1;
   370                 gear^.nImpactSounds:= 1;
   370                 gear^.Radius:= 16;
   371                 gear^.Radius:= 16;
   371                 gear^.Elasticity:= _0_4;
   372                 gear^.Elasticity:= _0_4;
   372                 gear^.Friction:= _0_995;
   373                 gear^.Friction:= _0_995;
   373                 gear^.Density:= _6;
   374                 gear^.Density:= _6;
   374                 gear^.Health:= cBarrelHealth
   375                 gear^.Health:= cBarrelHealth;
       
   376                 gear^.Z:= cHHZ-1
   375                 end;
   377                 end;
   376   gtDEagleShot: begin
   378   gtDEagleShot: begin
   377                 gear^.Radius:= 1;
   379                 gear^.Radius:= 1;
   378                 gear^.Health:= 50
   380                 gear^.Health:= 50
   379                 end;
   381                 end;