// 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)//		if ( dest->query("qi") == 0 )		{			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);		me->set_leader(0);        	return 1;	}//	if (dest->query("qi") == 0 || dest->query("qi") <= 30 ) 	if ( dest->query("qi") <= 40 )//	if ( dest->query("qi") == 0 )	{		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"));	//!	dest->apply_condition("gvmt_jail", 20);	dest->unconcious(); //可能有不良影響	//	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->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",me);           		return;}