Path: ssilk
From: ssilk ät ssilkyway.franken.de (Alexander Aulbach)
Newsgroups: ufra.allgemein,ufra.users
Subject: Re: Ich hab' Hunger.
Message-ID: <keyay*mo4 ät ssilkyway.franken.de>
Date: Fri, 01 Mar 1996 02:36:04 CET
Reply-To: ssilk ät ssilkyway.franken.de
References: <4gcvu2$8oo ät robot.mayn.de> <Dn4ELJ.7A ät rhohost.franken.de> <63Ym6kkn5kB ät doboz.mayn.de>
 <4gv4b8$g3 ät arnold.mayn.de>
Organization: KNF/Wuerzburg/Ufranken
X-Newsreader: Arn V 1.04
Lines: 137

In article <4gv4b8$g3 ät arnold.mayn.de>, Markus 'Burli' Burrer writes:

} Peter Heinrich (heinrich ät doboz.mayn.de) wrote:
}
} : Danke an Rob fuer die Eroeffnung dieses Threads. Echt goil... :)
}
} Der kann sowieso schreiben was er will. Das gibt sowiso einen Thread mit
} mindesten 20 followups. <zurobwink> ;)

Er will Follow-Ups?

Gut, also ich esse ja auch für mein Leben gern (leider). Daher habe ich auch
ein paar "Spezialgerichte" entwickelt, nach dem Motto, gut und einfach.

Hier also

----------------------------------------------------------------------------
# Spezialgericht No.1:
# 0.42 ALPHA!!!!  HACKER-VERSION!!! Please use very carefully!!!
# bekannte Fehler:
# kaufe()-Procedur arbeitet nicht nach Marktwirtschaftlichen Kriterien
# (c) 1996 by Alexander Aulbach


Paar=2

WHILE (TRUE) {

   h=0
   DO p (List_of_Persons) {
      h += hunger(p)
   }
   h ++

   IF NOT gutgeschmeckt(Weißwürste) {
      Metzgergeschäft = Metzgers[RANDOM(1,maxMetzger)]
   }
   goto(Metzgergeschäft)
   DO h TIMES  {                  # Ich weiß auch nicht genau
      kaufe(Weißwürste,Paar)      # warum man jedes Paar Weißwürste
   }                              # einzeln kaufen muß. Scheibar ist
                                  # noch ein Bug in der kaufe()-Routine :-((

   IF NOT gutgeschmeckt(Mohnweck) || NOT gutgeschmeckt(Sesamweck)  {
      Bäcker = Bäckers[RANDOM(1,maxBäcker)]
   }
   goto(Bäcker)
   DO h TIMES  {                  # dito
      kaufe(Mohnweck,1)
      kaufe(Sesamweck,1)
   }

   IF NOT gutgeschmeckt(Weißbier)  {
      Weißbier = Weißbiers[RANDOM(1,maxWeißbier)]
   }
   goto(Getränkehandel{Weißbier})
   b=h
   IF (b+2)/12 >=1 {              # Lohnt sich ein Kasten?
      b = int((b+2)/12)
      DO b TIMES  {
         kaufe(Kasten{Weißbier},1)
      }
   }
   b = b + 2                      # Mehrverbrauch einkalkulieren!
   DO b TIMES  {
      kaufe(Flasche{Weißbier},1)
   }

   goto(KITCHEN)
   kaufe(Topf,1)   # Mißbrauch der kaufe()-Procedur, aber
                   # es ist ein netter Trick, da die Procedur versucht
                   # zum geringstmöglichen Preis zu kaufen, kauft sie den
                   # Topf für 0 Mark.
   goto(WATER)
   kaufe(Wasser,1)  # gleicher Trick
   goto(Topf*)
   kaufe(Wasser,-1) # das Wasser wird an den Topf verkauft
   kaufe(Weißwürste,-h)  # Daheim funktioniert die Routine komischerweise
                         # mit mehreren Sachen
   goto(STOVE)
   kaufe(Topf,-1)

   start_task(__cook)
   wait_signal(hot{Topf[1]})
   stop_task(__cook)

   kaufe(Weißwürste,h)

   goto(KITCHEN)
   kaufe(Teller,p)
   kaufe(Weißbiergläser,p)
   kaufe(Brotschale,1)

   goto(DESK)
   kaufe(Teller,-p)
   kaufe(Weißbiergläser,-p)
   kaufe(Brotschale,-1)

   FOR i (List_of_Persons) {
     goto(Weißbiergläser[i])
     kaufe(Flasche{Weißbier},-1)
     goto(Teller[i])
     kaufe(Weißwürste,-Paar)
   }

   goto(Brotschale[1])
   kaufe(Mohnweck,-h)
   kaufe(Sesamweck,-h)

   goto(STOVE)
   kaufe(Weißwürste,-20000000000)  # Die Fehlermeldung wird ignoriert
                                   # kaufe() kann nur so viel kaufen
                                   # wie noch tatsächlich vorhanden ist
   # ACHTUNG: Bei mehr als 10000000000 Personen funktioniert das nicht
   # mehr!!! (Unkritisch, weil so viele Personen gibt es nicht)

   goto(KITCHEN)
   kaufe(Kasten{Weißbier},-10000000000)
   kaufe(Flasche{Weißbier},-10000000000)

   goto(freier_platz(CHAIRS))

   start_task(__eat)
   wait_signal(unhungry)
   kill_task(__eat)
   wait_signal(hungry)
}


-- 
   SSilk  -  Alexander Aulbach  -  Herbipolis - Frankonia Minoris - 0931/58681
   For PGP-key write any e-mail to pgp ät ssilkyway.franken.de !

   Ein Unix-Fan ist in etwa so deplaziert wie ein Klopapier-Fan. Man benutzt
   es, oder man benutzt es nicht; das ist alles. Und natürlich rümpft man seine
   Nase über die, die glauben darauf verzichten zu können...
                                                (muftix ät asbach.nbg.sub.org)