xiaoer.c

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

//侠客行100海洋版II
// xiaoer.c 平安城店小二
//星星lywin 2000/6/1 儿童节

#include <ansi.h>
#include <command.h>
inherit NPC;

void consider();
int do_gongzuo();
int ask_done();
void create()
{
        set_name("店小二", ({"xiao er", "xiao"}));
        set("gender", "男性");
        set("age", 25);
        set("long", 
                "他是平安客栈的店小二。\n");
        set("qi", 100);
        set("max_qi", 100);
        set("jing", 100);
        set("max_jing", 100);
        set("per", 25);
        
        set("combat_exp", 1500);
        set("score", 200);
        
        set("inquiry", ([
                "工作" : (: do_gongzuo :),
                "job"  : (: do_gongzuo :),
                "work" : (: do_gongzuo :),
        ]) );

        setup();
        carry_object("clone/cloth/cloth")->wear();
}
int do_gongzuo()
{      
        object me;
        me = this_player(); 
        
    if (me->query("combat_exp")>=5000)
    {
                tell_object(me,"这点小事怎么敢劳您的大驾。\n");
                return 1;
    }  
    if( me->query_temp("gongzuo/xipanzi")>0)
    {
                tell_object(me,"快去洗盘子吧。\n");
                return 1;
    }  
    message_vision(CYN"小二对$N说道：这几天客人多！盘子洗不过来，你去厅堂找管事要点盘子来洗吧。\n"NOR,me); 
        me->set_temp("gongzuo/xipanzi", 1);
        return 1;   
}
int accept_object(object me, object ob)
{
        object ob1;
        if (me->query_temp("gongzuo/xipanzi")<1)
        {
         command("say 你没有找我要过工作吧。\n");
        }
        else if ( ob->query("name") != "盘子" )
//        else if (strsrch(ob->query("name"), "盘子") < 0) 
        {
            command("say 这是洗好的盘子？你不是开玩笑吧！\n");
        }
        else
        {
    message_vision(CYN"小二对$N说道：辛苦了，这是你的工钱。\n"NOR,me);
    message_vision(CYN"小二递给$N一些银子。\n"NOR,me);  
                me->delete_temp("gongzuo/xipanzi");
                me->delete_temp("gongzuo/gepanzi");
                if (me->query("combat_exp")>=5000)
                {
                  me->add("combat_exp",2);
                  me->add("potential",1);
                  ob1=new("/clone/money/silver");
                  ob1->move(me); 
                  call_out("destroying", 1, this_object(), ob);
                }
                else if (me->query("combat_exp")< 5000)
                {
                me->add("combat_exp",30+random(10));
                me->add("potential",10+random(10));
                ob1=new("/clone/money/silver");
                ob1->move(me); 
                call_out("destroying", 1, this_object(), ob);
                }
            return 1;
        }
    return 0;
}

void destroying(object me, object obj)
{
//        destruct(obj);
        return;
}