equal
deleted
inserted
replaced
1739 AddVisualGear(hwRound(Gear^.X) - 4 + Random(8), hwRound(Gear^.Y) - 4 - Random(4), |
1739 AddVisualGear(hwRound(Gear^.X) - 4 + Random(8), hwRound(Gear^.Y) - 4 - Random(4), |
1740 vgtSmoke); |
1740 vgtSmoke); |
1741 PlaySound(sndVaporize); |
1741 PlaySound(sndVaporize); |
1742 Gear^.Health := 0; |
1742 Gear^.Health := 0; |
1743 Gear^.Damage := 0; |
1743 Gear^.Damage := 0; |
1744 AddFileLog('initial mine damage:'+IntToStr(Gear^.Damage)); |
1744 Gear^.State := Gear^.State and not gstAttacking |
1745 end; |
1745 end; |
1746 exit |
1746 exit |
1747 end; |
1747 end; |
1748 dec(Gear^.Timer); |
1748 dec(Gear^.Timer); |
1749 end |
1749 end |