// su.c 蘇荃#include <ansi.h>inherit NPC;//inherit F_UNIQUE;//inherit F_MASTER;void create(){	set_name("蘇荃", ({ "su quan", "su" }));	set("title",  "夫人" );	set("long", "她就是神龍教教主洪安通的夫人。\n");	set("gender", "女性");	set("age", 23);	set("attitude", "friendly");	set("shen_type", -1);	set("str", 35);	set("int", 30);	set("con", 30);	set("dex", 38);		set("max_qi", 4000);	set("max_jing", 3000);	set("neili", 4000);	set("max_neili", 4000);	set("jiali", 100);	set("combat_exp", 1500000);	set("score", 400000);        set_skill("force", 150);	set_skill("shenlong-xinfa", 150);        set_skill("dodge", 180);	set_skill("yixingbu", 160);        set_skill("unarmed", 150);	set_skill("shenlong-quanfa", 150);        set_skill("parry", 150);        set_skill("staff", 150);        set_skill("strike", 180);	set_skill("shedao-qigong", 120);	set_skill("literate", 100);	set_skill("meiren-sanshi", 180);	map_skill("force", "shenlong-xinfa");	map_skill("dodge", "yixingbu");	map_skill("strike", "meiren-sanshi");	map_skill("unarmed", "shenlong-quanfa");	map_skill("parry", "meiren-sanshi");        map_skill("staff", "shedao-qigong");        set("inquiry", ([		"神龍教" :  "\n一般人是入不了我神龍教的(join shenlongjiao).\n",		"入教" :  "\n一般人是入不了我神龍教的(join shenlongjiao).\n",		"口號" : "\n萬年不老!永享仙福!壽與天齊!文武仁圣!\n",       ]) );	set("chat_chance_combat", 50);  	set("chat_msg_combat", ({		(: command("smile") :),		(: command("haha") :),		(: command("chat 憑你這" + RANK_D->query_rude(this_player())+",也敢在太歲爺頭上動土?\n") :),		(: command("say 你活得不耐煩了找死啊？\n") :),                (: perform_action, "staff.chang" :),                (: perform_action, "staff.chang" :),                (: perform_action, "staff.chang" :),                (: perform_action, "staff.chang2" :),                (: perform_action, "staff.chang2" :),                (: perform_action, "staff.chang2" :),                (: perform_action, "staff.chang3" :),                (: perform_action, "staff.chang3" :),                (: perform_action, "staff.chang3" :),                (: exert_function, "recover" :),                (: exert_function, "recover" :),                      }) );	setup();	carry_object("/clone/misc/cloth")->wear();	add_money("silver", 50);}void init(){	object ob;	::init();	if( interactive(ob = this_player()) && !is_fighting() ) {		remove_call_out("greeting");		call_out("greeting", 50, ob);	}}void greeting(object ob){	object obj;        if (interactive(ob))        {	if (obj = present("usedgao", ob))          	   set("combat_exp",500000);	   set("qi",10);	   set("jing",10);	}	return;}void attempt_apprentice(object ob){    if ((int)ob->query_skill("shenlong-xinfa",1) < 80 ) {        command("say 你的本門內功心法太低了,還是努努力先提高一下吧!");		return;    }    if ((int)ob->query_skill("shedao-qigong",1) < 80 ) {        command("say 你的本門杖法太低了,還是努努力先提高一下吧!");		return;    }    if ((int)ob->query("shen") > -10000  ) {        command("say 我神龍教與世隔絕，向來不與您這種白道人物打交道，您請回吧！");		return;	}    command("say 很好，很好。");    command("recruit " + ob->query("id"));}