bingqipu.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 180 行

// bingqipu.c
// by QingP

#include <ansi.h>

inherit ITEM;

void create()
{
        string file = "/d/city/obj/bingqipu.o";

        set_name(HIR "江湖兵器谱" NOR, ({ "bingqi pu" }) );
        
        set("unit", "本");
        set("long", HIW"这是一本流传久远的江湖兵器谱，里面记下了江湖上的成名兵器。

可以用(reading bingqi pu)来翻看记载，
可以用(checking bingqi pu)来评定自己兵器的排名。
\n"NOR);
        set("material","paper");

        set("no_get",1);
        set("no_steal",1);
        set("no_put",1);
        set("no_drop",1);

        if( file_size(file) > 0 )
                restore_object("/d/city/obj/bingqipu");
        
        setup();
}

void init()
{
        add_action("do_read",({"reading"}));
        add_action("do_check",({"checking"}));
}

int do_read(string arg)
{
        object obj = this_object();

        if ( !arg || arg != "bingqi pu" )
                return notify_fail("什麽？\n");

        write(HIR"                      江湖兵器谱(Bingqi pu)                   \n"
           +HIG"====================================================================\n"
           +HIR"  第一名  " + obj->query("data/1/w_name") + NOR"\n         使用者：" + obj->query("data/1/player") + obj->query("data/1/id") + "\n"
           +HIG"  第二名  " + obj->query("data/2/w_name") + NOR"\n         使用者：" + obj->query("data/2/player") + obj->query("data/2/id") + "\n"
           +HIY"  第三名  " + obj->query("data/3/w_name") + NOR"\n         使用者：" + obj->query("data/3/player") + obj->query("data/3/id") + "\n"
           +HIW"  第四名  " + obj->query("data/4/w_name") + NOR"\n         使用者：" + obj->query("data/4/player") + obj->query("data/4/id") + "\n"
           +HIM"  第五名  " + obj->query("data/5/w_name") + NOR"\n         使用者：" + obj->query("data/5/player") + obj->query("data/5/id") + "\n"
           +HIC"  第六名  " + obj->query("data/6/w_name") + NOR"\n         使用者：" + obj->query("data/6/player") + obj->query("data/6/id") + "\n"
           +HIC"  第七名  " + obj->query("data/7/w_name") + NOR"\n         使用者：" + obj->query("data/7/player") + obj->query("data/7/id") + "\n"
           +HIC"  第八名  " + obj->query("data/8/w_name") + NOR"\n         使用者：" + obj->query("data/8/player") + obj->query("data/8/id") + "\n"
           +HIC"  第九名  " + obj->query("data/9/w_name") + NOR"\n         使用者：" + obj->query("data/9/player") + obj->query("data/9/id") + "\n"
           +HIC"  第十名  " + obj->query("data/10/w_name") + NOR"\n         使用者：" + obj->query("data/10/player") + obj->query("data/10/id") + "\n"
           +HIG"====================================================================\n\n"NOR);

        return 1;
}

int do_check(string arg)
{
        int level, i, j;
        object me, obj;
        mapping pmap, temp;
        string basic_skill, advance_skill, playerd;

        me = this_player();
        obj = this_object();

        if ( !arg || arg != "bingqi pu" )
                return notify_fail("什麽？\n");

        if ( wizardp(me) )
                return notify_fail("你是巫师，这个...就免了吧！\n");

        if ( me->query("weapon") ) {
                switch((string)me->query("weapon/type"))
                {
                        case "剑":
                        basic_skill = "sword";
                        break;
                        case "刀":
                        basic_skill = "blade";
                        break;
                        case "鞭":
                        basic_skill = "whip";
                        break;
                        case "杖":
                        basic_skill = "staff";
                        break;
                        case "棍":
                        basic_skill = "club";
                        break;
                        default:
                }
        }
        else {
                pmap = me->query_skill_prepare();

                if ( sizeof(pmap) == 0) basic_skill = "unarmed";
                else if ( sizeof(pmap) == 1) basic_skill = (keys(pmap))[0];
                else if ( sizeof(pmap) == 2) {
                        if ( (keys(pmap))[0] >= (keys(pmap))[1] )
                                basic_skill = (keys(pmap))[0];
                        else basic_skill = (keys(pmap))[1];
                }
        }
        
        if ( advance_skill = me->query_skill_mapped(basic_skill) )
                level = me->query_skill(basic_skill)/2 + me->query_skill(advance_skill);
        else level = me->query_skill(basic_skill)/2;
        
        i = 10;
        while( obj->query("data/"+(string)i+"/id") != "(" + me->query("id") + ")" && i > 0 ) {
                i--;
        }

        if ( i>0 ) {
                for (j=i; j<=10; j++) {
                        obj->set("data/"+(string)j, obj->query("data/"+(string)(j+1)));
                }
        }

        if ( level > obj->query("data/10/level") ) {
                if ( !me->query("weapon/name") ) {
                        if ( basic_skill == "unarmed" || basic_skill == "cuff" )
                                obj->set("data/10/w_name", "拳头");
                        else if ( basic_skill == "claw" )
                                obj->set("data/10/w_name", "利爪");
                        else if ( basic_skill == "strike" )
                                obj->set("data/10/w_name", "铁掌");
                        else if ( basic_skill == "finger" )
                                obj->set("data/10/w_name", "手指");
                }
                else
                        obj->set("data/10/w_name", me->query("weapon/name"));

                obj->set("data/10/level", level);
                obj->set("data/10/id", "(" + me->query("id") + ")");
                
                playerd = RANK_D->query_rank(me) + " " + me->query("title");
                if ( me->query("nickname") )
                        playerd += "「" + me->query("nickname") + "」";
                playerd += " " + me->name();

                obj->set("data/10/player", playerd);

                for ( i=1; i<10; i++ ) {
                        for ( j=i+1; j<=10; j++ ) {
                                if ( obj->query("data/"+(string)i+"/level") < obj->query("data/"+(string)j+"/level") ) {
                                        temp = obj->query("data/"+(string)i);
                                        obj->set("data/"+(string)i, obj->query("data/"+(string)j));
                                        obj->set("data/"+(string)j, temp);
                                }
                        }
                }

                i = 1;
                while( obj->query("data/"+(string)i+"/id") != "(" + me->query("id") + ")" ) {
                        i++;
                }
                message("vision", HIG"一道祥光忽然罩住" + me->name() + "，光环在" + me->name() + "身上停留片刻后消失了。\n
随着，空中回荡起一个声音对" + me->name() + "说到："NOR + HIY"恭喜，你的兵器现在江湖排名第"+chinese_number(i)+"！\n"NOR, environment(me), me);

                tell_object(me, HIG"一道祥光忽然罩住你，光环在你身上停留片刻后消失了。\n
随着，耳边响起一个声音说到："NOR + HIY"恭喜，你的兵器现在江湖排名第"+chinese_number(i)+"！\n"NOR);
        }
        else {
                return notify_fail(HIW"凭你现在的实力还不能够进入兵器谱。\n"NOR);
        }
        
        save_object("/d/city/obj/bingqipu");

        return 1;
}