cron.c

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

                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book15");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book16");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book17");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book18");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book19");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book20");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book21");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book22");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book23");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book24");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book25");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book26");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book27");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book28");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book29");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book30");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book31");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book32");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book33");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book34");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book35");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book36");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book37");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book38");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book39");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book40");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book41");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/quest/shenshu/book42");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
           ob_list = children("/clone/misc/findbook");
                for(i=0; i<sizeof(ob_list); i++) 
                if(environment(ob_list[i]))
                {
                        ob_list[i]->move(VOID_OB);destruct(ob_list[i]);
               }
//结束
            TASK_D->init_dynamic_quest(1);
            message("system",HIG "。。。所有使命分布完毕\n" NOR,users());
        }
}

void check_dns()
{
        mapping mud_list;
        mixed *muds;
        object dns;

        if(!dns = find_object(DNS_MASTER))
        // dns not started, not our problem
        return;
        mud_list = (mapping) DNS_MASTER->query_muds();
        muds=keys(mud_list);
        if(sizeof(muds)<= 1)
        { destruct(dns);
        call_other(DNS_MASTER,"???");
        }
        return;
}

void check_whonature()
{
        mixed *info;
        int i;
        object ob;
        int who=0, nature=0;
        info = call_out_info();
        for(i=0; i<sizeof(info); i++)
        {
        if( "/"+sprintf("%O",info[i][0]) == WHO_D ) who =1;
        if( "/"+sprintf("%O",info[i][0]) == NATURE_D ) nature=1;
        }
        if(!who)
        {
                if(ob=find_object(WHO_D)) destruct(ob);
                call_other(WHO_D,"???"); 
        }
        if(!nature)
        {
                if(ob=find_object(NATURE_D)) destruct(ob);
                call_other(NATURE_D,"???");
        }
        return;
}

void check_pets()
{
int i;
object ob,*ob_list;
ob_list=children("/clone/npc/pet");
for(i=0; i<sizeof(ob_list); i++) {
if( !ob = environment(ob_list[i]) ) continue;
ob->heal_up();
                }

return;
}

void autosave()
{
 object *ob;
object *n;
 object *user ;
 int i,z;
 n = filter_array( livings(),
(: $1->is_character() && !userp($1) && !query_heart_beat($1) && clonep($1):) );
         user = users();
        message("system", HIR "\n 全部玩家自动存档．．．", users());
        for(i=0; i<sizeof(user); i++) 
        user[i]->save();
	message("system", HIG "．．．存档完毕 \n" NOR, users()); 
}