cart.c

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

#include <ansi.h>
inherit ITEM;
void to_rob();
void create()
{
        set_name("镖货", ({ "prize"}) );
        set_weight(3000);
        set("no_get", 1);
       set("unit", "份");
	set("long", "一个包裹，上面画着长风镖局的镖旗。\n");
	set("value", 0);
	set("no_put",1);
	set("no_get",1);
	set("no_drop",1);
	set("no_steal",1);
    
}
void init()
{
	add_action("do_finish","finish");
	add_action("do_guard", "guard");
	add_action("do_go", "go");
	remove_call_out("go");
	call_out("go",10);	
}
int do_finish()
{
	object me,ob,where;
	int exp,pot;
	me=this_player();
	ob=this_object();
       where = environment(me);
	if(file_name(where) == me->query_temp("end_place"))
	 {  if(objectp(present("biaoshi", environment(me))))
		{ remove_call_out("aaa");
		call_out("aaa",3,ob);
		exp=random(200)+100;
		destruct(present("biaoshi",environment(me)));
		destruct(present("biaoshi",environment(me)));
		  pot=exp/7;
		  me->add("combat_exp",exp);
		  me->add("potential",pot);
		  me->add("shen",100);
	message_vision(HIC"突然从暗处走出一人朝$N走来，$N问道：万重千险.\n那人答 道：长风破浪。\n$N见对方对上了暗号，便把手中的镖货交给了对方。\n"NOR,me);	
	tell_object(me,"你被奖励了\n"+chinese_number(exp)+"点实战经验\n"
				+chinese_number(pot)+"点潜能\n");
	me->delete_temp("on_biao");
	me->delete_temp("end_place");
	me->delete_temp("biao_place");
		} else {remove_call_out("aaa");
		call_out("aaa",3,ob);
		exp=random(100)+100;
		  pot=exp/7;
		  me->add("combat_exp",exp);
		  me->add("potential",pot);
		  me->add("shen",100);
	message_vision(HIC"突然从暗处走出一人朝$N走来，$N问道：万重千险.\n那人答 道：长风破浪。\n$N见对方对上了暗号，便把手中的镖货交给了对方。\n"NOR,me);	
	tell_object(me,"你被奖励了\n"+chinese_number(exp)+"点实战经验\n"
				+chinese_number(pot)+"点潜能\n");
	me->delete_temp("on_biao");
	me->delete_temp("end_place");
	me->delete_temp("biao_place");

	}}
	return 1;
}
void go()
{	
		this_player()->start_busy(3);
		if (random(100)<15&& !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(3);
		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",HIG"江南大盗"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->set_leader(this_player());
		robber->kill_ob(this_player());
		robber->set_leader(this_player());
		this_player()->kill_ob(robber);
		this_player()->start_busy(3);
	}
	
}
int do_guard(string arg)
{
        write(this_player()->query("name")+"，你现在不能用guard！\n");
        return 1;
}
void aaa(object ob)
{ destruct(ob);}

int do_go(string arg)
{
	if(this_player()->query_temp("hu_song")==1)
{
	if(objectp(present("tufei", environment(this_object()))))
	{
        write(this_object()->query("name")+"，的附近还有土匪，你不能走！\n");
        return 1;
//	obj->kill_ob(present("gong zi",environment(this_player())));
// 	present("gong zi",environment(this_player()))->kill_ob(obj);
// 	present("gong zi",environment(this_player()))->start_busy(6);
//        obj->set_leader(present("gong zi",me));
//        obj->kill_ob(present("gong zi",me));
 	}
}
}