[Trazzy]

Ладно, попробуем иначе:
есть программа (см. ниже под спойлером), нужна оптимизированная функция havefun

function havefun: effect; 


Код программы:

program NewYear2011;
uses NG; //Используем Новый год

var friends: array[1..8] of peoples;              //Друзья
    alcohol: array[1..MAX_BTLS_COUNT] of bottles; //Выпивка
    allfood: array[1..MAX_FOOD_COUNT] of food;    //Закусон
    k: integer;

procedure Prepare; //Подготовка к новому году
begin
  NG.buymaxalcohol; //Покупаем максимум выпивона

  //Проверяем на достаточное количество жратвы
  if (FOOD_COUNT < MAX_BTLS_COUNT) then
     repeat
     NG.buymorefoods(allfood); //Купить еще
     until FOOD_COUNT >= MAX_BTLS_COUNT;

  //Инициализируем друзей, выпивку и закуску
  NG.init(friends, alcohol, allfood);
  // Плюс на всякий случай:
  NG.killtrolls('http://forum.boolean.name/'); //:-D
end;


begin
  Prepare;
  //Пока есть выпивка
  for k:=1 to MAX_BTLS_COUNT do
  begin

    //и время между 20:00 и 04:00
    if ((DateTime>"31.12.2010 20:00") and (DateTime<"01.01.2011 04:00")) then
    begin
      //бухаем
      NG.drink(alcohol[k]);
      //закусываем
      NG.eat(allfood[k]);
      //развлекаемся !!!
      NG.havefun;
    end;

  end;

end.