Ko tik neprogrammē...

Jānis Rubļevskis (koko) // 2004. gada 17. novembrī, 14:57 // #Spams // 5 komentāri 

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 }*

Komentāri

Nevis Vine, Zakjus, Condoms, bet gan Vine, Zakus, Condoms, jo taa ir zacene domaata :D

P.S. MAn shoto Gints atsuutiija :)

taa proga reaali straadaa? :))

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 :)

Iesaku kodu likt tagos, tad atstarpes saglabājas :)

< pre > tagos tb, tev jokaini lielaaks/mazāks zīmes nezkāpēc izgriež!

Paud savu subjektīvo viedokli:

Visi lauki (izņemot interneta vietni) 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.