|
|
今天，我们来了解一下作为mud 世界里重要的组成部分——npc
在选取例子的时候，我很是纠结了一翻，sj2002中如此众多的npc 到底应该选取哪个为样本呢？灵光一闪，我有了一个主意，“霍都” 这个新人杀手，恶贯满盈、手上沾满了新人的鲜血。现在我们就来了解一下，究竟wiz 当时是怎样创造出这么一个恶心又经典的人物。通过对“霍都”了解，让我们从一个侧面走进当事wiz 的内心世界，去探究一下这个wiz 的阴暗与险恶（呵呵，玩笑话）
-----------------------------------------------------------------------------------------------------------------------------------------
// huo.c 何师我.霍都
// by snowman 12.feb.98
// Modify by Looklove 2000/10/07
#include <ansi.h>
inherit NPC;
string ask_me();
void check_skills(object ob);
void waiting(object dest);
void checking(object dest);
void do_back();
void do_kill(object dest);
void do_weapon();
void change_huo();
void create()
{
if (clonep()) tell_room(environment(),
HIY +"霍都转过墙角忽然不见了，接着走出来一个奇丑无比的乞丐。\n\n" NOR);
set_name("何师我", ({"he shiwo", "he", "shiwo"}));
set("gender", "男性");
set("title", "丐帮第十九代弟子");
set("age", 35);
set("unique", 1);
set("per", 13);
delete("huodu");
set("location", 1);
set("long", "只见他身披一件宽大破烂的黑衣，手持一根酒杯口粗细的铁杖，满头\n"+
"乱发，一张脸焦黄臃肿凹凹凸凸的满是疤痕，背上负着五只布袋，原\n"+
"来是一名五袋弟子。\n");
set("attitude", "friendly");
create_family("丐帮", 19, "弟子");
set("str", 23);
set("int", 24);
set("con", 22);
set("dex", 27);
set("per", 12);
set("chat_chance", 35);
set("chat_msg", ({ (: random_move  , }));
set("max_qi", 700);
set("max_jing", 700);
set("eff_jingli", 500);
set("combat_exp", 150000);
set_skill("parry", 60);
set_skill("force", 60);
set_skill("dodge", 60);
set_skill("staff", 60);
set_skill("huntian-qigong", 60);
set_skill("tianshan-zhang", 60);
set_skill("xiaoyaoyou", 50);
set_skill("suohou-shou", 50);
set_skill("hand", 50);
map_skill("force", "huntian-qigong");
map_skill("dodge", "xiaoyaoyou");
map_skill("hand", "suohou-shou");
map_skill("staff", "tianshan-zhang");
prepare_skill("hand", "suohou-shou");
set("inquiry", ([
"霍都" : (: ask_me ,
"丐帮" : "我们丐帮是天下第一大帮！",
"金轮法王" : "你在说什么啊？",
"马光佐" : "你在说什么啊？",
"尹克西" : "你在说什么啊？",
"尼摩星" : "你在说什么啊？",
]));
setup();
if (clonep())
{
reincarnate();
do_weapon();
}
remove_call_out("change_huo");
if(clonep()) call_out("change_huo", 900);
}
void do_weapon()
{
object armor, weapon, *ob, me = this_object();
ob = all_inventory(me);
foreach (object item in ob) destruct(item);
if (query("huodu"))
{
armor = new(ARMOR_D("pao2"));
weapon = new(__DIR__"obj/txs");
}
else
{
armor = new(ARMOR_D("cloth"));
weapon = new(BINGQI_D("gangzhang"));
}
armor->move(me);
armor->wear();
weapon->move(me);
weapon->wield();
add_money("silver", 50);
}
nosave int init_flag = 0;
void init()
{
object ob;
::init();
if (init_flag) return;
if (living(this_object()) && interactive(ob = this_player()) && visible(ob))
{
init_flag = 1;
call_out("greeting", 1, ob);
}
}
void greeting(object ob)
{
init_flag = 0;
if (ob && present(ob, environment()))
{
if (query("huodu") && ob->query("combat_exp") > 100000) check_skills(ob);
else if (present("yuzhu bang", ob))
{
object me = this_object();
message_vision(BLU"$N突然拦在$n面前，眼睛直盯着$n手里的玉竹棒！\n"NOR,me,ob);
change_huo();
ob->add_busy(2);
do_kill(ob);
}
}
}
string get_user_place()
{
object *obs = users(), ob, room;
string room_name;
ob = obs[random(sizeof(obs))];
if (room = environment(ob)) room_name = file_name(room);
if (
!room ||
wiz_level(ob) ||
ob->is_ghost() ||
strsrch(room_name,"/d/") < 0 ||
!strsrch(room_name, "/d/wizard/") ||
!strsrch(room_name, "/d/death/") ||
!strsrch(room_name, "/d/wuguan/")
)
return 0;
return room_name;
}
void do_back()
{
string room;
remove_call_out("do_back");
if (!stringp(room = get_user_place())) move("/d/city/kedian");
else move(room);
tell_room(environment(), query("name")+"快步走了过来。\n");
set_leader(0);
}
string ask_me()
{
object ob;
ob=this_player();
if (ob->query("combat_exp") < 100000) return "小孩子，你自己的名字知道怎么写吗？别问东问西的。";
else
{
if (query("huodu"))
{
check_skills(ob);
return "嘿嘿，霍都就是本王子，来耍两套猴戏给我看看吧！";
}
else
{
switch(random(4))
{
case 0 : return "不知道。"; break;
case 1 : return "我可不认识这个人。"; break;
case 2 : return "谁是霍都啊？"; break;
case 3 : change_huo();
do_kill(ob);
return "嘿嘿，霍都就是本王子，来耍两套猴戏给我看看吧！\n";
break;
}
}
}
}
void change_huo()
{
object *ob;
remove_call_out("change_huo");
tell_room(environment(), HIY +"突然何师我阴阴一笑，伸手撤去身上的肮脏布衣，又在脸上一抹，竟然\n"+
"转眼就变成了一位身着锦袍、风度翩翩的中年公子。\n\n" NOR);
set("title", "蒙古王子");
set("long", "只见他身穿白边青色长袍，手拿摺扇，作贵公子打扮，脸上一股傲狠之色。\n");
set_name("霍都", ({"huo du", "huo", "du"}));
set("shen", -12000);
set("per", 25);
set("huodu", 1);
set_skill("parry", 100);
set_skill("force", 100);
set_skill("dodge", 100);
set_skill("sword", 100);
set_skill("songshan-qigong", 120);
set_skill("songshan-jian", 120);
set_skill("xiaoyaoyou", 120);
set_skill("suohou-shou", 120);
set_skill("hand", 100);
map_skill("force", "songshan-qigong");
map_skill("dodge", "xiaoyaoyou");
map_skill("hand", "suohou-shou");
map_skill("sword", "songshan-jian");
prepare_skill("hand", "suohou-shou");
set("combat_exp", 300000);
set("max_qi", 1500);
set("max_jing", 1300);
set("eff_jingli", 1400);
set("jiali", 50);
reincarnate();
set("chat_chance_combat", 20);
set("chat_msg_combat", ({ (: perform_action, "sword.feiwu" }));
do_weapon();
if (!environment()->query("no_fight") && !environment()->query("sleep_room"))
{
ob = all_inventory(environment());
foreach (object item in ob) {
if (!userp(item)) continue;
if (!visible(item)) continue;
if (item->query_temp("block_msg/all")) continue;
if (item->query("combat_exp") < 100000) continue;
if (item->query_temp("user_type") == "worker") continue;
COMBAT_D->do_attack(this_object(), item, query_temp("weapon"), 1);
}
}
remove_call_out("create");
if (clonep()) call_out("create", 300+random(200));
}
void kill_ob(object ob)
{
if (!query("huodu")) change_huo();
::kill_ob(ob);
}
void reset()
{
if (clonep()) do_back();
}
#include "killer.h";
|
评分
-
1
查看全部评分
-
|
闽公网安备 35050202000162号 )
发表于 2012-4-13 20:18:50
发表于 2012-4-13 22:27:23
