Šī lapa tev spēj iespraust tikai 3 veida cepumus:
1. To, ka tu nospiedi pogu "Sapratu";
2. Tavu info, lai katru reizi komentārā nav pa jaunam jāraksta (palama,
e-pasts, web). Būs pieejams tikai tev;
3. Sesijas id, ja tu esi lapas administrators un spēsi ielogoties.
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 }*
< pre > tagos tb, tev jokaini lielaaks/mazāks zīmes nezkāpēc izgriež!
Iesaku kodu likt tagos, tad atstarpes saglabājas :)
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 :)
taa proga reaali straadaa? :))
Nevis Vine, Zakjus, Condoms, bet gan Vine, Zakus, Condoms, jo taa ir zacene domaata :D
P.S. MAn shoto Gints atsuutiija :)
* Visi lauki (izņemot tavu lapu) aizpildāmi obligāti!
E-pasts publiski netiks parādīts.
Zinot vairākumu, komentāros tagi netiek atrādīti kā tagi. Linki
automātiski pārveidosies par spiežamiem (cerams).
Bloga īpašnieks patur tiesības ļaunus komentārus dzēst vai pārveidot
cilvēkiem patīkamākā formā, bet tajā pašā laikā neatbild par komentāru
saturu.