Club Fabulous Tokyo にようこそ

先日から配布している「CFT Visitors' Photobook」ですが、
プロフィールに写真を設定していない方への対応が完了し、
一応、現段階では完成、と考えています。

これまでのプログラムでは、
タッチした人のプロフィールに写真がない場合、
画像が見つけられなかった、とスクリプトエラーが表示されていました。
……が、プロフィール写真の設定がない場合、l
lListFindListのスクリプト同様、
「-1」という整数が返ってくることがわかり、
その場合の対処法を追加しました。

今後の改善点としては、
16人の方がタッチしてくれたあとでリストをリセットするため、
同じ方の写真が２枚表示される（日付は異なる）可能性があること。
リピーターは大歓迎ですから、それもまたいいかな、とは思っていますが。

下記、最新版のスクリプトを掲載しておきます。
スクリプトの閲覧できる現物もClub Fabulous Tokyoで配布中ですから、
すぐに触って遊んでみたい、という方はぜひどうぞ。

★ Photobook配布場所のご案内 ★

　１．クラブのエントランス通路を直進。
　２．茶色い建物（ダンスホール）２階にテレポート。
　　>> 床にテレポートハブを設置しています。
　３．イラストレーション展覧会場を抜け、置くの部屋へ。

　上記移動方法が面倒な方は、
　エントランス床のインフォメーションマークをクリックし、
　起動したテレポートパネルの「Free Scripts and Goods」をクリック。

-------------------------------------
key requestid;
string resident;
integer index;
integer number = 2;
list names = [];
integer name;

default
{
on_rez(integer start_param)
{
llResetScript();
}

state_entry()
{
llSetText("Visitors' Profile Photos\nTouch the panel and add your photo!\nBut if you don't set a photo in your SL profile,\nno photo will appear on the board.", <1,1,1>, 1);
llSetLinkTexture(LINK_ALL_CHILDREN, "woodpaneling", ALL_SIDES);
llMessageLinked(LINK_ALL_CHILDREN, 0, " ", NULL_KEY);
}

touch_start(integer num_detected)
{
resident = llKey2Name(llDetectedKey(0));
name = llListFindList(names, [resident]);

if(name == -1)
{
index = llFloor(llFrand(num_detected));
requestid = llHTTPRequest("http://world.secondlife.com/resident/"+(string)llDetectedKey(index),[HTTP_METHOD,"GET"],"");
names = names + [resident];
}
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id == requestid)
{
integer i = llSubStringIndex(body,"http://secondlife.com/app/image/");
if(i != -1)
{
string photo = llGetSubString(body,i+32,i+67);
llSetLinkTexture(number, photo, 1);
}

if(i == -1)
{
llSay(0, "Sorry, " + resident + ". There's no photo in your profile.");
llSetLinkTexture(number, "woodpaneling", 1);
}

llMessageLinked(number, 0, (string)(llGetDate() + " " + resident), NULL_KEY);
number++;

if(number == 18)
{
number = 2;
names = [];
}
}
}
}
-------------------------------------

各命令の説明については、
過去のエントリー「プロフィールの写真を取得しパネルに表示するスクリプト」
をご覧くださいｌ。

/nimue/87/13/82/