Suggestion sender    Takes a one-line suggestion typed in chat after a person clicks on the object. Sends the suggestion to a specified e-mail address.  
key toucher;
integer handle;		 Global variables
default {  
on_rez(integer rez)
{llResetScript();}
  

touch_start(integer total_num)
{ toucher = llDetectedKey(0);
llSay(0,"Type suggestion in Chat. Stick to one line.");
handle = llListen(0, "", toucher, ""); }

On touch, get toucher ID.
Ask for suggestion.
start listening for chat for toucher
listen(integer channel, string name, key id, string msg)
{llSay(0,msg);
string address= "YourName@gmail.com";
llEmail(address, "Suggestion", msg);
llListenRemove(handle); }
 On getting chat line, repeat message
Send e-mail to specified address.
Stop listen watch.
} Close default
The Thinkerer 05/09/2008
 Copyright (c) D. F. Dansereau & S. H. Evans

Site Map

Where start?

 LODScr
Famous fables