prva verze syrecku
This commit is contained in:
parent
6bf17b4436
commit
7c2a48df40
|
|
@ -0,0 +1,156 @@
|
|||
$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.
|
||||
|
|
@ -0,0 +1,111 @@
|
|||
-- Syrečky pro Hagen engine
|
||||
|
||||
-- / port z ALAN verze
|
||||
|
||||
title = "Syrečky (demo)"
|
||||
|
||||
-- slovesa
|
||||
|
||||
-- TODO - prozkoumej
|
||||
-- TODO - sever
|
||||
-- TODO - dej
|
||||
-- TODO - pokračuj
|
||||
|
||||
help=verb{
|
||||
n="nápověda",
|
||||
act = function()
|
||||
cls()
|
||||
p "Hra se hraje pomoci menu na leve straně. Az najdete syrecky zadejte:dej otci syrecky."
|
||||
end,
|
||||
filter = nil
|
||||
}
|
||||
|
||||
-- předměty
|
||||
|
||||
obyvak = room{
|
||||
n="Obyvak",
|
||||
d="Normalni panelakovy obyvak. Na sever od nej je kuchyne.",
|
||||
sever="kuchyn"
|
||||
}
|
||||
|
||||
maska = item{
|
||||
n="masku",
|
||||
d="Plynova maska z dob ruske okupace.",
|
||||
desc="Stara protiplynova maska, patrne ruske vyroby. Nechapu co delala v pohovce.",
|
||||
w="pohovka"
|
||||
}
|
||||
|
||||
otec = item{
|
||||
n="otce",
|
||||
d="Na pohovce se vali otec a kouka se na bednu.",
|
||||
desc="Tvuj fotr. Fesak."
|
||||
-- todo - koukání 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"
|
||||
]]
|
||||
}
|
||||
|
||||
pohovka = item{
|
||||
n="pohovku",
|
||||
d="Stara prasiva pohovka sotva drzi. Pamatuje snad i druhou svetovou.",
|
||||
desc = function()
|
||||
if maska.w=='pohovka' then
|
||||
p "Z pohovky couha neco divneho, zkusim to vytahnout."
|
||||
p "Wow! Je to plynova maska!"
|
||||
p "Mam masku!"
|
||||
move("maska", "inv")
|
||||
else
|
||||
p "V pohovce je uz jen prach."
|
||||
end
|
||||
end
|
||||
}
|
||||
|
||||
kuchyn = room{
|
||||
n="Kuchyň",
|
||||
d="Kuchyn z doby komunismu. Na jih je obyvak.",
|
||||
jih="obyvak"
|
||||
}
|
||||
|
||||
syrecky = item{
|
||||
n = "syrečky",
|
||||
desc = "Strašně smradlavé syrečky.",
|
||||
w = "lednice"
|
||||
}
|
||||
|
||||
lednice = item{
|
||||
n="lednici",
|
||||
desc = "Obstarozni lednicka znacky CALEX. Hotova hrozba pro zivotni prostredi.",
|
||||
open = function()
|
||||
p "Oteviras lednicku. Dvere vrzou."
|
||||
if syrecky.w=="lednice" then
|
||||
if maska.w=="inv" then
|
||||
p "Syrecky strasne smrdi, beres si na pomoc plynovou masku."
|
||||
|
||||
else
|
||||
p "Straslivy smrad syrecku te donutil lednicku zase zavrit!"
|
||||
end
|
||||
else
|
||||
p "V lednici je uz jen prisera ktera zila v lednici vedle majonezy a za zelnym salatem... To me nezajima."
|
||||
end
|
||||
end
|
||||
}
|
||||
|
||||
|
||||
intro = room{
|
||||
d=[[DEMO HRA SYRECKY
|
||||
----------------
|
||||
Tvym cilem je donest otci syrecky z kuchyne.]],
|
||||
continue="obyvak"
|
||||
}
|
||||
Loading…
Reference in New Issue