#include <ansi.h>inherit NPC;int heal_other();void create(){    set_name("宋軍傷兵", ({ "shang bing", "bing" }));    set("gender", "男性" );//性別與上面對應        set("long","一個剛從前線退下來的宋軍的傷兵，看樣子他傷的不輕。\n");        set("attitude", "aggressive");        set("vendetta/authority",1);	set("nickname",HIC"大宋官兵"NOR);  set("qi",300);  set("jing",300);  set("max_qi",400+random(590));  set("max_jing",400+random(590));        set("per", 25);        set("age", 22);        set("shen", -5000);        set("intellgent",1);	set("pursuer",1);        set("combat_exp", 200000+random(300000));        set("chat_chance", 5);        set("chat_msg", ({                "宋軍傷兵說道：唉呀呀，好疼?。?！\n",                "宋軍傷兵說道：這次全靠江湖俠士，才能不失襄陽!\n",                (: random_move :),        }) );        set_skill("unarmed", 100+random(150));        set_skill("blade", 100+random(150));        set_skill("parry", 100+random(150));        set_skill("dodge", 100+random(150));	set("inquiry", ([		"療傷" : "謝謝大俠你愿意救冶(jiuzhi)我!\n",	]) );	                set_temp("apply/attack", 30);        set_temp("apply/defense", 50);        set_temp("apply/armor", 50);        set_temp("apply/damage", 20);if (random(20)>15){        set_temp("apply/attack", 200);        set_temp("apply/defense", 200);        set_temp("apply/armor", 200);        set_temp("apply/damage", 200);}        setup();}void init( ){	object ob;	add_action("heal_other","jiuzhi");        call_out("hunting",180);}void hunting(){object ob=this_object();write(HIR"宋軍傷兵，由于無人為期冶療，吐血而亡!\n"NOR);destruct(ob);}int heal_other(){        object me=this_player();         object ob=this_object();         if (me->query("gender")=="男性")   return notify_fail(HIC"這種事不適合大男人來做，你還是去抗敵吧。\n"NOR);        if ( (int)me->query("jing")<20)           return notify_fail("你太累了，歇息下吧。\n");        if (me->query_temp("guo/sanbing")>9)           return notify_fail("此人已經冶療好了！\n");     message_vision(HIB"$N坐了下來運起內功，將手掌貼在$n背心，緩緩地將真氣輸入$n體內....。\n"NOR,me,ob);      me->add("jing",-me->query("eff_jing")/10);      me->add_temp("guo/sanbing",1);  if ( (int)me->query_temp("guo/sanbing")==8) {  message_vision(CYN"$N過了不久，$N額頭上冒出豆大的汗珠，$n吐出一口瘀血，臉色看起來紅潤多了。\n"NOR,me,ob);      me->delete_temp("guo/sanbing");   if((int)me->query("combat_exp") < 1000000)   {  message("vision", me->name() + HIG"由于成功的救冶了宋兵傷兵,增加了200經驗和100潛能。\n"NOR, me);        me->add("combat_exp",200);        me->add("potential",100);        me->add("score",30);        destruct(ob);        }        message("vision", me->name() + HIG"成功的救冶了宋兵傷兵。\n"NOR, me);        me->add("score",2);        me->add("shen",10);        destruct(ob);       }      return 1;}