We don't need this anymore.
This commit is contained in:
parent
74a6bd75de
commit
bb716756b8
284
syrecky.lua
284
syrecky.lua
|
@ -1,284 +0,0 @@
|
||||||
-- Syrečky pro Hagen engine
|
|
||||||
-- (c) Severák 2015 - 2019
|
|
||||||
|
|
||||||
-- / port z ALAN verze
|
|
||||||
|
|
||||||
title = "Syrečky 2019"
|
|
||||||
|
|
||||||
-- utils
|
|
||||||
|
|
||||||
local function randomp(texty)
|
|
||||||
return function()
|
|
||||||
p(texty[math.random(1, #texty)])
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- slovesa
|
|
||||||
|
|
||||||
cont=verb{
|
|
||||||
n="pokračovat",
|
|
||||||
act = function()
|
|
||||||
walk(here().cont)
|
|
||||||
end
|
|
||||||
}
|
|
||||||
|
|
||||||
sever = verb{
|
|
||||||
n = "sever",
|
|
||||||
act = function()
|
|
||||||
walk(here().sever)
|
|
||||||
end
|
|
||||||
}
|
|
||||||
|
|
||||||
jih = verb{
|
|
||||||
n = "jih",
|
|
||||||
act = function()
|
|
||||||
walk(here().jih)
|
|
||||||
end
|
|
||||||
}
|
|
||||||
|
|
||||||
desc = verb{
|
|
||||||
n ="prozkoumej",
|
|
||||||
params = {"desc"},
|
|
||||||
act = function(what)
|
|
||||||
p("Zkoumáš " .. game[what].n .. ":")
|
|
||||||
local description = game[what].desc
|
|
||||||
if type(description)=='string' then
|
|
||||||
p(description)
|
|
||||||
elseif type(description)=='function' then
|
|
||||||
description()
|
|
||||||
end
|
|
||||||
end
|
|
||||||
}
|
|
||||||
|
|
||||||
open = verb{
|
|
||||||
n ="otevři",
|
|
||||||
params = {"open"},
|
|
||||||
act = function(what)
|
|
||||||
local description = game[what].open
|
|
||||||
if type(description)=='string' then
|
|
||||||
p(description)
|
|
||||||
elseif type(description)=='function' then
|
|
||||||
description()
|
|
||||||
end
|
|
||||||
end
|
|
||||||
}
|
|
||||||
|
|
||||||
give = verb{
|
|
||||||
n = "dej",
|
|
||||||
params = {"darovatelne", "komu"},
|
|
||||||
act = function(co, komu)
|
|
||||||
-- tohle je trošku hack
|
|
||||||
if komu=="naokno" then
|
|
||||||
p "Na okno raději nic dávat nebudu. Mohli by to unést holubi."
|
|
||||||
return
|
|
||||||
end
|
|
||||||
|
|
||||||
if co=="syrecky" then
|
|
||||||
p "Dáváš otci syrečky."
|
|
||||||
p "Otec: dík, synku."
|
|
||||||
p "Dokázal jsi to! Dal jsi otci syrečky."
|
|
||||||
p "Game over!"
|
|
||||||
move("syrecky", "otec")
|
|
||||||
else
|
|
||||||
p("Dáváš otci " .. game[co].n .. ".")
|
|
||||||
p "Otec: No co já s tím? Tohle nechci."
|
|
||||||
end
|
|
||||||
end
|
|
||||||
}
|
|
||||||
|
|
||||||
eat = verb{
|
|
||||||
n = "sněz",
|
|
||||||
params = {"jedle"},
|
|
||||||
act = function(co)
|
|
||||||
if co=="bageta" then
|
|
||||||
p "OK. Dám si bagetu."
|
|
||||||
p "* žvejk, žvejk, žvejk, žvejk"
|
|
||||||
p "Jo... Byla docela dobrá."
|
|
||||||
move("bageta", "void")
|
|
||||||
elseif co=="syrecky" then
|
|
||||||
p "Syrečky nesním:"
|
|
||||||
p "a) neuvěřitelně páchnou"
|
|
||||||
p "b) s plynovou maskou se dost blbě jí"
|
|
||||||
p "c) kdybych je snědl, nešlo by tuhle hru vyhrát"
|
|
||||||
end
|
|
||||||
end
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
-- předměty a lokace
|
|
||||||
|
|
||||||
-- OBÝVÁK
|
|
||||||
|
|
||||||
obyvak = room{
|
|
||||||
n="Obývák",
|
|
||||||
d="Normalní panelakový obývak. Na sever od něj je kuchyně.",
|
|
||||||
sever="kuchyn"
|
|
||||||
}
|
|
||||||
|
|
||||||
maska = item{
|
|
||||||
n="plynovou masku",
|
|
||||||
d="Plynova maska z dob ruske okupace.",
|
|
||||||
desc="Stará protiplynová maska, patrně ruské výroby. Nechápu co dělala v pohovce.",
|
|
||||||
w="pohovka",
|
|
||||||
darovatelne = true
|
|
||||||
}
|
|
||||||
|
|
||||||
pohovka = item{
|
|
||||||
n="pohovku",
|
|
||||||
d="Stará prašivá pohovka sotva drží. Pamatuje snad i druhou světovou.",
|
|
||||||
desc = function()
|
|
||||||
if maska.w=='pohovka' then
|
|
||||||
p "Z pohovky čouhá něco divného, zkusím to vytáhnout."
|
|
||||||
p "Wow! Je to plynová maska!"
|
|
||||||
move("maska", "me")
|
|
||||||
else
|
|
||||||
p "V pohovce je už jenom prach."
|
|
||||||
end
|
|
||||||
end,
|
|
||||||
w="obyvak"
|
|
||||||
}
|
|
||||||
|
|
||||||
otec = item{
|
|
||||||
n="otce",
|
|
||||||
d="Na pohovce se valí otec a kouka se na telku.",
|
|
||||||
desc="Tvůj fotr. Fešák.",
|
|
||||||
w="obyvak"
|
|
||||||
}
|
|
||||||
|
|
||||||
-- tohle je trošku hack - neumíme moc dobře skloňovat, tak máme pro otce speciální objekt na obdarovávání
|
|
||||||
otci = item{
|
|
||||||
n = "otci",
|
|
||||||
komu = true,
|
|
||||||
w = "obyvak"
|
|
||||||
}
|
|
||||||
|
|
||||||
televize = item{
|
|
||||||
n = "televizi",
|
|
||||||
desc = randomp{
|
|
||||||
"V telce běží zápas pražských S.",
|
|
||||||
"Fanoušci v televizi hážou dělobuchy.",
|
|
||||||
"Právě běží reklama.",
|
|
||||||
"V televizi je Horst Fuchs: A pokud zavoláte do deseti minut, dostanete ke každému noži koťátko zdarma."
|
|
||||||
},
|
|
||||||
w = "obyvak"
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
-- KUCHYNĚ
|
|
||||||
|
|
||||||
kuchyn = room{
|
|
||||||
n="Kuchyň",
|
|
||||||
d="Umakartová kuchyň z doby vrcholného komunismu. Na jih od ní je obyvák.",
|
|
||||||
jih="obyvak"
|
|
||||||
}
|
|
||||||
|
|
||||||
syrecky = item{
|
|
||||||
n = "syrečky",
|
|
||||||
desc = "Strašně smradlavé syrečky. Smrdí tak mocně, že je to cítit i přes igelit.",
|
|
||||||
w = "lednice",
|
|
||||||
darovatelne = true,
|
|
||||||
jedle = true
|
|
||||||
}
|
|
||||||
|
|
||||||
bageta = item{
|
|
||||||
n = "bagetu",
|
|
||||||
d = "Na kuchyňské lince leží bageta.",
|
|
||||||
desc = function()
|
|
||||||
p "Typická bageta z benzínky. Kupodivu ani není prošlá."
|
|
||||||
if game.bageta.w~="me" then
|
|
||||||
p "Beru ji sebou."
|
|
||||||
move("bageta", "me")
|
|
||||||
end
|
|
||||||
end,
|
|
||||||
darovatelne = true,
|
|
||||||
jedle = true,
|
|
||||||
w = "kuchyn"
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
lednice = item{
|
|
||||||
n="lednici",
|
|
||||||
d="Spořádaně tu vrní obstarožní lednice",
|
|
||||||
desc = "Obstarožní lednička značky CALEX. Hotová hrozba pro životní prostředí.",
|
|
||||||
open = function()
|
|
||||||
p "Otevíráš ledničku. Dveře vržou."
|
|
||||||
if syrecky.w=="lednice" then
|
|
||||||
if maska.w=="me" then
|
|
||||||
p "Syrečky strašne smrdí, bereš si na pomoc plynovou masku."
|
|
||||||
move("syrecky", "me")
|
|
||||||
p "Vypadáš přitom jak stalker ze stejnojmené počitačové hry, ale podařilo se ti vzít syrečky."
|
|
||||||
else
|
|
||||||
p "Strašlivý smrad syrečků tě donutil ledničku zase zavřít!"
|
|
||||||
end
|
|
||||||
else
|
|
||||||
p "V lednici však už je jen \"Příšera, která žila v lednici vedle majonézy a za zelným salátem\". A ta tě nezajímá."
|
|
||||||
end
|
|
||||||
end,
|
|
||||||
w="kuchyn"
|
|
||||||
}
|
|
||||||
|
|
||||||
vyhled = item{
|
|
||||||
n = "výhled",
|
|
||||||
d = "A je tu krásný výhled na Jihozápadní město",
|
|
||||||
w="kuchyn",
|
|
||||||
desc = randomp{
|
|
||||||
"Paneláky dnes vypadají patřičně depresivně.",
|
|
||||||
"Před barákem zrovna někomu kradou auto.",
|
|
||||||
"Před barákem zrovna policajti rozdávají pokuty.",
|
|
||||||
"Děti si hrajou na hřišti.",
|
|
||||||
"Důchodkyně pomlouvají tu dnešní mládež.",
|
|
||||||
"Vietnamc si šel zakouřit před večerku.",
|
|
||||||
"Gopnici ve vchodu tančí na hardbass.",
|
|
||||||
"Nikde nikdo s rouškou - není to tím, že je rok 1995?"
|
|
||||||
},
|
|
||||||
open="Okno raději otvírat nebudu, mohl by se sem dostat smog."
|
|
||||||
}
|
|
||||||
|
|
||||||
naokno = item{
|
|
||||||
n = "na okno",
|
|
||||||
komu = true,
|
|
||||||
w = "kuchyn"
|
|
||||||
}
|
|
||||||
|
|
||||||
-- META
|
|
||||||
|
|
||||||
local sledovani = randomp{
|
|
||||||
"Otec se napil piva.",
|
|
||||||
"GOOOOOOOOOOOOOOOL!!!!\nSparťani v televizi právě skórovali. Řve celé sídliště.",
|
|
||||||
"Otec se raduje, Sparta vede 1:0 .",
|
|
||||||
"Otec začína být nervózní.\nOtec: Tak kde jsou sakra ty syrečky?!"
|
|
||||||
}
|
|
||||||
|
|
||||||
local zrani = randomp{
|
|
||||||
"Otec spokojeně mlaská při žraní syrečků.",
|
|
||||||
"Otec: To je dobrota, to je dobrota.",
|
|
||||||
"Otec: Mňam, mňam...",
|
|
||||||
"Otec slastně mlaská při žraní syrečků.",
|
|
||||||
"Otec se olizuje až za ušima."
|
|
||||||
}
|
|
||||||
|
|
||||||
function round()
|
|
||||||
if here().ref=="obyvak" then
|
|
||||||
if syrecky.w=="otec" then
|
|
||||||
zrani()
|
|
||||||
else
|
|
||||||
sledovani()
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
intro = room{
|
|
||||||
d=[[SYREČKY 2019 - technologické demo
|
|
||||||
|
|
||||||
(verze z 17.8.2019)
|
|
||||||
(technicky aktualizováno v lednu 2021)
|
|
||||||
|
|
||||||
Tvým cílem je donést otci syrečky z kuchyně.
|
|
||||||
|
|
||||||
Hru navrhnul Petr Kain v roce 2010, potom sloužila jako česká obdoba Cloak of Darkness.]],
|
|
||||||
cont="obyvak",
|
|
||||||
auto_command = "pokračovat"
|
|
||||||
}
|
|
Loading…
Reference in New Issue