Одесса: 5°С (вода 8°С)
Киев: 1°С
Львов: 3°С

Тема: program PARTY

Ответить в теме
Показано с 1 по 3 из 3
  1. Вверх #1
    Посетитель
    Адрес
    Три шага вперёд, а потом на право
    Сообщений
    197
    Репутация
    11

    По умолчанию program PARTY

    Program Party;
    Uses Vine, Food, Condoms;
    {$I Variable.Pas}
    Procedure Prepare;
    Begin
    Find(House);
    Buy(Bottles);
    Buy(Food);
    Call(Friends);
    Call(Girls);
    End;{ Prepare }
    Procedure Drinks;
    Begin
    Open(Bottles);
    Repeat
    Drink(Next(Gramms100));
    Food:=Eat(Next(Foods));
    Until TwoViewInEyes;
    End;{ Drinks }
    Procedure Dances;
    Begin
    Music:=True;
    Call(OneGirl);
    Go(DancingRoom);
    With Music.Jump Do
    Begin
    If Girl(Drink)>Normal(Drink) Then
    Begin
    Touch(AssOfGirl);
    Touch(BreastOfGirl);
    End
    Else
    Begin
    Go(DrinkingRoom);
    Let`s(Girl):=Drinks(More);
    Return(DancingRoom);
    End;
    End;
    End;{ Dances }
    Procedure Fuck( Who : Sex );
    Var
    HowMany: LongInt;
    Begin
    If WhoGirl Then Write('Are yor sodomite ??!');
    Find(DarkRoom);
    Close(Door_and_windows);
    If Not Find(BedInRoom) Then BedInRoom:=AnyTable;

    HowMany:=0;
    Repeat
    Call(Next(Who));
    Delete(DressOf(Who));
    Kiss(Lips,Breast,OtherPartsOfBody);
    Repeat
    Asm
    PUSH YourPenis
    POP? YourPenis
    End;
    Until YouHaveOrgasm;
    Case HowMany of Inc(HowMany);
    If (HowMany mod 15 = 0) Then Write('You are BIG man !!!');
    Until YourPenisStay;
    End;{ Fuck }
    Begin { Party - Main Program }
    Prepare;
    Drinks;
    If Who(Drink)>Normal(Drink) Then Who:=FaceDown;

    Dances;
    Fuck(Girls);
    Go(AtHomes);
    End.{ Main Program }
    Жить-хорошо, а хорошо жить-лучше!!!


  2. Вверх #2

  3. Вверх #3
    Постоялец форума Аватар для Яр
    Пол
    Мужской
    Адрес
    Odessa.Ua
    Возраст
    30
    Сообщений
    2,952
    Репутация
    148
    что за стиль, где же отступы :)
    ~ Motivation is what gets you started. Habit is what keeps you going.

Ответить в теме

Похожие темы

  1. Cyber-gothic party «Mechanical Brain» 11/02/2005
    от Оборотень в разделе Музыка
    Ответов: 2
    Последнее сообщение: 26.07.2016, 23:25
  2. 22 июля: Synth Gothic Party "Note From a Decadence"
    от Dimiz в разделе Музыка
    Ответов: 16
    Последнее сообщение: 27.07.2015, 15:53
  3. Прошедшее Cyber-gothic party
    от Звонарь в разделе Музыка
    Ответов: 0
    Последнее сообщение: 15.02.2005, 19:48
  4. 06.1104 - METALCORE party в Одессе!
    от Wildcat в разделе Музыка
    Ответов: 1
    Последнее сообщение: 27.10.2004, 18:12
  5. Готик Party
    от YAS в разделе Музыка
    Ответов: 15
    Последнее сообщение: 12.04.2004, 15:58

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения