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 |
|
434 if Gear <> nil then |
430 if Gear <> nil then |
435 begin |
431 begin |
436 Gear^.Invulnerable:= false; |
432 Gear^.Invulnerable:= false; |
437 Gear^.Damage:= Gear^.Health; |
433 Gear^.Damage:= Gear^.Health |
438 Gear^.State:= Gear^.State or gstHHGone |
|
439 end |
434 end |
440 end |
|
441 end; |
435 end; |
442 |
436 |
443 procedure chAddHH(var id: shortstring); |
437 procedure chAddHH(var id: shortstring); |
444 var s: shortstring; |
438 var s: shortstring; |
445 Gear: PGear; |
439 Gear: PGear; |