2180     a:= 6500*aTot div (aTot+uTot)

  2180     a:= 6500*aTot div (aTot+uTot)

  2181     end

  2181     end

  2182 else t:= GetRandom(aTot+uTot);

  2182 else t:= GetRandom(aTot+uTot);

  2183 

  2183 

  2184     

  2184     

  2186     begin

  2186     begin

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

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

  2188     FollowGear^.Health:= 25;

  2188     FollowGear^.Health:= 25;

  2189     FollowGear^.Pos:= posCaseHealth;

  2189     FollowGear^.Pos:= posCaseHealth;

  2190     AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpGameState);

  2190     AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpGameState);