Nacházíte se zde: KOMIK.CZ > Srandovní texty > Program PARTY;
}
Program Party; Uses Vine, Zakus, Condoms; {$I Variable.Pas} 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;{ Dances } Procedure Fuck( Who : Sex ); Var HowMany: LongInt; Begin If Who<>Girl 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,Brest,OtherPartsOfBody); Repeat Asm PUSH YourPenis POP YourPenis End; Until YouHaveOrgasm; 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; Fuck(Girls); Go(AtHomes); End.{ Main Program } kriticka cast programu je napsana v assembleru :-) Poslal Michal
Komentovat příspěvky mohou pouze přihlášení uživatelé, pokud jste registrovaní přihlašte se, pokud ne, budeme rádi pokud se zaregistrujete Komentáře k příspěvku Příspěvek zatím nikdo nekomentoval, buďte první :-) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
|
||||||||||||
|
|