| changeset 5955 | 07f6fa51ea58 |
| parent 5875 | b3e23cb69ab4 |
| child 5965 | e529b28d10e9 |
| 5952:ba168fa3451a | 5955:07f6fa51ea58 |
|---|---|
433 |
433 |
434 if Gear <> nil then |
434 if Gear <> nil then |
435 begin |
435 begin |
436 Gear^.Invulnerable:= false; |
436 Gear^.Invulnerable:= false; |
437 Gear^.Damage:= Gear^.Health; |
437 Gear^.Damage:= Gear^.Health; |
438 Gear^.State:= Gear^.State or gstHHGone |
438 Gear^.State:= (Gear^.State or gstHHGone) and not gstHHDriven |
439 end |
439 end |
440 end |
440 end |
441 end; |
441 end; |
442 |
442 |
443 procedure chAddHH(var id: shortstring); |
443 procedure chAddHH(var id: shortstring); |