string *month_name = ({\
return replace_string(sprintf(\month_name) + 1), day), \ + \}
string log_time() { }
int color_len(string str) {
int i; int extra;
extra = 0;
for (i = 0; i < strlen(str); i++) {
if (str[i] == ESC[0]) {
while((extra++, str[i] != 'm') && i < strlen(str)) i++; } }
return extra; }
string filter_color(string arg) {
arg = replace_string(arg, BLK, \arg = replace_string(arg, RED, \arg = replace_string(arg, GRN, \arg = replace_string(arg, YEL, \return msg;
msg = Chinese_time(msg); string msg = ctime(time());
sscanf(get_time,\
\string year, month, S; int day, I;
21
arg = replace_string(arg, BLU, \arg = replace_string(arg, MAG, \arg = replace_string(arg, CYN, \arg = replace_string(arg, WHT, \arg = replace_string(arg, HIR, \arg = replace_string(arg, HIG, \arg = replace_string(arg, HIY, \arg = replace_string(arg, HIB, \arg = replace_string(arg, HIM, \arg = replace_string(arg, HIC, \arg = replace_string(arg, HIW, \arg = replace_string(arg, NOR, \
// arg = replace_string(arg, HIK, \
arg = replace_string(arg, BOLD, \ arg = replace_string(arg, BLINK, \ arg = replace_string(arg, BBLK, \ arg = replace_string(arg, BRED, \ arg = replace_string(arg, BGRN, \ arg = replace_string(arg, BYEL, \ arg = replace_string(arg, BBLU, \ arg = replace_string(arg, BMAG, \ arg = replace_string(arg, BCYN, \ arg = replace_string(arg, HBRED, \ arg = replace_string(arg, HBGRN, \ arg = replace_string(arg, HBYEL, \ arg = replace_string(arg, HBBLU, \ arg = replace_string(arg, HBMAG, \ arg = replace_string(arg, HBCYN, \ arg = replace_string(arg, HBWHT, \ arg = replace_string(arg, U, \ arg = replace_string(arg, \
return arg; }
string log_id(object ob) {
if(userp(ob)) {
id=geteuid(ob); id=lower_case(id); id=ob->query(\string msg, id;
} else
22
}
msg = sprintf(\msg = sprintf(\return msg;
int money_all_inv(object me) { }
nomask int check_money(object ob, object me) {
int amount;
string desc, name, file;
if (objectp(gold) && gold->query(\ }
return amount;
if(!sscanf(file_name(gold),\
amount+=0;
amount+=gold->value(); else
if (objectp(silver) && silver->query(\ }
if(!sscanf(file_name(silver),\
amount+=0;
amount+=silver->value(); else
if (objectp(coin) && coin->query(\ }
if(!sscanf(file_name(coin),\
amount+=0;
amount+=coin->value(); else
coin=present(\silver=present(\gold=present(\int amount=0;
object coin, silver, gold;
23
if(!ob) return 1;
if(!me || !ob->is_money()) return 0; if(environment(me)->is_room())
name=environment(me)->query(\name=environment(me)->query(\else
if(ob->query(\ }
file=LOG_DIR\if(file_size(file)==-1)
assure_file(file);
|| ob->query(\|| ob->query(\if(ob->query(\
desc=money_num((ob->query_amount()*10000)); else
if(ob->query(\
desc=money_num((ob->query_amount()*100)); else
if(ob->query(\
desc=money_num((ob->query_amount()));
if(!sscanf(file_name(ob),\{ }
log_file(\%s(%s)在%s伪钞%s(%s.c)log_time(), me->name(1), geteuid(me),
me->query_temp(\离线时带有\企图使filter_color(desc), base_name(ob) ));
write(HIR\你身上的伪钞\被系统没收了。\\n\destruct(ob); return 0;
被没收。\\n\
用\
#ifdef WIZARD_FLAG
if( ob && ob->query_wiz_flag() && !wizardp(me) ) {
log_file(\%s(%s)在%s来自巫师的金
钱(%s)，被系统没收。\\n\
24
}
}
log_time(), me->name(1), geteuid(me),
me->query_temp(\离线时带有\企图使filter_color(desc) ));
write(HIR\你身上存有来自巫师的非法金钱(\，被系统没收了。\\n\destruct(ob);
用\
#endif
else
return 1;
int do_look(string arg) {
msg=\
＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ ＊ 购买(buy) 用list查看。 ＊ 卖断(sell)
＊
if(!arg || (arg!=\
return 0;
if(!this_object()->look_sign())
return 0; string msg;
object me=this_player();
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ ＊ 索要当票(givestamps) ＊ ＊ 当品(pawn/diandang) ＊ ＊ 赎回(retrieve/shuhui) ＊ 查阅(stamps/chayue) ＊ ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊\\n\ }
return 1; write(msg);
＊
25