ES2 MUD LIB :: 東方故事二(ES2) 天朝帝國 mudlib 瀏覽展示

/*  _mudlist.c

    Copyright (C) 1994-2000 Annihilator 

    This program is a part of ES2 mudlib. Permission is granted to use,
    modify, copy or distribute this program provided this copyright notice
    remains intact and subject to the restriction that this program MAY
    NOT be used in any way for monetary gain.

    Details of terms and conditions is available in the Copyright.ES2 file.
    If you don't receive this file along with this program, write to the
    primary author of ES2 mudlib: Annihilator 
*/

#include 
#include 

inherit F_CLEAN_UP;

private void create() { seteuid(getuid()); }

void
receive_answer(mapping info)
{
    string name, chunk;

    SECURED_INTERMUD_EVENT;

    foreach(name, chunk in info)
    {
string *prop_list;
mapping mudinfo;

if( strsrch(chunk, "NAME")==-1 ) continue;

mudinfo = ([ ]);
prop_list = explode(chunk, "|") - ({ "" });

foreach(string prop in prop_list) {
    string p, v;
    if( sscanf(prop, "%s:%s", p, v)==2 ) mudinfo[p] = v;
}

// 檢查所有必須的欄位是否都有定義 ...
if( undefinedp(mudinfo["NAME"]) // MUD 的名稱
||  undefinedp(mudinfo["PORT"]) // MUD 的連接埠
||  undefinedp(mudinfo["PORTUDP"]) // MUD 的 intermud 連接埠
)   continue;

// HOSTADDRESS 這個欄位一定會存在( 由 INTERMUD_D 設定 )
INTERMUD_D->set_mudinfo(
    mudinfo["HOSTADDRESS"] + ":" + mudinfo["PORTUDP"], mudinfo);
    }
}

void
receive_request(mapping info)
{
    SECURED_INTERMUD_EVENT;
}

void
send_request(string dest, int port)
{
    SECURED_INTERMUD_API;
    INTERMUD_D->send_event(dest, port, "mudlist_q", ([
"HOSTADDRESS": INTERMUD_D->query_address(),
"PORTUDP": "" + INTERMUD_D->query_udp_port(),
    ]));
}