1589 

  1589 

  1590 

  1590 

  1591 if t<h then

  1591 if t<h then

  1592     begin

  1592     begin

  1593     FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);

  1593     FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);

  1594     FollowGear^.Health:= cHealthCaseAmount;

  1595     FollowGear^.Health:= cHealthCaseAmount;

  1595     FollowGear^.Pos:= posCaseHealth;

  1596     FollowGear^.Pos:= posCaseHealth;

  1596     // health crate is smaller than the other crates

  1597     // health crate is smaller than the other crates

  1597     FollowGear^.Radius := cCaseHealthRadius;

  1598     FollowGear^.Radius := cCaseHealthRadius;

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

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