equal
deleted
inserted
replaced
1246 end |
1246 end |
1247 else |
1247 else |
1248 Gear^.Tag := 0; |
1248 Gear^.Tag := 0; |
1249 |
1249 |
1250 if Gear^.Damage > 5 then |
1250 if Gear^.Damage > 5 then |
|
1251 begin |
1251 if Gear^.AmmoType = amDEagle then |
1252 if Gear^.AmmoType = amDEagle then |
1252 AmmoShove(Gear, 7, 20) |
1253 AmmoShove(Gear, 7, 20) |
1253 else |
1254 else |
1254 AmmoShove(Gear, Gear^.Timer, 20); |
1255 AmmoShove(Gear, Gear^.Timer, 20); |
|
1256 end; |
1255 CheckGearDrowning(Gear); |
1257 CheckGearDrowning(Gear); |
1256 dec(i) |
1258 dec(i) |
1257 until (i = 0) or (Gear^.Damage > Gear^.Health) or ((Gear^.State and gstDrowning) <> 0); |
1259 until (i = 0) or (Gear^.Damage > Gear^.Health) or ((Gear^.State and gstDrowning) <> 0); |
1258 |
1260 |
1259 if Gear^.Damage > 0 then |
1261 if Gear^.Damage > 0 then |