//Merk Scripting 
//Modified

list g1what  = ["lick","suck","touch","caress","???","pat","blow","nip" ];// What to do!
list g1where = ["thigh","ass","breast","lips","???","ear","navel","neck"];// Where to do it!
 
integer Rint(integer range){
    return llFloor(llFrand(range))+1; // Return a random integer between 0 and range.
}
 
string GetName(key who){
    string name=llGetDisplayName(who); // Get the Display Name?
    if((name=="")||(name=="???")){
        name=llKey2Name(who); // Get the full username?
        integer idx=llSubStringIndex(name," Resident");
        if(idx>-1){name=llGetSubString(name,0,idx-1);} // Get the new-style username?
    }
    return name; // Return the name.
}
 
PlayGame1(){
    a="----";b="----";t=0.01;m=0;llSetTimerEvent(t); // Resets variables and starts a game.
}
 
Text(){
    vector c=<1,0,0>;string t="Choosing...\n";
    if(m==-1){c=<0,0,1>;t="Click to play\n";}
    if(m==1){c=<1,.5,0>;}if(m==2){c=<0,1,0>;
      if(n!=""){t=n+",\nyour partner has to\n";}
      else{t=n+"Click to play\n";}}
    llSetText(t+a+" your "+b+"!",c,1);
}
 
string a="----";string b="----";float t=0.01;integer m=-1;string n="";
 
default {
    state_entry(){
        Text();
    }
    timer(){
        if(m==0){
            a=llList2String(g1what,Rint(llGetListLength(g1what)-1));
            t+=llFrand(0.1);
            if(t<1.0){
              llSetTimerEvent(t);
            }else{t=0.01;m=1;}
        }
        if(m==1){
            b = llList2String(g1where,Rint(llGetListLength(g1where)-1));
            t+=llFrand(0.1);
            if(t<1.0){
              llSetTimerEvent(t);
            }else{t=0.01;m=2;llSetTimerEvent(0);}
        }
        Text();
    }
    touch_start(integer total_number) {
        if (m==-1){
            n=GetName(llDetectedKey(0));PlayGame1();//Play!
        }else if(m==2){
            llResetScript();//Reset.
        }
    }
}