#include <ansi.h>
#include "lingxiao.h"
inherit NPC;
inherit F_MASTER;
inherit F_QUESTER;
inherit F_COAGENT;
mixed ask_skill1();
void create()
{
set_name("白自在", ({"bai zizai", "bai", "zizai"}));
set("nickname", HIY "威德先生" NOR);
set("long", "他就是凌宵城城主，雪山派第五代掌门人，江湖人称威\n"
"德先生的百自在。相传他年轻时巧逢灵药，因而功力\n"
"大增。后来性情大变，自认为天下武功第一，狂傲非常。\n");
set("gender", "男性");
set("age", 65);
set("attitude", "friendly");
set("shen_type", 1);
set("str", 60);
set("int", 23);
set("con", 60);
set("dex", 45);
set("max_qi", 10000);
set("max_jing", 10000);
set("neili", 30000);
set("max_neili", 30000);
set("jiali", 200);
set("combat_exp", 3500000);
set("inquiry",([
"白自在" : "就是老子！"
"史婆婆" : "那是老子的夫人，可她......"
"白万剑" : "那是老子的儿子！"
"阿绣" : "乖孙女差点给浑小子凌辱，现在也不知跑哪去了。"
"石中玉" : "如果抓到这浑小子，老子一定把他拆筋剥皮！"
"石破天" : "哼！这小子功夫倒是不错。"
"寒梅六放" : "这招你还是去问祖师吧，老子不想教你。",
"百里飞梅" : "这种功夫只有女人才学得好，老子不想学，也学不来！",
"岭雪寒山" : "去问祖师，别来烦老子！",
"冰魄寒光" : "这招老子不想教你，别来问我！",
"寒霜截气" : "这招你去问祖师，我不教你这招。",
"孤鸿飞绝" : "老子轻功天下第一，你学不来！",
"神倒鬼跌三连环" : (: ask_skill1 :),
]));
set_skill("force", 380);
set_skill("lingxiao-xinfa", 380);
set_skill("dodge", 320);
set_skill("xueyan-piaoxu", 320);
set_skill("unarmed", 300);
set_skill("kaifei-shoufa", 300);
set_skill("sword", 400);
set_skill("xueshan-jian", 400);
set_skill("parry", 300);
set_skill("literate", 200);
set_skill("martial-cognize", 320);
map_skill("force", "lingxiao-xinfa");
map_skill("dodge", "xueyan-piaoxu");
map_skill("unarmed", "kaifei-shoufa");
map_skill("sword", "xueshan-jian");
create_family("凌霄城", 5, "掌门");
set("chat_chance_combat", 120);
set("chat_msg_combat", ({
(: perform_action, "sword.han" :),
(: perform_action, "sword.ling" :),
(: perform_action, "sword.bing" :),
(: perform_action, "unarmed.san" :),
(: perform_action, "dodge.gu" :)
(: exert_function, "recover" :),
(: exert_function, "powerup" :),
(: exert_function, "shield" :)
}));
setup();
carry_object("/clone/weapon/changjian")->wield();
carry_object(CLOTH_DIR+"bai")->wear();
}
void attempt_apprentice(object me)
{
if (! permit_recruit(me))
return;
if( query("shen", me)<10000 )
{
command("heng");
command("say 老子是人人称道的正人君子，岂能收你为徒？");
return;
}
if( query("combat_exp", me)<400000 )
{
command("heng");
command("say 你江湖经验太浅，就算拜了老子当师父，也不会有什么作为。");
return;
}
if ((int)me->query_skill("lingxiao-xinfa", 1) < 150)
{
command("peer");
command("say 你本门内功差成这样，居然也好意思来找老子！");
return;
}
if ((int)me->query_skill("xueshan-jian", 1) < 150)
{
command("say 你他妈在我雪山派待了这么久，居然连本派剑法都没练好？");
command("say 真是暴殄天物，气死老子也！");
return;
}
command("haha");
command("say 你运气好，碰巧老子今天心情不错，就收下你吧！");
command("recruit "+query("id", me));
}
mixed ask_skill1()
{
object me;
me = this_player();
if( query("can_perform/kaifei-shoufa/san", me) )
return "自己下去练，别老跟我纠缠不休！";
if( query("family/family_name", me) != query("family/family_name") )
return "你是哪里来的？快给我快快滚开！";
if (me->query_skill("kaifei-shoufa", 1) < 1)
return "你连老子的功夫都没学，还谈什么绝招可言？";
if( query("family/gongji", me)<200 )
return "哼，你在本派中无所作为，还敢来跟老子学绝招？";
if (me->query_skill("force") < 150)
return "你的内功修行实在太差，下去练练再来！";
if (me->query_skill("kaifei-shoufa", 1) < 200)
return "你开飞手法练成这样，好意思来找老子？";
message_vision(HIY "$n" HIY "望着$N" HIY "哈哈一笑，道：“好！好！"
"好！过来，老子传你此\n招。”$N" HIY "一听便到他跟"
"前，但听$n" HIY "说道：“你瞧着，我这么\n伸手，揪"
"住你的后颈，便摔你一个筋……”右手一探，果然已揪\n"
"住了$N" HIY "后颈。这一下出手既快，方位又奇，$N"
HIY "如何避得，只觉白\n自在手上力道大得出奇，给他一"
"抓之下，身子便腾空而起，跌在\n了地上。$n" HIY "一"
"笑，左手随即探出，又已抓住$N" HIY "胸口，顺势一\n"
"甩，再次将$N" HIY "摔倒。此时却见$n" HIY "左脚随着"
"绊去，刹那间把快\n要倒地的$N" HIY "又给绊了一跤。\n"
NOR, me, this_object());
command("heihei");
command("say 老子这一揪、一抓、一绊，接连三招，号称神倒鬼跌三连环。");
command("say 这三招你下去后慢慢练，日后受益无穷。");
tell_object(me, HIC "你学会了“神倒鬼跌三连环”。\n" NOR);
if (me->can_improve_skill("unarmed"))
me->improve_skill("unarmed", 150000);
if (me->can_improve_skill("kaifei-shoufa"))
me->improve_skill("kaifei-shoufa", 150000);
me->improve_skill("martial-cognize", 150000);
set("can_perform/kaifei-shoufa/san", 1, me);
addn("family/gongji", -200, me);
return 1;
}
//好的，这是我写的白自在coding
//原本是想要把白自在设定成门派最高npc，可是回头一想不对
//昆仑有何足道，血刀门有血刀老祖
//那凌霄城有凌霄子好像也没有不合理的地方。
//所以我后来把凌霄子写出来放在凌霄城的最后面