326 lines
7.7 KiB
Lua
326 lines
7.7 KiB
Lua
-- Здесь мы настраиваем парсер.
|
||
local mrd = require "morph/mrd"
|
||
|
||
mp.msg.SCENE = "{#Me} {#plural/находишься,находитесь} {#if_has/#here,supporter,на,в} {#here/пр,2}.";
|
||
|
||
function split(s, sep)
|
||
if sep == nil then
|
||
sep = ","
|
||
end
|
||
local t={}
|
||
for str in string.gmatch(s, "([^"..sep.."]+)") do
|
||
table.insert(t, str)
|
||
end
|
||
return t
|
||
end
|
||
|
||
local function istable(t) return type(t) == 'table' end
|
||
|
||
-- "Ты/вы" в разных падежах: им, род, дат, вин, твор, пред.
|
||
function mp.shortcut.you(case)
|
||
if case == nil or case == '' then
|
||
case = 'им'
|
||
end
|
||
if case == 'им' then
|
||
if pl.plural then
|
||
return 'вы'
|
||
end
|
||
return 'ты'
|
||
end
|
||
if case == 'род' or case == 'рд' then
|
||
if pl.plural then
|
||
return 'вас'
|
||
end
|
||
return 'тебя'
|
||
end
|
||
if case == 'дат' or case == 'дт' then
|
||
if pl.plural then
|
||
return 'вам'
|
||
end
|
||
return 'тебе'
|
||
end
|
||
if case == 'вин' or case == 'вн' then
|
||
if pl.plural then
|
||
return 'вас'
|
||
end
|
||
return 'тебя'
|
||
end
|
||
if case == 'твор' or case == 'тв' then
|
||
if pl.plural then
|
||
return 'вами'
|
||
end
|
||
return 'тобой'
|
||
end
|
||
if case == 'пред' or case == 'пр' then
|
||
if pl.plural then
|
||
return 'вас'
|
||
end
|
||
return 'тебе'
|
||
end
|
||
return 'ты'
|
||
end
|
||
|
||
function mp.shortcut.plural(options)
|
||
if not istable(options) then
|
||
options = split(options)
|
||
end
|
||
|
||
if pl.plural then
|
||
return options[2]
|
||
end
|
||
return options[1]
|
||
end
|
||
|
||
-- {#g/singlefem,singlemasc,singleother,plural}
|
||
function mp.shortcut.g(options)
|
||
if not istable(options) then
|
||
options = split(options)
|
||
end
|
||
if #options == 2 then
|
||
return mp.shortcut.plural(options)
|
||
end
|
||
|
||
if pl.plural then
|
||
return options[4]
|
||
end
|
||
if pl.pronouns == 'fem' then
|
||
return options[1]
|
||
end
|
||
if pl.pronouns == 'masc' then
|
||
return options[2]
|
||
end
|
||
if pl.pronouns == 'other' then
|
||
return options[3]
|
||
end
|
||
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
|
||
end
|
||
return (string.find(str, skipc) ~= nil)
|
||
end
|
||
|
||
function StrCut(str, skipc)
|
||
if type(str) ~= 'string' then
|
||
return str
|
||
end
|
||
return str:gsub(skipc, '')
|
||
end
|
||
|
||
function mp:WrongShoot(w)
|
||
return 'Правильная команда: стрелять (во что-то)';
|
||
end
|
||
|
||
function mp:LetterShoot(w)
|
||
if not pl:have('letterremover') then
|
||
return 'Нечем.';
|
||
end
|
||
if (w:has 'animate') then
|
||
return 'Вырезатель не работает на живых.';
|
||
end
|
||
if (w:has 'essential') then
|
||
return 'Это слишком полезная вещь, чтобы её вырезать.';
|
||
end
|
||
local letter = _('letterremover').letter;
|
||
local lcaseletter = mrd.lang.lower(letter);
|
||
if w.canonical == nil or w.canonical == '' then
|
||
w.canonical = w.word
|
||
end
|
||
if not HasChar(w.canonical, lcaseletter) then
|
||
return 'Вырезатель настроен на букву '..letter..', которой нет в слове «'..w.canonical..'».';
|
||
end
|
||
local newCanonical = StrCut(w.canonical, lcaseletter);
|
||
local newTarget = lookup(newCanonical);
|
||
if not newTarget then
|
||
-- продолжаем поиск полным перебором
|
||
std.for_each_obj(function(v)
|
||
if v.canonical == newCanonical then
|
||
newTarget = v
|
||
return;
|
||
end
|
||
end)
|
||
end
|
||
if newTarget then
|
||
w:remove();
|
||
put(newTarget, here());
|
||
pn('Вы стреляете в '.. w:noun'вн' ..',и это вырезается в '..newCanonical..'.');
|
||
if newTarget.oncreate ~= nil then
|
||
newTarget.oncreate()
|
||
end
|
||
return;
|
||
end
|
||
return 'Вы стреляете в '.. w:noun'вн' ..' и это мигает в слабом тумане букв «'..newCanonical..'», но затем возвращается в прежнее состояние.';
|
||
end
|
||
|
||
Verb {
|
||
"#Set",
|
||
'установ/ить,выстав/ить',
|
||
'~ вырезатель на А: 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
|