$$$$$$$$$$$$$$$$$$$$$$$

$$ Inventory Notecard

$$ Name,Description,Texture(uuid),price-------- (no spaces!!! no extra lines!!!)-------------

Name,Description,Texture(uuid),price

$$$$$$$$$$$$$$$$$$$$$$$$

$$ Reseller-TrackerServerv3

$$lsl

string title;
key owner;
list save_list = [];
integer length = 0;
integer handle;
string msg;
integer i=0;
string vendor;
list vendor_list;
integer original_length;
list original_save_list = [];

email_update()
{ integer l = i; l+=1;
llSetText("Updating: ("+(string)l+" of "+ (string)original_length+") \n Please Wait.... ",<0,1,0>,.7);
vendor_list =  llParseString2List((string)original_save_list,[","],[""]);

if(i != original_length){    /////Email every person on the list
vendor = llList2String(vendor_list,i);
llSay(0,(string)vendor);//////////------debug(remove)
if (vendor != NULL_KEY){llEmail(vendor + "@lsl.secondlife.com", "email_update",msg+","+title);}
    i++;
    email_update();
    }///end email everyone
   
else {llSetText("Updating Complete!",<0,1,0>,1);llInstantMessage(llGetOwner(),"Task Complete!"); return;}
return;
}

default
    {on_rez(integer params){llResetScript();}  
 state_entry()
    {   title = llGetObjectDesc();
        owner = llGetOwner();
        llSetText("Initializing....",<1,1,0>,.7);
        llInstantMessage(llGetOwner(),"Vendor TRACKER Key is " + (string)llGetKey());
        llSetTimerEvent(2.5);
 
    }
    touch_start(integer total_number){
        if (llDetectedKey(0) == llGetCreator()){
        handle = llListen(7797, "", "", "" );
        llDialog(llGetOwner(),"Vendor Tracking System \n \n Features: ",["Ok","Refresh","KillAll","TrackingKey"],7797);
        }}
    timer()
    {llSetText("Active Vendors: "+(string)length + "\n -=DO NOT RESET ONCE ACTIVATED=-",<1,1,1>,1);
    llGetNextEmail("", "VendorTracker"); // Check for email with any sender address and subject.
    }
    listen(integer number, string name, key id, string message)
    {
    if(message=="Ok"){llListenRemove(handle);}///nevermind
   
    if(message=="Refresh"){
        i=0;
        msg = message;
        original_length = length;
        original_save_list = save_list;
        length = 0;
        save_list = [];
        email_update();
        llListenRemove(handle);
        }
   
    if(message=="KillAll"){
        i=0;
        msg = message;
        original_length = length;
        original_save_list = save_list;
        length = 0;
        save_list = [];
        email_update();
        llListenRemove(handle);
        }
   
    if(message=="TrackingKey"){llInstantMessage(llGetOwner(),"Vendor TRAcKING Key is " + (string)llGetKey());llListenRemove(handle);}//Gives Key for tracking
}
    email(string time, string address, string subj, string message, integer num_left)
    {   message = llDeleteSubString(message, 0, llSubStringIndex(message, "\n\n") + 1);
        list vendor_data =     llParseString2List(message,[","],[""]);
        string vendor_key =              llList2String(vendor_data, 0);
        string vendor_loc =              llList2String(vendor_data, 1);
        string vendor_owner =            llList2String(vendor_data, 2);
       
        list index_list=  llParseString2List((string)save_list,[","],[""]);
        integer index = llListFindList(index_list, [vendor_key] );
       
if ( index != -1 ) {llInstantMessage(owner, "New Vendor Detected - Already on List!!\n Region: "+vendor_loc+"\nOwner: "+vendor_owner); return;}

    else{llInstantMessage(owner, "New Vendor Detected - Not on List!!\n Region: "+vendor_loc+"\nOwner: "+vendor_owner);
      
        if (save_list !=[]){save_list+=","+vendor_key;}
       
        else{save_list = (list)vendor_key;}
       
       
        length = llGetListLength(save_list);
       
    }
    }

}