View source

{{LSL_Function/avatar/ja|avatar|sim=*}}
{{LSL_Function/ja
|func_id=213|func_sleep=0.0|func_energy=10.0
|func=llEjectFromLand|p1_type=key|p1_name=avatar
|func_footnote=土地がグループに譲渡されている場合、このオブジェクトも同じグループに譲渡されていなければなりません。
|func_desc='''avatar''' を土地から排除 (eject) します。
|return_text
|spec
|caveats
|constants
|examples=
<lsl>// 制作者: 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.");
    }
}</lsl>
|helpers
|also_functions
|also_events
|also_tests
|also_articles
|notes
|cat1=Security
|cat2=Parcel
|cat3
|cat4
}}