equal
deleted
inserted
replaced
1610 begin |
1610 begin |
1611 Gear^.Radius:= 9; |
1611 Gear^.Radius:= 9; |
1612 AmmoShove(Gear, 4, 100); |
1612 AmmoShove(Gear, 4, 100); |
1613 Gear^.Radius:= 1; |
1613 Gear^.Radius:= 1; |
1614 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 4, EXPLNoDamage); |
1614 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 4, EXPLNoDamage); |
1615 if Random(100) > 90 then |
1615 if ((GameTicks and $7) = 0) and (Random(2) = 0) then |
1616 for i:= 0 to Random(3) do |
1616 for i:= 1 to Random(2)+1 do |
1617 AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), hwRound(Gear^.Y) - 2, vgtSmoke); |
1617 AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), hwRound(Gear^.Y) - 2, vgtSmoke); |
1618 if Gear^.Health > 0 then dec(Gear^.Health); |
1618 if Gear^.Health > 0 then dec(Gear^.Health); |
1619 Gear^.Timer:= 450 - Gear^.Tag * 8 |
1619 Gear^.Timer:= 450 - Gear^.Tag * 8 |
1620 end |
1620 end |
1621 else begin |
1621 else begin |
1632 end |
1632 end |
1633 end |
1633 end |
1634 end; |
1634 end; |
1635 if Gear^.Health = 0 then begin |
1635 if Gear^.Health = 0 then begin |
1636 if (Gear^.State and gsttmpFlag) = 0 then begin |
1636 if (Gear^.State and gsttmpFlag) = 0 then begin |
1637 if Random(100) > 80 then begin |
1637 if ((GameTicks and $3) = 0) and (Random(1) = 0) then begin |
1638 for i:= 0 to Random(3) do begin |
1638 for i:= 1 to Random(2)+1 do begin |
1639 AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), hwRound(Gear^.Y) - 2, vgtSmoke); |
1639 AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), hwRound(Gear^.Y) - 2, vgtSmoke); |
1640 end; |
1640 end; |
1641 end; |
1641 end; |
1642 end else begin |
1642 end else begin |
1643 for i:= 0 to Random(3) do begin |
1643 for i:= 0 to Random(3) do begin |