qiangjian.c

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

//MUD强奸命令1.1版
//编程  四川工业大学  剑啸九天(sword)

#include <ansi.h>

inherit F_CLEAN_UP;

int main(object me, string arg)
{
        object obj, old_target;
	int n;
        if((string)me->query("gender") == "女性")
          return notify_fail(RED"想干什么?你是女人啊!\n"NOR);

        if( environment(me)->query("no_fight") )
                return notify_fail(HIW" 光天化日之下怎可行淫.\n\n"NOR);

        if( (int)me->query("age") <= 17)
                return notify_fail(HIY" 东西还没长齐想干嘛？\n"NOR);

        if( me->query("combat_exp") <= 500000)
                return notify_fail(HIY" 你的经验这么低，还是练练高吧!\n"NOR);

        if (!me->query("family/family_name"))
                return notify_fail(HIR"你无门无派，不是江湖中人!\n"NOR);

        if (me->is_busy()) 
                return notify_fail(CYN"你现在正忙着呢！还想干嘛？\n"NOR);

        if ( wizardp(me) )
                return notify_fail("你是巫师，这个...就免了吧！\n");

        if(!arg || !objectp(obj = present(arg, environment(me))))
                return notify_fail(CYN" 你想非礼谁？\n"NOR);

        if(!obj->is_character() )
                return notify_fail(CYN" 看清楚一点，那并不是生物。\n"NOR);

        if((string)obj->query("race") == "野兽")
          return notify_fail(CYN" 搞什么？它又不是人！\n"NOR);

        if(obj==me)     return notify_fail(HIW" 强奸自己? 没听说过！\n"NOR);

        if((string)obj->query("gender") == "男性")
          return notify_fail(CYN" 搞同性恋可不行！\n"NOR);


        if((string)obj->query("gender") == "无性")
          return notify_fail(CYN" 他是阴阳人,乱搞什么嘛!\n"NOR);
        if( !living(obj) )
          return notify_fail("  \n");
        if( me->is_fighting() )
                return notify_fail(HIR"\n专心打架吧！！\n"NOR);

    if( userp(obj) && me->query_condition("killer"))
        return notify_fail("你已经被通辑了，不要再乱杀玩家了！\n");
    if( userp(obj) && obj->query("combat_exp") < me->query("combat_exp") && me->query_condition("killer"))
        return notify_fail("你已经被通辑了，不要再乱杀玩家了！\n");
 
        if (userp(me) && userp(obj)
         && obj->query_temp("nokill") )
        return notify_fail("那人启用了免战牌！\n");

        if (userp(me) && userp(obj)
         && me->query_temp("nokill") )
        return notify_fail("你启用了免战牌！\n");

    if( userp(me) && userp(obj) && obj->query_condition("nokill")
    && !obj->query_condition("killer"))
        return notify_fail("那个人刚被杀过，放过他吧！\n");

        if((int)obj->query("age") <= 17 && userp(obj))
                return notify_fail(CYN"她还是孩子，放过她吧！\n"NOR); 

        if( obj->query("env/no_fight") )
                return notify_fail(CYN"此人不允许下此指令！\n"NOR); 

        if(obj->query_temp("no_kill"))
                return notify_fail(CYN"此人不允许下此指令！\n"NOR); 


 else {             
                me->start_busy(2);
                obj->start_busy(2);
                message_vision(HIM"\n$N对著$n大叫一声：宝贝儿，来给大爷我解解馋！\n说着便如狼似虎地向$n冲了过去！\n\n"NOR, me, obj);
                message_vision(HIC"$n对著$N大喝一声："+RANK_D->query_rude(me)+"你休想，看招！\n"NOR, me, obj);
                me->fight_ob(obj);
                obj->fight_ob(me);
                   //设定两者为敌对关系
                obj->remove_all_enemy(); //暂时停止，好让下面程序运行
                for(n=0;n<=random(6)+1;n++)
               {
                COMBAT_D->do_attack(obj, me, obj->query_temp("weapon") );
                }
            if((int)me->query("qi") <= (int)me->query("max_qi")*3/4)
                call_out("do_leave",1,me,obj);
  else{        
                call_out("do_qiangjian", 2, me, obj); 
                call_out("do_look", 6, me, obj);
                call_out("do_look1", 8, me, obj);

       if((int)obj->query("per") > 22){                //考虑到差异，所以这里要分支
                call_out("do_qiangjian1", 14, me, obj);
                call_out("do_qiangjian2", 18, me, obj);
                call_out("do_qiangjian3", 22, me, obj);
                call_out("do_qiangjian4", 26, me, obj); //惩罚函数调用
                call_out("do_qiangjian5", 32, me, obj);
                call_out("do_qiangjian6", 38, me, obj);  //倒
                call_out("do_qiangjian7", 49, me, obj);
                call_out("do_qiangjian8", 61, me, obj);
                call_out("do_qiangjian9", 62, me, obj);

                call_out("do_wakeup",70,me,obj);
                call_out("do_kill",71,me,obj);  
  }   else{
        if((int)obj->query("per") > 17){   
                call_out("do_qiangjian2", 14, me, obj);
                call_out("do_qiangjian4", 19, me, obj); 
                call_out("do_qiangjian6", 25, me, obj);                
                call_out("do_qiangjian7", 31, me, obj);
                call_out("do_qiangjian10", 45, me, obj);
                call_out("do_qiangjian9", 47, me, obj);
                call_out("do_wakeup",57,me,obj);
                call_out("do_kill",58,me,obj);
                                
   }else{
                call_out("do_puke",11,me,obj);      
         }   
      }
      }        
      }
        return 1;   
}

void do_leave(object me,object obj)
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");
        if(objectp(present(obj,environment(me)))){
        tell_object(me,HIY"\n看来"+(string)obj->query("name")+"不好惹，你决定还是打消念头，走开为好！\n"NOR, me, obj); 
        tell_object(obj,HIY"\n看来你的武功已让"+(string)obj->query("name")+"心生怯意了.他边打边退，似乎想逃!"NOR);
        me->set("wimpy",100);
        me->start_busy(1);
        call_out("do_hit",0,me,obj);
        call_out("do_setwimpy",5,me,obj);
 }    return;
}

void do_hit(object me, object obj)
{
        if(objectp(present(obj,environment(me)))){
      message_vision(HIC"\n$n对着$N大喝一声:"+RANK_D->query_rude(me)+"，想走? 没门！尝尝本"+RANK_D->query_respect(obj)+"厉害再说！\n"NOR,me, obj);   
                COMBAT_D->do_attack(obj, me, obj->query_temp("weapon") );
                COMBAT_D->do_attack(obj, me, obj->query_temp("weapon") );
                me->fight_ob(obj);
                obj->fight_ob(me);
//                me->move(random(sizeof(keys(environment(me)->query("exits")))));
  }
        return;
}
void do_setwimpy(object me,object obj)
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");

                me->set("wimpy",20);
        return;
}
           
void do_qiangjian(object me, object obj)
{
        mapping my_family;
        string my_fam;
        my_family = me->query("family"); 
        my_fam = my_family["family_name"];
        if(objectp(present(obj, environment(me)))) {
                me->start_busy(100);
                obj->start_busy(100);
        if( !living(obj) )
        message_vision(CYN"\n$N对着昏倒在地的$n笑道:昏了正好，昏了才是睡美人嘛!\n$N缓步来到$n身前，扶起$n的躯体。\n"NOR, me, obj); 
       else{
        message_vision(HIM"\n$N挡住了$n的拼命攻击,并且抓住机会一把将$n紧紧抱住.\n\n"NOR, me, obj);
        tell_object(me,HIY"看来她被你紧紧抱住，没了力气，只有任你宰割了！\n"NOR);               

        tell_object(obj,HIY"\n你还想作拼死反抗。\n无奈被对方紧紧抱住,只觉浑身软弱无力，什么也作不了。\n\n"NOR);
               obj->set_temp("block_msg/all", 1);  
               environment(obj)->add_temp("no_fight",1);
               environment(obj)->add_temp("sleeping_person", 1);
               obj->set("hunmi",1);
           }  
	       CHANNEL_D->do_channel(this_object(), "rumor",
	       sprintf("我看见%s的%s正在干坏事!!!!!!!", my_fam, me->name(1))); 
                                                  }     //为pksex埋下伏笔
           return;
}

void do_look(object me,object obj)
{     
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");
        if(objectp(present(obj, environment(me)))) {
        message_vision("\n由于近在咫尺，$N又忍不住仔细端详了$n一下\n", me, obj);
                                                   }
           return;
}
void do_look1(object me,object obj)
{     
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");
        if(objectp(present(obj, environment(me)))) {
   tell_object(me,HIM"\n你望了望附近，看了看，没人注意你，不由的.....\n"NOR);
                                                   }
           return;
}

void do_puke(object me, object obj)
{
     if(objectp(present(obj, environment(me)))) {
        message_vision(CYN"\n$N稀里哇啦地吐了一地。\n"NOR, me,obj);
        tell_object(me,HIY"你不由得对自己说：天啦，这世上还有这么丑的女人，我还是站远些好！\n"NOR);    
        message_vision("\n$N远远地推开$n,苦笑着说："+RANK_D->query_respect(obj)+"，如此‘尊容’，在下实在无福消受\n刚才唐突，还望见谅，咋们后会无期！\n",me,obj); 
        message_vision(CYN"\n接着$N又是一阵狂吐。\n"NOR,me,obj);
        me->start_busy(1);
        obj->start_busy(1);
}
         return;
}

void do_qiangjian1(object me,object obj)  
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");
        if(objectp(present(obj, environment(me)))) {
        message_vision("接着，$N的大手不顾$n的挣扎在$n的身上来回上下游走.......\n", me, obj);   

}

        return;