Procedure FeierabendTimer;

Var Timer : Uhrzeit;

Begin

Timer=22:00;

REPEAT

DoCmd.BoringStuff();

If Me.StillBored = True then

Begin

Goto Location.KafeeAutomat;

Auswahl:=Kafee.MitMilchUndZucker;

End;

If (System.GETTIME()>=18:00) and

(System.GETTIME()<=18:30) then

Begin

Goto Location.PausenRaum;

Repeat

Me.Essen(PausenBrot);

if (Random(10)=3) and not (Me.EssenImMund) then Me.Trinken;

Until Me.Satt;

End;

UNTIL System.GETTIME()=Timer;

Goto Location.Home;

End.

-----

Fortsetzung erwünscht

Nanana, wer wird denn hier Goto-Anweisungen benutzen? Das ist aber nicht der gute Programmirstil (ich bin FiSi und das will was heißen:D)

Viel besser ist diese SQL-Abfrage in der Kantine:

[

Select Schnitzel, Pommes, Mayo, from tbl_Kantine _

where Preis <= Azubigehalt/100 _

and Schnitzelhaltbarkeit >=' Getdate()' _

and Salmonellenbiotop = false _

and Haende_von_Koch = 'sauber' _

and Alkoholgehalt_Aushilfe <= 0,8 _

and Schnitzel not like '%zäh%' _

and Kassentussi = '90/60/90'

Na dann Mahlzeit!

int person::job (bool urlaub, bool bock)


if(!$urlaub && $this->car()) $this->car->route($this->GetHome(), $this->Job->GetDest(),"180km/h");

else return -1;


$this->Location=$Places->Job;


if($this->bock==true && $chef->Location==$this->Location)

{

try{


$this->Gehalt=$this->Gehalt*1,5;

$this->Urlaubstage+=10;


}

catch(&e Unverschaemtheit);

}

else $this->bock=false;


$this->Fruehstueckspause(float dauerInMin=((!bock)*30)+15,KaffeDosierungProzent(random(50)+50));


$this->Do($this->Location->Buero->DoorOpen(false);

$this->BrainMode("off");

$this->Do(iexplorer, "http://www.geile******.de");


_sleep(10000);

$this->SwitchBrainMode();


$this->Mittagspause(float dauerInMin=((!bock)*60)+60);


if($this->GetGleitzeitpensum>-20 && GetGleitzeitpensum<20

return 0;

else $this->Do($this->Location->Telefon(),$this->Geliebte->GetTelNr())


$this->Location=$Places->Job->WC;

$this->Do(pinkeln, NULL);



$this->Location=$Places->Job->Buero;

while($this->GetGleitzeitpensum!=0) _sleep(10);


return 1;

}

[/PHP]