while (state(Korso) != BROKEN) go (Korso, &Kut)
set_quality(Aratas, get_quality(Vetes))
if (origin(Horse) == SOUVENIR)
Allow_Look_At.Teeth = 0
if (bride_ID == most_beautiful(GetAllGirls (THIS_VILLAGE)))
exit(-1)
if (TimeToInt(Wakeup.Time) < TimeToInt(StrToTime ("06:00:00"-)
AddToList(UserLoggedIn.FoundItems, Gold)
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
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
Const Num_Of_Dog_Buying_In_Buda = 1
Aki másnak vermet ás, az a Stack Pointer.