Окончания слов

[Lilith]

Бывало сталкивался с проблемой образования окончаний у слов, которые обозначают множество того или иного.

К примеру, у одного игрока 123 TCG карты, у другого 61 и т.д. Как правильно определить окончание для слова 'карта' в каждом случае?

Написал маленькую функцию, думаю, резберётесь.

prontera,150,180,5 script Пример 100,{
setarray @word$[1],"карта","карты","карт";
mes "Введите число";
input @c;
mes @c+" "+@word$[callfunc("Suffix",@c)];
close;
}

function script Suffix {
set .@num,getarg(0);

if( .@num == 1 )
return 1;
else if( .@num > 1 && .@num < 5 )
return 2;
else if( !.@num || .@num > 4 && .@num < 21 )
return 3;
else
return callfunc("Suffix",.@num%10);
}