//YEngine:
yoptions;

constant __DEBUG__ = TRUE;

constant SCRIPT_PIN = 72743825;
constant updateChan = -4744320;

integer lhandle;

debug( string text ){
    if( __DEBUG__ ){
        llOwnerSay( text );
    }
}

endListen(){
    if( lhandle != 0 ){
        llListenRemove( lhandle );
        lhandle = 0;
    }
    llSetTimerEvent(0.0);
}

// Get inventory list
// remove this script from list
integer deliverItems( key id ){
    list items = osGetInventoryNames( INVENTORY_ALL );
    integer l = llGetListLength( items );
    integer sent = 0;
    list results;
    list scripts;
    
    for( integer i = 0; i < l; i++ ){
        string name = llList2String( items, i );

        if( llGetInventoryType( name ) != INVENTORY_SCRIPT ){
            results += [name];
        }
        else if( name != llGetScriptName() ){
            scripts += [name];
        }
    }
    // make sure we deliver items before scripts
    if( results != [] ){
        // deliver everything except the scripts
        // We need to give a folder name, but no folder is created in an object
        llGiveInventoryList( id, "AnyName", results );
        sent = llGetListLength( results );
    }
    if( scripts != [] ){
        l = llGetListLength( scripts );
        for( integer i = 0; i < l; i++ ){
            debug("Delivering script #"+(i+1)+"/"+l);
            llRemoteLoadScriptPin( id, llList2String( scripts, i ), SCRIPT_PIN, TRUE, 15 );
            sent++;
        }
    }
    return sent;
}

default {
    state_entry() {
        llSetText("Sender",<1,0.685,0>,1.0);
        debug("Script running");
    }
    touch_start(integer num){
        if( llDetectedKey(0) == llGetOwner() ){
            lhandle = llListen( updateChan, "", "", "" );
            llSetTimerEvent(5.0);
            
            debug("Seaching for receiver");
            llWhisper( updateChan, "UPDATE-PING" );
            
        }
    }
    timer(){
        endListen();
    }
    listen(integer channel, string name, key id, string msg){
        if( llGetOwnerKey( id ) == llGetOwner() ){
            if( msg == "UPDATE-PONG" ){
                debug("Receiver found");
                endListen();
                integer sent = deliverItems( id );
                debug("Inventory sent: "+sent);
            }
        }
    }
}