mud兼容tomud客户端实现步骤

Copy code

varargs int move(mixed dest, int raw)
{
     object ob, env;
     object me;
     int is_char;
     mixed old_target;
     mixed *guards;
     object user;
     object *users;

     me = this_object();

     // If we are equipped, unequip first.
     if (! (is_char = me->is_character()) &&
        query("equipped") && ! me->unequip())
           return notify_fail("你没有办法取下这样东西。\n");

     // Find the destination ob for moving.
     if (objectp(dest))
           ob = dest;
     else
     if (stringp(dest))
     {
           call_other(dest, "???");
           ob = find_object(dest);
           if (! ob) return notify_fail("move: destination unavailable.\n");
     } else
           return notify_fail(sprintf("move: invalid destination %O.\n", dest));

     // Check if the destination ob can hold this object.
     // Beforce checking it, we check if the destination is environment of
     // this_object() (or environment of its environment). If it is, then
     // this could be like get something from a bag carried by the player.
     // Since the player can carry the bag, we assume he can carry the this
     // object in the bag and encumbrance checking is unessessary.
     // ----------------------
     // 检查目标是否能够包容住该物品
     // 在检查前，我们先检查是否目标OBJ是该物件的环境（或者是它的环境的环境），如果是，那就好象是
     // 从一个玩家身上背着的包里取出一个物品，既然玩家可以背起这个包，那么我们可以想当然的认为他也
     // 可以背起这个OBJ并且超重检查是不必要的。 By JackyBoy@TOMUD 2001/5/6
     env = me;
     while (env = environment(env))
           if (env == ob) break;
     if (! env && (int) ob->query_encumbrance() + weight() >
              (int) ob->query_max_encumbrance())
     {
           if (raw && environment(ob))
           {
                 message_vision("由于$n对于$N而言是在"
                            "是太重了，只好先扔在一旁。\n",
                            ob, this_object());
                 ob = environment(ob);
           } else
           if (ob == this_player())
           {
                 return notify_fail(this_object()->name() +
                                "对你而言太重了。\n");
           } else
           {
                 return notify_fail(this_object()->name() +
                                "对" + ob->name() +
                                "而言太重了。\n");
           }
     }

     // Leave environment
     // Move the object and update encumbrance
     env = environment();
     if (env)
     {
           if (env != ob && magic_move && userp(env))
           {
                 if (env->visible(me))
                       tell_object(env, HIM "你忽然觉得身上好像轻了一"
                                    "些。\n" NOR);

                 if (userp(me))
                 {
                       env->add_temp("person_in_you", -1);
                       if (env->query_temp("person_in_you") <= 0)
                             env->delete_temp("person_in_you");
                 }
           }

           // The owner should remove handing
           if (! is_char && env->query_temp("handing") == me)
                 env->delete_temp("handing");
     }

     // remove the thing I am guarding
     old_target = query_temp("guardfor");

     if (objectp(old_target) && ! old_target->is_character())
     {
           if (arrayp(guards = old_target->query_temp("guarded")))
           {
                 guards -= ({ me });
                 if (! sizeof(guards))
                 {
                       old_target->delete_temp("guarded");
                 } else
                       old_target->set_temp("guarded", guards);
           }
           me->delete_temp("guardfor");
     } else
     if (stringp(old_target))
     {
           guards = env->query_temp("guarded/" + old_target);
           if (arrayp(guards))
           {
                 guards -= ({ me });
                 if (! sizeof(guards))
                 {
                       env->delete_temp("guarded/" + old_target);
                 } else
                       env->set_temp("guarded/" +old_target, guards);
           }
           me->delete_temp("guardfor");
     }

     // If we are players, try look where we are.
     if (is_char && interactive(me) &&      // are we linkdead?
        living(me) &&                // are we still concious?
        ! raw)
     {
           // look before move, because the init may be kick me
           // to ...
           LOOK_CMD->look_room(me, ob, query("env/brief"));
     }

     // Enter environment
     if (magic_move && userp(ob))
     {
           if (ob->visible(this_object()))
                 tell_object(ob, HIM "你忽然觉得身上好像重了一"
                              "些。\n" NOR);

           if (userp(this_object()))
                 ob->add_temp("person_in_you", 1);
     }
     magic_move = 0;

    // Modify By JackyBoy@TOMUD     2001/5/6
    // 以下部分是针对zmud以及tomud客户端的区分处理
     if(!wizardp(this_object())||!query("env/invisible"))
     {
           if (env)
           {
                 env->add_encumbrance(-weight());
                 if (userp(env) && env->query_temp("tomud"))
                      tell_object(env, REM1(this_object())); //如果是从玩家身上移动走，则应该是REM1
                 else
                 if (! living(env))
                 {
                    users = filter_array(all_inventory(env),
                                  (: (userp($1) && $1->query_temp("tomud")) :)) -
                                  ({ this_object() });
                    if (sizeof(users) > 0)
                    foreach (user in users)
                          tell_object(user, REM0(this_object()));                
                     
                      // tell_room(env,REM0(this_object()),this_object() );
                      // 如果是从房间里移动走，则应该是REM0
                }
                 // else log_file("move.log",ctime(time())+"：不知道如何显示REM消息---"+base_name(env)+"\n");
           }
           if (ob)
           {
                 ob->add_encumbrance(weight());
                 if ((userp(ob)|| interactive(ob)) && ob->query_temp("tomud"))
                      tell_object(ob, ADD1(this_object()) );
                      // 如果是移动到玩家身上，则应该是ADD1
                 else
                 if (! ob->is_character())
                 {
                      users = filter_array(all_inventory(ob),
                                  (: (userp($1) && $1->query_temp("tomud")) :)) -
                                  ({ this_object() });
                    if (sizeof(users) > 0)
                    foreach (user in users)
                          tell_object(user, ADD0(this_object()));  
                    // tell_room(ob, ADD0(this_object()),this_object() );
                      // 如果是移动到房间里，则应该是ADD0      
                }
           }
     }
     // Move & run INIT function
     move_object(ob);

     return 1;
}

void remove(string euid)
{
     object me;
     object ob;
     object default_ob;
     object user;
     object *users;

     if (! previous_object() ||
        base_name(previous_object()) != SIMUL_EFUN_OB)
           error("move: remove() can only be called by destruct() simul efun.\n");

     me = this_object();
#ifdef LONELY_IMPROVED
          if (userp(me) && sizeof(me->query("id")))
          DATABASE_D->db_set_player(me->query("id"), "online", 0);
#endif

     if (userp(me) && euid != ROOT_UID)
     {
             if (euid != getuid(me))
           {
                 // Failed to destruct
                 log_file("destruct", sprintf("%s attempt to destruct user object %s (%s)\n",
                        euid, this_object()->query("id"),
                        ctime(time())));
                 error("你(" + euid + ")不能摧毁其他的使用者。\n");
           }
           log_file("destruct", sprintf("%s in %O destruct on %s.\n",
                                me->query("id"),
                                environment(me),
                                ctime(time())));
           error("只有ROOT才能摧毁玩家。\n");
     } else
     if (me->query("equipped"))
     {
           // Failed to unequip, only log but continue
           if (! me->unequip())
                 log_file("destruct", sprintf("Failed to unequip %s when destructed.\n",
                                      file_name(me)));
     }

     if (me->is_ob_saved())
           me->save();

     // Leave environment
          // 以下部分是针对zmud以及tomud客户端的区分处理
     if (objectp(ob = environment()))
     {
           ob->add_encumbrance(-weight());

           if (ob->is_character() && ob->query_temp("handing") == me)
                 // remove handing when destruct the object
                 ob->delete_temp("handing");
           
           //Add By JackyBoy@TOMUD     2001/5/27
           if (userp(ob) && ob->query_temp("tomud"))
                 tell_object(ob, REM1(me) ); //如果是从玩家身上移动走，则应该是REM1
           else
           if (! living(ob) && ! ob->is_character())
          {
                users = filter_array(all_inventory(ob),
                            (: (userp($1) && $1->query_temp("tomud")) :)) -
                            ({ me });
                if (sizeof(users) > 0)
                foreach (user in users)
                    tell_object(user, REM0(me));
                // tell_room(ob, REM0(me), me );//如果是从房间里移动走，则应该是REM0                                    
          }

           if (is_magic_move() && userp(ob))
           {
                 if (ob->visible(this_object()))
                       tell_object(ob, HIM "你忽然觉得身上好像轻了一些。\n" NOR);

                 if (userp(me))
                 {
                       // One user enter another user
                       ob->add_temp("person_in_you", -1);
                       if (ob->query_temp("person_in_you") <= 0)
                             ob->delete_temp("person_in_you");
                 }
           }
     }

     // We only care about our own weight here, since remove() is called once
     // on each destruct(), so our inventory (encumbrance) will be counted as
     // well.

     if (default_ob = me->query_default_object())
           default_ob->add("no_clean_up", -1);

     me->end_log();
}