zong.c

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

#include <ansi.h>
inherit ITEM;
void create()
{
    set_name("萧秋水传奇"NOR, ({ "book" }) );
            set("no_put", 1);
            set("value", 0);
    set_weight(1);
    if( clonep() )
            set_default_object(__FILE__);
    else {
	        
            set("unit", "本");
            set("material", "paper");
            set("long", "一本由神书合并成的卷册，你可以用(chayue)来查阅它。\n");
          }

    setup();
}
void init()
{
   add_action("do_cha","chayue");
}
int do_cha()
{
	object me,ob;
	int exp,pot,score,i;
	me =this_player();
	exp = 3000+random(1500);
	             pot = exp/4;
             score = random(300)+100;
             me->add("combat_exp",exp);
             me->add("potential",pot);
             me->add("score",score);
		i=random(6);
	     message_vision("$N仔细地查阅了一遍"+this_object()->query("name")+"。\n"NOR, me);
tell_object(me,HIW"你被奖励了：\n" +
             chinese_number(exp) + "点实战经验\n"+
             chinese_number(pot) + "点潜能\n" +
            chinese_number(score)+"点江湖阅历\n"NOR);
	if (i>4) {
        if ( me->query("per")< 26)
        {
	me->add("per",1);tell_object(me,HIM"以及一点容貌。\n"NOR);
        }
	}
	else if (i>3) {
        if ( me->query("dex")< 26)
        {
	me->add("dex",1);tell_object(me,HIM"以及一点身法。\n"NOR);
	}
	}
	else if(i>2)	{
        if ( me->query("str")< 26)
	{
	me->add("str",1);tell_object(me,HIC"以及一点臂力。\n"NOR);
	}
	}
	else if(i>1)	{
        if ( me->query("int")< 26)
	{
	me->add("int",1);tell_object(me,HIR"以及一点悟性。\n"NOR);
	}
	}
	else if(i>0)	{
        if ( me->query("con")< 26)
	{
	me->add("con",1);tell_object(me,HIM"以及一点根骨。\n"NOR);
	}
	}
	else {
        if ( me->query("kar")< 26)
	{
	me->add("kar",1);tell_object(me,HIM"以及一点福缘。\n"NOR);
	}
	}
        ob=new("/clone/box/book/book"+(random(12)+1));
        ob->move(me);
message("channel:chat", HIC"【江湖传闻】"GRN + me->query("name")+"得到"+HIR"失落的武林密籍:" + ob->query("name")+HIG"啦！\n"NOR,users() );
	destruct(this_object());
return 1;
}