Merge branch 'verbs'

2020-12-24 21:58:36 +07:00 · 2020-12-24 21:58:36 +07:00 · ae03946923
parent e12d786075 a5f19d7d8b
commit ae03946923
6 changed files with 67 additions and 207 deletions
--- a/README.md
+++ b/README.md
@ -19,3 +19,6 @@
 - Спать

 [История версий](CHANGELOG.md) - лёгкие спойлеры
+
+### Использованные иллюстрации
+https://unsplash.com/photos/fNj7ca7nC1I
--- a/19
+++ b/19
@ -12,20 +12,15 @@
 закрыть сейф
 осмотреть вырезатель
 взять вырезатель
-выставить К
-стрелять в пластинку
-выставить С
-стрелять в пластину
-выставить Л
-стрелять в платину
+вырезать К из пластинку
+вырезать К из пластинки
+вырезать С из пластины
+вырезать Л из платины
 взять батарею
 вставить батарею в робота
-выставить В
-стрелять в рукав
+вырезать В из рукава
 вставить руку в робота
 включить робота
-выставить К
-стрелять в булавку
-выставить Т
-стрелять в щит
+вырезать К из булавки
+вырезать Т из щита
 юг
--- a/bgr/vaporwave.jpg
+++ b/bgr/vaporwave.jpg
--- a/custom_parser.lua
+++ b/custom_parser.lua
@ -1,5 +1,6 @@
 -- Здесь мы настраиваем парсер.
 local mrd = require "morph/mrd"
+local msg = dprint or print

 mp.msg.SCENE = "{#Me} {#plural/находишься,находитесь} {#if_has/#here,supporter,на,в} {#here/пр,2}.";
 mp.msg.Exam.DEFAULT = "{#Me} не {#g/видишь,видите} {#vo/{#first/пр}} ничего необычного.";
@ -113,16 +114,6 @@ function mp.shortcut.g(options)
  return options[1]
 end

-Verb {
-  "#Shoot",
-  'стрел/ять,вырез/ать',
-  -- дань удобству - можно опустить предлог
-  '~ {noun}/вн,scene : LetterShoot',
-  '~ в|во {noun}/вн,scene : LetterShoot',
-  '~ из {noun}/рд в|во {noun}/вн,scene : LetterShoot',
-  '~ из {noun}/тв,scene : WrongShoot',
-}
-
 function HasChar(str, skipc)
  if type(str) ~= 'string' then
    return false
@ -137,29 +128,40 @@ function StrCut(str, skipc)
  return str:gsub(skipc, '')
 end

-function mp:WrongShoot(w)
-  return 'Правильная команда: стрелять (во что-то)';
-end
+Verb {
+  "#Shoot",
+  'вырез/ать',
+  '~ * из {noun}/рд,scene : SetShoot',
+}

-function mp:LetterShoot(w)
+function mp:SetShoot(what, letter)
  if not pl:have('letterremover') then
    return 'Нечем.';
  end
-  if (w:has 'animate') then
+  if (what:has 'animate') then
    return 'Вырезатель не работает на живых.';
  end
-  if (w:has 'essential') then
+  if (what:has 'essential') then
    return 'Это слишком полезная вещь, чтобы её вырезать.';
  end
-  local letter = _('letterremover').letter;
+  if type(letter) ~= 'string' then
+    return 'Вырезатель можно установить только на букву.';
+  end
+  -- string.len считает байты, а надо символы; utf8.len в инстеде не работает
+  if #(letter):gsub('[\128-\191]', '') == 0 then
+    return 'Вырезатель можно установить только на букву русского алфавита.';
+  end
+  if #(letter):gsub('[\128-\191]', '') > 1 then
+    return 'Вырезатель можно установить только на одну букву.';
+  end
  local lcaseletter = mrd.lang.lower(letter);
-  if w.canonical == nil or w.canonical == '' then
-    w.canonical = w.word
+  if what.canonical == nil or what.canonical == '' then
+    what.canonical = what.word
  end
-  if not HasChar(w.canonical, lcaseletter) then
-    return 'Вырезатель настроен на букву '..letter..', которой нет в слове «'..w.canonical..'».';
+  if not HasChar(what.canonical, lcaseletter) then
+    return 'Вырезатель настроен на букву '..letter..', которой нет в слове «'..what.canonical..'».';
  end
-  local newCanonical = StrCut(w.canonical, lcaseletter);
+  local newCanonical = StrCut(what.canonical, lcaseletter);
  local newTarget = lookup(newCanonical);
  if not newTarget then
    -- продолжаем поиск полным перебором
@ -171,174 +173,14 @@ function mp:LetterShoot(w)
    end)
  end
  if newTarget then
-    w:remove();
+    what:remove();
    put(newTarget, here());
-    pn('Вы стреляете в '.. w:noun'вн' ..',и это вырезается в '..newCanonical..'.');
+    pn('Вы стреляете в '.. what:noun'вн' ..',и '..what:it('им')..' вырезается в '..newCanonical..'.');
    if newTarget.oncreate ~= nil then
      newTarget.oncreate()
    end
    return;
  end
-  return 'Вы стреляете в '.. w:noun'вн' ..' и '.. w:it('им') ..' мигает в слабом тумане букв «'..newCanonical..'», но затем возвращается в прежнее состояние.';
-end
+  return 'Вы стреляете в '.. what:noun'вн' ..' и '..what:it('им')..' мигает в слабом тумане букв «'..newCanonical..'», но затем возвращается в прежнее состояние.';

-Verb {
-  "#Set",
-  'установ/ить,выстав/ить',
-  -- см. проблему #3 - я не хочу определять ещё 33*4 вариации
-  --'~ вырезатель на А: LetterSetA',
-  --'~ вырезатель на а: LetterSetA',
-  --'~ а на вырезателе: LetterSetA',
-  --'~ А на вырезателе: LetterSetA',
-  '~ А: LetterSet1',
-  '~ Б: LetterSet2',
-  '~ В: LetterSet3',
-  '~ Г: LetterSet4',
-  '~ Д: LetterSet5',
-  '~ Е: LetterSet6',
-  '~ Ё: LetterSet7',
-  '~ Ж: LetterSet8',
-  '~ З: LetterSet9',
-  '~ И: LetterSet10',
-  '~ Й: LetterSet11',
-  '~ К: LetterSet12',
-  '~ Л: LetterSet13',
-  '~ М: LetterSet14',
-  '~ Н: LetterSet15',
-  '~ О: LetterSet16',
-  '~ П: LetterSet17',
-  '~ Р: LetterSet18',
-  '~ С: LetterSet19',
-  '~ Т: LetterSet20',
-  '~ У: LetterSet21',
-  '~ Ф: LetterSet22',
-  '~ Х: LetterSet23',
-  '~ Ц: LetterSet24',
-  '~ Ч: LetterSet25',
-  '~ Ш: LetterSet26',
-  '~ Щ: LetterSet27',
-  '~ Ъ: LetterSet28',
-  '~ Ы: LetterSet29',
-  '~ Ь: LetterSet30',
-  '~ Э: LetterSet31',
-  '~ Ю: LetterSet32',
-  '~ Я: LetterSet33',
-}
-
-function mp:LetterSet(w)
-  if not pl:have('letterremover') then
-    return 'Нечем.';
-  end
-  if type(w) ~= 'string' then
-    return 'Вырезатель можно установить только на букву русского алфавита.';
-  end
-  --if string.len(w) > 1 then
-  --  return 'Вырезатель можно установить только на одну букву.';
-  --end
-  local letter = _('letterremover').letter;
-  if letter ~= w then
-    _('letterremover').letter = w
-    return 'Вырезатель будет вынимать букву '..w..'.';
-  end
-  return 'Вырезатель уже работает на частоте буквы '..w;
-end
-
-function mp:LetterSet1()
-  return mp:LetterSet('А')
-end
-function mp:LetterSet2()
-  return mp:LetterSet('Б')
-end
-function mp:LetterSet3()
-  return mp:LetterSet('В')
-end
-function mp:LetterSet4()
-  return mp:LetterSet('Г')
-end
-function mp:LetterSet5()
-  return mp:LetterSet('Д')
-end
-function mp:LetterSet6()
-  return mp:LetterSet('Е')
-end
-function mp:LetterSet7()
-  return mp:LetterSet('Ё')
-end
-function mp:LetterSet8()
-  return mp:LetterSet('Ж')
-end
-function mp:LetterSet9()
-  return mp:LetterSet('З')
-end
-function mp:LetterSet10()
-  return mp:LetterSet('И')
-end
-function mp:LetterSet11()
-  return mp:LetterSet('Й')
-end
-function mp:LetterSet12()
-  return mp:LetterSet('К')
-end
-function mp:LetterSet13()
-  return mp:LetterSet('Л')
-end
-function mp:LetterSet14()
-  return mp:LetterSet('М')
-end
-function mp:LetterSet15()
-  return mp:LetterSet('Н')
-end
-function mp:LetterSet16()
-  return mp:LetterSet('О')
-end
-function mp:LetterSet17()
-  return mp:LetterSet('П')
-end
-function mp:LetterSet18()
-  return mp:LetterSet('Р')
-end
-function mp:LetterSet19()
-  return mp:LetterSet('С')
-end
-function mp:LetterSet20()
-  return mp:LetterSet('Т')
-end
-function mp:LetterSet21()
-  return mp:LetterSet('У')
-end
-function mp:LetterSet22()
-  return mp:LetterSet('Ф')
-end
-function mp:LetterSet23()
-  return mp:LetterSet('Х')
-end
-function mp:LetterSet24()
-  return mp:LetterSet('Ц')
-end
-function mp:LetterSet25()
-  return mp:LetterSet('Ч')
-end
-function mp:LetterSet26()
-  return mp:LetterSet('Ш')
-end
-function mp:LetterSet27()
-  return mp:LetterSet('Щ')
-end
-function mp:LetterSet28()
-  return mp:LetterSet('Ъ')
-end
-function mp:LetterSet29()
-  return mp:LetterSet('Ы')
-end
-function mp:LetterSet30()
-  return mp:LetterSet('Ь')
-end
-function mp:LetterSet31()
-  return mp:LetterSet('Э')
-end
-function mp:LetterSet32()
-  return mp:LetterSet('Ю')
-end
-function mp:LetterSet33()
-  return mp:LetterSet('Я')
 end
--- a/rooms/pantry.lua
+++ b/rooms/pantry.lua
@ -46,6 +46,12 @@ obj {
  before_Open = 'На щите нет дверной ручки.';
  before_Listen = 'Не пропускает. Звук.';
  before_Attack = 'Не пробивается.';
+}: dict {
+  ['щит/рд'] = 'щита';
+  ['щит/дт'] = 'щиту';
+  ['щит/вн'] = 'щит';
+  ['щит/тв'] = 'щитом';
+  ['щит/пр'] = 'щите';
 }:attr 'scenery,static'

 obj {
@ -77,12 +83,12 @@ obj {
    return 'На полу лежит вырезатель.';
  end;
  description = function(s)
-    return '«Вырезатель ЕДАКТО-12» выглядит как древний пистолет с маленьким дисплеем и кнопками. На дисплее горит буква «'..s.letter..'». Из него можно СТРЕЛЯТЬ во что-то. Чтобы выставить букву А, напишите ВЫСТАВИТЬ А.';
+    return '«Вырезатель ЕДАКТО-12» выглядит как древний пистолет с маленьким дисплеем и кнопками. На дисплее горит буква «'..s.letter..'». Напишите ВЫРЕЗАТЬ Ш ИЗ чего-нибудь.';
  end;
  inv = function(s)
    return s.letter..'-вырезатель'
  end;
-  before_Shoot = 'Не {#plural/размахивай,размахивайте} этой штукой! Надо стрелять во что-то определённое.';
+  before_Shoot = 'Не {#plural/размахивай,размахивайте} этой штукой! Её надо направить во что-то определённое.';
 }: dict {
  ['вырезатель/рд'] = 'вырезателя';
  ['вырезатель/дт'] = 'вырезателю';
@ -271,6 +277,12 @@ obj {
  nam = 'rukav';
  canonical = 'рукав';
  description = 'Несколько метров серого пожарного рукава. Кто-то прорезал в нём дырки в форме звёздочек. При пожаре он не поможет, но хотя бы выглядит красиво.';
+}: dict {
+  ['рукав/рд'] = 'рукава';
+  ['рукав/дт'] = 'рукаву';
+  ['рукав/вн'] = 'рукав';
+  ['рукав/тв'] = 'рукавом';
+  ['рукав/пр'] = 'рукаве';
 }

 obj {
--- a/theme.ini
+++ b/theme.ini
@ -3,16 +3,21 @@ scr.w = 500
 scr.h = 600

 scr.col.bg = white
+scr.gfx.bg = bgr/vaporwave.jpg

-win.x = 20
-win.y = 20
-win.w = 460
-win.h = 500
+; Границы окна: 500x600
+; Границы полей: 30x30, 470x30, 30x570, 470x570
+; Границы текстового поля: 30x30, 470x30, 30x480, 470x480
+; Границы поля ввода: 30x500, 470x500, 30x570, 470x570
+win.x = 30
+win.y = 30
+win.w = 440
+win.h = 450

-inv.x = 20
-inv.y = 520
-inv.w = 460
-inv.h = 40
+inv.x = 30
+inv.y = 500
+inv.w = 440
+inv.h = 70

 inv.col.link = #666666
 inv.col.fg = #000000