グループ加入のリンクを表示するスクリプト

今回はタッチするとチャット履歴にグループ加入のリンクを出すスクリプトです。
LSL Examplesとかにもあるんですけどね＾＾
http://wiki.secondlife.com/wiki/Open_Group_Join


それでも自分なりに書いてみたんですが。。。

// グループ加入

group_link(key agent)
{  // オブジェクトのグループを調べて
    key group=llList2Key(llGetObjectDetails(llGetKey(),[OBJECT_GROUP]),0);
    if (group) {  // グループがセットされていればIMでリンクを表示
        string str="チャット履歴 (Ctrl+Hキー)に表示されたリンクをクリックすると";
        str+=" グループインフォメーションが出ますのでJoinボタンで加入してください";
        str+=" secondlife:///app/group/"+(string)group+"/about";
        llInstantMessage(agent,str);
    }
    else llWhisper(0,"オブジェクトにグループがセットされてません");
}

default
{
    touch_start(integer total_number)
    {
        key agent=llDetectedKey(0);
        group_link(agent);  // タッチでgroup_linkへ
    }
}

まあ、簡単なスクリプトだから同じような感じになっちゃってますねｗ
スクリプトの日本語は1.19系のビューワーだと入力できないので1.20以上のRC版を使ってください。