Склонятор названия предмета согласно количеству

Обновлено: добавил переменную для смещения данных в массиве, на случай, если вы уже пользуетесь массивом и храните в 1/2/3 его строке что-то. Переменная itds в objarrs. Можно так же раскоментировать строчку, смещающую и ячейку количества, если по какой-то причине количество не в нулевой хранится. Ссылка прежняя.

Обновлено. Версия 1.5
Работа в «полевых условиях» показала, что нужно ещё пара вариантов ради гибкости в тексте. А параллельно перелопатил весь код. Так же встроил в квест из Космических рейнджеров, ибо лазил туда исправлять код, из-за которого невозможно было выступать в боях или получить массаж. Заодно проверил практическую применимость, отловив последние баги и неудобства.
Теперь вот чего умеет выдать в зависимости от указания параметров:
формат 0: 0 хмудр / 1 хмудра / 2 хмудры
формат 1: не осталось хмудр / 1 хмудра / 2 хмудры
формат 2: хмудр / хмудра / хмудры
формат 3: Хмудр / Хмудра / Хмудры
при добавлении номера эпитета, добавит его: 0 кузявых хмудр
(в демке показано, как подставить случайный из набора)

К чему такие сложности? Заполнение массива вариантами написания, тяжеловесные перечисления, множество правил.
всего три варианта написания для ВСЕХ чисел:
0 монет
1 монета
2 монеты
5 монет
11 монет
101 монета
…
Вот функция, выбирающая окончание по числу. Варианты окончаний передаются аргументом в виде одна|две-три…|ноль-пять-одинадцать….

!# get.word.end
! вычисляет окончание по числу.
! args[0] - число
! $args[1] - окончания в формате a|b|c
args[0] = args[0]
$args[1] = $args[1]
! деньги
args[2] = args[0] mod 10
args[3] = args[0] mod 100
$args['gwenda']='gwe_error'
if args[2]=1 and args[3]!11:
	$args['gwenda']=$func('get.word.inPos',$args[1],1)
end
if args[2]>1 and args[2]<5 and (args[3]<5 or args[3]>20):
	$args['gwenda']=$func('get.word.inPos',$args[1],2)
end
if args[2]=0 or args[2]>4 or (args[3]>10 and args[3]<21):
	$args['gwenda']=$func('get.word.inPos',$args[1],3)
end
$result=$args['gwenda']

Функция использует ещё одну функцию, она тоже весьма проста:

!# get.word.inPos
! Функция получает из строки вида ввв|jdkdk|kdkdk|kdkdk|... ...|воволвлв строку стоящую в указанной позиции
! $args[0] - строка
! args[1] - номер позиции
if $args[2] = '': $args[2]='|'
$args[0] = $args[0]+$args[2]
args[1] = args[1]
:for
if len($args[0])>0 and args[1]>0:
	if instr($args[0],$args[2])>0:
		$args['cs'] = $mid ($args[0],1,instr($args[0],$args[2]))
		$args[0] = $mid($args[0],instr($args[0],$args[2])+1)
	else
		$args['cs']=$args[0]
		$args[0]=''
	end
	! *pl str(args[1])+'^'+$args['1']
	args[1]-=1
	if args[1]>0: jump 'for'
end
$result=$replace($args['cs'],$args[2])

Пример использования:

"У меня в кармане <<крышки[0]>> крыш<<$func('get.word.end',крышки[0],'ка|ки|ек')>>."

Твоя версия удобна для разового использования на случайное слово в тексте. А когда у тебя на одну локацию оно по 10 раз, сильно хочется сократить вызов и не допустить опечаток.

Функция нужна для того чтобы
а) один раз заполнить одну строку (для этого строка а ) и вызывать минимальным текстом: func(’chisskl’,’крышки’). И ничто не мешает сменить вариант по умолчанию. или сократить до func(’chsk’,’Кр’) в случае если это вездесущий мусор какой — слово всё равно полное будет выдаваться из массива.

б) Не быть зажатым только одним форматом, сохраняя полную гибкость языка. И иметь возможность добавить второй формат.

в) подставь в свою версию инженеров-подводников: или дважды вызывать функцию или каждый раз писать ‘ов-подводников|ов-подводник|ов-подводники’ или путаться инженеры они или инженеры подводники.

г) патроны могут быть простыми, трассирующими, зажигательными, бронебойными. Мне нужно указать лишь цифру и добавить +args[2]-1 в код функции, чтобы она читала количество не только из патроны[0], но и из 1,2,3.
func(’chisskl’,’патроны’,0,4) даст мне «22 бронебойных патрона».

Представь, что ты уже 50 локаций сделал, а потом узнаёшь, что слово не так пишется. Ты пойдёшь по всем 50 локациям, автозаменой конечно, и всё же. Мне — изменить строчку словаря. Понадобился новый формат, например патроны:_1? Ты каждый раз будешь писать — я добавлю в функцию и буду вызывать func(’chsk’,’Кр’,4)

в) с возможностью варьировать эпитеты к одному слову и случайно и точно и изредка вводя новый эпитет.

г) функция и делит на 3 варианта 0,5—20/1/2-4.

д) функция избавляет от неграмотного «ноль патронов». Так не говорят «у меня ноль патронов», но в инвентаре и таблице допустимо и удобно. В тексте же «нет патронов»

Обновлено: ещё раз почищен код, более хитро задан диапазон.
Для тех, кому только одно слово склонять — простая версия функции.
Самый компактный выбор, который сумел сделать (i= 0/1/2):

i=0
if no (10<ld[1] and ld[1]<15):
	if ld[0]=1:i=i+1
	if 1<ld[0] and ld[0]<5: i=i+2 &!2—4, но 12—14 уже отсеяны
end

Aleks Versus, то что у тебя на две функции распепячено, у меня в итоге заняло 18 строк. При более компактном вызове и удобном заполнении вариантов. Бе-бе-бе :D
В общем изобретать велосипеды иногда не вредно. За помощь и указание на недочёты конечно же спасибо!