// bukuai.c 捕快
// Freeze(Rtm) 編寫  Beta 1.1 目前的問題是-當著捕快殺了人捕快不會馬上采取行動 :P
// 版權為 超頻 工作室所有 / 未經許可不得復制、使用、改動
// 1998/9/19

#include <ansi.h>
inherit NPC;

void catched(object me,object dest);
void greeting(object ob);
int catch_pk(object me,object dest);
int waiting(object me, object dest);
int checking(object me, object dest);

void create()
{
	set_name("捕快", ({ "bu kuai", "bu", "kuai" }));
	set("gender", "男性");
	set("age", random(10) + 30);
	set("str", 30);
	set("dex", 16);
	set("long", "看那樣子就是場面上的老手，行走于黑、白兩道...\n");
	set("combat_exp", 100000);
	set("shen_type", 1);
	set("attitude", "peaceful");

	set_skill("unarmed", 60);
	set_skill("force", 60);
	set_skill("sword", 60);
	set_skill("dodge", 60);
	set_skill("parry", 60);
	set_temp("apply/attack", 50);
	set_temp("apply/defense", 50);
	set_temp("apply/armor", 50);
	set_temp("apply/damage", 30);

	set("neili", 400); 
	set("max_neili", 400);
	set("jiali", 10);
	
        set("chat_chance",10);
        set("chat_msg",({
     "捕快哼了一聲，說道：“有我在就誰也別想殺人...誰要是殺了人給我找麻煩，就讓他媽的去坐牢！”\n",
     BLU"捕快低聲嘟囔著：遇上殺人我才不理會呢！卻來個欲擒故縱，只等他殺人得手逃去我才緝拿，如此就有賞銀花了...哼哼...\n"NOR,
//        (: random_move :)
	}));

	setup();
	carry_object("/d/city/obj/gangjian")->wield();
	carry_object("/d/city/obj/tiejia")->wear();
}

void init()
{
	object ob;
	::init();

	if (interactive(ob = this_player()))
        {
		remove_call_out("greeting");
	        call_out("greeting", 0, ob);
	}        
}

void greeting(object ob)
{
        object me;
        me = this_object();

	if(!ob || environment(ob) != environment()) return;
	if ( ob->query_condition("killer") )
	{
                if ( ! is_fighting()) 
                {
			call_out("catch_pk",0,me,ob);
			return;	
		}
		else
		{
			message_vision(HIC "$N對$n說道：聽說你個小混蛋殺了人，等我忙完了再來收拾你！"
                                +RANK_D->query_rude(ob)+"，算你命大，再留你多活幾天！\n" NOR, me, ob);
			return;
		}
        }
	else
	{
		command("say 他媽的，今天怎么沒有人殺人！拿不著人老子花什么...悶死我了...");	
//		init();
	}
	return;
}

int catch_pk(object me,object dest)
{
	if( objectp(dest) && present(dest, environment(me))
		 && !environment(me)->query("no_fight"))
	{
//		if (dest->query("qi") == 0 || dest->query("qi") <= 30 ) 
		if ( dest->query("qi") <= 40)
		{
			catched(me,dest);
               	        return 1;
		}

		message_vision(HIY "$N對$n說道：聽說你殺了人，乖乖兒跟我回去查個清楚，否則讓你"
			+RANK_D->query_rude(dest)+"見閻王！\n" NOR, me, dest);
		me->set_leader(dest);
                me->fight_ob(dest);
                
		dest->fight_ob(me);
               
		call_out("checking", 0,  me, dest);
		
	}
	else  
		call_out("waiting", 1, me, dest);
	
	return 1;
}

int waiting(object me, object dest)
{
	if ( objectp(dest) )
	{
		if (dest->is_ghost())
		{
			dest->apply_condition("killer",0);
			return 1;
		}
		else if (me->is_fighting() && present(dest, environment(me)))
		{
			call_out("checking", 0, me);
			return 1;
		}
		     else if (!me->is_fighting() && present(dest, environment(me)))
		     {
		     	      call_out("checking",0,me);
			      return 1;
		     }			
	}		
	
	remove_call_out("waiting");
	call_out("waiting", 10, me);
    return 1;
}

int checking(object me, object dest)
{
	object ob;
        
	if (me->query("qi") == 0)
		return 1;

	if (me->is_fighting()) 
	{
		call_out("checking",0,me);		
	        return 1;
	}
	else  init();

	if (objectp(ob = present("corpse", environment(me)))
		 && ob->query("victim_name") ==	dest->query("name") )
	{
		dest->apply_condition("killer",0);
        	return 1;
	}

//	if (dest->query("qi") == 0 || dest->query("qi") <= 30 ) 
	if ( dest->query("qi") <= 40 )
	{
		command("say 這次是checking()在工作");
		catched(me,dest);
		return 1;
	} 
	else if (dest->query("qi") > 0) init();

	call_out("waiting", 0, me, dest);
	return 1;
}

void catched(object me,object dest)
{	
	command("say "+(string)dest->query("id")+(string)dest->query("qi"));
		
//	command("get "+(string)dest->query("id"));
	command("say 呵，就這么兩下子還敢跟老子叫板！你已經沒著了，看綁吧！" );
	message_vision(HIC"只聽“嘩啦”一聲，$N拋出鎖鏈將人犯鎖住，押解著"+(string)dest->query("name")+"向嘉峪關方向趕去。\n"NOR,me);

        dest->move("/wizhome/rtmhome/gvmt/jianyu_do");
	me->move("/wizhome/rtmhome/gvmt/jianyu_do");
	dest->unconcious(); //可能有不良影響

	dest->apply_condition("killer",0);
//	command("drop "+(string)dest->query("id"));
	me->set_leader(0);
		
	message_vision(HIC"$N啐了口唾沫，將"+(string)dest->query("name")+"重重的擲在地上，狠狠地踢了一腳，留下一個清晰的鞋印，轉身鎖上牢門離開。\n"NOR,me);

	switch ( random(6) )
	{
	case 0 :
		me->move("/d/city/guangchang");
		break;
	case 1 :
		me->move("/d/city/beidajie1");
		break;
	case 2 :
		me->move("/d/city/nandajie1");
		break;
	case 3 :
		me->move("/d/city/xidajie1");
		break;
	case 4 :
		me->move("/d/city/dongdajie1");
		break;
	case 5 :
		me->move("/d/city/wumiao");
		break;
	}
	message_vision("$N走了過來。\n"NOR,me);
           	
	return;
}