miaoyuan.c

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

#include <ansi.h>
inherit ROOM;

void create()
{
	set("short", "苗园");
	set("long", @LONG
这里是苗铺主人用来养花的花棚，一个大大的温室，将各种样的奇花
异草呵护在其中，当然花丛中更多的是牡丹，只见那牡丹红的，白的，黑
的，紫的，黄的，各色各样，争奇斗艳，娇艳欲滴，不愧和白马寺一起成
为了洛阳的象征。你也可以在这里种花。
LONG);
        set("outdoors", "luoyang");
        set("no_fight",1);
        set("no_clean_up", 0);
        set("exits", ([
		"west" : __DIR__"miaopu",
	]));

	setup();
}

void init()
{
        add_action("do_jiaoshui", "jiaoshui");
        add_action("do_peiyu", "peiyu");
}

int do_peiyu()
{
        object ob, me;
        me = this_player();

        if (! me->query_temp("zhonghua"))
        {
                tell_object(me, "你种子都没有，还想种花？\n"); 
                return 1;
        }

        if (me->query_temp("jiaoshui") == 1)
        {
                tell_object(me, "你已经完成了培育这道程序，现在可以浇水"
                                HIY "(jiaoshui)" NOR "。\n");
                return 1;
        }

        if (me->query("combat_exp") < 8000)
        {
                tell_object(me, "你的经验尚浅，还是先到处多走动走动吧。\n");
                return 1;
        }

        if (me->query("combat_exp") > 30000)
        {
                tell_object(me, "以你的身份大概不适合种花了吧。\n");
                return 1;
        }

        if (me->query("jing") < 70)
        {
                tell_object(me, "你已经很疲惫了，休息一下再接着种吧。\n");
                return 1;
        }

        message_vision(HIC "$N" HIC "把土坑周围好好地修整了一下，使土壤更加"
                       "适合花的生长。\n" NOR, me); 
        me->set_temp("peiyu", 1);
        me->set_temp("jiaoshui", 1);
        me->start_busy(1 + random(3));
        return 1;
}

int do_jiaoshui()
{
        object me, ob;
        int exp, pot;

        me = this_player();

        if (me->query("jing") < 70)
        {
                tell_object(me, "你已经很疲惫了，休息一下再接着种吧。\n");
                return 1;
        }
        if (me->is_busy())
        {
                tell_object(me, "你正忙着呢，别着急。\n");
                return 1;
        }
        if (! me->query_temp("peiyu") == 1)
        {
                tell_object(me, "你没事干浇什么水啊！\n");
                return 1;
        }
        if (me->query_temp("peiyu") == 2)
        {
                if (random(14) < 4)
                {
                        switch (random(8))
                        {
                                case 1 : ob = new(__DIR__"npc/obj/hmeigui"); break;
                                case 2 : ob = new(__DIR__"npc/obj/zi-luolan"); break;
                                case 3 : ob = new(__DIR__"npc/obj/bai-chahua"); break;
                                case 4 : ob = new(__DIR__"npc/obj/huang-meigui"); break;
                                case 5 : ob = new(__DIR__"npc/obj/baihua"); break;
                                case 6 : ob = new(__DIR__"npc/obj/hua"); break;
                                case 6 : ob = new(__DIR__"npc/obj/hua3"); break;
                                case 0 : ob = new(__DIR__"npc/obj/lan-tiane"); break;
                        }

                        if (random(15) == 1)
                        {
                                if (random(10000) == 8)
                                {
                                        ob = new(__DIR__"npc/obj/hua4");
                                        message_vision(HIY "$N" HIY "种出了一朵翡翠兰。\n"
                                                       NOR, me);
                                        ob->move(me, 1);
                                        me->delete_temp("jiaoshui");
                                        me->delete_temp("zhonghua");
                                        me->delete_temp("peiyu");
                                        me->add("combat_exp", 500);
                                        me->improve_potential(100 + random(100));
                                        return 1;
                                }
                                ob = new(__DIR__"npc/obj/hua2");
                                me->add("combat_exp", 20 + random(10));
                                me->improve_potential(20 + random(10));
                                message_vision(HIY "$N" HIY "种出了一朵无名花。\n" NOR,me);
                                return 1;
                        }
                        message_vision(HIC "$N" HIC "十分小心的给小坑里浇了一些"
                                       "水，突然一朵" + ob->query("name") + HIC
                                       "从坑里冒了出来。\n" NOR, me);   
                        message_vision(HIY "$N" HIY "把它摘了下来，拿在手里。\n" NOR, me);
                        ob->move(me, 1);
                        me->delete_temp("jiaoshui");
                        me->delete_temp("peiyu");
                        me->delete_temp("zhonghua");

                        exp = 10 + random(10);
                        pot = 2 + random(3);

		        if (me->query("potential") > me->query_potential_limit()) 
				pot = 1;

                        me->add("combat_exp", exp);
                        me->improve_potential(pot);

                        tell_object(me, HIC "通过这次训练，你获得了" + chinese_number(exp)
                                        + "点经验和" + chinese_number(pot) + "点潜能。\n"
                                        NOR);
                        return 1; 
                }
                message_vision(HIR "$N" HIR "笨手笨脚的拿起水壶给小坑里浇水，结"
                               "果水洒的太多把花给毁了。\n", me); 
                me->delete_temp("jiaoshui"); 
                me->delete_temp("zhonghua"); 
                me->delete_temp("peiyu"); 
                me->add("jing", -50);
                me->add("combat_exp", 3);
                me->improve_potential(2); 
                return 1; 
        }
        if (me->query_temp("jiaoshui") == 1)
        {
                message_vision(HIC "$N" HIC "拿起水壶给小坑浇了一些水。\n" NOR, me); 
                me->add("jing", -70); 
                me->set_temp("peiyu", 2); 
                me->start_busy(1 + random(2)); 
                return 1;
        }
}