hedgewars/uGearsHandlersMess.pas
changeset 15643 8138670eab08
parent 15642 1b3cd00e6b1c
child 15647 0da235387ad3
equal deleted inserted replaced
15642:1b3cd00e6b1c 15643:8138670eab08
  7186     HHGear:= nil;
  7186     HHGear:= nil;
  7187 
  7187 
  7188     if CheckGearDrowning(Gear) then
  7188     if CheckGearDrowning(Gear) then
  7189         exit;
  7189         exit;
  7190 
  7190 
  7191     if TestCollisionYKick(Gear, 1) = 0 then
  7191     if TestCollisionY(Gear, 1) = 0 then
  7192     begin
  7192     begin
  7193         doStepFallingGear(Gear);
  7193         doStepFallingGear(Gear);
  7194         Gear^.Timer := 0;
  7194         Gear^.Timer := 0;
  7195         Gear^.Tag := sentry_Idle;
  7195         Gear^.Tag := sentry_Idle;
  7196         exit;
  7196         exit;
  7230             bullet := AddGear(
  7230             bullet := AddGear(
  7231                 hwRound(Gear^.X), hwRound(Gear^.Y),
  7231                 hwRound(Gear^.X), hwRound(Gear^.Y),
  7232                 gtDEagleShot, 0,
  7232                 gtDEagleShot, 0,
  7233                 distX, distY, 0);
  7233                 distX, distY, 0);
  7234 
  7234 
       
  7235             bullet^.Boom := 4;
  7235             bullet^.PortalCounter := 1;
  7236             bullet^.PortalCounter := 1;
  7236             bullet^.Elasticity := Gear^.X;
  7237             bullet^.Elasticity := Gear^.X;
  7237             bullet^.Friction := Gear^.Y;
  7238             bullet^.Friction := Gear^.Y;
  7238             bullet^.Data := Pointer(Gear);
  7239             bullet^.Data := Pointer(Gear);
  7239 
  7240