//**************************************************
//*
//* Title: Fakefur Script Keybord Sample
//* Make : 2006/11/09
//* Update : 2007/09/03
//* Note : ChatInput -> KeyBord Show
//*        NoInput -> KeyBord Hide
//*
//**************************************************
//****************
//* Main Program *
//****************
default
{
    //******************
    //* Initialization *
    //******************
    state_entry()
    {
        llSetLinkAlpha(LINK_SET,1.0,ALL_SIDES);
    }
    
    //*********
    //* Start *
    //*********
    //Wear Event
    attach(key id) {
        if (id != NULL_KEY) {
            //Start Keybord
            llSetTimerEvent(0.2);
        }else{
            //Reset Keybord
            llResetScript();
        }
    }
    
    //*****************
    //* KeyBord Check *
    //*****************
    timer()
    {
        integer Status = llGetAgentInfo(llGetOwner());
        //******************
        //* Key Input Find *
        //******************
        if (Status & AGENT_TYPING){
            //****************
            //* KeyBord Show *
            //****************
            llSetLinkAlpha(LINK_SET,1.0,ALL_SIDES);

            //******************
            //* KeyBord Action *
            //******************
            //No Action

        //*****************
        //* Not Key Input *
        //*****************
        }else{
            //****************
            //* KeyBord Hide *
            //****************
            llSetLinkAlpha(LINK_SET,0.0,ALL_SIDES);

            //***********************
            //* KeyBord Action Stop *
            //***********************
            //No Action

        }
    }
}