Форум: "Потрепаться";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизТака программа. Найти похожие ветки
← →
Карелин Артем (2004-01-15 11:29) [0]Program Party;
Uses Vine, Zakus, Condoms;
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Call(Friends);
Call(Girls);
End; { Prepare }
Procedure Drinks;
Begin
Open(Bottles);
Repeat
Drink(Next(Gramms100));
Zakus:=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(BrestOfGirl);
End;
Else Begin
Go(DrinkingRoom);
Let"s(Girl):=Drinks(More);
Return(DancingRoom);
End;
End;
End; { Dancing }
Procedure Fuck(Who:Sex);
Var HowMany:LongInt;
Begin
If Who<>Girl Then Write("Are your 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,Brest,OtherPartOfBody);
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 YourPanisStay;
End; { Fuck }
Begin { Party - Main Programm }
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
Fuck(Girls);
Go(AtHomes);
End; { Main Programm }
← →
BOA_KAA (2004-01-15 11:31) [1]Не компилируется. На Dances выдает AV :(
← →
Dimka Maslov (2004-01-15 11:34) [2]Ошибка. После последнего enda должна быть точка. А прикол старый.
← →
pasha_golub (2004-01-15 11:45) [3]Ошибка в строке
Case HowMany of Inc(HowMany);
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.029 c