sztem no comment :D aki tud picit programozni, annak még ismerősebbek lesznek ezek a "szééééép" kulcsszavak...közvetve, [nehezemre esik kimondani] de nekem is :P
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 /