///////////////////////////////////////////////////////////////////////////
//  Copyright (C) Wizardry and Steamworks 2011 - License: GNU GPLv3      //
//  Please see: http://www.gnu.org/licenses/gpl.html for legal details,  //
//  rights of fair usage, the disclaimer and warranty conditions.        //
///////////////////////////////////////////////////////////////////////////
 
//////////////////////////////////////////////////////////
//                   CONFIGURATION                      //
//////////////////////////////////////////////////////////
//                                                      //
// A string that represents the message that will get
// to the receiver of the payment. The tokens in the 
// strings are special: %n% will get replaced with the
// receiver's name, %m% will get replaced with the 
// owner of this script and %d% will be replaced with 
// the date when this script will run.
string CUSTOM_PAYMENT_MESSAGE = "Hello, %n%! I am was scheduled on %d% to send you money on behalf of %m%. Please standby for payment...";
// Set this to 1 to make this script every month on the 
// day specified in the "Timed Payments" notecard. For 
// example if you have 2011-12-26 as date in the notecard
// then if you set REOCURRING_PAYMENTS to 1, the script 
// will make a payment every month on the 26th.
integer REOCURRING_PAYMENTS = 1;
//                                                      //
//                  END CONFIGURATION                   //
//////////////////////////////////////////////////////////
 
///////////////////////////////////////////////////////////////////////////
//                              INTERNALS                                //
///////////////////////////////////////////////////////////////////////////

key pQuery = NULL_KEY;
integer pLine = 0;
list payLog = [];
list payList = [];
integer nRun = 0;

string tokenSubstitute(string input, key id) {
    list kSubst = llParseString2List(input, ["%"], [""]);
    integer itra;
    for(itra=0; itra<llGetListLength(kSubst); ++itra) {
        if(llList2String(kSubst, itra) == "n") kSubst = llListReplaceList(kSubst, (list)llKey2Name(id), itra, itra);
        if(llList2String(kSubst, itra) == "m") kSubst = llListReplaceList(kSubst, (list)llKey2Name(llGetOwner()), itra, itra);
        if(llList2String(kSubst, itra) == "d") kSubst = llListReplaceList(kSubst, (list)llGetDate(), itra, itra);
    }
    return llDumpList2String(kSubst, " ");
}

init() {
    payList = [];
    integer itra;
    for(itra=0, pLine=0; itra<llGetInventoryNumber(INVENTORY_NOTECARD); ++itra) {
        if(llGetInventoryName(INVENTORY_NOTECARD, itra) == "Timed Payments")
            jump found_payments;
    }
    return;
@found_payments;
    pQuery = llGetNotecardLine("Timed Payments", pLine);
    llSetTimerEvent(1.0);    
}

default
{
    state_entry() {
        init();
    }
    
    on_rez(integer num) {
        init();
    }
    
    timer() {
        if(nRun) {
            llSetTimerEvent(.0);
            state pay;
        }
        llSetTimerEvent(1.0);
    }
    
    dataserver(key id,string data) {
        if(id != pQuery) return;
        if(data == EOF) {
            ++nRun;
            return;
        }
        if(data == "") jump next_line;
        payList += data;
@next_line;
        pQuery = llGetNotecardLine("Timed Payments", ++pLine);
    }
}

state pay
{
    state_entry() {
        llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
    }
    
    changed(integer change) {
        if(change & CHANGED_INVENTORY)
            llResetScript();
    }
    
    run_time_permissions(integer perm) {
        if(perm & PERMISSION_DEBIT) {
            llOwnerSay("Processing payments for today...");
            llSetTimerEvent(5.0);
        }
    }
    
    touch_start(integer num) {
        if(llDetectedKey(0) != llGetOwner()) return;
        integer itra;
        for(itra=0; itra<llGetListLength(payLog); ++itra) {
            llOwnerSay(llList2String(payLog, itra));
        }
    }

    timer() {
        llSetTimerEvent(.0);
        integer itra;
        for(itra=0; itra<llGetListLength(payList); ++itra) {
            list pays = llParseString2List(llList2String(payList, itra), ["#"], [""]);
            if(llList2String(pays, 2) != llGetDate() && !REOCURRING_PAYMENTS)
                jump next_payment;
            if(REOCURRING_PAYMENTS && llList2String(llParseString2List(llGetDate(), ["-"], [""]), 1) != llList2String(llParseString2List(llList2String(pays, 2), ["-"], [""]), 1))
                jump next_payment;
            if(llKey2Name(llList2String(pays, 1)) != llList2String(pays,0))
                jump next_payment;
            if(llList2Integer(pays, 3) < 1)
                jump next_payment; 
            llInstantMessage(llList2Key(pays, 1), tokenSubstitute(CUSTOM_PAYMENT_MESSAGE, llList2Key(pays,1)));
            llGiveMoney(llList2Key(pays, 1), llList2Integer(pays, 3));
            payLog += (list)("I paid: l$" + llList2String(pays, 3) + " on " + llGetDate() + " to " + llList2String(pays, 0));
@next_payment;
        }
        llOwnerSay("All payments for " + llGetDate() + " completed. Going to sleep.");
        llSetTimerEvent(86400.0);
    }
}