equal
deleted
inserted
replaced
4653 dec(Gear^.Health, Gear^.Damage); |
4653 dec(Gear^.Health, Gear^.Damage); |
4654 Gear^.Damage := 0; |
4654 Gear^.Damage := 0; |
4655 |
4655 |
4656 // add some fire to the tunnel |
4656 // add some fire to the tunnel |
4657 if getRandom(6) = 0 then |
4657 if getRandom(6) = 0 then |
4658 AddGear(x - Gear^.Radius + LongInt(getRandom(2 * Gear^.Radius)), y - |
4658 begin |
4659 getRandom(Gear^.Radius + 1), gtFlame, gsttmpFlag, _0, _0, 0); |
4659 tmp:= GetRandom(2 * Gear^.Radius); |
|
4660 AddGear(x - Gear^.Radius + tmp, y - GetRandom(Gear^.Radius + 1), gtFlame, gsttmpFlag, _0, _0, 0) |
|
4661 end |
4660 end; |
4662 end; |
4661 |
4663 |
4662 if getRandom(100) = 0 then |
4664 if random(100) = 0 then |
4663 AddVisualGear(x, y, vgtSmokeTrace); |
4665 AddVisualGear(x, y, vgtSmokeTrace); |
4664 end |
4666 end |
4665 else dec(Gear^.Health, 5); // if underwater get additional damage |
4667 else dec(Gear^.Health, 5); // if underwater get additional damage |
4666 end; |
4668 end; |
4667 |
4669 |