check-alphanumeric.lsl

// *************************
// check-alphanumeric.lsl
//*************************

integer ch = -1;
integer handle;

textbox(key user, string msg)
{
    llListenRemove(handle);
    handle = llListen(ch, "", user, "");
    llTextBox(user, msg, ch);
}

default
{
    touch_end(integer index)
    {
        textbox(llDetectedKey(0), "\n名前を入力してください。(英数字のみ)");
    }
    
    listen(integer channel, string name, key id, string message)
    {
        if(-1 == llSubStringIndex(llEscapeURL(message), "%"))
        {
            llSay(0, "NAME: " + message);
        }
        else{
            textbox(id, "\n名前に使用できる文字は英数字のみです。\n入力データ: " + message);
        }
    }
}