old-casio-programs/MN-LVL2.txt

71 lines
1.8 KiB
Text
Raw Normal View History

2016-02-19 05:58:34 +00:00
Filename:MN-LVL2
2->Mat M[9,S]
ClrText
""[DISP]
""[DISP]
""[DISP]
"Et tied<65> kuinka kauanolit tajuton, mutta nyt valot ovat j<>l- leen p<><70>ll<6C>. K<>yt<79>v<EFBFBD>tovat tyhj<68>t, kuuluu vaimea kumina."[DISP]
ClrText
"Kahvikone on kaatunutkumoon, lattia lai- nehtii lattea. -Onko t<><74>ll<6C> ket<65><74>n?!Huutosi kaikuu pit- k<><6B>n. Ei vastausta."[DISP]
ClrText
"L<>hdet takaisin oman toimistosi suuntaan. Ymp<6D>rill<6C>si n<>et vaintyhji<6A> huoneita. Vie-l<> <20>sken kaikki ne olivat t<>ynn<6E>."[DISP]
ClrText
"Toimistosi on kuin norsulauman j<>ljilt<6C>.Paperit on heitelty ymp<6D>riins<6E>, hyllyt kaadettu. Aivan kuin rikoselokuvasta."[DISP]
ClrText
"T<><54>ll<6C> ei ole sinullenyt mit<69><74>n, p<><70>llim- m<>isen<65> ajatuksenasi on nyt p<><70>st<73> pois selvitt<74>m<EFBFBD><6D>n mit<69> 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<73> tilanteessa."[DISP]
Goto 1
IfEnd
IfEnd
Goto 1
Lbl 2
ClrText
"L<>hdet takaisin toi- mistoasi kohti. Juuriovella kuulet kovaa jyrin<69><6E>, ja katosta irronnut lohkare murskaa ruumiisi."[DISP]
999->W
Return
Lbl 3
ClrText
"Uskollinen Fiskarsisiantaa hissinkutsumis-napille napakan m<>- j<>yksen. Ja, ihme kyll<6C>, hissi alkaa kulkea!"[DISP]
ClrText