ES2 MUD LIB :: 東方故事二(ES2) 天朝帝國 mudlib 瀏覽展示

/*  chinese.c - some routines for Chinese language support

    Copyright (C) 1994-2000 Annihilator 

    This program is a part of ES2 mudlib. Permission is granted to use,
    modify, copy or distribute this program provided this copyright notice
    remains intact and subject to the restriction that this program MAY
    NOT be used in any way for monetary gain.

    Details of terms and conditions is available in the Copyright.ES2 file.
    If you don't receive this file along with this program, write to the
    primary author of ES2 mudlib: Annihilator 
*/

string
chinese_number(int i)
{
    return CHINESE_D->chinese_number(i);
}

string
chinese_period(int i)
{
    return CHINESE_D->chinese_period(i);
}

string
to_chinese(string str)
{
    return CHINESE_D->chinese(str);
}

int
is_chinese(string str)
{
    if( strlen(str)>=2 && str[0] > 160 ) return 1;
    return 0;
}

string
break_chinese_string(string str, int len, mixed indent)
{
    string indent_str;
    int cntr;

    if( !stringp(str) ) return 0;

    if( intp(indent) ) indent_str = sprintf("%*s", indent, " ");
    else if( stringp(indent) ) indent_str = indent;
    else indent_str = "";

    cntr = 0;

    // strip all newlines.
    str = replace_string(str, "\n", "");

    while( strlen(str) > cntr + len ) {
        int br, i;
        for(i=0; i             if( is_chinese(str[cntr+i..<1]) ) {
                br = cntr+i;
                i++;
            }
            if( str[cntr+i]==' ' )
                br = cntr+i;
            i++;
        }
        cntr+=i;
        str = str[0..br-1] + "\n" + indent_str + str[br..<1];
    }
    return str;
}

string
currency_string(int v)
{
    if( v >= 100 ) {
        return chinese_number(v/100) + "兩銀子"
            + ((v%100) ? "又" + chinese_number(v%100) + "文錢" : "");
    }
    return chinese_number(v) + "文錢";
}