}
}
return 1;
write(name+\瞟了你一眼，扔给你一张当票。\\n\if(!me->is_busy())
me->start_busy(1);
return 1;
/* 收购前判断物品 */
int do_sellob_filter(object ob, string boss_name) {
if( ob->query(\
return notify_fail(boss_name+\摇摇头说道：“这种东西我不识货，不敢要。”\\n\
file=base_name(ob); if(ob->is_character())
return notify_fail(boss_name+\说道：小店奉公守法，不敢贩卖人口。\\n\if(ob->is_corpse())
return notify_fail(boss_name+\说道：这是谁的尸首快搬走，我们这还要做生意呢。if(ob->is_food() && !ob->query(\
return notify_fail(boss_name+\说道：食品留着自己吃吧。\\n\if( ob->query(\
return notify_fail(boss_name+\说道：这是「钱」，你没见过吗？\\n\if( ob->query(\
return notify_fail(boss_name+\说道：假货，不要不要！\\n\if( ob->is_diablo_obj() )
return notify_fail(boss_name+\说道：暗黑城里面出来的东西本店不敢收。\\n\if(!objectp(ob))
return 0; mixed ns; string file;
\\n\
6
if(file->query_amount() && file->query_amount()>1) { }
if(ob->query(\
return notify_fail(boss_name+\说道：这样东西看来象个假货，本店不收。\\n\message(\┋HOCKSHOP_QC┋Sell：ROOM(%s)，%s\\n\\n\
base_name(this_object()), base_name(ob)), users()); return notify_fail(\系统禁止\这类物品的交易。\\n\
if(!ob->query(\
if(ob->query(\
|| ob->is_no_clone() || ob->is_sell_des() || ob->query(\|| ob->query(\|| ob->query(\|| ob->query(\|| ob->query(\|| ob->query(\|| ob->query(\|| ob->query(\|| ob->query(\
return notify_fail(boss_name+\说道：本店目前不予收购\。
\\n\
if(ob->is_random_name())
return notify_fail(boss_name+\说道：这种辨不清名字的物品不予收购！
\\n\
if(ob->must_owner_id())
return notify_fail(boss_name+\说道：属主属性物品不予收购！\\n\
if (ob->query(\
return notify_fail(boss_name+\说道：拿个喝过的也想来骗钱啊！\\n\
ob->query(\
if (ob->is_container() && !ob->is_armor())
return notify_fail(boss_name+\说道：这里不收购容器！\\n\
if( ob->query(\
return notify_fail(boss_name+\说道：神器物品我们这里不敢收购。\\n\
if (ob->query_unique() || ob->query(\
return notify_fail(boss_name+\说道：法宝类物品我们这里不敢收购。\\n\
7
}
/* 收购动作 */
int do_sell(string arg) {
object ob, *inv, me, boss;
me=this_player();
if(me->is_busy()) return notify_fail(BUSY_MESSAGE); string *items, file, name, log_file; int i, n;
return 1; }
return notify_fail(boss_name+\摇摇头说道：“这种东西我不识货，不敢要。”\\n\if( ns = ob->query(\
if (stringp(ns))
return notify_fail(boss_name+\摇摇头说道：\
}
if (ob->query(\
return notify_fail(boss_name+\忙摇头道：“小的只有一个脑袋，可不敢买大神
// 如果是帮会属性物品 if(ob->query(\
return notify_fail(CYN+boss_name+\惊道：“小的胆子很小，可\
if(ob->is_ctl_ob() || ob->is_iron_class_res() || ob->is_self_object())
return notify_fail(boss_name+\说道：这样东西小铺可是不敢保存。\\n\
if( ob->query(\
return notify_fail(boss_name+\说道：水的东西我们这里没法存放。\\n\
if( ob->query(\
return notify_fail(boss_name+\说道：冰的东西我们这里没法存放。\\n\
if( ob->query(\
return notify_fail(boss_name+\说道：\上做着记号呢，这里不
敢收购。\\n\
\不敢买\的东西。”\\n\
的东西。”\\n\
8
}
return 1;
save();
map_delete(pawned_objects, items[i]);
log_file(\在%s删除了卖品中
log_time(), log_id(me),
pawned_objects[items[i]], items[i]->query(\
的%d%s%s。\\n\
filter_color(this_object()->query(\filter_color(items[i]->query(\
log_file=LOG_DIR\if(file_size(log_file)==-1)
assure_file(log_file);
tell_object(me,HIG\你完全删除了物品列表中的
HIG\这项物品，数量：\。\\n\
\
if( i >= sizeof(pawned_objects) )
return notify_fail(\目前没有\这个物品！\\n\
for(i=0;i if(items[i]->id(arg)) break; if(n<0) return notify_fail(\没有这项物品。\\n\ if(!arg) return notify_fail(\你要删除哪项物品？\\n\ items = keys(pawned_objects); n = sizeof(items); // Added by waiwai@2004/11/11 为了便于管理，有必要增加如下设定 if( wiz_level(me)>Wiz_L && arg && sscanf(arg,\if(!arg) return notify_fail(\你要卖断什么物品？\\n\ 9 //////////////////////////////////////////////////////// } /* 估价付款 针对金钱出的时候很少会出BUG，进的时候很容易出BUG 大部分情况是负重与BUSY引起的，因此，付款给玩家的 设置做了直接划入钱庄，省得啰嗦。 */ int do_sellt(object ob,object me, string boss_name) { amount = ob->query_amount(); // 为了系统规范和扩展需要，个数性物品，必须严格写有 if(!objectp(ob) || !objectp(me)) return 0; int value, amount, pay, thisnum, index, balance; string file, msg, msg2=\string *sell_msg = ({ }); \破破烂烂，一文不值\\质地低劣，难看之极\\又脏又破，臭气熏天\return do_sellt(ob, me, name); if(!do_sellob_filter(ob, name)) return 0; if(!(ob = present(arg, me))) return notify_fail(\你要卖断什么物品？\\n\name=boss->query(\ //////////////////////////////////////////////////////// // Added by waiwai@2012/02/22 boss=have_hock_boss(this_object()); if(!boss) return 1; // 禁止冒充BOSS if(boss->query(\ } write(query(\当前法定持牌人不在，无法进行交易。\\n\return 1; 10
