Egy barátomtól kaptam eme szösszeneteket.
Közmondások leprogramozva:
while (state(Korso) != _BROKEN)
go( Korso, &Kut);
/* Addig jar a korso a kutra... */
set_quality(Aratas, get_quality(Vetes));
/* Ki mint vet, ugy arat */
if(origin(Horse) == _SOUVENIR)
Allow_Look_At.Teeth=0;
/* Ajandek lonak... */
if (bride_ID ==
most_beautiful(GetAllGirls(_THIS_VILLAGE)))
exit(-1);
/* Soha ne a falu legszebb lanyat vedd
felesegul! */
If TimeToInt(Wakeup.Time) <
TimeToInt(StrToTime(''06:00:00'')) then
AddToList(UserLoggedIn.FoundItems,Gold);
{Ki koran kel, aranyat lel}
Function May_I_Marry_Her(Girl:TGirl):boolean;
begin
With Girl.Mother do
May_I_Marry_Her :=
((Body.Qality=''attractive'') and
(face.Quality=''beautiful''));
end;
{Nezd meg az anyjat, vedd el a lanyat}