1763 gX := hwRound(Gear^.X); |
1763 gX := hwRound(Gear^.X); |
1764 gY := hwRound(Gear^.Y); |
1764 gY := hwRound(Gear^.Y); |
1765 // Standard fire |
1765 // Standard fire |
1766 if not sticky then |
1766 if not sticky then |
1767 begin |
1767 begin |
1768 Gear^.Radius := 7; |
1768 if ((GameTicks and $1) = 0) then |
1769 AmmoShove(Gear, 4, 100); |
1769 begin |
1770 Gear^.Radius := 1; |
1770 Gear^.Radius := 7; |
1771 doMakeExplosion(gX, gY, 4, 0);//, EXPLNoDamage); |
1771 AmmoShove(Gear, 4, 150); |
|
1772 Gear^.Radius := 1; |
|
1773 end |
|
1774 else if ((GameTicks and $3) = 3) then doMakeExplosion(gX, gY, 6, 0);//, EXPLNoDamage); |
1772 //DrawExplosion(gX, gY, 4); |
1775 //DrawExplosion(gX, gY, 4); |
1773 if ((GameTicks and $7) = 0) and (Random(2) = 0) then |
1776 if ((GameTicks and $7) = 0) and (Random(2) = 0) then |
1774 for i:= 1 to Random(2)+1 do |
1777 for i:= 1 to Random(2)+1 do |
1775 AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke); |
1778 AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke); |
1776 if Gear^.Health > 0 then dec(Gear^.Health); |
1779 if Gear^.Health > 0 then dec(Gear^.Health); |