// come.c

#include <ansi.h>

inherit F_CLEAN_UP;

int main(object me, string arg)
{
	object ob;
	int cost;

	seteuid(getuid());

	if( me->is_fighting() )
		return notify_fail("一邊打架一邊馴獸？你真是活膩了！\n");
	if ( me->query_skill("training",1) < 10 )
		return notify_fail("你的馭獸術(shù)還不純熟，無(wú)法讓野獸跟隨你！\n");
	if ( me->query_temp("comedby"))
		return notify_fail("已經(jīng)有野獸跟著你了！\n");
	if ( !arg )
		return notify_fail("你要讓什么野獸跟隨你？\n");
	if( !objectp(ob = present(arg, environment(me)) ))
		return notify_fail("這里沒(méi)有這只野獸吧？\n");
	if (userp(ob)) 
		return notify_fail("人家也是玩家，你搞什么搞啊？\n");
	if (ob->query("race") != "野獸") 
		return notify_fail("這不是野獸，你暈頭了吧？\n");
        if( ob->is_fighting() )
                return notify_fail(ob->name() + "正在打架，沒(méi)空理你！\n");
        if( ob->is_busy() )
                return notify_fail(ob->name() + "正在忙乎，沒(méi)空理你！\n");
        if( !ob->query_temp("owner") )
                return notify_fail(ob->name() + "是只無(wú)主野獸，你得先馴服(train)它啊！\n");
        if( ob->query_temp("owner") &&
           ( ob->query_temp("owner") != me->query("id") ))
	{
		ob->kill_ob(me);
                return notify_fail(ob->name() + "早被人家馴服了，你不是找死啊！\n");
	}
	if ( ob == me )
		return notify_fail("你沒(méi)問(wèn)題吧，自己跟自己？\n");
	if (!living(ob)) 
		return notify_fail("這只野獸暈倒了，你怎能讓它跟你呢？\n");

	cost = me->query("max_jing")/(me->query_skill("training",1)/10) - 10;

	if ( me->query("jing") <= cost )
		return notify_fail("現(xiàn)在你太累了，無(wú)法讓野獸跟隨。\n");

	message_vision("只見(jiàn)$N沖著"+ob->name()+"手中擺了個(gè)手式，它一竄就跟上了。\n\n",me);

	me->receive_damage("jing", cost );
	me->set_temp("comedby", ob->query("id"));
	ob->set_leader(me);
	return 1;
}

int help(object me)
{
	write(@HELP
指令格式 : come <動(dòng)物>

此指令可用于讓某動(dòng)物跟隨你。對(duì)于已經(jīng)馴服的動(dòng)物，可以進(jìn)行下述指令：

基本指令：
        come <動(dòng)物名>:                  讓動(dòng)物跟隨主人行動(dòng)。
        stay:                           停止動(dòng)物的跟隨狀態(tài)。
        attack <某人>:                  讓動(dòng)物攻擊敵人。
        stop <動(dòng)物名>:                  讓動(dòng)物停止對(duì)人的攻擊。
        release:                        結(jié)束主奴狀態(tài)，將動(dòng)物放離。

特殊指令：（只對(duì)某些動(dòng)物適用）
        qi(ride) <動(dòng)物名>:              騎，如騎馬，虎，雕，鯊等。
        xia(unride) <動(dòng)物名>:           下，離開(kāi)坐騎。
        wei(feed) <動(dòng)物名>:             替動(dòng)物喂食。
        yin <動(dòng)物名>:                   給動(dòng)物飲水。

HELP
	);
	return 1;
}