论坛 › bug投诉 › 该死的毫毛，把酒袋全都捡了去

atester 发表于 2012-4-13 08:21:31

该死的毫毛，把酒袋全都捡了去

巫师大人，能不能弄个fillall指令呢？装水似乎有点麻烦

北大侠客行MUD，中国最好的MUD

alucar 发表于 2012-4-13 08:44:21

可以买个包袱，把drop jiudai改为put in bag

dmy 发表于 2012-4-13 09:01:21

其实我更希望巫师改的指令支持 fill jiudai 1,fill jiudai 2,....
这样很难吗？还有sell armor 1,sell armor 2，类似的。遗憾的是，这里sell armor 2表示卖掉2个armor。
为什么不是sell 2 armors呢？

cnnn 发表于 2012-4-13 10:36:01

是啊，支持!

atester 发表于 2012-4-17 16:18:07

我们来看看fill.c(以下代码取自海洋2，其它MUD应该类似)

// fill.c
// by snowman@SJ 02/04/1999.
#include <ansi.h>
inherit F_CLEAN_UP;
int main(object me, string arg)
{
    object obj;
   
    if (me->is_busy() || me->is_fighting()) return notify_fail("你正忙着呢。\n");
    if( !arg )
      return notify_fail("你想往哪里放水？\n");
    if(!objectp(obj = present(arg, me)) )
          return notify_fail("你身上没有这样东西。\n");
    if (!environment(me)) return notify_fail("目前有问题。\n");
    if (!me) return notify_fail("你断线了。\n");
   
    if(!obj->query("max_liquid"))
             return notify_fail(obj->name()+"这东西可装不了水。\n");
                  
    if(!environment(me)->query("resource/water"))
             return notify_fail("这里没有地方可以装水。\n");
            
    if( obj->query("liquid/remaining") )
message_vision("$N将$n里剩下的" + obj->query("liquid/name") + "倒掉。\n", me, obj);

    if((string)environment(me)->query("resource/fill_msg"))
             message_vision(environment(me)->query("resource/fill_msg"), me, obj);
    else message_vision("$N将$n装满。\n", me, obj);
    obj->set("liquid/type", (string)environment(me)->query("resource/water_type")?environment(me)->query("resource/water_type"):"water");
    obj->set("liquid/name", (string)environment(me)->query("resource/water_name")?environment(me)->query("resource/water_name"):"清水");
    obj->set("liquid/remaining", obj->query("max_liquid"));
    obj->set("liquid/drink_func", 0);
    obj->set("liquid/drunk_apply", (int)environment(me)->query("resource/water_apply")?environment(me)->query("resource/water_apply"):20);
   
    me->start_busy(1);
    return 1;
}

int help(object me)
{
    write(@HELP
指令格式 : fill <物品名称>

这个指令可以让你将空的容器装满水。

HELP
    );
    return 1;
}

atester 发表于 2012-4-17 16:36:25

再看看当铺老板继承的dealer.c

// dealer.c 商人
// This is a inheritable object.
// Each dealer should support buy, sell, list, value 4 commands
// Modify by Yu Jue 98-8-5
#include <dbase.h>
static mapping armor = ([]);
static mapping book = ([]);
static mapping misc = ([]);
static mapping weapon = ([]);
int query_goods_value(object goods, string method)
{
      object me = this_player();
      int value, trade_level;
      value = goods->query("value");
      trade_level = me->query_skill("trade", 1) / 5;
      if (trade_level > 40) trade_level = 40;
      if (method == "buy")
                value = value * (140 - trade_level) / 100;
      else if (method == "sell" || method == "value")
                value = value * (50 + trade_level) / 100;
      return value;
}
string is_vendor_good(string arg)
{
      string *goods;
      int i;
      if (arrayp(goods = query("vendor_goods")))
                for (i = 0; i < sizeof(goods); i++)
                        if (goods->id(arg)) return goods;
      return "";
}
int do_value(string arg)
{
      object ob;
      int value;
      if (!arg || !(ob = present(arg, this_player())))
                return notify_fail("你要估什么价？\n");
      if (ob->query("money_id"))
                return notify_fail("你没用过钱啊？\n");
      value = query_goods_value(ob, "value");
      if (value < 30)
                write(ob->name() + "一文不值！\n");
      else
                write(ob->name() + "值" + MONEY_D->price_str(value) + "。\n");
      return 1;
}
int do_sell(string arg)
{
      object ob;
         object me = this_player();
      int value, value1, improve;
      object nob;
      string my_id;
      int amount;
      int res;
      int max_count;
      if (me->is_busy() || me->is_fighting())
                return notify_fail("你正忙着呢。\n");
      if (!arg || !(ob = present(arg, me)))
                return notify_fail("你要卖什么？\n");

      if (ob->query("money_id"))
                return notify_fail("你想卖「钱」？\n");
if (stringp(ob->query("no_drop")))
return notify_fail("这样东西不能卖。\n");
//      if (ob->query("no_drop") || ob->query("no_get"))
//                return notify_fail("这样东西我买了怕卖不掉。\n");
      if (ob->query("ownmake"))
                return notify_fail("这样的宝物我可买不起。\n");
      if (query_temp("busy"))
                return notify_fail("哟，抱歉啊，我这儿正忙着呢……您请稍候。\n");
      if (is_vendor_good(arg) != "")
                return notify_fail("我卖给你好不好？\n");

      value = ob->query("value");
      value1 = query_goods_value(ob, "sell");
      if (value < 30)
                write(ob->name() + "一文不值！\n");
      else if (value >= 1000000)
                write(ob->name() + "我们可买不起。\n");
      else {
         if (value < 200 || ob->query_amount()
         || ob->query("yaocao")
         || ob->query("food_supply")) {
                        message_vision("$N卖掉了一" + ob->query("unit") +
                              ob->name() + "给$n。\n", me, this_object());
                        message_vision("$N把$n随手一扔，说道：这么个不值钱的玩意也拿来当。\n",
                              this_object(), ob);
                        destruct(ob);
                } else {
                        if (ob->move(this_object())) {
                              message_vision("$N卖掉了一" + ob->query("unit") +
                                        ob->name() + "给$n。\n", me, this_object());
                              ob->set("no_get", 1);
                              if (ob->query("armor_type")) armor++;
                              else if (ob->query("skill")) book++;
                              else if (ob->query("weapon_prop")) weapon++;
                              else misc++;
                        }
                        else return notify_fail("我这货物已经太多了，暂时停止收购。\n");
                }
                MONEY_D->pay_player(me, value1);
                improve = 40 - me->query("pur");
                me->improve_skill("trade", improve / 2 + random(improve));
      }
      return 1;
}
int do_list(string arg)
{
      string *goods;
      mapping ptr;
      object *inv;
      int i, j, flag = 0;
      if (arrayp(goods = query("vendor_goods"))) {
                write("目前出售以下货物：\n");
                for (i = 0; i < sizeof(goods); i++)
                        printf("%30-s：%s\n", goods->short(),
                              MONEY_D->price_str(query_goods_value((object)goods, "buy")));
                return 1;
      }
      switch (arg) {
                case "armor": arg = "护具"; ptr = armor; break;
                case "book": arg = "书籍"; ptr = book; break;
                case "misc": arg = "杂物"; ptr = misc; break;
                case "weapon": arg = "武器"; ptr = weapon; break;
                default: return notify_fail("您想看哪一种货物(armor, book, misc, weapon)？\n");
      }
      
      i = sizeof(ptr);
      if (!i)
                return notify_fail("目前没有可以卖的"+arg+"。\n");
      
      goods = keys(ptr);
      inv = all_inventory();
      while (i--) {
                j = sizeof(inv);
                while (j--) {
                        reset_eval_cost();
                        if (inv->query("no_get") && goods == base_name(inv)) {
                              if (!flag) write("目前出售以下"+arg+"：\n");
                              printf("%-30s 单价：%s\n", inv->short(),
                                        MONEY_D->price_str(query_goods_value(inv, "buy") * 6 / 5));
                              flag = 1;
                              break;
                        }
                        if (j<0) map_delete(ptr, goods);
                }
      }
      if (!flag) write("目前没有可以卖的"+arg+"。\n");
      return 1;
}
int do_buy(string arg)
{
      int i, val_factor = 5, improve;
      string ob_file;
      object *inv;
      object ob;
      mapping goods;
      int   amount;
      int   value;
object *obs;
stringmy_id;
      stringstart_room;
      objectroom;
      mapping room_obmap;
      object me = this_player();
      if (me->is_busy() || me->is_fighting())
                return notify_fail("你正忙着呢。\n");
      if (query_temp("busy"))
                return notify_fail("哟，抱歉啊，我这儿正忙着呢……您请稍候。\n");
      if (!arg) return notify_fail("你想买什么？\n");
      if (! query("carried_goods"))
      {
                if (stringp(start_room = query("startroom")) &&
                  (room = find_object(start_room)) != environment())
                {
                        // I am not in start room.
                        message_vision("$N大叫一声：“不好，我怎么跑到这儿来了？”\n"
                                       "说罢头也不回的急急忙忙的溜走了。\n", this_object());
                        if (! objectp(room) ||
                            ! mapp(room_obmap = room->query_temp("objects")) ||
                            member_array(this_object(), values(room_obmap)) == -1)
                        {
                              destruct(this_object());
                        } else
                              this_object()->move(room);
                        return 1;
                }
      }
      if (sizeof(filter_array(all_inventory(me), (: ! $1->query("equipped") :))) >= 40)
      {
                write("你身上的东西太多了，先处理一下再买东西吧。\n");
                return 1;
      }
      inv = all_inventory();
      i = sizeof(inv);
      if (i)
                while (i--) if (inv->id(arg) && inv->query("no_get")) { ob = inv; val_factor = 6; break; }
      if (!ob) {
                if ((ob_file = is_vendor_good(arg)) == "")
                        return notify_fail("你想买的东西我这里没有。\n");
                else ob = new(ob_file);
      }
      if( (int)me->query_encumbrance() + ob->weight()
                > (int)me->query_max_encumbrance() )
      return notify_fail( me->name() + ":你已经拿不动了啊!\n");
      switch (MONEY_D->player_pay(me, query_goods_value(ob, "buy") *val_factor / 5)) {
                case 0:
                        if (val_factor == 5) destruct(ob);
                        return notify_fail("穷光蛋，一边呆着去！\n");
                case 2:
                        if (val_factor == 5) destruct(ob);
                        return notify_fail("您的零钱不够了，银票又没人找得开。\n");
                default:
                        if (!ob->move(me)) {
                              if (val_factor == 5) destruct(ob);
                              return 0;
                        }
                        ob->delete("no_get");
                        message_vision("$N从$n那里买下了一" + ob->query("unit") +
                              ob->name() + "。\n", me, this_object());
                        improve = 40 - me->query("pur");
                        me->improve_skill("trade", improve / 2 + random(improve));
      }
      set_temp("busy", 1);
      call_out("delete_temp", 1, "busy");
      return 1;
}
/*void reset()
{
int i;
object *obs;
obs = all_inventory();
      for (i = 0; i < sizeof(obs); i++)
                if (i >= 100 || obs->query_weight() >= 1000000)
                        destruct(obs);
}
*/

atester 发表于 2012-4-17 16:37:41

特别的看看do_sell函数

int do_sell(string arg)
{
      object ob;
         object me = this_player();
      int value, value1, improve;
      object nob;
      string my_id;
      int amount;
      int res;
      int max_count;
      if (me->is_busy() || me->is_fighting())
                return notify_fail("你正忙着呢。\n");
      if (!arg || !(ob = present(arg, me)))
                return notify_fail("你要卖什么？\n");

      if (ob->query("money_id"))
                return notify_fail("你想卖「钱」？\n");
if (stringp(ob->query("no_drop")))
return notify_fail("这样东西不能卖。\n");
//      if (ob->query("no_drop") || ob->query("no_get"))
//                return notify_fail("这样东西我买了怕卖不掉。\n");
      if (ob->query("ownmake"))
                return notify_fail("这样的宝物我可买不起。\n");
      if (query_temp("busy"))
                return notify_fail("哟，抱歉啊，我这儿正忙着呢……您请稍候。\n");
      if (is_vendor_good(arg) != "")
                return notify_fail("我卖给你好不好？\n");

      value = ob->query("value");
      value1 = query_goods_value(ob, "sell");
      if (value < 30)
                write(ob->name() + "一文不值！\n");
      else if (value >= 1000000)
                write(ob->name() + "我们可买不起。\n");
      else {
         if (value < 200 || ob->query_amount()
         || ob->query("yaocao")
         || ob->query("food_supply")) {
                        message_vision("$N卖掉了一" + ob->query("unit") +
                              ob->name() + "给$n。\n", me, this_object());
                        message_vision("$N把$n随手一扔，说道：这么个不值钱的玩意也拿来当。\n",
                              this_object(), ob);
                        destruct(ob);
                } else {
                        if (ob->move(this_object())) {
                              message_vision("$N卖掉了一" + ob->query("unit") +
                                        ob->name() + "给$n。\n", me, this_object());
                              ob->set("no_get", 1);
                              if (ob->query("armor_type")) armor++;
                              else if (ob->query("skill")) book++;
                              else if (ob->query("weapon_prop")) weapon++;
                              else misc++;
                        }
                        else return notify_fail("我这货物已经太多了，暂时停止收购。\n");
                }
                MONEY_D->pay_player(me, value1);
                improve = 40 - me->query("pur");
                me->improve_skill("trade", improve / 2 + random(improve));
      }
      return 1;
}

holyfist 发表于 2012-4-20 08:19:30

都研究代码了啊，看看有没有能致富的bug捏？

hongshaoye 发表于 2012-4-20 09:19:03

酥油茶

查看完整版本: 该死的毫毛，把酒袋全都捡了去