Question About Scanning Text

//----Global Varables-----//
list    gKeyWords = ["word", "water", "wee"]; //make these words lowercase

//----Functions----//
func_init(){
    llListen( 0, "", "", "" );    // change this to how you want to listen... this is set to listen to everyone on 0 chat channel
}

integer func_check( string word ){
    integer i = 0;
    integer listLength = llGetListLength( gKeyWords );  //This would get your lists length
    for( i = 0, i < listLength ; i++ ){
        if( llList2String( gKeyWords, i ) == word ){    //We loop through and check each word in the list against the word
            return TRUE;    // If a check is matched, stop the function and return it TRUE
        }
    }
    return FALSE;    // no check was found so return FALSE
}

//----Onto the Default state----//
default(){
    state_entry(){
        func_init();    //Fire the initial function to listen upon entry
    }

    on_rez( integer t ){
        func_init();    //Fire the inital function to listen when rezzed
    }

    listen( integer c, string n, key id, string m){
        m = llToLower( m );    //first change all strings to lower that are heard on the chat channel
        if ( func_check( m ) ){
            //Do some code here, because we had a word match
        }else{
            //Do some code here, if you want... but no match has been found.
        }
    }
}

list listtocheck = llParseString2List( sInString, [" "], [] );