Погода: 8 °C
18.044...13пасмурно, без осадков
19.049...11облачно, без осадков
  • 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 [censored]( 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;{ [censored] }
    Begin { Party - Main Program }
    Prepare;
    Drinks;
    If Who(Drink)>Normal(Drink) Then Who:=FaceDown;

    Dances;
    [censored](Girls);
    Go(AtHomes);
    End.{ Main Program }

    :ха-ха!: :ха-ха!:
    взято отсюда

    Исправлено пользователем MIST (16.06.04 17:23)

  • Лучше бы ты просто ссылку кинул, или бы отступов сделал, ибо известно, что "код программы читается лучше, если соблюдать глубину в условиях и циклах".

    all people should try new diet pepsi

  • а не переносятся отступы ....

  • Как это так?:миг:Ввел ровно 13 символов и все заработало:бебе:Тег "code" для того и введен.

    **ПАЗИТИФФ**

  • я делал копировать-вставить с той странички ... предварительный просмотр показывает без отступов ... почему ?

  • Хех... Основы ХТМЛ - если нет специального тега преформатирования, то из любого количества пробелов сделается один:улыб:

    **ПАЗИТИФФ**

  • придется подружиться с ХТМЛем :улыб:

  • Сначала программку поправь - не откомпилится в таком виде :ухмылка:

    KIA cee'd 1,6 AT EX Compass Blue 2009

Записей на странице:

Перейти в форум

Модератор: