?? qiankun_book.c
字號:
// 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;}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -