// zhang.c#include <ansi.h>inherit NPC;inherit F_UNIQUE;inherit F_MASTER;int do_join(string arg);void create(){	set_name("張淡月", ({ "zhang danyue", "zhang"}));	set("title", HIY"神龍教"BLU"黑龍使"NOR);	set("long", "這是一個黑衣大漢, 臉色大變, 身子發顫, 似乎恐懼已極.\n" );	set("gender", "男性");	set("age", 44);	set("str", 35);	set("dex", 20);	set("max_qi",3000);        set("qi",3000);	set("max_jing",1000);        set("jing",1000);	set("combat_exp", 500000);	set("score", 40000);	set("shen_type", -1);	set("attitude", "peaceful");	set_skill("force", 90);	set_skill("huntian-qigong", 85);	set_skill("dodge", 90);	set_skill("xiaoyaoyou", 85);	set_skill("unarmed", 85);	set_skill("xianglong-zhang", 85);	set_skill("shedao-qigong", 90);	set_skill("shenlong-xinfa", 90);	set_skill("parry", 70);	set_skill("staff", 90);	set_skill("literate", 70);	map_skill("force", "shenlong-xinfa");	map_skill("dodge", "xiaoyaoyou");	map_skill("unarmed", "xianglong-zhang");	map_skill("parry", "xianglong-zhang");	create_family("神龍教",2,"弟子");	set("neili", 1000); 	set("max_neili", 1000);	set("jiali", 100);        set("inquiry", ([		"神龍教" :  "一般人是入不了我神龍教的(join shenlongjiao).\n",		"入教" :  "一般人是入不了我神龍教的(join shenlongjiao).\n",		"洪安通" :  "教主脾氣不好,要討他歡心才好。\n",		"教主" :  "教主脾氣不好,要討他歡心才好。\n",		"口號" : "萬年不老!永享仙福!壽與天齊!文武仁圣!\n",	]) );	setup();	carry_object("/clone/misc/cloth")->wear();	add_money("silver", 10);}void init(){	object ob;	::init();	if( interactive(ob = this_player()) && !is_fighting() ) {		remove_call_out("greeting");		call_out("greeting", 50, ob);	}	add_action("do_join","join");}void greeting(object ob){	object obj;       if (ob){        if (interactive(ob))        {	if (obj = present("usedgao", ob))          	   set("combat_exp",100000);	   set("qi",100);	   set("jing",100);	}}	return;}void attempt_apprentice(object ob){	command("say 你走開! 別煩我! ");	return;}#include "/kungfu/class/shenlong/shenlong.h";