riyue_guard.c

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

#include <ansi.h>
#include <login.h>

int update_condition(object me, int duration)
{
     if (!duration)
{
message_vision(HIR"\n$N你的护法时间已经到了，可以交差了(finish)。\n"NOR,me); 
      return 0;
}
  	 if( duration%2==0 
		 //&& 
		 //interactive(me) 
		 &&!environment(me)->query("no_fight")
		 && !me->is_fighting())
       {  me->start_busy(2);
          call_out("zuji", 0, me);    
     
	 }
if (!environment(me)->query("no_fight"))
{
        me->apply_condition("riyue_guard", duration - 1);
}
        return 1;
}


void zuji(object me)
{   
        object ob;
	int maxskill;
	int maxexp;
	int maxqi;
        int maxjing;
        if (!me) return;
if (!me->query_temp("in_guard")) return;

	maxskill=me->query_skill("force");
	maxqi=me->query("eff_qi");
	maxjing=me->query("eff_qi");
	maxexp=me->query("combat_exp");
if (environment(me)->query("short")!="平定州")
{
tell_object(me,"你在平定州护法走开，失败。\n");
me->delete("guardry");
me->delete_temp("in_guard"); 
return;
}

if (environment(me)->query("no_fight"))
{
tell_object(me,"你在平定州护法走开，失败。\n");
me->delete("guardry");
me->delete_temp("in_guard"); 
return;
}
       tell_room(environment(me),"山下突然冲上来一伙官兵。\n");
        ob=new("/quest/menpaijob/riyue/mengmian.c");
	if(!me->is_ghost())
{
ob->set_temp("guardtg",me->query("id"));
        ob->move(environment(me));
}
        ob->set("combat_exp",maxexp);
        if ( maxskill>5 && maxexp > 50000) {
        ob->set_skill("kuang-jian",maxskill*1/2);
        ob->set_skill("sword",maxskill*1/2);
        ob->set_skill("parry",maxskill*1/2);        
        ob->set_skill("unarmed",maxskill*1/2);
        ob->set_skill("dodge",maxskill*1/2);        
        }
     else {
        ob->set_skill("kuang-jian",5);
        ob->set_skill("sword",5);
        ob->set_skill("parry",5);        
        ob->set_skill("unarmed",5);
        ob->set_skill("dodge",5);        
         }
        ob->set("eff_qi",maxqi);        
        ob->set("qi",maxqi);        
        ob->set("jing",maxjing);        

	ob->set("title",HIR"官府精兵"NOR);
	ob->kill_ob(me);
	message_vision(HIR"\n$N对着$n大叫一声，杀啊!。\n"NOR,ob,me); 
        ob=new("/quest/menpaijob/riyue/mengmian.c");
	if(!me->is_ghost())
{
ob->set_temp("guardtg",me->query("id"));
        ob->move(environment(me));
}
        ob->set("combat_exp",maxexp);
        if ( maxskill>5 && maxexp > 50000) {
        ob->set_skill("kuang-jian",maxskill*1/2);
        ob->set_skill("sword",maxskill*1/2);
        ob->set_skill("parry",maxskill*1/2);        
        ob->set_skill("unarmed",maxskill*1/2);
        ob->set_skill("dodge",maxskill*1/2);        
        }
     else {
        ob->set_skill("kuang-jian",5);
        ob->set_skill("sword",5);
        ob->set_skill("parry",5);        
        ob->set_skill("unarmed",5);
        ob->set_skill("dodge",5);        
         }
        ob->set("eff_qi",maxqi);        
        ob->set("qi",maxqi);        
        ob->set("jing",maxjing);        

	ob->set("title",HIR"官府精兵"NOR);
	ob->kill_ob(me);
	message_vision(HIR"\n$N对着$n大叫一声，杀啊!。\n"NOR,ob,me); 

        ob=new("/quest/menpaijob/riyue/mengmian.c");
	if(!me->is_ghost())
{
ob->set_temp("guardtg",me->query("id"));
        ob->move(environment(me));
}

        ob->set("combat_exp",maxexp + 10000);
        if ( maxskill>5 && maxexp > 50000) {
        ob->set("str", me->query("str"));
        ob->set("dex", me->query("dex"));
        ob->set("per", me->query("per"));
        ob->set("qi", me->query("qi")* 3/4);
        ob->set("eff_qi", me->query("eff_qi")* 3/4);
        ob->set("jing", me->query("jing")* 3/4);
        ob->set("neili", me->query("neili")* 3/4);
        ob->set("max_neili", me->query("max_neili")* 3/4);
        ob->set("eff_jing", me->query("eff_jing")* 3/4);
        ob->set_skill("kuang-jian",maxskill*2/3);
        ob->set_skill("sword",maxskill*2/3);
        ob->set_skill("parry",maxskill*2/3);        
        ob->set_skill("unarmed",maxskill*2/3);
        ob->set_skill("dodge",maxskill*2/3);        
        }
     else {
        ob->set_skill("kuang-jian",5);
        ob->set_skill("sword",5);
        ob->set_skill("parry",5);        
        ob->set_skill("unarmed",5);
        ob->set_skill("dodge",5);        
         }
        ob->set("qi",maxqi);        
        ob->set("jing",maxjing);        
        ob->set("eff_qi",maxqi);        
        ob->set("neili",maxqi*2);        
	ob->set("title",HIG"官府班头"NOR);
ob->set("eff_jing",maxjing);        
if ( maxexp > 10000000 && random(10)==0) {
	ob->set("jiali",50);
	        ob->set("qi",maxqi);        
        ob->set("jing",maxjing);        
	ob->set("neili",maxqi*2);  
ob->set("qi",maxqi);      
        ob->set("eff_qi",maxqi);        
        ob->set("max_qi",maxqi);        
        ob->set("max_jing",maxjing);        
	ob->set("max_neili",maxqi*2);  

	ob->set_skill("sword", maxskill);
	ob->set_skill("force", maxskill);
	ob->set_skill("unarmed", maxskill);
	ob->set_skill("dodge", maxskill);
	ob->set_skill("parry", maxskill);
	ob->set_skill("anranxiaohun-zhang",maxskill);
	ob->set_skill("xuantie-sword", maxskill);
	ob->set_skill("xiantian-qigong", maxskill);
	ob->set_skill("yunv-shenfa",maxskill);
	ob->set_skill("yunv-xinfa",maxskill);
	ob->map_skill("sword", "xuantie-sword");
	ob->map_skill("parry", "anranxiaohun-zhang");
	ob->map_skill("unarmed","anranxiaohun-zhang");
	ob->map_skill("dodge", "yunv-shenfa");
	ob->map_skill("force", "yunv-xinfa");
        ob->set_temp("apply/attack", 200);
        ob->set_temp("apply/defense",500);
        ob->set_temp("apply/armor", 1500);
        ob->set_temp("apply/damage", 500);
     ob->set("str", 100);
     ob->set("dex", 100);
ob->set("title",HIW"白道高手"NOR);
}

	ob->kill_ob(me);
	message_vision(HIR"\n$N对着$n大叫一声，杀啊!。\n"NOR,ob,me); 
}

string query_type(object me)
{
	return "job";
}