// migong lev9 boss#include <ansi.h>inherit NPC;void create(){          set_name(WHT"機關人"NOR, ({ "jiguan ren" , "ren" })); set("title", HIG"巧奪天功"NOR);   set("gender", "男性" ); set("long","一具結實而又精致的機關人。\n");         set("force_factor",100+random(200));  set("max_qi",999999+random(99999));  set("max_jing",99999+random(99999));  set("max_sen",99999+random(99999));  set("max_neili",99999+random(99999));  set("max_mana",99999+random(99999));  set("eff_neili",9999+random(9999));  set("neili",9999+random(9999));        set("per", 1);        set("age", 32);set("no_get",1);       set("str" , 100);       set("jiali" , 100);        set("shen", -10000);                set("combat_exp", 3500000+random(1200000));                 set_skill("unarmed", 330+random(50)); set_skill("taixuan-gong", 530+random(50));set_skill("force", 530+random(50));set_skill("parry", 530+random(50));set_skill("dodge", 530+random(50));          map_skill("unarmed", "taixuan-gong");        map_skill("parry", "taixuan-gong"); map_skill("force", "taixuan-gong"); map_skill("dodge", "taixuan-gong"); prepare_skill("unarmed", "taixuan-gong");set("chat_chance_combat", 90);        set("chat_msg_combat", ({              	         (: exert_function, "recover" :),	    }) );            set_temp("apply/attack", 200);        set_temp("apply/defense", 200);           set_temp("apply/armor", 500);        set_temp("apply/damage", 600);        setup();        carry_object("/d/migong/obj/cloth")->wear();    	}void unconcious(){    die();}void die(){        object ob, me, corpse,obj;   int maxpot;   int exp,pot,score,i;             ob = this_object();        me = query_temp("last_damage_from");        if (!me) return;                me->add("score",1000);        me->add("shen",1000);                message_vision(WHT"$N被打爛了!!。\n"NOR,ob,me);        if( objectp(corpse = CHAR_D->make_corpse(this_object())) )        corpse->move(environment(this_object()));me->add("combat_exp",random(12));me->add("potential",random(8));if (me->query("migong/lev9")){if( !environment(me)->query("no_fight")&& random(4)==1){obj=new("/d/migong/obj/npct"); maxpot=me->query_temp("maxpot")+10;obj->do_copy(me,maxpot,2);obj->set("usename",me->query("name"));obj->move(environment(me));message_vision(HIY"$N狂笑道：讓你見識是一下武術的真髓! !\n"NOR, obj);me->start_busy(3);me->kill_ob(obj);obj->kill_ob(me);}else {		obj = new("/clone/npc/antirobot"+(2+random(2)));		obj->test_robot(me);}}if (!me->query("migong/lev9")){me->set("migong/lev9",1);message("channel:chat", HIM"【江湖謠言】聽說"+me->name() + "完成了迷宮第九層!"NOR"。\n", users());exp = 370000+random(25000);pot = exp/2;score = random(300)+550;             me->add("combat_exp",exp);             me->add("potential",pot);             me->add("score",score);tell_object(me,HIW"你被獎勵了：\n" +             chinese_number(exp) + "點實戰經驗\n"+             chinese_number(pot) + "點潛能\n" +            chinese_number(score)+"點江湖閱歷\n"NOR);i=random(8);	if (i==7) {        if ( me->query("per")< 60)        {	me->add("per",1);tell_object(me,HIM"以及一點容貌。\n"NOR);        }	}	else if (i==6) {        if ( me->query("kar")< 60)        {	me->add("kar",1);tell_object(me,HIM"以及一點福緣。\n"NOR);        }	}	else if (i==5) {        if ( me->query("dex")< 60)        {	me->add("dex",1);tell_object(me,HIM"以及一點身法。\n"NOR);        }	}	else if (i==4) {        if ( me->query("str")< 60)        {	me->add("str",1);tell_object(me,HIM"以及一點力量。\n"NOR);        }	}	else if (i==3) {        if ( me->query("per")< 60)        {	me->add("per",1);tell_object(me,HIM"以及一點容貌。\n"NOR);        }	}	else if (i==2) {        if ( me->query("kar")< 60)        {	me->add("kar",1);tell_object(me,HIM"以及一點福緣。\n"NOR);        }	}	else if (i==1) {        if ( me->query("con")< 60)        {	me->add("con",1);tell_object(me,HIM"以及一點根骨。\n"NOR);        }	}	else if (i==0) {        if ( me->query("int")< 60)        {	me->add("int",1);tell_object(me,HIM"以及一點悟性。\n"NOR);        }	}	else if (me->query("per")< 100) {	me->add("per",1);tell_object(me,HIM"以及一點容貌。\n"NOR);	}}        if((int)me->query("combat_exp") < 5000000)   {        message("vision", me->name() + "為江湖除害,增加了400經驗和200潛能。\n", me);        me->add("combat_exp",400);        me->add("potential",200);        destruct(ob);        }        destruct(ob);        return;}