//Keknehv Psaltery Updated Version of DONATION BOX By jean cook, ama omega, and nada epoch Debugged by YadNi Monde (LoL) Yea, that s a Bunch O Peeps =)

//Summary: The following script will make an object accept donations on your behalf.
//Usage: stick it on any object you own(my favorite is a top hat), and it will promptly display:
//"<your name>'s donation hat.
//Donate if you are so inclined."
//at which point anyone can right click on it and give you a tip. also, the script tells the donator thanks, and then tells you who donated how much
//also shows the total amount donated



integer totaldonated;
string owner;
string dname;
default
{
    on_rez( integer sparam )
    {
        llResetScript();
    }
    state_entry()
    {
        dname=llGetDisplayName(llGetOwner());
        owner = llKey2Name( llGetOwner() );
        llSetText((string)dname+ "'s Tip Jar.\nPlease tip if you are so inclined!\n$L0 Donated so far",<.25,1,.65>,1);
    }

    money(key id, integer amount)
    {
        totaldonated += amount;
        llParticleSystem(
        [
            PSYS_SRC_PATTERN,PSYS_SRC_PATTERN_EXPLODE,
            PSYS_SRC_BURST_RADIUS,0,
            PSYS_SRC_ANGLE_BEGIN,0,
            PSYS_SRC_ANGLE_END,0,
            PSYS_SRC_TARGET_KEY,llGetKey(),
            PSYS_PART_START_COLOR,<1.000000,1.000000,1.000000>,
            PSYS_PART_END_COLOR,<1.000000,1.000000,1.000000>,
            PSYS_PART_START_ALPHA,1,
            PSYS_PART_END_ALPHA,1,
            PSYS_PART_START_GLOW,0,
            PSYS_PART_END_GLOW,0,
            PSYS_PART_BLEND_FUNC_SOURCE,PSYS_PART_BF_SOURCE_ALPHA,
            PSYS_PART_BLEND_FUNC_DEST,PSYS_PART_BF_ONE_MINUS_SOURCE_ALPHA,
            PSYS_PART_START_SCALE,<0.500000,0.500000,0.000000>,
            PSYS_PART_END_SCALE,<0.500000,0.500000,0.000000>,
             PSYS_SRC_TEXTURE, llGetInventoryName(INVENTORY_TEXTURE, 0),
            PSYS_SRC_MAX_AGE,0,
            PSYS_PART_MAX_AGE,5,
            PSYS_SRC_BURST_RATE,0.3,
            PSYS_SRC_BURST_PART_COUNT,5,
            PSYS_SRC_ACCEL,<0.000000,0.000000,0.000000>,
            PSYS_SRC_OMEGA,<0.000000,0.000000,0.000000>,
            PSYS_SRC_BURST_SPEED_MIN,0.5,
            PSYS_SRC_BURST_SPEED_MAX,0.5,
            PSYS_PART_FLAGS,
                0 |
                PSYS_PART_EMISSIVE_MASK
        ]);
        llSleep(2);
         llParticleSystem([]);

        llSetText( dname + "'s Tip Jar.\nPlease tip if you are so inclined!\n$L" + (string)amount + " Was donated by"+(string)llGetDisplayName(id) +"!\n" + "$L" + (string)totaldonated + " Donated so far",<.25,1,.65>,1);
        llInstantMessage(id,"Thanks for the tip!  I really appreciate it.");
        llInstantMessage(llGetOwner(),(string)llKey2Name(id)+" donated $" + (string)amount);
    }
}