equal
deleted
inserted
replaced
425 var i: LongInt; |
425 var i: LongInt; |
426 begin |
426 begin |
427 with Team do |
427 with Team do |
428 for i:= 0 to cMaxHHIndex do |
428 for i:= 0 to cMaxHHIndex do |
429 with Hedgehogs[i] do |
429 with Hedgehogs[i] do |
|
430 begin |
|
431 if Hedgehogs[i].GearHidden <> nil then |
|
432 RestoreHog(@Hedgehogs[i]); |
|
433 |
430 if Gear <> nil then |
434 if Gear <> nil then |
431 begin |
435 begin |
432 Gear^.Invulnerable:= false; |
436 Gear^.Invulnerable:= false; |
433 Gear^.Damage:= Gear^.Health |
437 Gear^.Damage:= Gear^.Health; |
|
438 Gear^.State:= Gear^.State or gstHHGone |
434 end |
439 end |
|
440 end |
435 end; |
441 end; |
436 |
442 |
437 procedure chAddHH(var id: shortstring); |
443 procedure chAddHH(var id: shortstring); |
438 var s: shortstring; |
444 var s: shortstring; |
439 Gear: PGear; |
445 Gear: PGear; |