yue.c

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

// thousand_hand.c

#include <ansi.h>

inherit NPC;
string	summon_more( object who);
void create()
{
	set_name( "湖上月", ({ "yue", "girl" }) );
	set("long", "这是千金楼湖上八娇之一．
湖上月，偏照列仙家。
水浸寒光铺枕簟，浪摇晴影走金蛇，偏称泛灵槎。
光景好，轻彩望中斜。
清露冷侵银兔影，西风吹落桂花枝，开宴思无涯。
\n");
	set("attitude", "friendly");
	set("title", HIM "湖上八娇" NOR);
	set("max_gin", 500);
	set("max_kee", 500);
	set("max_sen", 500);
	set("age", 17);
        set("gender", "女性" );


	set("str", 35);
	set("cor", 30);
	set("cps", 25);
	set("per", 40);
	set("combat_exp", 50000);
        set("chat_chance", 1);
        set("chat_msg", ({
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
关关雎鸠， 在河之洲。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
窈窕淑女， 君子好逑。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
参差荇菜， 左右流之。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
窈窕淑女， 寤寐求之。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
求之不得， 寤寐思服。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
悠哉悠哉， 辗转反侧。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
参差荇菜， 左右采之。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
窈窕淑女， 琴瑟友之。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
参差荇菜， 左右毛之。\n",
"湖上月调了调弦，轻轻的和着琵琶唱了起来：
窈窕淑女， 钟鼓乐之。\n",
        }) );

	set("chat_chance_combat", 1);
	set("chat_msg_combat", ({
		(: summon_more(this_object()) :),
	}) );
	set_skill("hammer", 1+random(100));
	setup();
        carry_object(__DIR__"obj/yue")->wear();
	carry_object(__DIR__"obj/piba")->wield();
        if (random(2)==0)
        add_money("gold", 1);

}

string summon_more(object who)
{
	int i;
	object *enemy;
	object another;
	seteuid(getuid());
	another = new(__DIR__"jianu");
	another->move(environment(who));
	message_vision(another->name()+ "走了过来。\n"
		, this_object() );
	enemy = who->query_enemy();
	i = sizeof(enemy);
	while(i--) {
		if( enemy[i] && living(enemy[i]) ) {
			another->kill_ob(enemy[i]);
			enemy[i]->kill_ob(another);
			another->set_leader(enemy[i]);
		}
	}
	return "1";
}
int accept_object(object me, object obj)
{
	object pai;
        if( (string) obj->query("name") == "生烧扒翅")
	{
        message_vision("$N向$n道了个万福：\n",this_object(),me);
        command("smile");
	command("say 哇．．我最喜欢吃的耶！太谢谢你了！这个给你！\n");
	pai = new(__DIR__"obj/yuepai");
	if(pai)
	pai->move(me);
        message_vision("$N拿出月玉璧给$n。\n",this_object(),me);
	return 1;	
	}

	if( !obj->value() &&  !obj->query("value")) return 0;
        command("smile");
	message_vision("$N向$n道了个万福：\n",this_object(),me);
        command("say 多谢这位" + RANK_D->query_respect(me) +
"，头一次见到象您这么大方的！");
        return 1;
}