?? luo.c
字號:
#include <ansi.h>
inherit NPC;
inherit F_MASTER;
int ask_kungfu();
int ask_kungfu1();
int ask_kungfu2();
int kungfu_asked1();
void create()
{
set_name("悠久山安慈", ({ "youjiushan anci", "anci" }));
set("nickname",HIC"明王"NOR);
set("rank","十刃");
set("gender", "男性");
set("age", 33);
set("dex", 43);
set("combat_exp", 3200000);
set("max_neili",4000);
set("neili",4000);
set("max_qi",4000);
set("eff_qi",4000);
set("qi",4000);
set("max_jingli",4000);
set("eff_jingli",4000);
set("jingli",4000);
set_skill("cuff",300);
set_skill("shayi",100 );
set_skill("force", 180);
set_skill("dodge", 200);
set_skill("xuanhualiu-quanfa",350);
set_skill("unarmed",350);
set_skill("shayi-xinfa",180);
map_skill("force","shayi-xinfa");
map_skill("unarmed","xuanhualiu-quanfa");
setup();
carry_object("/clone/misc/cloth")->wear();
set("inquiry",([
"三重勁" : (: ask_kungfu :),
"學藝" : (: ask_kungfu1 :),
"極限" : (: ask_kungfu2 :),
"絕招" : (: ask_kungfu :),
"殺" : (: kungfu_asked1 :),
]));
set("chat_chance_combat",80);
set("chat_msg_combat",({
(: perform_action,"unarmed.sanchong" :),
(: exert_function,"recover" :),
}));
carry_object("/clone/misc/cloth")->wear();
}
void init()
{
object ob;
if( interactive(ob=this_player()) && ob->query_temp("killwei") ) {
remove_call_out("kill_ob");
call_out("kill_ob", 1, ob);
}
}
int ask_kungfu()
{
object me;
mapping myparty;
mapping myfam;
int skills;
me=this_player();
myfam=(mapping)me->query("family");
myparty=(mapping)me->query("party");
skills=me->query_skill("xuanhualiu-quanfa",1);
if ( (!myfam || myfam["family_name"]!="飛天御劍流") && (!myparty || myparty["party_name"]!=HIG"飛天御劍流"NOR) )
{
command("say 我與你無緣，不會教你絕學的？");
return 1;
}
if ( me->query_temp("kungfu_asked1") )
{
command("hmm");
command("say 這套絕學我只教一遍，學成與否就看你自己的造化了。");
return 1;
}
if (myfam && myfam["family_name"]=="飛天御劍流")
{
if ( me->query("combat_exp")<800000)
{
command("say 你的實戰(zhàn)經驗太低，學不了我的絕學。");
return 1;
}
if ( me->query_skill("unarmed",1)<180)
{
command("say 你的拳法還欠火候，學不了我的絕學。");
return 1;
}
if ( me->query("max_neili")<1500)
{
command("say 你的內力基礎太差，學不了我的絕學。");
return 1;
}
if (skills>=this_object()->query_skill("xuanhualiu-quanfa",1))
{
command("say 我已經沒什么可教的啦。");
return 1;
}
if ((skills*skills*skills/7)>me->query("combat_exp"))
{
command("say 你的經驗不夠，說了你也聽不懂。");
return 1;
}
if (me->query("jing")<200)
{
command("say 你太累了，休息會吧。");
return 1;
}
me->improve_skill("xuanhualiu-quanfa",random(10*me->query("int")));
tell_object(me,"你向安慈請教了一些關于喧嘩流拳法的疑問。\n");
me->receive_damage("jing",me->query("jing")/20);
return 1;
}
if (myparty && myparty["party_name"]==HIG"飛天御劍流"NOR)
{
if ( myparty["level"]<4 )
{
command("say 這套絕學我不能教你，對不起。");
return 1;
}
if ( me->query_skill("unarmed",1)<180)
{
command("say 你的拳法還欠火候，學不了我的絕學。");
return 1;
}
if ( me->query("max_neili")<1500 )
{
command("say 你的內力還欠火候，學不了我的絕學。");
return 1;
}
command("say 好吧，你看仔細了，我只演練一遍。");
message_vision(HIY"$N走向一塊巨石，微用拳勁擊向石頭，一聲巨響石頭變成了一堆粉末。\n"NOR,this_object());
if ( me->query("int")<30 )
{
message_vision(YEL"$N看了半天，毫無所得，想必你的資質太差了，掌握不了精髓。\n"NOR,me);
me->set_temp("kungfu_asked1",1);
return 1;
}
message_vision(HIC"$N看了半天,掌握了這套絕學的精髓。\n"NOR,me);
me->set_temp("kungfu_asked1",1);
me->set_skill("xuanhualiu-quanfa",1);
return 1;
}
return 0;
}
int ask_kungfu1()
{
object me;
mapping myparty;
mapping myfam;
me=this_player();
myfam=(mapping)me->query("family");
myparty=(mapping)me->query("party");
if ( (!myfam || myfam["family_name"]!="飛天御劍流") && (!myparty || myparty["party_name"]!=HIG"飛天御劍流"NOR) )
{
command("say 你與本門毫無瓜葛，此話從何談起？");
return 1;
}
command("smile");
command("say 我比較精通拳法，你可以向我請教拳法的疑問。");
return 1;
}
int ask_kungfu2()
{
object me;
mapping myparty;
mapping myfam;
int skills;
me=this_player();
myfam=(mapping)me->query("family");
myparty=(mapping)me->query("party");
skills=(int)me->query_skill("unarmed",1);
if ( (!myfam || myfam["family_name"]!="飛天御劍流") && (!myparty || myparty["party_name"]!=HIG"飛天御劍流"NOR) )
{
command("say 你與本門毫無瓜葛，此話從何談起？");
return 1;
}
if (skills>=this_object()->query_skill("xuanhualiu-quanfa",1))
{
command("say 我已經沒什么可教的啦。");
return 1;
}
if ((skills*skills*skills/7)>me->query("combat_exp"))
{
command("say 你的經驗不夠，說了你也聽不懂。");
return 1;
}
if (me->query("jing")<200)
{
command("say 你太累了，休息會吧。");
return 1;
}
me->improve_skill("unarmed",random(10*me->query("int")));
tell_object(me,CYN"你向安慈請教了一些關于拳法的疑問。\n"NOR);
me->receive_damage("jing",me->query("jing")/20);
return 1;
}
int kungfu_asked1()
{
object me;
mapping myparty;
mapping myfam;
int skills;
mapping guild;
me=this_player();
myfam=(mapping)me->query("family");
myparty=(mapping)me->query("party");
skills=me->query_skill("xuanhualiu-quanfa",1);
if ( !skills )
{
command("hmm");
command("say 你還不會我的拳法，學不了這個。");
return 1;
}
if ( me->query_temp("kungfu_asked1") )
{
command("hmm");
command("say 這套絕學我只教一遍，學成與否就看你自己的造化了。");
return 1;
}
command("say 好吧，你看仔細了，我只演練一遍。");
message_vision(HIY"$N走向一塊巨石，微用拳勁擊向石頭，一聲巨響石頭變成了一堆粉末。\n"NOR,this_object());
if ( me->query("int")<35 )
{
message_vision(YEL"$N看了半天，毫無所得，想必你的資質太差了，掌握不了精髓。\n"NOR,me);
me->set_temp("kungfu_asked1",1);
return 1;
}
message_vision(HIC"$N看了半天,掌握了這套絕學的精髓。\n"NOR,me);
me->set_temp("kungfu_asked1",1);
me->set("feitian/sanchong",1);
return 1;
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -