home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Games / Oldies / Haktar / AltesHaus / Papierstapel < prev    next >
Encoding:
Text File  |  1999-12-03  |  1.2 KB  |  51 lines
  1. do Papierstapel durchblättern
  2.  [
  3.   print Lauter leere Seiten.
  4.  ]
  5. do Einen Zettel aus dem Stapel nehmen
  6.  [
  7.   ifvar Zettel in Stapel,45,46
  8.    [
  9.     print Du nimmst den obersten Zettel vom Stapel.
  10.    |
  11.     ifvar Zettel in Stapel,38,40
  12.      [
  13.       print Macht das immernoch Spaß ?
  14.      |
  15.       ifvar Zettel in Stapel,30,32
  16.        [
  17.         print Ausdauer ist eine wirklich tolle Charaktereigenschaft...
  18.        |
  19.         ifvar Zettel in Stapel,20,23
  20.          [
  21.           print Und wir machen weiter...
  22.          |
  23.           ifvar Zettel in Stapel,10,14
  24.            [
  25.             print Langsam gehen dir die Zettel aus.
  26.            |
  27.             ifvar Zettel in Stapel,2,2
  28.              [
  29.               print Du trennst die letzten beiden Zettel, aus denen der Stapel jetzt
  30.               print noch bestand.
  31.               create Zettel,ACTROOM
  32.               addvar Zettel in Stapel,-1
  33.               ifitemin Papierstapel,INV
  34.                [
  35.                 gone Papierstapel,INV
  36.                |
  37.                 gone Papierstapel,ACTROOM
  38.                ]
  39.              |
  40.               print Und wieder fliegt ein Blatt zu Boden...
  41.              ]
  42.            ]
  43.          ]
  44.        ]
  45.      ]
  46.    ]
  47.   create Zettel,ACTROOM
  48.   addvar Zettel in Stapel,-1 
  49.  ]
  50.   
  51.