//Resgistrator-Tron .3
//By Max Case. 
//Public release For Prokofy, everyone's favourite <pejorative expunged>
//
//This script just sends off an email with region corners, key of donor, name of donor.
// <for leaderboard yo>!
//


//fn_reg_email
//This is example of what is in each slave script for remailing
//Change EMAIL addy to whatever your backend is listening on.
//Change subject to whatever message you want
//I don't even bother with llGetSimHost... info is alsready in the headers of the email
//takes name, key (for leaderboard baby!) region corner(for calculating map pos with map api)
fn_reg_email()
{
    string sim_name = llGetRegionName();
    llOwnerSay("Sending info "+ sim_name);   
    
    string subject = "COMMANDOFCHOICE";
    string reg_email_addy = "CHANGEME@example.com";//this is EMAIL
    string msg_body = "region_corners:"+(string)llGetRegionCorner() + "\n";
           msg_body += "keydonor:"+(string)llGetOwner()+"\n";
           msg_body += "namedonor:"+llKey2Name(llGetOwner())+"\n";
    llEmail( reg_email_addy, subject, msg_body);
    llOwnerSay(sim_name + " info sent... thanks.");
}
//

//This portion routes to the different remailer scripts in object. So you could go across sims fast, and it all works well. 
//The slave scripts are would be named 1 ... 10
integer COUNTER = 1;
integer SLAVES = 10;
fn_link_msg()
{
    if(COUNTER > SLAVES) COUNTER = 1;
    llMessageLinked(LINK_SET, COUNTER, "", NULL_KEY);
    COUNTER++;
}
/////////////////////////

default
{
    state_entry()
    {
        state init_email;    
    }
}

state init_email
{
    state_entry()
    {
        llOwnerSay("Touch me to send in the Sim info...");   
    }
    
	changed(integer change) 
	{ 
        if (change & CHANGED_REGION) 
        { 
            fn_link_msg();
            //fn_reg_email(); 
        }
    }
	
    on_rez(integer foo)
    {
         fn_link_msg();
        //fn_reg_email(); 
    }
    
    //Button Code for it - For those who like to touch//
    touch_start(integer foo)
    {
        llSetAlpha(1.0, ALL_SIDES);//Make opaque
        
        if(llDetectedKey(0) == llGetOwner()) //Owners only please!
        {
            fn_link_msg();
            //fn_reg_email(); 
        }    
    }
    
    touch_end(integer foo)
    {
        llSetAlpha(.5, ALL_SIDES);   //make transparent
    }
}