Party.pas (только для программистов)
Program Party;
Uses Vine, Zakus, Condoms;
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
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;{ Dances }
Procedure Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,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;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }
Uses Vine, Zakus, Condoms;
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
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;{ Dances }
Procedure Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,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;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }
Первоначальное сообщение от План
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Руль!!:D :D :D
Первоначальное сообщение от План
Program Party;
Uses Vine, Zakus, Condoms;
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
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;{ Dances }
Procedure Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,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;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }
Program Party;
Uses Vine, Zakus, Condoms;
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
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;{ Dances }
Procedure Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,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;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }
[COLOR=green]Ну и как, работает? Проверял?[/COLOR] :D
Ну ты еврей :D это не прога =)
Сам еврей. Этот кусок кода спизжен из исходников Вселенной ... 8Г
Первоначальное сообщение от План
Program Party;
Uses Vine, Zakus, Condoms;
...
End.{ Main Program }
Program Party;
Uses Vine, Zakus, Condoms;
...
End.{ Main Program }
Сам писал??? :D :lol:
протестируем её на этих выходных?:D
конечно протестируем.....:D :D :D :beer: :drug: :fingal: :gigi: :ill:
Первоначальное сообщение от 6uBuC
конечно протестируем.....:D :D :D :beer: :drug: :fingal: :gigi: :ill:
конечно протестируем.....:D :D :D :beer: :drug: :fingal: :gigi: :ill:
где тестировать будем? у ореха дома?:D
:beer: <---у ореха......главное чтобы не---->:fingal: :gigi:
Первоначальное сообщение от 6uBuC
:beer: <---у ореха......главное чтобы не---->:fingal: :gigi:
:beer: <---у ореха......главное чтобы не---->:fingal: :gigi:
а кто это спонсировать будет?:D
ШКВОРКА:D :D :D :D :D :D :D
Чё типа програмист невьебенный? да?
он великий АУМ !
Ты наверное хотел сказать Даун??:D :D :D
yes
Эта тема закрыта, так как последнее сообшение было оставлено больше года назад.