1149     case crate of

  1149     case crate of

  1150         HealthCrate:

  1150         HealthCrate:

  1151             begin

  1151             begin

  1152             gear^.Pos := gear^.Pos + posCaseHealth;

  1152             gear^.Pos := gear^.Pos + posCaseHealth;

  1153             gear^.RenderHealth:= true;

  1153             gear^.RenderHealth:= true;

  1154             // health crate is smaller than the other crates

  1155             // health crate is smaller than the other crates

  1155             gear^.Radius := cCaseHealthRadius;

  1156             gear^.Radius := cCaseHealthRadius;

  1156             if(FinishedTurnsTotal > -1) then

  1157             if(FinishedTurnsTotal > -1) then

  1157                 AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo);

  1158                 AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo);

  1158             end;

  1159             end;