A s**x kedvéért megnősülni olyan, mint venni egy Boeing 747-est az ingyen mogyoró miatt.
1, while (state(Korso) != BROKEN) go (Korso, &Kut)
/* Addig jar a korso a kutra, amig el nem torik */
2, set_quality(Aratas, get_quality(Vetes))
/* Ki mint vet, ugy arat */
3, if (origin(Horse) == SOUVENIR) Allow_Look_At.Teeth = 0
/* Ajandek lonak ne nezd a fogat */
4, if (bride_ID == most_beautiful(GetAllGirls (THIS_VILLAGE))) exit(-1)
/* Soha ne a falu legszebb lanyat vedd felesegul! */
5, if (TimeToInt(Wakeup.Time) < TimeToInt(StrToTime ("06:00:00")))
AddToList(UserLoggedIn.FoundItems, Gold)
/* Ki koran kel, aranyat lel */
6, Function May_I_Marry_Her(Girl: TGirl): boolean begin With Girl.Mother
do May_I_Marry_Her := ((Body.Quality="attractive") and (face.Quality =
"beautiful")) end
/* Nezd meg az anyjat, vedd el a lanyat */
7, type TEmployed = class(THuman) Job: String[30] procedure
OnGraveDigging (Sender: Tobject) private { Private declarations } public
{ Public declarations } end Procedure TEmployed.OnGraveDigging (Sender:
Tobject) begin Sender.Job := "GraveDigger" end
/* Aki masnak vermet as, az a siraso */
8, Const Num_Of_Dog_Buying_In_Buda = 1
/* Egyszer volt budan kutyavasar */
9, uses animals var lud, diszno: TAnimal Procedure Attack(A, B: TAnimal
NumA, NumB: Word) begin If NumA * A.Strength > NumB * B.Strength then
write (A.Caption) else if NumA * A.Strength < NumB * B.Strength then
write(B.Caption) else write(`Nobody`) writeln(` won`) end begin
Lud.Caption:=`Lud` Lud.Strength:=10 Diszno.Caption:=`Diszno`
Diszno.Strength:=540 Attack(Lud, Diszno, 1, 1) Attack(Lud, Diszno, 20,
1) Attack(Lud, Diszno, 60, 1) end.
F9 (Run) Result: Diszno won. Diszno won. Lud won.
/* Sok lud disznot gyoz */
10, capturetime(human.type(LIAR)) < capturetime(dog.type(CRIPPLE))
/* 10 A hazug embert hamarabb utolérik, mint a sánta kutyát */
11,sideStep (cat.getWalkType(new Kása(HOT)));
/* 11 Kerülgeti, mint macska a forró kását */
12, Stack.push (someOneOther.getStack().madeBy());
/* 12 Aki másnak vermet ás... */
13, SUN.CanView := true; HE.CanView := false;
/* 13 A napra lehet nézni de rá nem */
14, setAcceptGod(getGiveGod());
/* 14 Amilyen az adjonisten, olyan a fogadjisten */
15, Bird.Type := Bird.feather; Human.Type := Human.friend;
/* 15 Madarat tolláról, embert barátjáról */
16, pig.setType(HUNGRY); pig.setDream(MAKK);
/* 16 Éhes disznó makkal álmodik */
17, Winnig.Priority := 0; Attendance.Priority := CONST_HIGH;
/* 17 A részvétel a fontos... */
18, const bool compareGreenness (Grass* grass) { if (grass.getOwner()==NEIGHBOUR) return true; }
/* 18 A szomszéd kertje mindig zöldebb */
19, PassedDistance := PassedDistance + (1/WalkSpeed);
/* 19 Lassan járj... */
20, If Human.Type = CONST_SMART then Release; If Human.Type = CONST_DONKEY then Suffer;
/* 20 Okos enged, szamár szenved */
Megtekintve: 9671 alkalommal
Hozzászólások: 5 komment
Értékelés: 3.5 az ötből 52 vélemény alapján
Elkedvencelte: Jenna27
5. corollagirl (4 éve)
Ez király! :D
4. Cz,, (4 éve)
ez rohadt jo :D
sok lúd disznót győz 
3. Melvil (4 éve)
ez a legjobb: Okos enged, szamár szenved 
2. csirke (4 éve)
hey! ez meg miért ide ment??? na mindegy, ez az autók vicces hátsó szövegeihez akar tartozni. bocsesz
1. csirke (4 éve)
én egyszer olyat láttam, h 'Képzeld! Főzni se tudok!'
Copyright © 2000 - 2012 KecskeFészek.hu - Poénból készül. Hajszálpontosan 17678 db poén van az oldalon és ez nem vicc. Minőségét megőrzi: korlátlan ideig.