wuxing.c

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

//Cracked by Roath
#include <ansi.h>

inherit ITEM;
int throw_ob(string arg);
void create()
{
   set_name(HIW"无形散"NOR, ({"wuxing san", "san", "wuxing"}));
   if (clonep())
      set_default_object(__FILE__);
   else {
      set("long", HIG"一包可以弹(tanshe)的毒药。\n" NOR);
      set("unit", "包");
      set("value", 0);
      set("skill", "feixing-shu");
   }
   setup();
}
void init()
{
        object me = this_player();
        add_action("throw_ob","tanshe"); 
}
int throw_ob(string arg)
{
   int skill, skill2, thr, dod, poi, my_neili, u_neili, myexp, urexp, par;
   mapping myfam, vfam;
   object me,victim;   

me=this_player();
   if ( (!( myfam= me->query("family")) || myfam["family_name"] != "星宿派"))
                  return notify_fail("只有星宿弟子利用本门秘传内功方能使用无形散毒。\n"); 

        if( !arg ) return notify_fail("你想对谁使用无形散毒？\n");

        if( !objectp(victim = present(arg, environment(me))) )
                return notify_fail("这里没有这个人。\n");

        if( victim->query("id")==me->query("id"))
                return notify_fail("你想杀自己吗？\n");
	if( !victim
	||	!victim->is_character()
	||	!me->is_fighting(victim) )
		return notify_fail("无形散毒,只能对战斗中的对手使用。\n");

   if( me->query("neili") <= 1000 ){
        write("你的内力不够摧迫无形散毒！\n");
        return 1;
   }

   if (me->query_skill("poison", 1) < 120){
        write("当心毒死你自己！\n");
        return 1;
   }

   if( environment(me)->query("no_fight") ) return notify_fail("不行!\n");
	
   if( me->is_busy() ) return notify_fail("( 你上一个动作还没有完成，不能施用外功。)\n");
	


   if (me->query_condition("killer") > 10 && userp(victim)){
        write("你感到一丝内疚，手突然软了下来。\n");
        return 1;
   }
   
   message_vision(HIW"$N微微一笑，神出小指向$n轻轻一弹，$n觉得眼前一花，似乎有一层白雾向自己飘来。\n"NOR, me, victim);

   if (me->query_skill("poison", 1) < victim->query_skill("poison", 1) + 30){
           victim->apply_condition("insect_poison", 100);
           return 1;
   }

   thr = me->query_skill("feixing-shu", 1);
   poi = me->query_skill("poison",1);
   dod = (int)victim->query_skill("force",1);
      
   my_neili = me->query("neili");
   u_neili = (int)victim->query("neili");
   
   skill = thr + poi + my_neili;
   skill2 = dod + u_neili;
   skill += me->query("combat_exp")/1000;
   skill2 += victim->query("combat_exp")/1000;
   me->add("neili", -150);

   myexp=me->query("combat_exp");
   urexp=victim->query("combat_exp");

   if ( skill > skill2){

        if (urexp>=myexp/2) 
                me->improve_skill("feixing-shu", 100);
        
        
        
                
        this_object()->set_temp("used", 1);
        this_object()->set("value", 10);
        message_vision(HIR"$n一不小心被$N弹出的无形散散打中了身上!\n" NOR, me, victim);
        victim->apply_condition("sanpoison",me->query_skill("poison",1));      
        destruct(this_object());
      
  	me->start_busy(2);
  	victim->start_busy(2);
        
        return 1;
   } else {
        message_vision(HIR"$n袍袖一拂，一股内劲发出，将那无形散尽数朝$N拂将回去。\n" NOR, me, victim);
        this_object()->set_temp("used", 1);
        this_object()->set("value", 10);
        victim->apply_condition("sanpoison",me->query_skill("poison",1));      
  }
  
  me->start_busy(2);
  victim->start_busy(2);
  
  destruct(this_object());
  return 1;
}