71 lines
No EOL
1.8 KiB
Text
71 lines
No EOL
1.8 KiB
Text
Filename:MN-LVL2
|
|
2->Mat M[9,S]
|
|
ClrText
|
|
""[DISP]
|
|
""[DISP]
|
|
""[DISP]
|
|
"Et tiedä kuinka kauanolit tajuton, mutta nyt valot ovat jäl- leen päällä. Käytävätovat tyhjät, kuuluu vaimea kumina."[DISP]
|
|
ClrText
|
|
"Kahvikone on kaatunutkumoon, lattia lai- nehtii lattea. -Onko täällä ketään?!Huutosi kaikuu pit- kään. Ei vastausta."[DISP]
|
|
ClrText
|
|
"Lähdet takaisin oman toimistosi suuntaan. Ympärilläsi näet vaintyhjiä huoneita. Vie-lä äsken kaikki ne olivat täynnä."[DISP]
|
|
ClrText
|
|
"Toimistosi on kuin norsulauman jäljiltä.Paperit on heitelty ympäriinsä, hyllyt kaadettu. Aivan kuin rikoselokuvasta."[DISP]
|
|
ClrText
|
|
"Täällä ei ole sinullenyt mitään, päällim- mäisenä ajatuksenasi on nyt päästä pois selvittämään mitä ta-pahtui."[DISP]
|
|
Lbl 1
|
|
17441->L
|
|
Prog "MN-GETIF"
|
|
If A=0
|
|
Then If F=0
|
|
Then ClrText
|
|
"Kävelet hissille vainhuomataksesi, ettei se toimi. Huomaat maassa taskulampun."[DISP]
|
|
IfEnd
|
|
ClrText
|
|
"1. Ota taskulamppu 2. Palaa takaisin toimistolle"
|
|
1->F
|
|
Else If F=0
|
|
Then ClrText
|
|
"Kävelet hissille vainhuomataksesi, ettei se toimi."[DISP]
|
|
1->F
|
|
IfEnd
|
|
ClrText
|
|
"1. Palaa takaisin toimistolle"
|
|
IfEnd
|
|
Prog "MN-MENU"
|
|
If W=0
|
|
Then Goto 1
|
|
IfEnd
|
|
If W=666
|
|
Then Return
|
|
IfEnd
|
|
If Z=1
|
|
Then 17441->L
|
|
Prog "MN-GETIF"
|
|
If A=0
|
|
Then 17441->L
|
|
1->B
|
|
Prog "MN-ADDI"
|
|
Else Goto 2
|
|
IfEnd
|
|
IfEnd
|
|
If W=777
|
|
Then If Mat M[L,S]=1
|
|
Then Goto 3
|
|
IfEnd
|
|
If Mat M[L,S]=17441
|
|
Then ClrText
|
|
"Lamppu ei nyt auta tässä tilanteessa."[DISP]
|
|
Goto 1
|
|
IfEnd
|
|
IfEnd
|
|
Goto 1
|
|
Lbl 2
|
|
ClrText
|
|
"Lähdet takaisin toi- mistoasi kohti. Juuriovella kuulet kovaa jyrinää, ja katosta irronnut lohkare murskaa ruumiisi."[DISP]
|
|
999->W
|
|
Return
|
|
Lbl 3
|
|
ClrText
|
|
"Uskollinen Fiskarsisiantaa hissinkutsumis-napille napakan mä- jäyksen. Ja, ihme kyllä, hissi alkaa kulkea!"[DISP]
|
|
ClrText |