ouyangke.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

//NPC /d/baituo/npc/ouyangke.c
#include <ansi.h>
inherit F_MASTER;
inherit F_UNIQUE;
inherit NPC;
void greeting(object ob);
int accept_object(object who, object ob);
void create()
{
	seteuid(getuid());
	set_name("欧阳克", ({ "ouyang ke", "ouyang", "ke" }));
	set("long", "他一身飘逸的白色长衫，手摇折扇，风流儒雅。\n");
	set("title", "白驼山少庄主");
	set("nickname", HIM "玉面蛇心" NOR);
	set("gender", "男性");
	set("age", 27);
	set("attitude", "friendly");
	set("shen_type", -1);

	set("str", 25);
	set("int", 24);
	set("con", 25);
	set("dex", 26);

	set("qi", 1000);
	set("max_qi", 1000);
	set("jing", 800);
	set("max_jing", 800);
	set("neili", 1000);
	set("max_neili", 1000);
	set("jiali", 10);

	set("combat_exp", 200000);
	set("score", 40000);

	set_skill("unarmed", 100);
	set_skill("hand", 80);
	set_skill("dodge", 120);
	set_skill("parry", 90);
	set_skill("force", 90);
	set_skill("staff", 80);
	set_skill("training", 50);
	set_skill("hamagong",90);
	set_skill("chanchu-bufa", 100);
	set_skill("shexing-diaoshou", 100);
	set_skill("lingshe-zhangfa", 100);
set_skill("qixian-wuxingjian", 100);
set_skill("cuff", 100);
set_skill("cuff", 100);
set_skill("lingshe-quan", 100);
set_skill("zhaosheshu", 100);
set_skill("yangsheshu", 100);
	map_skill("force", "hamagong");
	map_skill("dodge", "chanchu-bufa");
	map_skill("unarmed", "shexing-diaoshou");
	map_skill("hand", "shexing-diaoshou");
	map_skill("parry", "lingshe-zhangfa");
	map_skill("staff", "lingshe-zhangfa");

	set("startroom","/d/city/beidajie1");

        create_family("白驼山派",2,"弟子");

	set("chat_chance", 10);
	set("chat_msg", ({
		"欧阳克唱道: 漂亮姑娘你请留步￣￣让我多看你一眼￣￣\n",
		"欧阳克色迷迷地看着街边的小姑娘。\n",
		"欧阳克把纸扇一展，转过身去，深情地吟道：红颜知己最难得￣\n",
		(: random_move :)
	}) );

	setup();
	carry_object("/d/baituo/obj/baipao")->wear();
	add_money("silver",10);
}

void init()
{
	object ob;

	::init();

	if( interactive(ob = this_player()) && !is_fighting() ) 
       {
		remove_call_out("greeting");
		call_out("greeting", 1, ob);
	}
}
void greeting(object ob)
{
	if( !ob || environment(ob) != environment() ) return;
	if ((string)ob->query("gender")=="女性")
	{
	   switch(random(3))
	   {
		case 0:command("rose "+(string)ob->query("id"));break;
	  	case 1:command("kiss "+(string)ob->query("id"));break;
	   	case 2:command("love "+(string)ob->query("id"));break;
	   }
     
	}
	else
           say("欧阳克叹了一口气说：这位"+RANK_D->query_respect(ob)+
               ",你要是能给我弄一个女人来就好了。\n");
	return;
}

void attempt_apprentice(object ob)
{
	if ((string)ob->query("family/family_name") == "白驼山派")
	{
	     if((int)ob->query("combat_exp")<10000)
	       command("say 你的经验太低，我还不能收你。继续努力吧。\n");
	     else
               {command("say 你跟着我要好好学。\n");               
	        command("recruit "+ob->query("id"));
                 }
	      return;
	}
	if ((string)ob->query("gender") == "女性")
		message_vision("欧阳克动情地说道：这位" + RANK_D->query_respect(ob) +
		"真乃我的红颜知己，\n我现在还不能收你，只能送你上白驼山。\n",ob);
	else
		message_vision("欧阳克笑笑说：这位"+RANK_D->query_respect(ob)+
		"，我现在还不能收你，只能送你上白驼山。\n",ob);
     write(HIY "只见欧阳克把纸扇往你眼前一晃，\n
     你觉得眼前一闪，身体轻飘飘地飞了出去￣￣\n" NOR);
     ob->move("/d/baituo/liangong");

}

int accept_fight(object ob)
{
	if ((string)ob->query("gender") == "女性")
	{
		message_vision("欧阳克摆摆手说道：这位"+RANK_D->query_respect(ob)+
		"，我怎能欺负女孩子呢！\n", ob);
		return 0;
        }
          if ((string)ob->query("family/family_name") == "白驼山派")
	 {
	  if((int)ob->query("combat_exp")<100000)
	    return notify_fail("欧阳克笑道：你的经验太低了,再练几年吧。！\n");
	  }
	message_vision("欧阳克一拱手说道：这位"+RANK_D->query_respect(ob)+
	"，在下领教了。\n", ob);

	return 1;
}
 
int accept_object(object who, object ob)
{
	object obn;
          if( !who || environment(who) != environment() ) return 0;
	if ( !objectp(ob) ) return 0;
	
	if ( !present(ob, who) ) {say("你没有这件东西。\n"); return 0;}

	if (  (string)ob->query("gender") != "女性")
	{	say("欧阳克不需要这件东西。\n"); return 0;}
	if( environment(this_object())->query("short") == "丽春院" )
	{	say("欧阳克已经有女人了。\n"); return 0;}
	if ( (int)ob->query("age") <18 )
	{	say("欧阳克大惊失色道：未成年少女我怎敢要！\n"); return 0;}
        if ( (int)ob->query("age") >40 )
	{	 say("欧阳克轻蔑地一笑道：这种老古董还是留给你自己吧！\n"); return 0;}

			  
	obn=new("/clone/money/silver");
        obn->set_amount(30);
        obn->move(who);
        message_vision("欧阳克一把把"+ob->query("name")+"揽在怀里，对$N说这点银子是你的辛苦费，
              咱回头见。\n说完，就携着"+ob->query("name")+"往丽春院奔去...\n",who);
        move("/d/city/lichunyuan");
       call_out("destroying", 0,ob);                       
        return 1;
}

void destroying(object ob)
{   
   if(!ob) return;
if (!userp(ob))
{
if(ob) destruct(ob);
}
}