8=Ball Script_NewMOD

list text = [ "It is certain","It is decidedly so","Without a doubt",
  "Yes definitely","You may rely on it","As I see it, yes","Most likely",
  "Outlook good","Yes","Signs point to yes","Reply hazy try again",
  "Ask again later","Better not tell you now","Cannot predict now",
  "Concentrate and ask again","Don't count on it","My reply is no",
  "My sources say no","Outlook not so good","Very doubtful"
];
list text2 = [ "Omg", "Touched","Molested","Fingered","Palpated","Groped",
  "Fondled","Caressed","Massaged","Licked","Sexed"];
//------------------------------------------------------------------------------
integer ltxt=-1;integer ltxt2=-1;
integer RI(integer n){return(integer)llFrand(n + 1);}
integer RIB(integer min, integer max){return(min+RI(max-min));}
//------------------------------------------------------------------------------
default {
    listen(integer ch,string na,key ke,string me){
        me=llToLower(me);
        integer a=llSubStringIndex(me,"8-box");
        integer b=llSubStringIndex(me,"?");
        if((a==0)&&(b>-1)){
            integer rand=RIB(0,llGetListLength(text)-1);
            while(rand==ltxt){rand=RIB(0,llGetListLength(text)-1);}ltxt=rand;
            llSay(0,llList2String(text,rand)+".");
        }
    }
    state_entry() {
        llListen(0,"",NULL_KEY,"");
    }
    touch_start(integer mew){
        integer rand=RIB(0,llGetListLength(text2)-1);
        while(rand==ltxt2){rand=RIB(0,llGetListLength(text2)-1);}ltxt2=rand;
        llSay(0,llList2String(text2,rand)+"!");
    }
}