// youfangdaoren.c// Date: YZC 96/01/19inherit NPC;void create(){	set_name("游方道人", ({"youfang daoren","daoren"}));	set("long",		"他是一位未通世故的青年道人，臉上掛著孩兒般的微笑。\n"	);	set("gender", "男性");	set("attitude", "heroism");	set("class", "taoist");	set("age", 20);	set("shen_type", 1);	set("str", 15);	set("int", 30);	set("con", 30);	set("dex", 18);	set("max_qi", 280);	set("max_jing", 300);	set("neili", 380);	set("max_neili", 380);	set("jiali", 27);	set("combat_exp", 10000);	set("shen_type", 1);	set("chat_chance", 10);	set("chat_msg", ({		"游方道人說道: 請這位施主化幾兩銀子給貧道，隨喜隨喜，造福眾生。\n",		(: random_move :)	}) );	set_skill("force", 41);	set_skill("strike", 41);	set_skill("dodge", 41);	set_skill("parry", 41);	set_skill("jinyan-gong", 42);	set_skill("haotian-zhang", 41);	set_skill("xiantian-qigong", 41);	map_skill("force", "xiantian-qigong");	map_skill("dodge", "jinyan-gong");	map_skill("strike", "haotian-zhang");	map_skill("parry", "haotian-zhang");        create_family("全真教", 4, "弟子");	setup();	carry_object("/d/city/obj/cloth")->wear();	setup();}int accept_object(object me, object ob){	object ling;		command("smile");	command("say 無量壽佛，多謝這位" + RANK_D->query_respect(me) + " ！");	if( ob->query("money_id") && ob->value() >= 10000 ) 	{		command("say " + RANK_D->query_respect(me) + 		"如此樂善好施，兼又身懷絕藝，全真祖師正欲一晤天下豪杰，不知可愿赴重陽宮內一游？");		ling=new("/d/quanzhen/npc/obj/tie-ling");		ling->move(me);		message_vision("游方道人給$N一塊鐵鑄令牌。\n", me);		command("say 此牌限時一日，逾時失效，請于限時前離宮，否則多有不便，切記切記！"); 		return 1;	}	return 1;}void unconcious(){    die();}