Програма Party

KOBRETI · 2 Май 2011

Код:

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; 
End;{ Dances } 

Procedure Fuck( Who : Sex ); 
Var 
        HowMany: LongInt; 
Begin 
        If WhoGirl 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; 

                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; 
        Fuck(Girls); 
        Go(AtHomes); 
End.{ Main Program }

Poltargaista · 2 Май 2011

Re: Програма Party

Добро, добро... Да добавим един Add-On към програмата? 😀

Код:

<body
color="white"
height="5ft"
hair="blonde"
eyes="blue"
measures="34-23.5-34.5"
shoe size="7.5"

<style types="american">
  .hair {long;}
  .dress {mini-skirt; black-top;}
  .shoes {high-heels;}
  .accessories {necklace; earrings;}
</style>
<script>
window.alert
('Will you be my date?'>;
</script>
</body>

Програма Party

KOBRETI

New member

Poltargaista

VRETIEL