lsusers.c

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

//inherit <ansi.h>
inherit F_CLEAN_UP;
int help(object me);

int main(object me, string arg)
{
        int i, j, num;
        string *dir, *ppls, name,str,str2="\n";
        object ob,obj;

        seteuid(getuid());
//        message("system", "\n 整理玩家储存档中，请稍候....\n" NOR, users());
//        write("处理中：\n");
        dir = get_dir(DATA_DIR + "login/");
        str="\n";
        ob=new("/clone/misc/player");
        num = 0;
        for(i=0; i<sizeof(dir); i++) {
                reset_eval_cost();
                ppls = get_dir(DATA_DIR + "login/" + dir[i] + "/");
                for(j=0; j<sizeof(ppls); j++) {
                        if( sscanf(ppls[j], "%s.o", name)==1 ){
                                if( (string)SECURITY_D->get_status(name)!="(player)" ){
                                    write("排除巫师"+name+"\n");
                                        continue;
                                }
                                if (!ob->new_object(name))  continue;
                                  obj=present("thousand-gold",ob);
        str+=sprintf("%-8s(%-8s),上线%-4d天\n",ob->name(),name,ob->query("mud_age")/86400);                                
                        num++;
        str2 = sprintf("\n目前本游戏共有%d名玩家\n",num);
                        }
                }
        }
        destruct(ob);
        message("system", "\n 整理完毕!\n", users());
        me->start_more(str+str2);
        return 1;
}
int help(object me)
{
write(@HELP
指令格式：listusers

HELP
        );
    return 1;
}