default
{
touch_start(integer total_number)
{
llLoadURL(llDetectedKey(0),"WEB", "http://coa0.blogspot.com/2010/03/japan-platinum-resort.html");
}
}
integer sendIM = TRUE;
list names;
integer total;
integer menu_handler;
integer menu_channel;
menu(key user,string title,list buttons)
{
menu_channel = (integer)(llFrand(99999.0) * -1);
menu_handler = llListen(menu_channel,"","","");
llDialog(user,title,buttons,menu_channel);
llSetTimerEvent(15.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [""];
total = 0;
llSetText("Touch to join our Group", <0.90196, 0.72549, 0.35294>, 1.0); //Floating Text, edit or remove
llOwnerSay("Ready... list is reset to 0.");
}
touch_start(integer num_detected)
{
integer x;
for(x;x <= num_detected- 1;x++)
{
if ( llDetectedKey(x) != llGetOwner() )
{
integer find = llListFindList(names,[llDetectedName(x)]);
if(find < 1)
{
llInstantMessage(llDetectedKey(x), "Your request has been sent. Please be patient and you will be added to the group as soon as possible."); //Message to Toucher
names = names+ [llDetectedName(x)];
total = total + 1;
if (sendIM)
{
llInstantMessage(llGetOwner(), " " + llDetectedName(x) + " has requested to be added."); //Message to Owner
}
}
else
{
llInstantMessage(llDetectedKey(x), "You've already requested to be added."); //Message to repeat Toucher
}
}
else if ( llDetectedKey(x) == llGetOwner() )
{
llOwnerSay((string)total + " people have Touched me so far!");
menu(llGetOwner(),"Please Select One",["Show List","Reset", "Turn Off"]);
}
}
}
timer()
{
llSetTimerEvent(0.0);
llListenRemove(menu_handler);
}
listen(integer channel,string name,key id,string message)
{
if (channel == menu_channel)
{
if(message == "Show List")
{
integer len = llGetListLength( names );
integer i;
for( i = 0; i < len; i++ )
{
integer a = i;
llOwnerSay((string)a + " : " + llList2String(names, i));
}
}
else if(message == "Reset")
{
llOwnerSay("Clearing List & Reseting Script now.");
llResetScript();
}
else if(message == "Turn Off")
{
llOwnerSay("Turning Off Now. Touch again to turn back On.");
state off;
}
}
}
}
state off
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
llSetText("", <0, 0, 0>, 1.0);
}
touch_start(integer total_number)
{
if (llGetOwner())
{
llOwnerSay("Turning back On now.");
llResetScript();
}
}
}
list colors = ["Pink", "OrangePink","pealOrenge","babyPink", "babyOrangePink","babyyellow","Tarcoiz","Orenge", "Purple","Crimson","Bisque","black"];list rgb = [<1.0,0.6,0.8>, <1.0,0.6,0.6>, <1.0,0.6,0.4>,<1.0,0.8,0.8>, <1.0,0.8,0.6>, <1.0,0.8,0.4>,<0.2,0.6,0.8>, <1.0,0.5,0.0>, <0.4,0.4,0.8>,<0.86,0.078,0.235>, <1.0,0.89,0.76>, ZERO_VECTOR];integer handle;integer channel=7;integer counter=0;default{touch_start(integer detected){if (llDetectedKey(0) == llGetOwner()){counter=0;}}touch(integer detected){if (llDetectedKey(0) == llGetOwner()){if (counter <>counter ++;}else if (counter == 20){counter ++;handle=llListen(channel, "", llGetOwner(), "");llDialog(llGetOwner(),"Select Color",colors,channel);llSetTimerEvent(60.0);}}}timer(){llSetTimerEvent(0.0);llWhisper(0,"Time out! Touch again for change color.");llListenRemove(handle);}listen(integer ch, string name, key id, string msg){llSetTimerEvent(0.0);llListenRemove(handle);integer i = llListFindList(colors, [msg]);if (i != -1){vector c = llList2Vector(rgb,i);llSetColor(c, ALL_SIDES);llMessageLinked(LINK_SET, 0, (string)c, NULL_KEY);}}}
default{touch_start(integer total_number){integer number = llGetInventoryNumber(INVENTORY_TEXTURE);float rand = llFrand(number);integer choice = (integer)rand;string name = llGetInventoryName(INVENTORY_TEXTURE, choice);if (name != "")llSetTexture(name, ALL_SIDES);}}
