2017-02-20 11:18:44 +02:00
|
|
|
|
--$Author:Alexander Yakolev, 2017
|
|
|
|
|
--$Version:1.0
|
|
|
|
|
require "format"
|
2017-02-20 18:40:12 +02:00
|
|
|
|
require "dlg"
|
|
|
|
|
require 'dbg' -- ПОЧЕМУ-ТО НЕ РАБОТАЕТ
|
|
|
|
|
require 'tools'
|
2017-02-21 16:16:48 +02:00
|
|
|
|
declare "lastroom" ("")
|
|
|
|
|
declare "char" ({})
|
2017-02-21 16:06:05 +02:00
|
|
|
|
-- require 'hideinv'
|
2017-02-20 11:18:44 +02:00
|
|
|
|
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
|
2017-02-21 16:06:05 +02:00
|
|
|
|
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)
|
2017-02-21 16:16:48 +02:00
|
|
|
|
lastroom = from.nam
|
2017-02-21 16:06:05 +02:00
|
|
|
|
end,
|
|
|
|
|
pic = function()
|
|
|
|
|
local map = 'images/satellite.jpg'
|
2017-02-21 16:16:48 +02:00
|
|
|
|
if markers[lastroom] then
|
|
|
|
|
map = map .. ';images/marker.png@' .. markers[lastroom]
|
2017-02-21 16:06:05 +02:00
|
|
|
|
end
|
|
|
|
|
return map
|
|
|
|
|
end,
|
|
|
|
|
decor = [[
|
|
|
|
|
Вы сверяетесь с картой.^^
|
|
|
|
|
|
|
|
|
|
{back|Назад}
|
|
|
|
|
]],
|
|
|
|
|
obj = {
|
|
|
|
|
obj {
|
|
|
|
|
nam = 'back',
|
|
|
|
|
act = function()
|
|
|
|
|
return walkout()
|
|
|
|
|
end
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2017-02-20 11:18:44 +02:00
|
|
|
|
dlg {
|
|
|
|
|
nam = 'main',
|
|
|
|
|
dsc = [[
|
|
|
|
|
От автобусной остановки до дома Чо было полтора километра.
|
|
|
|
|
По пути вы осматривали окрестности: высокая гора, бесконечные пашни
|
|
|
|
|
и маленькое село вокруг единственной колонки с водой.^^
|
|
|
|
|
|
|
|
|
|
Семья Чо отгородилась от села широкой полосой деревьев.
|
|
|
|
|
Их пашня не отличалась от остальных: такое же чёрное поле с рядами
|
|
|
|
|
роботов, которые молча копались в земле. Перед полем стоял
|
|
|
|
|
невысокий красновато-чёрный дом с двумя окнами.^^
|
|
|
|
|
|
|
|
|
|
На стук в дверь открыла низенькая черноволосая девушка.^^
|
|
|
|
|
|
|
|
|
|
-- А, так вы тот инженер из города? Проходите, мы сейчас всё покажем.
|
|
|
|
|
Я же правильно говорю, вы же инженер?
|
|
|
|
|
]],
|
|
|
|
|
obj = {
|
|
|
|
|
{
|
2017-02-21 16:06:05 +02:00
|
|
|
|
{
|
|
|
|
|
'Инженер (она)',
|
|
|
|
|
function()
|
2017-02-21 16:16:48 +02:00
|
|
|
|
char.gender = "she";
|
|
|
|
|
char.plural = false;
|
2017-02-21 16:06:05 +02:00
|
|
|
|
walk('start2');
|
|
|
|
|
return true;
|
|
|
|
|
end
|
|
|
|
|
},
|
|
|
|
|
{
|
|
|
|
|
'Инженер (он)',
|
|
|
|
|
function()
|
2017-02-21 16:16:48 +02:00
|
|
|
|
char.gender = "he";
|
|
|
|
|
char.plural = false;
|
2017-02-21 16:06:05 +02:00
|
|
|
|
walk('start2');
|
|
|
|
|
return true;
|
|
|
|
|
end
|
|
|
|
|
},
|
|
|
|
|
{
|
|
|
|
|
'Инженер (оно)',
|
|
|
|
|
function()
|
2017-02-21 16:16:48 +02:00
|
|
|
|
char.gender = "it";
|
|
|
|
|
char.plural = false;
|
2017-02-21 16:06:05 +02:00
|
|
|
|
walk('start2');
|
|
|
|
|
return true;
|
|
|
|
|
end
|
|
|
|
|
},
|
|
|
|
|
{
|
|
|
|
|
'Инженер (они)',
|
|
|
|
|
function()
|
2017-02-21 16:16:48 +02:00
|
|
|
|
char.gender = "they";
|
|
|
|
|
char.plural = false;
|
2017-02-21 16:06:05 +02:00
|
|
|
|
walk('start2');
|
|
|
|
|
return true;
|
|
|
|
|
end
|
|
|
|
|
},
|
|
|
|
|
{
|
|
|
|
|
'Инженеры (они)',
|
|
|
|
|
function()
|
2017-02-21 16:16:48 +02:00
|
|
|
|
char.gender = "they";
|
|
|
|
|
char.plural = true;
|
2017-02-21 16:06:05 +02:00
|
|
|
|
walk('start2');
|
|
|
|
|
return true;
|
|
|
|
|
end
|
|
|
|
|
}
|
2017-02-20 11:18:44 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
dlg {
|
|
|
|
|
nam = 'start2',
|
2017-02-20 18:40:12 +02:00
|
|
|
|
dsc = function()
|
2017-02-20 11:18:44 +02:00
|
|
|
|
return [[
|
2017-02-20 18:40:12 +02:00
|
|
|
|
-- А, это хорошо что ]]..engineer()..[[.
|
2017-02-20 11:18:44 +02:00
|
|
|
|
Мы уже думали, что наша гарантия всё.
|
|
|
|
|
Это же такие старые роботы, всё время в поле.^^
|
|
|
|
|
|
|
|
|
|
Она вышла из дома и пригласила вас за собой.
|
|
|
|
|
Вы шли вдоль поля; металлические рабочие не обращали на вас внимания.
|
|
|
|
|
|
|
|
|
|
-- Вы знаете, у нас же нет других машин.
|
|
|
|
|
Когда-то хотели купить что-нибудь для дома, но тут эта война с Луной…
|
|
|
|
|
Вы были на войне?
|
|
|
|
|
]]
|
|
|
|
|
end,
|
|
|
|
|
obj = {
|
|
|
|
|
{
|
2017-02-20 18:40:12 +02:00
|
|
|
|
{
|
|
|
|
|
function()
|
|
|
|
|
return [[Цех РБ-23, с первого до последнего дня. Чинил]]..endings()..[[ ремонтных ботов.]]
|
|
|
|
|
end,
|
|
|
|
|
function()
|
2017-02-21 16:16:48 +02:00
|
|
|
|
char.earth = 1;
|
2017-02-20 18:40:12 +02:00
|
|
|
|
walk('start3');
|
|
|
|
|
return '-- Доблесть рабочих, конечно.';
|
|
|
|
|
end
|
|
|
|
|
}, -- + к симпатизирующим Земле
|
2017-02-20 11:18:44 +02:00
|
|
|
|
{function()
|
2017-02-20 18:40:12 +02:00
|
|
|
|
return 'Нет, '..pronoun_1()..' не был'..endings()..'.'
|
2017-02-21 16:16:48 +02:00
|
|
|
|
end, function() char.earth = 0; walk('start3'); return '-- А вы не… Хотя это не моё дело.'; end},
|
2017-02-20 11:18:44 +02:00
|
|
|
|
-- нет эффекта
|
|
|
|
|
{'Да, но Луна проиграла.',
|
2017-02-21 16:16:48 +02:00
|
|
|
|
function() char.earth = -1; walk('start3'); return "-- Ой, вы из этих… Извините." end},
|
2017-02-20 11:18:44 +02:00
|
|
|
|
-- + к симпатизирующим Луне
|
|
|
|
|
},
|
2017-02-20 18:40:12 +02:00
|
|
|
|
},
|
2017-02-20 11:18:44 +02:00
|
|
|
|
}
|
|
|
|
|
room {
|
|
|
|
|
nam = 'start3',
|
2017-02-20 18:49:39 +02:00
|
|
|
|
enter = 'Сюда, пожалуйста.',
|
2017-02-20 11:18:44 +02:00
|
|
|
|
decor = [[
|
2017-02-20 18:40:12 +02:00
|
|
|
|
Продолжение^^
|
|
|
|
|
|
|
|
|
|
И тут внезапно {out|диалоги заканчиваются.}
|
|
|
|
|
]],
|
|
|
|
|
obj = {
|
|
|
|
|
obj {
|
|
|
|
|
nam = 'out',
|
|
|
|
|
act = function()
|
|
|
|
|
walk('chos')
|
|
|
|
|
end
|
|
|
|
|
}
|
|
|
|
|
}
|
2017-02-20 11:18:44 +02:00
|
|
|
|
}
|
|
|
|
|
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 = [[
|
|
|
|
|
Вы забираетесь на склон горы. Здесь стоит
|
|
|
|
|
|
|
|
|
|
Отсюда хорошо видна вся Жестиана.
|
|
|
|
|
]]
|
|
|
|
|
}
|