存盘方式的XYJ2000的当铺文件MUD代码(5)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库存盘方式的XYJ2000的当铺文件MUD代码(5)在线全文阅读。