duel/main3.lua

--$Author:Alexander Yakolev, 2017
--$Version:1.0
require "format"
require 'dbg'
format.dash = true
format.quotes = true
format.para = true
declare "pl"({})
rndstr = function(strings)
	return strings[rnd(stead.table.maxn(strings))];
end
-- 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
dlg {
  nam = 'main',
  dsc = [[
    От автобусной остановки до дома Чо было полтора километра.
    По пути вы осматривали окрестности: высокая гора, бесконечные пашни
    и маленькое село вокруг единственной колонки с водой.^^

    Семья Чо отгородилась от села широкой полосой деревьев.
    Их пашня не отличалась от остальных: такое же чёрное поле с рядами
    роботов, которые молча копались в земле. Перед полем стоял
    невысокий красновато-чёрный дом с двумя окнами.^^

    На стук в дверь открыла низенькая черноволосая девушка.^^

    -- А, так вы тот инженер из города? Проходите, мы сейчас всё покажем.
    Я же правильно говорю, вы же инженер?
  ]],
  obj = {
    {
    {'Инженер (она)', function() pl.gender = "she"; pl.plural = false; walk('start2'); end},
    {'Инженер (он)', function() pl.gender = "he"; pl.plural = false; walk('start2'); end},
    {'Инженер (оно)', function() pl.gender = "it"; pl.plural = false; walk('start2'); end},
    {'Инженер (они)', function() pl.gender = "they"; pl.plural = false; walk('start2'); end},
    {'Инженеры (они)', function() pl.gender = "they"; pl.plural = true; walk('start2'); end}
    }
  }
}
pl.engineer = function()
  if pl.plural == true then
    return 'инженеры'
  end
  return 'инженер'
end
pl.pronoun_3 = function()
  if pl.gender == 'she' then
    return 'она'
  end
  if pl.gender == 'he' then
    return 'он'
  end
  if pl.gender == 'it' then
    return 'оно'
  end
  return 'они'
end
pl.pronoun_1 = function()
  if pl.plural == true then
    return 'мы'
  end
  return 'я'
end
pl.endings = function()
  if pl.plural == true then
    return 'и'
  end
  if pl.gender == 'she' then
    return 'а'
  end
end
dlg {
  nam = 'start2',
  decor = function() 
    return [[
      -- А, это хорошо что ]]..pl.engineer()..[[.
      Мы уже думали, что наша гарантия всё.
      Это же такие старые роботы, всё время в поле.^^
      
      Она вышла из дома и пригласила вас за собой.
      Вы шли вдоль поля; металлические рабочие не обращали на вас внимания.

      -- Вы знаете, у нас же нет других машин.
      Когда-то хотели купить что-нибудь для дома, но тут эта война с Луной…
      Вы были на войне?
    ]]
  end,
  obj = {
    {
      {function()
        return [[Цех РБ-23, с первого до последнего дня. Чинил]]..pl.endings()..[[ ремонтных ботов.]]
      end, function() pl.earth = 1; walk('start3') end}, -- + к симпатизирующим Земле
      {function()
        return 'Нет, '..pl.pronoun_1()..' не был'..pl.endings()..'.'
      end, function() pl.earth = 0; walk('start3') end},
      -- нет эффекта
      {'Да, но Луна проиграла.',
      function() pl.earth = -1; walk('start3') end},
      -- + к симпатизирующим Луне
    },
  }
}
room {
  nam = 'start3',
  decor = [[
  ]]
}
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 = [[
    Вы забираетесь на склон горы. Здесь стоит 
    
    Отсюда хорошо видна вся Жестиана.
  ]]
}