equal
deleted
inserted
replaced
1750 end |
1750 end |
1751 else |
1751 else |
1752 begin |
1752 begin |
1753 if (Gear^.State and gsttmpFlag) <> 0 then |
1753 if (Gear^.State and gsttmpFlag) <> 0 then |
1754 begin |
1754 begin |
1755 Gear^.Radius := 9; |
1755 Gear^.Radius := 7; |
1756 AmmoShove(Gear, 2, 30); |
1756 AmmoShove(Gear, 2, 30); |
1757 Gear^.Radius := 1 |
1757 Gear^.Radius := 1 |
1758 end; |
1758 end; |
1759 if Gear^.Timer > 0 then |
1759 if Gear^.Timer > 0 then |
1760 begin |
1760 begin |
1766 gX := hwRound(Gear^.X); |
1766 gX := hwRound(Gear^.X); |
1767 gY := hwRound(Gear^.Y); |
1767 gY := hwRound(Gear^.Y); |
1768 // Standard fire |
1768 // Standard fire |
1769 if (Gear^.State and gsttmpFlag) = 0 then |
1769 if (Gear^.State and gsttmpFlag) = 0 then |
1770 begin |
1770 begin |
1771 Gear^.Radius := 9; |
1771 Gear^.Radius := 7; |
1772 AmmoShove(Gear, 4, 100); |
1772 AmmoShove(Gear, 4, 100); |
1773 Gear^.Radius := 1; |
1773 Gear^.Radius := 1; |
1774 doMakeExplosion(gX, gY, 4, EXPLNoDamage); |
1774 doMakeExplosion(gX, gY, 4, EXPLNoDamage); |
1775 if ((GameTicks and $7) = 0) and (Random(2) = 0) then |
1775 if ((GameTicks and $7) = 0) and (Random(2) = 0) then |
1776 for i:= 1 to Random(2)+1 do |
1776 for i:= 1 to Random(2)+1 do |