Program Party; Uses Vine, Zakus, Condoms; {$I Variable.Pas} { Файл с описаниями переменных,типов и других ф-ций и } { процедур, а также модулей Vine, Zakus и Condoms } { - в одном из следующих выпусков CAD/CAM NEWS. } 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 } Г Л О С С А Р И Й ( Б А З А Р И К ) Prepare - приготовления Buy - купить Drug - наркотик TwoViewInEyes - двоение в глазах Touch - касание, прикосновение Ass - задница Brest - сиськи More - больше Dark - темный OtherPartsOfBody - другие части тела FaceDown - мордой вниз (об стол)