multi tip jar - Printable Version

PHP Code:
key line1;

key keyactive;
string nameactive;

key splitwith;
integer percentage;

default
{
    on_rez(integer param)
    {
        llResetScript();
    }
    
    state_entry()
    {
        line1 = llGetNotecardLine("config",0);
        llSetText("Tip jar inactive", <1,1,1> ,1.0);
    }

    dataserver(key queryid, string data)
    {
        if (queryid == line1)
        {
            list templist = llParseString2List(data, [" "],[]);
            splitwith = (key) llList2String(templist,0);
            percentage = (integer) llList2String(templist,1);
            llOwnerSay("Profit will be split with: "+llKey2Name(splitwith)+". Person will receive: "+(string) percentage+"%.");
            
            llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
        }  
    }
    
    run_time_permissions (integer perm)
    {
        if (perm == PERMISSION_DEBIT)
        {
            state active;  
        } else
        {
            llOwnerSay("I need those permissions. Please reset me to try again.");
        }
    }

}

state active
{
    on_rez(integer param)
    {
        llResetScript();
    }
    
    state_entry()
    {
        llSetText("Tip jar unassigned",<1,1,1>,1.0);  
        llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
    }  
    
  
    touch_start(integer nr)
    {
        key toucher = llDetectedKey(0);
        if (!llSameGroup(toucher))
        {
            return;
        }
    
        if (toucher == keyactive)
        {
            keyactive = NULL_KEY;
            nameactive = "";
            llSetText("Tip jar unassigned",<1,1,1>,1.0);
            llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
        } else
        {
            keyactive = toucher;
            nameactive = llKey2Name(toucher);
            llSetText(nameactive+"'s tip jar",<1,1,1>, 1.0);
            llSetPayPrice(PAY_DEFAULT, [PAY_DEFAULT, PAY_DEFAULT, PAY_DEFAULT, PAY_DEFAULT]);
        }

    }
    
    money(key id, integer amount)
    {
        integer split = llRound((amount * percentage) / 100);
        integer tipreceiver = amount - split;
        llGiveMoney(keyactive, tipreceiver);
        llGiveMoney(splitwith, split);
        
        llSay(0,"Thank you for your donation.");
    }
}