home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Games / Oldies / Haktar / WahlAdventure / Kleidung < prev    next >
Encoding:
Text File  |  1999-12-03  |  885 b   |  41 lines
  1. rem Kleidung
  2.  
  3. ifflag Kleidung ausgezogen
  4. [
  5. handle 4
  6. |]
  7.  
  8. ifflag Kleidung ausgezogen
  9.  [
  10.   ifflag Pyjama ausgezogen
  11. [  
  12.   do anziehen
  13.    [
  14.       rem ... dann kann sich auch wieder anziehen.
  15.     print Schade...
  16.     delflag Kleidung ausgezogen
  17.       rem Haktar merkt sich, daß das Flag 'Kleidung ausgezogen' gelöscht wurde.
  18.     addtime 1
  19.       rem Das kostet natürlich etwas Zeit.
  20.     ifitemin Kleidung,INV
  21.      [|
  22.       move Kleidung,ACTROOM,INV
  23.       
  24.      ]
  25.    ]
  26. |] 
  27. |
  28.     rem ... und dies hier wird nur gelesen, wenn das Flag gelöscht ist.
  29.   do ausziehen
  30.    [
  31.       rem Wenn der User die Kleidung ausziehen will, wird das hier ausgeführt.
  32.     print WOW !  Sexy...
  33.     print Du ziehst die Klamotten aus...
  34.     setflag Kleidung ausgezogen
  35.       rem So einfach geht das, Haktar weiß nun, daß der Held nackt ist.
  36.     addtime 1
  37.       rem Und anziehen geht langsamer, als ausziehen.
  38.    ]
  39.  ]
  40.  
  41.