// feng.c 風清揚inherit NPC;inherit F_MASTER;void create(){	set_name("風清揚", ({ "feng qingyang", "feng", "qingyang" }));	set("title", "華山第十二代劍宗長老");	set("long", "這便是當年名震江湖的華山名宿風清揚。他身著青袍，神氣抑郁臉如金紙。身材瘦長，眉宇間一直籠罩著一股淡淡的憂傷神色，顯然對當年的劍宗氣宗之爭一直難以忘懷。\n");	set("gender", "男性");	set("age", 68);	set("attitude", "peaceful");	set("shen_type", 1);	set("str", 30);	set("int", 40);	set("con", 30);	set("dex", 30);		set("qi", 9800);	set("max_qi", 9800);	set("jing", 8600);	set("max_jing", 8600);	set("neili", 24400);	set("max_neili", 24400);	set("jiali", 200);	set("combat_exp", 3050000);	set("score", 200000);	set_skill("cuff", 200);	set_skill("force", 180);	set_skill("blade", 200);	set_skill("dodge", 180);	set_skill("parry", 200);	set_skill("sword", 320);	set_skill("strike", 200);	set_skill("zixia-shengong", 300);	set_skill("poyu-quan", 300);	set_skill("fanliangyi-dao", 300);	set_skill("huashan-sword", 300);	set_skill("hunyuan-zhang", 300);	set_skill("lonely-sword", 320);	set_skill("feiyan-huixiang",300);	set_skill("literate", 200);        set_skill("zhengqijue",300);        	map_skill("cuff", "poyu-quan");	map_skill("force", "zixia-shengong");	map_skill("dodge", "feiyan-huixiang");	map_skill("parry", "lonely-sword");	map_skill("sword", "lonely-sword");	map_skill("blade", "fanliangyi-dao");	map_skill("strike", "hunyuan-zhang");	create_family("華山派", 12, "弟子");	set("chat_chance_combat", 90);	set("chat_msg_combat", ({		(: perform_action, "sword.jiushi" :),		(: perform_action, "sword.pozhao" :),		(: perform_action, "sword.poqi" :),		(: perform_action, "sword.pozhang" :),		(: perform_action, "sword.pojian" :),		(: perform_action, "sword.podao" :),		(: perform_action, "sword.zongjue" :),	}) );        set_temp("apply/attack", 200);        set_temp("apply/defense", 200);        set_temp("apply/armor", 500);        set_temp("apply/damage", 250);	setup();	carry_object("/clone/misc/cloth")->wear();	carry_object("/clone/weapon/changjian")->wield();}void attempt_apprentice(object ob){	int student_num;	string temp;	string line;	if ((int)ob->query("betrayer") )	{		command("say 依我看" + RANK_D->query_respect(ob) + "好象拜過別派的師傅？想來你也不適合學獨孤九劍？");		return;	}	if ((int)ob->query("mud_age") - (int)ob->query("feng_dietime") < 259200 )	{		command("say " + RANK_D->query_respect(ob) + "你好象原來是我的徒弟麼？");		return;	}	temp = read_file("/data/FENG", 1, 1);	student_num = atoi(temp);	line = "風清揚說道：“我現在共有" + temp + "個徒弟。”\n";	write(line);//	if ( student_num == 10)//	{//		command("say 你來晚了，我已經收了十個徒弟了。");//		return;//	}	if ((string)ob->query("family/family_name") != "華山派")	{		command("say " + RANK_D->query_respect(ob) + "既然已有名師指點，何必又來拜老朽呢？");		return;	}	if (((int)ob->query_skill("sword",1) < 80) || ((int)ob->query_skill("huashan-sword",1) < 80))	{		command("say 我看" + RANK_D->query_respect(ob) + "的華山劍法還沒學到家吧。");		return;	}	if (((int)ob->query_skill("force",1) < 80) || ((int)ob->query_skill("zixia-shengong",1) < 80))	{		command("say 我看" + RANK_D->query_respect(ob) + "的紫霞神功還沒學到家吧。");		return;	}	if (((int)ob->query_skill("dodge",1) < 80) || ((int)ob->query_skill("feiyan-huixiang",1) < 80))	{		command("say 我看" + RANK_D->query_respect(ob) + "的飛燕回翔還沒學到家吧。");		return;	}	if ( (int)ob->query_skill("literate",1) < 100)	{		command("say 我看" + RANK_D->query_respect(ob) + "的讀書識字還沒學到家吧。");		return;	}	if ((int)ob->query("shen") < 50000)	{		command("say 我華山派乃是堂堂名門正派，對弟子要求極嚴。");		command("say 在德行方面，" + RANK_D->query_respect(ob) +			"是否還做得不夠？");		return;	}	if ((int)ob->query_int() < 20)	{		command("say 依我看" + RANK_D->query_respect(ob) + "的資質似乎不適合學我獨孤九劍？");		return;	}	command("say 好吧，我就收下你了。");	command("recruit " + ob->query("id"));	if((string)ob->query("class") != "swordsman")		ob->set("class", "swordsman");	student_num++;//	temp = itoa(student_num);	if(student_num == 1)		temp = "1";	else if(student_num == 2)		temp = "2";	else if(student_num == 3)		temp = "3";	else if(student_num == 4)		temp = "4";	else if(student_num == 5)		temp = "5";	else if(student_num == 6)		temp = "6";	else if(student_num == 7)		temp = "7";	else if(student_num == 8)		temp = "8";	else if(student_num == 9)		temp = "9";	else if(student_num == 10)		temp = "10";	write_file("/data/FENG", temp, 1);}