letter.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

#include <ansi.h>
inherit ITEM;
int consider_lv(object ob,int a);
void to_rob();
void create()
{
        set_name(HIR"劝降书"NOR, ({"xin", "letter"}));
        set("long",
               "这是铁掌帮托付你的重要劝降书。\n");
        set("unit", "封");
        set("weight", 5);
//      set("no_drop", 1);
        set("no_get", 1);

        setup();
}

void init()
{
        add_action("do_sendto","sendto");
	remove_call_out("go");
	call_out("go",3);	
}

int do_sendto(string arg)
{
object ob=this_object(),me=this_player();
object obn;
int i;
string targ;
int exp,pot;
        if (!arg||!ob=present(arg,environment(me)))
                return notify_fail("你要把劝降书送给谁？\n");
        targ=ob->query("name");
if ( targ != me->query("quest/quest") ) return notify_fail("这是送给"+me->query("quest/quest")+"的劝降书，你怎么能随便乱给呢？\n");
        if (userp(ob)) return notify_fail("你弄错人了吧？\n"); //玩家可能有相同于NPC的名字
        if ( (int) me->query("task_time") < time() )
        {
             return notify_fail(targ+"冷冷地说：“你来晚了,我已经收倒别人送来的劝降书了！”\n");
        }
        tell_object(me,"你把劝降书交给了"+targ+"。\n" NOR );
        if (me->query("tzjob") == 2)        
{
        i=me->query_skill("force");
        obn = new(__DIR__"xiashi");
        obn->set("combat_exp",me->query("combat_exp") * 4 / 5);
        obn->set("max_qi",me->query("max_qi"));
        obn->set("eff_qi",me->query("max_qi"));
        obn->set("qi",me->query("max_qi"));
        obn->set("max_jingli",me->query("max_jingli"));
        obn->set("eff_jingli",me->query("max_jingli"));
        obn->set("jingli",me->query("max_jingli"));
        obn->set("max_neili",me->query("max_neili"));
        obn->set("neili",me->query("max_neili"));
        obn->set_skill("force", i*3/4);
        obn->set_skill("huifeng-jian", i*3/4);
        obn->set_skill("kunlun-shenfa", i*3/4);
        obn->set_skill("strike", i*3/4);
        obn->set_skill("kunlun-zhang",i*3/4);
        obn->set_skill("dodge", i*3/4); 
        obn->set_skill("sword", i*3/4); 
        obn->set_skill("linji-zhuang", i*3/4); 
        obn->set_skill("parry", i*3/4); 
        obn->set_skill("literate", i*3/4);
        obn->set("shen",(me->query("combat_exp")/20));
        obn->move(environment(me));
        message_vision("\n" + HIW + "突然一条人影向$N扑了过来。\n"NOR, me);
        message_vision("\n" + HIR + "$n对$N大喝一声：“你这个铁掌帮的走狗，还不受死！”\n"NOR, me, obn);
        me->kill_ob(obn);
        me->set("tzjob",1);
        obn->kill_ob(me);
        obn->set_leader(me);
}
        exp=me->query("quest/exp_bonus");
        pot=me->query("quest/pot_bonus");
        if (me->query("tzjob") == 1)               
{
        tell_object(me,HIW""+targ+"脸上一阵红,一阵白道：知道了....，你被奖励了：\n"
        +chinese_number(exp)+"点经验值。\n"
        +chinese_number(pot)+"点潜能。\n\n"NOR);
        me->add("combat_exp",exp);
        me->add("potential",pot);
        me->set_temp("tufei",0);
        me->set("quest",0);
        destruct(present("xin",me));
        return 1;
}
	message_vision(HIR"我不要这东西！\n"NOR,me);
}
void go()
{	
		this_player()->start_busy(2);
  if (random(100)<3&& !environment(this_object())->query("no_fight") )
	{	
        if (this_object()->query_temp("tufei")<3)
	{
		to_rob();
		this_object()->add_temp("tufei",1);
                this_object()->start_busy(2);
		call_out("go",30);}
		return;
	}call_out("go",10);
}

void to_rob()
{
	int i;
	int maxskill;
	int maxexp;
	object robber;
	object me=this_player();
	maxskill=me->query_skill("force");
	maxexp=me->query("combat_exp");
	message_vision(HIR"忽然间跳出一群劫匪！\n"NOR,this_object());
	for (i=0;i<=random(2)+1;i++)
	{

		robber=new(__DIR__"tufei");
		robber->move(environment(this_player()));
		robber->set_leader(this_player());
                robber->set("combat_exp",maxexp);
                robber->set_skill("kuang-jian",maxskill);
                robber->set_skill("sword",maxskill);
                robber->set_skill("parry",maxskill);        
                robber->set_skill("dodge",maxskill);        
  	        robber->set("title",HIR"江南大盗"NOR);
		 if(objectp(present("biaoshi", environment(this_player()))))
		{	robber->kill_ob(present("biaoshi",environment(this_player())));
			present("biaoshi",environment(this_player()))->kill_ob(robber);}
		robber->kill_ob(this_player());
		robber->set_leader(this_player());
		this_player()->kill_ob(robber);
		this_player()->start_busy(3);

	}
	
}

void owner_is_killed() { destruct(this_object()); }