integer is_keyword_in_string(list k, string s){
    integer max = llGetListLength(k);
    while(max--){
        if(~llSubStringIndex(s,llList2String(k,max))){
            return TRUE;
        }

    }
      return FALSE;
}


default
{
    state_entry()
    {
       string test = "this is a message containing some keywords about bananas and music ";
       list keywords =["banana","music"];
       if(is_keyword_in_string(keywords,test)){
           llOwnerSay("true");
        }
        else{
            llOwnerSay("false");
        }
    }

}