teleporter(group only).lsl

//**********************************
//teleporter(group only).lsl
//2017-04-19 MasterPoppy
//**********************************

//**********************************
//行き先の座標
vector dest_pos = <75.0,136.0,22.5>;
//**********************************

//**********************************
//その他の設定
vector sit_pos = <0.0,0.0,0.7>;
vector sit_rot = <0.0,0.0,0.0>;
string float_text = "";
vector text_color = <1.0,1.0,1.0>;
string sit_text = "JUMP";
//**********************************

key av = NULL_KEY;

default
{
    state_entry()
    {
        llSetText(float_text,text_color,1);
        llSetSitText(sit_text);
        llSitTarget(sit_pos,llEuler2Rot(DEG_TO_RAD*sit_rot));
    }
    
    on_rez(integer start_param){
        llResetScript();
    }
    
    changed(integer change)
    {
        if (change & CHANGED_LINK){
            llSleep(0.2);
            av = llAvatarOnSitTarget();
            if(llSameGroup(av)){
                if (av != NULL_KEY) {
                    llSleep(0.2);
                    vector orgPoint = llGetPos();
                    integer status = llSetRegionPos(dest_pos);
                    llUnSit(av);
                    status = llSetRegionPos(orgPoint);
                    av = NULL_KEY;
                }
            }
            else{
                llUnSit(av);
                llRegionSayTo(av, 0, "このテレポーターはグループ専用です。");
                av = NULL_KEY;
            }
        }
    }
}