.:: Kocka poénok XD

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 /