// qiankun-xinfa 乾坤大挪移心法// by King 97.05#include <ansi.h>inherit ITEM;void setup(){}void init(){        add_action("do_du", "kan");}void create(){        set_name("羊皮", ({ "qiankunbook", "skin" }));        set_weight(600);        if( clonep() )                set_default_object(__FILE__);        else {                set("treasure",1);set("unit", "張");                set("long", "這是一張羊皮，一面有毛，一面光滑。第一行是“明教圣火心法，乾坤大挪移”十一個字。原來這就是武林第一秘籍《乾坤大挪移》心法，相傳來自西域山中老人所作。想修這門絕世武功，就好好看(kan)這本書吧。\n");                set("value", 0);                set("material", "paper");        }}int do_du(string arg){        object me = this_player();        object where = environment(me);        object ob;        mapping skill;        int qklevel, lvl;        int neili_lost;        if (arg != "qiankunbook")                return notify_fail("你要讀什么？\n");        if (where->query("pigging"))                return notify_fail("你還是專心拱豬吧！\n");        if (me->is_busy())                return notify_fail("你現在正忙著呢。\n");        if( me->is_fighting() )                return notify_fail("你無法在戰斗中專心下來研讀新知！\n");        if (!id(arg) || !objectp(ob = present(arg, me)))                return notify_fail("你要讀什么？\n");//        if ((string)me->query("gender") == "女性" )//                return notify_fail("你先天不足，要修乾坤大挪移，恐怕走火入魔。\n");        if( !me->query_skill("literate", 1) )                return notify_fail("你是個文盲，先學點文化(literate)吧。\n");        if( !me->query_skill("jiuyang-shengong", 1) )                return notify_fail("你沒有九陽神功做根坻，不能讀乾坤大挪移。\n");        if( (int)me->query("jing") < 15 )                return notify_fail("你現在過于疲倦，無法專心下來研讀新知。\n");        if( (int)me->query("neili") < 1000 ) {                write( CYN"忽然，你覺得內息一亂，知道不好！\n"NOR);                me->unconcious();                return 1;        }        qklevel = me->query_skill("qiankun-danuoyi", 1);        neili_lost = qklevel/10;        if( neili_lost < 5) neili_lost = 5;        lvl = qklevel/20;        if( lvl < 1) lvl = 1;        message("vision", me->name() + "專心研讀乾坤大挪移，臉色忽青忽紅，連變"+ lvl + "次。\n", environment(me), me);        if ( me->query("gender") == "無性" && qklevel > 99)                return notify_fail("你先天不足，再學下去難免走火入魔。\n");        if ((int)me->query_skill("force", 1) < 100)                return notify_fail("就這么點基本內功還想學乾坤大挪移？\n");        if ((int)me->query("max_neili", 1) < 1500)                return notify_fail("就這么點內力還想學乾坤大挪移？\n");        if ((int)me->query_skill("force", 1) < lvl)                return notify_fail("你的基本內功火候還不夠，小心走火入魔！\n");        if ((int)(me->query("max_neili", 1)/15) < lvl)                return notify_fail("你的內力火候還不夠，小心走火入魔！\n");        if( (int)me->query("combat_exp") < (int)qklevel*qklevel*qklevel/10 )                return notify_fail("你的實戰經驗不足，再怎么讀也沒用。\n");        if( me->query_skill("qiankun-danuoyi", 1) > 299)                return notify_fail("你研讀了一會兒，但是發現上面所說的對你而言都太淺了，沒有學到任何東西。\n");        me->receive_damage("jing",40 );                me->set("neili", 800);        if( !me->query_skill("qiankun-danuoyi", 1) )                me->set_skill("qiankun-danuoyi", 0);        me->improve_skill("qiankun-danuoyi", (int)me->query_skill("literate", 1)/3+1);me->improve_skill("qiankun-danuoyi", (int)me->query_skill("literate", 1)/3+1);        write("你研讀《乾坤大挪移》，頗有心得。\n");        return 1;}