yutan.c

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

// ying-kuang.c 矿脉
// 星星lywin 2000/8/27

#include <ansi.h>
inherit ITEM;  

string *kuang1=({"quest/skills2/wunon/yu/eat1","quest/skills2/wunon/yu/eat2","quest/skills2/wunon/yu/eat3"});
string *kuang2=({"quest/skills2/wunon/yu/eat1","quest/skills2/wunon/yu/eat2","quest/skills2/wunon/yu/eat3","quest/skills2/wunon/yu/eat4"});
string *kuang3=({"quest/skills2/wunon/yu/eat1","quest/skills2/wunon/yu/eat2","quest/skills2/wunon/yu/eat3","quest/skills2/wunon/yu/eat4","quest/skills2/wunon/yu/eat5"});
string *kuang4=({"quest/skills2/wunon/yu/eat1","quest/skills2/wunon/yu/eat2","quest/skills2/wunon/yu/eat3","quest/skills2/wunon/yu/eat4","quest/skills2/wunon/yu/eat5","quest/skills2/wunon/yu/eat6"});
string *kuang5=({"quest/skills2/wunon/yu/eat1","quest/skills2/wunon/yu/eat2","quest/skills2/wunon/yu/eat3","quest/skills2/wunon/yu/eat4","quest/skills2/wunon/yu/eat5","quest/skills2/wunon/yu/eat6","quest/skills2/wunon/yu/eat7"});
string *kuang6=({"quest/skills2/wunon/yu/eat1","quest/skills2/wunon/yu/eat2","quest/skills2/wunon/yu/eat3","quest/skills2/wunon/yu/eat4","quest/skills2/wunon/yu/eat5","quest/skills2/wunon/yu/eat6","quest/skills2/wunon/yu/eat7","quest/skills2/wunon/yu/eat8"});

void init()
{
	add_action("do_wakuang", "buyu");
}


void create() 
{
        set_name("渔溏",({"yu tan", "tan"}));
        set_weight(500000000);
        if ( clonep() )
                set_default_object(__FILE__);
        else {
                set("unit", "块");
		set("no_drop","不要乱丢，这东西打到人痛！\n");
		set("no_put",1);
		set("no_get:",1);
                set("long", "这是一块很好的渔溏，你可以用（buyu）来试试你的运气如何。\n");
             }
        setup();
}

int do_wakuang()
{
        object me=this_player();

        if( me->is_busy() ) return notify_fail("你现在很忙！不能捕鱼！\n");
        if ((me->query("combat_exp") < 100000))
        {  
          tell_object(me,"你的经验不足！\n");
          return 1;
        }

        if ((me->query("jing") < 30))
        {  
          tell_object(me,"你的精力不能集中，不可以捕鱼！\n");
          return 1;
        }
        else
        if ((me->query("qi") < 50 ))
        {
          tell_object(me,"你的身体状态太差，不能捕鱼！\n");
          return 1;
        }
        else
        if ((int)me->query_condition("skill2_busy"))  
            {
         tell_object(me,"你刚刚才干过活,要休息一会了！\n");
                      return 1;
            }

        message_vision(HIC"$N拿起鱼网开始在渔溏里捕起鱼起来。\n"NOR,me);
        me->add("jing",-40);
        me->add("qi",-50);
        me->add("combat_exp",30+random(20));
        me->add("potential",20+random(5));
        me->apply_condition("skill2_busy",1+random(3));
        me->start_busy(6);   
       	call_out("wakuang",5,me);
       	me->stop_busy();
       	return 1;
}

int wakuang(object me)
{
      object ob;
      object ob1;        

      if (random(7)<2)
      {
          message_vision(CYN"一阵劳动之后，$N什么也没捕到。\n"NOR,me);
//          this_player()->add("work/buyu",1);
          return 1;
      }
      else
      if ((int)me->query("work/buyu") > 600 )
        {
           message_vision(HIR"$N熟练的在渔溏捕了一会，不一会儿就有了好的收成。\n"NOR,me); 
           me->add("work/buyu",1);
           ob=new(kuang6[random(8)]);
           ob->move(me);
           destruct(this_object());
           return 1;
       }
       else
      if ((int)me->query("work/buyu") > 500 )
        {
           message_vision(HIY"$N熟练的在渔溏里干了一会，不一会儿就有了好的收成。\n"NOR,me); 
           me->add("work/buyu",1);
           ob=new(kuang5[random(7)]);
           ob->move(me);
           destruct(this_object());
           return 1;
       }
       else
      if ((int)me->query("work/buyu") > 400 )
        {
           message_vision(HIY"$N熟练的在渔溏里干了一会，不一会儿就有了收成。\n"NOR,me); 
           me->add("work/buyu",1);
           ob=new(kuang4[random(6)]);
           ob->move(me);
           destruct(this_object());
           return 1;
       }       
       else
      if ((int)me->query("work/buyu") > 300 )
        {
           message_vision(HIY"$N在渔溏里干了一会，有了收成。。\n"NOR,me); 
           me->add("work/buyu",1);
           ob=new(kuang3[random(5)]);
           ob->move(me);
           destruct(this_object());
           return 1;
       }
       else
      if ((int)me->query("work/buyu") > 200 )
        {
           message_vision(HIY"$N在渔溏里干了一会，好长时间才有了收成。\n"NOR,me); 
           me->add("work/buyu",1);
           ob=new(kuang2[random(4)]);
           ob->move(me);
           destruct(this_object());
           return 1;
       }
       else
      if ((int)me->query("work/buyu") > 100 )
        {
           message_vision(HIY"$N在渔溏中搞来搞去，好不容易有了收成。\n"NOR,me); 
           me->add("work/buyu",1);
           ob=new(kuang1[random(3)]);
           ob->move(me);
           destruct(this_object());
           return 1;
       }
      else
      { 
        message_vision(HIG"$N捕了半天，终于有了一点收成。\n"NOR,me); 
        me->add("work/buyu",1);
        ob1 = new( __DIR__ "eat1");
        ob1->move(me);
        destruct(this_object());
      }
      return 1;
}