[SCRIPT]Склонение числительных

[wl.illusion]

[script] Склонение числительных

Описание

Популярная функция склонение числительных (для тех кто пишет скрипты на русском языке).

Переписана из другого языка программирования в общем ничего особенного, но очень полезно.

Скачать

Скачать библиотеку содержащую данный скрипт (версия 1.00.1): скачать

Скрипт

// Склонение числительных
// getarg(0) - число
// getarg(1)-getarg(3) - числительные
function script nt__declOfNum {
setarray .@cases[0], 2, 0, 1, 1, 1, 2;
set .@number, getarg(0);
set .@view, 1+((.@number%100 > 4 && .@number%100 < 20) ? 2 : .@cases[ (.@number%10 < 5) ? .@number%10 : 5 ]);
return .@number+" "+ getarg(.@view);
}

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

Простенький пример для понимания:

callfunc("nt__declOfNum", .@price_cash, "купон", "купона", "купонов")

Небольшой пример использования:

prontera,147,188,4 script Проверка скрипта 74,{

L_MainLoop:
mes "[Скрипт-Тест]";
mes "Введите любое число, 0 - выход из проверки.";
next;
input .@number;

if ( !.@number ) close;

mes "[Скрипт-Тест]";
mes "Вы ввели ^FF5500"+(callfunc("nt__declOfNum", .@number, "купон", "купона", "купонов"))+"^000000";
next;
goto L_MainLoop;

}

Подобная функция будет полезна только писателям русскоязычных скриптов.

Изменено 17 января, 2013 пользователем wl.illusion