LlEjectFromLand/ja

avatar を土地から排除 (eject) します。

// 制作者: shenanigan oh
 
// 便利なスクリプトを思いついた。私は大虐殺をする時、このスクリプトを
// 仕込んだオブジェクトを装備する事にしている。ここで言う大虐殺とは
// 対戦用 SIM の話で、排除したい相手をいちいち追いかけ回してクリック
// することなく、簡単に素早く処置できる。以下のように、アバター名の
// 途中まで入力するだけでよい。
// 例: /1 eject shenan
 
// アバター名の途中までしか入力しない場合は、
// 人違いで別人を排除しないよう注意されたい。
string msg;
string name;
default
{
    on_rez(integer n)
    {
        llResetScript();
    }
 
    state_entry()
    {
        llListen(1, "", llGetOwner(), "");
        llListen(0, "", llGetOwner(), "");
    }
 
    listen(integer n, string m, key k, string msg)
    {
        if (llGetSubString(msg, 0, 5) == "eject ")
        {
            name = llToLower(llStringTrim(llDeleteSubString(msg, 0, 5), STRING_TRIM));
            llSensor("", "", AGENT, 96, PI);
        }
    }
 
    sensor(integer n)
    {
        integer i = 0;
        for (;i<n;++i)
        {
            if (llOverMyLand(llDetectedKey(i)))
            {
                if (~llSubStringIndex(llToLower(llDetectedName(i)), name))
                {
                    llOwnerSay("ejecting " + llDetectedName(i));
                    llEjectFromLand(llDetectedKey(i));
                }
            }
        }
    }
    no_sensor()
    {
        llOwnerSay("Avatar not found.");
    }
}