equal
deleted
inserted
replaced
578 begin |
578 begin |
579 BTSteps:= 0; |
579 BTSteps:= 0; |
580 Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC); |
580 Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC); |
581 Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC); |
581 Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC); |
582 HHGear^.State:= HHGear^.State or gstNoDamage; |
582 HHGear^.State:= HHGear^.State or gstNoDamage; |
583 AmmoShove(Gear, 2, 14); |
583 AmmoShove(Gear, 2, 10); |
584 HHGear^.State:= HHGear^.State and not gstNoDamage |
584 HHGear^.State:= HHGear^.State and not gstNoDamage |
585 end; |
585 end; |
586 |
586 |
587 if (HHGear^.State and gstMoving) <> 0 then Gear^.Timer:= 0 |
587 if (HHGear^.State and gstMoving) <> 0 then Gear^.Timer:= 0 |
588 end; |
588 end; |
589 |
589 |
590 if b then |
590 if b then |
591 DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(Gear^.dY) * 7, |
591 DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(Gear^.dY) * 7, |
592 Gear^.dX, Gear^.dY, |
592 Gear^.dX, Gear^.dY, |
593 cHHRadius * 5, cHHRadius * 2 + 6); |
593 cHHRadius * 5, cHHRadius * 2 + 7); |
594 |
594 |
595 if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then |
595 if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then |
596 begin |
596 begin |
597 HHGear^.Message:= 0; |
597 HHGear^.Message:= 0; |
598 DeleteGear(Gear); |
598 DeleteGear(Gear); |