snaker.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 101 行

//NPC snaker.c
#include <ansi.h>
inherit NPC;
inherit F_DEALER;
void greeting(object ob);
void create()
{
	set_name("舞蛇人", ({ "snaker" }));
	set("long", "他是一个西域来的舞蛇人。\n");
	set("title", "西域蛇王");
	set("nickname", HIY "蛇见怕" NOR);
	set("gender", "男性");
	set("age", 33);
	set("attitude", "friendly");
	set("shen_type", -1);
	set("str", 25);
	set("int", 24);
	set("con", 25);
	set("dex", 26);

	set_skill("unarmed", 75);
	set_skill("dodge", 65);
	set_skill("parry", 65);
	set_skill("force", 60);
	;

	set("neili", 400);
	set("max_neili", 400);
	set("jiali", 20);
	set("combat_exp", 30000);
   set("snake_mount" ,3);
	set("score", 10000);

	set("chat_chance",5);
	set("chat_msg", ({
		"舞蛇人吆喝道:停一停，看一看，有上好的蛇胆粉出售了￣\n",
		"舞蛇人把手腕划出一道口子，又敷上蛇胆粉，咦，流血立即停止了。\n",
		"舞蛇人把手里的蛇舞来舞去道：货真价实的啦，别错过好机会￣\n",
	}) );

	set("inquiry", ([
		"白驼山" : "我这里的蛇胆粉就是用白驼山的蛇精心制作的。\n",
		"蛇胆粉" : "我的蛇胆粉能治各种外伤，疗效不凡！\n",
	]));
	 set("vendor_goods", ({
	 "/d/baituo/obj/fen",
	 }));

	setup();
	carry_object("/d/baituo/obj/baipao")->wear();
}

void init()
{
	object ob;

	::init();
        add_action("do_list","list");
        add_action("do_buy","buy"); 
	if( interactive(ob = this_player()) && !is_fighting() ) {
		remove_call_out("greeting");
		call_out("greeting", 1, ob);
	}
       
}
void greeting(object ob)
{       object obn;
	if( !ob || environment(ob) != environment() ) return;
	if ((string)ob->query("family/family_name") == "白驼山派")
	{
	  if(!present("shenshe",ob)&&random(2)==1)
	     {
	      tell_object(ob,"这位"+RANK_D->query_respect(ob)+"，我这里有「引路神蛇」，\n"+
	       "你先拿去用，不用担心，我是真心帮你啦￣\n");
	      obn=new("/d/baituo/obj/shenshe");
	      obn->move(ob);
	      return;
	     }
	}
      say("舞蛇人殷勤地说：这位"+RANK_D->query_respect(ob)+"，买我的蛇胆粉吧，包您满意。\n");
      return;
}

int accept_fight(object ob)
{
	object obn;
	if(!objectp(present("mang she",environment(ob))))
	{
	add("snake_mount", -1);
	if(!query("snake_mount")) { message_vision("舞蛇人怒道 你还想骗老子的蛇吗？呸！！ \n",ob);  return 1; }
	message_vision("舞蛇人大叫一声：小子竟敢跟老子过不去，尝尝蛇的厉害。\n", ob);
	obn=new("/d/baituo/npc/mangshe");
	obn->move(environment(ob));
	obn->kill_ob(ob);
	return 0;
	}
	message_vision("舞蛇人大怒道：让你小子尝尝老子的厉害。\n", ob);
	return 1;
}