// human.c// From ES2// Modified by Xiang@XKX// A normal human is at least 40 kg weight#define BASE_WEIGHT 40000inherit F_DBASE;inherit F_SKILL;mapping *combat_action = ({        ([      "action":               "$N揮拳攻擊$n的$l",                "damage_type":  "瘀傷",        ]),        ([      "action":               "$N往$n的$l一抓",                "damage_type":  "抓傷",        ]),        ([      "action":               "$N往$n的$l狠狠地踢了一腳",                "damage_type":  "瘀傷",        ]),        ([      "action":               "$N提起拳頭往$n的$l捶去",                "damage_type":  "瘀傷",        ]),        ([      "action":               "$N對準$n的$l用力揮出一拳",                "damage_type":  "瘀傷",        ]),});void create(){        seteuid(getuid());        set("unit", "位");        set("gender", "男性");        set("can_speak", 1);        set("attitude", "peaceful");        set("limbs", ({                "頭部", "頸部", "胸口", "后心", "左肩", "右肩", "左臂",                "右臂", "左手", "右手", "腰間", "小腹", "左腿", "右腿",                "左腳", "右腳"        }) );}void setup_human(object ob){        mapping my;        int xism_age;        my = ob->query_entire_dbase();        ob->set("default_actions", (: call_other, __FILE__, "query_action" :));        ob->set_default_action(__FILE__, "query_action");        if (! stringp(my["unit"])) my["unit"] = "位";        if (! stringp(my["gender"])) my["gender"] = "男性";        if (undefinedp(my["can_speak"])) my["can_speak"] = 1;        if (! stringp(my["attitude"])) my["attitude"] = "peaceful";        if (! pointerp(my["limbs"])) my["limbs"] = ({                "頭部", "頸部", "胸口", "后心", "左肩", "右肩", "左臂",                "右臂", "左手", "右手", "腰間", "小腹", "左腿", "右腿",                "左腳", "右腳"        });        if( undefinedp(my["age"]) ) my["age"] = 14;        if (undefinedp(my["str"])) my["str"] = 10 + random(21);        if (undefinedp(my["con"])) my["con"] = 10 + random(21);        if (undefinedp(my["dex"])) my["dex"] = 10 + random(21);        if (undefinedp(my["int"])) my["int"] = 10 + random(21);        if (undefinedp(my["per"])) my["per"] = 10 + random(21);        if (undefinedp(my["kar"])) my["kar"] = 10 + random(21);        if( userp(ob) || undefinedp(my["max_jing"]) )        {                if( my["age"] <= 14 ) my["max_jing"] = 100;                else if( my["age"] <= 30 ) my["max_jing"] = 100 + (my["age"] - 14) * my["int"];                else my["max_jing"] = my["int"] * 16 + 100;                if( my["age"] > 60 ) my["max_jing"] -= (my["age"] - 60) * 5 ;                // 道家保精：//                if(my["age"] > 20 && ob->query("ob->query("breakup"))//                {//                        my["max_jing"] += 1000;//                }                if(my["age"] > 20 && (int)ob->query_skill("biguan", 1) >= 100)                {                        my["max_jing"] += 1000;                }                if(my["age"] > 60 && (int)ob->query_skill("taoism", 1) >= 120)                {                        my["max_jing"] += (my["age"] - 60) * 5;                }                // 佛家養精：３０歲前補精，３０歲后長精                if((xism_age=(int)ob->query_skill("buddhism", 1)) > 39)                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_jing"] += xism_age *((int)ob->query_skill("hunyuan-yiqi", 1)/10);                }                if( my["max_jingli"] > 0 ) my["max_jing"] += my["max_jingli"] / 2;                if(my["age"] > 20 && (int)ob->query_skill("biguan", 1) >= 100)                {                        my["max_jingli"] += 100;                }        }        if( userp(ob) || undefinedp(my["max_qi"]) )        {                if( my["age"] <= 14 ) my["max_qi"] = 100;                else if( my["age"] <= 30 ) my["max_qi"] = 100 + (my["age"] - 14) * my["con"];                else my["max_qi"] = my["con"] * 16 + 100;                if( my["age"] > 60 ) my["max_qi"] -= (my["age"] - 60) * 5;                // 佛家保氣：                if(my["age"] > 60 && (int)ob->query_skill("buddhism", 1) >= 120)                {                        my["max_qi"] += (my["age"] - 60) * 5;                }                // 道家練氣：３０歲前補氣，３０歲后長氣                if((xism_age=(int)ob->query_skill("taoism", 1)) > 39)                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_qi"] += xism_age *((int)ob->query_skill("taiji-shengong", 1)/10);                }                // 毒技練氣：３０歲前補氣，３０歲后長氣                if((xism_age=(int)ob->query_skill("poison", 1)) > 39)                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_qi"] += xism_age *((int)ob->query_skill("huagong-dafa", 1)/15);                }//baituo                if((xism_age=(int)ob->query_skill("training", 1)) > 139                && (int)ob->query_skill("hamagong", 1)> 1 )                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_qi"] += xism_age *((int)ob->query_skill("hamagong", 1)/18);                }//dalielse            if((xism_age=(int)ob->query_skill("buddhism", 1)) > 139                && (int)ob->query_skill("kurong-changong", 1) > 1)                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_qi"] += xism_age *((int)ob->query_skill("kurong-changong", 1)/18);                }//emeielse            if((xism_age=(int)ob->query_skill("mahayana", 1)) > 139                && (int)ob->query_skill("linji-zhuang", 1)>1)                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_qi"] += xism_age *((int)ob->query_skill("linji-zhuang", 1)/15);                }//gaibangelse            if((xism_age=(int)ob->query_skill("begging", 1)) > 139                && (int)ob->query_skill("huntian-qigong", 1)>1)                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_qi"] += xism_age *((int)ob->query_skill("huntian-qigong", 1)/20);                }//mrelse            if((xism_age=(int)ob->query_skill("douzhuan-xingyi", 1)) > 139                && (int)ob->query_skill("shenyuan-gong", 1)>1 )                {                        xism_age = xism_age/2;                        if (my["age"] <= 30) xism_age -= my["age"];                        else xism_age -= 30;                        if (xism_age > 0) my["max_qi"] += xism_age *((int)ob->query_skill("shenyuan-gong", 1)/18);                }//gumuelse            if((xism_age=(int)ob->query_skill("qufeng", 1)) > 139                && (int)ob->query_skill("yunv-xinfa", 1) > 1)                {                        xism_age = xism_age/2;