merentha_mudos_v1/
merentha_mudos_v1/bin/
merentha_mudos_v1/lib/cfg/
merentha_mudos_v1/lib/cfg/races/
merentha_mudos_v1/lib/cmds/abilities/
merentha_mudos_v1/lib/cmds/actions/
merentha_mudos_v1/lib/cmds/spells/
merentha_mudos_v1/lib/daemon/include/
merentha_mudos_v1/lib/daemon/services/
merentha_mudos_v1/lib/doc/
merentha_mudos_v1/lib/doc/building/
merentha_mudos_v1/lib/doc/help/classes/
merentha_mudos_v1/lib/doc/help/general/
merentha_mudos_v1/lib/doc/help/races/
merentha_mudos_v1/lib/doc/help/skills/
merentha_mudos_v1/lib/doc/help/stats/
merentha_mudos_v1/lib/doc/man/efuns/
merentha_mudos_v1/lib/doc/man/lfuns/
merentha_mudos_v1/lib/doc/news/
merentha_mudos_v1/lib/doc/old/
merentha_mudos_v1/lib/doc/old/concepts/
merentha_mudos_v1/lib/doc/old/lpc/constructs/
merentha_mudos_v1/lib/doc/old/lpc/types/
merentha_mudos_v1/lib/domains/ROOMS/
merentha_mudos_v1/lib/domains/obj/armour/
merentha_mudos_v1/lib/domains/obj/monsters/
merentha_mudos_v1/lib/domains/obj/other/
merentha_mudos_v1/lib/domains/obj/weapons/
merentha_mudos_v1/lib/realms/petrarch/
merentha_mudos_v1/lib/save/daemons/
merentha_mudos_v1/lib/save/rid/
merentha_mudos_v1/lib/save/users/a/
merentha_mudos_v1/lib/save/users/p/
merentha_mudos_v1/lib/save/users/t/
merentha_mudos_v1/lib/std/login/
merentha_mudos_v1/lib/std/obj/
merentha_mudos_v1/v22.2b12m1/
merentha_mudos_v1/v22.2b12m1/ChangeLog.old/
merentha_mudos_v1/v22.2b12m1/Win32/
merentha_mudos_v1/v22.2b12m1/compat/
merentha_mudos_v1/v22.2b12m1/compat/simuls/
merentha_mudos_v1/v22.2b12m1/include/
merentha_mudos_v1/v22.2b12m1/mudlib/
merentha_mudos_v1/v22.2b12m1/testsuite/
merentha_mudos_v1/v22.2b12m1/testsuite/clone/
merentha_mudos_v1/v22.2b12m1/testsuite/command/
merentha_mudos_v1/v22.2b12m1/testsuite/data/
merentha_mudos_v1/v22.2b12m1/testsuite/etc/
merentha_mudos_v1/v22.2b12m1/testsuite/include/
merentha_mudos_v1/v22.2b12m1/testsuite/inherit/
merentha_mudos_v1/v22.2b12m1/testsuite/inherit/master/
merentha_mudos_v1/v22.2b12m1/testsuite/log/
merentha_mudos_v1/v22.2b12m1/testsuite/single/
merentha_mudos_v1/v22.2b12m1/testsuite/single/tests/compiler/
merentha_mudos_v1/v22.2b12m1/testsuite/single/tests/efuns/
merentha_mudos_v1/v22.2b12m1/testsuite/single/tests/operators/
merentha_mudos_v1/v22.2b12m1/testsuite/u/
merentha_mudos_v1/v22.2b12m1/tmp/
#ifndef __SEFUN_NUMBERS_H__
#define __SEFUN_NUMBERS_H__
#define NUMBERS ({"no", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten"})
#define TENS ({"no", "ten", "twenty", "thirty", "fourty", "fifty", "sixty", "seventy", "eighty", "ninety"})
#endif

string formal_number(int i) {
    string tmp=(""+i)[<1..<1], ret="";
    if(i>99) return "dozens";
    switch (i) {
    case(11) : return "eleven"; break;
    case(12) : return "twelve"; break;
    case(13) : return "thirteen"; break;
    case(14) : return "fourteen"; break;
    case(15) : return "fifteen"; break;
    case(16) : return "sixteen"; break;
    case(17) : return "seventeen"; break;
    case(18) : return "eightteen"; break;
    case(19) : return "ninteen"; break;
    default :
	if(tmp!="0") ret=(i>10?"-":"")+NUMBERS[to_int(tmp)];
	i=i/10;
	return (i?TENS[i]:"")+ret;
    }
    return i;
}

string ordinal(int i) {
    string tmp=(""+i)[<1..<1];
    if(i==11 || i==12 || i==13) return ""+i+"th";
    if(tmp=="1") return ""+i+"st";
    if(tmp=="2") return ""+i+"nd";
    if(tmp=="3") return ""+i+"rd";
    return ""+i+"th";
}

string plural(string str) {
    mapping special=(["moose":"moose","mouse":"mice",]);
    int i;
    if(i=member_array(str, keys(special))!=-1) return special(keys(special)[i]);
    return str+"s";
}

string consolidate(int i, string item, int a) {
    string *words;
    string word, p;
    int x,y;
    if(i==1 && a) return "a "+item;
    if(i==1) return item;
    words=explode(item, " ");
    if(member_array(words[0],({"a","A","The","the"}))!=-1) {
	item=implode(words[1..<1]," ");
	words=explode(item, " ");
    }
    x=sizeof(words)-1;
    while (x && words[x][0..0]=="(") x--;
    if(y=member_array("of",words)) if(y>0) x=y-1;
    word=words[x];
    p=formal_number(i);
    words[x]=plural(word);
    return (a && i>8 ? "many" : p)+" "+implode(words," ");
}