luoyan.vns

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· VNS 代码 · 共 56 行

// Room: /d/huashan/luoyan.c

#include <room.h>
inherit ROOM;

void create()
{
        set("short", "落雁峰");
        set("long", @LONG
南峰又名落雁峰，是华山最高峰.传说五代时候的隐士陈抟就隐居在这里。
宋太祖曾经下诏征他出山作官，他便在这里写下谢诏表说:"一片野心都被
白云锁住，九重宠诏休教丹凤衔来"，表示不愿出山做官。
LONG
        );
        set("exits", ([ /* sizeof() == 4 */
//         "southwsest" : __DIR__
        ]));
        set("no_clean_up", 0);
        set("outdoors", "huashan");
        setup();
}
void init(){
        object me;
        if( interactive( me = this_player()))
          remove_call_out("clone_check");
          call_out("clone_check", 2,me);

}
void clone_feng_qingyang(object me)
{
     object ob;

     if( environment(me) == this_object())
       if ( ((string)me->query("family/family_name")=="华山派") && 
          ((int)me->query("family/generation")==13) )
       {
         ob=new("/kungfu/class/huashan/feng-qingyang.c");
         ob->move(environment(me));
       }
}
void clone_check(object me)
{
        object *ob;
        int i,j;

        j=0;
        ob = all_inventory(environment(me));
   for(i=0; i<sizeof(ob); i++){
   if ( (!userp(ob[i]))
      && ((string)ob[i]->query("id")=="feng qingyang") )
      j=1;
   }
   if (j==0)
      call_out("clone_feng_qingyang",2,me);
}