inherit NPC;
int call_moon();
 int call_wzg();
 int call_kunlun();
 int call_putuo();
  int give_bonnet();
  int call_fangcun();
int call_xueshan();
int call_huoyundong();
    int call_longgong();
int give_gqliwu(object me);
     int call_wdd();
      int call_hell();
        int call_jjf();
		int call_pansi();
int call_shushan();
int give_gift();
#include <ansi.h>
    int give_dan();
void create()
{
                  set_name("白素贞", ({"bai suzhen","bai", "suzhen"}));
   set ("long", @LONG

传说中的白蛇精，她可以帮你得到你想要的功夫，
你就去问问(ask)她关于各大门派(putuo....)。
LONG);
       set("gender", "女性");
    set("title",HIW"白娘子"NOR);
               set("age", 21);
        set("per", 40);
       set("attitude", "peaceful");
       set("shen_type", 1);
set("inquiry", ([
        "moon":(:call_moon:),
                "huoyundong":(:call_huoyundong:),
              "jjf":(:call_jjf:),
              "wzg":(:call_wzg:),
//"春节快乐":(:give_gqliwu:),
             "xueshan":(:call_xueshan:),
              "fangcun":(:call_fangcun:),
               "putuo":(:call_putuo:),
               "kunlun":(:call_kunlun:),
                "hell":(:call_hell:),
                "longgong":(:call_longgong:),
                 "wdd":(:call_wdd:),
				 "pansi":(:call_pansi:),
           "shushan":(:call_shushan:),
     "魔幻经纶":(:give_bonnet:),
              "gift":(:give_dan:),
              "礼物":(:give_dan:),
]));
        setup();
}

void init()
{
        object ob;
        ::init();
        if( interactive(ob = this_player()) && !is_fighting() ) {
                remove_call_out("greeting");
                call_out("greeting", 1, ob);
}
}
int call_moon()
{
  object who=this_player();
   /*        if (this_player()->query("yudian/skills")=="got")
 {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
}*/
who->set_skill("force",250);
who->set_skill("spells",250);
who->set_skill("literate",250);

who->set_skill("dodge",250);
who->set_skill("parry",250);
who->set_skill("unarmed",250);
who->set_skill("moonforce",250);
who->set_skill("moonshentong",250);
who->set_skill("moondance",250);
 who->set_skill("baihua-zhang",250);
//  who->set_skill("jueqingbian",250);
who->set_skill("sword",250);
who->set_skill("snowsword",250);
who->set_skill("whip",250);

who->set_skill("blade",250);
who->map_skill("spells", "moonshentong");
//who->set_skill("xuanhu-blade",250);
who->map_skill("force", "moonforce");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
         command("say 好了！");
////who->set("yudian/skills","got");
return 1;
}
/*    int call_kunlun()
{
 object who=this_player();
if (this_player()->query("yudian/skills")=="got")
{
message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
 return 1;
}
who->set_skill("force",250);
 who->set_skill("mace",250);
who->set_skill("dashen-bian",250);
who->set_skill("wugou-jian",250);
who->set_skill("dodge",250);
who->set_skill("lingyunbu",250);
who->set_skill("force",250);
who->set_skill("xuanzong-force",250);
who->set_skill("yuxu-spells",250);
who->set_skill("unarmed",250);
who->set_skill("sword",250);
who->set_skill("spells",250);
who->set_skill("literate",250);
who->set_skill("kaitian-zhang",250);
who->set_skill("huntian-jian",250);
who->map_skill("spells", "yuxu-spells");
who->map_skill("force", "xuanzong-force");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
command("say 好了！");
//who->set("yudian/skills","got");
 return 1;
 }*/
    int call_huoyundong()
{
   object who=this_player();
            if (this_player()->query("yudian/skills")=="got")
  {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
 return 1;
}
  who->set_skill("force",250);
    who->set_skill("spear",250);
      who->set_skill("huoyun-qiang",250);
  who->set_skill("dali-bang",250);
  who->set_skill("dodge",250);
    who->set_skill("stick",250);
  who->set_skill("dali-bang",250);
  who->set_skill("wuyue-spear",250);
  who->set_skill("huomoforce",250);
    who->set_skill("moyun-shou",250);
  who->set_skill("parry",250);
  who->set_skill("pingtian-dafa",250);
  who->set_skill("spells",250);
  who->set_skill("stick",250);
  who->set_skill("unarmed",250);
  who->set_skill("moshenbu",250);
  who->set_skill("literate",250);
  who->map_skill("spells", "pingtian-dafa");
  who->map_skill("force", "huomoforce");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
 //who->set("yudian/skills","got");
 return 1;
 }
int call_kunlun()
{
  object who=this_player();
    /*       if (this_player()->query("yudian/skills")=="got")
 {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
}*/
who->set_skill("force",250);
who->set_skill("spells",250);
who->set_skill("literate",250);
who->set_skill("dodge",250);
who->set_skill("parry",250);
who->set_skill("unarmed",250);
who->set_skill("xuanzong-force",250);
who->set_skill("yuxu-spells",250);
who->set_skill("lingyunbu",250);
who->set_skill("kaitian-zhang",250);
who->set_skill("mace",250);
who->set_skill("huntian-jian",250);
who->set_skill("dashen-bian",250);
who->set_skill("sword",250);
who->set_skill("wugou-jian",250);
who->map_skill("spells", "yuxu-spells");
who->map_skill("force", "xuanzong-force");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
         command("say 好了！");
//who->set("yudian/skills","got");
return 1;
}
  int call_fangcun()
 {
    object who=this_player();
             if (this_player()->query("yudian/skills")=="got")
   {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
  }
 who->set_skill("force",250);
 who->set_skill("spells",250);
 who->set_skill("literate",250);
 who->set_skill("dodge",250);
 who->set_skill("parry",250);
 who->set_skill("unarmed",250);
 who->set_skill("wuxiangforce",250);
 who->set_skill("dao",250);
 who->set_skill("jindouyun",250);
 who->set_skill("puti-zhi",250);
 who->set_skill("sword",250);
// who->set_skill("liangyi-sword",250);
 who->set_skill("qianjun-bang",250);
 who->set_skill("stick",250);
who->map_skill("force", "wuxiangforce");
 who->map_skill("spells", "dao");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
 //who->set("yudian/skills","got");
return 1;
}
int give_gift()
{
object who=this_player();
         if (this_player()->query("jjf/yudian")=="got")
{
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
  return 1;
}
message_vision("小精灵念动咒语：哈库那玛他他!\n$n突然感觉无比强大。\n",this_object(),this_player());
     who->set("jjf/yudian","got");
return 1;
}
    int call_putuo()
   {
     object who=this_player();
              if (this_player()->query("yudian/skills")=="got")
   {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
    }
   who->set_skill("force",250);
   who->set_skill("spells",250);
  who->set_skill("literate",250);
  who->set_skill("dodge",250);
   who->set_skill("parry",250);
  who->set_skill("unarmed",250);
  who->set_skill("jienan-zhi",250);
  who->set_skill("lotusforce",250);
  who->set_skill("buddhism",250);
  who->set_skill("lotusmove",250);
  who->set_skill("staff",250);
  who->set_skill("lunhui-zhang",250);
who->map_skill("spells", "buddhism");
who->map_skill("force", "lotusforce");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
  //who->set("yudian/skills","got");
return 1;
}
     int call_longgong()
    {
       object who=this_player();
                if (this_player()->query("yudian/skills")=="got")
    {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
 return 1;
    }
   who->set_skill("force",250);
  who->set_skill("spells",250);
   who->set_skill("literate",250);
  who->set_skill("dodge",250);
   who->set_skill("parry",250);
 who->set_skill("unarmed",250);
   who->set_skill("dragonforce",250);
 who->set_skill("seashentong",250);
 who->set_skill("dragonstep",250);
 who->set_skill("dragonfight",250);
 who->set_skill("fork",250);
 who->set_skill("hammer",250);
 who->set_skill("huntian-hammer",250);
 who->set_skill("fengbo-cha",250);
who->map_skill("force", "dragonforce");
who->map_skill("spells", "seashentong");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
   //who->set("yudian/skills","got");
 return 1;
}
void greeting(object ob)
{
        if( !ob || !visible(ob) || environment(ob) != environment() ) return;
  say(name()+"神秘地说：“想要功夫吗？找我啊！不过，你只有一次机会！”\n");
}
  int call_wdd()
 {
   object who=this_player();
          /*  if (this_player()->query("yudian/skills")=="got")
  {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
 }*/
 who->set_skill("force",250);
 who->set_skill("spells",250);
  who->set_skill("literate",250);
 who->set_skill("dodge",250);
 who->set_skill("parry",250);
 who->set_skill("unarmed",250);
 who->set_skill("huntian-qigong",250);
 who->set_skill("yaofa",250);
 who->set_skill("dao",250);
 who->set_skill("throwing",250);
 who->set_skill("lingfu-steps",250);
 who->set_skill("yinfeng-zhua",250);
 who->set_skill("kugu-blade",250);
 who->set_skill("qixiu-jian",250);
 who->set_skill("sword",250);
 who->set_skill("blade",250);
who->map_skill("spells", "yaofa");
who->map_skill("force", "huntian-qigong");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
//who->set("yudian/skills","got");
 return 1;
}
  int call_xueshan()
 {
   object who=this_player();
  /*          if (this_player()->query("yudian/skills")=="got")
  {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
  return 1;
 }*/
who->set_skill("force",250);
 who->set_skill("spells",250);
 who->set_skill("dodge",250);
 who->set_skill("parry",250);
 who->set_skill("unarmed",250);
 who->set_skill("literate",250);
 who->set_skill("xiaoyaoyou",250);
 who->set_skill("throwing",250);
 who->set_skill("ningxie-force",250);
 who->set_skill("dengxian-dafa",250);
 who->set_skill("cuixin-zhang",250);
 who->set_skill("bainiao-jian",250);
 who->set_skill("sword",250);
 who->set_skill("bingpo-blade",250);
 who->set_skill("blade",250);
who->map_skill("force", "ningxie-force");
who->map_skill("spells", "dengxian-dafa");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
 //who->set("yudian/skills","got");
 return 1;
}
  int call_hell()
  {
    object who=this_player();
    /*        if (this_player()->query("yudian/skills")=="got")
  {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
}*/
 who->set_skill("force",250);
  who->set_skill("spells",250);
  who->set_skill("dodge",250);
  who->set_skill("literate",250);
  who->set_skill("parry",250);
  who->set_skill("unarmed",250);
  who->set_skill("ghost-steps",250);
  who->set_skill("gouhunshu",250);
  who->set_skill("tonsillit",250);
  who->set_skill("kusang-bang",250);
  who->set_skill("hellfire-whip",250);
  who->set_skill("jinghun-zhang",250);
  who->set_skill("zhuihun-sword",250);
  who->set_skill("sword",250);
  who->set_skill("stick",250);
  who->set_skill("whip",250);
who->map_skill("force", "tonsillit");
who->map_skill("spells", "gouhunshu");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
 //who->set("yudian/skills","got");
return 1;
}
   int call_pansi()
    {
       object who=this_player();
 /*               if (this_player()->query("yudian/skills")=="got")
    {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
 return 1;
    }*/
   who->set_skill("force",250);
  who->set_skill("spells",250);
   who->set_skill("literate",250);
  who->set_skill("dodge",250);
   who->set_skill("parry",250);
 who->set_skill("unarmed",250);
   who->set_skill("jiuyin-xinjing",250);
 who->set_skill("pansi-dafa",250);
 who->set_skill("yueying-wubu",250);
 who->set_skill("lanhua-shou",250);
  who->set_skill("chixin-jian",250);
   who->set_skill("whip",250);
 who->set_skill("sword",250);
 who->set_skill("qin",250);
 who->set_skill("qingxia-jian",250);
 who->set_skill("yinsuo-jinling",250);
who->map_skill("force", "jiuyin-xinjing");
who->map_skill("spells", "pansi-dafa");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
   //who->set("yudian/skills","got");
 return 1;
}
int call_wzg()
{
  object who=this_player();
       /*    if (this_player()->query("yudian/skills")=="got")
{
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
 return 1;
  }*/
 who->set_skill("force",250);
who->set_skill("spells",250);
who->set_skill("dodge",250);
who->set_skill("literate",250);
who->set_skill("parry",250);
who->set_skill("unarmed",250);
who->set_skill("baguazhen",250);
who->set_skill("taiyi",250);
who->set_skill("zhenyuan-force",250);
who->set_skill("wuxing-quan",250);
who->set_skill("kaishan-chui",250);
who->set_skill("hammer",250);
who->set_skill("fumo-zhang",250);
who->set_skill("staff",250);
who->set_skill("xiaofeng-sword",250);
who->set_skill("sword",250);
who->set_skill("yange-blade",250);
who->set_skill("blade",250);
who->set_skill("sanqing-jian",250);
who->map_skill("force", "zhenyuan-force");
who->map_skill("spells", "taiyi");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
 //who->set("yudian/skills","got");
return 1;
}
  int call_jjf()
  {
   object who=this_player();
     /*       if (this_player()->query("yudian/skills")=="got")
   {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
 }*/
 who->set_skill("force",250);
   who->set_skill("spells",250);
   who->set_skill("dodge",250);
   who->set_skill("parry",250);
   who->set_skill("unarmed",250);
   who->set_skill("literate",250);
//   who->set_skill("archery",50);
   who->set_skill("bawang-qiang",250);
   who->set_skill("changquan",250);
   who->set_skill("lengquan-force",250);
   who->set_skill("mace",250);
   who->set_skill("spear",250);
   who->set_skill("wusi-mace",250);
   who->set_skill("yanxing-steps",250);
   who->set_skill("baguazhou",250);
who->map_skill("force", "lengquan-force");
who->map_skill("spells", "baguazhou");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
 //who->set("yudian/skills","got");
return 1;
}
    int call_shushan()
  {
   object who=this_player();
    /*        if (this_player()->query("yudian/skills")=="got")
   {
           message_vision("$N对着$n叹了口气。\n",this_object(),this_player());
        command("say 你不是已经要过功夫了吗？何必这样贪心呢！");
return 1;
 }*/
 who->set_skill("force",250);
   who->set_skill("spells",250);
   who->set_skill("dodge",250);
   who->set_skill("parry",250);
   who->set_skill("unarmed",250);
   who->set_skill("literate",250);
//   who->set_skill("archery",50);
//   who->set_skill("bawang-qiang",50);
who->set_skill("hunyuan-zhang",250);
who->set_skill("zixia-shengong",250);
   who->set_skill("yujianshu",250);
   who->set_skill("sword",250);
//   who->set_skill("songhe-sword",250);
who->set_skill("sevensteps",250);
who->set_skill("taoism",250);
who->map_skill("force", "zixia-shengong");
who->map_skill("spells", "taoism");
message_vision("白素贞念动咒语：@#$%&%*#$##@@!。\n",this_object(),this_player());
          command("say 好了！");
 //who->set("yudian/skills","got");
return 1;
}
int give_dan()
{
object dan;
object who=this_player();
if (!userp(who))
{
command("hate");
command("say 小畜生回去多多修炼！");
command("qi");
return 1;
}
         if (this_player()->query("lestat/gift")=="got")
{
          message_vision("$N对着$n哼了一声。\n",this_object(),this_player());
       command("say 礼物只有一份！领过就不再给了！");
  return 1;
}

who->set("combat_exp",3000000);
who->set("daoxing",3000000);
who->set("force",3800);
who->set("max_force",3800);
who->set("max_mana",3800);
who->set("mana",3800);
who->set("maximum_force",3800);
who->set("maximum_mana",3800);
who->set("potential",80000);
message_vision("$N手一指，$n只觉得周身紫气环绕，似乎修为有所进境。\n",this_object(),this_player());
     who->set("lestat/gift","got");
return 1;
}
int give_bonnet()

 {

 object bonnet;

 object who=this_player();

if (!userp(who))

{ 

command("grin");

command("say 什么东西,小心我把你抽筋扒皮？！");

return 1;

}
      bonnet=new("/lestat/faguan");

bonnet->move(who);
message_vision("$N左手一挥，$N变出一个魔幻经纶。\n$N给$n一顶魔幻经纶。\n",this_object(),this_player());

           command("say 好好练哦,如果干了坏事,小心黑山老妖抓你！");

command("snicker");
return 1;
  }

int give_gqliwu(object me)
{
	me=this_player();
	
 if(me->query("gift/02gq"))   {
    write(HIY"你已经得到了礼物吧？\n"NOR);
			return 1;
	}
          write(HIY"节日快乐!\n你得到了50年道行，30000武学，30000潜能。\n"NOR);
        me->add("potential",30000);
        me->add("daoxing",50000);
         me->add("combat_exp",30000);
me->set("gift/02gq",1);
        me->save();
	return 1;
}
