[转自http://blog.sina.com.cn/s/blog_548fe95c01000bwr.html]
一个较为复杂的人物例子
// /kungfu/class/baituo/ouyang-feng.c 白驼开山祖师欧阳锋
#include //表明这个文件要用到颜色
#inherit NPC; //继承NPC的属性
inherit F_MASTER; //继承可收徒的NPC属性
int check_self(); //声明，文件中有战斗行为函数的定义
int learn_message(object ob,string skill);//声明：文件中有learn_message()函数的定义
string ask_zhang(); //声明：文件中有谜题函数的定义
void create()
{
set_name("欧阳锋", ({ "ouyang feng", "ouyang", "feng" }));
//注意，不要用set("name","")直接set_name
set("long", "他是白驼山庄主，号称"HIW"“西毒”"NOR"的欧阳锋。\n"
+"虽然由于习练「九阴真经」走火入魔，变得精神错乱，但\n"
+"是他那额头上的层层紫晕，令人不得不服他是一代高手！\n");
//这就是不用@LONG&LONG的例子，所以就必须在每句尾加上“\n”的换行标志
set("nickname", HIW"西毒"NOR); //外号，用到了颜色，所以开头没有include这里会出错
set("gender", "男性"); //性别，太监是无性
set("age", 53); //年龄
set("shen_type",-1); //神的正负，如果没有set默认是1,用这个乘以exp/10得到神值
set("attitude", "peaceful"); //指这个人物的好战态度
set("str", 30); //膂力，
set("int", 29); //悟性
set("con", 30); //根骨
set("dex", 28); //身法，这些先天属性，可设可不设，但要符合原著精神
set("qi", 2500); //当前气
set("max_qi", 2500); //最大气，就是恢复满时
set("jing", 900); //当前精
set("max_jing", 900); //最大精
set("neili", 2000); //当前内力
set("max_neili", 2000); //最大内力
set("jiali", 50); //相当于玩家的加力jiali *
set("combat_exp", 1500000); //经验
set_skill("force", 200); //设置武功，这是基本内功
set_skill("unarmed", 170); //反正一项项设，略.......
......
set_skill("nilian-shengong", 200);
......
map_skill("force", "nilian-shengong"); //相当于玩家的jifa
......
create_family("白驼山派",1, "开山祖师");//门派头衔
set("inquiry" ,([
"欧阳克":"欧阳锋嘿嘿一笑：“那是我的乖侄子，你见过他了吗？”\n",
"蛇杖":(:ask_zhang:),
]));
/*这个是设置当玩家ask sb about sth时的信息，“:”前就是sth，后面
则是返回的信息。这有点与房间里的set("desc_item")相似。所以也有关
于 (:ask_zhang:)的函数调用，这个函数我们在文件头已经定义过了，后
面将会有具体的内容。*/
set("chat_chance",2); //设置随机动作的机率，这是指2%
set("chat_msg",({ //设置随机动动作
"欧阳锋自言自语道：“我白驼山派神功一成，定能重霸江湖！！”\n",
"欧阳锋道：“我儿欧阳克聪慧过人，必能够重振白驼山派雄风！”\n",
"欧阳锋道：“江湖险恶，困难重重，我才是天下第一！”\n",
}));
set("chat_chance_combat", 100); //这是指战斗中的随机行为，注意区别。
set("chat_msg_combat", ({
(: command("wield zhang") :),
(: command("wield zhang") :), //装备武器
(: perform_action, "staff.shewu" :),
(: perform_action, "staff.shewu" :),//使用绝招
(: command("unwield zhang") :),
(: check_self :), //这是我们自定义的一个函数，在后面写着
}) );
setup();
carry_object("/d/baituo/obj/shezhang");//身上的东西，加上“->wield”就是装备好了，如果没有这个，就会在身上，但没装备起来
carry_object("/clone/misc/cloth")->wear();//这件衣服就是穿上的，也可不穿
add_money("silver",50); //设置他身上的钱，可以gold,coin
}
void init()
{
::init();
add_action("do_skills","skills");
add_action("do_skills","cha"); //两个动作调用同一个函数do_skills
}
int do_skills(string arg)//定义do_skills函数，并表明其类型
{
object ob ;
ob = this_player () ; //定义ob是指的执行这个动作的人
if( !arg && arg!="ouyang feng"&& arg!="ouyang"&& arg!="feng" )
return 0; //如果对象不是欧阳锋，则返回调用skills的cmds指令
if(wizardp(ob)) //return 0; 是巫师的话返回调用skills的cmds指令
if (ob->query("family/master_name")!="欧阳锋")
return 0; //师父不是欧阳锋的话返回调用skills的cmds指令
if(!ob->query_skill("nilian-shengong",1))//如果没学过逆练神功
{
write("欧阳锋目前所学过的技能：\n"+
" 基本内功 (force) - 深不可测 200/ 0\n"+
"□蛤蟆功 (hamagong) - 深不可测 200/ 0\n"+
......\n"); //略
return 1; //参考前面的懂了这里retrun 0和return 1的意思吗？
}
else //相反则是学过
{
write("欧阳锋目前所学过的技能：\n"+
" 基本内功 (force) - 深不可测 200/ 0\n"+
"□逆练神功 (nilian-shengong) - 深不可测 200/ 0\n"+
.......
\n"); //这时才让他的徒弟能查看欧的逆练神功级别
return 1;
}
}
void attempt_apprentice(object ob)//这个函数的原型就是在前面定义的inherit F_MASTER里
{
if((int)ob->query("combat_exp")<100000) color="#009999">//条件一，经验要大于100000
{
message_vision("欧阳锋冷冷地对$N道：“这点经验就想来拜师？！”\n",ob);
return; //因为这是一个void函数，直接return,面不是return 1之类的
}
if((int)ob->query_skill("hamagong",1)<60) color="#009999">//条件二，蛤蟆功大于60级
{
message_vision("欧阳锋冷冷地对$N道：“武功不错，先跟我的弟子学些的入门武功吧！”\n",ob);
return;
}
message_vision("欧阳锋拍拍$N的头，微微点了点头。\n",ob); //过滤完了就通过
command("recruit " + ob->query("id"));
return;
}
int check_self() //即我们自定义战斗中行为
{
int max_qi,eff_qi,qi; //命名三个变量
object me;
me = this_object(); //不多说了吧
max_qi = me->query("max_qi");
eff_qi = me->query("eff_qi");
qi = me->query("qi"); //对三个变量进行初始定义
if((int)(qi*100/max_qi)<30 color="#009999">//就是说欧受伤到一定程度
{
if((int)me->query_temp("powerup")) //如果已经在提升战斗力状态
{
....... //将干什么什么
return 1;
}
......; //否则就怎么怎么
return 1;
}
}
string ask_zhang()//定义解谜中的关于蛇杖的函数
{ //string与int都可以，区别在于string函数return的是字符串
object me,weapon,obj,obn;
mapping fam;
me = this_player();
if(!(fam = me->query("family"))|| fam["family_name"] != "白驼山派") //不是白驼弟子
return "\n欧阳锋冲你阴阴地一笑：“你是不是想尝尝我西域灵蛇毒的厉害？”\n";
if((int)me->query_skill("xunshe-shu",1)<50) color="#009999">//驯蛇术太低
return "\n欧阳锋拍拍你的头说：“你的驯蛇术还不到家，现在用蛇杖太危险！”\n";
if( !me->query("weapon")||(string)me->query("weapon/type")!= "杖") //没有自铸的杖
return "\n欧阳锋说道：“要想炼蛇杖，必须要有一根自铸的杖，你先找欧冶子铸杖吧！\n";
if( me->query("weapon/she")) //已经有了蛇杖
return "\n欧阳锋怒道：“小子也敢戏弄老夫，明明已有蛇杖，还要问什么？滚！！！\n";
if( me->query_temp("dixi-wan")) //已经要了药丸
return "\n欧阳锋大怒：“贪得无厌的家伙，拿了还想拿，再这样，老夫一杖叫你上西天！\n";
//到此为止，一切不符合解谜的条件都过滤完了，则开始执行
obn=new("/d/baituo/obj/dixi-wan"); //要取出的东西的路径文件名，相当于clone
obn->set("sign",me->query("id")); //东西上设上给的人的记号
obn->move(me); //这个东西放进问的人的身上
me->set_temp("dixi-wan",1); //问的人做记号，以防他再去要，看前面
return "\n欧阳峰仰天哈哈一笑后，缓缓说道：“我灵蛇杖法奇妙无比，配合蛇杖上灵蛇\n"
"的攻击，可使对手防不胜防，我这有一颗通灵地犀丸，你拿去找蛇奴，他会知道的！”\n"
HIC"说完欧阳锋递过来一颗鸽蛋大小的药丸。\n"NOR;
}
int learn_message(object ob,string skill) //定义学武功的条件
{
if((skill=="nilian-shengong")&&(!ob->query_skill("nilian-shengong",1)))
{
message_vision("欧阳锋阴阴地对$N说道：“你如何能从我这学会这种没有一点功基的武功？”\n",ob);
return 0;
}
else return 1;
}
// /kungfu/class/baituo/ouyang-feng.c 白驼开山祖师欧阳锋
#include
#inherit NPC; //继承NPC的属性
inherit F_MASTER; //继承可收徒的NPC属性
int check_self(); //声明，文件中有战斗行为函数的定义
int learn_message(object ob,string skill);//声明：文件中有learn_message()函数的定义
string ask_zhang(); //声明：文件中有谜题函数的定义
void create()
{
set_name("欧阳锋", ({ "ouyang feng", "ouyang", "feng" }));
//注意，不要用set("name","")直接set_name
set("long", "他是白驼山庄主，号称"HIW"“西毒”"NOR"的欧阳锋。\n"
+"虽然由于习练「九阴真经」走火入魔，变得精神错乱，但\n"
+"是他那额头上的层层紫晕，令人不得不服他是一代高手！\n");
//这就是不用@LONG&LONG的例子，所以就必须在每句尾加上“\n”的换行标志
set("nickname", HIW"西毒"NOR); //外号，用到了颜色，所以开头没有include
set("gender", "男性"); //性别，太监是无性
set("age", 53); //年龄
set("shen_type",-1); //神的正负，如果没有set默认是1,用这个乘以exp/10得到神值
set("attitude", "peaceful"); //指这个人物的好战态度
set("str", 30); //膂力，
set("int", 29); //悟性
set("con", 30); //根骨
set("dex", 28); //身法，这些先天属性，可设可不设，但要符合原著精神
set("qi", 2500); //当前气
set("max_qi", 2500); //最大气，就是恢复满时
set("jing", 900); //当前精
set("max_jing", 900); //最大精
set("neili", 2000); //当前内力
set("max_neili", 2000); //最大内力
set("jiali", 50); //相当于玩家的加力jiali *
set("combat_exp", 1500000); //经验
set_skill("force", 200); //设置武功，这是基本内功
set_skill("unarmed", 170); //反正一项项设，略.......
......
set_skill("nilian-shengong", 200);
......
map_skill("force", "nilian-shengong"); //相当于玩家的jifa
......
create_family("白驼山派",1, "开山祖师");//门派头衔
set("inquiry" ,([
"欧阳克":"欧阳锋嘿嘿一笑：“那是我的乖侄子，你见过他了吗？”\n",
"蛇杖":(:ask_zhang:),
]));
/*这个是设置当玩家ask sb about sth时的信息，“:”前就是sth，后面
则是返回的信息。这有点与房间里的set("desc_item")相似。所以也有关
于 (:ask_zhang:)的函数调用，这个函数我们在文件头已经定义过了，后
面将会有具体的内容。*/
set("chat_chance",2); //设置随机动作的机率，这是指2%
set("chat_msg",({ //设置随机动动作
"欧阳锋自言自语道：“我白驼山派神功一成，定能重霸江湖！！”\n",
"欧阳锋道：“我儿欧阳克聪慧过人，必能够重振白驼山派雄风！”\n",
"欧阳锋道：“江湖险恶，困难重重，我才是天下第一！”\n",
}));
set("chat_chance_combat", 100); //这是指战斗中的随机行为，注意区别。
set("chat_msg_combat", ({
(: command("wield zhang") :),
(: command("wield zhang") :), //装备武器
(: perform_action, "staff.shewu" :),
(: perform_action, "staff.shewu" :),//使用绝招
(: command("unwield zhang") :),
(: check_self :), //这是我们自定义的一个函数，在后面写着
}) );
setup();
carry_object("/d/baituo/obj/shezhang");//身上的东西，加上“->wield”就是装备好了，如果没有这个，就会在身上，但没装备起来
carry_object("/clone/misc/cloth")->wear();//这件衣服就是穿上的，也可不穿
add_money("silver",50); //设置他身上的钱，可以gold,coin
}
void init()
{
::init();
add_action("do_skills","skills");
add_action("do_skills","cha"); //两个动作调用同一个函数do_skills
}
int do_skills(string arg)//定义do_skills函数，并表明其类型
{
object ob ;
ob = this_player () ; //定义ob是指的执行这个动作的人
if( !arg && arg!="ouyang feng"&& arg!="ouyang"&& arg!="feng" )
return 0; //如果对象不是欧阳锋，则返回调用skills的cmds指令
if(wizardp(ob)) //return 0; 是巫师的话返回调用skills的cmds指令
if (ob->query("family/master_name")!="欧阳锋")
return 0; //师父不是欧阳锋的话返回调用skills的cmds指令
if(!ob->query_skill("nilian-shengong",1))//如果没学过逆练神功
{
write("欧阳锋目前所学过的技能：\n"+
" 基本内功 (force) - 深不可测 200/ 0\n"+
"□蛤蟆功 (hamagong) - 深不可测 200/ 0\n"+
......\n"); //略
return 1; //参考前面的懂了这里retrun 0和return 1的意思吗？
}
else //相反则是学过
{
write("欧阳锋目前所学过的技能：\n"+
" 基本内功 (force) - 深不可测 200/ 0\n"+
"□逆练神功 (nilian-shengong) - 深不可测 200/ 0\n"+
.......
\n"); //这时才让他的徒弟能查看欧的逆练神功级别
return 1;
}
}
void attempt_apprentice(object ob)//这个函数的原型就是在前面定义的inherit F_MASTER里
{
if((int)ob->query("combat_exp")<100000) color="#009999">//条件一，经验要大于100000
{
message_vision("欧阳锋冷冷地对$N道：“这点经验就想来拜师？！”\n",ob);
return; //因为这是一个void函数，直接return,面不是return 1之类的
}
if((int)ob->query_skill("hamagong",1)<60) color="#009999">//条件二，蛤蟆功大于60级
{
message_vision("欧阳锋冷冷地对$N道：“武功不错，先跟我的弟子学些的入门武功吧！”\n",ob);
return;
}
message_vision("欧阳锋拍拍$N的头，微微点了点头。\n",ob); //过滤完了就通过
command("recruit " + ob->query("id"));
return;
}
int check_self() //即我们自定义战斗中行为
{
int max_qi,eff_qi,qi; //命名三个变量
object me;
me = this_object(); //不多说了吧
max_qi = me->query("max_qi");
eff_qi = me->query("eff_qi");
qi = me->query("qi"); //对三个变量进行初始定义
if((int)(qi*100/max_qi)<30 color="#009999">//就是说欧受伤到一定程度
{
if((int)me->query_temp("powerup")) //如果已经在提升战斗力状态
{
....... //将干什么什么
return 1;
}
......; //否则就怎么怎么
return 1;
}
}
string ask_zhang()//定义解谜中的关于蛇杖的函数
{ //string与int都可以，区别在于string函数return的是字符串
object me,weapon,obj,obn;
mapping fam;
me = this_player();
if(!(fam = me->query("family"))|| fam["family_name"] != "白驼山派") //不是白驼弟子
return "\n欧阳锋冲你阴阴地一笑：“你是不是想尝尝我西域灵蛇毒的厉害？”\n";
if((int)me->query_skill("xunshe-shu",1)<50) color="#009999">//驯蛇术太低
return "\n欧阳锋拍拍你的头说：“你的驯蛇术还不到家，现在用蛇杖太危险！”\n";
if( !me->query("weapon")||(string)me->query("weapon/type")!= "杖") //没有自铸的杖
return "\n欧阳锋说道：“要想炼蛇杖，必须要有一根自铸的杖，你先找欧冶子铸杖吧！\n";
if( me->query("weapon/she")) //已经有了蛇杖
return "\n欧阳锋怒道：“小子也敢戏弄老夫，明明已有蛇杖，还要问什么？滚！！！\n";
if( me->query_temp("dixi-wan")) //已经要了药丸
return "\n欧阳锋大怒：“贪得无厌的家伙，拿了还想拿，再这样，老夫一杖叫你上西天！\n";
//到此为止，一切不符合解谜的条件都过滤完了，则开始执行
obn=new("/d/baituo/obj/dixi-wan"); //要取出的东西的路径文件名，相当于clone
obn->set("sign",me->query("id")); //东西上设上给的人的记号
obn->move(me); //这个东西放进问的人的身上
me->set_temp("dixi-wan",1); //问的人做记号，以防他再去要，看前面
return "\n欧阳峰仰天哈哈一笑后，缓缓说道：“我灵蛇杖法奇妙无比，配合蛇杖上灵蛇\n"
"的攻击，可使对手防不胜防，我这有一颗通灵地犀丸，你拿去找蛇奴，他会知道的！”\n"
HIC"说完欧阳锋递过来一颗鸽蛋大小的药丸。\n"NOR;
}
int learn_message(object ob,string skill) //定义学武功的条件
{
if((skill=="nilian-shengong")&&(!ob->query_skill("nilian-shengong",1)))
{
message_vision("欧阳锋阴阴地对$N说道：“你如何能从我这学会这种没有一点功基的武功？”\n",ob);
return 0;
}
else return 1;
}
