qiangjian.c

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

}
void do_qiangjian2(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_qiangjian3(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", me, obj);
        message_vision("件肚兜遮羞，光滑柔嫩的肩背展现在$N的眼前！真是风景无限！\n", me, obj);
        if((int)obj->query("per") >= 30){
        message_vision("\n只见$n浑身肌肤雪白，晶莹剔透,婉如玉人。\n",me,obj);}
 }
     return;
}

void do_qiangjian4(object me,object obj)       //为了增加随机性,以年龄和容貌为指标
                                               //建立此函数,由于编者是站在正义这方的
                                               //所以此函数是用来惩罚命令使用者的
{      
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");
         if(objectp(present(obj, environment(me)))) {

         if((int)obj->query("age") <= 18 ) {
        
         message_vision(HIM"\n这时$N瞥见了$n手臂上的'守宫砂',原来$n还是处女呢!\n"NOR, me, obj);
         if((int)obj->query("per") >= 30 )
         tell_object(me,HIY"\n这下可把你乐坏了，如此羞花闭月的处女还真是少见。\n"NOR);
         if((int)obj->query("combat_exp") <= 5000) {
           me->add("combat_exp", -(int)obj->query("combat_exp")/30);        
         }else{
           me->add("combat_exp", -(int)obj->query("combat_exp")/50);
              }
           me->add("shen",-random(1000));   
                                                       
                                          }
                                          
else{
        if((int)obj->query("age") <= 30 ) {

         message_vision(HIM"\n虽说已不再是处女,但身为少妇的$n那丰满的身体曲线也让$N垂涎三尺!\n"NOR, me, obj);
           me->add("shen",-random(5000));   
         if((int)obj->query("combat_exp") <= 5000) {
           me->add("combat_exp", -(int)obj->query("combat_exp")/30);
//           me->add("potential", -random((int)me->query("potential")/4));       
         }else{
           me->add("combat_exp", -(int)obj->query("combat_exp")/50);
              }

         }else{ 
           if((int)obj->query("age") >= 55 ) {
         message_vision(HIM"\n看来$N已经饥渴到饥不择食的地步了,连$n这样的老太太也不放过!\n"NOR, me, obj);
         message_vision(HIW"\n小心招天谴!!!\n"NOR, me, obj);
           me->add("shen",-random(5000)-5000);   
         if((int)obj->query("combat_exp") <= 5000) {
           me->set("combat_exp",random((int)me->query("combat_exp")/4));    //惩罚乱用此命令者
         }else{
           me->add("combat_exp", -random((int)me->query("combat_exp")/15));
              }
         }else{
         message_vision(HIM"\n$n虽已是徐娘半老,但尤存之风韵仍让$N大感刺激!\n"NOR, me, obj); 
           me->add("shen",-random(5000));   
         if((int)obj->query("combat_exp") <= 5000) {
           me->add("combat_exp", -random((int)me->query("combat_exp")/10));
         }else{
           me->add("combat_exp", -random((int)me->query("combat_exp")/20));
                                                 
              }
              }
              }
     }
                                                   }
        return;
}
void do_qiangjian5(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);
        message_vision("舒服得$N只想喊娘！\n", me, obj);
}

        return;
}
void do_qiangjian6(object me,object obj)  
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");

        if(objectp(present(obj, environment(me)))) {
        message_vision(HIM"\n接着$N一把将$n按倒在地上。。。。。\n"NOR, me, obj);

}

        return;
}
void do_qiangjian7(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"NOR, me, obj);
        message_vision("。。。四周充斥着$N那野兽般的吼叫声和$n撕心裂肺的哭声。。。\n", me, obj);
}

        return;
}
void do_qiangjian8(object me,object obj)  
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");

        if(objectp(present(obj, environment(me)))) {
        message_vision(HIM"\n良久，风停雨歇。。。。\n"NOR, me, obj);
        message_vision("$N挣扎着爬了起来，对着昏睡在地的$n满足地淫笑了一下。\n", me, obj);

}
        return;
}
void do_qiangjian9(object me,object obj)  
{	
        mapping my_family;
        string my_fam;
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");
        my_family = me->query("family"); 
        my_fam = my_family["family_name"];	


        if(objectp(present(obj, environment(me)))) {
        message_vision(HIR"\n这时只见$N摇摇晃晃，立足不稳。\n"NOR, me,obj);
        tell_object(me,HIR"\n原来你发现自己全身乏力，看来是虚耗过度了！\n\n"NOR);
        me->set("qi",(int)obj->query("eff_qi")/2);

					CHANNEL_D->do_channel(this_object(), "rumor",
					sprintf("%s被%s的%s强奸了。",obj->name(1), my_fam,me->name(1)));
					CHANNEL_D->do_channel(this_object(), "rumor",
					sprintf("%s被官府通缉了。", me->name(1)));

        me->start_busy(1);
        me->apply_condition("killer", 180 +
			me->query_condition("killer"));
        me->apply_condition("sexman", 180 +
			me->query_condition("sexman"));
        me->add("PKS", 1);
}
        return;
}

void do_qiangjian10(object me,object obj)  
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");
        if(objectp(present(obj, environment(me)))) {
        message_vision(HIM"\n良久，风停雨歇。。。。\n"NOR, me, obj);
        message_vision("$N爬了起来，对着昏睡在地的$n失望地叹了一下气：真他妈的倒霉,让老子遇到这种'水货'。\n", me, obj);
}
        return;
}
void do_wakeup(object me,object obj)
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");

               obj->set("hunmi",0);            
               obj->set_temp("block_msg/all", 0);
	   if (!environment(obj)->query("sleep_room") && !environment(obj)->query("hotel"))
	       environment(obj)->set("no_fight",0);
     	       environment(obj)->add_temp("sleeping_person", -1);
               obj->set("qi",(int)obj->query("max_qi"));
               obj->set("jing",(int)obj->query("max_jing"));
               tell_object(obj,HIC"\n看来你的力气恢复得差不多了！\n"NOR);
               message_vision(HIY"\n$N慢慢地爬了起来！\n"NOR,obj);
               obj->start_busy(1);

        return;
}
void do_kill(object me,object obj)    
{
         if (!me)  return notify_fail("你已经断线了！\n");
         if (!obj)  return notify_fail("那个人已经不在了！\n");

                if(objectp(present(obj, environment(me)))) {
         if((int)obj->query("age") <= 18)
     {
      message_vision(HIC"\n$n满面泪痕地对着$N大喝一声:"+RANK_D->query_rude(me)+"休逃，你毁我贞操，我和你拼了！\n\n"NOR,me, obj);
                me->fight_ob(obj);
                obj->fight_ob(me);
     }else{  
         if((int)obj->query("age") <= 30)
     {
      message_vision(HIC"\n$n满面泪痕地对着$N大喝一声:"+RANK_D->query_rude(me)+"休逃，你污我身体，让我怎生作人,\n索性和你拼了！\n\n"NOR,me, obj);
                me->fight_ob(obj);
                obj->fight_ob(me);
     }else{         
         if((int)obj->query("age") <= 55){
           message_vision(HIW"\n$n对着$N大喝一声:"+RANK_D->query_rude(me)+"休逃，你辱我清白，我和你拼了！\n\n"NOR,me, obj);
                me->fight_ob(obj);
                obj->fight_ob(me);
     }else{
           message_vision(HIW"\n$n对着$N大喝一声:"+RANK_D->query_rude(me)+"休逃，你让我晚节不保，我这条老命还留着作甚，\n索性和你拼了\n\n"NOR,me, obj);
                me->fight_ob(obj);
                obj->fight_ob(me);
     }
     }
     }
                                                         }
        return;
}

int help(object me)
{
  write(@HELP
指令格式 : qiangjian <人物>
   
   江湖中无风不起浪,武侠的世界里总是少不了采花贼的，
象金庸先生笔下的田伯光等,这个命令正是留给他们的.
但当采花贼不仅对修为不利,而且还要面对满街的讨打声，
没有一点真本事,可有点受不了。
   有道是'多行不义必自毙'，用之者慎之！慎之！
当然正人君子莫为之！
HELP
    );
    return 1;
}