hedgewars/uGearsHandlersMess.pas
changeset 13758 b1177e9c9ee9
parent 13737 bbea77a8dff9
child 13774 506cca5a48cb
equal deleted inserted replaced
13757:f0cb47f0bfaf 13758:b1177e9c9ee9
  5906                 graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;
  5906                 graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;
  5907                 graves.ar^[i]^.Active:= true;
  5907                 graves.ar^[i]^.Active:= true;
  5908                 RenderHealth(resgear^.Hedgehog^);
  5908                 RenderHealth(resgear^.Hedgehog^);
  5909                 RecountTeamHealth(resgear^.Hedgehog^.Team);
  5909                 RecountTeamHealth(resgear^.Hedgehog^.Team);
  5910                 resgear^.Hedgehog^.Effects[heResurrected]:= 1;
  5910                 resgear^.Hedgehog^.Effects[heResurrected]:= 1;
       
  5911                 { Reviving a hog implies its clan is now alive, too. }
       
  5912                 resgear^.Hedgehog^.Team^.Clan^.DeathLogged:= false;
  5911                 s:= ansistring(resgear^.Hedgehog^.Name);
  5913                 s:= ansistring(resgear^.Hedgehog^.Name);
  5912                 AddCaption(FormatA(GetEventString(eidResurrected), s), capcolDefault, capgrpMessage);
  5914                 AddCaption(FormatA(GetEventString(eidResurrected), s), capcolDefault, capgrpMessage);
  5913                 // only make hat-less hedgehogs look like zombies, preserve existing hats
  5915                 // only make hat-less hedgehogs look like zombies, preserve existing hats
  5914 
  5916 
  5915                 if resgear^.Hedgehog^.Hat = 'NoHat' then
  5917                 if resgear^.Hedgehog^.Hat = 'NoHat' then