Difference between revisions of "LlGetParcelPrimOwners/ja"

// Script by Falados Kapuskas
 
// オブジェクトの区画内プリムのオーナー参照権限はそのオブジェクトのオーナーがもつ権限と同じになります。
// (土地情報 >> オブジェクト >> オブジェクトのオーナー )
 
// 例: グループオブジェクトを返却できない場合は、グループオブジェクトを参照することができません。
// オブジェクトを何も返却できない場合は、空のリストが返ります。
// プリムが適切なグループに移譲されていると、常に全ての一覧が表示されるはずです。
 
// 注意: オーナーが同じ SIM にいるときだけうまくいきます。
//       オブジェクトが移譲されていると、常にうまくいきます (グループは常にオンラインだから？)
 
// -- 設定 (ここを編集してね！) -- //
 
integer REFRESH_TIMER = 600;            // 更新間隔 (秒単位)
vector  PARCEL_POS    = <128,128,0>;    // 区画内にある位置をリージョン座標で指定
integer PAGE_SIZE     = 8;              // プリムで 1 ページに表示するオーナーの数
integer DATA_TIMEOUT  = 10;             // dataserver イベントのタイムアウト秒数
 
// -- 設定ここまで -- //
 
list gQueryKeys;
list gQueryIndex;
list gNames;
list gPrims;
 
key gDataserver_Name;
 
integer gPageNumber;
integer gPageMax;
 
//プリムのオーナーの内部リストを更新します。
//プリムのオーナーがリストにあったら TRUE を返します。
//プリムのオーナーのリストが空であったら FALSE を返します。
integer UpdateOwnerList()
{
    list owner_prim = llGetParcelPrimOwners(PARCEL_POS);
    //リストが空の場合は、区画内にプリムがないか、リストの取得に失敗しています。
    //後者のほうが可能性としては高いでしょう。
    if( owner_prim == [] ) 
    {
        llSetText("[ERROR]\n Couldn't get Parcel Prim Owners",<1,0,0>,1.0);
        return FALSE;
    }
    integer i;
    integer n = llGetListLength(owner_prim) / 2;
 
    //リストをリセットします。
    gPrims = [];
    gNames = [];
    gQueryKeys = [];
    gQueryIndex = [];
 
 
    for( i = 0; i < n; ++i)
    {
        key owner = llList2Key(owner_prim,i*2);
        string name = llKey2Name(owner);
        if( name == "" ) { //SIM にいません
 
            //問い合わせリストを追加します。
            gNames += ["[Unknown]"];
            gQueryIndex += [llGetListLength(gNames) - 1];
            gQueryKeys += [owner];
        } else {
            gNames += [name];
        }
        gPrims += llList2Integer(owner_prim,i*2+1);
    }
    gPageNumber = 0;
    gPageMax = llCeil( (float)llGetListLength(gNames) / PAGE_SIZE );
    return TRUE;
}
 
 
// プリムオーナーを 9×ページ数のインデックスから表示します
// さらにページがあるときは TRUE
// もうないときは FALSE
integer ShowPrimOwners(integer page)
{
    integer len = llGetListLength(gNames);
    integer offset = len-page*PAGE_SIZE;
    if(  offset < 0 )
    {
        return FALSE;
    }
    integer i;
 
 
    integer end = (integer)( llListStatistics(LIST_STAT_MIN,[len,(page+1)*PAGE_SIZE]) );
    string text;
    for( i = PAGE_SIZE*page; i < end; ++i)
    {
        text += llList2String(gNames,i) + " - " + (string)llList2Integer(gPrims,i) + "\n";
    }
    llSetText(text,<1,1,1>,1.0);
    return TRUE;
} 
 
// 設定フェーズ
default
{
    state_entry()
    {
        llSetText("",<1,1,1>,1.0);
        if(UpdateOwnerList())
        {
            if( gQueryKeys == [] )
            {
                state display;
            } else {
                state lookup;
            }
        }
    }
    // エラーがあれば、タッチするとリセットします
    touch_start(integer i){llResetScript();}
}
 
// リストを表示します
// タッチでページをめくります
state display 
{
    state_entry()
    {
        ShowPrimOwners(gPageNumber);
        llSetTimerEvent(REFRESH_TIMER);
    }
    touch_start(integer i)
    {
        if( !ShowPrimOwners(++gPageNumber) )
        {
            gPageNumber = 0;
            ShowPrimOwners(0);
        }
    }
    timer()
    {
        state default;
    }
}
 
// 現在 SIM にいない人の名前を全て検索します
// 終了したら display ステートに遷移します
state lookup
{
    state_entry()
    {
        if( gQueryKeys == [] ) state display;
        llSetTimerEvent(DATA_TIMEOUT);
        gDataserver_Name = llRequestAgentData( llList2Key(gQueryKeys,0) , DATA_NAME );
    }
    dataserver( key request_id, string data)
    {
        if( request_id == gDataserver_Name )
        {
            llSetText("Loading Names .. " + (string)llGetListLength(gQueryKeys),<1,.5,0>,1.0);
            if( llStringTrim(data,STRING_TRIM) != "" )
            {
                integer i = llList2Integer(gQueryIndex,0);
                gNames = llListReplaceList(gNames,[data],i,i);
            }
            gQueryKeys = llDeleteSubList(gQueryKeys,0,0);
            gQueryIndex = llDeleteSubList(gQueryIndex,0,0);
 
            if( gQueryKeys != [] )
            {
                llSetTimerEvent(DATA_TIMEOUT);
                gDataserver_Name = llRequestAgentData( llList2Key(gQueryKeys,0) , DATA_NAME );
            } else {
                state display;
            }
        }
    }
    timer()
    {
        //スキップして続行します
        gQueryKeys = llDeleteSubList(gQueryKeys,0,0);
        gQueryIndex = llDeleteSubList(gQueryIndex,0,0);
        gDataserver_Name = llRequestAgentData( llList2Key(gQueryKeys,0) , DATA_NAME ); 
    }
}