// Copyright (C) 2007 Flater Baxter.
//
// you may use and modify it
// don't use for commercial products.
// more scripts on our website
// HTTP://WWW.LOOQZ.EU
// Keep this text in place


// SETTINGS

integer hours = 1; // After how many hours an email is send
string email1 = " This e-mail address is being protected from spam bots, you need JavaScript enabled to view it " ;//your email
string groupname = "THE BEST SL GROUP"; // your group name

//

key joiner ;
integer len;
list names;
string joinname;
integer counter = 0;
string emailtext;

make_email() /// CONFERT THE LIST OF NAMES TO A TEXT STRING
{
    len =llGetListLength(names);
    integer i;
    emailtext = "Invitation list for group "+ groupname+" \n \n NAMES: \n \n";
 for(i=0;i<len;i++){
     emailtext += llList2String(names,i)+" \n" ;
    }
    emailtext += "\n total: "+ (string)len ;
 }

default
{
    state_entry()
    {
        llSetTimerEvent(3600);///TIMER TO 1 HOUR
    }

    touch_start(integer total_number)
    {
        joiner = llDetectedKey(0);
        joinname = llKey2Name(joiner);
           
        if ( llListFindList(names,[joinname]) == -1){//check if the name is not on the list
         names = (names = [])+names+ joinname;
         llInstantMessage(joiner,"dear "+joinname+" jou will recieve an invitation soon");  
        }
        else llInstantMessage(joiner,"dear "+joinname+" jou are already on the invitation list");
           
           
        }
   
    timer()
    {
    counter += 1;
    if(counter == hours){
   
        make_email();
        names = [];
        counter = 0;
        llEmail(email1, "GROUP INVITATIONS", emailtext);
       
       
}}
}