sixth_city/game.lua

playerdesc = stat {
  nam = function()
    pn(txtc(txtb(_('Персонаж'))));
    pn(_('Связи')..': '..pl._connections);
    pn(_('Дерзость')..': ' .. pl._boldness);
    pn(_('Осторожность')..': ' .. pl._caution);
  end,
}
take('playerdesc');

connected = function(i)
  pl._connections = pl._connections + i;
  pn (_("Параметр Связи увеличился на ")..i..".");
end;

bold = function(i)
  pl._boldness = pl._boldness + i;
  pn (_("Параметр Дерзость увеличился на ")..i..".");
end;

cautious = function(i)
  pl._caution = pl._caution + i;
  pn (_("Параметр Осторожность увеличился на ")..i..".");
end;

turn_back = option(nil, '-- '.._('Вернуться на площадь')..' --', '', 'walk("main")');

put(option(
  'pl._seen_monument ~= true',
  _('Осмотреть памятник'),
  _([[Чёрный памятник без таблички изображает высокого мужчину в старомодном плаще, который держит в руках раскрытый зонт. Мужчина застыл, направив взгляд на небо.^^
  На основании памятника нацарапано: "Господин Гронц видел тебя"]]),
  function() connected(1); pl._seen_monument = true; end
));
put(option(nil, _('Посетить музей Сгоревших Свечей'), nil, 'walk("museum")'));
put(option(nil, _('Найти Глиняную Башню'), nil, 'walk("clock")'));
put(option(nil, _('Искать Отделение Криминального Давления'), nil, 'walk("police")'));

clock = choice {
  nam = _('Глиняная Башня'),
  enter = _([[Вы подходите к старинной башне, целиком вылепленной из красной глины.]]),
  dsc = _([[На верхушке башни находится циферблат часов, застрявших на шести часах двадцати минут.]]),
  obj = {turn_back}
}

museum = choice {
  nam = _('Музей Сгоревших Свечей'),
  dsc = _('Музей Сгоревших Свечей -- это здание середины девятнадцатого века, изрядно потрёпанное временем.'),
  enter = _('На входе вам дают кусочек воска, на котором написан номер билета.'),
  exit = _('Вы кидаете билет в камин, горящий на выходе.'),
  obj = {turn_back}
}

police = choice {
  nam = _('Отделение Криминального Давления'),
  dsc = _([[Буклет-путеводитель описывает Отделение Криминального Давления как "департамент наивысшей безопасности по защите от наихудшей преступности."]]),
  enter = _([[Издалека вам кажется, что здание О.К.Д. украшено живыми прыгучими мышами, но вблизи вы видите, что мышей всего лишь колышет лёгкий ветер. В здание часто заходят люди в тёмно-синей форме, но, насколько вы можете заметить, через тяжёлые двери выходят немногие. Вы не замечаете ничего странного, входя внутрь, только половицы слишком громко скрипят.]]),
  obj = {}
}
thief_option = option('pl._boldness < 5 and not have("cent")', _('Вы засовываете руку в карман и находите там чужую'), nil, 'walk("thief")');
put ('thief_option', 'police');
put(option('pl._boldness < 5 and not have("clay_leg")', _('На вас бросается женщина...'), nil, 'walk("eradication")'), 'police');
put (turn_back, 'police');

thief = choice {
  nam = _('Вы засовываете руку в карман и находите там чужую'),
  dsc = _([[Вы засовываете руку в карман и находите там чужую. Вы разворачиваетесь и видите грязного мальчика, который пытается спрятать лицо под дырявой кепкой.]]),
  obj = {}
}
put(option(nil, _('Побить вора'), _('Вы перетряхиваете мальчугана на всё, что у него есть. Он отдаёт вам единственную монетку и теряется в тумане.'),function()
    connected(1);
    bold(1);
    take('cent');
    walk('police');
  end
), 'thief');

put(option(nil, _('Отпустить и проследить за ним'), _([[Вы отпускаете мальчугана и осторожно следуете за ним. Он отбегает в сторону, оглядывается, и, не заметив вас в тумане, идёт по переулкам к старому фонтану на Площади Жути.^^
    По пустой улице проносится слабый звон, и мальчик быстро исчезает в одном из домов. Вы подходите к пересохшему фонтану и видите одинокую монетку, которая блестит на дне. Вы поднимаете монетку и осматриваете её. Выглядит интересно. ]]),function()
    cautious(1);
    connected(1);
    take('cent');
    walk('police');
  end
), 'thief');

cent = obj {
  nam = _('цент'),
  inv = _('Потемневшая монета в одну местную копейку. На реверсе монеты иголкой нацарапана спираль.')
}

eradication = choice {
  nam = _('На вас бросается женщина...'),
  dsc = _([[На вас бросается женщина с зарёванным лицом. Мужчина в форме, с которым она до этого разговаривала, облегчённо вздыхает и уходит по своим делам. ^
    -- Пожалуйста! Может, хоть вы мне поможете? Я не могу попасть домой и у меня нет с собой денег, чтобы заплатить Охотникам. Я не могу пробиться через эти грибы!]]),
  obj = {
    option(nil, _('Следовать к её дому'), nil, 'walk("eradication_cont")'),
  }
}
eradication_cont = choice {
  nam = _('Дом в квартале Улыбающихся Гончаров'),
  enter = _([[Она живёт к западу от Глиняной Башни, в квартале Улыбающихся Гончаров. Вы медленно пробираетесь по петляющим улочкам и, наконец, выходите к старому домику, перед которым раскинулись высокие коричневые заросли грибов.Она даёт вам белый платок и показывает, как его завязать на лицо.]]),
  dsc = _([[-- Вы видите? Я не могу пройти к дому, не наглотавшись спор. Я читала, что споры этих грибов превращают людей в.. в глину!]]),
  obj = {},
}

-- тут можно придумать дополнительные варианты в зависимости от инвентаря
put(option(nil, _('Медленно протоптать дорожку'), _([[Осторожно контролируя вес, вы протаптываете дорожку через заросли грибов. Придётся ходить только в масках, но теперь здесь есть шансы жить.^^
    -- Спасибо! Вот вам за труды. -- Женщина протягивает изогнутый кусок пластилина. -- Говорят, за ноги Пластилиновых Творений дорого платят в музее Сгоревших Свечей. ]]),function()
    cautious(1);
    take('clay_leg');
    walk('police');
  end),
'eradication_cont');

put(option(nil, _('Быстро перепрыгнуть через заросли'), _([[Разбежавшись, вы перепрыгиваете заросли и приземляетесь на пороге дома. Похоже, хозяйке придётся упражняться в прыжках, но хотя бы у неё появились шансы здесь жить.^^
    -- Спасибо! Вот вам за труды. -- Женщина протягивает изогнутый кусок пластилина. -- Говорят, за ноги Пластилиновых Творений дорого платят в музее Сгоревших Свечей. ]]),function()
    bold(1);
    take('clay_leg');
    walk('police');
  end),
'eradication_cont');

clay_leg = obj {
  nam = _('пластилиновая нога'),
  inv = _('Нога Пластилинового Творения.')
}

put(option('pl._connections > 0', _('Сесть на поезд домой'), nil, "walk('endgame')"));

endgame = room {
  nam = _('Конец игры'),
  dsc = _([[Ваше время в этом мрачном городе закончено, и вы уезжаете на старом поезде, всё ещё слишком чужой для того, чтобы остаться.^^]])..txtc(_('КОНЕЦ')),
}