equal
deleted
inserted
replaced
601 begin |
601 begin |
602 BTSteps:= 0; |
602 BTSteps:= 0; |
603 Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC); |
603 Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC); |
604 Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC); |
604 Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC); |
605 HHGear^.State:= HHGear^.State or gstNoDamage; |
605 HHGear^.State:= HHGear^.State or gstNoDamage; |
606 AmmoShove(Gear, 2, 10); |
606 AmmoShove(Gear, 2, 15); |
607 HHGear^.State:= HHGear^.State and not gstNoDamage |
607 HHGear^.State:= HHGear^.State and not gstNoDamage |
608 end; |
608 end; |
609 end; |
609 end; |
610 |
610 |
611 if b then |
611 if b then |
1934 0); |
1934 0); |
1935 |
1935 |
1936 PlaySound(sndGun, false); |
1936 PlaySound(sndGun, false); |
1937 end; |
1937 end; |
1938 |
1938 |
1939 if (Gear^.Timer = 0) then |
1939 if (Gear^.Timer = 0) or (HHGear^.Damage <> 0) then |
1940 begin |
1940 begin |
1941 DeleteGear(Gear); |
1941 DeleteGear(Gear); |
1942 AfterAttack; |
1942 AfterAttack |
1943 end |
1943 end |
1944 end; |
1944 end; |
1945 |
1945 |
1946 procedure doStepBallgun(Gear: PGear); |
1946 procedure doStepBallgun(Gear: PGear); |
1947 var HHGear: PGear; |
1947 var HHGear: PGear; |
1948 begin |
1948 begin |