equal
deleted
inserted
replaced
1693 dec(Gear^.Timer); |
1693 dec(Gear^.Timer); |
1694 inc(Gear^.Damage) |
1694 inc(Gear^.Damage) |
1695 end |
1695 end |
1696 else |
1696 else |
1697 begin |
1697 begin |
|
1698 gX := hwRound(Gear^.X); |
|
1699 gY := hwRound(Gear^.Y); |
1698 // Standard fire |
1700 // Standard fire |
1699 if (Gear^.State and gsttmpFlag) = 0 then |
1701 if (Gear^.State and gsttmpFlag) = 0 then |
1700 begin |
1702 begin |
1701 Gear^.Radius := 9; |
1703 Gear^.Radius := 9; |
1702 AmmoShove(Gear, 4, 100); |
1704 AmmoShove(Gear, 4, 100); |
1703 gX := hwRound(Gear^.X); |
|
1704 gY := hwRound(Gear^.Y); |
|
1705 Gear^.Radius := 1; |
1705 Gear^.Radius := 1; |
1706 doMakeExplosion(gX, gY, 4, EXPLNoDamage); |
1706 doMakeExplosion(gX, gY, 4, EXPLNoDamage); |
1707 if ((GameTicks and $7) = 0) and (Random(2) = 0) then |
1707 if ((GameTicks and $7) = 0) and (Random(2) = 0) then |
1708 for i:= 1 to Random(2)+1 do |
1708 for i:= 1 to Random(2)+1 do |
1709 AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke); |
1709 AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke); |