//////////////////////////////////////////////////////////
// (C) Wizardry and Steamworks   -   2011, GPLv3    //
// Please see: http://www.gnu.org/licenses/gpl.html     //
// for legal details, rights of fair usage and          //
// the disclaimer and warranty conditions.              //
//////////////////////////////////////////////////////////
 
//////////////////////////////////////////////////////////
//                   CONFIGURATION                      //
//////////////////////////////////////////////////////////
//                                                      //
string THANKS_MESSAGE = "Thank you for your tip %n%! %m% greatly appreciates it!";
string TIPPER_TOUCH_MESSAGE = "Hello %n%! This tipjar belongs to %m%. If you like my work, please consider giving me a tip. To tip me, please right-click my tipjar and select Pay and enter the ammount you would like to tip me with. Thank you!";
string TIPPER_DIALOG_MESSAGE = "Hello, %n%! Please choose an option from the ones below:\nJoin - will send you a group invite.\nGift - will send you a free gift!";
string OVERHEAD_MESSAGE = "%m%'s Tipjar, any tip is welcome!";
list TIPPER_TOUCH_MENU = [ "◆ Join ◆", "◆ Gift ◆" ];
key INVITE_GROUP_KEY = "004079ff-e1b0-c671-dd5e-eb4f6e361684";
string INVITE_GROUP_MESSAGE = "Please join the group %n%! To do so, please click the link in your history window (ctrl+h):";
list PAY_CHOICES = [25 ,50, 100, 200];
//                                                      //
//                  END CONFIGURATION                   //
//////////////////////////////////////////////////////////
 
///////////////////////////////////////////////////////////////////////////
//                              INTERNALS                                //
///////////////////////////////////////////////////////////////////////////

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);
    }
    return llDumpList2String(kSubst, " ");
}

list tippers = [];
list tipperAmounts = [];
integer allSpoils = 0;
integer comHandleTiper = 0;
integer comHandleSpoiler = 0;

key nowTipperKey = NULL_KEY;

default
{
    state_entry() {
        llOwnerSay("Tipjar initialized and ready to be tipped. Good Luck " + llKey2Name(llGetOwner()) + "!");
        llSetPayPrice(0, PAY_CHOICES);
        llSetText(tokenSubstitute(OVERHEAD_MESSAGE, llGetOwner()), <1,1,1>, 1);
    }
 
    touch_start(integer num) {
        integer comChannel;
        if(llDetectedKey(0) == llGetOwner()) jump owner_touch;
        llInstantMessage(llDetectedKey(0), tokenSubstitute(TIPPER_TOUCH_MESSAGE, llDetectedKey(0)));
        comChannel = ((integer)("0x"+llGetSubString((string)llGetKey(),-8,-1)) & 0x3FFFFFFF) ^ 0xBFFFFFFF;
        comHandleTiper = llListen(comChannel, "", llDetectedKey(0), "");
        llDialog(llDetectedKey(0), tokenSubstitute(TIPPER_DIALOG_MESSAGE, llDetectedKey(0)), TIPPER_TOUCH_MENU, comChannel);
        return;
@owner_touch;
        comChannel = ((integer)("0x"+llGetSubString((string)llGetOwner(),-8,-1)) & 0x3FFFFFFF) ^ 0xBFFFFFFF;
        comHandleSpoiler = llListen(comChannel, "", llDetectedKey(0), "");
        llDialog(llDetectedKey(0), "Tipjar: Please choose an option:\n", [ "◆ Tipers ◆", "◆ Tops ◆", "◆ Total ◆", "◆ Poofer ◆", "◆ Lights ◆", "◆ Orbits ◆" ], comChannel);
    }
 
    listen(integer channel, string name, key id, string message) {
        if(id == llGetOwner()) jump owner_com;
        if(message == "◆ Join ◆") {
            llInstantMessage(id, tokenSubstitute(INVITE_GROUP_MESSAGE, id) + "\n secondlife:///app/group/" + (string)INVITE_GROUP_KEY + "/about");
        }
        if(message == "◆ Gift ◆") {
            integer itra;
            list gifts;
            for(itra=0; itra<llGetInventoryNumber(INVENTORY_OBJECT); ++itra) {
                gifts += llGetInventoryName(INVENTORY_OBJECT, itra);
            }
            for(itra=0; itra<llGetListLength(gifts); ++itra) {
                llGiveInventory(id, llList2String(gifts, itra));
            }
        }
        llListenRemove(comHandleTiper);
        return;
@owner_com;
        if(message == "◆ Tipers ◆") {
            integer itra;
            llInstantMessage(id, "---------- BEGIN TIPPERS ----------");
            for(itra=0; itra<llGetListLength(tippers); ++itra) {
                llInstantMessage(id, llKey2Name(llList2Key(tippers, itra)) + " has tipped you: l$" + llList2String(tipperAmounts, itra));
            }
            llInstantMessage(id, "----------- END TIPPERS -----------");
            return;
        }
        if(message == "◆ Poofer ◆") {
            llMessageLinked(LINK_THIS, 0, "tpoofer", "");
            return;
        }
        if(message == "◆ Poof ◆") {
            llMessageLinked(LINK_THIS, 0, "tpoof", nowTipperKey);
            return;
        }
        if(message == "◆ Lights ◆") {
            llMessageLinked(LINK_THIS, 0, "tlights", "");
            return;
        }
        if(message == "◆ Light ◆") {
            llMessageLinked(LINK_THIS, 0, "tlight", nowTipperKey);
            return;
        }
        if(message == "◆ Orbits ◆") {
            llMessageLinked(LINK_THIS, 0, "torbits", "");
            return;
        }
        if(message == "◆ Orbit ◆") {
            llMessageLinked(LINK_THIS, 0, "torbit", nowTipperKey);
            return;
        }
        if(message == "◆ Tops ◆") {
            integer itra;
            llInstantMessage(id, "---------- BEGIN TOP TIPPERS ----------");
            integer topNum;
            for(itra=0; itra<llGetListLength(tippers); ++itra) {
                if(itra==3) jump end_tippers;
                integer tip = llList2Integer(llListSort(tipperAmounts, 1, 0), itra);
                llInstantMessage(id, llKey2Name(llList2Key(tippers, llListFindList(tippers, (list)tip))) + " has tipped you: l$" + (string)tip);
            }
@end_tippers;
            llInstantMessage(id, "----------- END TOP TIPPERS -----------");
            return;
        }
        if(message == "◆ Total ◆") {
            llInstantMessage(id, "So far, " + llKey2Name(llGetOwner()) + " has made L$" + (string)allSpoils);
        }
        llListenRemove(comHandleSpoiler);
    }
 
    money(key id, integer amount) {
        if(~llListFindList(tippers, (list)id)) {
            integer tip = amount + llList2Integer(tipperAmounts, llListFindList(tippers, (list)id));
            tipperAmounts = llListReplaceList(tipperAmounts, (list)tip, llListFindList(tippers, (list)id), llListFindList(tippers, (list)id));
            jump tippers_updated;
        }
        tippers += id;
        tipperAmounts += amount;
@tippers_updated;
        allSpoils += amount;
        nowTipperKey = id;
        llMessageLinked(LINK_THIS, 0, "kpoof", nowTipperKey);
        llShout(0, tokenSubstitute(THANKS_MESSAGE, nowTipperKey));
        llSetText(llKey2Name(nowTipperKey) + " tipped me l$" + (string)amount, <1,1,1>, 1);
        integer comChannel = ((integer)("0x"+llGetSubString((string)llGetOwner(),-8,-1)) & 0x3FFFFFFF) ^ 0xBFFFFFFF;
        comHandleSpoiler = llListen(comChannel, "", llGetOwner(), "");
        llDialog(llGetOwner(), "\n" + llKey2Name(nowTipperKey) + " has just tipped you: L$" + (string)amount + ". What would you like to do?", [ "◆ Poof ◆", "◆ Light ◆", "◆ Orbit ◆" ], comChannel);
    }
    
    on_rez(integer num) {
        llResetScript();
    }
}