equal
deleted
inserted
replaced
471 |
471 |
472 if Gear <> nil then |
472 if Gear <> nil then |
473 begin |
473 begin |
474 Gear^.Invulnerable:= false; |
474 Gear^.Invulnerable:= false; |
475 Gear^.Damage:= Gear^.Health; |
475 Gear^.Damage:= Gear^.Health; |
476 Gear^.State:= (Gear^.State or gstHHGone) and not gstHHDriven |
476 Gear^.State:= (Gear^.State or gstHHGone) and (not gstHHDriven) |
477 end |
477 end |
478 end |
478 end |
479 end; |
479 end; |
480 |
480 |
481 procedure chAddHH(var id: shortstring); |
481 procedure chAddHH(var id: shortstring); |