mirror of
https://gitlab.com/Oreolek/duel.git
synced 2024-06-30 22:05:07 +03:00
299 lines
11 KiB
Lua
299 lines
11 KiB
Lua
--$Author:Alexander Yakolev, 2017
|
||
--$Version:1.0
|
||
require "format"
|
||
require "dlg"
|
||
require 'dbg' -- ПОЧЕМУ-ТО НЕ РАБОТАЕТ
|
||
require 'tools'
|
||
declare "char" ({})
|
||
-- require 'hideinv'
|
||
format.dash = true
|
||
format.quotes = true
|
||
format.para = true
|
||
-- https://www.google.ru/maps/place/%D0%9C%D0%B5%D0%BA%D1%81%D0%B8%D0%BA%D0%B0/@22.8355052,-105.0808555,16z/data=!4m5!3m4!1s0x84043a3b88685353:0xed64b4be6b099811!8m2!3d23.634501!4d-102.552784
|
||
init = function ()
|
||
map = obj {
|
||
nam = "Карта",
|
||
inv = function()
|
||
walk('map')
|
||
end
|
||
}
|
||
take(map)
|
||
end
|
||
|
||
local markers = {
|
||
chos = "626,666",
|
||
}
|
||
room {
|
||
nam = 'map',
|
||
disp = "Карта",
|
||
hideinv = true,
|
||
enter = function (here, from)
|
||
char.lastroom = from.nam
|
||
end,
|
||
pic = function()
|
||
local map = 'images/satellite.jpg'
|
||
if markers[char.lastroom] then
|
||
map = map .. ';images/marker.png@' .. markers[char.lastroom]
|
||
end
|
||
return map
|
||
end,
|
||
decor = [[
|
||
Вы сверяетесь с картой.^^
|
||
|
||
{back|Назад}
|
||
]],
|
||
obj = {
|
||
obj {
|
||
nam = 'back',
|
||
act = function()
|
||
return walkout()
|
||
end
|
||
}
|
||
}
|
||
}
|
||
|
||
dlg {
|
||
nam = 'main',
|
||
dsc = [[
|
||
От автобусной остановки до дома Чо было полтора километра.
|
||
По пути вы осматривали окрестности: высокая гора, бесконечные пашни
|
||
и маленькое село вокруг единственной колонки с водой.^^
|
||
|
||
Семья Чо отгородилась от села широкой полосой деревьев.
|
||
Их пашня не отличалась от остальных: такое же чёрное поле с рядами
|
||
роботов, которые молча копались в земле. Перед полем стоял
|
||
невысокий красновато-чёрный дом с двумя окнами.^^
|
||
|
||
На стук в дверь открыла низенькая черноволосая девушка.^^
|
||
|
||
-- А, так вы тот инженер из города? Проходите, мы сейчас всё покажем.
|
||
Я же правильно говорю, вы же инженер?
|
||
]],
|
||
obj = {
|
||
{
|
||
{
|
||
'Инженер (она)',
|
||
function()
|
||
char.gender = "she";
|
||
char.plural = false;
|
||
walk('start2');
|
||
return true;
|
||
end
|
||
},
|
||
{
|
||
'Инженер (он)',
|
||
function()
|
||
char.gender = "he";
|
||
char.plural = false;
|
||
walk('start2');
|
||
return true;
|
||
end
|
||
},
|
||
{
|
||
'Инженер (оно)',
|
||
function()
|
||
char.gender = "it";
|
||
char.plural = false;
|
||
walk('start2');
|
||
return true;
|
||
end
|
||
},
|
||
{
|
||
'Инженер (они)',
|
||
function()
|
||
char.gender = "they";
|
||
char.plural = false;
|
||
walk('start2');
|
||
return true;
|
||
end
|
||
},
|
||
{
|
||
'Инженеры (они)',
|
||
function()
|
||
char.gender = "they";
|
||
char.plural = true;
|
||
walk('start2');
|
||
return true;
|
||
end
|
||
}
|
||
}
|
||
}
|
||
}
|
||
dlg {
|
||
nam = 'start2',
|
||
dsc = function()
|
||
return [[
|
||
-- А, это хорошо что ]]..engineer()..[[.
|
||
Мы уже думали, что наша гарантия всё.
|
||
Это же такие старые роботы, всё время в поле.^^
|
||
|
||
Она вышла из дома и пригласила вас за собой.
|
||
Вы шли вдоль поля; металлические рабочие не обращали на вас внимания.
|
||
|
||
-- Вы знаете, у нас же нет других машин.
|
||
Когда-то хотели купить что-нибудь для дома, но тут эта война с Луной…
|
||
Вы были на войне?
|
||
]]
|
||
end,
|
||
obj = {
|
||
{
|
||
{
|
||
function()
|
||
return [[Цех РБ-23, с первого до последнего дня. Чинил]]..endings()..[[ ремонтных ботов.]]
|
||
end,
|
||
function()
|
||
char.earth = 1;
|
||
walk('start3');
|
||
return '-- Доблесть рабочих, конечно.';
|
||
end
|
||
}, -- + к симпатизирующим Земле
|
||
{function()
|
||
return 'Нет, '..pronoun_1()..' не был'..endings()..'.'
|
||
end, function() char.earth = 0; walk('start3'); return '-- А вы не… Хотя это не моё дело.'; end},
|
||
-- нет эффекта
|
||
{'Да, но Луна проиграла.',
|
||
function() char.earth = -1; walk('start3'); return "-- Ой, вы из этих… Извините." end},
|
||
-- + к симпатизирующим Луне
|
||
},
|
||
},
|
||
}
|
||
dlg {
|
||
nam = 'start3',
|
||
dsc = [[
|
||
(курсивом) Сюда, пожалуйста.^^
|
||
|
||
Она провела вас в большой сарай, где пылился высокий автоматический сельхозкомбайн.
|
||
|
||
-- Вот и наш больной. Мы прогрели его весной, а он и не едет.
|
||
Вы же ]]..engineer()..[[, вы сможете его починить?
|
||
А то мы потеряем урожай.
|
||
]],
|
||
decor = [[
|
||
Старушка Чо внимательно смотрит на вас.
|
||
В её глазах вы читаете, что от починки этого комбайна зависит несколько жизней.
|
||
]]
|
||
onempty = function()
|
||
walk('start4')
|
||
end
|
||
obj = {
|
||
{
|
||
'Зачем вы заводили комбайн весной?',
|
||
'-- Он замёрз! После зимы у мужа обычная машина не заводится, не то что роботы.'
|
||
},
|
||
{
|
||
'У вас же столько роботов. Неужели вы не справитесь без комбайна?',
|
||
[[Всего семеро, и они обычно упаковывают и складывают.
|
||
Если они будут ещё и косить, мы не управимся до осени.
|
||
Урожай сгниёт под дождями.]]
|
||
},
|
||
{
|
||
'Да, '..pronoun_1()..' -- '..engineer()..[[.
|
||
Но я могу только определить проблему, у вас же нет мастерской или инструментов.]],
|
||
'-- Вы знаете, я могу попросить соседей. У Павла в подвале во время войны была мастерская.'
|
||
},
|
||
{
|
||
'Давно он у вас?',
|
||
[[Ну, лет двадцать уже, наверное.
|
||
То есть, я хотела сказать, девятнадцать.
|
||
Гарантия же ещё действует, правда?]]
|
||
}
|
||
}
|
||
}
|
||
dlg {
|
||
nam = 'start4',
|
||
dsc = function() [[
|
||
Комбайн оказался старым, очень старым.
|
||
Вы копались не меньше часа, пока не нашли износившийся программаторный блок.^^
|
||
|
||
-- Ну что же, надо чинить. Случай гарантийный, всё за счёт фирмы. Но придётся забрать в город, в мастерскую.^^
|
||
|
||
-- А нельзя прямо здесь? У нас же урожай скоро!^^
|
||
|
||
-- Нет, это…^^
|
||
|
||
-- Послушайте. У меня сестра работает в Берёзовке, я знаю что нужно.
|
||
Вас устроит… десять тысяч?^^
|
||
|
||
-- В смысле?^^
|
||
|
||
-- Подождите, не отказывайтесь. Десять новых кусков. Золотом. И вы почините это здесь.^^
|
||
|
||
Вы задумались. На десять кусков можно было бы купить новый комбайн - конечно, не такой мощный, но если продать золото на Луну… Был один хитрый выход.^^
|
||
|
||
-- Давайте так: ]]..pronoun_1()..[[ здесь на три дня. Если за эти три дня что-то получится… Но после урожая -- сразу в мастерскую, нужен основательный ремонт. У кого, вы говорили, здесь мастерская?^^
|
||
|
||
-- Спасибо! -- она улыбнулась. -- Я скажу внучке, чтобы вас проводила. Сейчас.^^
|
||
|
||
Вы вернулись к дому. Старушка исчезла за дверью, а затем быстро вернулась с чумазой девушкой лет семнадцати.
|
||
|
||
-- Это Катя, она вас проводит. Катя, до Павла и обратно, хорошо?^^
|
||
|
||
Девушка хотела что-то возразить, но передумала, опустила голову и тихо ответила:^^
|
||
|
||
-- Хорошо, бабушка.
|
||
]]
|
||
end,
|
||
decor = [[
|
||
]]
|
||
onempty = function()
|
||
walk('chos')
|
||
end
|
||
}
|
||
room {
|
||
nam = 'exit_west',
|
||
title = 'Дорога на запад',
|
||
disp = 'Дорога на запад',
|
||
way = {'intersection'},
|
||
dsc = [[
|
||
Вы стоите на окраине Жестианы.
|
||
Прямая автодорога идёт на запад, где начинается лес.
|
||
В лесу она тут же делает крутой поворот.
|
||
]]
|
||
}
|
||
room {
|
||
nam = 'exit_north',
|
||
disp = 'Дорога на север',
|
||
title = 'Дорога на север',
|
||
way = {'town'},
|
||
dsc = [[
|
||
Вы стоите на окраине Жестианы.
|
||
Прямая автодорога идёт на север.
|
||
|
||
Здесь от неё отходит небольшой заезд на запад.
|
||
]]
|
||
}
|
||
room {
|
||
nam = 'chos',
|
||
disp = 'Дом Чо',
|
||
title = 'Дом Чо',
|
||
way = {'town', 'intersection'},
|
||
dsc = [[
|
||
Небольшой дом с большой пашней.
|
||
]]
|
||
}
|
||
room {
|
||
nam = 'intersection',
|
||
title = 'Перекрёсток',
|
||
disp = 'Перекрёсток',
|
||
decor = [[]],
|
||
way = {'exit_west', 'chos', 'town'}
|
||
}
|
||
room {
|
||
nam = 'town',
|
||
title = 'Жестиана',
|
||
disp = 'Жестиана',
|
||
way = {'exit_north', 'chos', 'intersection', 'factory'},
|
||
decor = [[]]
|
||
}
|
||
room {
|
||
nam = 'factory',
|
||
title = [[Здание на горе]],
|
||
disp = [[Здание на горе]],
|
||
way = {'town'},
|
||
dsc = [[
|
||
Вы забираетесь на склон горы. Здесь стоит
|
||
|
||
Отсюда хорошо видна вся Жестиана.
|
||
]]
|
||
}
|