// base_value和base_unit，任何巫师都必须认真对待
value = ob->query(\if(!value)
value = ob->query(\
if (amount>=1 ) {
} else
value = ob->query(\
if(!value )
return notify_fail(sprintf(\一文不值。\\n\
/* 对于个数性query_mount()物品必须按照实际个数给予计算金钱 * 但是卖后当铺文件不能累加这个数量，比如500包药，卖时会给 * 玩家按500包的收购价值计算，但当铺收购后会认定为1包，也就 * 是list显示是1包的数量，以次数计算数量，而不是实际个数。 * 这种设定是为了避免达到收购数量限制的问题，比如当铺只收购 * 500件货物，某人一次性卖了500包药，再有人过来卖当铺就不收 * 了，这种问题需要避免。虽然按道理应该计算实际的个数在当铺 * 中，但实际和现实总有特殊性，需要特殊设置的。如果不限制收 * 购总件数也是不现实的。 */
value = value * sell_rate * amount; value = value * sell_rate;
if( amount>=1 )
else
value=to_int(value); if(!value )
return notify_fail(sprintf(\一文不值。\\n\
// 人性化设置 switch(random(6)) {
case 0:
s_msg=\宝象国\ case 1:
s_msg=\车迟国\ case 2:
s_msg=\玉华县\ case 3:
s_msg=\乌鸡国\ case 4:
s_msg=\钦法国\ case 5:
11
s_msg=\祭赛国\
// 矿脉类或某些数量过多的物品卖后直接清除，不保留在物品栏 // 某些数量过多的物件，可在上设定is_sell_des()标记 if( ob->is_iron_class_res() || ob->is_sell_des() ) {
msg2 = sprintf(\又接着说道：%s在本店不予储藏，将贩运到%s。\\n\boss_name, if(pawned_objects[file]) { }
map_delete(pawned_objects,file);
if(!undefinedp(pawned_objects[file]) ) {
pay=1;
if(value <= min_value)
return notify_fail(ob->query(\收购价目前为：\，thisnum=pawned_objects[file]; }
file = base_name(ob);
低于最低收购价\，不予收购。\\n\
ob->query(\
} else
if(pawned_objects[file] > max_items) {
msg2 = sprintf(\又接着说道：因%s在本店储藏量已达到%d，将贩运到%s。\\n\boss_name, ob->query(\
} else
if(pawned_objects[file] < max_items) { // 数量 }
pawned_objects[file]++;
} else
/////////////////////////////////////////////////////////////////////////////////////////////////////////
// 总的种类判断
if(sizeof(pawned_objects) < rdm_obj_num()) {
pawned_objects += ([ file : 1 ]); pay=1;
} else
if(sizeof(pawned_objects) >= rdm_obj_num()) {
for(index=1;index<=rdm_obj_num()/10;index++) { } pay=0;
if( undefinedp(pawned_objects[index]) ) continue; map_delete(pawned_objects, index);
12
}
return notify_fail(query(\最多收购\个种类的物品，
请到别处卖吧。\\n\
/////////////////////////////////////////////////////////////////////////////////////////////////////////
balance=(int)me->query(\
log_file(\
sprintf(\在%s当品获利%s，物品：%d%s%s[%s.c]。\\n\
log_time(), log_id(me), filter_color(this_object()->query(\money_num(value), amount>0?amount:1,
ob->query(\filter_color(log_id(ob)), base_name(ob) ));
log_file=LOG_DIR\if(file_size(log_file)==-1)
assure_file(log_file);
if(!me->is_busy()) me->start_busy(1); if(msg2!=\
write(msg2);
msg = sprintf(\唱道：%s%s%d%s，当%s。\\n\
boss_name, sell_msg[random(sizeof(sell_msg))], ob->query(\amount?amount:1, money_num(value) );
if(!me->query(\
message_vision(sprintf(\把身上的%d%s%s拿出卖断到%s。\\n\
(amount?amount:1),
ob->query(\
if(msg3!=\
write(msg3);
ob->query(\
else
write(sprintf(\你把身上的%d%s%s拿出卖断到%s。\\n\
(amount?amount:1),
ob->query(\
ob->query(\
ob->query(\
write(\
13
}
int do_list(string arg) {
msg += \━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━msg += \序号] [ 商 品 名 称 ] [ 现货卖出单价 ] ━━━━━━━━━━━━━━━━━━━━━━━\\n\
msg = sprintf(\收购比率：%d%% 出售比率：%d%%\\n\
cd_desc?cd_desc:query(\boss_name?\法定持牌人：\to_int(sell_rate*100), to_int(to_sell_rate*100)); if(this_object()->completed_year())
cd_desc= \自\纪年
if(boss && boss->query(\
boss_name=log_id(boss); boss=have_hock_boss(this_object()); if(!sizeof(pawned_objects))
return notify_fail(query(\目前没有任何货物可卖。\\n\me=this_player(); restore();
string msg, *items, nummsg, file, obj_desc, lgfile=\int i, n, value, amount, thisnum, Ovalue, flag; object obj, me, boss;
string rate_desc, pawn_desc=\return 1; }
destruct(ob); save(); if(pay) {
me->add(\
write(sprintf(\你相记钱庄存款增加了%s[%s → %s]。\\n\
money_num(value), money_num(balance),
money_num((int)me->query(\
me->save();
\落成]\
14
[ 库 存 量 ] [ 基准收购单价 ]\\n\
msg +=
sprintf(\ery(\
file->query(\
file->query(\(25+color_len(money_num(value)))+\→ 数i+1,
file->query(\money_num(value), thisnum,
thisnum=pawned_objects[file];
value = value * to_sell_rate;
Ovalue = value * sell_rate;
if(file->query(\
value = file->query(\value = file->query(\else
obj=new(file); // 路径容错
if(!objectp(obj)) { }
flag++;
lgfile+=file+\continue;
n = sizeof(items); flag=0;
for(i=0;i file=items[i]; items = keys(pawned_objects); msg += \──────────────────────────────────────────────────────────\\n\ 量：=%-3s %\ file->name()+\ money_num(Ovalue) ); 15 百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库存盘方式的XYJ2000的当铺文件MUD代码(3)在线全文阅读。
相关推荐：