Nesen Gastonz iemeta čatā linku uz vienu programmiņu... Nezi kas ir kodējis, bet proga visai advancēta...
Sākumā likās, ka ir tīrais paskālīties ar pāris procedūrām un funkcijām, kuras cilvēks laikam atsevišķi nokodējis bibliotēkās Vine, Zakjus, Condoms
, jo standartā tadas nepazīstu...
Pētot kodu tālāk, sapratu, ka programmētājs ir visai advancēts, jo tiek pielietots arī asamblers, kur stekā tiek gan likts iekšā, gan ņemts arī laukā...
Pašu kodu pētiet tālāk...
*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 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 }*
Domāju, ja dabūtu tās biblenes, kas ir sākumā definētas aiz uses.. Kā arī uztaisītu kādu Local mainīgo YourPenis
vai vismaz paskāla mainīgo, tad varbūt pat sanāktu nokompilēt :)
< pre > tagos tb, tev jokaini lielaaks/mazāks zīmes nezkāpēc izgriež!
Nevis Vine, Zakjus, Condoms, bet gan Vine, Zakus, Condoms, jo taa ir zacene domaata :D
P.S. MAn shoto Gints atsuutiija :)