Идеи проведения Нового года!

[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. 


[Mhyhr]

Если есть организаторские способности то план таков.
X - Мы приглашаем человек 20(40 ибо половина не придет), при этом человек 5 вам должны быть знакомы, остальные желательно незнакомые, но адекватные .т.е. рекомендованные.
Y - План в том что должна быть квартира или дом где можно собственно зависнуть на день.
Z - Нам нужен рандом, но не хаос , по этой причине мы просим принести гостей по какому-нибудь предмету и заранее подумать о плане проведения празника. Можно даже муз. инструмент. Но минимум алкоголя. Желательно чтобы в помещении был телевизор и прочая развлекаловка, можно даже карты.
М - тут мы часов в 5 утра идем гулять. В плане по пустому городу, на каток, на горку и тд. "Проветриться", после чего часов в 8 все расходятся.

Fun=Y(Z(X)) -> М
У меня года 2 назад прокатывало. Было довольно забавно + 100500 новых знакомств. X - самое сложное.

[Reks888]

здесь как раз предлагается выложить примеры функции havefun

[Trazzy]

Сообщение от Mhyhr

..X - Мы приглашаем человек 20(40 ибо половина не придет)..

...
var friends: array[1..8] of peoples;              //Друзья 
... 


[Ganociy]

Хочется необыкновенного? Хочется провести новый год по-новому? Оденьте фраки (мужчины), бальные платья (девушки). Выучите книжку "Этикет", небольшой запас французских слов. Живой оркестр: Штраус, Мендельсон. И сильвупле Joyeux Nouvel An!

[Ganociy]

))))))))))))))

[Trazzy]

О, хоть один адекватный ответ))
..и еще стоит бальные танцы подучить)

[Ganociy]

Да))). Пользуясь темой, а когда появятся темы о встречах булки?

[Reks888]

Тысячи их!
Или ты подраздел имел ввиду?
Или встречи булки для встречи нового года?

[Ganociy]

встречи булки для встречи нового года

[Reks888]

А, ну так иди и создай.
В общем и целом булчане знают кто ещё из булчан живут в одном городе с ними, и сговариваются в тайных ICQ/Skype чатах/конференциях

[Mr_F_]

в нг я погамаю в майнкрафт. а в не нг я буду сидеть и прогать. круто я придумал.

[Reks888]

Кстати, наш майнкрафт сервер ещё жив?

[SBJoker]

ну надо поглядеть постоянные обновления не добавляют стабильности

[baton4ik]

Иногда делаю потуги подключится, но ещё ни разу не застал сервер в онлайне. К слову, уже вышла бета, там многое пофиксили!