integer strlenB(string str){
string esc = llEscapeURL(str);
string wk = (string)llParseString2List(esc,["%"],[]);
return llStringLength(wk) * 2 - llStringLength(esc);
}
…参考：「jinkoさんＳＬ日記」
string agentName(key id) {
string legacy=llKey2Name(id); // 本名
list names=llParseString2List(legacy,[" "],[]);
if (llList2String(names,1)=="Resident")
legacy=llList2String(names,0); // Resident省く
string display=llGetDisplayName(id);
if (display==legacy||display==""||display=="???")
return legacy; // 本名のみ表示
else return display+"["+legacy+"]";
}
表示名が"???"とは、そういうケースもあるようなので、そんな場合は表示名をあきらめます。
default {
state_entry() {
llSetTimerEvent(Cycle);
}
timer() { // 一定時間ごとに
list agents=llGetAgentList(
AGENT_LIST_REGION,[]);
// 土地にいる人を調べる
key id;
integer n=llGetListLength(agents);
integer i=0;
for(; i<n; ++i) {
id=llList2Key(agents,i);
if (id!=llGetOwner() && llSameGroup(id)==FALSE)
llTeleportAgentHome(id); // 部外者はホームに強制送還
}
}
}
showMenu() { // メニューを出す
OpenIM = "secondlife:///app/agent/" + (string)StaffId + "/im";
list buttons = ["IM"];
string message = "\nIM: 下線またはボタンをクリック"
+" Click Underline or Button\n" + OpenIM;
if (llGetInventoryNumber(INVENTORY_NOTECARD)) {
Note = llGetInventoryName(INVENTORY_NOTECARD,0);
buttons += ["Note"];
message += "\nNote: ノートもらえます Get Note";
}
Handle = llListen(Channel,"",Id,"");
llDialog(Id,message,buttons+["Cancel"],Channel);
}
default {
touch_start(integer num) {
Id = llDetectedKey(0); // タッチした人
// (実際にはスタッフIDを調べてから)
showMenu(); // メニューを出す
}
listen(integer ch,string na,key id,string msg) {
if (msg=="IM") llInstantMessage(Id,
"チャットログで下線をクリックしてください"
+" Click Underline on Chat Log\n"+OpenIM);
else if (msg=="Note") llGiveInventory(Id,Note);
llListenRemove(Handle);
}
}
default {
touch_start(integer num) {
if (llGetObjectName()
!="Staff Board") return;
// すでに名前が登録済みなら無視
key id=llDetectedKey(0);
// タッチした人
if (llSameGroup(id)==FALSE) return;
// スタッフでないなら無視
llSetObjectName(llDetectedName(0)); // 名前をオブジェクト名に登録
llSetObjectDesc((string)id); // IDをオブジェクト説明に登録
llHTTPRequest("http://world.secondlife.com/resident/"
+(string)id,[HTTP_METHOD,"GET"],"");
// プロフの写真を設定するために問合せ
}
http_response(key query,integer status,list meta,string body) {
// 問合せの応答
string find="<meta name='imageid' content='";
// 応答内容から特定の文字列を見つける
// (「'」は実際には「"」で「\"」のように書く)
integer head=llSubStringIndex(body,find)+llStringLength(find);
// 画像IDの先頭
string texture=llGetSubString(body,head,head+35);
// 画像ID(35字)
if ((key)texture) llSetTexture(texture,Face);
// IDが有効ならそのテクスチャーを貼る
}
}
default {
state_entry() { // 最初は閉じる
Sound = llGetInventoryName(
INVENTORY_SOUND,0); // 音
if (Sound) llPlaySound(Sound,1.0);
llSetLocalRot(ZERO_ROTATION);
}
touch_start(integer num) { // タッチ
if (Open) llResetScript();
// 開いてればリセットで閉じる
else { // 閉じてれば開く
if (Sound) llPlaySound(Sound,1.0);
llSetLocalRot(llEuler2Rot(DEG_TO_RAD*Angle));
Open = TRUE;
llSetTimerEvent(TimeOut); // 時間切れ設定
}
}
timer() {
llResetScript(); // 時間切れリセットで閉じる
}
}
