old-casio-programs/MN-LVL1.txt
2016-02-19 08:16:58 +02:00

82 lines
No EOL
3.3 KiB
Text

Filename:MN-LVL1
1->Mat M[9,S]
50->Mat M[10,S]
1->L
0->B
Prog "MN-ADDI"
Lbl 1
ClrText
"Autosi saapuessa TanaCorp Oyj.:n ylä- hissille tunnet ikävää kurinaa vat- sassasi. Jotain on vinossa."[DISP]
ClrText
"Hissi laskeutuu 56 kerrosta alas aina yhtä nopeasti, tunne vatsassasi kuitenkin pysyy."[DISP]
ClrText
"Tämä päivä maan uume-nissa on kuitenkin aivan tavallinen. Vatsasi vain ei tätä usko."[DISP]
ClrText
"-Hei Visa! toverisi huikkaa hissin oven avautuessa. -Olet myöhässä. -Joo, oli ruuhkaa. Kävelet toimistoosi."[DISP]
ClrText
"Toimistosi on melko kodikas ollakseen 280metriä maanpinnan alapuolella. Se on koko kaivoksen siis- teimpiä, ylpeytesi."[DISP]
ClrText
"Istut mustaan nahka- tuoliisi, ja alat pyöritellä papereita.Itse kaivaminen ta- pahtuu 350 metriä alempana,"[DISP]
ClrText
"sinä olet vain kont- torirotta. Räjäytys- ten vaimea kumina kaikuu käytävillä..."[DISP]
ClrText
"Asetut pöydällesi, jamietit miten päivän voisi aloittaa."[DISP]
Lbl 2
Do
ClrText
"1. Tee töitä 2. Hae kahvia 3. Lue sanomalehteä"
Prog "MN-MENU"
LpWhile W=0
If W=666
Then Return
IfEnd
If Z=1
Then Prog "MN-LVLWO"
Goto 2
IfEnd
If Z=2
Then Goto 4
IfEnd
If Z=3
Then Goto 3
IfEnd
If W=777
Then If Mat M[L,S]=1
Then ClrText
"Hakkaat pöytääsi va- saralla, mutta sillä ei ole mainittavaa vaikutusta."[DISP]
Goto 2
IfEnd
Lbl 3
ClrText
"KOTIMAA: Hallitus suunnitteleeverojen nostamista. Uusi tekijänoikeus- lakiehdotus kuohuttaanörttikansaa."[DISP]
ClrText
"ULKOMAAT: Irakissa 3 kuoli is- kussa USA:n sotilaitavastaan. Putin pyrkiikolmannelle kaudelle."[DISP]
ClrText
"POP-JUORUT: Matti hakkasi Mervin,Mervi sairaalaan. KaiStenvall naimisiin Pamela Anderssonin kanssa."[DISP]
ClrText
"URHEILU: Suomi tippui jalka- pallon MM-kisoista. MM-jääkiekko: Suomi-Venäjä: 0-3 USA-Tsekki: 1-5"[DISP]
ClrText
"TV: Yle 1-20.30-Uutiset Yle 2-20.00-Kummeli MTV 3-14.25-TV Shop Nelon-**.**-Sontaa"[DISP]
Goto 2
Lbl 4
ClrText
"Kävellessäsi käytävänkahvikoneelle tunnet lattian tärisevän epätavallisen voimak-kaasti. Vatsasi alkaajälleen temppuilla."[DISP]
ClrText
"Kohta tärinä kuiten- kin loppuu ja jatkat matkaasi koneelle. Mielessäsi tyrmäät alitajuisen pelon on-nettomuudesta."[DISP]
ClrText
"Kuuma kahvi syöksyy varomattomuudestasi johtuen suuhusi lii- ankin nopeasti polt- taen kielesi. Huudat käytävällä."[DISP]
ClrText
"Viereisen toimiston työntekijä tulee ih- mettelemään huutoasi.-Gievemi bavoi! vas- taat outoon katsee- seen."[DISP]
ClrText
"Samassa maailmasi kääntyy ylösalaisin. Ei, toimiston hemai- seva sihteeri ei kä- vele ohi, vaan lattiatärähtää lennättäen"[DISP]
ClrText
"sinut kattoon ja taaslattialle. Ihmetel- lessäsi lattialla sähköt katkeavat ja käytävä pimenee. Alatryömiä eteenpäin."[DISP]
ClrText
"Kaikkialla on säkki- pimeää, et näe sent- tiäkään. Kuulet huu- toja ja juoksuaskeliakaukaa. Kaikki on se-kaisin."[DISP]
ClrText
"Juoksuaskeleet lähe- nevät nopeasti. -Siellä on vielä yk- si, alkaa kuulua puh-etta. -Vauhtia!"[DISP]
ClrText
"Askeleet saapuvat viereesi. Samassa hetkessä tunnet val- tavan kivun päässäsi ja menetät tajuntasi."[DISP]
ClrText
2->W
Return