GM 9阴 code 详解

龙小女(skydream@ts)

gm 9阴大部分都知道是什么位置吧，就是出秘道 look map 的石室。
估计解法也都知道了，这里只是用 code 来详细说明一下。

void create()
{
       set("short",HIC"石室"NOR);
       set("long", @LONG
室中也无特异之处，你抬头仰望，但见室顶密密麻麻的写满了字迹符号，
你看了一会，但觉奥妙难解。室顶西南角绘著一幅图，似与武功无关，凝神细
看，倒像是幅地图。石室右下方好象可以往下(down)走。
LONG
     );
        set("item_desc", ([
             "down": HIB"黑乎乎的，看不真切。\n"NOR,
        ]));
        set("exits", ([
              "up" : __DIR__"shiguan",                 
        ]));
        setup();
}

void init()
{
        add_action("do_look", "look");
        add_action("do_look", "kan");
        add_action("do_walk", "walk");
        add_action("do_study", "yandu");
}

int do_look(string arg)
{
×××××××××××××  这里是出秘道的命令 look map ×××××××××××××××
        object me=this_player();
        if ( arg =="map") {
            write(HIY"你凝望著那幅图，心中不由大喜，原来那绘的正是出墓的秘道。\n"NOR);
            me->set_temp("map", 1);
            me->start_busy(1);
            return 1;         
        }

××××××××××××××  这里是解 9阴的命令 look  ceiling ××××××××××××××
        if ( arg =="ceiling") {
            write(HIY"你看着室顶，满满的都是密密麻麻的小字。\n"NOR);
            me->set_temp("ceiling", 1);
            me->start_busy(1);
            return 1;         
        }

××××××××××××× 第二步  look zi ×××××××××××××××
        if ( arg =="zi") {
            write(HIY"你望著那些小字，似乎都是一些武功要诀。\n"NOR);
            if( !me->query_temp("ceiling")
             || me->query("combat_exp", 1) < 1000000 ){                              // 如果 exp 小于 1m  就看不懂字了，就浪费了一次解的机会
               tell_object(me,HIY"不过上面写的艰深难懂，你看了一会就放弃了。\n"NOR);
               return 1;
            }

×××××××××××××× 如果 master 没有修改数值的话，解开的条件如下 ××××××××××××××××
            if(( random(me->query_kar()) > 22                                   // 福源 > 22 ， master 应该是删除这条了
             && me->query("jiuyin/gumufail") < 3                               // 解9阴次数少于 3　×　一个ＩＤ只能解３次
               && random(me->query_int()) > 25)                               // 悟性的随机数大于 25   （悟性越高，解开的几率越高）
             || me->query("jiuyin/gumu")){                                            // 或者已经学了 古墓9阴
              write(HIW"你陡然一瞥间，看到几个小字“九阴真经内功要诀”，你兴奋极了。\n"NOR);
              write(HIW"你研究了一下，发现应该能研读(yandu)些大伏魔拳法(dafumo-quan)、\n"NOR);
              write(HIW"九阴真功(jiuyin-zhengong)以及九阴身法(jiuyin-shenfa)的皮毛。\n"NOR);
              if( !me->query("jiuyin/gumu"))
              log_file("quest/jiuyin",sprintf("%s %s(%s)失败%s次后，在古墓石壁上得到九阴真经。\n",
                  ctime(time())[4..19], me->name(1),capitalize(getuid(me)),chinese_number(me->query("jiuyin/gumufail")) ));
              me->set("jiuyin/gumu", 1);
            }
×××××××××××××××××××××××这里是失败的描述　，没必要知道　××××××××××××××××××
            else {
              if( me->query("jiuyin/gumufail") <= 3 )
              me->add("jiuyin/gumufail", 1);
              if ( me->query("jiuyin/gumufail") < 3 )
              log_file("quest/jiuyin",sprintf("%s %s(%s)错过%s次，没有发现古墓石壁上的九阴真经。\n",
                      ctime(time())[4..19], me->name(1),capitalize(getuid(me)),chinese_number(me->query("jiuyin/gumufail")) ));
              if( me->query("jiuyin/gumufail") == 3)
              log_file("quest/jiuyin",sprintf("%s %s(%s)错过三次，无法再发现古墓石壁上的九阴真经。\n",
                      ctime(time())[4..19], me->name(1),capitalize(getuid(me))));
              write(HIY"不过上面写的艰深难懂，你看了一会就放弃了。\n"NOR);
            }
            me->delete_temp("ceiling");
            return 1;         
        }
        return notify_fail("你要看什么？\n");
}

毒美眉(poisonmm@ts)

啥意思

解释一下