Kocka közmondások
Beszéljünk nyelveket! Kedvencekhez Ser
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 */