caiyao.h

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C头文件 代码 · 共 215 行

//Cracked by Kafei
// /d/zhongnan/caiyao.h
// caiyao.h  采药
// sdong 08/06/98

#include <ansi.h>

void setup_ob(object me,object victiom);
string *herbs = ({
					 __DIR__"obj/chuanbei",
					 __DIR__"obj/fuling",
					 __DIR__"obj/gouzhizi",
					 __DIR__"obj/heshouwu",
					 __DIR__"obj/huanglian",
					 __DIR__"obj/jugeng",
					 __DIR__"obj/jy-hua",
					 __DIR__"obj/shengdi",
});

string *beasts = ({
					 __DIR__"obj/snake",
					 __DIR__"obj/bee",
					 __DIR__"obj/wuya",
					 __DIR__"obj/yetu",
					 __DIR__"obj/deer",
					 __DIR__"obj/xbaozi",
					 __DIR__"obj/monkey",
});


void init()
{
		  object ob = this_player();
		  add_action("do_search", "bo");
		  add_action("do_search", "search");
		  add_action("do_dig", "wa");
		  add_action("do_dig", "dig");
		  if( interactive(ob))
		  {
			 this_player()->delete_temp("herb");
			 if( ob->query_temp("qz/caiyao") )
				 set("count",random(4));
		  }
}

int do_search(string arg)
{
		  object me,ob;
		  int power;


		  me = this_player();

		  if( me->is_fighting() || me->is_busy() )
					 return notify_fail("你正忙着。\n");

		  if( me->query_temp("herb/got",1) )
					 return notify_fail("这里已经找过了，再找也找不出什么了！\n");

		  if( !present("yao chu", me) )
					 return notify_fail("你没有工具，无法拨开灌木山草寻找草药！\n");

		  if( (int)me->query("jing") < 30 )
					 return notify_fail("你太累了，先歇息一会儿吧。\n");

		  me->add_temp("herb/times", 1);
		  me->add("jing", -10);
		  me->start_busy(1+random(2));

		  if( query("count") < 1 && (int)me->query_temp("herb/times") > 30 )
					 return notify_fail("你把四周的灌木杂草都翻遍了，可是没发现什么，看来这里没指望了！\n");

		  message_vision("$N用药锄拨动着四周的灌木杂草，仔细地看有没有草药！\n", me);

		  power = (int)me->query_temp("herb/times") * ( me->query("kar")+me->query("int") + me->query("str") )/3;
		  power *= query("count");

//		  if( power/2 + random(power/2) > 250 ) {

		  if( (int)me->query_temp("herb/times") > (random(13)+8) ) {
					 me->set_temp("herb/found", 1);
					 message_vision(HIG"\n$N用药锄不断的拨动着四周的山草，忽然发现杂草之中有一株特别的草！\n"NOR, me);
					return 1;
		  }

		  if(random(12)==1)
		  {
				ob=new(beasts[random(sizeof(beasts))]);
				ob->move(environment(me));
				message_vision(HIR"突然从草丛中惊起一只$N，它大概受了惊吓，发疯似地向$n发起进攻！\n"NOR, ob,me);

				if(ob->query("id")=="xiao baozi")setup_ob(ob,me);
				ob->kill_ob(me);
				ob->start_busy(1+random(3));
				return 1;
		  }

		  if(random(101)==50)
		  {
			 message_vision(HIR"\n$N一不小心用力过猛，忽听嘎巴一声，药锄断为两截！\n"NOR, me);
			 ob = present("yao chu", me);
			 if(ob)destruct(ob);
		  }
		  return 1;
}

void setup_ob(object me,object victim)
{
	object *inv;
	mapping skill_status;
	string *sname;
	int i, max = 0, max1, j;


	if ( !me->query_temp("copied") ) {
		if ( mapp(skill_status = victim->query_skills()) ) {
		skill_status = victim->query_skills();
		sname = keys(skill_status);

		for(i=0; i<sizeof(skill_status); i++) {
			if ( skill_status[sname[i]] > max ) max = skill_status[sname[i]];
		}


		max1 = (int)max + random(max);

		//max = (int)max*3/4 + 1 + random((int)max/4);

		if( victim->query("combat_exp",1) < 10000 ) 
		max1=max1/2;
		me->set_skill("dodge", max1);
		me->set_skill("parry", max1);
		me->set_skill("force", max1);

		me->set("combat_exp", victim->query("combat_exp",1)+random(victim->query("combat_exp",1)/10));

		me->set("max_qi", victim->query("max_qi"));
		me->set("eff_qi", victim->query("max_qi"));
		me->set("max_jing", victim->query("max_jing"));
		me->set("eff_jing", victim->query("max_jing"));
		me->set("qi", me->query("max_qi"));
		me->set("jing", me->query("max_jing"));
		me->set("jiali", victim->query("jiali")*3/4);
		if ( victim->query("max_jing") > 0 ) {
			me->set("max_jing", victim->query("max_jing"));
		}
		else me->set("max_jing", 500);
		me->set("jing", me->query("max_jing"));

		me->set("no_sing", 1);
		me->set_temp("copied", 1);
		}
	}
}

int do_dig(string arg)
{
		  object me, ob,herb;
		  int exp;

		  me = this_player();

		  if( me->is_fighting() || me->is_busy() )
					 return notify_fail("你正忙着。\n");
		  if( !(ob = present("yao chu", me)) )
					 return notify_fail("你没有药锄，怎么挖？\n");

		  if( (int)me->query("jing") < 25 )
					 return notify_fail("你太累了，先歇息一会儿吧。\n");

		  me->add("jing", -5);
		  me->start_busy(1);

		  if( !me->query_temp("herb/found") ) {
					 message_vision("$N拿着药锄使劲的挖着土，忽听嘎巴一声，药锄断为两截！\n", me);
					 destruct(ob);
					 return 1;
		  }

		  add("count", -1);
		  herb = new(herbs[random(sizeof(herbs))]);
		  herb->set_temp("byname",me->query("id"));
		  herb->move(me);
                  herb->set_temp("byname",me->query("id"));
		  message_vision(HIY"$N用药锄小心翼翼的把$n"+HIY"从土中起出！\n"NOR, me,herb);
		  if(me->query_temp("qz/caiyao",1))
		  {
			  exp = 15+random(20);
			  me->add("combat_exp",exp);
			  me->add("potential",exp*2/3);
              message_vision( "\n$N获得了：\n"
                + chinese_number(exp ) + "点实战经验，\n"
                + chinese_number(exp*2/3) + "点潜能，\n" NOR, me);

		  }

		  if(random(2)==1)
		  {
			  message_vision(HIR"\n$N兴奋过度，把药锄一甩，忽听嘎巴一声，药锄断为两截！\n"NOR, me);
			  destruct(ob);
		  }
		  else if(random(4)==2)
		  {
			  message_vision(HIR"\n$N过分紧张，一失手，药锄把$n"+HIR"切为两截，掉在地上不见了！\n"NOR, me,herb);
			  destruct(herb);
		  }


		  me->delete_temp("herb/found");
		  me->set_temp("herb/got", 1);
		  return 1;
}