equal
deleted
inserted
replaced
1023 if Gear^.AmmoType = amDEagle then |
1023 if Gear^.AmmoType = amDEagle then |
1024 AmmoShove(Gear, 7, 20) |
1024 AmmoShove(Gear, 7, 20) |
1025 else |
1025 else |
1026 AmmoShove(Gear, Gear^.Timer, 20); |
1026 AmmoShove(Gear, Gear^.Timer, 20); |
1027 CheckGearDrowning(Gear); |
1027 CheckGearDrowning(Gear); |
1028 dec(i) until (i = 0) or (Gear^.Damage > Gear^.Health) or ((Gear^.State and gstDrowning) <> 0); |
1028 dec(i) |
|
1029 until (i = 0) or (Gear^.Damage > Gear^.Health) or ((Gear^.State and gstDrowning) <> 0); |
|
1030 |
1029 if Gear^.Damage > 0 then |
1031 if Gear^.Damage > 0 then |
1030 begin |
1032 begin |
1031 DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1); |
1033 DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1); |
1032 dec(Gear^.Health, Gear^.Damage); |
1034 dec(Gear^.Health, Gear^.Damage); |
1033 Gear^.Damage := 0 |
1035 Gear^.Damage := 0 |