Armenian Knowledge Base  

Go Back   Armenian Knowledge Base > General Discussions > Fun
Register

Reply
 
LinkBack Thread Tools
Old 02.07.2002, 04:46   #1
Младенец
 
Join Date: 05 2002
Location: Yerevan
Posts: 25
Downloads: 0
Uploads: 0
Reputation: 0 | 0
Cool Program Programmist_Party;

Program Programmist_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 **** ( 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;{ **** }

Begin { Party - Main Program }
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
Drug(All);
**** (Girls);
Go(AtHomes);
End.{ Main Program }
__________________
-----------------
Veni, Vidi, Vici
---------------
Reply With Quote
Old 02.07.2002, 05:10   #2
Moderator
 
acid's Avatar
 
Join Date: 09 2001
Location: South Korea, Gumi
Posts: 7,699
Downloads: 102
Uploads: 34
Blog Entries: 16
Reputation: 561 | 6
Post

Не компилируется
Reply With Quote
Old 02.07.2002, 15:57   #3
»
 
z0mbie's Avatar
 
Join Date: 01 2002
Posts: 777
Downloads: 1
Uploads: 0
Reputation: 0 | 0
Post

primerno to zhe samoe ma perl-e :

http://acid.land.am/cgi/ubb/ultimate...;f=18;t=000010
Reply With Quote
Old 02.07.2002, 16:15   #4
Школьник
 
Join Date: 04 2002
Location: Vanadzor
Posts: 227
Downloads: 0
Uploads: 0
Reputation: 0 | 0
Post

LOL dzecccccccc
Reply With Quote
Old 02.07.2002, 21:48   #5
Академик
 
greka's Avatar
 
Join Date: 09 2001
Location: inside myself
Posts: 5,369
Downloads: 0
Uploads: 0
Reputation: 18 | 5
Wink

нужно сильно извратиться, чтоб таким образом веселиться.

а попроще класс написать слабо .:-?
Reply With Quote
Old 04.07.2002, 01:21   #6
Младенец
 
Join Date: 05 2002
Location: Yerevan
Posts: 25
Downloads: 0
Uploads: 0
Reputation: 0 | 0
Post

BUdem Starats'ya
Reply With Quote
Old 04.07.2002, 03:34   #7
Школьник
 
Join Date: 05 2002
Location: Yerevan
Posts: 202
Downloads: 0
Uploads: 0
Reputation: 0 | 0
Post

gev2, будешь стараться, говоришь?

amot chi? loooooooooool
Reply With Quote
Sponsored Links
Reply

Thread Tools


На правах рекламы:
реклама

All times are GMT. The time now is 08:15.


Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.