murong-fu.c

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

		"你现在身上不是有颗药丸吗，怎么又来要了？ 真是贪得无餍！";

	if (query("dan_count") < 1) return "对不起，归元丹已经被别人要走了。";

             ob = new("/d/mr/obj/guiyuan-dan");
	ob->move(this_player());

	add("dan_count", -1);

	message_vision("$N获得一颗归元丹。\n",this_player());
	return "好吧，此丹集天下灵气于一身，你服后会功力大增，我就赐于你吧。";

}

string ask_dan1()
{
	mapping fam; 
        object ob,me;
me = this_player();
	
	if (!(fam = this_player()->query("family")) || fam["family_name"] != "姑苏慕容")
		return RANK_D->query_respect(this_player()) + 
		"与本派素无来往，不知此话从何谈起？";

      if ( (int)this_player()->query_condition("bonze_drug" ) > 0 )
		return RANK_D->query_respect(this_player()) + 
		"你是不是刚吃过药，怎么又来要了？ 灵药多吃有害无宜，过段时间再来吧。";

        if ( (int)this_player()->query("max_neili" ) < 100)
		return RANK_D->query_respect(this_player()) + 
		"功力不够，灵药多吃有害无宜，过段时间再来吧。";

	if (  present("qingxin san", this_player()) )
		return RANK_D->query_respect(this_player()) + 
		"你现在身上不是有颗药丸吗，怎么又来要了？ 真是贪得无餍！";
	if (query("dan1_count") < 1) return "对不起，玉露清新散已经发完了";

	ob = new("d/mr/npc/obj/qingxin-san");
	ob->move(this_player());

	add("dan1_count", -1);

	message_vision("$N获得一颗玉露清新散。\n",this_player());
	return "好吧，此药集天下灵气于一身，你服后会功力大增，我就赐于你吧。";

}

string ask_bo()
{
        mapping fam; 
//        object ob;
	if ((int)this_player()->query_temp("marks/失败")) 
 return" 慕容复眼中发出两道寒光，直射" + this_player()->name() + "一字一字说道：已经较量过了，你怎麽还
不回去安心练功呢!";
		 
	 
         if (!(fam =this_player()->query("family")) || fam["family_name"] != "姑苏慕容")
		return "你与本派素无来往，不知此话从何谈起？";
  
       if ((int)this_player()->query_temp("marks/bai_bo") && fam["master_name"] == "慕容博") 
         return "你已经是家父的弟子了，不用再向我学了!";

           this_player()->set_temp("marks/jiao", 1);
 return "慕容复眼中发出两道寒光，直射" + this_player()->name() + "一字一字说道：家父现在身处少林，那里
藏龙卧虎，你武功未成，最好不要去自去其辱，如果你有信心能接下我十招，就和我较量一下。(jiaoliang) ";
                
	 
}

int do_jiaoliang()
{
	object me, obj, jiaxin;
	int current_qi, count;

	me = this_object();
	obj = this_player();
        jiaxin = new("d/mr/obj/jiaxin");
	current_qi = (int)me->query("qi");

	say(obj->name() + "对慕容复说：好吧，那就让师傅指点几招 。\n");
             set("max_qi", 3500);
            set("jiali", 100);
             set("neili", 3500);
             set("max_neili", 3500);
             set("max_jing", 2000);
        if( obj->query_temp("marks/jiao") ) {
                obj->set_temp("marks/jiao", 0);
		count = 0;
		while ( ((int)obj->query("qi")*100 / (int)obj->query("max_qi")) > 30) { 
			if ( !present(obj, environment()) )
				return 1;
                        COMBAT_D->do_attack(obj, me, obj->query_temp("weapon"));
			if (((int)me->query("qi")*100/current_qi)< 30 || ++count > 10) {
				say(
"慕容复对" + obj->name() + "说道： 不想我慕容世家又出良材，我这就写封家信， 你马上动身前去少林，\n"
"把它交给他老人家。希望你能不负众望，振兴慕容世家，光复大燕国。\n"
				);
      				jiaxin->move(obj);
				obj->set_temp("marks/bai_bo", 1);
			        message_vision("$N交给$n一封家信\n", me, obj);
				return 1;
			}
	                 COMBAT_D->do_attack(me, obj);
		}
	 	say(
"慕容复对着" + obj->name() + "冷冷说道：你武功未成，就好高务远,\n"
"你还是安心练功去吧!\n"
		);
               this_player()->set_temp("marks/失败", 1);
         }
	return 1;
} 

int ask_job()
{

        object me = this_player();
        object ob;
        mapping quest;
        mapping skl; 
        string *sname, place;        
        int i, skill = 0;
        quest = (__DIR__"lagjob")->query_quest();

        skl = me->query_skills();
        if ( !skl ) {
                tell_object(me, "你去学一些本事先吧！\n");
                return 1;
                }
        sname  = sort_array( keys(skl), (: strcmp :) );
        for(i=0; i<sizeof(skl); i++) 
                if (skl[sname[i]] >= skill && sname[i] != "literate" && sname[i] != "taoism")

                        skill = skl[sname[i]];
                        
        if (skill < 80) skill = 80;

        if( me->query("family/family_name") != "姑苏慕容")
           {
                      message_vision("$N对着$n大喝一声：本派弟子才能做任务。你是哪来的奸细？\n", this_object(), me);
                      return 1;
            }

           if (me->query("combat_exp") < 100000) {
                command("say " + RANK_D->query_respect(me) + "找大燕传国玉玺是很难的，你还是练高经验再来吧");
                return 1;
}
        if ((int)me->query_condition("menpai_busy"))  
            {
                      message_vision("$N对着$n摇了摇头说：你办事不利,等会再来!\n", this_object(), me);
                      return 1;
            }
            
        if (me->query("potential") < 200 || me->query("combat_exp") < 300) {
                command("say 你连本钱都没有，我怎么放心要你去找大燕传国玉玺？");
                return 1;
        }

        if (me->query("kill_mr") == 1) {
                command("kick " + me->query("id"));
                command("say 我不是给了你任务了吗？");
                return 1;
                }
        else {
                command("nod" + me->query("id"));
                command("say " + RANK_D->query_respect(me) + "能为大燕出力，真是太好了。");
                command("say " + me->query("id") + " 大燕传国玉玺在『" + quest["short"]             + "』出现，快去吧！\n" NOR);
                me->set("kill_mr", 1);
                me->set("quest/quest_type", "寻");
                me->set("quest/quest", "大燕传国玉玺");
                me->set("task_time", time() + 300);
                ob = new(__DIR__"qiangdao",1);
                if (me->query("combat_exp") > 2000000) {
                ob = new(__DIR__"qiangdao2",1);
                }
                ob->move(quest["place"]);
                ob->set_temp("owner/id",me->query("id"));
                ob->set("combat_exp", me->query("combat_exp"));
                ob->set("max_force", me->query("max_force"));
                ob->set("eff_kee", me->query("max_kee"));
                ob->set("max_kee", me->query("max_kee"));
                ob->set("kee", me->query("max_kee"));
                ob->set_skill("dodge", skill);
                ob->set_skill("force", skill);
                ob->set_skill("parry", skill);
                
                ob->set("force_factor", random(10));   
                return 1;
               }                              
}

int ask_fail()
{
        object me = this_player();
        
        if (me->query("kill_mr") == 1) {
                command("sigh");
                command("say 你这身手也来找宝物,扣你150点POT.");
                me->add("potential",-50);
                me->delete("kill_mr");
                me->apply_condition("menpai_busy",10);
                call_out("delete", 1);
                return 1;
                }
}

int delete()
{
        this_player()->delete("kill_mr");
        return 1;
}


int accept_object(object me, object obj)
{
   object ob=this_object();
   if(!me || environment(me) != environment()) return 0;
   if(!objectp(obj)) return 0;
   if(!present(obj, me)) return notify_fail("你没有这件东西。");        
   if(userp(obj)){
       command("consider "+(string)me->query("id"));
       command("say 你拿个快死的人来骗我？");
       return 0;
       }
   if(obj->query("id") == "mryuxi" && me->query("kill_mr") == 1)
   {
       command("nod "+(string)me->query("id"));
       command("say 干得好！\n");
       remove_call_out("destroying");
       call_out("destroying", 5, obj, ob, me);                       
       return 1;
       }
   if(obj->query("money_id")) {
       command("pat " + me->query("id"));
       command("say 我要钱干什么?");
       return 0;
       }
   if(me->query("kill_mr") == 0 ){
       command("hehe "+(string)me->query("id"));
       command("say 不错啊，但这活我没叫你干啊。");
       return 1;
       }
   else return 0;       
}

void destroying(object obj, object ob, object me)
{   
   object n_money;
   int kar, exp, pot;
   kar = random(me->query("kar")) * 15;
   exp = 500 + kar;
   pot = 250 + random(exp);

   if(obj) destruct(obj);
   if(!ob) return;
   if(!me || environment(me) != environment()){
      command("say 咦，人呢？");
      return;
      }
   command("pat "+me->query("id"));
   message_vision(HIY"$N对$n说道：你这次做得极为出色！我就指点你两手功夫吧.\n"NOR,ob, me);
                  message_vision(HIC "\n由于$N成功的找回大燕传国玉玺，被奖励：\n"
                + chinese_number(exp / 2) + "点实战经验，\n"
                + chinese_number(pot / 2) + "点潜能，\n"
                + chinese_number(50) + "点评价作为答谢。\n" NOR, me);
                me->add("combat_exp", exp / 2);
                me->add("potential", pot / 2);
                me->add("score",50);
                me->delete("quest");
                me->delete("kill_mr");
   return;      
}