冷泉相关代码

疯无痕(sammiy@ts)

#include <ansi.h>
inherit ITEM;

#define QUESTDIR5 "quest/雪山飞狐/宝藏/"
#define QUESTDIR4 "quest/雪山飞狐/武功/"

void create()
{
        set_name(HIW"纸团"NOR, ({ "zhi tuan", "zhituan", "paper"}));
        set_weight(600);
        if( clonep() )
                set_default_object(__FILE__);
        else {
                set("unit", "本");
                set("long", "一个奇怪的纸团，展开之后似乎纪录一些内功的运行方法。\n");
                set("unique", 1);
                set("treasure", 1);
                set("material", "silk");
                set("no_give", "这样东西不能离开你。\n");
                set("no_get", "这样东西不能离开那儿。\n");
        }
}
void init()
{
              if(!this_object()->query("owner")) return;
               add_action("do_yanjiu", "yanjiu");        
               add_action("do_yanjiu", "find");
}

int do_yanjiu(string arg)
{
        object obj,me = this_player();                              
        if (!(arg=="zhi tuan" || arg == "zhituan" || arg == "paper")) return 0;
        if ( me->is_busy())
                return notify_fail("你现在正忙着呢。\n");
        if( me->is_fighting() )
                return notify_fail("你无法在战斗中做这个事情。\n");
        if (!id(arg))
                return notify_fail("你要翻什么？\n");
        if( !me->query(QUESTDIR5+"shuku")||me->query(QUESTDIR5+"shuku")<3)
                return notify_fail("你哪里来的奇怪纸团啊。\n");
        if(this_object()->query("owner")!=me->query("id"))
                return notify_fail("你哪里来的奇怪纸团啊。\n");
        if (me->query(QUESTDIR4+"lengquanshengong"))
                return notify_fail("你已经明了冷泉神功的修炼方法。\n");
  if(!present("tishi ka",me))
  {
          message_vision(HIY"突然一个人影出现在$N面前，递给$N一张卡片。\n"NOR, me);
          tell_object(me,YEL"你低头一看，是一张提示卡，回头再一看，人影已经不见——好帅哦~~~~~。\n"NOR);
          obj=new(__DIR__"tishika");
          obj->move(me);
        me->start_busy(2);
    tell_object(me,YEL"你还是认真看一下提示卡的内容，不要过于冲动。\n"NOR);
          return 1;
  }        
  //只能一次机会
  //难度系数与原来的凌波微步难度相同
  if((random(me->query("kar"))+random(me->query("int"))) > 50
          && !random(3) //再增加难度
           && (random(me->query_con(1))+random(me->query_int(1))) > 75
           && me->query("kar")<31)
  {
          tell_object(me,HIG"你突然发现这线线代表的不是武功秘籍，却是一个藏宝的地点。\n"NOR);
          tell_object(me,HIG"你仔细研究纸团的内容，地点应该就在刚才经过的书房里。\n"NOR);
          me->set(QUESTDIR4+"lengquanshengong", 1);
          me->start_busy(2);
          log_file("quest/FEIHU", sprintf(HIR"%s(%s) 解开冷泉神功。富源：%d；经验：%d。\n"NOR, me->name(1),me->query("id"), me->query("kar"),me->query("combat_exp")) );
  }
  else
  {
          tell_object(me,HIY"\n你按照纸团上的这些线线运行全身经脉，发现全无用处，更别说提高武功了。\n"NOR);
          log_file("quest/FEIHU", sprintf("%s(%s) 试图解开冷泉神功失败。经验：%d。富源：%d。\n", me->name(1),me->query("id"), me->query("combat_exp"),me->query("kar")) );
          tell_room(environment(me),HIY""+me->name()+"顺手丢掉一个纸团。\n"NOR, ({}));
          if(me->query(QUESTDIR5+"shuku")==2 && me->query("registered")>=3)
          {
                  tell_object(me,HIR"\n因为VIP身份，你可以继续使用搜索命令找到另外一张纸团。这也是最后一次机会。\n"NOR);
                  tell_object(me,HIR"但如果你认为目前属性不好或运气不佳，可以以后再来这里搜索，避免机会浪费。\n"NOR);
          }
          me->start_busy(2);
          destruct(this_object());
  }
        return 1;            
}

慕容红楼(andyx@ts)

if((random(me->query("kar"))+random(me->query("int"))) > 50
          && !random(3) //再增加难度
           && (random(me->query_con(1))+random(me->query_int(1))) > 75
           && me->query("kar")<31)
这个很恐怖啊，福缘小于31而“(random(me->query("kar"))+random(me->query("int"))) > 50”，悟性至少要50-30，要random（）>50，大家算吧；
(random(me->query_con(1))+random(me->query_int(1))) > 75；根骨+悟性且random>75，大家等到18m后去解吧。

莹雯(yingwen@ts)

看不懂··············

朱甜甜(zhuzhu@ts)

longquan-shengong    貌似2008年就说过， jy书里没提到过，是杜撰出来的，要去掉的东西

非人类(ggg@ts)

完全看不懂~~~~~~~~！！！！！！！

夯昆(flygulu@ts)

书里的苗剑胡刀都是靠招式取胜的。。。不明白为什么要有个什么冷泉来支持。。。。quest武功就应该是全门派特殊内功支持的。。。。杜撰内功完全是多余。。。。。。。。

艾斯(ace@ts)

根骨+悟性且random>75.......... 这个条件...... 先天gg 和wx 都 30 差不多 来解这个quest

文青(emplmm@ts)

  彻底无语!

白大夫(npcsp@ts)

有也都是浮云 没开等于无
笑而不语非君子也

白素贞(suzhen@ts)

楼上高见。。。。。。。。