747 

   747 

   748     case crate of

   748     case crate of

   749         HealthCrate:

   749         HealthCrate:

   750             begin

   750             begin

   751             FollowGear^.Pos := posCaseHealth;

   751             FollowGear^.Pos := posCaseHealth;

   752             FollowGear^.Health := content;

   754             FollowGear^.Health := content;

   753             AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);

   755             AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);

   754             end;

   756             end;

   755         AmmoCrate:

   757         AmmoCrate:

   756             begin

   758             begin

   785 

   787 

   786     case crate of

   788     case crate of

   787         HealthCrate:

   789         HealthCrate:

   788             begin

   790             begin

   789             FollowGear^.Pos := FollowGear^.Pos + posCaseHealth;

   791             FollowGear^.Pos := FollowGear^.Pos + posCaseHealth;

   790             AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);

   794             AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);

   791             end;

   795             end;

   792         AmmoCrate:

   796         AmmoCrate:

   793             begin

   797             begin

   794             FollowGear^.Pos := FollowGear^.Pos + posCaseAmmo;

   798             FollowGear^.Pos := FollowGear^.Pos + posCaseAmmo;