SG.hu - Fórum - PC HUMOR 1.2

Ugrás a topicra

Pio

#19913 2011.07.05. 18:09

Nade akkor már a többi is:

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")) then
AddToList(UserLoggedIn.FoundItems,Gold);

--------------------------------------------------------------------------------

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;

--------------------------------------------------------------------------------

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;