hedgewars/GSHandlers.inc
changeset 5786 ffe2401e287f
parent 5774 8512b9758f67
child 5806 6778f0a7d896
equal deleted inserted replaced
5785:45b85a04bb1e 5786:ffe2401e287f
  1125 begin
  1125 begin
  1126     AllInactive := false;
  1126     AllInactive := false;
  1127     HHGear := Gear^.Hedgehog^.Gear;
  1127     HHGear := Gear^.Hedgehog^.Gear;
  1128     dec(Gear^.Timer);
  1128     dec(Gear^.Timer);
  1129     if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then dec(TurnTimeLeft);
  1129     if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then dec(TurnTimeLeft);
  1130     if (Gear^.Timer = 0)or((Gear^.Message and gmDestroy) <> 0)or((HHGear^.State and gstHHDriven) =
  1130     if (TurnTimeLeft = 0) or (Gear^.Timer = 0)or((Gear^.Message and gmDestroy) <> 0)or((HHGear^.State and gstHHDriven) =
  1131        0) then
  1131        0) then
  1132         begin
  1132         begin
  1133         StopSound(Gear^.SoundChannel);
  1133         StopSound(Gear^.SoundChannel);
  1134         DeleteGear(Gear);
  1134         DeleteGear(Gear);
  1135         AfterAttack;
  1135         AfterAttack;
  1303         DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(
  1303         DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(
  1304                    Gear^.dY) * 7,
  1304                    Gear^.dY) * 7,
  1305         Gear^.dX, Gear^.dY,
  1305         Gear^.dX, Gear^.dY,
  1306         cHHRadius * 5, cHHRadius * 2 + 7);
  1306         cHHRadius * 5, cHHRadius * 2 + 7);
  1307 
  1307 
  1308     if (Gear^.Timer = 0) or ((HHGear^.Message and gmAttack) <> 0) then
  1308     if (TurnTimeLeft = 0) or (Gear^.Timer = 0) or ((HHGear^.Message and gmAttack) <> 0) then
  1309         begin
  1309         begin
  1310         HHGear^.Message := 0;
  1310         HHGear^.Message := 0;
  1311         HHGear^.State := HHGear^.State and (not gstNotKickable);
  1311         HHGear^.State := HHGear^.State and (not gstNotKickable);
  1312         DeleteGear(Gear);
  1312         DeleteGear(Gear);
  1313         AfterAttack
  1313         AfterAttack