157 lines
3.5 KiB
Plaintext
157 lines
3.5 KiB
Plaintext
$INCLUDE 'czlib.ala'
|
|
|
|
OBJECT maska IN pohovka
|
|
IS prenosny.
|
|
DESCRIPTION "Plynova maska z dob ruske okupace."
|
|
VERB prozkoumej DOES ONLY
|
|
"Stara protiplynova maska, patrne ruske vyroby. Nechapu co delala v pohovce."
|
|
END VERB.
|
|
END OBJECT.
|
|
|
|
SYNONYMS masku = maska.
|
|
|
|
LOCATION obyvak
|
|
DESCRIPTION
|
|
"Normalni panelakovy obyvak. Na sever od nej je kuchyne."
|
|
EXIT sever TO kuchyn.
|
|
END LOCATION.
|
|
|
|
ACTOR otec AT obyvak
|
|
CONTAINER
|
|
DESCRIPTION
|
|
"Na pohovce se vali otec a kouka se na bednu."
|
|
SCRIPT bedna.
|
|
STEP
|
|
"Otec se napil piva."
|
|
STEP
|
|
"$nGOOOOOOOOOOOOOOOL!!!!$n"
|
|
"Otec se raduje, Sparta vede 1:0 ."
|
|
STEP
|
|
""
|
|
STEP
|
|
"Otec zacina byt nervozni.$n
|
|
Otec: Tak kde jsou sakra ty syrecky?!$n"
|
|
STEP
|
|
"$nOtec: Mladej kde se flakas s tema syreckama?!$n"
|
|
VERB dej DOES
|
|
IF co=syrecky THEN
|
|
"Ja: Tatinku, tady mas ty syrecky.$n"
|
|
"Otec: Dekuji ti synacku!$n"
|
|
"VYHRAL JSI!"
|
|
QUIT.
|
|
ELSE
|
|
"Otec: Co s tim? To jsem nechtel!$n"
|
|
LOCATE co IN inventory.
|
|
"Otec ti vraci $1."
|
|
END IF.
|
|
END VERB.
|
|
VERB prozkoumej DOES ONLY
|
|
"Tvuj fotr. Fesak."
|
|
END VERB.
|
|
END ACTOR.
|
|
|
|
SYNONYMS otce = otec.
|
|
SYNONYMS otci = otec.
|
|
SYNONYMS tatovi = otec.
|
|
SYNONYMS otcovi = otec.
|
|
|
|
OBJECT pohovka AT obyvak
|
|
CONTAINER
|
|
DESCRIPTION
|
|
"Stara prasiva pohovka sotva drzi. Pamatuje snad i druhou svetovou."
|
|
VERB prozkoumej DOES ONLY
|
|
IF maska IN pohovka THEN
|
|
"Z pohovky couha neco divneho, zkusim to vytahnout."
|
|
"Wow! Je to plynova maska!$n"
|
|
"Mam masku!$n"
|
|
LOCATE maska IN inventory.
|
|
ELSE
|
|
"V pohovce je uz jen prach."
|
|
END IF.
|
|
END VERB.
|
|
END OBJECT.
|
|
|
|
SYNONYMS pohovku = pohovka.
|
|
|
|
LOCATION kuchyn
|
|
DESCRIPTION
|
|
"Kuchyn z doby komunismu. Na jih je obyvak."
|
|
EXIT jih TO obyvak.
|
|
END LOCATION.
|
|
|
|
OBJECT mrkev AT kuchyn
|
|
IS prenosny.
|
|
DESCRIPTION "Oranzova mrkev."
|
|
END OBJECT.
|
|
|
|
OBJECT lednicka AT kuchyn
|
|
CONTAINER
|
|
DESCRIPTION
|
|
"Obstarozni lednicka znacky CALEX. Hotova hrozba pro zivotni prostredi."
|
|
VERB otevri
|
|
CHECK maska IN inventory
|
|
ELSE
|
|
"Oteviras lednicku. Dvere vrzou.$n"
|
|
"Straslivy smrad syrecku te donutil lednicku zase zavrit!$n"
|
|
DOES
|
|
IF syrecky AT nikde THEN
|
|
"Oteviras lednicku. Dvere vrzou.$n"
|
|
"Syrecky strasne smrdi, beres si na pomoc plynovou masku.$n"
|
|
LOCATE syrecky IN inventory.
|
|
"Tak a mam syrecky!"
|
|
ELSE
|
|
"V lednici je uz jen prisera ktera zila v lednici vedle majonezy a za zelnym salatem... To me nezajima."
|
|
END IF.
|
|
END VERB.
|
|
VERB prozkoumej DOES ONLY
|
|
"Neco jako pandorina skrinka. "
|
|
IF syrecky AT nikde THEN
|
|
"Jsou v ni syrecky. "
|
|
END IF.
|
|
"Muzes ji zkusit otevrit. "
|
|
END VERB.
|
|
END OBJECT.
|
|
|
|
SYNONYMS lednici = lednicka.
|
|
SYNONYMS lednicku = lednicka.
|
|
SYNONYMS calex = lednicka.
|
|
|
|
LOCATION nikde
|
|
END LOCATION.
|
|
|
|
OBJECT syrecky AT nikde
|
|
IS prenosny.
|
|
DESCRIPTION "Smradlave syrecky."
|
|
END OBJECT.
|
|
|
|
VERB pomoc DOES ONLY
|
|
"Hra se hraje klavesnici. Az najdete syrecky zadejte:$n"
|
|
">dej otci syrecky$n"
|
|
"a hru vyhrajete.$n"
|
|
"$n"
|
|
"Pokud si nevite rady s ovladanim, napiste$n"
|
|
">ovladani$n"
|
|
"$n"
|
|
END VERB.
|
|
|
|
VERB ovladani DOES ONLY
|
|
"Funguji nasledujici prikazy:$n"
|
|
" - s, j, v, z pro pohyb do svetovych stran$n"
|
|
" - prozkoumej (co)$n"
|
|
" - seber (co)$n"
|
|
" - dej (komu) (co)$n"
|
|
"$n"
|
|
"Ve hre je jeste jeden prikaz specificky pro konkretni predmet.$n"
|
|
"$n"
|
|
END VERB.
|
|
|
|
|
|
SYNTAX pomoc = pomoc.
|
|
SYNTAX ovladani = ovladani.
|
|
|
|
START AT obyvak.
|
|
"DEMO HRA SYRECKY$n"
|
|
"----------------$n"
|
|
"Tvym cilem je donest otci syrecky z kuchyne."
|
|
USE SCRIPT bedna FOR otec.
|